mirror of
https://github.com/marketideas/qasm.git
synced 2026-10-24 07:02:20 +00:00
99 lines
2.4 KiB
ArmAsm
99 lines
2.4 KiB
ArmAsm
lst off
|
|
* Merlin 16+ opcode / addressing smoke test
|
|
* File type BIN ($06), load $2000
|
|
|
|
|
|
|
|
xc off
|
|
xc
|
|
xc
|
|
|
|
ZP equ $00
|
|
org $2000
|
|
|
|
lda <$fff0 ; force DP
|
|
lda >$fff0 ; force long
|
|
lda ^$fff0 ; abs, high word
|
|
lda |$fff0 ; force abs
|
|
lda <$FFF0+$FFFF
|
|
|
|
lda <$fff0+24 ; force DP
|
|
lda >$fff0+24 ; force long
|
|
lda ^$fff0+24 ; abs, high word
|
|
lda |$fff0+24 ; force abs
|
|
ldal $fff0+24 ; long
|
|
lda: $fff0+24 ; force abs
|
|
lda: $00
|
|
|
|
mx %11
|
|
lda #<$fff0 ; imm low byte
|
|
lda #>$fff0 ; imm high byte
|
|
lda #^$fff0 ; imm bank
|
|
lda #<$FFF0+$FFFF
|
|
lda #>$FFF0+$FFFF
|
|
lda #^$FFF0+$FFFF
|
|
|
|
mx %00
|
|
lda #<$fff0 ; imm low word
|
|
lda #>$fff0 ; imm high word
|
|
lda #^$fff0 ; imm bank 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
|