1
0
mirror of https://github.com/fadden/6502bench.git synced 2024-11-19 21:31:30 +00:00
6502bench/SourceGen/SGTestData/Expected/20052-branches-and-banks_merlin32.S

142 lines
2.4 KiB
ArmAsm
Raw Normal View History

zero equ $00
2018-09-28 17:05:11 +00:00
longsym equ $123456
org $1000
clc
xce
sep #$30
jml L440000
2018-09-28 17:05:11 +00:00
lodat dfb $00
2018-09-28 17:05:11 +00:00
dfb $01
dfb $02
org $440000
L440000 cmpl L440000
L440004 ldal L440000
lda: L440000
lda zero
bmi L440004
2018-09-28 17:05:11 +00:00
dfb $62,$b2,$ff
dfb $d0,$b0
dfb $82,$a9,$ff
dat44 dw dat44
adr dat44
2018-09-28 17:05:11 +00:00
org $44ffc0
L44FFC0 cmpl L44FFC0
high44 beq :L44FFCB
2018-09-28 17:05:11 +00:00
dfb $30,$3c
dfb $82,$39,$00
:L44FFCB jml :L2000
2018-09-28 17:05:11 +00:00
org $2000
:L2000 bit :L2000
pea dat44
pea ^dat44
bne skip
jml [lodat]
2018-09-28 17:05:11 +00:00
skip nop
jsr j2
j2 jsr j2+3
jsr j2-3
2018-09-28 17:05:11 +00:00
jsl longsym
jml bank54
org $543210
bank54 cmpl bank54
bra L54321C
backchk nop
nop
rts
backval adr backchk
L54321C ldal backchk
ldal fwdchk
ldal $543216
ldal $54327d
lda backchk+1
lda backchk-1
lda fwdchk+1
lda fwdval+2
nop
jsr backchk
jsr backchk+1
jsr $3218
jsr fwdchk
jsr fwdchk+1
jsr $327f
nop
ldx #$00
jsr (backval,x)
jsr (fwdval,x)
jsr :L54326E
jsr :L543271
jsr :L543268
jsr :L54326B
jsr :L543274
jsr :L543277
bra L543280
:L543268 jmp (backval,x)
:L54326B jmp (fwdval,x)
:L54326E jmp (lodat)
:L543271 jmp (lodat)
:L543274 jml [lodat]
:L543277 jml [lodat]
fwdval adr fwdchk
fwdchk nop
nop
rts
L543280 jsr skip
nop
rep #$30
mx %00
php
lda #$0000
sep #$30
mx %11
lda #$00
plp
lda #$ea
nop
sep #$30
php
lda #$00
rep #$30
mx %00
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
2018-09-28 17:05:11 +00:00