mirror of
https://github.com/fadden/6502bench.git
synced 2024-08-19 20:29:36 +00:00
07f5396eee
External symbols don't have a file offset, so a JSR to an external address can't reliably be matched to a label.
103 lines
1.9 KiB
ArmAsm
103 lines
1.9 KiB
ArmAsm
.setcpu "6502"
|
|
InW_project = $e000
|
|
|
|
.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
|
|
|
|
.res 54,$00
|
|
|
|
L1040: nop
|
|
jsr InAZ_test
|
|
.asciiz "Test AZ_ low"
|
|
jsr InAZ_test
|
|
.byte $d4,$e5,$f3,$f4,$a0,$c1,$da,$df,$a0,$e8,$e9,$e7,$e8,$00
|
|
jsr InA1_test
|
|
.byte $0c,"Test A1_ low"
|
|
jsr InA1_test
|
|
.byte $0d,$d4,$e5,$f3,$f4,$a0,$c1,$b1,$df,$a0,$e8,$e9,$e7,$e8
|
|
jsr InPZ_test
|
|
.byte $d4,$45,$53,$54,$20,$d0,$da,$5f,$00
|
|
jsr InP1_test
|
|
.byte $08,$d4,$45,$53,$54,$20,$d0,$31,$5f
|
|
jsr InW_test
|
|
.word $1234
|
|
jsr InWA_test
|
|
.word L1040
|
|
jsr @L10AD
|
|
jsr InNR_test
|
|
|
|
.byte $ea
|
|
.byte $00
|
|
|
|
@L10AD: nop
|
|
jsr InW_test1
|
|
.word $1100
|
|
nop
|
|
jmp L4000
|
|
|
|
.byte $80
|
|
|
|
.org $2000
|
|
InW_test1: nop
|
|
jsr InW_test1
|
|
.word $1200
|
|
rts
|
|
|
|
.byte $80
|
|
|
|
.org $2000
|
|
InW_test2: nop
|
|
jsr InW_test2
|
|
.word $1300
|
|
rts
|
|
|
|
.byte $80
|
|
|
|
.org $2000
|
|
not_inline: nop
|
|
jsr not_inline
|
|
bit not_inline
|
|
rts
|
|
|
|
.byte $81
|
|
.org $0000
|
|
InW_na_test: .byte $ea
|
|
.byte $20
|
|
.byte $00
|
|
.byte $30
|
|
.byte $60
|
|
.byte $81
|
|
|
|
.org $4000
|
|
L4000: bit L4000
|
|
jsr InW_project
|
|
jmp @LF000
|
|
|
|
.org $f000
|
|
@LF000: jsr @LF008
|
|
jsr @LF015
|
|
nop
|
|
rts
|
|
|
|
@LF008: jsr InA1_test
|
|
.byte $ff
|
|
.byte "too long"
|
|
.byte $ea
|
|
|
|
@LF015: jsr InAZ_test
|
|
.byte "does not end"
|