mirror of
https://github.com/mi57730/a2d.git
synced 2024-06-26 12:29:28 +00:00
1578 lines
33 KiB
ArmAsm
1578 lines
33 KiB
ArmAsm
.setcpu "6502"
|
|
|
|
.include "apple2.inc"
|
|
.include "../inc/apple2.inc"
|
|
.include "../inc/prodos.inc"
|
|
.include "../mgtk.inc"
|
|
.include "../desktop.inc"
|
|
.include "../macros.inc"
|
|
.include "inc/desktoplc.inc"
|
|
|
|
;;; ============================================================
|
|
;;; Overlay for Format/Erase
|
|
;;; ============================================================
|
|
|
|
.org $800
|
|
.proc format_erase_overlay
|
|
|
|
;;; Entry points in desktop_main
|
|
prompt_input_loop := $A567
|
|
bell := $AACE
|
|
set_cursor_watch := $B3E7
|
|
set_cursor_pointer := $B403
|
|
LB445 := $B445 ; ???
|
|
LB509 := $B509 ; ???
|
|
draw_dialog_label := $B590
|
|
draw_text1 := $B708
|
|
draw_dialog_title := $B723
|
|
adjust_case := $B781
|
|
set_port_from_window_id := $B7B9
|
|
LBD69 := $BD69 ; ???
|
|
LBD75 := $BD75 ; ???
|
|
reset_state := $BEB1
|
|
|
|
L0800: pha
|
|
jsr set_cursor_pointer
|
|
pla
|
|
cmp #$04
|
|
beq L080C
|
|
jmp L09D9
|
|
|
|
L080C: lda #$00
|
|
sta $D8E8
|
|
jsr LB509
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
addr_call draw_dialog_title, $B245
|
|
axy_call draw_dialog_label, $01, $B257
|
|
jsr L0D31
|
|
lda #$FF
|
|
sta $D887
|
|
L0832: copy16 #$0B48, $A89A
|
|
lda #$80
|
|
sta $D8ED
|
|
L0841: jsr prompt_input_loop
|
|
bmi L0841
|
|
pha
|
|
copy16 #$B8F4, $A89A
|
|
lda #$00
|
|
sta $D8F3
|
|
sta $D8ED
|
|
pla
|
|
beq L085F
|
|
jmp L09C2
|
|
|
|
L085F: bit $D887
|
|
bmi L0832
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::FrameRect, $D6AB
|
|
jsr LBD75
|
|
lda #$80
|
|
sta $D8E8
|
|
lda #$00
|
|
sta $D8ED
|
|
jsr LBD69
|
|
axy_call draw_dialog_label, $03, $B28D
|
|
L08A7: jsr prompt_input_loop
|
|
bmi L08A7
|
|
beq L08B7
|
|
jmp L09C2
|
|
|
|
L08B1: jsr bell
|
|
jmp L08A7
|
|
|
|
L08B7: lda $D443
|
|
beq L08B1
|
|
cmp #$10
|
|
bcs L08B1
|
|
jsr set_cursor_pointer
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
|
ldx $D887
|
|
lda DEVLST,x
|
|
sta L09D8
|
|
sta L09D7
|
|
lda #$00
|
|
sta $D8E8
|
|
axy_call draw_dialog_label, $03, $B2AF
|
|
lda L09D7
|
|
jsr L1A2D
|
|
addr_call draw_text1, $D909
|
|
L0902: jsr prompt_input_loop
|
|
bmi L0902
|
|
beq L090C
|
|
jmp L09C2
|
|
|
|
L090C: lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
ldy #$11
|
|
ldax #$AE6E
|
|
jsr MGTK_RELAY
|
|
ldax #$B2C6
|
|
ldy #$01
|
|
jsr draw_dialog_label
|
|
lda L09D7
|
|
jsr L12C1
|
|
and #$FF
|
|
bne L0942
|
|
jsr set_cursor_watch
|
|
lda L09D7
|
|
jsr L126F
|
|
bcs L099B
|
|
L0942: lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
|
axy_call draw_dialog_label, $01, $B373
|
|
addr_call L1900, $D443
|
|
ldx #$43
|
|
ldy #$D4
|
|
lda L09D7
|
|
jsr L1307
|
|
pha
|
|
jsr set_cursor_pointer
|
|
pla
|
|
bne L0980
|
|
lda #$00
|
|
jmp L09C2
|
|
|
|
L0980: cmp #$2B
|
|
bne L098C
|
|
jsr JUMP_TABLE_ALERT_0
|
|
bne L09C2
|
|
jmp L090C
|
|
|
|
L098C: jsr L191B
|
|
ldax #$B388
|
|
ldy #$06
|
|
jsr draw_dialog_label
|
|
jmp L09B8
|
|
|
|
L099B: pha
|
|
jsr set_cursor_pointer
|
|
pla
|
|
cmp #$2B
|
|
bne L09AC
|
|
jsr JUMP_TABLE_ALERT_0
|
|
bne L09C2
|
|
jmp L090C
|
|
|
|
L09AC: jsr L191B
|
|
axy_call draw_dialog_label, $06, $B2DE
|
|
L09B8: jsr prompt_input_loop
|
|
bmi L09B8
|
|
bne L09C2
|
|
jmp L090C
|
|
|
|
L09C2: pha
|
|
jsr set_cursor_pointer
|
|
jsr reset_state
|
|
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
|
|
ldx L09D8
|
|
pla
|
|
rts
|
|
|
|
L09D7: .byte 0
|
|
L09D8: .byte 0
|
|
L09D9: lda #$00
|
|
sta $D8E8
|
|
jsr LB509
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
addr_call draw_dialog_title, $B319
|
|
ldax #$B32A
|
|
ldy #$01
|
|
jsr draw_dialog_label
|
|
jsr L0D31
|
|
lda #$FF
|
|
sta $D887
|
|
copy16 #$0B48, $A89A
|
|
lda #$80
|
|
sta $D8ED
|
|
L0A0E: jsr prompt_input_loop
|
|
bmi L0A0E
|
|
beq L0A18
|
|
jmp L0B31
|
|
|
|
L0A18: bit $D887
|
|
bmi L0A0E
|
|
copy16 #$A898, $A89A
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::FrameRect, $D6AB
|
|
jsr LBD75
|
|
lda #$80
|
|
sta $D8E8
|
|
lda #$00
|
|
sta $D8ED
|
|
jsr LBD69
|
|
axy_call draw_dialog_label, $03, $B28D
|
|
L0A6A: jsr prompt_input_loop
|
|
bmi L0A6A
|
|
beq L0A7A
|
|
jmp L0B31
|
|
|
|
L0A74: jsr bell
|
|
jmp L0A6A
|
|
|
|
L0A7A: lda $D443
|
|
beq L0A74
|
|
cmp #$10
|
|
bcs L0A74
|
|
jsr set_cursor_pointer
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
|
lda #$00
|
|
sta $D8E8
|
|
ldx $D887
|
|
lda DEVLST,x
|
|
sta L0B47
|
|
sta L0B46
|
|
axy_call draw_dialog_label, $03, $B35D
|
|
lda L0B46
|
|
and #$F0
|
|
jsr L1A2D
|
|
addr_call draw_text1, $D909
|
|
L0AC7: jsr prompt_input_loop
|
|
bmi L0AC7
|
|
beq L0AD1
|
|
jmp L0B31
|
|
|
|
L0AD1: lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
|
axy_call draw_dialog_label, $01, $B373
|
|
addr_call L1900, $D443
|
|
jsr set_cursor_watch
|
|
ldx #$43
|
|
ldy #$D4
|
|
lda L0B46
|
|
jsr L1307
|
|
pha
|
|
jsr set_cursor_pointer
|
|
pla
|
|
bne L0B12
|
|
lda #$00
|
|
jmp L0B31
|
|
|
|
L0B12: cmp #$2B
|
|
bne L0B1E
|
|
jsr JUMP_TABLE_ALERT_0
|
|
bne L0B31
|
|
jmp L0AD1
|
|
|
|
L0B1E: jsr L191B
|
|
axy_call draw_dialog_label, $06, $B388
|
|
L0B2A: jsr prompt_input_loop
|
|
bmi L0B2A
|
|
beq L0AD1
|
|
L0B31: pha
|
|
jsr set_cursor_pointer
|
|
jsr reset_state
|
|
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
|
|
ldx L0B47
|
|
pla
|
|
rts
|
|
|
|
L0B46: .byte 0
|
|
L0B47: .byte 0
|
|
cmp16 $D20D, #$0028
|
|
bpl L0B57
|
|
return #$FF
|
|
|
|
L0B57: cmp16 $D20D, #$0168
|
|
bcc L0B66
|
|
return #$FF
|
|
|
|
L0B66: lda $D20F
|
|
sec
|
|
sbc #$2B
|
|
sta $D20F
|
|
lda $D210
|
|
sbc #$00
|
|
bpl L0B79
|
|
return #$FF
|
|
|
|
L0B79: sta $D210
|
|
lsr16 $D20F
|
|
lsr16 $D20F
|
|
lsr16 $D20F
|
|
lda $D20F
|
|
cmp #$04
|
|
bcc L0B98
|
|
return #$FF
|
|
|
|
L0B98: lda #$02
|
|
sta L0C1F
|
|
cmp16 $D20D, #$0118
|
|
bcs L0BBB
|
|
dec L0C1F
|
|
cmp16 $D20D, #$00A0
|
|
bcs L0BBB
|
|
dec L0C1F
|
|
L0BBB: lda L0C1F
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc $D20F
|
|
cmp $D890
|
|
bcc L0BDC
|
|
lda $D887
|
|
bmi L0BD9
|
|
lda $D887
|
|
jsr L0C20
|
|
lda #$FF
|
|
sta $D887
|
|
L0BD9: return #$FF
|
|
|
|
L0BDC: cmp $D887
|
|
bne L0C04
|
|
jsr LB445
|
|
bmi L0C03
|
|
L0BE6: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE20
|
|
ldy #$11
|
|
ldax #$AE20
|
|
jsr MGTK_RELAY
|
|
lda #$00
|
|
L0C03: rts
|
|
|
|
L0C04: sta L0C1E
|
|
lda $D887
|
|
bmi L0C0F
|
|
jsr L0C20
|
|
L0C0F: lda L0C1E
|
|
sta $D887
|
|
jsr L0C20
|
|
jsr LB445
|
|
beq L0BE6
|
|
rts
|
|
|
|
L0C1E: .byte 0
|
|
L0C1F: .byte 0
|
|
L0C20: ldy #$27
|
|
sty $D888
|
|
ldy #$00
|
|
sty $D889
|
|
tax
|
|
lsr a
|
|
lsr a
|
|
sta L0CA9
|
|
beq L0C5B
|
|
add16 $D888, #$0078, $D888
|
|
lda L0CA9
|
|
cmp #$01
|
|
beq L0C5B
|
|
add16 $D888, #$0078, $D888
|
|
L0C5B: asl L0CA9
|
|
asl L0CA9
|
|
txa
|
|
sec
|
|
sbc L0CA9
|
|
asl a
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc #$2B
|
|
sta $D88A
|
|
lda #$00
|
|
sta $D88B
|
|
add16 $D888, #$0077, $D88C
|
|
add16 $D88A, #$0007, $D88E
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, $D888
|
|
rts
|
|
|
|
L0CA9: .byte 0
|
|
L0CAA: lda $D887
|
|
bmi L0CB7
|
|
jsr L0C20
|
|
lda #$FF
|
|
sta $D887
|
|
L0CB7: rts
|
|
|
|
lda $D887
|
|
bpl L0CC1
|
|
lda #$00
|
|
beq L0CCE
|
|
L0CC1: clc
|
|
adc #$04
|
|
cmp $D890
|
|
bcs L0CD4
|
|
pha
|
|
jsr L0CAA
|
|
pla
|
|
L0CCE: sta $D887
|
|
jsr L0C20
|
|
L0CD4: return #$FF
|
|
|
|
lda $D887
|
|
bpl L0CE6
|
|
lda $D890
|
|
lsr a
|
|
lsr a
|
|
asl a
|
|
asl a
|
|
jmp L0CF0
|
|
|
|
L0CE6: sec
|
|
sbc #$04
|
|
bmi L0CF6
|
|
pha
|
|
jsr L0CAA
|
|
pla
|
|
L0CF0: sta $D887
|
|
jsr L0C20
|
|
L0CF6: return #$FF
|
|
|
|
lda $D887
|
|
clc
|
|
adc #$01
|
|
cmp $D890
|
|
bcc L0D06
|
|
lda #$00
|
|
L0D06: pha
|
|
jsr L0CAA
|
|
pla
|
|
sta $D887
|
|
jsr L0C20
|
|
return #$FF
|
|
|
|
lda $D887
|
|
bmi L0D1E
|
|
sec
|
|
sbc #$01
|
|
bpl L0D23
|
|
L0D1E: ldx $D890
|
|
dex
|
|
txa
|
|
L0D23: pha
|
|
jsr L0CAA
|
|
pla
|
|
sta $D887
|
|
jsr L0C20
|
|
return #$FF
|
|
|
|
L0D31: ldx DEVCNT
|
|
inx
|
|
stx $D890
|
|
lda #$00
|
|
sta L0D8C
|
|
L0D3D: lda L0D8C
|
|
cmp $D890
|
|
bne L0D46
|
|
rts
|
|
|
|
L0D46: cmp #$08
|
|
bcc L0D50
|
|
ldx #$01
|
|
lda #$40
|
|
bne L0D5A
|
|
L0D50: cmp #$04
|
|
bcc L0D60
|
|
ldx #$00
|
|
lda #$A0
|
|
bne L0D5A
|
|
L0D5A: stax $D6C3
|
|
L0D60: lda L0D8C
|
|
asl a
|
|
tay
|
|
lda $DB01,y
|
|
tax
|
|
lda $DB00,y
|
|
pha
|
|
lda L0D8C
|
|
lsr a
|
|
lsr a
|
|
asl a
|
|
asl a
|
|
sta L0D8D
|
|
lda L0D8C
|
|
sec
|
|
sbc L0D8D
|
|
tay
|
|
iny
|
|
iny
|
|
iny
|
|
pla
|
|
jsr draw_dialog_label
|
|
inc L0D8C
|
|
jmp L0D3D
|
|
|
|
L0D8C: .byte 0
|
|
L0D8D: .byte 0
|
|
|
|
PAD_TO $E00
|
|
|
|
L0E00: php
|
|
sei
|
|
jsr L0E3A
|
|
plp
|
|
cmp #$00
|
|
bne L0E0C
|
|
clc
|
|
rts
|
|
|
|
L0E0C: cmp #$02
|
|
bne L0E15
|
|
lda #$2B
|
|
jmp L0E21
|
|
|
|
L0E15: cmp #$01
|
|
bne L0E1E
|
|
lda #$27
|
|
jmp L0E21
|
|
|
|
L0E1E: clc
|
|
adc #$30
|
|
L0E21: sec
|
|
rts
|
|
|
|
L0E23: asl a
|
|
asl L1224
|
|
sta L1236
|
|
txa
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
tay
|
|
lda L1236
|
|
jsr L0FC6
|
|
lsr L1224
|
|
rts
|
|
|
|
L0E3A: tax
|
|
and #$70
|
|
sta L1223
|
|
txa
|
|
ldx L1223
|
|
rol a
|
|
lda #$00
|
|
rol a
|
|
bne L0E50
|
|
lda $C08A,x
|
|
jmp L0E53
|
|
|
|
L0E50: lda LCBANK1,x
|
|
L0E53: lda $C089,x
|
|
lda #$D7
|
|
sta $DA
|
|
lda #$50
|
|
sta L1224
|
|
lda #$00
|
|
jsr L0E23
|
|
L0E64: lda $DA
|
|
beq L0E6E
|
|
jsr L113A
|
|
jmp L0E64
|
|
|
|
L0E6E: lda #$01
|
|
sta $D3
|
|
lda #$AA
|
|
sta $D0
|
|
lda L1220
|
|
clc
|
|
adc #$02
|
|
sta $D4
|
|
lda #$00
|
|
sta $D1
|
|
L0E82: lda $D1
|
|
ldx L1223
|
|
jsr L0E23
|
|
ldx L1223
|
|
lda $C08D,x
|
|
lda $C08E,x
|
|
tay
|
|
lda $C08E,x
|
|
lda $C08C,x
|
|
tya
|
|
bpl L0EA2
|
|
lda #$02
|
|
jmp L0EF9
|
|
|
|
L0EA2: jsr L1163
|
|
bcc L0EB5
|
|
lda #$01
|
|
ldy $D4
|
|
cpy L121F
|
|
bcs L0EB2
|
|
lda #$04
|
|
L0EB2: jmp L0EF9
|
|
|
|
L0EB5: ldy $D4
|
|
cpy L121F
|
|
bcs L0EC1
|
|
lda #$04
|
|
jmp L0EF9
|
|
|
|
L0EC1: cpy L1220
|
|
bcc L0ECB
|
|
lda #$03
|
|
jmp L0EF9
|
|
|
|
L0ECB: lda L1222
|
|
sta L1225
|
|
L0ED1: dec L1225
|
|
bne L0EDB
|
|
lda #$01
|
|
jmp L0EF9
|
|
|
|
L0EDB: ldx L1223
|
|
jsr L0F6A
|
|
bcs L0ED1
|
|
lda $D8
|
|
bne L0ED1
|
|
ldx L1223
|
|
jsr L0F07
|
|
bcs L0ED1
|
|
inc $D1
|
|
lda $D1
|
|
cmp #$23
|
|
bcc L0E82
|
|
lda #$00
|
|
L0EF9: pha
|
|
ldx L1223
|
|
lda $C088,x
|
|
lda #$00
|
|
jsr L0E23
|
|
pla
|
|
rts
|
|
|
|
L0F07: ldy #$20
|
|
L0F09: dey
|
|
beq L0F68
|
|
L0F0C: lda $C08C,x
|
|
bpl L0F0C
|
|
L0F11: eor #$D5
|
|
bne L0F09
|
|
nop
|
|
L0F16: lda $C08C,x
|
|
bpl L0F16
|
|
cmp #$AA
|
|
bne L0F11
|
|
ldy #$56
|
|
L0F21: lda $C08C,x
|
|
bpl L0F21
|
|
cmp #$AD
|
|
bne L0F11
|
|
lda #$00
|
|
L0F2C: dey
|
|
sty $D5
|
|
L0F2F: lda $C08C,x
|
|
bpl L0F2F
|
|
cmp #$96
|
|
bne L0F68
|
|
ldy $D5
|
|
bne L0F2C
|
|
L0F3C: sty $D5
|
|
L0F3E: lda $C08C,x
|
|
bpl L0F3E
|
|
cmp #$96
|
|
bne L0F68
|
|
ldy $D5
|
|
iny
|
|
bne L0F3C
|
|
L0F4C: lda $C08C,x
|
|
bpl L0F4C
|
|
cmp #$96
|
|
bne L0F68
|
|
L0F55: lda $C08C,x
|
|
bpl L0F55
|
|
cmp #$DE
|
|
bne L0F68
|
|
nop
|
|
L0F5F: lda $C08C,x
|
|
bpl L0F5F
|
|
cmp #$AA
|
|
beq L0FC4
|
|
L0F68: sec
|
|
rts
|
|
|
|
L0F6A: ldy #$FC
|
|
sty $DC
|
|
L0F6E: iny
|
|
bne L0F75
|
|
inc $DC
|
|
beq L0F68
|
|
L0F75: lda $C08C,x
|
|
bpl L0F75
|
|
L0F7A: cmp #$D5
|
|
bne L0F6E
|
|
nop
|
|
L0F7F: lda $C08C,x
|
|
bpl L0F7F
|
|
cmp #$AA
|
|
bne L0F7A
|
|
ldy #$03
|
|
L0F8A: lda $C08C,x
|
|
bpl L0F8A
|
|
cmp #$96
|
|
bne L0F7A
|
|
lda #$00
|
|
L0F95: sta $DB
|
|
L0F97: lda $C08C,x
|
|
bpl L0F97
|
|
rol a
|
|
sta $DD
|
|
L0F9F: lda $C08C,x
|
|
bpl L0F9F
|
|
and $DD
|
|
sta $D7,y
|
|
eor $DB
|
|
dey
|
|
bpl L0F95
|
|
tay
|
|
bne L0F68
|
|
L0FB1: lda $C08C,x
|
|
bpl L0FB1
|
|
cmp #$DE
|
|
bne L0F68
|
|
nop
|
|
L0FBB: lda $C08C,x
|
|
bpl L0FBB
|
|
cmp #$AA
|
|
bne L0F68
|
|
L0FC4: clc
|
|
rts
|
|
|
|
L0FC6: stx L1237
|
|
sta L1236
|
|
cmp L1224
|
|
beq L102D
|
|
lda #$00
|
|
sta L1238
|
|
L0FD6: lda L1224
|
|
sta L1239
|
|
sec
|
|
sbc L1236
|
|
beq L1019
|
|
bcs L0FEB
|
|
eor #$FF
|
|
inc L1224
|
|
bcc L0FF0
|
|
L0FEB: adc #$FE
|
|
dec L1224
|
|
L0FF0: cmp L1238
|
|
bcc L0FF8
|
|
lda L1238
|
|
L0FF8: cmp #$0C
|
|
bcs L0FFD
|
|
tay
|
|
L0FFD: sec
|
|
jsr L101D
|
|
lda L114B,y
|
|
jsr L113A
|
|
lda L1239
|
|
clc
|
|
jsr L1020
|
|
lda L1157,y
|
|
jsr L113A
|
|
inc L1238
|
|
bne L0FD6
|
|
L1019: jsr L113A
|
|
clc
|
|
L101D: lda L1224
|
|
L1020: and #$03
|
|
rol a
|
|
ora L1237
|
|
tax
|
|
lda $C080,x
|
|
ldx L1237
|
|
L102D: rts
|
|
|
|
L102E: jsr L120E
|
|
lda $C08D,x
|
|
lda $C08E,x
|
|
lda #$FF
|
|
sta $C08F,x
|
|
cmp $C08C,x
|
|
pha
|
|
pla
|
|
nop
|
|
ldy #$04
|
|
L1044: pha
|
|
pla
|
|
jsr L10A5
|
|
dey
|
|
bne L1044
|
|
lda #$D5
|
|
jsr L10A4
|
|
lda #$AA
|
|
jsr L10A4
|
|
lda #$AD
|
|
jsr L10A4
|
|
ldy #$56
|
|
nop
|
|
nop
|
|
nop
|
|
bne L1065
|
|
L1062: jsr L120E
|
|
L1065: nop
|
|
nop
|
|
lda #$96
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
dey
|
|
bne L1062
|
|
bit $00
|
|
nop
|
|
L1075: jsr L120E
|
|
lda #$96
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
lda #$96
|
|
nop
|
|
iny
|
|
bne L1075
|
|
jsr L10A4
|
|
lda #$DE
|
|
jsr L10A4
|
|
lda #$AA
|
|
jsr L10A4
|
|
lda #$EB
|
|
jsr L10A4
|
|
lda #$FF
|
|
jsr L10A4
|
|
lda $C08E,x
|
|
lda $C08C,x
|
|
rts
|
|
|
|
L10A4: nop
|
|
L10A5: pha
|
|
pla
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
rts
|
|
|
|
L10AE: sec
|
|
lda $C08D,x
|
|
lda $C08E,x
|
|
bmi L1115
|
|
lda #$FF
|
|
sta $C08F,x
|
|
cmp $C08C,x
|
|
pha
|
|
pla
|
|
L10C1: jsr L111B
|
|
jsr L111B
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
nop
|
|
dey
|
|
bne L10C1
|
|
lda #$D5
|
|
jsr L112D
|
|
lda #$AA
|
|
jsr L112D
|
|
lda #$96
|
|
jsr L112D
|
|
lda $D3
|
|
jsr L111C
|
|
lda $D1
|
|
jsr L111C
|
|
lda $D2
|
|
jsr L111C
|
|
lda $D3
|
|
eor $D1
|
|
eor $D2
|
|
pha
|
|
lsr a
|
|
ora $D0
|
|
sta $C08D,x
|
|
lda $C08C,x
|
|
pla
|
|
ora #$AA
|
|
jsr L112C
|
|
lda #$DE
|
|
jsr L112D
|
|
lda #$AA
|
|
jsr L112D
|
|
lda #$EB
|
|
jsr L112D
|
|
clc
|
|
L1115: lda $C08E,x
|
|
lda $C08C,x
|
|
L111B: rts
|
|
|
|
L111C: pha
|
|
lsr a
|
|
ora $D0
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
pla
|
|
nop
|
|
nop
|
|
nop
|
|
ora #$AA
|
|
L112C: nop
|
|
L112D: nop
|
|
pha
|
|
pla
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
rts
|
|
|
|
.byte 0
|
|
.byte 0
|
|
.byte 0
|
|
L113A: ldx #$11
|
|
L113C: dex
|
|
bne L113C
|
|
inc16 $D9
|
|
sec
|
|
sbc #$01
|
|
bne L113A
|
|
rts
|
|
|
|
L114B: ora ($30,x)
|
|
plp
|
|
bit $20
|
|
asl $1C1D,x
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
L1157: bvs L1185
|
|
rol $22
|
|
.byte $1F
|
|
asl $1C1D,x
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
.byte $1C
|
|
L1163: lda L1221
|
|
sta $D6
|
|
L1168: ldy #$80
|
|
lda #$00
|
|
sta $D2
|
|
jmp L1173
|
|
|
|
L1171: ldy $D4
|
|
L1173: ldx L1223
|
|
jsr L10AE
|
|
bcc L117E
|
|
jmp L120E
|
|
|
|
L117E: ldx L1223
|
|
jsr L102E
|
|
.byte $E6
|
|
L1185: .byte $D2
|
|
lda $D2
|
|
cmp #$10
|
|
bcc L1171
|
|
ldy #$0F
|
|
sty $D2
|
|
lda L1222
|
|
sta L1225
|
|
L1196: sta L1226,y
|
|
dey
|
|
bpl L1196
|
|
lda $D4
|
|
sec
|
|
sbc #$05
|
|
tay
|
|
L11A2: jsr L120E
|
|
jsr L120E
|
|
pha
|
|
pla
|
|
nop
|
|
nop
|
|
dey
|
|
bne L11A2
|
|
ldx L1223
|
|
jsr L0F6A
|
|
bcs L11F3
|
|
lda $D8
|
|
beq L11CE
|
|
dec $D4
|
|
lda $D4
|
|
cmp L121F
|
|
bcs L11F3
|
|
sec
|
|
rts
|
|
|
|
L11C6: ldx L1223
|
|
jsr L0F6A
|
|
bcs L11E8
|
|
L11CE: ldx L1223
|
|
jsr L0F07
|
|
bcs L11E8
|
|
ldy $D8
|
|
lda L1226,y
|
|
bmi L11E8
|
|
lda #$FF
|
|
sta L1226,y
|
|
dec $D2
|
|
bpl L11C6
|
|
clc
|
|
rts
|
|
|
|
L11E8: dec L1225
|
|
bne L11C6
|
|
dec $D6
|
|
bne L11F3
|
|
sec
|
|
rts
|
|
|
|
L11F3: lda L1222
|
|
asl a
|
|
sta L1225
|
|
L11FA: ldx L1223
|
|
jsr L0F6A
|
|
bcs L1208
|
|
lda $D8
|
|
cmp #$0F
|
|
beq L120F
|
|
L1208: dec L1225
|
|
bne L11FA
|
|
sec
|
|
L120E: rts
|
|
|
|
L120F: ldx #$D6
|
|
L1211: jsr L120E
|
|
jsr L120E
|
|
bit $00
|
|
dex
|
|
bne L1211
|
|
jmp L1168
|
|
|
|
L121F: .byte $0E
|
|
L1220: .byte $1B
|
|
L1221: .byte $03
|
|
L1222: .byte $10
|
|
L1223: .byte $00
|
|
L1224: .byte $00
|
|
L1225: .byte $00
|
|
L1226: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
L1236: .byte $00
|
|
L1237: .byte $00
|
|
L1238: .byte $00
|
|
L1239: .byte $00
|
|
|
|
;;; ============================================================
|
|
|
|
DEFINE_ON_LINE_PARAMS on_line_params,, $1C00
|
|
DEFINE_READ_BLOCK_PARAMS read_block_params, $1C00, 0
|
|
DEFINE_WRITE_BLOCK_PARAMS write_block_params, prodos_loader_blocks, 0
|
|
|
|
L124A: .byte $00
|
|
|
|
;;; ============================================================
|
|
|
|
.proc MLI_RELAY
|
|
sty call
|
|
stax params
|
|
php
|
|
sei
|
|
sta ALTZPOFF
|
|
lda ROMIN2
|
|
jsr MLI
|
|
call: .byte 0
|
|
params: .addr 0
|
|
tax
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
plp
|
|
txa
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
L126F: sta L12C0
|
|
and #$0F
|
|
beq L12A6
|
|
ldx #$11
|
|
lda L12C0
|
|
and #$80
|
|
beq L1281
|
|
ldx #$21
|
|
L1281: stx L1294
|
|
lda L12C0
|
|
and #$70
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
clc
|
|
adc L1294
|
|
sta L1294
|
|
L1294 := * + 1
|
|
lda MLI
|
|
sta $07
|
|
lda #$00
|
|
sta $06
|
|
ldy #$FF
|
|
lda ($06),y
|
|
beq L12A6
|
|
cmp #$FF
|
|
bne L12AD
|
|
L12A6: lda L12C0
|
|
jsr L0E00
|
|
rts
|
|
|
|
L12AD: ldy #$FF
|
|
lda ($06),y
|
|
sta $06
|
|
lda #$03
|
|
sta $42
|
|
lda L12C0
|
|
sta $43
|
|
jmp ($06)
|
|
|
|
rts
|
|
|
|
L12C0: .byte 0
|
|
L12C1: sta L1306
|
|
and #$0F
|
|
beq L1303
|
|
ldx #$11
|
|
lda L1306
|
|
and #$80
|
|
beq L12D3
|
|
ldx #$21
|
|
L12D3: stx L12E6
|
|
lda L1306
|
|
and #$70
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
clc
|
|
adc L12E6
|
|
sta L12E6
|
|
L12E6 := * + 1
|
|
lda MLI
|
|
sta $07
|
|
lda #$00
|
|
sta $06
|
|
ldy #$FF
|
|
lda ($06),y
|
|
beq L1303
|
|
cmp #$FF
|
|
beq L1303
|
|
ldy #$FE
|
|
lda ($06),y
|
|
and #$08
|
|
bne L1303
|
|
return #$FF
|
|
|
|
L1303: return #$00
|
|
|
|
;;; ============================================================
|
|
|
|
L1306: .byte 0
|
|
L1307: sta L124A
|
|
and #$F0
|
|
sta write_block_params::unit_num
|
|
stx $06
|
|
sty $06+1
|
|
ldy #$01
|
|
lda ($06),y
|
|
and #$7F
|
|
cmp #'/'
|
|
bne L132C
|
|
dey
|
|
lda ($06),y
|
|
sec
|
|
sbc #1
|
|
iny
|
|
sta ($06),y
|
|
inc16 $06
|
|
L132C: ldy #0
|
|
lda ($06),y
|
|
tay
|
|
: lda ($06),y
|
|
and #$7F
|
|
sta L14E5,y
|
|
dey
|
|
bpl :-
|
|
|
|
lda L124A
|
|
and #$0F
|
|
beq L1394
|
|
ldx #$11
|
|
lda L124A
|
|
and #$80
|
|
beq L134D
|
|
ldx #$21
|
|
L134D: stx L1360
|
|
lda L124A
|
|
and #$70
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
clc
|
|
adc L1360
|
|
sta L1360
|
|
L1360 := * + 1
|
|
lda MLI
|
|
sta $06+1
|
|
lda #$00
|
|
sta $06
|
|
ldy #$FF
|
|
lda ($06),y
|
|
beq L1394
|
|
cmp #$FF
|
|
beq L1394
|
|
ldy #$FF
|
|
lda ($06),y
|
|
sta $06
|
|
lda #$00
|
|
sta $42
|
|
lda L124A
|
|
and #$F0
|
|
sta $43
|
|
lda #$00
|
|
sta $46
|
|
sta $47
|
|
jsr L1391
|
|
bcc L1398
|
|
jmp L1483
|
|
|
|
L1391: jmp ($06)
|
|
|
|
L1394: ldx #$18
|
|
ldy #$01
|
|
L1398: stx L14E3
|
|
sty L14E4
|
|
|
|
;; Write first block of loader
|
|
copy16 #prodos_loader_blocks, write_block_params::data_buffer
|
|
lda #0
|
|
sta write_block_params::block_num
|
|
sta write_block_params::block_num+1
|
|
yax_call MLI_RELAY, WRITE_BLOCK, write_block_params
|
|
beq :+
|
|
jmp fail2
|
|
|
|
;; Write second block of loader
|
|
: inc write_block_params::block_num ; next block needs...
|
|
inc write_block_params::data_buffer+1 ; next $200 of data
|
|
inc write_block_params::data_buffer+1
|
|
jsr write_block_and_zero
|
|
|
|
;; Subsequent blocks...
|
|
copy16 #$1A00, write_block_params::data_buffer
|
|
lda #$03
|
|
sta L1A02
|
|
ldy L14E5
|
|
tya
|
|
ora #$F0
|
|
sta L1A04
|
|
L13E2: lda L14E5,y
|
|
sta L1A04,y
|
|
dey
|
|
bne L13E2
|
|
ldy #8
|
|
L13ED: lda L14DC,y
|
|
sta L1A22,y
|
|
dey
|
|
bpl L13ED
|
|
jsr write_block_and_zero
|
|
lda #$02
|
|
sta L1A00
|
|
lda #$04
|
|
sta L1A02
|
|
jsr write_block_and_zero
|
|
lda #$03
|
|
sta L1A00
|
|
lda #$05
|
|
sta L1A02
|
|
jsr write_block_and_zero
|
|
lda #$04
|
|
sta L1A00
|
|
jsr write_block_and_zero
|
|
lsr16 L14E3
|
|
lsr16 L14E3
|
|
lsr16 L14E3
|
|
lda L14E3
|
|
bne :+
|
|
dec L14E4
|
|
: dec L14E3
|
|
L1438: jsr L1485
|
|
lda write_block_params::block_num+1
|
|
bne L146A
|
|
lda write_block_params::block_num
|
|
cmp #$06
|
|
bne L146A
|
|
lda #$01
|
|
sta L1A00
|
|
lda L14E4
|
|
cmp #$02
|
|
bcc L146A
|
|
lda #$00
|
|
sta L1A00
|
|
lda L14E4
|
|
lsr a
|
|
tax
|
|
lda #$FF
|
|
dex
|
|
beq L1467
|
|
L1462: clc
|
|
rol a
|
|
dex
|
|
bne L1462
|
|
L1467: sta L1A01
|
|
L146A: jsr write_block_and_zero
|
|
dec L14E4
|
|
dec L14E4
|
|
lda L14E4
|
|
beq L147D
|
|
bmi L147D
|
|
jmp L1438
|
|
|
|
L147D: lda #$00
|
|
sta $08
|
|
clc
|
|
rts
|
|
|
|
L1483: sec
|
|
rts
|
|
|
|
L1485: ldy L14E4
|
|
beq L148E
|
|
ldy #$FF
|
|
bne L1491
|
|
L148E: ldy L14E3
|
|
L1491: lda #$FF
|
|
L1493: sta L1A00,y
|
|
dey
|
|
bne L1493
|
|
sta L1A00
|
|
ldy L14E4
|
|
beq L14B5
|
|
cpy #$02
|
|
bcc L14A9
|
|
ldy #$FF
|
|
bne L14AC
|
|
L14A9: ldy L14E3
|
|
L14AC: sta $1B00,y
|
|
dey
|
|
bne L14AC
|
|
sta $1B00
|
|
L14B5: rts
|
|
|
|
;;; ============================================================
|
|
|
|
fail: pla
|
|
pla
|
|
fail2: sec
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
.proc write_block_and_zero
|
|
yax_call MLI_RELAY, WRITE_BLOCK, write_block_params
|
|
bne fail
|
|
jsr zero_buffers
|
|
inc write_block_params::block_num
|
|
rts
|
|
|
|
zero_buffers:
|
|
ldy #0
|
|
tya
|
|
: sta L1A00,y
|
|
dey
|
|
bne :-
|
|
: sta $1B00,y
|
|
dey
|
|
bne :-
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
L14DC: .byte $C3,$27,$0D,$00,$00,$06,$00
|
|
L14E3: .byte $18
|
|
L14E4: .byte $01
|
|
L14E5: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00
|
|
|
|
;;; ============================================================
|
|
;;; ProDOS Loader
|
|
;;; ============================================================
|
|
|
|
.proc prodos_loader_blocks
|
|
.incbin "inc/pdload.dat"
|
|
.endproc
|
|
.assert .sizeof(prodos_loader_blocks) = $400, error, "Bad data"
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
L1900: stx $06+1
|
|
sta $06
|
|
ldy #0
|
|
lda ($06),y
|
|
tay
|
|
L1909: lda ($06),y
|
|
cmp #$61
|
|
bcc L1917
|
|
cmp #$7B
|
|
bcs L1917
|
|
and #$DF
|
|
sta ($06),y
|
|
L1917: dey
|
|
bpl L1909
|
|
rts
|
|
|
|
L191B: sta ALTZPOFF
|
|
lda ROMIN2
|
|
jsr BELL1
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
rts
|
|
|
|
L192E: sta read_block_params::unit_num
|
|
lda #0
|
|
sta read_block_params::block_num
|
|
sta read_block_params::block_num+1
|
|
yax_call MLI_RELAY, READ_BLOCK, read_block_params
|
|
bne L1959
|
|
lda $1C01
|
|
cmp #$E0
|
|
beq L194E
|
|
jmp L1986
|
|
|
|
L194E: lda $1C02
|
|
cmp #$70
|
|
beq L197E
|
|
cmp #$60
|
|
beq L197E
|
|
L1959: lda read_block_params::unit_num
|
|
jsr L19B7
|
|
ldx $D8D5
|
|
sta $D8B8,x
|
|
lda read_block_params::unit_num
|
|
jsr L19C1
|
|
ldx $D8D6
|
|
sta $D8B8,x
|
|
ldx $D8B8
|
|
L1974: lda $D8B8,x
|
|
sta $D909,x
|
|
dex
|
|
bpl L1974
|
|
rts
|
|
|
|
L197E: addr_call L19C8, $D909
|
|
rts
|
|
|
|
L1986: cmp #$A5
|
|
bne L1959
|
|
lda $1C02
|
|
cmp #$27
|
|
bne L1959
|
|
lda read_block_params::unit_num
|
|
jsr L19B7
|
|
ldx $D8B6
|
|
sta $D891,x
|
|
lda read_block_params::unit_num
|
|
jsr L19C1
|
|
ldx $D8B7
|
|
sta $D891,x
|
|
ldx $D891
|
|
L19AC: lda $D891,x
|
|
sta $D909,x
|
|
dex
|
|
bpl L19AC
|
|
rts
|
|
|
|
.byte 0
|
|
L19B7: and #$70
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
clc
|
|
adc #$30
|
|
rts
|
|
|
|
L19C1: and #$80
|
|
asl a
|
|
rol a
|
|
adc #$31
|
|
rts
|
|
|
|
L19C8: copy16 #$0002, read_block_params::block_num
|
|
yax_call MLI_RELAY, READ_BLOCK, $123E
|
|
beq L19F7
|
|
copy16 #$2004, $D909
|
|
copy16 #$203A, $D90B
|
|
lda #$3F
|
|
sta $D90C
|
|
rts
|
|
|
|
L19F7: lda $1C06
|
|
tax
|
|
L19FB: lda $1C06,x
|
|
L1A00 := * + 2
|
|
sta $D909,x
|
|
L1A01: dex
|
|
L1A02: bpl L19FB
|
|
L1A04: inc $D909
|
|
ldx $D909
|
|
lda #$3A
|
|
sta $D909,x
|
|
inc $D909
|
|
ldx $D909
|
|
lda #$20
|
|
sta $D909,x
|
|
inc $D909
|
|
ldx $D909
|
|
lda #$3F
|
|
L1A22: sta $D909,x
|
|
addr_call adjust_case, $D909
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
L1A2D: sta on_line_params::unit_num
|
|
yax_call MLI_RELAY, ON_LINE, on_line_params
|
|
bne L1A6D
|
|
lda $1C00
|
|
and #$0F
|
|
beq L1A6D
|
|
sta $1C00
|
|
tax
|
|
L1A46: lda $1C00,x
|
|
sta $D909,x
|
|
dex
|
|
bpl L1A46
|
|
inc $D909
|
|
ldx $D909
|
|
lda #$20
|
|
sta $D909,x
|
|
inc $D909
|
|
ldx $D909
|
|
lda #$3F
|
|
sta $D909,x
|
|
addr_call adjust_case, $D909 ; Adjust case ("/HD/GAMES" -> "/Hd/Games")
|
|
rts
|
|
|
|
L1A6D: lda on_line_params::unit_num
|
|
jsr L192E
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
PAD_TO $1C00
|
|
.endproc ; format_erase_overlay
|