2018-09-28 10:05:11 -07:00
|
|
|
.setcpu "65816"
|
2020-06-06 17:30:50 -07:00
|
|
|
zero = $00
|
2018-09-28 10:05:11 -07:00
|
|
|
longsym = $123456
|
|
|
|
|
2018-11-18 14:36:03 -08:00
|
|
|
; .segment "SEG000"
|
2018-09-28 10:05:11 -07:00
|
|
|
.org $1000
|
|
|
|
.a8
|
|
|
|
.i8
|
|
|
|
clc
|
|
|
|
xce
|
|
|
|
sep #$30
|
2020-06-06 17:30:50 -07:00
|
|
|
jml L440000
|
2018-09-28 10:05:11 -07:00
|
|
|
|
2020-06-06 17:30:50 -07:00
|
|
|
lodat: .byte $00
|
2018-09-28 10:05:11 -07:00
|
|
|
.byte $01
|
|
|
|
.byte $02
|
|
|
|
|
2020-06-06 17:30:50 -07:00
|
|
|
; .segment "SEG001"
|
2018-09-28 10:05:11 -07:00
|
|
|
.org $440000
|
2020-06-06 17:30:50 -07:00
|
|
|
L440000: cmp L440000
|
|
|
|
L440004: lda L440000
|
|
|
|
lda a:L440000 & $ffff
|
|
|
|
lda zero
|
|
|
|
bmi L440004
|
2018-09-28 10:05:11 -07:00
|
|
|
.byte $62,$b2,$ff
|
|
|
|
.byte $d0,$b0
|
|
|
|
.byte $82,$a9,$ff
|
|
|
|
|
2020-06-06 17:30:50 -07:00
|
|
|
dat44: .word dat44 & $ffff
|
|
|
|
.faraddr dat44
|
2018-09-28 10:05:11 -07:00
|
|
|
|
2020-06-06 17:30:50 -07:00
|
|
|
; .segment "SEG002"
|
2018-09-28 10:05:11 -07:00
|
|
|
.org $44ffc0
|
2020-06-06 17:30:50 -07:00
|
|
|
L44FFC0: cmp L44FFC0
|
|
|
|
high44: beq @L44FFCB
|
2018-09-28 10:05:11 -07:00
|
|
|
.byte $30,$3c
|
|
|
|
.byte $82,$39,$00
|
|
|
|
|
2019-11-16 17:15:03 -08:00
|
|
|
@L44FFCB: jml @L2000
|
2018-09-28 10:05:11 -07:00
|
|
|
|
2020-06-06 17:30:50 -07:00
|
|
|
; .segment "SEG003"
|
2018-09-28 10:05:11 -07:00
|
|
|
.org $2000
|
2019-11-16 17:15:03 -08:00
|
|
|
@L2000: bit @L2000
|
2020-06-06 17:30:50 -07:00
|
|
|
pea dat44 & $ffff
|
|
|
|
pea dat44 >> 16
|
2019-11-16 17:15:03 -08:00
|
|
|
bne @L200E
|
2020-06-06 17:30:50 -07:00
|
|
|
jml [lodat]
|
2018-09-28 10:05:11 -07:00
|
|
|
|
2019-11-16 17:15:03 -08:00
|
|
|
@L200E: nop
|
2020-06-06 17:30:50 -07:00
|
|
|
jsr j2
|
|
|
|
j2: jsr j2+3
|
|
|
|
jsr j2-3
|
2018-09-28 10:05:11 -07:00
|
|
|
jsl longsym
|
|
|
|
rts
|
|
|
|
|