mirror of
https://github.com/fadden/6502bench.git
synced 2024-09-10 13:54:52 +00:00
When we have relocation data available, the code currently skips the process of matching an address with a label for a PEA instruction when the instruction in question doesn't have reloc data. This does a great job of separating code that pushes parts of addresses from code that pushes constants. This change expands the behavior to exclude instructions with 16-bit address operands that use the Data Bank Register, e.g. "LDA abs" and "LDA abs,X". This is particularly useful for code that accesses structured data using the operand as the structure offset, e.g. "LDX addr" / "LDA $0000,X" The 20212-reloc-data test has been updated to check the behavior.
154 lines
3.1 KiB
ArmAsm
154 lines
3.1 KiB
ArmAsm
;Segment 02: Kind=Code; Attrs=NoSpecial; Name=' '
|
|
org $030000
|
|
mx %00
|
|
L30000 clc
|
|
xce
|
|
mx %11
|
|
sep #$30
|
|
ldal L30000
|
|
nop
|
|
jsl :L23456
|
|
jsl :L80000
|
|
ldal :L23456
|
|
lda :L23456
|
|
lda #<:L23456
|
|
lda #>:L23456
|
|
lda #^:L23456
|
|
ldal :L80019
|
|
lda: :L80019
|
|
lda #<:L80019
|
|
lda #>:L80019
|
|
lda #^:L80019
|
|
nop
|
|
rep #$30
|
|
mx %00
|
|
lda #:L80019
|
|
lda #>:L80019
|
|
lda #^:L80019
|
|
nop
|
|
lda #$000f
|
|
ldx #:L80026
|
|
ldy #:L23467
|
|
mvn #^:L23467+$60000,#^:L23467
|
|
nop
|
|
lda $0000,y
|
|
sta $0002,y
|
|
:L3004B pea $0000
|
|
pea $f000
|
|
pea :L80019
|
|
pea ^:L80019
|
|
pea :L3004B
|
|
pea >:L3004B
|
|
:L3005D pea ^:L3004B
|
|
pea :L3005D
|
|
pea $104b
|
|
nop
|
|
jmp :L30073
|
|
|
|
dw :L4FFE0
|
|
adr :L4FFE0
|
|
adr :L4FFE0
|
|
dfb $00
|
|
|
|
:L30073 phk
|
|
plb
|
|
lda #$0000
|
|
asl A
|
|
asl A
|
|
tax
|
|
lda: :L30088,x
|
|
pha
|
|
lda: :L30086,x
|
|
pha
|
|
beq :L3008E
|
|
rts
|
|
|
|
:L30086 dfb $4b
|
|
dfb $00
|
|
:L30088 dfb $03
|
|
dfb $00
|
|
adr :L30073
|
|
dfb $00
|
|
|
|
:L3008E rts
|
|
|
|
;Segment 03: Kind=Data; Attrs=BankRel, Dynamic; Name='PosFFE0 '
|
|
org $04ffe0
|
|
:L4FFE0 adr :L4FFE0
|
|
dfb $00
|
|
dfb $00
|
|
dfb $01
|
|
dfb $02
|
|
dfb $03
|
|
dfb $04
|
|
dfb $05
|
|
dfb $06
|
|
dfb $07
|
|
dfb $08
|
|
dfb $09
|
|
dfb $0a
|
|
dfb $0b
|
|
dfb $0c
|
|
dfb $0d
|
|
dfb $0e
|
|
dfb $0f
|
|
dfb $10
|
|
dfb $11
|
|
dfb $12
|
|
dfb $13
|
|
dfb $14
|
|
dfb $15
|
|
dfb $16
|
|
dfb $17
|
|
dfb $18
|
|
dfb $19
|
|
dfb $1a
|
|
dfb $1b
|
|
org $050000
|
|
dfb $1c
|
|
dfb $1d
|
|
dfb $1e
|
|
dfb $1f
|
|
asc ' !"#$%&',27,'()*+,-./'
|
|
|
|
;Segment 04: Kind=Code; Attrs=NoSpecial; Name='Bank2 '
|
|
org $023456
|
|
mx %11
|
|
:L23456 ldal :L23456
|
|
jsr :L23477
|
|
ldy #<:L23467
|
|
ora $3456
|
|
oral :L23456
|
|
rtl
|
|
|
|
:L23467 ds 16
|
|
|
|
:L23477 nop
|
|
rts
|
|
|
|
;Segment 05: Kind=Code; Attrs=AbsBank, Dynamic; Name='Bank8 '
|
|
org $080000
|
|
:L80000 ldal :L80000
|
|
lda: :L80019
|
|
nop
|
|
ldal $010000
|
|
ldal $020000
|
|
ldal L30000
|
|
ldal :L80000
|
|
rtl
|
|
|
|
:L80019 adr :L80019
|
|
dfb $00
|
|
adr :L23456
|
|
dfb $00
|
|
dfb $80
|
|
dfb $00
|
|
dfb $10
|
|
dfb $08
|
|
dfb $00
|
|
:L80026 asc 'This is a test.'
|
|
dfb $00
|
|
;Segment 06: Kind=Data; Attrs=0; Name='Filler '
|
|
org $060000
|
|
asc 'hello, world!'
|