mirror of
https://github.com/fadden/6502bench.git
synced 2024-05-31 22:41:37 +00:00
fa04c98dac
The implementation was mapping labels to addresses, then formatting inline data at the matching address. This may be incorrect when there are multiple sections of the file mapped to the same address. The correct approach is to record the offsets of the matching labels, and then do an address-to-offset translation for each JSR. Also, show a note in the Info window when a JSR has been marked no-continue by an extension script. Also, updated Daily Tips.
110 lines
1.9 KiB
ArmAsm
110 lines
1.9 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 InW_test1
|
|
.word $1100
|
|
nop
|
|
jmp LF000
|
|
|
|
.byte $80
|
|
|
|
.logical $2000
|
|
InW_test1 nop
|
|
jsr InW_test1
|
|
.word $1200
|
|
rts
|
|
|
|
.byte $80
|
|
.here
|
|
|
|
.logical $2000
|
|
InW_test2 nop
|
|
jsr InW_test2
|
|
.word $1300
|
|
rts
|
|
|
|
.byte $80
|
|
.here
|
|
|
|
.logical $2000
|
|
not_inline nop
|
|
jsr not_inline
|
|
bit not_inline
|
|
rts
|
|
|
|
.byte $81
|
|
.here
|
|
.logical $0000
|
|
InW_na_test .byte $ea
|
|
.byte $20
|
|
.byte $00
|
|
.byte $30
|
|
.byte $60
|
|
.byte $81
|
|
.here
|
|
|
|
.logical $f000
|
|
LF000 jsr _LF008
|
|
jsr _LF015
|
|
nop
|
|
rts
|
|
|
|
_LF008 jsr InA1_test
|
|
.byte $ff
|
|
.enc "sg_ascii"
|
|
.text "too long"
|
|
.byte $ea
|
|
|
|
_LF015 jsr InAZ_test
|
|
.text "does not end"
|
|
.here
|