lst   off
* [QASM] SYNTAX MERLIN16
* [QASM] Filetype $06
* [QASM] AuxType $2000
* [QASM] Volume TESTASM test.2mg 800K prodos 2mg
* [QASM] copyto TESTASM :SOURCE:${FILE}.bin



         xc    off
         xc
         xc

ZP       equ   $00
         org   $2000

         lda   <$fff0     ;zp
         lda   >$fff0     ;ABS (lo word)
         lda   ^$fff0     ;ABS (hi word)
         lda   |$fff0     ;ABS (long in 65816 mode)
         lda   <$FFF0+$FFFF

         lda   <$fff0+24  ;zp
         lda   >$fff0+24  ;ABS (lo word)
         lda   ^$fff0+24  ;ABS (hi word)
         lda   |$fff0+24  ;ABS (long in 65816 mode)
         ldal  $fff0+24   ;ABS (long in 65816 mode)
         lda:  $fff0+24   ;ABS (long in 65816 mode)
         lda:  $00

         mx    %11
         lda   #<$fff0    ;zp
         lda   #>$fff0    ;ABS (lo word)
         lda   #^$fff0    ;ABS (hi word)
         lda   #<$FFF0+$FFFF
         lda   #>$FFF0+$FFFF
         lda   #^$FFF0+$FFFF

         mx    %00
         lda   #<$fff0    ;zp
         lda   #>$fff0    ;ABS (lo word)
         lda   #^$fff0    ;ABS (hi word)
         lda   #<$FFF0+$FFFF
         lda   #>$FFF0+$FFFF
         lda   #^$FFF0+$FFFF

         ora   ($00)
         lda   ($00)
         bit:  $FFFE,X
         ror:  $FFFE,X
         ora   #ZP
begin
                          ;]m      equ   *
         lda   begin
                          ;lda  ]m

_mymac   mac
]mac1    lda   ]mac1
         ldal  ]1
         ldal  ]2
         eom

_ascmac  mac
         asc   ]1,]2,8D
         eom
                          ;var  'one';'two';'three'
justlable                  ;line with just a lable
start
another  lda   #$00       ;line with everything
         lda   #$00       ;line with opcode, operand comment
         nop              ;line with just opcode
         _mymac *;1
         _mymac *;2
                          ;_ascmac 'hello';'there'

                          ;lup  2
                          ;]m      equ   *
                          ;nop
                          ;lda  ]m
                          ;bra  ]m
                          ;--^

]1       nop
         nop
                          ;bra  ]1

                          ;typ  $06
         db    255
]DPNOP   equ   $80
         lda   ]DPNOP
         jsr   DPCODE
         rts
         org   $0080
DPCODE   nop
         lda   DPCODE
         lda   |DPCODE
         lda   >DPCODE

         lst
         chk
         lst   off