2018-10-23 23:06:29 +00:00
|
|
|
.cpu "65816"
|
2020-06-07 00:30:50 +00:00
|
|
|
zero = $00
|
2018-10-23 23:06:29 +00:00
|
|
|
longsym = $123456
|
|
|
|
|
|
|
|
* = $1000
|
|
|
|
.as
|
|
|
|
.xs
|
|
|
|
clc
|
|
|
|
xce
|
|
|
|
sep #$30
|
2020-06-07 00:30:50 +00:00
|
|
|
jml L440000
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2020-06-07 00:30:50 +00:00
|
|
|
lodat .byte $00
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $01
|
|
|
|
.byte $02
|
|
|
|
|
|
|
|
.logical $440000
|
2020-06-07 00:30:50 +00:00
|
|
|
L440000 cmp L440000
|
|
|
|
L440004 lda L440000
|
2020-07-02 20:00:02 +00:00
|
|
|
lda @wL440000 & $ffff
|
2020-06-07 00:30:50 +00:00
|
|
|
lda zero
|
|
|
|
bmi L440004
|
|
|
|
per high44
|
|
|
|
bne high44
|
|
|
|
brl L44FFC0
|
|
|
|
|
2020-07-02 20:00:02 +00:00
|
|
|
dat44 .word dat44 & $ffff
|
2020-06-07 00:30:50 +00:00
|
|
|
.long dat44
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
|
|
|
.logical $44ffc0
|
2020-06-07 00:30:50 +00:00
|
|
|
L44FFC0 cmp L44FFC0
|
|
|
|
high44 beq _L44FFCB
|
|
|
|
bmi L440004
|
|
|
|
brl L440004
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_L44FFCB jml _L2000
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
|
|
|
.logical $2000
|
2019-11-17 01:15:03 +00:00
|
|
|
_L2000 bit _L2000
|
2020-07-02 20:00:02 +00:00
|
|
|
pea dat44 & $ffff
|
|
|
|
pea dat44 >> 16
|
2020-07-02 00:59:12 +00:00
|
|
|
bne skip
|
2020-06-07 00:30:50 +00:00
|
|
|
jml [lodat]
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2020-07-02 00:59:12 +00:00
|
|
|
skip nop
|
2020-06-07 00:30:50 +00:00
|
|
|
jsr j2
|
|
|
|
j2 jsr j2+3
|
|
|
|
jsr j2-3
|
2018-10-23 23:06:29 +00:00
|
|
|
jsl longsym
|
2020-07-02 00:59:12 +00:00
|
|
|
jml bank54
|
|
|
|
|
|
|
|
.here
|
|
|
|
.logical $543210
|
|
|
|
bank54 cmp bank54
|
|
|
|
bra L54321C
|
|
|
|
|
|
|
|
backchk nop
|
|
|
|
nop
|
2020-07-03 20:58:18 +00:00
|
|
|
rts
|
2020-07-02 00:59:12 +00:00
|
|
|
|
|
|
|
backval .long backchk
|
|
|
|
|
|
|
|
L54321C lda backchk
|
|
|
|
lda fwdchk
|
|
|
|
lda $543216
|
|
|
|
lda $54327d
|
|
|
|
lda 0+(backchk & $ffff)+1
|
|
|
|
lda 0+(backchk & $ffff)-1
|
|
|
|
lda 0+(fwdchk & $ffff)+1
|
|
|
|
lda 0+(fwdval & $ffff)+2
|
|
|
|
nop
|
|
|
|
jsr backchk
|
|
|
|
jsr backchk+1
|
2020-07-03 20:58:18 +00:00
|
|
|
jsr $543218
|
2020-07-02 00:59:12 +00:00
|
|
|
jsr fwdchk
|
|
|
|
jsr fwdchk+1
|
2020-07-03 20:58:18 +00:00
|
|
|
jsr $54327f
|
2020-07-02 00:59:12 +00:00
|
|
|
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)
|
|
|
|
|
2020-07-04 22:03:23 +00:00
|
|
|
_L54326E jmp (lodat)
|
2020-07-02 00:59:12 +00:00
|
|
|
|
2020-07-04 22:03:23 +00:00
|
|
|
_L543271 jmp (lodat)
|
2020-07-02 00:59:12 +00:00
|
|
|
|
2020-07-04 22:03:23 +00:00
|
|
|
_L543274 jml [lodat]
|
2020-07-02 00:59:12 +00:00
|
|
|
|
2020-07-04 22:03:23 +00:00
|
|
|
_L543277 jml [lodat]
|
2020-07-02 00:59:12 +00:00
|
|
|
|
|
|
|
fwdval .long fwdchk
|
|
|
|
|
|
|
|
fwdchk nop
|
|
|
|
nop
|
2020-07-03 20:58:18 +00:00
|
|
|
rts
|
2020-07-02 00:59:12 +00:00
|
|
|
|
2021-08-09 20:47:04 +00:00
|
|
|
L543280 jsr skip,k
|
2020-07-03 20:58:18 +00:00
|
|
|
nop
|
2020-07-20 18:54:00 +00:00
|
|
|
rep #$30
|
|
|
|
.al
|
|
|
|
.xl
|
|
|
|
php
|
|
|
|
lda #$0000
|
|
|
|
sep #$30
|
|
|
|
.as
|
|
|
|
.xs
|
|
|
|
lda #$00
|
|
|
|
plp
|
|
|
|
lda #$ea
|
2020-07-03 20:58:18 +00:00
|
|
|
nop
|
2020-07-20 18:54:00 +00:00
|
|
|
sep #$30
|
|
|
|
php
|
|
|
|
lda #$00
|
|
|
|
rep #$30
|
|
|
|
.al
|
|
|
|
.xl
|
|
|
|
lda #$0000
|
|
|
|
plp
|
|
|
|
lda #$eaea
|
|
|
|
rep #$30
|
2020-07-03 20:58:18 +00:00
|
|
|
nop
|
2021-08-09 20:47:04 +00:00
|
|
|
lda skip
|
|
|
|
lda skip+20
|
|
|
|
jsr skip,k
|
|
|
|
jsr skip+20,k
|
|
|
|
jsr (skip,k,x)
|
|
|
|
bne _L5432B7
|
|
|
|
jmp (skip,k,x)
|
|
|
|
|
|
|
|
_L5432B7 jsr $54edcb
|
|
|
|
lda $edcb
|
|
|
|
bne _L5432C2
|
|
|
|
jmp ($54edcb,x)
|
|
|
|
|
|
|
|
_L5432C2 nop
|
2020-07-02 00:59:12 +00:00
|
|
|
rtl
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|