a2d/desktop/ovl2.s

1578 lines
32 KiB
ArmAsm
Raw Normal View History

.setcpu "6502"
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc"
.include "../macros.inc"
2018-03-02 02:25:42 +00:00
.include "inc/desktoplc.inc"
;;; ==================================================
;;; Overlay for Format/Erase
;;; ==================================================
.org $800
2018-02-25 23:19:38 +00:00
.proc format_erase_overlay
2018-02-25 07:19:29 +00:00
;;; 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
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
pla
cmp #$04
beq L080C
jmp L09D9
L080C: lda #$00
sta $D8E8
jsr LB509
lda $D57D
2018-02-25 07:19:29 +00:00
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
2018-02-24 05:10:21 +00:00
L0832: copy16 #$0B48, $A89A
lda #$80
sta $D8ED
2018-02-25 07:19:29 +00:00
L0841: jsr prompt_input_loop
bmi L0841
pha
2018-02-24 05:10:21 +00:00
copy16 #$B8F4, $A89A
lda #$00
sta $D8F3
sta $D8ED
pla
beq L085F
jmp L09C2
L085F: bit $D887
bmi L0832
lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::FrameRect, $D6AB
jsr LBD75
lda #$80
sta $D8E8
lda #$00
sta $D8ED
jsr LBD69
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $03, $B28D
L08A7: jsr prompt_input_loop
bmi L08A7
beq L08B7
jmp L09C2
2018-02-25 07:19:29 +00:00
L08B1: jsr bell
jmp L08A7
L08B7: lda $D443
beq L08B1
cmp #$10
bcs L08B1
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
ldx $D887
2018-02-26 00:17:11 +00:00
lda DEVLST,x
sta L09D8
sta L09D7
lda #$00
sta $D8E8
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $03, $B2AF
lda L09D7
jsr L1A2D
2018-02-25 07:19:29 +00:00
addr_call draw_text1, $D909
L0902: jsr prompt_input_loop
bmi L0902
beq L090C
jmp L09C2
L090C: lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
ldy #$11
2018-02-25 21:47:06 +00:00
ldax #$AE6E
jsr MGTK_RELAY
2018-02-25 21:47:06 +00:00
ldax #$B2C6
ldy #$01
2018-02-25 07:19:29 +00:00
jsr draw_dialog_label
lda L09D7
jsr L12C1
and #$FF
bne L0942
2018-02-25 07:19:29 +00:00
jsr set_cursor_watch
lda L09D7
jsr L126F
bcs L099B
L0942: lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $01, $B373
2018-02-24 05:10:21 +00:00
addr_call L1900, $D443
ldx #$43
ldy #$D4
lda L09D7
jsr L1307
pha
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
pla
bne L0980
lda #$00
jmp L09C2
L0980: cmp #$2B
bne L098C
2018-02-25 07:19:29 +00:00
jsr JUMP_TABLE_ALERT_0
bne L09C2
jmp L090C
L098C: jsr L191B
2018-02-24 05:10:21 +00:00
ldax #$B388
ldy #$06
2018-02-25 07:19:29 +00:00
jsr draw_dialog_label
jmp L09B8
L099B: pha
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
pla
cmp #$2B
bne L09AC
2018-02-25 07:19:29 +00:00
jsr JUMP_TABLE_ALERT_0
bne L09C2
jmp L090C
L09AC: jsr L191B
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $06, $B2DE
L09B8: jsr prompt_input_loop
bmi L09B8
bne L09C2
jmp L090C
L09C2: pha
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
jsr reset_state
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::CloseWindow, $D57D
ldx L09D8
pla
rts
2018-02-24 05:10:21 +00:00
L09D7: .byte 0
L09D8: .byte 0
L09D9: lda #$00
sta $D8E8
jsr LB509
lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
addr_call draw_dialog_title, $B319
2018-02-24 05:10:21 +00:00
ldax #$B32A
2018-02-25 21:47:06 +00:00
ldy #$01
2018-02-25 07:19:29 +00:00
jsr draw_dialog_label
jsr L0D31
lda #$FF
sta $D887
2018-02-26 00:17:11 +00:00
copy16 #$0B48, $A89A
lda #$80
sta $D8ED
2018-02-25 07:19:29 +00:00
L0A0E: jsr prompt_input_loop
bmi L0A0E
beq L0A18
jmp L0B31
L0A18: bit $D887
bmi L0A0E
2018-02-24 05:10:21 +00:00
copy16 #$A898, $A89A
lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::FrameRect, $D6AB
jsr LBD75
lda #$80
sta $D8E8
lda #$00
sta $D8ED
jsr LBD69
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $03, $B28D
L0A6A: jsr prompt_input_loop
bmi L0A6A
beq L0A7A
jmp L0B31
2018-02-25 07:19:29 +00:00
L0A74: jsr bell
jmp L0A6A
L0A7A: lda $D443
beq L0A74
2018-02-25 21:47:06 +00:00
cmp #$10
bcs L0A74
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
lda #$00
sta $D8E8
ldx $D887
2018-02-26 00:17:11 +00:00
lda DEVLST,x
sta L0B47
sta L0B46
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $03, $B35D
lda L0B46
and #$F0
jsr L1A2D
2018-02-25 07:19:29 +00:00
addr_call draw_text1, $D909
L0AC7: jsr prompt_input_loop
bmi L0AC7
beq L0AD1
jmp L0B31
L0AD1: lda $D57D
2018-02-25 07:19:29 +00:00
jsr set_port_from_window_id
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $01, $B373
2018-02-24 05:10:21 +00:00
addr_call L1900, $D443
2018-02-25 07:19:29 +00:00
jsr set_cursor_watch
ldx #$43
ldy #$D4
lda L0B46
jsr L1307
pha
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
pla
bne L0B12
lda #$00
jmp L0B31
L0B12: cmp #$2B
bne L0B1E
2018-02-25 07:19:29 +00:00
jsr JUMP_TABLE_ALERT_0
bne L0B31
jmp L0AD1
L0B1E: jsr L191B
2018-02-25 07:19:29 +00:00
axy_call draw_dialog_label, $06, $B388
L0B2A: jsr prompt_input_loop
bmi L0B2A
beq L0AD1
L0B31: pha
2018-02-25 07:19:29 +00:00
jsr set_cursor_pointer
jsr reset_state
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::CloseWindow, $D57D
ldx L0B47
pla
rts
2018-02-24 05:10:21 +00:00
L0B46: .byte 0
L0B47: .byte 0
2018-02-26 00:20:20 +00:00
cmp16 $D20D, #$0028
bpl L0B57
2018-02-24 05:10:21 +00:00
return #$FF
2018-02-26 00:20:20 +00:00
L0B57: cmp16 $D20D, #$0168
bcc L0B66
2018-02-24 05:10:21 +00:00
return #$FF
L0B66: lda $D20F
sec
sbc #$2B
sta $D20F
lda $D210
sbc #$00
bpl L0B79
2018-02-24 05:10:21 +00:00
return #$FF
L0B79: sta $D210
2018-02-24 05:10:21 +00:00
lsr16 $D20F
lsr16 $D20F
lsr16 $D20F
lda $D20F
cmp #$04
bcc L0B98
2018-02-24 05:10:21 +00:00
return #$FF
L0B98: lda #$02
sta L0C1F
2018-02-26 00:20:20 +00:00
cmp16 $D20D, #$0118
bcs L0BBB
dec L0C1F
2018-02-26 00:20:20 +00:00
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
2018-02-24 05:10:21 +00:00
L0BD9: return #$FF
L0BDC: cmp $D887
bne L0C04
jsr LB445
bmi L0C03
2018-03-02 02:25:42 +00:00
L0BE6: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $AE20
ldy #$11
2018-02-24 05:10:21 +00:00
ldax #$AE20
jsr MGTK_RELAY
2018-02-25 21:47:06 +00:00
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
2018-02-24 05:10:21 +00:00
L0C1E: .byte 0
L0C1F: .byte 0
L0C20: ldy #$27
sty $D888
ldy #$00
sty $D889
tax
lsr a
lsr a
sta L0CA9
beq L0C5B
2018-02-24 05:10:21 +00:00
add16 $D888, #$0078, $D888
lda L0CA9
cmp #$01
beq L0C5B
2018-02-24 05:10:21 +00:00
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
2018-02-24 05:10:21 +00:00
add16 $D888, #$0077, $D88C
add16 $D88A, #$0007, $D88E
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
2018-02-24 05:10:21 +00:00
MGTK_RELAY_CALL MGTK::PaintRect, $D888
rts
2018-02-24 05:10:21 +00:00
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
2018-02-24 05:10:21 +00:00
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
2018-02-24 05:10:21 +00:00
L0CF6: return #$FF
lda $D887
clc
adc #$01
cmp $D890
bcc L0D06
lda #$00
L0D06: pha
jsr L0CAA
pla
sta $D887
jsr L0C20
2018-02-24 05:10:21 +00:00
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
2018-02-24 05:10:21 +00:00
return #$FF
2018-02-26 00:17:11 +00:00
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
2018-02-24 05:10:21 +00:00
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
2018-02-25 07:19:29 +00:00
jsr draw_dialog_label
inc L0D8C
jmp L0D3D
2018-02-24 05:10:21 +00:00
L0D8C: .byte 0
L0D8D: .byte 0
2018-02-24 05:21:56 +00:00
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
2018-02-24 05:10:21 +00:00
.byte 0
.byte 0
.byte 0
L113A: ldx #$11
L113C: dex
bne L113C
2018-02-26 00:06:17 +00:00
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
2018-02-25 07:19:29 +00:00
L1239: .byte $00
;;; ==================================================
2018-02-26 05:03:58 +00:00
DEFINE_ON_LINE_PARAMS on_line_params,, $1C00
2018-02-26 04:28:23 +00:00
DEFINE_READ_BLOCK_PARAMS read_block_params, $1C00, 0
DEFINE_WRITE_BLOCK_PARAMS write_block_params, prodos_loader_blocks, 0
2018-02-25 07:19:29 +00:00
L124A: .byte $00
2018-02-25 07:19:29 +00:00
;;; ==================================================
.proc MLI_RELAY
sty call
stax params
php
sei
sta ALTZPOFF
2018-02-25 07:19:29 +00:00
lda ROMIN2
jsr MLI
2018-02-25 07:19:29 +00:00
call: .byte 0
params: .addr 0
tax
sta ALTZPON
lda LCBANK1
lda LCBANK1
plp
txa
rts
2018-02-25 07:19:29 +00:00
.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
2018-02-25 07:19:29 +00:00
sta $06
ldy #$FF
2018-02-25 07:19:29 +00:00
lda ($06),y
beq L12A6
cmp #$FF
bne L12AD
L12A6: lda L12C0
jsr L0E00
rts
L12AD: ldy #$FF
2018-02-25 07:19:29 +00:00
lda ($06),y
sta $06
lda #$03
sta $42
lda L12C0
sta $43
2018-02-25 07:19:29 +00:00
jmp ($06)
rts
2018-02-24 05:10:21 +00:00
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
2018-02-25 07:19:29 +00:00
sta $06
ldy #$FF
2018-02-25 07:19:29 +00:00
lda ($06),y
beq L1303
cmp #$FF
beq L1303
ldy #$FE
2018-02-25 07:19:29 +00:00
lda ($06),y
and #$08
bne L1303
2018-02-24 05:10:21 +00:00
return #$FF
2018-02-24 05:10:21 +00:00
L1303: return #$00
2018-02-25 07:19:29 +00:00
;;; ==================================================
2018-02-24 05:10:21 +00:00
L1306: .byte 0
L1307: sta L124A
and #$F0
2018-02-25 07:19:29 +00:00
sta write_block_params::unit_num
stx $06
sty $06+1
ldy #$01
2018-02-25 07:19:29 +00:00
lda ($06),y
and #$7F
2018-02-25 07:19:29 +00:00
cmp #'/'
bne L132C
dey
2018-02-25 07:19:29 +00:00
lda ($06),y
sec
2018-02-25 07:19:29 +00:00
sbc #1
iny
2018-02-25 07:19:29 +00:00
sta ($06),y
2018-02-26 00:06:17 +00:00
inc16 $06
2018-02-25 07:19:29 +00:00
L132C: ldy #0
lda ($06),y
tay
2018-02-25 07:19:29 +00:00
: lda ($06),y
and #$7F
sta L14E5,y
dey
2018-02-25 07:19:29 +00:00
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
2018-02-25 07:19:29 +00:00
sta $06+1
lda #$00
2018-02-25 07:19:29 +00:00
sta $06
ldy #$FF
2018-02-25 07:19:29 +00:00
lda ($06),y
beq L1394
cmp #$FF
beq L1394
ldy #$FF
2018-02-25 07:19:29 +00:00
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
2018-02-25 07:19:29 +00:00
L1391: jmp ($06)
L1394: ldx #$18
ldy #$01
L1398: stx L14E3
sty L14E4
2018-02-25 07:19:29 +00:00
;; 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
2018-02-25 07:19:29 +00:00
ldy #8
L13ED: lda L14DC,y
sta L1A22,y
dey
bpl L13ED
2018-02-25 07:19:29 +00:00
jsr write_block_and_zero
lda #$02
sta L1A00
lda #$04
sta L1A02
2018-02-25 07:19:29 +00:00
jsr write_block_and_zero
lda #$03
sta L1A00
lda #$05
sta L1A02
2018-02-25 07:19:29 +00:00
jsr write_block_and_zero
lda #$04
sta L1A00
2018-02-25 07:19:29 +00:00
jsr write_block_and_zero
2018-02-24 05:10:21 +00:00
lsr16 L14E3
lsr16 L14E3
lsr16 L14E3
lda L14E3
2018-02-25 07:19:29 +00:00
bne :+
dec L14E4
2018-02-25 07:19:29 +00:00
: dec L14E3
L1438: jsr L1485
2018-02-25 07:19:29 +00:00
lda write_block_params::block_num+1
bne L146A
2018-02-25 07:19:29 +00:00
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
2018-02-25 07:19:29 +00:00
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
2018-02-25 07:19:29 +00:00
;;; ==================================================
fail: pla
pla
2018-02-25 07:19:29 +00:00
fail2: sec
rts
2018-02-25 07:19:29 +00:00
;;; ==================================================
.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
2018-02-25 07:19:29 +00:00
zero_buffers:
ldy #0
tya
2018-02-25 07:19:29 +00:00
: sta L1A00,y
dey
2018-02-25 07:19:29 +00:00
bne :-
: sta $1B00,y
dey
2018-02-25 07:19:29 +00:00
bne :-
rts
2018-02-25 07:19:29 +00:00
.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
2018-02-25 07:19:29 +00:00
.byte $00,$00,$00
2018-02-25 07:19:29 +00:00
;;; ==================================================
;;; ProDOS Loader
;;; ==================================================
2018-02-25 07:19:29 +00:00
.proc prodos_loader_blocks
2018-02-25 23:42:50 +00:00
.incbin "inc/pdload.dat"
2018-02-25 07:19:29 +00:00
.endproc
.assert .sizeof(prodos_loader_blocks) = $400, error, "Bad data"
2018-02-25 07:19:29 +00:00
;;; ==================================================
2018-02-25 07:19:29 +00:00
L1900: stx $06+1
sta $06
ldy #0
lda ($06),y
tay
2018-02-25 07:19:29 +00:00
L1909: lda ($06),y
cmp #$61
bcc L1917
cmp #$7B
bcs L1917
and #$DF
2018-02-25 07:19:29 +00:00
sta ($06),y
L1917: dey
bpl L1909
rts
L191B: sta ALTZPOFF
2018-02-25 21:47:06 +00:00
lda ROMIN2
jsr BELL1
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
2018-02-25 07:19:29 +00:00
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
2018-02-25 07:19:29 +00:00
L1959: lda read_block_params::unit_num
jsr L19B7
ldx $D8D5
sta $D8B8,x
2018-02-25 07:19:29 +00:00
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
2018-02-24 05:10:21 +00:00
L197E: addr_call L19C8, $D909
rts
L1986: cmp #$A5
bne L1959
lda $1C02
cmp #$27
bne L1959
2018-02-25 07:19:29 +00:00
lda read_block_params::unit_num
jsr L19B7
ldx $D8B6
sta $D891,x
2018-02-25 07:19:29 +00:00
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
2018-02-24 05:10:21 +00:00
.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
2018-02-25 07:19:29 +00:00
L19C8: copy16 #$0002, read_block_params::block_num
yax_call MLI_RELAY, READ_BLOCK, $123E
beq L19F7
2018-02-24 05:10:21 +00:00
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
2018-02-25 07:19:29 +00:00
addr_call adjust_case, $D909
rts
2018-02-25 07:19:29 +00:00
;;; ==================================================
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
2018-02-25 07:19:29 +00:00
addr_call adjust_case, $D909 ; Adjust case ("/HD/GAMES" -> "/Hd/Games")
rts
2018-02-25 07:19:29 +00:00
L1A6D: lda on_line_params::unit_num
jsr L192E
rts
2018-02-25 07:19:29 +00:00
;;; ==================================================
PAD_TO $1C00
2018-02-25 23:19:38 +00:00
.endproc ; format_erase_overlay