2018-10-23 23:06:29 +00:00
|
|
|
.cpu "65816"
|
|
|
|
longsym = $123456
|
|
|
|
|
|
|
|
* = $1000
|
|
|
|
.as
|
|
|
|
.xs
|
|
|
|
clc
|
|
|
|
xce
|
|
|
|
sep #$30
|
|
|
|
jmp L0000
|
|
|
|
|
|
|
|
.logical $0000
|
|
|
|
L0000 bit @wL0000
|
2019-11-17 01:15:03 +00:00
|
|
|
_L0003 lda L0000
|
|
|
|
lda _L0003
|
|
|
|
bne _LFFC3
|
2018-10-23 23:06:29 +00:00
|
|
|
bmi $ffc3
|
2019-11-17 01:15:03 +00:00
|
|
|
per _LFFC3
|
|
|
|
bvs _L0016
|
|
|
|
brl _L0080
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_lodat .byte $00
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $01
|
|
|
|
.byte $02
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_L0016 lda _lodat+1
|
|
|
|
brl _LFFC0
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
|
|
|
.logical $0080
|
2019-11-17 01:15:03 +00:00
|
|
|
_L0080 bit @w_L0080
|
|
|
|
jml _L440000
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
|
|
|
.logical $ffc0
|
2019-11-17 01:15:03 +00:00
|
|
|
_LFFC0 bit _LFFC0
|
|
|
|
_LFFC3 brl _L0003
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
|
|
|
.logical $440000
|
2019-11-17 01:15:03 +00:00
|
|
|
_L440000 cmp _L440000
|
|
|
|
_L440004 lda _L440000
|
|
|
|
lda @w0+(_L440000 & $ffff)
|
2018-10-23 23:06:29 +00:00
|
|
|
lda L0000
|
2019-11-17 01:15:03 +00:00
|
|
|
bmi _L440004
|
|
|
|
per _high44
|
|
|
|
bne _high44
|
|
|
|
brl _L44FFC0
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_dat44 .word 0+(_dat44 & $ffff)
|
|
|
|
.long _dat44
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
|
|
|
.logical $44ffc0
|
2019-11-17 01:15:03 +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
|
|
|
|
pea 0+(_dat44 & $ffff)
|
|
|
|
pea 0+(_dat44 >> 16)
|
|
|
|
bne _L200E
|
|
|
|
jml [_lodat]
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_L200E nop
|
|
|
|
jsr _j2
|
|
|
|
_j2 jsr _j2+3
|
|
|
|
jsr _j2-3
|
2018-10-23 23:06:29 +00:00
|
|
|
jsl longsym
|
|
|
|
rts
|
|
|
|
|
|
|
|
.here
|