mirror of
https://github.com/mi57730/a2d.git
synced 2025-02-20 02:29:11 +00:00
DeskTop: Resource string labels used in overlays
This commit is contained in:
Joshua Bell
parent
fe2948e489
commit
40bf0db1d3
@ -532,33 +532,51 @@ dialog_label_pos:
|
|||||||
;; ???
|
;; ???
|
||||||
.byte $00,$04,$00,$02,$00,$5A,$01,$6C,$00,$05,$00,$03,$00,$59,$01,$6B,$00,$06,$00,$16,$00,$58,$01,$16,$00,$06,$00,$59,$00,$58,$01,$59,$00,$D2,$00,$5C,$00,$36,$01,$67,$00,$28,$00,$5C,$00,$8C,$00,$67,$00,$D7,$00,$66,$00,$2D,$00,$66,$00,$82,$00,$07,$00,$DC,$00,$13,$00
|
.byte $00,$04,$00,$02,$00,$5A,$01,$6C,$00,$05,$00,$03,$00,$59,$01,$6B,$00,$06,$00,$16,$00,$58,$01,$16,$00,$06,$00,$59,$00,$58,$01,$59,$00,$D2,$00,$5C,$00,$36,$01,$67,$00,$28,$00,$5C,$00,$8C,$00,$67,$00,$D7,$00,$66,$00,$2D,$00,$66,$00,$82,$00,$07,$00,$DC,$00,$13,$00
|
||||||
|
|
||||||
LD718: PASCAL_STRING "Add an Entry ..."
|
add_an_entry_label:
|
||||||
LD729: PASCAL_STRING "Edit an Entry ..."
|
PASCAL_STRING "Add an Entry ..."
|
||||||
LD73B: PASCAL_STRING "Delete an Entry ..."
|
edit_an_entry_label:
|
||||||
LD74F: PASCAL_STRING "Run an Entry ..."
|
PASCAL_STRING "Edit an Entry ..."
|
||||||
|
delete_an_entry_label:
|
||||||
|
PASCAL_STRING "Delete an Entry ..."
|
||||||
|
run_an_entry_label:
|
||||||
|
PASCAL_STRING "Run an Entry ..."
|
||||||
|
|
||||||
LD760: PASCAL_STRING "Run list"
|
LD760: PASCAL_STRING "Run list"
|
||||||
|
|
||||||
|
enter_the_full_pathname_label1:
|
||||||
PASCAL_STRING "Enter the full pathname of the run list file:"
|
PASCAL_STRING "Enter the full pathname of the run list file:"
|
||||||
|
enter_the_name_to_appear_label:
|
||||||
PASCAL_STRING "Enter the name (14 characters max) you wish to appear in the run list"
|
PASCAL_STRING "Enter the name (14 characters max) you wish to appear in the run list"
|
||||||
|
|
||||||
|
add_a_new_entry_to_label:
|
||||||
PASCAL_STRING "Add a new entry to the:"
|
PASCAL_STRING "Add a new entry to the:"
|
||||||
|
run_list_label:
|
||||||
PASCAL_STRING {GLYPH_OAPPLE,"1 Run list"}
|
PASCAL_STRING {GLYPH_OAPPLE,"1 Run list"}
|
||||||
|
other_run_list_label:
|
||||||
PASCAL_STRING {GLYPH_OAPPLE,"2 Other Run list"}
|
PASCAL_STRING {GLYPH_OAPPLE,"2 Other Run list"}
|
||||||
|
down_load_label:
|
||||||
PASCAL_STRING "Down load:"
|
PASCAL_STRING "Down load:"
|
||||||
|
at_first_boot_label:
|
||||||
PASCAL_STRING {GLYPH_OAPPLE,"3 at first boot"}
|
PASCAL_STRING {GLYPH_OAPPLE,"3 at first boot"}
|
||||||
|
at_first_use_label:
|
||||||
PASCAL_STRING {GLYPH_OAPPLE,"4 at first use"}
|
PASCAL_STRING {GLYPH_OAPPLE,"4 at first use"}
|
||||||
|
never_label:
|
||||||
PASCAL_STRING {GLYPH_OAPPLE,"5 never"}
|
PASCAL_STRING {GLYPH_OAPPLE,"5 never"}
|
||||||
PASCAL_STRING "Enter the full pathname of the run list file:" ; Duplicate ???
|
|
||||||
|
enter_the_full_pathname_label2:
|
||||||
|
PASCAL_STRING "Enter the full pathname of the run list file:"
|
||||||
|
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00
|
.byte $00,$00,$00,$00,$00,$00,$00
|
||||||
.byte $00,$06,$00,$17,$00,$58,$01,$57
|
.byte $00,$06,$00,$17,$00,$58,$01,$57
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
.byte $00,$00,$00
|
.byte $00,$00,$00
|
||||||
|
|
||||||
|
the_dos_33_disk_label:
|
||||||
PASCAL_STRING "the DOS 3.3 disk in slot drive ?"
|
PASCAL_STRING "the DOS 3.3 disk in slot drive ?"
|
||||||
|
|
||||||
.byte $1A,$22
|
.byte $1A,$22
|
||||||
|
|
||||||
|
the_disk_in_slot_label:
|
||||||
PASCAL_STRING "the disk in slot drive ?"
|
PASCAL_STRING "the disk in slot drive ?"
|
||||||
|
|
||||||
.byte $12
|
.byte $12
|
||||||
@ -602,6 +620,7 @@ file_count:
|
|||||||
.byte $00,$00,$00,$00,$00,$7D,$00,$00
|
.byte $00,$00,$00,$00,$00,$7D,$00,$00
|
||||||
.byte $00,$02,$00,$00,$00,$00,$00
|
.byte $00,$02,$00,$00,$00,$00,$00
|
||||||
|
|
||||||
|
str_folder:
|
||||||
PASCAL_STRING {GLYPH_FOLDERL,GLYPH_FOLDERR}
|
PASCAL_STRING {GLYPH_FOLDERL,GLYPH_FOLDERR}
|
||||||
|
|
||||||
.byte $00,$00,$57,$01,$28,$00
|
.byte $00,$00,$57,$01,$28,$00
|
||||||
@ -634,39 +653,66 @@ file_count:
|
|||||||
.byte $29,$00,$43,$01,$1E,$00,$43,$01
|
.byte $29,$00,$43,$01,$1E,$00,$43,$01
|
||||||
.byte $64,$00,$81,$D3,$00
|
.byte $64,$00,$81,$D3,$00
|
||||||
|
|
||||||
.word $C6,$63
|
ok_button_pos:
|
||||||
|
.word 198,99
|
||||||
|
ok_button_label:
|
||||||
PASCAL_STRING {"OK ",GLYPH_RETURN}
|
PASCAL_STRING {"OK ",GLYPH_RETURN}
|
||||||
|
|
||||||
.word $C6,$44
|
close_button_pos:
|
||||||
|
.word 198,68
|
||||||
|
close_button_label:
|
||||||
PASCAL_STRING "Close"
|
PASCAL_STRING "Close"
|
||||||
|
|
||||||
.word $C6,$36
|
open_button_pos:
|
||||||
|
.word 198,54
|
||||||
|
open_button_label:
|
||||||
PASCAL_STRING "Open"
|
PASCAL_STRING "Open"
|
||||||
|
|
||||||
.word $C6,$53
|
cancel_button_pos:
|
||||||
|
.word 198,83
|
||||||
|
cancel_button_label:
|
||||||
PASCAL_STRING "Cancel Esc"
|
PASCAL_STRING "Cancel Esc"
|
||||||
|
|
||||||
.word $C6,$28
|
change_drive_button_pos:
|
||||||
|
.word 198,40
|
||||||
|
change_drive_button_label:
|
||||||
PASCAL_STRING "Change Drive"
|
PASCAL_STRING "Change Drive"
|
||||||
|
|
||||||
.byte $1C,$00,$19,$00,$1C
|
disk_label_pos:
|
||||||
.byte $00,$70,$00,$1C,$00,$87,$00,$00
|
DEFINE_POINT 28,25
|
||||||
|
|
||||||
|
pos1:
|
||||||
|
DEFINE_POINT 28,112
|
||||||
|
pos2:
|
||||||
|
DEFINE_POINT 28,135
|
||||||
|
|
||||||
|
textbg1:
|
||||||
|
.byte $00
|
||||||
|
textbg2:
|
||||||
.byte $7F
|
.byte $7F
|
||||||
|
|
||||||
|
disk_label:
|
||||||
PASCAL_STRING " Disk: "
|
PASCAL_STRING " Disk: "
|
||||||
|
|
||||||
|
copy_a_file_label:
|
||||||
PASCAL_STRING "Copy a File ..."
|
PASCAL_STRING "Copy a File ..."
|
||||||
|
|
||||||
|
source_filename_label:
|
||||||
PASCAL_STRING "Source filename:"
|
PASCAL_STRING "Source filename:"
|
||||||
|
|
||||||
|
destination_filename_label:
|
||||||
PASCAL_STRING "Destination filename:"
|
PASCAL_STRING "Destination filename:"
|
||||||
|
|
||||||
dialog_rect1: DEFINE_RECT 28, 113, 463, 124
|
dialog_rect1: DEFINE_RECT 28, 113, 463, 124
|
||||||
.byte $1E,$00,$7B,$00
|
path_pos1: DEFINE_POINT 30,123
|
||||||
|
|
||||||
dialog_rect2: DEFINE_RECT 28, 136, 463, 147
|
dialog_rect2: DEFINE_RECT 28, 136, 463, 147
|
||||||
|
path_pos2: DEFINE_POINT 30,146
|
||||||
|
|
||||||
|
delete_a_file_label:
|
||||||
.byte $1E,$00,$92,$00
|
|
||||||
|
|
||||||
PASCAL_STRING "Delete a File ..."
|
PASCAL_STRING "Delete a File ..."
|
||||||
|
|
||||||
|
file_to_delete_label:
|
||||||
PASCAL_STRING "File to delete:"
|
PASCAL_STRING "File to delete:"
|
||||||
|
|
||||||
.assert * = $DAD8, error, "Segment length mismatch"
|
.assert * = $DAD8, error, "Segment length mismatch"
|
||||||
@ -997,14 +1043,14 @@ LE71F: .byte 0
|
|||||||
.proc label
|
.proc label
|
||||||
window_id: .byte id
|
window_id: .byte id
|
||||||
options: .byte MGTK::option_go_away_box | MGTK::option_grow_box
|
options: .byte MGTK::option_go_away_box | MGTK::option_grow_box
|
||||||
title: .addr buflabel
|
title: .addr buflabel
|
||||||
hscroll: .byte MGTK::scroll_option_normal
|
hscroll: .byte MGTK::scroll_option_normal
|
||||||
vscroll: .byte MGTK::scroll_option_normal
|
vscroll: .byte MGTK::scroll_option_normal
|
||||||
hthumbmax: .byte 3
|
hthumbmax: .byte 3
|
||||||
hthumbpos: .byte 0
|
hthumbpos: .byte 0
|
||||||
vthumbmax: .byte 3
|
vthumbmax: .byte 3
|
||||||
vthumbpos: .byte 0
|
vthumbpos: .byte 0
|
||||||
status: .byte 0
|
status: .byte 0
|
||||||
reserved: .byte 0
|
reserved: .byte 0
|
||||||
mincontwidth: .word 170
|
mincontwidth: .word 170
|
||||||
maxcontwidth: .word 50
|
maxcontwidth: .word 50
|
||||||
@ -1017,11 +1063,11 @@ mapwidth: .word MGTK::screen_mapwidth
|
|||||||
cliprect: DEFINE_RECT 0, 0, 440, 120
|
cliprect: DEFINE_RECT 0, 0, 440, 120
|
||||||
penpattern: .res 8, $FF
|
penpattern: .res 8, $FF
|
||||||
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
|
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
|
||||||
penloc: DEFINE_POINT 0, 0
|
penloc: DEFINE_POINT 0, 0
|
||||||
penwidth: .byte 1
|
penwidth: .byte 1
|
||||||
penheight: .byte 1
|
penheight: .byte 1
|
||||||
penmode: .byte 0
|
penmode: .byte 0
|
||||||
textbg: .byte MGTK::textbg_white
|
textbg: .byte MGTK::textbg_white
|
||||||
fontptr: .addr DEFAULT_FONT
|
fontptr: .addr DEFAULT_FONT
|
||||||
nextwinfo: .addr 0
|
nextwinfo: .addr 0
|
||||||
.endproc
|
.endproc
|
||||||
|
|||||||
@ -1,4 +1,4 @@
|
|||||||
.setcpu "6502"
|
.setcpu "6502"
|
||||||
|
|
||||||
.include "apple2.inc"
|
.include "apple2.inc"
|
||||||
.include "../macros.inc"
|
.include "../macros.inc"
|
||||||
|
|||||||
@ -85,7 +85,7 @@ L08A7: jsr prompt_input_loop
|
|||||||
L08B1: jsr bell
|
L08B1: jsr bell
|
||||||
jmp L08A7
|
jmp L08A7
|
||||||
|
|
||||||
L08B7: lda $D443
|
L08B7: lda path_buf1
|
||||||
beq L08B1
|
beq L08B1
|
||||||
cmp #$10
|
cmp #$10
|
||||||
bcs L08B1
|
bcs L08B1
|
||||||
@ -131,7 +131,7 @@ L0942: lda winfo_alert_dialog
|
|||||||
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
||||||
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
||||||
axy_call draw_dialog_label, $01, $B373
|
axy_call draw_dialog_label, $01, $B373
|
||||||
addr_call L1900, $D443
|
addr_call L1900, path_buf1
|
||||||
ldx #$43
|
ldx #$43
|
||||||
ldy #$D4
|
ldy #$D4
|
||||||
lda L09D7
|
lda L09D7
|
||||||
@ -225,7 +225,7 @@ L0A6A: jsr prompt_input_loop
|
|||||||
L0A74: jsr bell
|
L0A74: jsr bell
|
||||||
jmp L0A6A
|
jmp L0A6A
|
||||||
|
|
||||||
L0A7A: lda $D443
|
L0A7A: lda path_buf1
|
||||||
beq L0A74
|
beq L0A74
|
||||||
cmp #$10
|
cmp #$10
|
||||||
bcs L0A74
|
bcs L0A74
|
||||||
@ -255,7 +255,7 @@ L0AD1: lda winfo_alert_dialog
|
|||||||
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
||||||
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
|
||||||
axy_call draw_dialog_label, $01, $B373
|
axy_call draw_dialog_label, $01, $B373
|
||||||
addr_call L1900, $D443
|
addr_call L1900, path_buf1
|
||||||
jsr set_cursor_watch
|
jsr set_cursor_watch
|
||||||
ldx #$43
|
ldx #$43
|
||||||
ldy #$D4
|
ldy #$D4
|
||||||
@ -1460,13 +1460,13 @@ L194E: lda $1C02
|
|||||||
L1959: lda read_block_params::unit_num
|
L1959: lda read_block_params::unit_num
|
||||||
jsr L19B7
|
jsr L19B7
|
||||||
ldx $D8D5
|
ldx $D8D5
|
||||||
sta $D8B8,x
|
sta the_disk_in_slot_label,x
|
||||||
lda read_block_params::unit_num
|
lda read_block_params::unit_num
|
||||||
jsr L19C1
|
jsr L19C1
|
||||||
ldx $D8D6
|
ldx $D8D6
|
||||||
sta $D8B8,x
|
sta the_disk_in_slot_label,x
|
||||||
ldx $D8B8
|
ldx the_disk_in_slot_label
|
||||||
L1974: lda $D8B8,x
|
L1974: lda the_disk_in_slot_label,x
|
||||||
sta $D909,x
|
sta $D909,x
|
||||||
dex
|
dex
|
||||||
bpl L1974
|
bpl L1974
|
||||||
@ -1483,13 +1483,13 @@ L1986: cmp #$A5
|
|||||||
lda read_block_params::unit_num
|
lda read_block_params::unit_num
|
||||||
jsr L19B7
|
jsr L19B7
|
||||||
ldx $D8B6
|
ldx $D8B6
|
||||||
sta $D891,x
|
sta the_dos_33_disk_label,x
|
||||||
lda read_block_params::unit_num
|
lda read_block_params::unit_num
|
||||||
jsr L19C1
|
jsr L19C1
|
||||||
ldx $D8B7
|
ldx $D8B7
|
||||||
sta $D891,x
|
sta the_dos_33_disk_label,x
|
||||||
ldx $D891
|
ldx the_dos_33_disk_label
|
||||||
L19AC: lda $D891,x
|
L19AC: lda the_dos_33_disk_label,x
|
||||||
sta $D909,x
|
sta $D909,x
|
||||||
dex
|
dex
|
||||||
bpl L19AC
|
bpl L19AC
|
||||||
|
|||||||
@ -55,8 +55,8 @@ L903C: ldx #$01
|
|||||||
bcc L9052
|
bcc L9052
|
||||||
inx
|
inx
|
||||||
L9052: lda #$00
|
L9052: lda #$00
|
||||||
sta $D402
|
sta path_buf0
|
||||||
sta $D443
|
sta path_buf1
|
||||||
ldy #$03
|
ldy #$03
|
||||||
lda #$02
|
lda #$02
|
||||||
jsr common_overlay_L5000
|
jsr common_overlay_L5000
|
||||||
@ -191,7 +191,7 @@ L9174: lda L938D
|
|||||||
lda ($06),y
|
lda ($06),y
|
||||||
tay
|
tay
|
||||||
L918C: lda ($06),y
|
L918C: lda ($06),y
|
||||||
sta $D443,y
|
sta path_buf1,y
|
||||||
dey
|
dey
|
||||||
bpl L918C
|
bpl L918C
|
||||||
ldy #$0F
|
ldy #$0F
|
||||||
@ -204,7 +204,7 @@ L918C: lda ($06),y
|
|||||||
lda ($06),y
|
lda ($06),y
|
||||||
tay
|
tay
|
||||||
L91AA: lda ($06),y
|
L91AA: lda ($06),y
|
||||||
sta $D402,y
|
sta path_buf0,y
|
||||||
dey
|
dey
|
||||||
bpl L91AA
|
bpl L91AA
|
||||||
ldx #$01
|
ldx #$01
|
||||||
@ -396,14 +396,14 @@ L933F: pha
|
|||||||
lda #$07
|
lda #$07
|
||||||
jsr JUMP_TABLE_RESTORE_OVL
|
jsr JUMP_TABLE_RESTORE_OVL
|
||||||
jsr JUMP_TABLE_REDRAW_ALL
|
jsr JUMP_TABLE_REDRAW_ALL
|
||||||
L934F: MGTK_RELAY_CALL MGTK::InitPort, $D239
|
L934F: MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
||||||
MGTK_RELAY_CALL MGTK::SetPort, $D239
|
MGTK_RELAY_CALL MGTK::SetPort, grafport3
|
||||||
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entry_picker
|
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entry_picker
|
||||||
pla
|
pla
|
||||||
jmp L900F
|
jmp L900F
|
||||||
|
|
||||||
L936E: MGTK_RELAY_CALL MGTK::InitPort, $D239
|
L936E: MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
||||||
MGTK_RELAY_CALL MGTK::SetPort, $D239
|
MGTK_RELAY_CALL MGTK::SetPort, grafport3
|
||||||
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entry_picker
|
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entry_picker
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -522,8 +522,8 @@ L94D4: lda ($06),y
|
|||||||
sta $D486,y
|
sta $D486,y
|
||||||
dey
|
dey
|
||||||
bpl L94D4
|
bpl L94D4
|
||||||
copy16 #$D487, $D484
|
copy16 #$D487, path_buf2
|
||||||
MGTK_RELAY_CALL MGTK::DrawText, $D484
|
MGTK_RELAY_CALL MGTK::DrawText, path_buf2
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L94F0: stax $06
|
L94F0: stax $06
|
||||||
@ -1031,8 +1031,8 @@ L9A11: sta L9A60
|
|||||||
lda L9A60
|
lda L9A60
|
||||||
jsr L9BEF
|
jsr L9BEF
|
||||||
stax $08
|
stax $08
|
||||||
ldy $D443
|
ldy path_buf1
|
||||||
L9A2D: lda $D443,y
|
L9A2D: lda path_buf1,y
|
||||||
sta ($06),y
|
sta ($06),y
|
||||||
sta ($08),y
|
sta ($08),y
|
||||||
dey
|
dey
|
||||||
@ -1047,8 +1047,8 @@ L9A2D: lda $D443,y
|
|||||||
lda L9A60
|
lda L9A60
|
||||||
jsr L9BFC
|
jsr L9BFC
|
||||||
stax $08
|
stax $08
|
||||||
ldy $D402
|
ldy path_buf0
|
||||||
L9A55: lda $D402,y
|
L9A55: lda path_buf0,y
|
||||||
sta ($06),y
|
sta ($06),y
|
||||||
sta ($08),y
|
sta ($08),y
|
||||||
dey
|
dey
|
||||||
@ -1062,8 +1062,8 @@ L9A61: sta L9A96
|
|||||||
lda L9A96
|
lda L9A96
|
||||||
jsr L9BD5
|
jsr L9BD5
|
||||||
stax $06
|
stax $06
|
||||||
ldy $D443
|
ldy path_buf1
|
||||||
L9A73: lda $D443,y
|
L9A73: lda path_buf1,y
|
||||||
sta ($06),y
|
sta ($06),y
|
||||||
dey
|
dey
|
||||||
bpl L9A73
|
bpl L9A73
|
||||||
@ -1073,8 +1073,8 @@ L9A73: lda $D443,y
|
|||||||
lda L9A96
|
lda L9A96
|
||||||
jsr L9BE2
|
jsr L9BE2
|
||||||
stax $06
|
stax $06
|
||||||
ldy $D402
|
ldy path_buf0
|
||||||
L9A8D: lda $D402,y
|
L9A8D: lda path_buf0,y
|
||||||
sta ($06),y
|
sta ($06),y
|
||||||
dey
|
dey
|
||||||
bpl L9A8D
|
bpl L9A8D
|
||||||
|
|||||||
426
desktop/ovl4.s
426
desktop/ovl4.s
@ -107,11 +107,11 @@ L5151: lda winfo_entrydlg
|
|||||||
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
||||||
bit L51AE
|
bit L51AE
|
||||||
bmi L5183
|
bmi L5183
|
||||||
MGTK_RELAY_CALL MGTK::InRect, $DA9E
|
MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
|
||||||
cmp #MGTK::inrect_inside
|
cmp #MGTK::inrect_inside
|
||||||
bne L5196
|
bne L5196
|
||||||
beq L5190
|
beq L5190
|
||||||
L5183: MGTK_RELAY_CALL MGTK::InRect, $DAAA
|
L5183: MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
|
||||||
cmp #MGTK::inrect_inside
|
cmp #MGTK::inrect_inside
|
||||||
bne L5196
|
bne L5196
|
||||||
L5190: jsr L55E0
|
L5190: jsr L55E0
|
||||||
@ -233,7 +233,7 @@ L5304: jsr L6D45
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
L5308: MGTK_RELAY_CALL MGTK::InitPort, $D239
|
L5308: MGTK_RELAY_CALL MGTK::InitPort, $D239
|
||||||
MGTK_RELAY_CALL MGTK::SetPort, $D215
|
MGTK_RELAY_CALL MGTK::SetPort, grafport2
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L531B: jsr L59B8
|
L531B: jsr L59B8
|
||||||
@ -315,7 +315,7 @@ L53B5: and #$7F
|
|||||||
jsr L61B1
|
jsr L61B1
|
||||||
jsr L606D
|
jsr L606D
|
||||||
MGTK_RELAY_CALL MGTK::InitPort, $D239
|
MGTK_RELAY_CALL MGTK::InitPort, $D239
|
||||||
MGTK_RELAY_CALL MGTK::SetPort, $D215
|
MGTK_RELAY_CALL MGTK::SetPort, grafport2
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L542E: .byte 0
|
L542E: .byte 0
|
||||||
@ -1090,7 +1090,7 @@ L5C2F: sta $D920
|
|||||||
jsr L6586
|
jsr L6586
|
||||||
jsr L6163
|
jsr L6163
|
||||||
jsr L606D
|
jsr L606D
|
||||||
copy16 #$2001, $D484
|
copy16 #$2001, path_buf2
|
||||||
jsr L6D27
|
jsr L6D27
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -1189,24 +1189,24 @@ L5CF7: MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg
|
|||||||
MGTK_RELAY_CALL MGTK::SetPort, $D239
|
MGTK_RELAY_CALL MGTK::SetPort, $D239
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5D82: MGTK_RELAY_CALL MGTK::MoveTo, $DA03
|
L5D82: MGTK_RELAY_CALL MGTK::MoveTo, ok_button_pos
|
||||||
addr_call L5DED, $DA07 ; "OK"
|
addr_call L5DED, ok_button_label
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5D93: MGTK_RELAY_CALL MGTK::MoveTo, $DA21
|
L5D93: MGTK_RELAY_CALL MGTK::MoveTo, open_button_pos
|
||||||
addr_call L5DED, $DA25 ; "Open"
|
addr_call L5DED, open_button_label
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5DA4: MGTK_RELAY_CALL MGTK::MoveTo, $DA17
|
L5DA4: MGTK_RELAY_CALL MGTK::MoveTo, close_button_pos
|
||||||
addr_call L5DED, $DA1B ; "Close"
|
addr_call L5DED, close_button_label
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5DB5: MGTK_RELAY_CALL MGTK::MoveTo, $DA2A
|
L5DB5: MGTK_RELAY_CALL MGTK::MoveTo, cancel_button_pos
|
||||||
addr_call L5DED, $DA2E ; "Cancel"
|
addr_call L5DED, cancel_button_label
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5DC6: MGTK_RELAY_CALL MGTK::MoveTo, $DA40
|
L5DC6: MGTK_RELAY_CALL MGTK::MoveTo, change_drive_button_pos
|
||||||
addr_call L5DED, $DA44 ; "Change Drive"
|
addr_call L5DED, change_drive_button_label
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5DD7: stax $06
|
L5DD7: stax $06
|
||||||
@ -1262,7 +1262,7 @@ L5E56: .byte 0
|
|||||||
|
|
||||||
L5E57: jsr L5DD7
|
L5E57: jsr L5DD7
|
||||||
stax $06
|
stax $06
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $DA55
|
MGTK_RELAY_CALL MGTK::MoveTo, pos1
|
||||||
ldax $06
|
ldax $06
|
||||||
jsr L5DED
|
jsr L5DED
|
||||||
rts
|
rts
|
||||||
@ -1271,7 +1271,7 @@ L5E57: jsr L5DD7
|
|||||||
|
|
||||||
L5E6F: jsr L5DD7
|
L5E6F: jsr L5DD7
|
||||||
stax $06
|
stax $06
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $DA59
|
MGTK_RELAY_CALL MGTK::MoveTo, pos2
|
||||||
ldax $06
|
ldax $06
|
||||||
jsr L5DED
|
jsr L5DED
|
||||||
rts
|
rts
|
||||||
@ -1530,7 +1530,7 @@ L60A9: MGTK_RELAY_CALL MGTK::MoveTo, $D917
|
|||||||
lda #$01
|
lda #$01
|
||||||
sta $D917
|
sta $D917
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D917
|
MGTK_RELAY_CALL MGTK::MoveTo, $D917
|
||||||
addr_call L5DED, $D91D ; Folder glyphs
|
addr_call L5DED, str_folder
|
||||||
lda #$10
|
lda #$10
|
||||||
sta $D917
|
sta $D917
|
||||||
L60FF: lda L6128
|
L60FF: lda L6128
|
||||||
@ -1644,7 +1644,7 @@ L61E6: inx
|
|||||||
stx $0220
|
stx $0220
|
||||||
addr_call L6129, $0220
|
addr_call L6129, $0220
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $DA51
|
MGTK_RELAY_CALL MGTK::MoveTo, $DA51
|
||||||
addr_call L5DED, $DA5F ; " Disk: "
|
addr_call L5DED, disk_label
|
||||||
addr_call L5DED, $0220
|
addr_call L5DED, $0220
|
||||||
MGTK_RELAY_CALL MGTK::InitPort, $D239
|
MGTK_RELAY_CALL MGTK::InitPort, $D239
|
||||||
MGTK_RELAY_CALL MGTK::SetPort, $D239
|
MGTK_RELAY_CALL MGTK::SetPort, $D239
|
||||||
@ -1722,7 +1722,7 @@ L62C7: .byte 0
|
|||||||
|
|
||||||
L62C8: sta $D212
|
L62C8: sta $D212
|
||||||
MGTK_RELAY_CALL MGTK::GetWinPort, $D212
|
MGTK_RELAY_CALL MGTK::GetWinPort, $D212
|
||||||
MGTK_RELAY_CALL MGTK::SetPort, $D215
|
MGTK_RELAY_CALL MGTK::SetPort, grafport2
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L62DE: ldax #$0F5A
|
L62DE: ldax #$0F5A
|
||||||
@ -2001,15 +2001,15 @@ L658B: cmp #$09
|
|||||||
jsr L62C8
|
jsr L62C8
|
||||||
jsr L6E45
|
jsr L6E45
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAA8, $08
|
copy16 path_pos1+2, $08
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
||||||
bit $D8EB
|
bit $D8EB
|
||||||
bpl L65C8
|
bpl L65C8
|
||||||
MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D
|
MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $D8EB
|
sta $D8EB
|
||||||
beq L65D6
|
beq L65D6
|
||||||
L65C8: MGTK_RELAY_CALL MGTK::SetTextBG, $DA5E
|
L65C8: MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
|
||||||
lda #$FF
|
lda #$FF
|
||||||
sta $D8EB
|
sta $D8EB
|
||||||
L65D6: copy16 #$D8EF, $06
|
L65D6: copy16 #$D8EF, $06
|
||||||
@ -2023,16 +2023,16 @@ L65D6: copy16 #$D8EF, $06
|
|||||||
jsr L62C8
|
jsr L62C8
|
||||||
jsr L6E72
|
jsr L6E72
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAB4, $08
|
copy16 path_pos2+2, $08
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
||||||
bit $D8EB
|
bit $D8EB
|
||||||
bpl L6626
|
bpl L6626
|
||||||
MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D
|
MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $D8EB
|
sta $D8EB
|
||||||
jmp L6634
|
jmp L6634
|
||||||
|
|
||||||
L6626: MGTK_RELAY_CALL MGTK::SetTextBG, $DA5E
|
L6626: MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
|
||||||
lda #$FF
|
lda #$FF
|
||||||
sta $D8EB
|
sta $D8EB
|
||||||
L6634: copy16 #$D8EF, $06
|
L6634: copy16 #$D8EF, $06
|
||||||
@ -2044,30 +2044,30 @@ L6634: copy16 #$D8EF, $06
|
|||||||
|
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::PaintRect, $DA9E
|
MGTK_RELAY_CALL MGTK::PaintRect, dialog_rect1
|
||||||
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, $DA9E
|
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $DAA6
|
MGTK_RELAY_CALL MGTK::MoveTo, path_pos1
|
||||||
lda $D402
|
lda path_buf0
|
||||||
beq L6684
|
beq L6684
|
||||||
addr_call L5DED, path_buf0
|
addr_call L5DED, path_buf0
|
||||||
L6684: addr_call L5DED, path_buf2
|
L6684: addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
rts
|
rts
|
||||||
|
|
||||||
;;; ============================================================
|
;;; ============================================================
|
||||||
|
|
||||||
L6693: lda winfo_entrydlg
|
L6693: lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::PaintRect, $DAAA
|
MGTK_RELAY_CALL MGTK::PaintRect, dialog_rect2
|
||||||
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, $DAAA
|
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $DAB2
|
MGTK_RELAY_CALL MGTK::MoveTo, path_pos2
|
||||||
lda $D443
|
lda path_buf1
|
||||||
beq L66C9
|
beq L66C9
|
||||||
addr_call L5DED, path_buf1
|
addr_call L5DED, path_buf1
|
||||||
L66C9: addr_call L5DED, path_buf2
|
L66C9: addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
rts
|
rts
|
||||||
|
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
@ -2076,12 +2076,12 @@ L66C9: addr_call L5DED, path_buf2
|
|||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
||||||
MGTK_RELAY_CALL MGTK::InRect, $DA9E
|
MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
|
||||||
cmp #MGTK::inrect_inside
|
cmp #MGTK::inrect_inside
|
||||||
beq L6719
|
beq L6719
|
||||||
bit L5104
|
bit L5104
|
||||||
bpl L6718
|
bpl L6718
|
||||||
MGTK_RELAY_CALL MGTK::InRect, $DAAA
|
MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
|
||||||
cmp #MGTK::inrect_inside
|
cmp #MGTK::inrect_inside
|
||||||
bne L6718
|
bne L6718
|
||||||
jmp L6D1E
|
jmp L6D1E
|
||||||
@ -2096,13 +2096,13 @@ L6719: jsr L6E45
|
|||||||
|
|
||||||
L672F: jsr L6E45
|
L672F: jsr L6E45
|
||||||
stax L684D
|
stax L684D
|
||||||
ldx $D484
|
ldx path_buf2
|
||||||
inx
|
inx
|
||||||
lda #$20
|
lda #$20
|
||||||
sta $D484,x
|
sta path_buf2,x
|
||||||
inc $D484
|
inc path_buf2
|
||||||
copy16 #$D484, $06
|
copy16 #path_buf2, $06
|
||||||
lda $D484
|
lda path_buf2
|
||||||
sta $08
|
sta $08
|
||||||
L6751: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
L6751: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
||||||
add16 $09, L684D, $09
|
add16 $09, L684D, $09
|
||||||
@ -2112,47 +2112,47 @@ L6751: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
|||||||
lda $08
|
lda $08
|
||||||
cmp #$01
|
cmp #$01
|
||||||
bne L6751
|
bne L6751
|
||||||
dec $D484
|
dec path_buf2
|
||||||
jmp L6846
|
jmp L6846
|
||||||
|
|
||||||
L6783: lda $08
|
L6783: lda $08
|
||||||
cmp $D484
|
cmp path_buf2
|
||||||
bcc L6790
|
bcc L6790
|
||||||
dec $D484
|
dec path_buf2
|
||||||
jmp L6B44
|
jmp L6B44
|
||||||
|
|
||||||
L6790: ldx #$02
|
L6790: ldx #$02
|
||||||
ldy $D402
|
ldy path_buf0
|
||||||
iny
|
iny
|
||||||
L6796: lda $D484,x
|
L6796: lda path_buf2,x
|
||||||
sta $D402,y
|
sta path_buf0,y
|
||||||
cpx $08
|
cpx $08
|
||||||
beq L67A5
|
beq L67A5
|
||||||
iny
|
iny
|
||||||
inx
|
inx
|
||||||
jmp L6796
|
jmp L6796
|
||||||
|
|
||||||
L67A5: sty $D402
|
L67A5: sty path_buf0
|
||||||
ldy #$02
|
ldy #$02
|
||||||
ldx $08
|
ldx $08
|
||||||
inx
|
inx
|
||||||
L67AD: lda $D484,x
|
L67AD: lda path_buf2,x
|
||||||
sta $D484,y
|
sta path_buf2,y
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
beq L67BD
|
beq L67BD
|
||||||
iny
|
iny
|
||||||
inx
|
inx
|
||||||
jmp L67AD
|
jmp L67AD
|
||||||
|
|
||||||
L67BD: dey
|
L67BD: dey
|
||||||
sty $D484
|
sty path_buf2
|
||||||
jmp L6846
|
jmp L6846
|
||||||
|
|
||||||
L67C4: copy16 #$D402, $06
|
L67C4: copy16 #path_buf0, $06
|
||||||
lda $D402
|
lda path_buf0
|
||||||
sta $08
|
sta $08
|
||||||
L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
||||||
add16 $09, $DAA6, $09
|
add16 $09, path_pos1, $09
|
||||||
cmp16 $09, $D20D
|
cmp16 $09, $D20D
|
||||||
bcc L6800
|
bcc L6800
|
||||||
dec $08
|
dec $08
|
||||||
@ -2164,11 +2164,11 @@ L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
|||||||
L6800: inc $08
|
L6800: inc $08
|
||||||
ldy #$00
|
ldy #$00
|
||||||
ldx $08
|
ldx $08
|
||||||
L6806: cpx $D402
|
L6806: cpx path_buf0
|
||||||
beq L6816
|
beq L6816
|
||||||
inx
|
inx
|
||||||
iny
|
iny
|
||||||
lda $D402,x
|
lda path_buf0,x
|
||||||
sta $D3C2,y
|
sta $D3C2,y
|
||||||
jmp L6806
|
jmp L6806
|
||||||
|
|
||||||
@ -2176,11 +2176,11 @@ L6816: iny
|
|||||||
sty $D3C1
|
sty $D3C1
|
||||||
ldx #$01
|
ldx #$01
|
||||||
ldy $D3C1
|
ldy $D3C1
|
||||||
L681F: cpx $D484
|
L681F: cpx path_buf2
|
||||||
beq L682F
|
beq L682F
|
||||||
inx
|
inx
|
||||||
iny
|
iny
|
||||||
lda $D484,x
|
lda path_buf2,x
|
||||||
sta $D3C1,y
|
sta $D3C1,y
|
||||||
jmp L681F
|
jmp L681F
|
||||||
|
|
||||||
@ -2188,11 +2188,11 @@ L682F: sty $D3C1
|
|||||||
lda $D8EF
|
lda $D8EF
|
||||||
sta $D3C2
|
sta $D3C2
|
||||||
L6838: lda $D3C1,y
|
L6838: lda $D3C1,y
|
||||||
sta $D484,y
|
sta path_buf2,y
|
||||||
dey
|
dey
|
||||||
bpl L6838
|
bpl L6838
|
||||||
lda $08
|
lda $08
|
||||||
sta $D402
|
sta path_buf0
|
||||||
L6846: jsr L6D27
|
L6846: jsr L6D27
|
||||||
jsr L6EA3
|
jsr L6EA3
|
||||||
rts
|
rts
|
||||||
@ -2204,12 +2204,12 @@ L684D: .word 0
|
|||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
||||||
MGTK_RELAY_CALL MGTK::InRect, $DAAA
|
MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
|
||||||
cmp #MGTK::inrect_inside
|
cmp #MGTK::inrect_inside
|
||||||
beq L6890
|
beq L6890
|
||||||
bit L5104
|
bit L5104
|
||||||
bpl L688F
|
bpl L688F
|
||||||
MGTK_RELAY_CALL MGTK::InRect, $DA9E
|
MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
|
||||||
cmp #MGTK::inrect_inside
|
cmp #MGTK::inrect_inside
|
||||||
bne L688F
|
bne L688F
|
||||||
jmp L6D21
|
jmp L6D21
|
||||||
@ -2224,13 +2224,13 @@ L6890: jsr L6E72
|
|||||||
|
|
||||||
L68A6: jsr L6E72
|
L68A6: jsr L6E72
|
||||||
stax L69C4
|
stax L69C4
|
||||||
ldx $D484
|
ldx path_buf2
|
||||||
inx
|
inx
|
||||||
lda #$20
|
lda #$20
|
||||||
sta $D484,x
|
sta path_buf2,x
|
||||||
inc $D484
|
inc path_buf2
|
||||||
copy16 #$D484, $06
|
copy16 #path_buf2, $06
|
||||||
lda $D484
|
lda path_buf2
|
||||||
sta $08
|
sta $08
|
||||||
L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
||||||
add16 $09, L69C4, $09
|
add16 $09, L69C4, $09
|
||||||
@ -2240,47 +2240,47 @@ L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
|||||||
lda $08
|
lda $08
|
||||||
cmp #$01
|
cmp #$01
|
||||||
bne L68C8
|
bne L68C8
|
||||||
dec $D484
|
dec path_buf2
|
||||||
jmp L69BD
|
jmp L69BD
|
||||||
|
|
||||||
L68FA: lda $08
|
L68FA: lda $08
|
||||||
cmp $D484
|
cmp path_buf2
|
||||||
bcc L6907
|
bcc L6907
|
||||||
dec $D484
|
dec path_buf2
|
||||||
jmp L6CF0
|
jmp L6CF0
|
||||||
|
|
||||||
L6907: ldx #$02
|
L6907: ldx #$02
|
||||||
ldy $D443
|
ldy path_buf1
|
||||||
iny
|
iny
|
||||||
L690D: lda $D484,x
|
L690D: lda path_buf2,x
|
||||||
sta $D443,y
|
sta path_buf1,y
|
||||||
cpx $08
|
cpx $08
|
||||||
beq L691C
|
beq L691C
|
||||||
iny
|
iny
|
||||||
inx
|
inx
|
||||||
jmp L690D
|
jmp L690D
|
||||||
|
|
||||||
L691C: sty $D443
|
L691C: sty path_buf1
|
||||||
ldy #$02
|
ldy #$02
|
||||||
ldx $08
|
ldx $08
|
||||||
inx
|
inx
|
||||||
L6924: lda $D484,x
|
L6924: lda path_buf2,x
|
||||||
sta $D484,y
|
sta path_buf2,y
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
beq L6934
|
beq L6934
|
||||||
iny
|
iny
|
||||||
inx
|
inx
|
||||||
jmp L6924
|
jmp L6924
|
||||||
|
|
||||||
L6934: dey
|
L6934: dey
|
||||||
sty $D484
|
sty path_buf2
|
||||||
jmp L69BD
|
jmp L69BD
|
||||||
|
|
||||||
L693B: copy16 #$D443, $06
|
L693B: copy16 #path_buf1, $06
|
||||||
lda $D443
|
lda path_buf1
|
||||||
sta $08
|
sta $08
|
||||||
L6948: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
L6948: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
||||||
add16 $09, $DAB2, $09
|
add16 $09, path_pos2, $09
|
||||||
cmp16 $09, $D20D
|
cmp16 $09, $D20D
|
||||||
bcc L6977
|
bcc L6977
|
||||||
dec $08
|
dec $08
|
||||||
@ -2292,11 +2292,11 @@ L6948: MGTK_RELAY_CALL MGTK::TextWidth, $06
|
|||||||
L6977: inc $08
|
L6977: inc $08
|
||||||
ldy #$00
|
ldy #$00
|
||||||
ldx $08
|
ldx $08
|
||||||
L697D: cpx $D443
|
L697D: cpx path_buf1
|
||||||
beq L698D
|
beq L698D
|
||||||
inx
|
inx
|
||||||
iny
|
iny
|
||||||
lda $D443,x
|
lda path_buf1,x
|
||||||
sta $D3C2,y
|
sta $D3C2,y
|
||||||
jmp L697D
|
jmp L697D
|
||||||
|
|
||||||
@ -2304,11 +2304,11 @@ L698D: iny
|
|||||||
sty $D3C1
|
sty $D3C1
|
||||||
ldx #$01
|
ldx #$01
|
||||||
ldy $D3C1
|
ldy $D3C1
|
||||||
L6996: cpx $D484
|
L6996: cpx path_buf2
|
||||||
beq L69A6
|
beq L69A6
|
||||||
inx
|
inx
|
||||||
iny
|
iny
|
||||||
lda $D484,x
|
lda path_buf2,x
|
||||||
sta $D3C1,y
|
sta $D3C1,y
|
||||||
jmp L6996
|
jmp L6996
|
||||||
|
|
||||||
@ -2316,33 +2316,33 @@ L69A6: sty $D3C1
|
|||||||
lda $D8EF
|
lda $D8EF
|
||||||
sta $D3C2
|
sta $D3C2
|
||||||
L69AF: lda $D3C1,y
|
L69AF: lda $D3C1,y
|
||||||
sta $D484,y
|
sta path_buf2,y
|
||||||
dey
|
dey
|
||||||
bpl L69AF
|
bpl L69AF
|
||||||
lda $08
|
lda $08
|
||||||
sta $D443
|
sta path_buf1
|
||||||
L69BD: jsr L6D27
|
L69BD: jsr L6D27
|
||||||
jsr L6E9F
|
jsr L6E9F
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L69C4: .word 0
|
L69C4: .word 0
|
||||||
sta L6A17
|
sta L6A17
|
||||||
lda $D402
|
lda path_buf0
|
||||||
clc
|
clc
|
||||||
adc $D484
|
adc path_buf2
|
||||||
cmp #$3F
|
cmp #$3F
|
||||||
bcc L69D5
|
bcc L69D5
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L69D5: lda L6A17
|
L69D5: lda L6A17
|
||||||
ldx $D402
|
ldx path_buf0
|
||||||
inx
|
inx
|
||||||
sta $D402,x
|
sta path_buf0,x
|
||||||
sta $D8F7
|
sta $D8F7
|
||||||
jsr L6E45
|
jsr L6E45
|
||||||
inc $D402
|
inc path_buf0
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAA8, $08
|
copy16 path_pos1+2, $08
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
||||||
@ -2352,144 +2352,144 @@ L69D5: lda L6A17
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
L6A17: .byte 0
|
L6A17: .byte 0
|
||||||
lda $D402
|
lda path_buf0
|
||||||
bne L6A1E
|
bne L6A1E
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6A1E: dec $D402
|
L6A1E: dec path_buf0
|
||||||
jsr L6E45
|
jsr L6E45
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAA8, $08
|
copy16 path_pos1+2, $08
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
||||||
addr_call L5DED, path_buf2
|
addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
jsr L6EA3
|
jsr L6EA3
|
||||||
rts
|
rts
|
||||||
|
|
||||||
lda $D402
|
lda path_buf0
|
||||||
bne L6A59
|
bne L6A59
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6A59: ldx $D484
|
L6A59: ldx path_buf2
|
||||||
cpx #$01
|
cpx #$01
|
||||||
beq L6A6B
|
beq L6A6B
|
||||||
L6A60: lda $D484,x
|
L6A60: lda path_buf2,x
|
||||||
sta $D485,x
|
sta $D485,x
|
||||||
dex
|
dex
|
||||||
cpx #$01
|
cpx #$01
|
||||||
bne L6A60
|
bne L6A60
|
||||||
L6A6B: ldx $D402
|
L6A6B: ldx path_buf0
|
||||||
lda $D402,x
|
lda path_buf0,x
|
||||||
sta $D486
|
sta $D486
|
||||||
dec $D402
|
dec path_buf0
|
||||||
inc $D484
|
inc path_buf2
|
||||||
jsr L6E45
|
jsr L6E45
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAA8, $08
|
copy16 path_pos1+2, $08
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
||||||
addr_call L5DED, path_buf2
|
addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
jsr L6EA3
|
jsr L6EA3
|
||||||
rts
|
rts
|
||||||
|
|
||||||
lda $D484
|
lda path_buf2
|
||||||
cmp #$02
|
cmp #$02
|
||||||
bcs L6AB4
|
bcs L6AB4
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6AB4: ldx $D402
|
L6AB4: ldx path_buf0
|
||||||
inx
|
inx
|
||||||
lda $D486
|
lda $D486
|
||||||
sta $D402,x
|
sta path_buf0,x
|
||||||
inc $D402
|
inc path_buf0
|
||||||
ldx $D484
|
ldx path_buf2
|
||||||
cpx #$03
|
cpx #$03
|
||||||
bcc L6AD6
|
bcc L6AD6
|
||||||
ldx #$02
|
ldx #$02
|
||||||
L6ACA: lda $D485,x
|
L6ACA: lda $D485,x
|
||||||
sta $D484,x
|
sta path_buf2,x
|
||||||
inx
|
inx
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
bne L6ACA
|
bne L6ACA
|
||||||
L6AD6: dec $D484
|
L6AD6: dec path_buf2
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $DAA6
|
MGTK_RELAY_CALL MGTK::MoveTo, path_pos1
|
||||||
addr_call L5DED, path_buf0
|
addr_call L5DED, path_buf0
|
||||||
addr_call L5DED, path_buf2
|
addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
jsr L6EA3
|
jsr L6EA3
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6B01: lda $D402
|
L6B01: lda path_buf0
|
||||||
bne L6B07
|
bne L6B07
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6B07: ldy $D402
|
L6B07: ldy path_buf0
|
||||||
lda $D484
|
lda path_buf2
|
||||||
cmp #$02
|
cmp #$02
|
||||||
bcc L6B20
|
bcc L6B20
|
||||||
ldx #$01
|
ldx #$01
|
||||||
L6B13: iny
|
L6B13: iny
|
||||||
inx
|
inx
|
||||||
lda $D484,x
|
lda path_buf2,x
|
||||||
sta $D402,y
|
sta path_buf0,y
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
bne L6B13
|
bne L6B13
|
||||||
L6B20: sty $D402
|
L6B20: sty path_buf0
|
||||||
L6B23: lda $D402,y
|
L6B23: lda path_buf0,y
|
||||||
sta $D485,y
|
sta $D485,y
|
||||||
dey
|
dey
|
||||||
bne L6B23
|
bne L6B23
|
||||||
ldx $D402
|
ldx path_buf0
|
||||||
inx
|
inx
|
||||||
stx $D484
|
stx path_buf2
|
||||||
lda #$06
|
lda #$06
|
||||||
sta $D485
|
sta $D485
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $D402
|
sta path_buf0
|
||||||
jsr L6D27
|
jsr L6D27
|
||||||
jsr L6EA3
|
jsr L6EA3
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6B44: lda $D484
|
L6B44: lda path_buf2
|
||||||
cmp #$02
|
cmp #$02
|
||||||
bcs L6B4C
|
bcs L6B4C
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6B4C: ldx #$01
|
L6B4C: ldx #$01
|
||||||
ldy $D402
|
ldy path_buf0
|
||||||
L6B51: inx
|
L6B51: inx
|
||||||
iny
|
iny
|
||||||
lda $D484,x
|
lda path_buf2,x
|
||||||
sta $D402,y
|
sta path_buf0,y
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
bne L6B51
|
bne L6B51
|
||||||
sty $D402
|
sty path_buf0
|
||||||
copy16 #$0601, $D484
|
copy16 #$0601, path_buf2
|
||||||
jsr L6D27
|
jsr L6D27
|
||||||
jsr L6EA3
|
jsr L6EA3
|
||||||
rts
|
rts
|
||||||
|
|
||||||
sta L6BC3
|
sta L6BC3
|
||||||
lda $D443
|
lda path_buf1
|
||||||
clc
|
clc
|
||||||
adc $D484
|
adc path_buf2
|
||||||
cmp #$3F
|
cmp #$3F
|
||||||
bcc L6B81
|
bcc L6B81
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6B81: lda L6BC3
|
L6B81: lda L6BC3
|
||||||
ldx $D443
|
ldx path_buf1
|
||||||
inx
|
inx
|
||||||
sta $D443,x
|
sta path_buf1,x
|
||||||
sta $D8F7
|
sta $D8F7
|
||||||
jsr L6E72
|
jsr L6E72
|
||||||
inc $D443
|
inc path_buf1
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAB4, $08
|
copy16 $DAB4, $08
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
@ -2501,11 +2501,11 @@ L6B81: lda L6BC3
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
L6BC3: .byte 0
|
L6BC3: .byte 0
|
||||||
lda $D443
|
lda path_buf1
|
||||||
bne L6BCA
|
bne L6BCA
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6BCA: dec $D443
|
L6BCA: dec path_buf1
|
||||||
jsr L6E72
|
jsr L6E72
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAB4, $08
|
copy16 $DAB4, $08
|
||||||
@ -2513,27 +2513,27 @@ L6BCA: dec $D443
|
|||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
||||||
addr_call L5DED, path_buf2
|
addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
jsr L6E9F
|
jsr L6E9F
|
||||||
rts
|
rts
|
||||||
|
|
||||||
lda $D443
|
lda path_buf1
|
||||||
bne L6C05
|
bne L6C05
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6C05: ldx $D484
|
L6C05: ldx path_buf2
|
||||||
cpx #$01
|
cpx #$01
|
||||||
beq L6C17
|
beq L6C17
|
||||||
L6C0C: lda $D484,x
|
L6C0C: lda path_buf2,x
|
||||||
sta $D485,x
|
sta $D485,x
|
||||||
dex
|
dex
|
||||||
cpx #$01
|
cpx #$01
|
||||||
bne L6C0C
|
bne L6C0C
|
||||||
L6C17: ldx $D443
|
L6C17: ldx path_buf1
|
||||||
lda $D443,x
|
lda path_buf1,x
|
||||||
sta $D486
|
sta $D486
|
||||||
dec $D443
|
dec path_buf1
|
||||||
inc $D484
|
inc path_buf2
|
||||||
jsr L6E72
|
jsr L6E72
|
||||||
stax $06
|
stax $06
|
||||||
copy16 $DAB4, $08
|
copy16 $DAB4, $08
|
||||||
@ -2541,85 +2541,85 @@ L6C17: ldx $D443
|
|||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
||||||
addr_call L5DED, path_buf2
|
addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
jsr L6E9F
|
jsr L6E9F
|
||||||
rts
|
rts
|
||||||
|
|
||||||
lda $D484
|
lda path_buf2
|
||||||
cmp #$02
|
cmp #$02
|
||||||
bcs L6C60
|
bcs L6C60
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6C60: ldx $D443
|
L6C60: ldx path_buf1
|
||||||
inx
|
inx
|
||||||
lda $D486
|
lda $D486
|
||||||
sta $D443,x
|
sta path_buf1,x
|
||||||
inc $D443
|
inc path_buf1
|
||||||
ldx $D484
|
ldx path_buf2
|
||||||
cpx #$03
|
cpx #$03
|
||||||
bcc L6C82
|
bcc L6C82
|
||||||
ldx #$02
|
ldx #$02
|
||||||
L6C76: lda $D485,x
|
L6C76: lda $D485,x
|
||||||
sta $D484,x
|
sta path_buf2,x
|
||||||
inx
|
inx
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
bne L6C76
|
bne L6C76
|
||||||
L6C82: dec $D484
|
L6C82: dec path_buf2
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr L62C8
|
jsr L62C8
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $DAB2
|
MGTK_RELAY_CALL MGTK::MoveTo, path_pos2
|
||||||
addr_call L5DED, path_buf1
|
addr_call L5DED, path_buf1
|
||||||
addr_call L5DED, path_buf2
|
addr_call L5DED, path_buf2
|
||||||
addr_call L5DED, $D8F8 ; " "
|
addr_call L5DED, str_2_spaces
|
||||||
jsr L6E9F
|
jsr L6E9F
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6CAD: lda $D443
|
L6CAD: lda path_buf1
|
||||||
bne L6CB3
|
bne L6CB3
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6CB3: ldy $D443
|
L6CB3: ldy path_buf1
|
||||||
lda $D484
|
lda path_buf2
|
||||||
cmp #$02
|
cmp #$02
|
||||||
bcc L6CCC
|
bcc L6CCC
|
||||||
ldx #$01
|
ldx #$01
|
||||||
L6CBF: iny
|
L6CBF: iny
|
||||||
inx
|
inx
|
||||||
lda $D484,x
|
lda path_buf2,x
|
||||||
sta $D443,y
|
sta path_buf1,y
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
bne L6CBF
|
bne L6CBF
|
||||||
L6CCC: sty $D443
|
L6CCC: sty path_buf1
|
||||||
L6CCF: lda $D443,y
|
L6CCF: lda path_buf1,y
|
||||||
sta $D485,y
|
sta $D485,y
|
||||||
dey
|
dey
|
||||||
bne L6CCF
|
bne L6CCF
|
||||||
ldx $D443
|
ldx path_buf1
|
||||||
inx
|
inx
|
||||||
stx $D484
|
stx path_buf2
|
||||||
lda #$06
|
lda #$06
|
||||||
sta $D485
|
sta $D485
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $D443
|
sta path_buf1
|
||||||
jsr L6D27
|
jsr L6D27
|
||||||
jsr L6E9F
|
jsr L6E9F
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6CF0: lda $D484
|
L6CF0: lda path_buf2
|
||||||
cmp #$02
|
cmp #$02
|
||||||
bcs L6CF8
|
bcs L6CF8
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6CF8: ldx #$01
|
L6CF8: ldx #$01
|
||||||
ldy $D443
|
ldy path_buf1
|
||||||
L6CFD: inx
|
L6CFD: inx
|
||||||
iny
|
iny
|
||||||
lda $D484,x
|
lda path_buf2,x
|
||||||
sta $D443,y
|
sta path_buf1,y
|
||||||
cpx $D484
|
cpx path_buf2
|
||||||
bne L6CFD
|
bne L6CFD
|
||||||
sty $D443
|
sty path_buf1
|
||||||
copy16 #$0601, $D484
|
copy16 #$0601, path_buf2
|
||||||
jsr L6D27
|
jsr L6D27
|
||||||
jsr L6E9F
|
jsr L6E9F
|
||||||
rts
|
rts
|
||||||
@ -2640,63 +2640,63 @@ L6D42: jmp 0
|
|||||||
L6D45: jmp 0
|
L6D45: jmp 0
|
||||||
|
|
||||||
L6D48: stax $06
|
L6D48: stax $06
|
||||||
ldx $D402
|
ldx path_buf0
|
||||||
lda #$2F
|
lda #$2F
|
||||||
sta $D403,x
|
sta $D403,x
|
||||||
inc $D402
|
inc path_buf0
|
||||||
ldy #$00
|
ldy #$00
|
||||||
lda ($06),y
|
lda ($06),y
|
||||||
tay
|
tay
|
||||||
clc
|
clc
|
||||||
adc $D402
|
adc path_buf0
|
||||||
pha
|
pha
|
||||||
tax
|
tax
|
||||||
L6D62: lda ($06),y
|
L6D62: lda ($06),y
|
||||||
sta $D402,x
|
sta path_buf0,x
|
||||||
dey
|
dey
|
||||||
dex
|
dex
|
||||||
cpx $D402
|
cpx path_buf0
|
||||||
bne L6D62
|
bne L6D62
|
||||||
pla
|
pla
|
||||||
sta $D402
|
sta path_buf0
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6D73: stax $06
|
L6D73: stax $06
|
||||||
ldx $D443
|
ldx path_buf1
|
||||||
lda #$2F
|
lda #$2F
|
||||||
sta $D444,x
|
sta $D444,x
|
||||||
inc $D443
|
inc path_buf1
|
||||||
ldy #$00
|
ldy #$00
|
||||||
lda ($06),y
|
lda ($06),y
|
||||||
tay
|
tay
|
||||||
clc
|
clc
|
||||||
adc $D443
|
adc path_buf1
|
||||||
pha
|
pha
|
||||||
tax
|
tax
|
||||||
L6D8D: lda ($06),y
|
L6D8D: lda ($06),y
|
||||||
sta $D443,x
|
sta path_buf1,x
|
||||||
dey
|
dey
|
||||||
dex
|
dex
|
||||||
cpx $D443
|
cpx path_buf1
|
||||||
bne L6D8D
|
bne L6D8D
|
||||||
pla
|
pla
|
||||||
sta $D443
|
sta path_buf1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6D9E: ldx $D402
|
L6D9E: ldx path_buf0
|
||||||
cpx #$00
|
cpx #$00
|
||||||
beq L6DAF
|
beq L6DAF
|
||||||
dec $D402
|
dec path_buf0
|
||||||
lda $D402,x
|
lda path_buf0,x
|
||||||
cmp #$2F
|
cmp #$2F
|
||||||
bne L6D9E
|
bne L6D9E
|
||||||
L6DAF: rts
|
L6DAF: rts
|
||||||
|
|
||||||
L6DB0: ldx $D443
|
L6DB0: ldx path_buf1
|
||||||
cpx #$00
|
cpx #$00
|
||||||
beq L6DC1
|
beq L6DC1
|
||||||
dec $D443
|
dec path_buf1
|
||||||
lda $D443,x
|
lda path_buf1,x
|
||||||
cmp #$2F
|
cmp #$2F
|
||||||
bne L6DB0
|
bne L6DB0
|
||||||
L6DC1: rts
|
L6DC1: rts
|
||||||
@ -2747,34 +2747,34 @@ L6E1B: .byte 0
|
|||||||
L6E1C: .byte 0
|
L6E1C: .byte 0
|
||||||
ldx path_buf
|
ldx path_buf
|
||||||
L6E20: lda path_buf,x
|
L6E20: lda path_buf,x
|
||||||
sta $D402,x
|
sta path_buf0,x
|
||||||
dex
|
dex
|
||||||
bpl L6E20
|
bpl L6E20
|
||||||
addr_call L6129, $D402
|
addr_call L6129, path_buf0
|
||||||
rts
|
rts
|
||||||
|
|
||||||
ldx path_buf
|
ldx path_buf
|
||||||
L6E34: lda path_buf,x
|
L6E34: lda path_buf,x
|
||||||
sta $D443,x
|
sta path_buf1,x
|
||||||
dex
|
dex
|
||||||
bpl L6E34
|
bpl L6E34
|
||||||
addr_call L6129, $D443
|
addr_call L6129, path_buf1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6E45: lda #$00
|
L6E45: lda #$00
|
||||||
sta $09
|
sta $09
|
||||||
sta $0A
|
sta $0A
|
||||||
lda $D402
|
lda path_buf0
|
||||||
beq L6E63
|
beq L6E63
|
||||||
sta $08
|
sta $08
|
||||||
copy16 #$D403, $06
|
copy16 #$D403, $06
|
||||||
MGTK_RELAY_CALL MGTK::TextWidth, $06
|
MGTK_RELAY_CALL MGTK::TextWidth, $06
|
||||||
L6E63: lda $09
|
L6E63: lda $09
|
||||||
clc
|
clc
|
||||||
adc $DAA6
|
adc path_pos1
|
||||||
tay
|
tay
|
||||||
lda $0A
|
lda $0A
|
||||||
adc $DAA7
|
adc path_pos1+1
|
||||||
tax
|
tax
|
||||||
tya
|
tya
|
||||||
rts
|
rts
|
||||||
@ -2782,17 +2782,17 @@ L6E63: lda $09
|
|||||||
L6E72: lda #$00
|
L6E72: lda #$00
|
||||||
sta $09
|
sta $09
|
||||||
sta $0A
|
sta $0A
|
||||||
lda $D443
|
lda path_buf1
|
||||||
beq L6E90
|
beq L6E90
|
||||||
sta $08
|
sta $08
|
||||||
copy16 #$D444, $06
|
copy16 #$D444, $06
|
||||||
MGTK_RELAY_CALL MGTK::TextWidth, $06
|
MGTK_RELAY_CALL MGTK::TextWidth, $06
|
||||||
L6E90: lda $09
|
L6E90: lda $09
|
||||||
clc
|
clc
|
||||||
adc $DAB2
|
adc path_pos2
|
||||||
tay
|
tay
|
||||||
lda $0A
|
lda $0A
|
||||||
adc $DAB3
|
adc path_pos2+1
|
||||||
tax
|
tax
|
||||||
tya
|
tya
|
||||||
rts
|
rts
|
||||||
@ -2801,15 +2801,15 @@ L6E9F: lda #$FF
|
|||||||
bmi L6EA5
|
bmi L6EA5
|
||||||
L6EA3: lda #$00
|
L6EA3: lda #$00
|
||||||
L6EA5: bmi L6EB6
|
L6EA5: bmi L6EB6
|
||||||
ldx $D402
|
ldx path_buf0
|
||||||
L6EAA: lda $D402,x
|
L6EAA: lda path_buf0,x
|
||||||
sta $D3C1,x
|
sta $D3C1,x
|
||||||
dex
|
dex
|
||||||
bpl L6EAA
|
bpl L6EAA
|
||||||
jmp L6EC2
|
jmp L6EC2
|
||||||
|
|
||||||
L6EB6: ldx $D443
|
L6EB6: ldx path_buf1
|
||||||
L6EB9: lda $D443,x
|
L6EB9: lda path_buf1,x
|
||||||
sta $D3C1,x
|
sta $D3C1,x
|
||||||
dex
|
dex
|
||||||
bpl L6EB9
|
bpl L6EB9
|
||||||
|
|||||||
@ -45,9 +45,9 @@ L7029: lda L709B+1,x
|
|||||||
|
|
||||||
L7052: lda winfo_entrydlg
|
L7052: lda winfo_entrydlg
|
||||||
jsr common_overlay::L62C8
|
jsr common_overlay::L62C8
|
||||||
addr_call common_overlay::L5E0A, $DA67 ; "Copy a File ..."
|
addr_call common_overlay::L5E0A, copy_a_file_label
|
||||||
addr_call common_overlay::L5E57, $DA77 ; "Source filename:"
|
addr_call common_overlay::L5E57, source_filename_label
|
||||||
addr_call common_overlay::L5E6F, $DA88 ; "Destination filename:"
|
addr_call common_overlay::L5E6F, destination_filename_label
|
||||||
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
|
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
|
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
|
||||||
|
|||||||
@ -43,8 +43,8 @@ L7029: lda L7087,x
|
|||||||
|
|
||||||
L704D: lda winfo_entrydlg
|
L704D: lda winfo_entrydlg
|
||||||
jsr common_overlay::L62C8
|
jsr common_overlay::L62C8
|
||||||
addr_call common_overlay::L5E0A, $DAB6 ; "Delete a File ..."
|
addr_call common_overlay::L5E0A, delete_a_file_label
|
||||||
addr_call common_overlay::L5E57, $DAC8 ; "File to delete:"
|
addr_call common_overlay::L5E57, file_to_delete_label
|
||||||
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
|
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
|
||||||
MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
||||||
|
|||||||
@ -55,10 +55,10 @@ L706A: jsr common_overlay::L6163
|
|||||||
lda path_buf0
|
lda path_buf0
|
||||||
bne L707B
|
bne L707B
|
||||||
jsr common_overlay::L6D30
|
jsr common_overlay::L6D30
|
||||||
L707B: copy16 #$2001, $D484
|
L707B: copy16 #$2001, path_buf2
|
||||||
jsr common_overlay::L6D27
|
jsr common_overlay::L6D27
|
||||||
jsr common_overlay::L6693
|
jsr common_overlay::L6693
|
||||||
copy16 #$2001, $D484
|
copy16 #$2001, path_buf2
|
||||||
lda #$FF
|
lda #$FF
|
||||||
sta $D8EC
|
sta $D8EC
|
||||||
jmp common_overlay::L5106
|
jmp common_overlay::L5106
|
||||||
@ -83,7 +83,7 @@ L70B0: lda L7207+1,x
|
|||||||
sta $51AE
|
sta $51AE
|
||||||
lda #$80
|
lda #$80
|
||||||
sta $5104
|
sta $5104
|
||||||
copy16 #$0601, $D484
|
copy16 #$0601, path_buf2
|
||||||
lda winfo_entrydlg
|
lda winfo_entrydlg
|
||||||
jsr common_overlay::L62C8
|
jsr common_overlay::L62C8
|
||||||
lda L73A9
|
lda L73A9
|
||||||
@ -106,30 +106,30 @@ L7101: lda winfo_entrydlg
|
|||||||
jsr common_overlay::L62C8
|
jsr common_overlay::L62C8
|
||||||
lda path_buf0
|
lda path_buf0
|
||||||
beq L7116
|
beq L7116
|
||||||
addr_call common_overlay::L5E0A, $D729 ; "Edit an Entry ..."
|
addr_call common_overlay::L5E0A, edit_an_entry_label
|
||||||
jmp L711D
|
jmp L711D
|
||||||
|
|
||||||
L7116: addr_call common_overlay::L5E0A, $D718 ; "Add an Entry ..."
|
L7116: addr_call common_overlay::L5E0A, add_an_entry_label
|
||||||
L711D: addr_call common_overlay::L5E6F, $D849 ; "Enter the full pathname of the run list file:"
|
L711D: addr_call common_overlay::L5E6F, enter_the_full_pathname_label2
|
||||||
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
|
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
|
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
|
||||||
addr_call common_overlay::L5E57, $D769 ; "Enter the full pathname of the run list file:"
|
addr_call common_overlay::L5E57, enter_the_full_pathname_label1
|
||||||
addr_call common_overlay::L5E6F, $D797 ; "Enter the name ... you wish to appear..."
|
addr_call common_overlay::L5E6F, enter_the_name_to_appear_label
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D922
|
MGTK_RELAY_CALL MGTK::MoveTo, $D922
|
||||||
addr_call common_overlay::L5DED, $D7DE ; "Add a new entry to the:"
|
addr_call common_overlay::L5DED, add_a_new_entry_to_label
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D926
|
MGTK_RELAY_CALL MGTK::MoveTo, $D926
|
||||||
addr_call common_overlay::L5DED, $D7F6 ; "1 Run list"
|
addr_call common_overlay::L5DED, run_list_label
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D92A
|
MGTK_RELAY_CALL MGTK::MoveTo, $D92A
|
||||||
addr_call common_overlay::L5DED, $D802 ; "2 Other Run list"
|
addr_call common_overlay::L5DED, other_run_list_label
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D92E
|
MGTK_RELAY_CALL MGTK::MoveTo, $D92E
|
||||||
addr_call common_overlay::L5DED, $D814 ; "Down load:"
|
addr_call common_overlay::L5DED, down_load_label
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D932
|
MGTK_RELAY_CALL MGTK::MoveTo, $D932
|
||||||
addr_call common_overlay::L5DED, $D81F ; "3 At first boot"
|
addr_call common_overlay::L5DED, at_first_boot_label
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D936
|
MGTK_RELAY_CALL MGTK::MoveTo, $D936
|
||||||
addr_call common_overlay::L5DED, $D830 ; "4 At first use"
|
addr_call common_overlay::L5DED, at_first_use_label
|
||||||
MGTK_RELAY_CALL MGTK::MoveTo, $D93A
|
MGTK_RELAY_CALL MGTK::MoveTo, $D93A
|
||||||
addr_call common_overlay::L5DED, $D840 ; "5 Never"
|
addr_call common_overlay::L5DED, never_label
|
||||||
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, $D93E
|
MGTK_RELAY_CALL MGTK::FrameRect, $D93E
|
||||||
MGTK_RELAY_CALL MGTK::FrameRect, $D946
|
MGTK_RELAY_CALL MGTK::FrameRect, $D946
|
||||||
@ -178,7 +178,7 @@ L7232: .byte $29
|
|||||||
|
|
||||||
;;; ============================================================
|
;;; ============================================================
|
||||||
|
|
||||||
copy16 #$2001, $D484
|
copy16 #$2001, path_buf2
|
||||||
jsr common_overlay::L6D27
|
jsr common_overlay::L6D27
|
||||||
ldx L7232
|
ldx L7232
|
||||||
L726D: lda L7232+1,x
|
L726D: lda L7232+1,x
|
||||||
@ -196,10 +196,10 @@ L726D: lda L7232+1,x
|
|||||||
sta $D8F1
|
sta $D8F1
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $D8F0
|
sta $D8F0
|
||||||
lda $D443
|
lda path_buf1
|
||||||
bne L72BF
|
bne L72BF
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $D443
|
sta path_buf1
|
||||||
ldx path_buf0
|
ldx path_buf0
|
||||||
beq L72BF
|
beq L72BF
|
||||||
L72A0: lda path_buf0,x
|
L72A0: lda path_buf0,x
|
||||||
@ -213,17 +213,17 @@ L72AD: ldy #$00
|
|||||||
L72AF: iny
|
L72AF: iny
|
||||||
inx
|
inx
|
||||||
lda path_buf0,x
|
lda path_buf0,x
|
||||||
sta $D443,y
|
sta path_buf1,y
|
||||||
cpx path_buf0
|
cpx path_buf0
|
||||||
bne L72AF
|
bne L72AF
|
||||||
sty $D443
|
sty path_buf1
|
||||||
L72BF: copy16 #$0601, $D484
|
L72BF: copy16 #$0601, path_buf2
|
||||||
jsr common_overlay::L6D27
|
jsr common_overlay::L6D27
|
||||||
rts
|
rts
|
||||||
|
|
||||||
addr_call common_overlay::L647C, path_buf0
|
addr_call common_overlay::L647C, path_buf0
|
||||||
bne L72E2
|
bne L72E2
|
||||||
lda $D443
|
lda path_buf1
|
||||||
beq L72E7
|
beq L72E7
|
||||||
cmp #$0F
|
cmp #$0F
|
||||||
bcs L72E8
|
bcs L72E8
|
||||||
@ -262,7 +262,7 @@ L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
|||||||
txs
|
txs
|
||||||
return #$FF
|
return #$FF
|
||||||
|
|
||||||
copy16 #$2001, $D484
|
copy16 #$2001, path_buf2
|
||||||
jsr common_overlay::L6D27
|
jsr common_overlay::L6D27
|
||||||
ldx L7207
|
ldx L7207
|
||||||
L737C: lda L7207+1,x
|
L737C: lda L7207+1,x
|
||||||
@ -273,7 +273,7 @@ L737C: lda L7207+1,x
|
|||||||
dex
|
dex
|
||||||
dex
|
dex
|
||||||
bpl L737C
|
bpl L737C
|
||||||
copy16 #$0601, $D484
|
copy16 #$0601, path_buf2
|
||||||
jsr common_overlay::L6D27
|
jsr common_overlay::L6D27
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $5105
|
sta $5105
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user