mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-29 07:49:20 +00:00
1424 lines
26 KiB
ArmAsm
1424 lines
26 KiB
ArmAsm
.setcpu "6502"
|
|
|
|
.include "apple2.inc"
|
|
.include "../macros.inc"
|
|
.include "../mgtk.inc"
|
|
.include "../inc/apple2.inc"
|
|
.include "../inc/prodos.inc"
|
|
|
|
L0006 := $0006
|
|
LDAEE := $DAEE
|
|
LDB55 := $DB55
|
|
LDBE0 := $DBE0
|
|
LDE9F := $DE9F
|
|
LDF94 := $DF94
|
|
LE0FE := $E0FE
|
|
LE137 := $E137
|
|
LE6AB := $E6AB
|
|
LE6FD := $E6FD
|
|
LE766 := $E766
|
|
LE7A8 := $E7A8
|
|
|
|
|
|
.org $800
|
|
|
|
L0800: php
|
|
sei
|
|
jsr L083A
|
|
plp
|
|
cmp #$00
|
|
bne L080C
|
|
clc
|
|
rts
|
|
|
|
L080C: cmp #$02
|
|
bne L0815
|
|
lda #$2B
|
|
jmp L0821
|
|
|
|
L0815: cmp #$01
|
|
bne L081E
|
|
lda #$27
|
|
jmp L0821
|
|
|
|
L081E: clc
|
|
adc #$30
|
|
L0821: sec
|
|
rts
|
|
|
|
L0823: asl a
|
|
asl L0C24
|
|
sta L0C36
|
|
txa
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
tay
|
|
lda L0C36
|
|
jsr L09C6
|
|
lsr L0C24
|
|
rts
|
|
|
|
L083A: tax
|
|
and #$70
|
|
sta L0C23
|
|
txa
|
|
ldx L0C23
|
|
rol a
|
|
lda #$00
|
|
rol a
|
|
bne L0850
|
|
lda $C08A,x
|
|
jmp L0853
|
|
|
|
L0850: lda LCBANK1,x
|
|
L0853: lda $C089,x
|
|
lda #$D7
|
|
sta $DA
|
|
lda #$50
|
|
sta L0C24
|
|
lda #$00
|
|
jsr L0823
|
|
L0864: lda $DA
|
|
beq L086E
|
|
jsr L0B3A
|
|
jmp L0864
|
|
|
|
L086E: lda #$01
|
|
sta $D3
|
|
lda #$AA
|
|
sta $D0
|
|
lda L0C20
|
|
clc
|
|
adc #$02
|
|
sta $D4
|
|
lda #$00
|
|
sta $D1
|
|
L0882: lda $D1
|
|
ldx L0C23
|
|
jsr L0823
|
|
ldx L0C23
|
|
lda $C08D,x
|
|
lda $C08E,x
|
|
tay
|
|
lda $C08E,x
|
|
lda $C08C,x
|
|
tya
|
|
bpl L08A2
|
|
lda #$02
|
|
jmp L08F9
|
|
|
|
L08A2: jsr L0B63
|
|
bcc L08B5
|
|
lda #$01
|
|
ldy $D4
|
|
cpy L0C1F
|
|
bcs L08B2
|
|
lda #$04
|
|
L08B2: jmp L08F9
|
|
|
|
L08B5: ldy $D4
|
|
cpy L0C1F
|
|
bcs L08C1
|
|
lda #$04
|
|
jmp L08F9
|
|
|
|
L08C1: cpy L0C20
|
|
bcc L08CB
|
|
lda #$03
|
|
jmp L08F9
|
|
|
|
L08CB: lda L0C22
|
|
sta L0C25
|
|
L08D1: dec L0C25
|
|
bne L08DB
|
|
lda #$01
|
|
jmp L08F9
|
|
|
|
L08DB: ldx L0C23
|
|
jsr L096A
|
|
bcs L08D1
|
|
lda $D8
|
|
bne L08D1
|
|
ldx L0C23
|
|
jsr L0907
|
|
bcs L08D1
|
|
inc $D1
|
|
lda $D1
|
|
cmp #$23
|
|
bcc L0882
|
|
lda #$00
|
|
L08F9: pha
|
|
ldx L0C23
|
|
lda $C088,x
|
|
lda #$00
|
|
jsr L0823
|
|
pla
|
|
rts
|
|
|
|
L0907: ldy #$20
|
|
L0909: dey
|
|
beq L0968
|
|
L090C: lda $C08C,x
|
|
bpl L090C
|
|
L0911: eor #$D5
|
|
bne L0909
|
|
nop
|
|
L0916: lda $C08C,x
|
|
bpl L0916
|
|
cmp #$AA
|
|
bne L0911
|
|
ldy #$56
|
|
L0921: lda $C08C,x
|
|
bpl L0921
|
|
cmp #$AD
|
|
bne L0911
|
|
lda #$00
|
|
L092C: dey
|
|
sty $D5
|
|
L092F: lda $C08C,x
|
|
bpl L092F
|
|
cmp #$96
|
|
bne L0968
|
|
ldy $D5
|
|
bne L092C
|
|
L093C: sty $D5
|
|
L093E: lda $C08C,x
|
|
bpl L093E
|
|
cmp #$96
|
|
bne L0968
|
|
ldy $D5
|
|
iny
|
|
bne L093C
|
|
L094C: lda $C08C,x
|
|
bpl L094C
|
|
cmp #$96
|
|
bne L0968
|
|
L0955: lda $C08C,x
|
|
bpl L0955
|
|
cmp #$DE
|
|
bne L0968
|
|
nop
|
|
L095F: lda $C08C,x
|
|
bpl L095F
|
|
cmp #$AA
|
|
beq L09C4
|
|
L0968: sec
|
|
rts
|
|
|
|
L096A: ldy #$FC
|
|
sty $DC
|
|
L096E: iny
|
|
bne L0975
|
|
inc $DC
|
|
beq L0968
|
|
L0975: lda $C08C,x
|
|
bpl L0975
|
|
L097A: cmp #$D5
|
|
bne L096E
|
|
nop
|
|
L097F: lda $C08C,x
|
|
bpl L097F
|
|
cmp #$AA
|
|
bne L097A
|
|
ldy #$03
|
|
L098A: lda $C08C,x
|
|
bpl L098A
|
|
cmp #$96
|
|
bne L097A
|
|
lda #$00
|
|
L0995: sta $DB
|
|
L0997: lda $C08C,x
|
|
bpl L0997
|
|
rol a
|
|
sta $DD
|
|
L099F: lda $C08C,x
|
|
bpl L099F
|
|
and $DD
|
|
sta $D7,y
|
|
eor $DB
|
|
dey
|
|
bpl L0995
|
|
tay
|
|
bne L0968
|
|
L09B1: lda $C08C,x
|
|
bpl L09B1
|
|
cmp #$DE
|
|
bne L0968
|
|
nop
|
|
L09BB: lda $C08C,x
|
|
bpl L09BB
|
|
cmp #$AA
|
|
bne L0968
|
|
L09C4: clc
|
|
rts
|
|
|
|
L09C6: stx L0C37
|
|
sta L0C36
|
|
cmp L0C24
|
|
beq L0A2D
|
|
lda #$00
|
|
sta L0C38
|
|
L09D6: lda L0C24
|
|
sta L0C39
|
|
sec
|
|
sbc L0C36
|
|
beq L0A19
|
|
bcs L09EB
|
|
eor #$FF
|
|
inc L0C24
|
|
bcc L09F0
|
|
L09EB: adc #$FE
|
|
dec L0C24
|
|
L09F0: cmp L0C38
|
|
bcc L09F8
|
|
lda L0C38
|
|
L09F8: cmp #$0C
|
|
bcs L09FD
|
|
tay
|
|
L09FD: sec
|
|
jsr L0A1D
|
|
lda L0B4B,y
|
|
jsr L0B3A
|
|
lda L0C39
|
|
clc
|
|
.byte $20
|
|
L0A0C: jsr $B90A
|
|
.byte $57
|
|
.byte $0B
|
|
jsr L0B3A
|
|
inc L0C38
|
|
bne L09D6
|
|
L0A19: jsr L0B3A
|
|
clc
|
|
L0A1D: lda L0C24
|
|
L0A20: and #$03
|
|
rol a
|
|
ora L0C37
|
|
tax
|
|
lda $C080,x
|
|
ldx L0C37
|
|
L0A2D: rts
|
|
|
|
L0A2E: jsr L0C0E
|
|
lda $C08D,x
|
|
lda $C08E,x
|
|
lda #$FF
|
|
sta $C08F,x
|
|
cmp $C08C,x
|
|
pha
|
|
pla
|
|
nop
|
|
ldy #$04
|
|
L0A44: pha
|
|
pla
|
|
jsr L0AA5
|
|
dey
|
|
bne L0A44
|
|
lda #$D5
|
|
jsr L0AA4
|
|
lda #$AA
|
|
jsr L0AA4
|
|
lda #$AD
|
|
jsr L0AA4
|
|
ldy #$56
|
|
nop
|
|
nop
|
|
nop
|
|
bne L0A65
|
|
L0A62: jsr L0C0E
|
|
L0A65: nop
|
|
nop
|
|
lda #$96
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
dey
|
|
bne L0A62
|
|
bit $00
|
|
nop
|
|
L0A75: jsr L0C0E
|
|
lda #$96
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
lda #$96
|
|
nop
|
|
iny
|
|
bne L0A75
|
|
jsr L0AA4
|
|
lda #$DE
|
|
jsr L0AA4
|
|
lda #$AA
|
|
jsr L0AA4
|
|
lda #$EB
|
|
jsr L0AA4
|
|
lda #$FF
|
|
jsr L0AA4
|
|
lda $C08E,x
|
|
lda $C08C,x
|
|
rts
|
|
|
|
L0AA4: nop
|
|
L0AA5: pha
|
|
pla
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
rts
|
|
|
|
L0AAE: sec
|
|
lda $C08D,x
|
|
lda $C08E,x
|
|
bmi L0B15
|
|
lda #$FF
|
|
sta $C08F,x
|
|
cmp $C08C,x
|
|
pha
|
|
pla
|
|
L0AC1: jsr L0B1B
|
|
jsr L0B1B
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
nop
|
|
dey
|
|
bne L0AC1
|
|
lda #$D5
|
|
jsr L0B2D
|
|
lda #$AA
|
|
jsr L0B2D
|
|
lda #$96
|
|
jsr L0B2D
|
|
lda $D3
|
|
jsr L0B1C
|
|
lda $D1
|
|
jsr L0B1C
|
|
lda $D2
|
|
jsr L0B1C
|
|
lda $D3
|
|
eor $D1
|
|
eor $D2
|
|
pha
|
|
lsr a
|
|
ora $D0
|
|
sta $C08D,x
|
|
lda $C08C,x
|
|
pla
|
|
ora #$AA
|
|
jsr L0B2C
|
|
lda #$DE
|
|
jsr L0B2D
|
|
lda #$AA
|
|
jsr L0B2D
|
|
lda #$EB
|
|
jsr L0B2D
|
|
clc
|
|
L0B15: lda $C08E,x
|
|
lda $C08C,x
|
|
L0B1B: rts
|
|
|
|
L0B1C: pha
|
|
lsr a
|
|
ora $D0
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
pla
|
|
nop
|
|
nop
|
|
nop
|
|
ora #$AA
|
|
L0B2C: nop
|
|
L0B2D: nop
|
|
pha
|
|
pla
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
rts
|
|
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
L0B3A: ldx #$11
|
|
L0B3C: dex
|
|
bne L0B3C
|
|
inc16 $D9
|
|
L0B45: sec
|
|
sbc #$01
|
|
bne L0B3A
|
|
rts
|
|
|
|
L0B4B: ora ($30,x)
|
|
plp
|
|
bit $20
|
|
asl $1C1D,x
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
L0B57: bvs L0B85
|
|
rol $22
|
|
.byte $1F
|
|
asl $1C1D,x
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
L0B63: lda L0C21
|
|
sta $D6
|
|
L0B68: ldy #$80
|
|
lda #$00
|
|
sta $D2
|
|
jmp L0B73
|
|
|
|
L0B71: ldy $D4
|
|
L0B73: ldx L0C23
|
|
jsr L0AAE
|
|
bcc L0B7E
|
|
jmp L0C0E
|
|
|
|
L0B7E: ldx L0C23
|
|
jsr L0A2E
|
|
.byte $E6
|
|
L0B85: .byte $D2
|
|
lda $D2
|
|
cmp #$10
|
|
bcc L0B71
|
|
ldy #$0F
|
|
sty $D2
|
|
lda L0C22
|
|
sta L0C25
|
|
L0B96: sta L0C26,y
|
|
dey
|
|
bpl L0B96
|
|
lda $D4
|
|
sec
|
|
sbc #$05
|
|
tay
|
|
L0BA2: jsr L0C0E
|
|
jsr L0C0E
|
|
pha
|
|
pla
|
|
nop
|
|
nop
|
|
dey
|
|
bne L0BA2
|
|
ldx L0C23
|
|
jsr L096A
|
|
bcs L0BF3
|
|
lda $D8
|
|
beq L0BCE
|
|
dec $D4
|
|
lda $D4
|
|
cmp L0C1F
|
|
bcs L0BF3
|
|
sec
|
|
rts
|
|
|
|
L0BC6: ldx L0C23
|
|
jsr L096A
|
|
bcs L0BE8
|
|
L0BCE: ldx L0C23
|
|
jsr L0907
|
|
bcs L0BE8
|
|
ldy $D8
|
|
lda L0C26,y
|
|
bmi L0BE8
|
|
lda #$FF
|
|
sta L0C26,y
|
|
dec $D2
|
|
bpl L0BC6
|
|
clc
|
|
rts
|
|
|
|
L0BE8: dec L0C25
|
|
bne L0BC6
|
|
dec $D6
|
|
bne L0BF3
|
|
sec
|
|
rts
|
|
|
|
L0BF3: lda L0C22
|
|
asl a
|
|
sta L0C25
|
|
L0BFA: ldx L0C23
|
|
jsr L096A
|
|
bcs L0C08
|
|
lda $D8
|
|
cmp #$0F
|
|
beq L0C0F
|
|
L0C08: dec L0C25
|
|
bne L0BFA
|
|
sec
|
|
L0C0E: rts
|
|
|
|
L0C0F: ldx #$D6
|
|
L0C11: jsr L0C0E
|
|
jsr L0C0E
|
|
bit $00
|
|
dex
|
|
bne L0C11
|
|
jmp L0B68
|
|
|
|
L0C1F: .byte $0E
|
|
L0C20: .byte $1B
|
|
L0C21: .byte $03
|
|
L0C22: .byte $10
|
|
L0C23: .byte 0
|
|
L0C24: .byte 0
|
|
L0C25: .byte 0
|
|
L0C26: .byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
L0C36: .byte 0
|
|
L0C37: .byte 0
|
|
L0C38: .byte 0
|
|
L0C39: .byte 0
|
|
.byte $04
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte $02
|
|
.byte 0
|
|
.byte 0
|
|
.byte $13
|
|
.byte $02
|
|
.byte 0
|
|
eor #$0C
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte $03
|
|
L0C5A: .byte 0
|
|
L0C5B: .byte 0
|
|
L0C5C: .byte $1C
|
|
L0C5D: .byte 0
|
|
L0C5E: .byte 0
|
|
L0C5F: sty L0C73
|
|
stax L0C74
|
|
php
|
|
sei
|
|
sta ALTZPOFF
|
|
lda $C082
|
|
jsr MLI
|
|
L0C73: .byte 0
|
|
L0C74: .byte 0
|
|
L0C75: .byte 0
|
|
tax
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
plp
|
|
txa
|
|
rts
|
|
|
|
rts
|
|
|
|
jsr LDF94
|
|
sta ALTZPOFF
|
|
lda $C082
|
|
sta $C05F
|
|
sta $C050
|
|
sta $C00C
|
|
sta $C00F
|
|
sta $C000
|
|
jsr SETVID
|
|
jsr SETKBD
|
|
jsr INIT
|
|
jsr HOME
|
|
jsr MLI
|
|
adc $3A
|
|
.byte $0C
|
|
rts
|
|
|
|
ldx $D418
|
|
lda $D3F7,x
|
|
sta L0CEC
|
|
and #$0F
|
|
beq L0CCC
|
|
lda $D3F7,x
|
|
jsr L0D26
|
|
ldy #$FF
|
|
lda (L0006),y
|
|
beq L0CCC
|
|
cmp #$FF
|
|
bne L0CD3
|
|
L0CCC: lda L0CEC
|
|
jsr L0800
|
|
rts
|
|
|
|
L0CD3: lda L0CEC
|
|
jsr L0D26
|
|
ldy #$FF
|
|
lda (L0006),y
|
|
sta L0006
|
|
lda #$03
|
|
sta $42
|
|
lda L0CEC
|
|
sta $43
|
|
jmp (L0006)
|
|
|
|
rts
|
|
|
|
L0CEC: .byte 0
|
|
sta L0D24
|
|
jsr L0D26
|
|
ldy #$07
|
|
lda (L0006),y
|
|
bne L0D19
|
|
ldy #$FB
|
|
lda (L0006),y
|
|
and #$7F
|
|
bne L0D19
|
|
ldy #$FF
|
|
lda (L0006),y
|
|
clc
|
|
adc #$03
|
|
sta L0006
|
|
lda L0D24
|
|
jsr L0D51
|
|
sta L0D1E
|
|
jsr L0D1A
|
|
.byte $04
|
|
.byte $1D
|
|
.byte $0D
|
|
L0D19: rts
|
|
|
|
L0D1A: jmp (L0006)
|
|
|
|
.byte $03
|
|
L0D1E: .byte 0
|
|
.byte $22
|
|
ora a:$04
|
|
.byte 0
|
|
L0D24: .byte 0
|
|
.byte 0
|
|
L0D26: sta L0D50
|
|
ldx #$11
|
|
lda L0D50
|
|
and #$80
|
|
beq L0D34
|
|
ldx #$21
|
|
L0D34: stx L0D47
|
|
lda L0D50
|
|
and #$70
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
clc
|
|
adc L0D47
|
|
sta L0D47
|
|
.byte $AD
|
|
L0D47: .byte 0
|
|
.byte $BF
|
|
sta $07
|
|
lda #$00
|
|
sta L0006
|
|
rts
|
|
|
|
L0D50: .byte 0
|
|
L0D51: pha
|
|
rol a
|
|
pla
|
|
php
|
|
and #$20
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
plp
|
|
adc #$01
|
|
rts
|
|
|
|
ldx $D417
|
|
lda $D3F7,x
|
|
sta L0C5A
|
|
lda #$00
|
|
sta L0C5D
|
|
sta L0C5E
|
|
jsr L12AF
|
|
bne L0D8A
|
|
lda $1C01
|
|
cmp #$E0
|
|
beq L0D7F
|
|
jmp L0DA4
|
|
|
|
L0D7F: lda $1C02
|
|
cmp #$70
|
|
beq L0D90
|
|
cmp #$60
|
|
beq L0D90
|
|
L0D8A: lda #$81
|
|
sta $D44D
|
|
rts
|
|
|
|
L0D90: addr_call LDE9F, $1300
|
|
addr_call LE0FE, $1300
|
|
lda #$C0
|
|
sta $D44D
|
|
rts
|
|
|
|
L0DA4: cmp #$A5
|
|
bne L0D8A
|
|
lda $1C02
|
|
cmp #$27
|
|
bne L0D8A
|
|
lda #$80
|
|
sta $D44D
|
|
rts
|
|
|
|
lda #$14
|
|
jsr L1133
|
|
lda $D417
|
|
asl a
|
|
tax
|
|
lda $D407,x
|
|
sta L0EB0
|
|
lda $D408,x
|
|
sta L0EB1
|
|
lsr16 L0EB0
|
|
lsr16 L0EB0
|
|
lsr16 L0EB0
|
|
copy16 L0EB0, $D427
|
|
bit $D44D
|
|
bmi L0DF6
|
|
lda $D451
|
|
bne L0DF6
|
|
jmp L0E4D
|
|
|
|
L0DF6: lda #$FF
|
|
clc
|
|
adc $D427
|
|
sta L0006
|
|
lda #$13
|
|
adc $D428
|
|
sta $07
|
|
ldy #$00
|
|
L0E07: lda #$00
|
|
sta (L0006),y
|
|
dec L0006
|
|
lda L0006
|
|
cmp #$FF
|
|
bne L0E15
|
|
dec $07
|
|
L0E15: lda $07
|
|
cmp #$14
|
|
bne L0E07
|
|
lda L0006
|
|
cmp #$00
|
|
bne L0E07
|
|
lda #$00
|
|
sta (L0006),y
|
|
lda $D428
|
|
cmp #$02
|
|
bcs L0E2D
|
|
rts
|
|
|
|
L0E2D: lda #$14
|
|
sta L0006
|
|
lda $D428
|
|
pha
|
|
L0E35: inc L0006
|
|
inc L0006
|
|
pla
|
|
sec
|
|
sbc #$02
|
|
pha
|
|
bmi L0E46
|
|
jsr L0E47
|
|
jmp L0E35
|
|
|
|
L0E46: pla
|
|
L0E47: lda L0006
|
|
jsr L1133
|
|
rts
|
|
|
|
L0E4D: copy16 #$0006, L0C5D
|
|
ldx $D417
|
|
lda $D3F7,x
|
|
sta L0C5A
|
|
copy16 #$1400, L0C5B
|
|
jsr L12AF
|
|
beq L0E70
|
|
.byte 0
|
|
L0E70: lda L0EB0
|
|
sec
|
|
sbc #$00
|
|
sta L0EB0
|
|
lda L0EB1
|
|
sbc #$02
|
|
sta L0EB1
|
|
lda L0EB1
|
|
bpl L0E87
|
|
rts
|
|
|
|
L0E87: lda L0EB0
|
|
bne L0E8D
|
|
rts
|
|
|
|
L0E8D: add16 L0C5B, #$0200, L0C5B
|
|
inc L0C5D
|
|
lda L0C5C
|
|
jsr L1133
|
|
jsr L12AF
|
|
beq L0EAD
|
|
.byte 0
|
|
L0EAD: jmp L0E70
|
|
|
|
L0EB0: .byte 0
|
|
L0EB1: .byte 0
|
|
and #$F0
|
|
sta L0ED6
|
|
ldx $BF31
|
|
L0EBA: lda $BF32,x
|
|
and #$F0
|
|
cmp L0ED6
|
|
beq L0ECA
|
|
dex
|
|
bpl L0EBA
|
|
L0EC7: return #$00
|
|
|
|
L0ECA: lda $BF32,x
|
|
and #$0F
|
|
cmp #$0B
|
|
bne L0EC7
|
|
return #$80
|
|
|
|
L0ED6: .byte 0
|
|
bit $C010
|
|
sta L0FE6
|
|
and #$FF
|
|
bpl L0EFF
|
|
copy16 $D424, $D421
|
|
lda $D426
|
|
sta $D423
|
|
ldx $D418
|
|
lda $D3F7,x
|
|
sta L0C5A
|
|
jmp L0F1A
|
|
|
|
L0EFF: copy16 $D421, $D424
|
|
lda $D423
|
|
sta $D426
|
|
ldx $D417
|
|
lda $D3F7,x
|
|
sta L0C5A
|
|
L0F1A: lda #$07
|
|
sta $D420
|
|
lda #$00
|
|
sta $D41F
|
|
sta L0FE4
|
|
sta L0FE5
|
|
L0F2A: lda $C000
|
|
cmp #$9B
|
|
bne L0F37
|
|
jsr LE6AB
|
|
jmp L0F6F
|
|
|
|
L0F37: bit L0FE4
|
|
bmi L0F6C
|
|
bit L0FE5
|
|
bmi L0F69
|
|
jsr L107F
|
|
bcc L0F51
|
|
bne L0F4C
|
|
cpx #$00
|
|
beq L0F6C
|
|
L0F4C: ldy #$80
|
|
sty L0FE4
|
|
L0F51: stax L0FE7
|
|
jsr L0FE9
|
|
bcc L0F72
|
|
bne L0F62
|
|
cpx #$00
|
|
beq L0F69
|
|
L0F62: ldy #$80
|
|
sty L0FE5
|
|
bne L0F72
|
|
L0F69: return #$80
|
|
|
|
L0F6C: return #$00
|
|
|
|
L0F6F: return #$01
|
|
|
|
L0F72: stax L0C5D
|
|
ldx L0FE8
|
|
lda L0FE7
|
|
ldy $D41F
|
|
cpy #$10
|
|
bcs L0F9A
|
|
bit L0FE6
|
|
bmi L0F92
|
|
jsr L1160
|
|
bmi L0F6F
|
|
jmp L0F2A
|
|
|
|
L0F92: jsr L11F7
|
|
bmi L0F6F
|
|
jmp L0F2A
|
|
|
|
L0F9A: cpy #$1D
|
|
bcc L0FB7
|
|
cpy #$20
|
|
bcs L0FCC
|
|
bit L0FE6
|
|
bmi L0FAF
|
|
jsr L1175
|
|
bmi L0F6F
|
|
jmp L0F2A
|
|
|
|
L0FAF: jsr L120C
|
|
bmi L0F6F
|
|
jmp L0F2A
|
|
|
|
L0FB7: bit L0FE6
|
|
bmi L0FC4
|
|
jsr LE766
|
|
bmi L0F6F
|
|
jmp L0F2A
|
|
|
|
L0FC4: jsr LE7A8
|
|
bmi L0F6F
|
|
jmp L0F2A
|
|
|
|
L0FCC: bit L0FE6
|
|
bmi L0FD9
|
|
jsr L11AD
|
|
bmi L0F6F
|
|
jmp L0F2A
|
|
|
|
L0FD9: jsr L123F
|
|
bmi L0FE1
|
|
jmp L0F2A
|
|
|
|
L0FE1: jmp L0F6F
|
|
|
|
L0FE4: .byte 0
|
|
L0FE5: .byte 0
|
|
L0FE6: .byte 0
|
|
L0FE7: .byte 0
|
|
L0FE8: .byte 0
|
|
L0FE9: jsr L102A
|
|
cpy #$00
|
|
bne L0FF6
|
|
pha
|
|
jsr L0FFF
|
|
pla
|
|
rts
|
|
|
|
L0FF6: jsr L0FFF
|
|
bcc L0FE9
|
|
lda #$00
|
|
tax
|
|
rts
|
|
|
|
L0FFF: dec $D423
|
|
lda $D423
|
|
cmp #$FF
|
|
beq L100B
|
|
L1009: clc
|
|
rts
|
|
|
|
L100B: lda #$07
|
|
sta $D423
|
|
inc16 $D421
|
|
L1018: lda $D422
|
|
cmp $D428
|
|
bne L1009
|
|
lda $D421
|
|
cmp $D427
|
|
bne L1009
|
|
sec
|
|
rts
|
|
|
|
L102A: lda #$00
|
|
clc
|
|
adc $D421
|
|
sta L0006
|
|
lda #$14
|
|
adc $D422
|
|
sta $07
|
|
ldy #$00
|
|
lda (L0006),y
|
|
ldx $D423
|
|
cpx #$00
|
|
beq L1048
|
|
L1044: lsr a
|
|
dex
|
|
bne L1044
|
|
L1048: and #$01
|
|
bne L104F
|
|
tay
|
|
beq L1051
|
|
L104F: ldy #$FF
|
|
L1051: lda $D422
|
|
sta L1076
|
|
lda $D421
|
|
asl a
|
|
rol L1076
|
|
asl a
|
|
rol L1076
|
|
asl a
|
|
rol L1076
|
|
ldx $D423
|
|
clc
|
|
adc L1077,x
|
|
pha
|
|
lda L1076
|
|
adc #$00
|
|
tax
|
|
pla
|
|
rts
|
|
|
|
L1076: .byte 0
|
|
L1077: .byte $07
|
|
asl $05
|
|
.byte $04
|
|
.byte $03
|
|
.byte $02
|
|
ora ($00,x)
|
|
L107F: jsr L10B2
|
|
cpy #$00
|
|
beq L108C
|
|
pha
|
|
jsr L1095
|
|
pla
|
|
rts
|
|
|
|
L108C: jsr L1095
|
|
bcc L107F
|
|
lda #$00
|
|
tax
|
|
rts
|
|
|
|
L1095: dec $D420
|
|
lda $D420
|
|
cmp #$FF
|
|
beq L10A1
|
|
L109F: clc
|
|
rts
|
|
|
|
L10A1: lda #$07
|
|
sta $D420
|
|
inc $D41F
|
|
lda $D41F
|
|
cmp #$21
|
|
bcc L109F
|
|
sec
|
|
rts
|
|
|
|
L10B2: ldx $D41F
|
|
lda L12B9,x
|
|
ldx $D420
|
|
cpx #$00
|
|
beq L10C3
|
|
L10BF: lsr a
|
|
dex
|
|
bne L10BF
|
|
L10C3: and #$01
|
|
bne L10CB
|
|
ldy #$00
|
|
beq L10CD
|
|
L10CB: ldy #$FF
|
|
L10CD: lda $D41F
|
|
cmp #$10
|
|
bcs L10E3
|
|
L10D4: asl a
|
|
asl a
|
|
asl a
|
|
asl a
|
|
ldx $D420
|
|
clc
|
|
adc L10F3,x
|
|
tax
|
|
return #$00
|
|
|
|
L10E3: cmp #$20
|
|
bcs L10ED
|
|
sec
|
|
sbc #$10
|
|
jmp L10D4
|
|
|
|
L10ED: sec
|
|
sbc #$13
|
|
jmp L10D4
|
|
|
|
L10F3: asl L0A0C
|
|
php
|
|
asl $04
|
|
.byte $02
|
|
.byte 0
|
|
lda #$14
|
|
sta L0006
|
|
lda #$00
|
|
sta L111E
|
|
L1104: lda L0006
|
|
jsr L111F
|
|
inc L0006
|
|
inc L0006
|
|
inc L111E
|
|
inc L111E
|
|
lda L111E
|
|
cmp $D428
|
|
beq L1104
|
|
bcc L1104
|
|
rts
|
|
|
|
L111E: .byte 0
|
|
L111F: jsr L1149
|
|
tay
|
|
sec
|
|
cpx #$00
|
|
beq L112C
|
|
L1128: asl a
|
|
dex
|
|
bne L1128
|
|
L112C: ora L12B9,y
|
|
sta L12B9,y
|
|
rts
|
|
|
|
L1133: jsr L1149
|
|
tay
|
|
sec
|
|
cpx #$00
|
|
beq L1140
|
|
L113C: asl a
|
|
dex
|
|
bne L113C
|
|
L1140: eor #$FF
|
|
and L12B9,y
|
|
sta L12B9,y
|
|
rts
|
|
|
|
L1149: pha
|
|
and #$0F
|
|
lsr a
|
|
tax
|
|
lda L1158,x
|
|
tax
|
|
pla
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
rts
|
|
|
|
L1158: .byte $07
|
|
asl $05
|
|
.byte $04
|
|
.byte $03
|
|
.byte $02
|
|
ora ($00,x)
|
|
L1160: stax L0C5B
|
|
L1166: jsr L12AF
|
|
beq L1174
|
|
ldx #$00
|
|
jsr LE6FD
|
|
bmi L1174
|
|
bne L1166
|
|
L1174: rts
|
|
|
|
L1175: sta L0006
|
|
sta $08
|
|
stx $07
|
|
stx $09
|
|
inc $09
|
|
copy16 #$1C00, L0C5B
|
|
L1189: jsr L12AF
|
|
beq L119A
|
|
ldx #$00
|
|
jsr LE6FD
|
|
beq L119A
|
|
bpl L1189
|
|
return #$80
|
|
|
|
L119A: ldy #$FF
|
|
iny
|
|
L119D: lda $1C00,y
|
|
sta (L0006),y
|
|
lda $1D00,y
|
|
sta ($08),y
|
|
iny
|
|
bne L119D
|
|
return #$00
|
|
|
|
L11AD: sta L0006
|
|
sta $08
|
|
stx $07
|
|
stx $09
|
|
inc $09
|
|
copy16 #$1C00, L0C5B
|
|
L11C1: jsr L12AF
|
|
beq L11D8
|
|
ldx #$00
|
|
jsr LE6FD
|
|
beq L11D8
|
|
bpl L11C1
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
return #$80
|
|
|
|
L11D8: lda $C083
|
|
lda $C083
|
|
ldy #$FF
|
|
iny
|
|
L11E1: lda $1C00,y
|
|
sta (L0006),y
|
|
lda $1D00,y
|
|
sta ($08),y
|
|
iny
|
|
bne L11E1
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
return #$00
|
|
|
|
L11F7: stax L0C5B
|
|
L11FD: jsr L12A5
|
|
beq L120B
|
|
ldx #$80
|
|
jsr LE6FD
|
|
beq L120B
|
|
bpl L11FD
|
|
L120B: rts
|
|
|
|
L120C: sta L0006
|
|
sta $08
|
|
stx $07
|
|
stx $09
|
|
inc $09
|
|
copy16 #$1C00, L0C5B
|
|
ldy #$FF
|
|
iny
|
|
L1223: lda (L0006),y
|
|
sta $1C00,y
|
|
lda ($08),y
|
|
sta $1D00,y
|
|
iny
|
|
bne L1223
|
|
L1230: jsr L12A5
|
|
beq L123E
|
|
ldx #$80
|
|
jsr LE6FD
|
|
beq L123E
|
|
bpl L1230
|
|
L123E: rts
|
|
|
|
L123F: bit $C083
|
|
bit $C083
|
|
sta L0006
|
|
sta $08
|
|
stx $07
|
|
stx $09
|
|
inc $09
|
|
copy16 #$1C00, L0C5B
|
|
ldy #$FF
|
|
iny
|
|
L125C: lda (L0006),y
|
|
sta $1C00,y
|
|
lda ($08),y
|
|
sta $1D00,y
|
|
iny
|
|
bne L125C
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
L126F: jsr L12A5
|
|
beq L127D
|
|
ldx #$80
|
|
jsr LE6FD
|
|
beq L127D
|
|
bpl L126F
|
|
L127D: rts
|
|
|
|
sta ALTZPOFF
|
|
sta $C082
|
|
jsr BELL1
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
rts
|
|
|
|
yax_call L0C5F, $C5, $0C41
|
|
rts
|
|
|
|
yax_call L0C5F, $C5, $0C45
|
|
rts
|
|
|
|
L12A5: yax_call L0C5F, $81, $0C59
|
|
rts
|
|
|
|
L12AF: yax_call L0C5F, $80, $0C59
|
|
rts
|
|
|
|
L12B9: .byte 0
|
|
.byte $3C
|
|
.byte 0
|
|
.byte 0
|
|
.byte $FF
|
|
.byte $FF
|
|
.byte $FF
|
|
.byte $FF
|
|
.byte $FF
|
|
.byte $FF
|
|
.byte $FF
|
|
inc a:$00,x
|
|
.byte 0
|
|
.byte 0
|
|
.byte $0F
|
|
.byte $FF
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte $FF
|
|
.byte $FF
|
|
.byte $FF
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
.byte $7F
|
|
.byte $FF
|
|
lda $D133
|
|
cmp $D18D
|
|
bne L12E5
|
|
jmp LDAEE
|
|
|
|
L12E5: cmp $D1C7
|
|
bne L12ED
|
|
jmp LDB55
|
|
|
|
L12ED: rts
|
|
|
|
lda $D18D
|
|
sta $D12D
|
|
jsr LE137
|
|
yax_call LDBE0, $46, $D12D
|