mirror of https://github.com/marketideas/qasm.git
93 lines
2.1 KiB
ArmAsm
93 lines
2.1 KiB
ArmAsm
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
|
|
lst
|
|
;lst OFF
|
|
ZP equ $00
|
|
org $2000
|
|
lda $04,y
|
|
adc $04,y
|
|
sbc $04,y
|
|
sta $04,y
|
|
|
|
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)
|
|
|
|
lda #<$fff0 ;zp
|
|
lda #>$fff0 ;ABS (lo word)
|
|
lda #^$fff0 ;ABS (hi word)
|
|
lda #<$FFF0+$FFFF
|
|
lda #>$FFF0+$FFFF
|
|
|
|
|
|
|
|
lst off
|
|
end
|
|
ora ($00)
|
|
lda ($00)
|
|
bit: $FFFE,X
|
|
ror: $FFFE,X
|
|
ora #ZP
|
|
begin
|
|
;]m equ *
|
|
; lda begin
|
|
; lda ]m
|
|
;lst on
|
|
;end
|
|
|
|
_mymac mac
|
|
]mac1 lda ]mac1
|
|
ldal ]1
|
|
ldal ]2
|
|
eom
|
|
|
|
_ascmac mac
|
|
asc ]1,]2,8D
|
|
eom
|
|
;lst off
|
|
;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
|
|
--^
|
|
sav 2/test.bin
|
|
end
|
|
|
|
|
|
]1 nop
|
|
nop
|
|
;lst
|
|
bra ]1
|
|
|
|
;typ $06
|
|
db 255
|
|
;lst off
|