mirror of
https://github.com/fadden/6502bench.git
synced 2024-09-11 20:54:37 +00:00
66 lines
1.2 KiB
ArmAsm
66 lines
1.2 KiB
ArmAsm
|
.cpu "6502"
|
||
|
.enc "sg_hiascii"
|
||
|
.cdef $20,$7e,$a0
|
||
|
.enc "sg_ascii"
|
||
|
.cdef $20,$7e,$20
|
||
|
* = $1000
|
||
|
jmp L1040
|
||
|
|
||
|
InAZ_test rts
|
||
|
|
||
|
InA1_test rts
|
||
|
|
||
|
InPZ_test rts
|
||
|
|
||
|
InP1_test rts
|
||
|
|
||
|
InW_test rts
|
||
|
|
||
|
InWA_test rts
|
||
|
|
||
|
InNR_test rts
|
||
|
|
||
|
.fill 54,$00
|
||
|
|
||
|
L1040 nop
|
||
|
jsr InAZ_test
|
||
|
.null "Test AZ_ low"
|
||
|
jsr InAZ_test
|
||
|
.enc "sg_hiascii"
|
||
|
.null "Test AZ_ high"
|
||
|
jsr InA1_test
|
||
|
.enc "sg_ascii"
|
||
|
.ptext "Test A1_ low"
|
||
|
jsr InA1_test
|
||
|
.enc "sg_hiascii"
|
||
|
.ptext "Test A1_ high"
|
||
|
jsr InPZ_test
|
||
|
.enc "none"
|
||
|
.null "Test PZ",$5f
|
||
|
jsr InP1_test
|
||
|
.ptext "Test P1",$5f
|
||
|
jsr InW_test
|
||
|
.word $1234
|
||
|
jsr InWA_test
|
||
|
.word L1040
|
||
|
jsr _L10AD
|
||
|
jsr InNR_test
|
||
|
|
||
|
.byte $ea
|
||
|
.byte $00
|
||
|
|
||
|
_L10AD nop
|
||
|
jsr _L10B6
|
||
|
jsr _L10C3
|
||
|
nop
|
||
|
rts
|
||
|
|
||
|
_L10B6 jsr InA1_test
|
||
|
.byte $ff
|
||
|
.enc "sg_ascii"
|
||
|
.text "too long"
|
||
|
.byte $ea
|
||
|
|
||
|
_L10C3 jsr InAZ_test
|
||
|
.text "does not end"
|