mirror of
https://github.com/fadden/6502bench.git
synced 2024-10-24 19:25:47 +00:00
18e6951f17
On the 65816, 16-bit data access instructions (e.g. LDA abs) are expanded to 24 bits by merging in the Data Bank Register (B). The value of the register is difficult to determine via static analysis, so we need a way to annotate the disassembly with the correct value. Without this, the mapping of address to file offset will sometimes be incorrect. This change adds the basic data structures and "fixup" function, a functional but incomplete editor, and source for a new test case.
107 lines
2.0 KiB
ArmAsm
107 lines
2.0 KiB
ArmAsm
; Copyright 2020 faddenSoft. All Rights Reserved.
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
|
;
|
|
; Assembler: Merlin 32
|
|
|
|
org $1000
|
|
|
|
start
|
|
clc
|
|
xce
|
|
sep #$30
|
|
mx %11
|
|
|
|
lda start
|
|
lda bank2
|
|
|
|
phk
|
|
plb
|
|
lda start
|
|
lda bank2
|
|
|
|
lda #$02
|
|
pha
|
|
plb ;EDIT: set DBR=$02
|
|
lda start
|
|
lda bank2
|
|
|
|
lda #$08
|
|
pha
|
|
plb ;EDIT: set DBR=$08
|
|
jsl bank2
|
|
|
|
lda #$02
|
|
pha
|
|
plb ;EDIT: set DBR=$02
|
|
jsl bank3
|
|
|
|
phk
|
|
plb
|
|
bit start
|
|
|
|
jml alldone
|
|
|
|
code2bz
|
|
dw snippet ;EDIT: format as 16-bit address
|
|
snippet rts
|
|
|
|
code2zero
|
|
adr code2b ;EDIT: format as 24-bit address
|
|
|
|
|
|
|
|
org $022000
|
|
bank2
|
|
ldal bank2 ;EDIT: set DBR=$08
|
|
ldx #$00
|
|
jsr code2a
|
|
jsr :call2bz
|
|
jsr :call2zero
|
|
nop
|
|
|
|
lda #$03
|
|
pha
|
|
plb ;EDIT: set DBR=$03
|
|
lda bank3dat
|
|
|
|
rtl
|
|
|
|
:call2bz
|
|
jmp (code2bz) ;source/target in bank 0
|
|
:call2zero
|
|
jmp [code2zero] ;source in bank 0
|
|
|
|
code2a
|
|
jmp (bank2addr,x) ;both addresses formed with K
|
|
code2b
|
|
nop
|
|
rts
|
|
|
|
bank2addr
|
|
dw code2b
|
|
|
|
|
|
org $033000
|
|
bank3
|
|
ldal bank3 ;EDIT: set DBR=$02
|
|
jsr :post_plb
|
|
beq :skip_mayhem
|
|
; Test PHK/PLB with an address shift in the middle. Not really something
|
|
; that should ever happen, but we need to handle everything.
|
|
phk
|
|
org $033020 ;EDIT: set address
|
|
:post_plb
|
|
plb
|
|
:self nop
|
|
bra :skip_mayhem
|
|
|
|
:skip_mayhem
|
|
lda bank2addr
|
|
rtl
|
|
|
|
bank3dat
|
|
dw bank3dat
|
|
|
|
|
|
alldone rts
|