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 #$ff
|
|
|
|
clv
|
|
|
|
cld
|
|
|
|
cli
|
|
|
|
clc
|
|
|
|
lda #$80
|
|
|
|
lda #$01
|
|
|
|
sed
|
|
|
|
sei
|
|
|
|
sec
|
|
|
|
lda #$ff
|
|
|
|
adc #$00
|
|
|
|
sep #$ff
|
|
|
|
rep #$80
|
|
|
|
rep #$40
|
|
|
|
rep #$20
|
|
|
|
.a16
|
|
|
|
rep #$10
|
|
|
|
.i16
|
|
|
|
rep #$08
|
|
|
|
rep #$04
|
|
|
|
rep #$02
|
|
|
|
rep #$01
|
|
|
|
sep #$00
|
|
|
|
sep #$ff
|
|
|
|
.a8
|
|
|
|
.i8
|
|
|
|
rep #$00
|
|
|
|
rep #$ff
|
|
|
|
.a16
|
|
|
|
.i16
|
|
|
|
lda #$feed
|
|
|
|
sec
|
|
|
|
xce
|
|
|
|
.a8
|
|
|
|
.i8
|
|
|
|
lda #$ff
|
|
|
|
rep #$30
|
|
|
|
lda #$ff
|
|
|
|
clc
|
|
|
|
xce
|
|
|
|
lda #$ff
|
|
|
|
rep #$20
|
|
|
|
.a16
|
|
|
|
sep #$10
|
|
|
|
lda #$0000
|
|
|
|
ldx #$01
|
|
|
|
ldy #$02
|
|
|
|
sep #$20
|
|
|
|
.a8
|
|
|
|
rep #$10
|
|
|
|
.i16
|
|
|
|
lda #$01
|
|
|
|
ldx #$0000
|
|
|
|
ldy #$0000
|
|
|
|
sep #$30
|
|
|
|
.i8
|
|
|
|
lda #$00
|
|
|
|
pha
|
|
|
|
plp
|
|
|
|
rep #$80
|
|
|
|
bpl L105F
|
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $00
|
|
|
|
|
|
|
|
L105F: sep #$80
|
2019-11-17 01:15:03 +00:00
|
|
|
bpl @L1065
|
|
|
|
bmi @L1067
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L1065: .byte $00
|
2018-09-28 17:05:11 +00:00
|
|
|
.byte $00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L1067: rep #$40
|
|
|
|
bvc @L106D
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L106D: sep #$40
|
|
|
|
bvs @L1073
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L1073: rep #$01
|
|
|
|
bcc @L1079
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L1079: sep #$01
|
|
|
|
bcs @L107F
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L107F: rep #$02
|
|
|
|
bne @L1085
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L1085: sep #$02
|
|
|
|
beq @L108B
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $00
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L108B: sep #$ff
|
2018-09-28 17:05:11 +00:00
|
|
|
lda #$01
|
2019-11-17 01:15:03 +00:00
|
|
|
bne @L1093
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L1093: lda #$00
|
|
|
|
beq @L1099
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L1099: bpl @L109D
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L109D: lda #$80
|
|
|
|
bmi @L10A3
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L10A3: lda #$ff
|
2018-09-28 17:05:11 +00:00
|
|
|
and #$00
|
2019-11-17 01:15:03 +00:00
|
|
|
beq @L10AB
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
@L10AB: lda #$00
|
2020-05-02 00:25:18 +00:00
|
|
|
ldx #$80
|
2018-09-28 17:05:11 +00:00
|
|
|
and #$ff
|
2020-05-02 00:25:18 +00:00
|
|
|
beq @L10B5
|
|
|
|
bne @L10B5
|
|
|
|
|
|
|
|
@L10B5: lda #$ff
|
|
|
|
ldx #$00
|
|
|
|
and #$7f
|
|
|
|
beq @L10BF
|
|
|
|
bne @L10BF
|
|
|
|
|
|
|
|
@L10BF: bpl @L10C3
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10C3: lda #$ff
|
|
|
|
and #$80
|
|
|
|
bmi @L10CB
|
2020-02-02 00:24:14 +00:00
|
|
|
brk
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $db
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10CB: lda #$00
|
|
|
|
ldx #$80
|
|
|
|
bne @L10D3
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10D3: ora #$00
|
|
|
|
beq @L10D9
|
|
|
|
bne @L10D9
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10D9: ora #$01
|
|
|
|
bne @L10DF
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10DF: lda #$00
|
|
|
|
ldx #$80
|
|
|
|
bmi @L10E7
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10E7: ora #$7f
|
|
|
|
bpl @L10EF
|
|
|
|
bmi @L10EF
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10EF: ora #$80
|
|
|
|
bmi @L10F5
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $db
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10F5: lda @L10F5
|
2018-10-09 19:27:47 +00:00
|
|
|
sec
|
|
|
|
ror A
|
2020-05-02 00:25:18 +00:00
|
|
|
bmi @L10FE
|
2018-10-09 19:27:47 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $dc
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L10FE: clc
|
2018-10-09 19:27:47 +00:00
|
|
|
ror A
|
2020-05-02 00:25:18 +00:00
|
|
|
bpl @L1104
|
2018-10-09 19:27:47 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $dc
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L1104: lda #$00
|
2018-10-09 19:27:47 +00:00
|
|
|
sec
|
|
|
|
rol A
|
2020-05-02 00:25:18 +00:00
|
|
|
bne @L110C
|
2018-10-09 19:27:47 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $dc
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L110C: lda #$ff
|
2020-04-24 00:23:12 +00:00
|
|
|
lsr A
|
2020-05-02 00:25:18 +00:00
|
|
|
bpl @L1113
|
2020-04-24 00:23:12 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
.byte $dd
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L1113: clc
|
2018-09-28 17:05:11 +00:00
|
|
|
php
|
|
|
|
sec
|
|
|
|
plp
|
2020-05-02 00:25:18 +00:00
|
|
|
bcc @L111B
|
2020-07-30 23:57:33 +00:00
|
|
|
brk
|
2018-09-28 17:05:11 +00:00
|
|
|
|
|
|
|
.byte $00
|
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L111B: sec
|
|
|
|
bcs @L111F
|
2019-09-17 21:38:16 +00:00
|
|
|
|
2020-05-02 00:25:18 +00:00
|
|
|
@L111E: clc
|
|
|
|
@L111F: lda $33
|
|
|
|
beq @L111E
|
|
|
|
bcs @L1127
|
2019-09-17 21:38:16 +00:00
|
|
|
lda $44
|
2020-05-02 00:25:18 +00:00
|
|
|
@L1127: nop
|
2019-09-17 21:38:16 +00:00
|
|
|
rep #$20
|
2018-09-28 17:05:11 +00:00
|
|
|
.a16
|
|
|
|
sep #$10
|
2020-05-02 00:25:18 +00:00
|
|
|
jsr @L1143
|
2018-09-28 17:05:11 +00:00
|
|
|
rep #$30
|
|
|
|
.i16
|
2020-05-02 00:25:18 +00:00
|
|
|
jsr @L1149
|
2018-09-28 17:05:11 +00:00
|
|
|
sep #$30
|
|
|
|
.a8
|
|
|
|
.i8
|
2020-05-02 00:25:18 +00:00
|
|
|
jsr @L1149
|
2018-09-28 17:05:11 +00:00
|
|
|
rep #$20
|
|
|
|
.a16
|
|
|
|
sep #$10
|
2020-05-02 00:25:18 +00:00
|
|
|
jsr @L1143
|
2018-09-28 17:05:11 +00:00
|
|
|
sep #$30
|
|
|
|
.a8
|
|
|
|
rts
|
|
|
|
|
|
|
|
.a16
|
2020-05-02 00:25:18 +00:00
|
|
|
@L1143: lda #$1234
|
2018-09-28 17:05:11 +00:00
|
|
|
ldx #$ff
|
|
|
|
rts
|
|
|
|
|
|
|
|
.a8
|
2020-05-02 00:25:18 +00:00
|
|
|
@L1149: lda #$ff
|
2018-09-28 17:05:11 +00:00
|
|
|
ldx #$ee
|
|
|
|
ldy #$dd
|
|
|
|
rts
|
|
|
|
|