mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-11 13:50:13 +00:00
39b7b20144
This is the first step toward changing the address region map from a linear list to a hierarchy. See issue #107 for the plan. The AddressMap class has been rewritten to support the new approach. The rest of the project has been updated to conform to the new API, but feature-wise is unchanged. While the map class supports nested regions with explicit lengths, the rest of the application still assumes a series of non-overlapping regions with "floating" lengths. The Set Address dialog is currently non-functional. All of the output for cc65 changed because generation of segment comments has been removed. Some of the output for ACME changed as well, because we no longer follow "* = addr" with a redundant pseudopc statement. ACME and 65tass have similar approaches to placing things in memory, and so now have similar implementations.
148 lines
2.8 KiB
ArmAsm
148 lines
2.8 KiB
ArmAsm
.setcpu "65816"
|
|
zero = $00
|
|
longsym = $123456
|
|
|
|
.org $1000
|
|
.a8
|
|
.i8
|
|
clc
|
|
xce
|
|
sep #$30
|
|
jml L440000
|
|
|
|
lodat: .byte $00
|
|
.byte $01
|
|
.byte $02
|
|
|
|
.org $440000
|
|
L440000: cmp L440000
|
|
L440004: lda L440000
|
|
lda a:L440000 & $ffff
|
|
lda zero
|
|
bmi L440004
|
|
.byte $62,$b2,$ff
|
|
.byte $d0,$b0
|
|
.byte $82,$a9,$ff
|
|
|
|
dat44: .word dat44 & $ffff
|
|
.faraddr dat44
|
|
|
|
.org $44ffc0
|
|
L44FFC0: cmp L44FFC0
|
|
high44: beq @L44FFCB
|
|
.byte $30,$3c
|
|
.byte $82,$39,$00
|
|
|
|
@L44FFCB: jml @L2000
|
|
|
|
.org $2000
|
|
@L2000: bit @L2000
|
|
pea dat44 & $ffff
|
|
pea dat44 >> 16
|
|
bne skip
|
|
jml [lodat]
|
|
|
|
skip: nop
|
|
jsr j2
|
|
j2: jsr j2+3
|
|
jsr j2-3
|
|
jsl longsym
|
|
jml bank54
|
|
|
|
.org $543210
|
|
bank54: cmp bank54
|
|
bra L54321C
|
|
|
|
backchk: nop
|
|
nop
|
|
rts
|
|
|
|
backval: .faraddr backchk
|
|
|
|
L54321C: lda backchk
|
|
lda f:fwdchk
|
|
lda $543216
|
|
lda $54327d
|
|
lda backchk & $ffff +1
|
|
lda backchk & $ffff -1
|
|
lda fwdchk & $ffff +1
|
|
lda fwdval & $ffff +2
|
|
nop
|
|
jsr backchk & $ffff
|
|
jsr backchk & $ffff +1
|
|
jsr $3218
|
|
jsr fwdchk & $ffff
|
|
jsr fwdchk & $ffff +1
|
|
jsr $327f
|
|
nop
|
|
ldx #$00
|
|
jsr (backval & $ffff,x)
|
|
jsr (fwdval & $ffff,x)
|
|
jsr @L54326E & $ffff
|
|
jsr @L543271 & $ffff
|
|
jsr @L543268 & $ffff
|
|
jsr @L54326B & $ffff
|
|
jsr @L543274 & $ffff
|
|
jsr @L543277 & $ffff
|
|
bra L543280
|
|
|
|
@L543268: jmp (backval & $ffff,x)
|
|
|
|
@L54326B: jmp (fwdval & $ffff,x)
|
|
|
|
@L54326E: jmp (lodat)
|
|
|
|
@L543271: jmp (lodat)
|
|
|
|
@L543274: jml [lodat]
|
|
|
|
@L543277: jml [lodat]
|
|
|
|
fwdval: .faraddr fwdchk
|
|
|
|
fwdchk: nop
|
|
nop
|
|
rts
|
|
|
|
L543280: jsr skip
|
|
nop
|
|
rep #$30
|
|
.a16
|
|
.i16
|
|
php
|
|
lda #$0000
|
|
sep #$30
|
|
.a8
|
|
.i8
|
|
lda #$00
|
|
plp
|
|
lda #$ea
|
|
nop
|
|
sep #$30
|
|
php
|
|
lda #$00
|
|
rep #$30
|
|
.a16
|
|
.i16
|
|
lda #$0000
|
|
plp
|
|
lda #$eaea
|
|
rep #$30
|
|
nop
|
|
lda skip
|
|
lda skip+20
|
|
jsr skip
|
|
jsr skip+20
|
|
jsr (skip,x)
|
|
bne @L5432B7
|
|
jmp (skip,x)
|
|
|
|
@L5432B7: jsr $edcb
|
|
lda $edcb
|
|
bne @L5432C2
|
|
jmp ($edcb,x)
|
|
|
|
@L5432C2: nop
|
|
rtl
|
|
|