mirror of https://github.com/marketideas/qasm.git
102 lines
2.5 KiB
ArmAsm
102 lines
2.5 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
|
|
|
|
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
|