mirror of
https://github.com/fadden/6502bench.git
synced 2024-10-10 04:23:44 +00:00
51081c5db0
The code that found a nearby data target for an instruction operand was searching backward but not forward. We now take one step forward, so that "LDA TABLE-1,Y" fills in automatically. This altered 2008-address-changes, which had just this situation. It didn't alter 2010-target-adjustment, but the existing tests were insufficient and have been improved.
88 lines
1.8 KiB
ArmAsm
88 lines
1.8 KiB
ArmAsm
.cpu "65816"
|
|
.enc sg_ascii
|
|
.cdef $20,$7e,$20
|
|
* = $1000
|
|
.as
|
|
.xs
|
|
load11 lda #$11
|
|
L1002 ldx #$22
|
|
load33 ldy #$33
|
|
L1006 lda #$44
|
|
predat bra L1042
|
|
|
|
.word $0123
|
|
dat1 .word $4567
|
|
.word $89ab
|
|
L1010 .word $cdef
|
|
L1012 .word $0011
|
|
L1014 .word $2233
|
|
.byte $80
|
|
.text "The quick brown fox"
|
|
.byte $80
|
|
.word L1042
|
|
.word L1041
|
|
.word L1042+1
|
|
fill0 .fill 16,$00
|
|
L1041 .byte $80
|
|
|
|
L1042 lda predat+2
|
|
lda L1041
|
|
asl dat1
|
|
rol dat1+2
|
|
ror L1010
|
|
and L1012
|
|
ora L1014
|
|
lda fill0
|
|
sta fill0+4
|
|
lda fill0+8
|
|
sta fill0+12
|
|
jsr L1002
|
|
lda L1006
|
|
L1069 pea L1069-1
|
|
per L1069-1
|
|
lda L1069+1
|
|
lda L1069+2
|
|
lda #$ea
|
|
L1077 sta L1077
|
|
L107A sta L107A+1
|
|
sta $107f ;self-ref; operand format refs nonexistent symbol
|
|
brl L2002
|
|
|
|
.byte $80
|
|
dat81 .byte $81
|
|
.logical $2000
|
|
L2000 .byte $82
|
|
.byte $83
|
|
|
|
L2002 bit L2002
|
|
lda dat81
|
|
lda L2000
|
|
bra L2018
|
|
|
|
L200D .byte $7c
|
|
L200E .byte $7d
|
|
L200F .byte $7e
|
|
.byte $7f
|
|
nearby .byte $80
|
|
.byte $81
|
|
.byte $82
|
|
.byte $83
|
|
L2015 .byte $84
|
|
L2016 .byte $85
|
|
L2017 .byte $86
|
|
|
|
L2018 lda L200D
|
|
lda L200E
|
|
lda L200F
|
|
lda nearby-1
|
|
lda nearby
|
|
lda nearby+1
|
|
lda nearby+2
|
|
lda nearby+3
|
|
lda L2015
|
|
lda L2016
|
|
lda L2017
|
|
rts
|
|
|
|
.here
|