mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-02 13:51:36 +00:00
5ee01ee8a4
Inline strings and 16-bit addresses are sufficiently common that a general-purpose extension script is useful.
56 lines
932 B
ArmAsm
56 lines
932 B
ArmAsm
org $1000
|
|
jmp L1040
|
|
|
|
InAZ_test rts
|
|
|
|
InA1_test rts
|
|
|
|
InPZ_test rts
|
|
|
|
InP1_test rts
|
|
|
|
InW_test rts
|
|
|
|
InWA_test rts
|
|
|
|
InNR_test rts
|
|
|
|
ds 54
|
|
|
|
L1040 nop
|
|
jsr InAZ_test
|
|
asc 'Test AZ_ low',00
|
|
jsr InAZ_test
|
|
asc "Test AZ_ high",00
|
|
jsr InA1_test
|
|
str 'Test A1_ low'
|
|
jsr InA1_test
|
|
str "Test A1_ high"
|
|
jsr InPZ_test
|
|
hex d445535420d0da5f00
|
|
jsr InP1_test
|
|
hex 08d445535420d0315f
|
|
jsr InW_test
|
|
dw $1234
|
|
jsr InWA_test
|
|
dw L1040
|
|
jsr :L10AD
|
|
jsr InNR_test
|
|
|
|
dfb $ea
|
|
dfb $00
|
|
|
|
:L10AD nop
|
|
jsr :L10B6
|
|
jsr :L10C3
|
|
nop
|
|
rts
|
|
|
|
:L10B6 jsr InA1_test
|
|
dfb $ff
|
|
asc 'too long'
|
|
dfb $ea
|
|
|
|
:L10C3 jsr InAZ_test
|
|
asc 'does not end'
|