2018-09-28 17:05:11 +00:00
|
|
|
.setcpu "65816"
|
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
|
|
|
|
jsr L1014
|
|
|
|
jsr L101C
|
|
|
|
jsr L102A
|
|
|
|
jsr L102F
|
|
|
|
jsr L1059
|
|
|
|
rts
|
|
|
|
|
|
|
|
L1014: lda #$00
|
|
|
|
.byte $2c
|
|
|
|
L1017: lda #$01
|
|
|
|
beq L1017
|
|
|
|
rts
|
|
|
|
|
|
|
|
L101C: sep #$30
|
|
|
|
lda $00
|
|
|
|
beq L1025
|
|
|
|
lda #$00
|
|
|
|
.byte $00
|
|
|
|
|
|
|
|
L1025: sta $012345
|
|
|
|
rts
|
|
|
|
|
|
|
|
L102A: .byte $20
|
|
|
|
L102B: rts
|
|
|
|
|
|
|
|
.byte $ea
|
|
|
|
bra L102B
|
|
|
|
|
|
|
|
L102F: .byte $2c
|
|
|
|
L1030: .byte $2c
|
|
|
|
L1031: .byte $2c
|
|
|
|
L1032: .byte $2c
|
|
|
|
L1033: .byte $2c
|
|
|
|
L1034: .byte $2c
|
|
|
|
L1035: .byte $2c
|
|
|
|
L1036: .byte $2c
|
|
|
|
L1037: .byte $2c
|
|
|
|
L1038: nop
|
|
|
|
nop
|
|
|
|
asl A
|
|
|
|
bcc L102F
|
|
|
|
asl A
|
|
|
|
bcc L1030
|
|
|
|
asl A
|
|
|
|
bcc L1031
|
|
|
|
asl A
|
|
|
|
bcc L1032
|
|
|
|
asl A
|
|
|
|
bcc L1033
|
|
|
|
asl A
|
|
|
|
bcc L1034
|
|
|
|
asl A
|
|
|
|
bcc L1035
|
|
|
|
asl A
|
|
|
|
bcc L1036
|
|
|
|
asl A
|
|
|
|
bcc L1037
|
|
|
|
asl A
|
|
|
|
bcc L1038
|
|
|
|
rts
|
|
|
|
|
|
|
|
L1059: .byte $2c
|
|
|
|
L105A: nop
|
|
|
|
.byte $ad
|
|
|
|
L105C: lda $00
|
|
|
|
asl A
|
|
|
|
bcc L105A
|
|
|
|
asl A
|
|
|
|
bcc L105C
|
|
|
|
.byte $af
|