mirror of
https://github.com/fadden/6502bench.git
synced 2024-08-20 11:28:58 +00:00
Inline strings and 16-bit addresses are sufficiently common that a general-purpose extension script is useful.
57 lines
1010 B
ArmAsm
57 lines
1010 B
ArmAsm
!cpu 6502
|
|
* = $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
|
|
!text "Test AZ_ low",$00
|
|
jsr InAZ_test
|
|
!hex d4e5f3f4a0c1dadfa0e8e9e7e800
|
|
jsr InA1_test
|
|
!text $0c,"Test A1_ low"
|
|
jsr InA1_test
|
|
!hex 0dd4e5f3f4a0c1b1dfa0e8e9e7e8
|
|
jsr InPZ_test
|
|
!pet "Test PZ",$5f,$00
|
|
jsr InP1_test
|
|
!pet $08,"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
|
|
!text "too long"
|
|
!byte $ea
|
|
|
|
@L10C3 jsr InAZ_test
|
|
!text "does not end"
|