; EQUB <value>
          MACRO
          EQUB    $var
          DCB     $var
          MEND


; EQUW <value>
          MACRO
          EQUW    $var
          DCW     $var
          MEND


; EQUD <value>
          MACRO
          EQUD    $var
          DCD     $var
          MEND


; EQUS "<value>"
          ; For 'EQUS "something", 13, 0' you will need use DCB directly.
          MACRO
          EQUS    $var
          DCB     "$var"
          MEND


; EQUSZ "<value>"
          MACRO
          EQUSZ   $var
          DCB     "$var", 0
          MEND


; EQUSZA "<value>"
          MACRO
          EQUSZA  $var
          DCB     "$var", 0
          ALIGN
          MEND

; for the dictionary
; snarfed from RISC OS :-)
TokenEscapeChar * 27
Token0          * 0
          MACRO
          TokenString $n,$s
Token$n        *  $n
               =  ?Token$n.String +1
Token$n.String =  $s
          MEND


          END
