2018-09-28 17:05:11 +00:00
|
|
|
longsym equ $123456
|
|
|
|
|
|
|
|
org $1000
|
|
|
|
clc
|
|
|
|
xce
|
|
|
|
sep #$30
|
|
|
|
jmp L0000
|
|
|
|
|
|
|
|
org $0000
|
|
|
|
L0000 bit: L0000
|
2019-11-17 01:15:03 +00:00
|
|
|
:L0003 lda L0000
|
|
|
|
lda :L0003
|
2018-09-28 17:05:11 +00:00
|
|
|
dfb $d0,$ba
|
|
|
|
dfb $30,$b8
|
|
|
|
dfb $62,$b5,$ff
|
2019-11-17 01:15:03 +00:00
|
|
|
bvs :L0016
|
|
|
|
brl :L0080
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
:lodat dfb $00
|
2018-09-28 17:05:11 +00:00
|
|
|
dfb $01
|
|
|
|
dfb $02
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
:L0016 lda :lodat+1
|
2018-09-28 17:05:11 +00:00
|
|
|
dfb $82,$a5,$ff
|
|
|
|
|
|
|
|
org $0080
|
2019-11-17 01:15:03 +00:00
|
|
|
:L0080 bit: :L0080
|
|
|
|
jml :L440000
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
org $ffc0
|
2019-11-17 01:15:03 +00:00
|
|
|
:LFFC0 bit :LFFC0
|
|
|
|
:LFFC3 dfb $82,$3d,$00
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
org $440000
|
2019-11-17 01:15:03 +00:00
|
|
|
:L440000 cmpl :L440000
|
|
|
|
:L440004 ldal :L440000
|
|
|
|
lda: :L440000
|
2018-09-28 17:05:11 +00:00
|
|
|
lda L0000
|
2019-11-17 01:15:03 +00:00
|
|
|
bmi :L440004
|
2018-09-28 17:05:11 +00:00
|
|
|
dfb $62,$b2,$ff
|
|
|
|
dfb $d0,$b0
|
|
|
|
dfb $82,$a9,$ff
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
:dat44 dw :dat44
|
|
|
|
adr :dat44
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
org $44ffc0
|
2019-11-17 01:15:03 +00:00
|
|
|
:L44FFC0 cmpl :L44FFC0
|
|
|
|
:high44 beq :L44FFCB
|
2018-09-28 17:05:11 +00:00
|
|
|
dfb $30,$3c
|
|
|
|
dfb $82,$39,$00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
:L44FFCB jml :L2000
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
org $2000
|
2019-11-17 01:15:03 +00:00
|
|
|
:L2000 bit :L2000
|
|
|
|
pea :dat44
|
|
|
|
pea ^:dat44
|
|
|
|
bne :L200E
|
|
|
|
jml [:lodat]
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
:L200E nop
|
|
|
|
jsr :j2
|
|
|
|
:j2 jsr :j2+3
|
|
|
|
jsr :j2-3
|
2018-09-28 17:05:11 +00:00
|
|
|
jsl longsym
|
|
|
|
rts
|
|
|
|
|