2018-09-28 17:05:11 +00:00
|
|
|
.setcpu "65816"
|
|
|
|
longsym = $123456
|
|
|
|
|
2018-11-18 22:36:03 +00:00
|
|
|
; .segment "SEG000"
|
2018-09-28 17:05:11 +00:00
|
|
|
.org $1000
|
|
|
|
.a8
|
|
|
|
.i8
|
|
|
|
clc
|
|
|
|
xce
|
|
|
|
sep #$30
|
|
|
|
jmp L0000
|
|
|
|
|
2018-11-18 22:36:03 +00:00
|
|
|
; .segment "SEG001"
|
2018-09-28 17:05:11 +00:00
|
|
|
.org $0000
|
|
|
|
L0000: bit a:L0000
|
2019-11-17 01:15:03 +00:00
|
|
|
@L0003: lda L0000
|
|
|
|
lda @L0003
|
2018-09-28 17:05:11 +00:00
|
|
|
.byte $d0,$ba
|
|
|
|
.byte $30,$b8
|
|
|
|
.byte $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: .byte $00
|
2018-09-28 17:05:11 +00:00
|
|
|
.byte $01
|
|
|
|
.byte $02
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L0016: lda @lodat+1
|
2018-09-28 17:05:11 +00:00
|
|
|
.byte $82,$a5,$ff
|
|
|
|
|
2018-11-18 22:36:03 +00:00
|
|
|
; .segment "SEG002"
|
2018-09-28 17:05:11 +00:00
|
|
|
.org $0080
|
2019-11-17 01:15:03 +00:00
|
|
|
@L0080: bit a:@L0080
|
|
|
|
jml @L440000
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2018-11-18 22:36:03 +00:00
|
|
|
; .segment "SEG003"
|
2018-09-28 17:05:11 +00:00
|
|
|
.org $ffc0
|
2019-11-17 01:15:03 +00:00
|
|
|
@LFFC0: bit @LFFC0
|
|
|
|
@LFFC3: .byte $82,$3d,$00
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2018-11-18 22:36:03 +00:00
|
|
|
; .segment "SEG004"
|
2018-09-28 17:05:11 +00:00
|
|
|
.org $440000
|
2019-11-17 01:15:03 +00:00
|
|
|
@L440000: cmp @L440000
|
|
|
|
@L440004: lda @L440000
|
|
|
|
lda a:@L440000 & $ffff
|
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
|
|
|
.byte $62,$b2,$ff
|
|
|
|
.byte $d0,$b0
|
|
|
|
.byte $82,$a9,$ff
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@dat44: .word @dat44 & $ffff
|
|
|
|
.faraddr @dat44
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2018-11-18 22:36:03 +00:00
|
|
|
; .segment "SEG005"
|
2018-09-28 17:05:11 +00:00
|
|
|
.org $44ffc0
|
2019-11-17 01:15:03 +00:00
|
|
|
@L44FFC0: cmp @L44FFC0
|
|
|
|
@high44: beq @L44FFCB
|
2018-09-28 17:05:11 +00:00
|
|
|
.byte $30,$3c
|
|
|
|
.byte $82,$39,$00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L44FFCB: jml @L2000
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2018-11-18 22:36:03 +00:00
|
|
|
; .segment "SEG006"
|
2018-09-28 17:05:11 +00:00
|
|
|
.org $2000
|
2019-11-17 01:15:03 +00:00
|
|
|
@L2000: bit @L2000
|
|
|
|
pea @dat44 & $ffff
|
|
|
|
pea @dat44 >> 16
|
|
|
|
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
|
|
|
|
|