mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-02 13:51:36 +00:00
478afa542e
On the 65816, if you say "JSR foo" from bank $12, but "foo" is an address in bank 0, most assemblers will conclude that you're forming a 16-bit argument with a 16-bit address and assemble happily. 64tass halts with an error. Up until v1.55 or so, you could fake it out by supplying a large offset. This no longer works. The preferred way to say "no really I mean to do this" is to append ",k" to the operand. We now do that as needed. I didn't want to define a new ExpressionMode for 64tass just to support an operand modifier that should probably never actually get generated (you can't call across banks with JSR!), so this is implemented with a quirk and an op flag. 64tass v1.56.2625 is now the default. (issue #104)
142 lines
2.4 KiB
ArmAsm
142 lines
2.4 KiB
ArmAsm
zero equ $00
|
|
longsym equ $123456
|
|
|
|
org $1000
|
|
clc
|
|
xce
|
|
sep #$30
|
|
jml L440000
|
|
|
|
lodat dfb $00
|
|
dfb $01
|
|
dfb $02
|
|
|
|
org $440000
|
|
L440000 cmpl L440000
|
|
L440004 ldal L440000
|
|
lda: L440000
|
|
lda zero
|
|
bmi L440004
|
|
dfb $62,$b2,$ff
|
|
dfb $d0,$b0
|
|
dfb $82,$a9,$ff
|
|
|
|
dat44 dw dat44
|
|
adr dat44
|
|
|
|
org $44ffc0
|
|
L44FFC0 cmpl L44FFC0
|
|
high44 beq :L44FFCB
|
|
dfb $30,$3c
|
|
dfb $82,$39,$00
|
|
|
|
:L44FFCB jml :L2000
|
|
|
|
org $2000
|
|
:L2000 bit :L2000
|
|
pea dat44
|
|
pea ^dat44
|
|
bne skip
|
|
jml [lodat]
|
|
|
|
skip nop
|
|
jsr j2
|
|
j2 jsr j2+3
|
|
jsr j2-3
|
|
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 $54327d
|
|
|
|
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
|
|
|