1
0
mirror of https://github.com/fadden/6502bench.git synced 2024-08-21 02:29:33 +00:00
6502bench/SourceGen/SGTestData/Expected/2010-target-adjustment_Merlin32.S
Andy McFadden 51081c5db0 Tweak "nearby" label finder
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.
2019-10-29 18:12:22 -07:00

82 lines
1.6 KiB
ArmAsm

org $1000
load11 lda #$11
L1002 ldx #$22
load33 ldy #$33
L1006 lda #$44
predat bra L1042
dw $0123
dat1 dw $4567
dw $89ab
L1010 dw $cdef
L1012 dw $0011
L1014 dw $2233
dfb $80
asc 'The quick brown fox'
dfb $80
dw L1042
dw L1041
dw L1042+1
fill0 ds 16,$00
L1041 dfb $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
dfb $80
dat81 dfb $81
org $2000
L2000 dfb $82
dfb $83
L2002 bit L2002
lda dat81
lda L2000
bra L2018
L200D dfb $7c
L200E dfb $7d
L200F dfb $7e
dfb $7f
nearby dfb $80
dfb $81
dfb $82
dfb $83
L2015 dfb $84
L2016 dfb $85
L2017 dfb $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