Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-18 02:30:50 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: Resource string labels used in overlays

Browse Source
This commit is contained in:
Joshua Bell 2018-05-02 22:56:52 -07:00
parent fe2948e489
commit 40bf0db1d3
8 changed files with 340 additions and 294 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
desktop/desktop_res.s
View File

@ -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
LD718: PASCAL_STRING "Add an Entry ..."
LD729: PASCAL_STRING "Edit an Entry ..."
LD73B: PASCAL_STRING "Delete an Entry ..."
LD74F: PASCAL_STRING "Run an Entry ..."
add_an_entry_label:
PASCAL_STRING "Add an Entry ..."
edit_an_entry_label:
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"
enter_the_full_pathname_label1:
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"
add_a_new_entry_to_label:
PASCAL_STRING "Add a new entry to the:"
run_list_label:
PASCAL_STRING {GLYPH_OAPPLE,"1 Run list"}
other_run_list_label:
PASCAL_STRING {GLYPH_OAPPLE,"2 Other Run list"}
down_load_label:
PASCAL_STRING "Down load:"
at_first_boot_label:
PASCAL_STRING {GLYPH_OAPPLE,"3 at first boot"}
at_first_use_label:
PASCAL_STRING {GLYPH_OAPPLE,"4 at first use"}
never_label:
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,$06,$00,$17,$00,$58,$01,$57
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00
the_dos_33_disk_label:
PASCAL_STRING "the DOS 3.3 disk in slot drive ?"
.byte $1A,$22
the_disk_in_slot_label:
PASCAL_STRING "the disk in slot drive ?"
.byte $12
@ -602,6 +620,7 @@ file_count:
.byte $00,$00,$00,$00,$00,$7D,$00,$00
.byte $00,$02,$00,$00,$00,$00,$00
str_folder:
PASCAL_STRING {GLYPH_FOLDERL,GLYPH_FOLDERR}
.byte $00,$00,$57,$01,$28,$00
@ -634,39 +653,66 @@ file_count:
.byte $29,$00,$43,$01,$1E,$00,$43,$01
.byte $64,$00,$81,$D3,$00
.word $C6,$63
ok_button_pos:
.word 198,99
ok_button_label:
PASCAL_STRING {"OK ",GLYPH_RETURN}
.word $C6,$44
close_button_pos:
.word 198,68
close_button_label:
PASCAL_STRING "Close"
.word $C6,$36
open_button_pos:
.word 198,54
open_button_label:
PASCAL_STRING "Open"
.word $C6,$53
cancel_button_pos:
.word 198,83
cancel_button_label:
PASCAL_STRING "Cancel Esc"
.word $C6,$28
change_drive_button_pos:
.word 198,40
change_drive_button_label:
PASCAL_STRING "Change Drive"
.byte $1C,$00,$19,$00,$1C
.byte $00,$70,$00,$1C,$00,$87,$00,$00
disk_label_pos:
DEFINE_POINT 28,25
pos1:
DEFINE_POINT 28,112
pos2:
DEFINE_POINT 28,135
textbg1:
.byte $00
textbg2:
.byte $7F
disk_label:
PASCAL_STRING " Disk: "
copy_a_file_label:
PASCAL_STRING "Copy a File ..."
source_filename_label:
PASCAL_STRING "Source filename:"
destination_filename_label:
PASCAL_STRING "Destination filename:"
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
path_pos2: DEFINE_POINT 30,146
.byte $1E,$00,$92,$00
delete_a_file_label:
PASCAL_STRING "Delete a File ..."
file_to_delete_label:
PASCAL_STRING "File to delete:"
.assert * = $DAD8, error, "Segment length mismatch"
@ -997,14 +1043,14 @@ LE71F: .byte 0
.proc label
window_id: .byte id
options: .byte MGTK::option_go_away_box | MGTK::option_grow_box
title: .addr buflabel
title: .addr buflabel
hscroll: .byte MGTK::scroll_option_normal
vscroll: .byte MGTK::scroll_option_normal
hthumbmax: .byte 3
hthumbpos: .byte 0
vthumbmax: .byte 3
vthumbpos: .byte 0
status: .byte 0
status: .byte 0
reserved: .byte 0
mincontwidth: .word 170
maxcontwidth: .word 50
@ -1017,11 +1063,11 @@ mapwidth: .word MGTK::screen_mapwidth
cliprect: DEFINE_RECT 0, 0, 440, 120
penpattern: .res 8, $FF
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
penloc: DEFINE_POINT 0, 0
penloc: DEFINE_POINT 0, 0
penwidth: .byte 1
penheight: .byte 1
penmode: .byte 0
textbg: .byte MGTK::textbg_white
textbg: .byte MGTK::textbg_white
fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0
.endproc

2
desktop/ovl1b.s
View File

@ -1,4 +1,4 @@
.setcpu "6502"
.setcpu "6502"
.include "apple2.inc"
.include "../macros.inc"

24
desktop/ovl2.s
View File

@ -85,7 +85,7 @@ L08A7: jsr prompt_input_loop
L08B1: jsr bell
jmp L08A7
L08B7: lda $D443
L08B7: lda path_buf1
beq L08B1
cmp #$10
bcs L08B1
@ -131,7 +131,7 @@ L0942: lda winfo_alert_dialog
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
axy_call draw_dialog_label, $01, $B373
addr_call L1900, $D443
addr_call L1900, path_buf1
ldx #$43
ldy #$D4
lda L09D7
@ -225,7 +225,7 @@ L0A6A: jsr prompt_input_loop
L0A74: jsr bell
jmp L0A6A
L0A7A: lda $D443
L0A7A: lda path_buf1
beq L0A74
cmp #$10
bcs L0A74
@ -255,7 +255,7 @@ L0AD1: lda winfo_alert_dialog
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
axy_call draw_dialog_label, $01, $B373
addr_call L1900, $D443
addr_call L1900, path_buf1
jsr set_cursor_watch
ldx #$43
ldy #$D4
@ -1460,13 +1460,13 @@ L194E: lda $1C02
L1959: lda read_block_params::unit_num
jsr L19B7
ldx $D8D5
sta $D8B8,x
sta the_disk_in_slot_label,x
lda read_block_params::unit_num
jsr L19C1
ldx $D8D6
sta $D8B8,x
ldx $D8B8
L1974: lda $D8B8,x
sta the_disk_in_slot_label,x
ldx the_disk_in_slot_label
L1974: lda the_disk_in_slot_label,x
sta $D909,x
dex
bpl L1974
@ -1483,13 +1483,13 @@ L1986: cmp #$A5
lda read_block_params::unit_num
jsr L19B7
ldx $D8B6
sta $D891,x
sta the_dos_33_disk_label,x
lda read_block_params::unit_num
jsr L19C1
ldx $D8B7
sta $D891,x
ldx $D891
L19AC: lda $D891,x
sta the_dos_33_disk_label,x
ldx the_dos_33_disk_label
L19AC: lda the_dos_33_disk_label,x
sta $D909,x
dex
bpl L19AC

36
desktop/ovl3.s
View File

@ -55,8 +55,8 @@ L903C: ldx #$01
bcc L9052
inx
L9052: lda #$00
sta $D402
sta $D443
sta path_buf0
sta path_buf1
ldy #$03
lda #$02
jsr common_overlay_L5000
@ -191,7 +191,7 @@ L9174: lda L938D
lda ($06),y
tay
L918C: lda ($06),y
sta $D443,y
sta path_buf1,y
dey
bpl L918C
ldy #$0F
@ -204,7 +204,7 @@ L918C: lda ($06),y
lda ($06),y
tay
L91AA: lda ($06),y
sta $D402,y
sta path_buf0,y
dey
bpl L91AA
ldx #$01
@ -396,14 +396,14 @@ L933F: pha
lda #$07
jsr JUMP_TABLE_RESTORE_OVL
jsr JUMP_TABLE_REDRAW_ALL
L934F: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
L934F: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entry_picker
pla
jmp L900F
L936E: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
L936E: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entry_picker
rts
@ -522,8 +522,8 @@ L94D4: lda ($06),y
sta $D486,y
dey
bpl L94D4
copy16 #$D487, $D484
MGTK_RELAY_CALL MGTK::DrawText, $D484
copy16 #$D487, path_buf2
MGTK_RELAY_CALL MGTK::DrawText, path_buf2
rts
L94F0: stax $06
@ -1031,8 +1031,8 @@ L9A11: sta L9A60
lda L9A60
jsr L9BEF
stax $08
ldy $D443
L9A2D: lda $D443,y
ldy path_buf1
L9A2D: lda path_buf1,y
sta ($06),y
sta ($08),y
dey
@ -1047,8 +1047,8 @@ L9A2D: lda $D443,y
lda L9A60
jsr L9BFC
stax $08
ldy $D402
L9A55: lda $D402,y
ldy path_buf0
L9A55: lda path_buf0,y
sta ($06),y
sta ($08),y
dey
@ -1062,8 +1062,8 @@ L9A61: sta L9A96
lda L9A96
jsr L9BD5
stax $06
ldy $D443
L9A73: lda $D443,y
ldy path_buf1
L9A73: lda path_buf1,y
sta ($06),y
dey
bpl L9A73
@ -1073,8 +1073,8 @@ L9A73: lda $D443,y
lda L9A96
jsr L9BE2
stax $06
ldy $D402
L9A8D: lda $D402,y
ldy path_buf0
L9A8D: lda path_buf0,y
sta ($06),y
dey
bpl L9A8D

426
desktop/ovl4.s
View File

@ -107,11 +107,11 @@ L5151: lda winfo_entrydlg
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
bit L51AE
bmi L5183
MGTK_RELAY_CALL MGTK::InRect, $DA9E
MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
cmp #MGTK::inrect_inside
bne L5196
beq L5190
L5183: MGTK_RELAY_CALL MGTK::InRect, $DAAA
L5183: MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
cmp #MGTK::inrect_inside
bne L5196
L5190: jsr L55E0
@ -233,7 +233,7 @@ L5304: jsr L6D45
rts
L5308: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D215
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
L531B: jsr L59B8
@ -315,7 +315,7 @@ L53B5: and #$7F
jsr L61B1
jsr L606D
MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D215
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
L542E: .byte 0
@ -1090,7 +1090,7 @@ L5C2F: sta $D920
jsr L6586
jsr L6163
jsr L606D
copy16 #$2001, $D484
copy16 #$2001, path_buf2
jsr L6D27
rts
@ -1189,24 +1189,24 @@ L5CF7: MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg
MGTK_RELAY_CALL MGTK::SetPort, $D239
rts
L5D82: MGTK_RELAY_CALL MGTK::MoveTo, $DA03
addr_call L5DED, $DA07 ; "OK"
L5D82: MGTK_RELAY_CALL MGTK::MoveTo, ok_button_pos
addr_call L5DED, ok_button_label
rts
L5D93: MGTK_RELAY_CALL MGTK::MoveTo, $DA21
addr_call L5DED, $DA25 ; "Open"
L5D93: MGTK_RELAY_CALL MGTK::MoveTo, open_button_pos
addr_call L5DED, open_button_label
rts
L5DA4: MGTK_RELAY_CALL MGTK::MoveTo, $DA17
addr_call L5DED, $DA1B ; "Close"
L5DA4: MGTK_RELAY_CALL MGTK::MoveTo, close_button_pos
addr_call L5DED, close_button_label
rts
L5DB5: MGTK_RELAY_CALL MGTK::MoveTo, $DA2A
addr_call L5DED, $DA2E ; "Cancel"
L5DB5: MGTK_RELAY_CALL MGTK::MoveTo, cancel_button_pos
addr_call L5DED, cancel_button_label
rts
L5DC6: MGTK_RELAY_CALL MGTK::MoveTo, $DA40
addr_call L5DED, $DA44 ; "Change Drive"
L5DC6: MGTK_RELAY_CALL MGTK::MoveTo, change_drive_button_pos
addr_call L5DED, change_drive_button_label
rts
L5DD7: stax $06
@ -1262,7 +1262,7 @@ L5E56: .byte 0
L5E57: jsr L5DD7
stax $06
MGTK_RELAY_CALL MGTK::MoveTo, $DA55
MGTK_RELAY_CALL MGTK::MoveTo, pos1
ldax $06
jsr L5DED
rts
@ -1271,7 +1271,7 @@ L5E57: jsr L5DD7
L5E6F: jsr L5DD7
stax $06
MGTK_RELAY_CALL MGTK::MoveTo, $DA59
MGTK_RELAY_CALL MGTK::MoveTo, pos2
ldax $06
jsr L5DED
rts
@ -1530,7 +1530,7 @@ L60A9: MGTK_RELAY_CALL MGTK::MoveTo, $D917
lda #$01
sta $D917
MGTK_RELAY_CALL MGTK::MoveTo, $D917
addr_call L5DED, $D91D ; Folder glyphs
addr_call L5DED, str_folder
lda #$10
sta $D917
L60FF: lda L6128
@ -1644,7 +1644,7 @@ L61E6: inx
stx $0220
addr_call L6129, $0220
MGTK_RELAY_CALL MGTK::MoveTo, $DA51
addr_call L5DED, $DA5F ; " Disk: "
addr_call L5DED, disk_label
addr_call L5DED, $0220
MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239
@ -1722,7 +1722,7 @@ L62C7: .byte 0
L62C8: sta $D212
MGTK_RELAY_CALL MGTK::GetWinPort, $D212
MGTK_RELAY_CALL MGTK::SetPort, $D215
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
L62DE: ldax #$0F5A
@ -2001,15 +2001,15 @@ L658B: cmp #$09
jsr L62C8
jsr L6E45
stax $06
copy16 $DAA8, $08
copy16 path_pos1+2, $08
MGTK_RELAY_CALL MGTK::MoveTo, $06
bit $D8EB
bpl L65C8
MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D
MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
lda #$00
sta $D8EB
beq L65D6
L65C8: MGTK_RELAY_CALL MGTK::SetTextBG, $DA5E
L65C8: MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
lda #$FF
sta $D8EB
L65D6: copy16 #$D8EF, $06
@ -2023,16 +2023,16 @@ L65D6: copy16 #$D8EF, $06
jsr L62C8
jsr L6E72
stax $06
copy16 $DAB4, $08
copy16 path_pos2+2, $08
MGTK_RELAY_CALL MGTK::MoveTo, $06
bit $D8EB
bpl L6626
MGTK_RELAY_CALL MGTK::SetTextBG, $DA5D
MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
lda #$00
sta $D8EB
jmp L6634
L6626: MGTK_RELAY_CALL MGTK::SetTextBG, $DA5E
L6626: MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
lda #$FF
sta $D8EB
L6634: copy16 #$D8EF, $06
@ -2044,30 +2044,30 @@ L6634: copy16 #$D8EF, $06
lda winfo_entrydlg
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::FrameRect, $DA9E
MGTK_RELAY_CALL MGTK::MoveTo, $DAA6
lda $D402
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
MGTK_RELAY_CALL MGTK::MoveTo, path_pos1
lda path_buf0
beq L6684
addr_call L5DED, path_buf0
L6684: addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
rts
;;; ============================================================
L6693: lda winfo_entrydlg
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::FrameRect, $DAAA
MGTK_RELAY_CALL MGTK::MoveTo, $DAB2
lda $D443
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
MGTK_RELAY_CALL MGTK::MoveTo, path_pos2
lda path_buf1
beq L66C9
addr_call L5DED, path_buf1
L66C9: addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
rts
lda winfo_entrydlg
@ -2076,12 +2076,12 @@ L66C9: addr_call L5DED, path_buf2
lda winfo_entrydlg
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
MGTK_RELAY_CALL MGTK::InRect, $DA9E
MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
cmp #MGTK::inrect_inside
beq L6719
bit L5104
bpl L6718
MGTK_RELAY_CALL MGTK::InRect, $DAAA
MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
cmp #MGTK::inrect_inside
bne L6718
jmp L6D1E
@ -2096,13 +2096,13 @@ L6719: jsr L6E45
L672F: jsr L6E45
stax L684D
ldx $D484
ldx path_buf2
inx
lda #$20
sta $D484,x
inc $D484
copy16 #$D484, $06
lda $D484
sta path_buf2,x
inc path_buf2
copy16 #path_buf2, $06
lda path_buf2
sta $08
L6751: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, L684D, $09
@ -2112,47 +2112,47 @@ L6751: MGTK_RELAY_CALL MGTK::TextWidth, $06
lda $08
cmp #$01
bne L6751
dec $D484
dec path_buf2
jmp L6846
L6783: lda $08
cmp $D484
cmp path_buf2
bcc L6790
dec $D484
dec path_buf2
jmp L6B44
L6790: ldx #$02
ldy $D402
ldy path_buf0
iny
L6796: lda $D484,x
sta $D402,y
L6796: lda path_buf2,x
sta path_buf0,y
cpx $08
beq L67A5
iny
inx
jmp L6796
L67A5: sty $D402
L67A5: sty path_buf0
ldy #$02
ldx $08
inx
L67AD: lda $D484,x
sta $D484,y
cpx $D484
L67AD: lda path_buf2,x
sta path_buf2,y
cpx path_buf2
beq L67BD
iny
inx
jmp L67AD
L67BD: dey
sty $D484
sty path_buf2
jmp L6846
L67C4: copy16 #$D402, $06
lda $D402
L67C4: copy16 #path_buf0, $06
lda path_buf0
sta $08
L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, $DAA6, $09
add16 $09, path_pos1, $09
cmp16 $09, $D20D
bcc L6800
dec $08
@ -2164,11 +2164,11 @@ L67D1: MGTK_RELAY_CALL MGTK::TextWidth, $06
L6800: inc $08
ldy #$00
ldx $08
L6806: cpx $D402
L6806: cpx path_buf0
beq L6816
inx
iny
lda $D402,x
lda path_buf0,x
sta $D3C2,y
jmp L6806
@ -2176,11 +2176,11 @@ L6816: iny
sty $D3C1
ldx #$01
ldy $D3C1
L681F: cpx $D484
L681F: cpx path_buf2
beq L682F
inx
iny
lda $D484,x
lda path_buf2,x
sta $D3C1,y
jmp L681F
@ -2188,11 +2188,11 @@ L682F: sty $D3C1
lda $D8EF
sta $D3C2
L6838: lda $D3C1,y
sta $D484,y
sta path_buf2,y
dey
bpl L6838
lda $08
sta $D402
sta path_buf0
L6846: jsr L6D27
jsr L6EA3
rts
@ -2204,12 +2204,12 @@ L684D: .word 0
lda winfo_entrydlg
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
MGTK_RELAY_CALL MGTK::InRect, $DAAA
MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
cmp #MGTK::inrect_inside
beq L6890
bit L5104
bpl L688F
MGTK_RELAY_CALL MGTK::InRect, $DA9E
MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
cmp #MGTK::inrect_inside
bne L688F
jmp L6D21
@ -2224,13 +2224,13 @@ L6890: jsr L6E72
L68A6: jsr L6E72
stax L69C4
ldx $D484
ldx path_buf2
inx
lda #$20
sta $D484,x
inc $D484
copy16 #$D484, $06
lda $D484
sta path_buf2,x
inc path_buf2
copy16 #path_buf2, $06
lda path_buf2
sta $08
L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, L69C4, $09
@ -2240,47 +2240,47 @@ L68C8: MGTK_RELAY_CALL MGTK::TextWidth, $06
lda $08
cmp #$01
bne L68C8
dec $D484
dec path_buf2
jmp L69BD
L68FA: lda $08
cmp $D484
cmp path_buf2
bcc L6907
dec $D484
dec path_buf2
jmp L6CF0
L6907: ldx #$02
ldy $D443
ldy path_buf1
iny
L690D: lda $D484,x
sta $D443,y
L690D: lda path_buf2,x
sta path_buf1,y
cpx $08
beq L691C
iny
inx
jmp L690D
L691C: sty $D443
L691C: sty path_buf1
ldy #$02
ldx $08
inx
L6924: lda $D484,x
sta $D484,y
cpx $D484
L6924: lda path_buf2,x
sta path_buf2,y
cpx path_buf2
beq L6934
iny
inx
jmp L6924
L6934: dey
sty $D484
sty path_buf2
jmp L69BD
L693B: copy16 #$D443, $06
lda $D443
L693B: copy16 #path_buf1, $06
lda path_buf1
sta $08
L6948: MGTK_RELAY_CALL MGTK::TextWidth, $06
add16 $09, $DAB2, $09
add16 $09, path_pos2, $09
cmp16 $09, $D20D
bcc L6977
dec $08
@ -2292,11 +2292,11 @@ L6948: MGTK_RELAY_CALL MGTK::TextWidth, $06
L6977: inc $08
ldy #$00
ldx $08
L697D: cpx $D443
L697D: cpx path_buf1
beq L698D
inx
iny
lda $D443,x
lda path_buf1,x
sta $D3C2,y
jmp L697D
@ -2304,11 +2304,11 @@ L698D: iny
sty $D3C1
ldx #$01
ldy $D3C1
L6996: cpx $D484
L6996: cpx path_buf2
beq L69A6
inx
iny
lda $D484,x
lda path_buf2,x
sta $D3C1,y
jmp L6996
@ -2316,33 +2316,33 @@ L69A6: sty $D3C1
lda $D8EF
sta $D3C2
L69AF: lda $D3C1,y
sta $D484,y
sta path_buf2,y
dey
bpl L69AF
lda $08
sta $D443
sta path_buf1
L69BD: jsr L6D27
jsr L6E9F
rts
L69C4: .word 0
sta L6A17
lda $D402
lda path_buf0
clc
adc $D484
adc path_buf2
cmp #$3F
bcc L69D5
rts
L69D5: lda L6A17
ldx $D402
ldx path_buf0
inx
sta $D402,x
sta path_buf0,x
sta $D8F7
jsr L6E45
inc $D402
inc path_buf0
stax $06
copy16 $DAA8, $08
copy16 path_pos1+2, $08
lda winfo_entrydlg
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06
@ -2352,144 +2352,144 @@ L69D5: lda L6A17
rts
L6A17: .byte 0
lda $D402
lda path_buf0
bne L6A1E
rts
L6A1E: dec $D402
L6A1E: dec path_buf0
jsr L6E45
stax $06
copy16 $DAA8, $08
copy16 path_pos1+2, $08
lda winfo_entrydlg
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
jsr L6EA3
rts
lda $D402
lda path_buf0
bne L6A59
rts
L6A59: ldx $D484
L6A59: ldx path_buf2
cpx #$01
beq L6A6B
L6A60: lda $D484,x
L6A60: lda path_buf2,x
sta $D485,x
dex
cpx #$01
bne L6A60
L6A6B: ldx $D402
lda $D402,x
L6A6B: ldx path_buf0
lda path_buf0,x
sta $D486
dec $D402
inc $D484
dec path_buf0
inc path_buf2
jsr L6E45
stax $06
copy16 $DAA8, $08
copy16 path_pos1+2, $08
lda winfo_entrydlg
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
jsr L6EA3
rts
lda $D484
lda path_buf2
cmp #$02
bcs L6AB4
rts
L6AB4: ldx $D402
L6AB4: ldx path_buf0
inx
lda $D486
sta $D402,x
inc $D402
ldx $D484
sta path_buf0,x
inc path_buf0
ldx path_buf2
cpx #$03
bcc L6AD6
ldx #$02
L6ACA: lda $D485,x
sta $D484,x
sta path_buf2,x
inx
cpx $D484
cpx path_buf2
bne L6ACA
L6AD6: dec $D484
L6AD6: dec path_buf2
lda winfo_entrydlg
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $DAA6
MGTK_RELAY_CALL MGTK::MoveTo, path_pos1
addr_call L5DED, path_buf0
addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
jsr L6EA3
rts
L6B01: lda $D402
L6B01: lda path_buf0
bne L6B07
rts
L6B07: ldy $D402
lda $D484
L6B07: ldy path_buf0
lda path_buf2
cmp #$02
bcc L6B20
ldx #$01
L6B13: iny
inx
lda $D484,x
sta $D402,y
cpx $D484
lda path_buf2,x
sta path_buf0,y
cpx path_buf2
bne L6B13
L6B20: sty $D402
L6B23: lda $D402,y
L6B20: sty path_buf0
L6B23: lda path_buf0,y
sta $D485,y
dey
bne L6B23
ldx $D402
ldx path_buf0
inx
stx $D484
stx path_buf2
lda #$06
sta $D485
lda #$00
sta $D402
sta path_buf0
jsr L6D27
jsr L6EA3
rts
L6B44: lda $D484
L6B44: lda path_buf2
cmp #$02
bcs L6B4C
rts
L6B4C: ldx #$01
ldy $D402
ldy path_buf0
L6B51: inx
iny
lda $D484,x
sta $D402,y
cpx $D484
lda path_buf2,x
sta path_buf0,y
cpx path_buf2
bne L6B51
sty $D402
copy16 #$0601, $D484
sty path_buf0
copy16 #$0601, path_buf2
jsr L6D27
jsr L6EA3
rts
sta L6BC3
lda $D443
lda path_buf1
clc
adc $D484
adc path_buf2
cmp #$3F
bcc L6B81
rts
L6B81: lda L6BC3
ldx $D443
ldx path_buf1
inx
sta $D443,x
sta path_buf1,x
sta $D8F7
jsr L6E72
inc $D443
inc path_buf1
stax $06
copy16 $DAB4, $08
lda winfo_entrydlg
@ -2501,11 +2501,11 @@ L6B81: lda L6BC3
rts
L6BC3: .byte 0
lda $D443
lda path_buf1
bne L6BCA
rts
L6BCA: dec $D443
L6BCA: dec path_buf1
jsr L6E72
stax $06
copy16 $DAB4, $08
@ -2513,27 +2513,27 @@ L6BCA: dec $D443
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
jsr L6E9F
rts
lda $D443
lda path_buf1
bne L6C05
rts
L6C05: ldx $D484
L6C05: ldx path_buf2
cpx #$01
beq L6C17
L6C0C: lda $D484,x
L6C0C: lda path_buf2,x
sta $D485,x
dex
cpx #$01
bne L6C0C
L6C17: ldx $D443
lda $D443,x
L6C17: ldx path_buf1
lda path_buf1,x
sta $D486
dec $D443
inc $D484
dec path_buf1
inc path_buf2
jsr L6E72
stax $06
copy16 $DAB4, $08
@ -2541,85 +2541,85 @@ L6C17: ldx $D443
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
jsr L6E9F
rts
lda $D484
lda path_buf2
cmp #$02
bcs L6C60
rts
L6C60: ldx $D443
L6C60: ldx path_buf1
inx
lda $D486
sta $D443,x
inc $D443
ldx $D484
sta path_buf1,x
inc path_buf1
ldx path_buf2
cpx #$03
bcc L6C82
ldx #$02
L6C76: lda $D485,x
sta $D484,x
sta path_buf2,x
inx
cpx $D484
cpx path_buf2
bne L6C76
L6C82: dec $D484
L6C82: dec path_buf2
lda winfo_entrydlg
jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $DAB2
MGTK_RELAY_CALL MGTK::MoveTo, path_pos2
addr_call L5DED, path_buf1
addr_call L5DED, path_buf2
addr_call L5DED, $D8F8 ; " "
addr_call L5DED, str_2_spaces
jsr L6E9F
rts
L6CAD: lda $D443
L6CAD: lda path_buf1
bne L6CB3
rts
L6CB3: ldy $D443
lda $D484
L6CB3: ldy path_buf1
lda path_buf2
cmp #$02
bcc L6CCC
ldx #$01
L6CBF: iny
inx
lda $D484,x
sta $D443,y
cpx $D484
lda path_buf2,x
sta path_buf1,y
cpx path_buf2
bne L6CBF
L6CCC: sty $D443
L6CCF: lda $D443,y
L6CCC: sty path_buf1
L6CCF: lda path_buf1,y
sta $D485,y
dey
bne L6CCF
ldx $D443
ldx path_buf1
inx
stx $D484
stx path_buf2
lda #$06
sta $D485
lda #$00
sta $D443
sta path_buf1
jsr L6D27
jsr L6E9F
rts
L6CF0: lda $D484
L6CF0: lda path_buf2
cmp #$02
bcs L6CF8
rts
L6CF8: ldx #$01
ldy $D443
ldy path_buf1
L6CFD: inx
iny
lda $D484,x
sta $D443,y
cpx $D484
lda path_buf2,x
sta path_buf1,y
cpx path_buf2
bne L6CFD
sty $D443
copy16 #$0601, $D484
sty path_buf1
copy16 #$0601, path_buf2
jsr L6D27
jsr L6E9F
rts
@ -2640,63 +2640,63 @@ L6D42: jmp 0
L6D45: jmp 0
L6D48: stax $06
ldx $D402
ldx path_buf0
lda #$2F
sta $D403,x
inc $D402
inc path_buf0
ldy #$00
lda ($06),y
tay
clc
adc $D402
adc path_buf0
pha
tax
L6D62: lda ($06),y
sta $D402,x
sta path_buf0,x
dey
dex
cpx $D402
cpx path_buf0
bne L6D62
pla
sta $D402
sta path_buf0
rts
L6D73: stax $06
ldx $D443
ldx path_buf1
lda #$2F
sta $D444,x
inc $D443
inc path_buf1
ldy #$00
lda ($06),y
tay
clc
adc $D443
adc path_buf1
pha
tax
L6D8D: lda ($06),y
sta $D443,x
sta path_buf1,x
dey
dex
cpx $D443
cpx path_buf1
bne L6D8D
pla
sta $D443
sta path_buf1
rts
L6D9E: ldx $D402
L6D9E: ldx path_buf0
cpx #$00
beq L6DAF
dec $D402
lda $D402,x
dec path_buf0
lda path_buf0,x
cmp #$2F
bne L6D9E
L6DAF: rts
L6DB0: ldx $D443
L6DB0: ldx path_buf1
cpx #$00
beq L6DC1
dec $D443
lda $D443,x
dec path_buf1
lda path_buf1,x
cmp #$2F
bne L6DB0
L6DC1: rts
@ -2747,34 +2747,34 @@ L6E1B: .byte 0
L6E1C: .byte 0
ldx path_buf
L6E20: lda path_buf,x
sta $D402,x
sta path_buf0,x
dex
bpl L6E20
addr_call L6129, $D402
addr_call L6129, path_buf0
rts
ldx path_buf
L6E34: lda path_buf,x
sta $D443,x
sta path_buf1,x
dex
bpl L6E34
addr_call L6129, $D443
addr_call L6129, path_buf1
rts
L6E45: lda #$00
sta $09
sta $0A
lda $D402
lda path_buf0
beq L6E63
sta $08
copy16 #$D403, $06
MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E63: lda $09
clc
adc $DAA6
adc path_pos1
tay
lda $0A
adc $DAA7
adc path_pos1+1
tax
tya
rts
@ -2782,17 +2782,17 @@ L6E63: lda $09
L6E72: lda #$00
sta $09
sta $0A
lda $D443
lda path_buf1
beq L6E90
sta $08
copy16 #$D444, $06
MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E90: lda $09
clc
adc $DAB2
adc path_pos2
tay
lda $0A
adc $DAB3
adc path_pos2+1
tax
tya
rts
@ -2801,15 +2801,15 @@ L6E9F: lda #$FF
bmi L6EA5
L6EA3: lda #$00
L6EA5: bmi L6EB6
ldx $D402
L6EAA: lda $D402,x
ldx path_buf0
L6EAA: lda path_buf0,x
sta $D3C1,x
dex
bpl L6EAA
jmp L6EC2
L6EB6: ldx $D443
L6EB9: lda $D443,x
L6EB6: ldx path_buf1
L6EB9: lda path_buf1,x
sta $D3C1,x
dex
bpl L6EB9

6
desktop/ovl5.s
View File

@ -45,9 +45,9 @@ L7029: lda L709B+1,x
L7052: lda winfo_entrydlg
jsr common_overlay::L62C8
addr_call common_overlay::L5E0A, $DA67 ; "Copy a File ..."
addr_call common_overlay::L5E57, $DA77 ; "Source filename:"
addr_call common_overlay::L5E6F, $DA88 ; "Destination filename:"
addr_call common_overlay::L5E0A, copy_a_file_label
addr_call common_overlay::L5E57, source_filename_label
addr_call common_overlay::L5E6F, destination_filename_label
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2

4
desktop/ovl6.s
View File

@ -43,8 +43,8 @@ L7029: lda L7087,x
L704D: lda winfo_entrydlg
jsr common_overlay::L62C8
addr_call common_overlay::L5E0A, $DAB6 ; "Delete a File ..."
addr_call common_overlay::L5E57, $DAC8 ; "File to delete:"
addr_call common_overlay::L5E0A, delete_a_file_label
addr_call common_overlay::L5E57, file_to_delete_label
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
MGTK_RELAY_CALL MGTK::InitPort, grafport3

48
desktop/ovl7.s
View File

@ -55,10 +55,10 @@ L706A: jsr common_overlay::L6163
lda path_buf0
bne L707B
jsr common_overlay::L6D30
L707B: copy16 #$2001, $D484
L707B: copy16 #$2001, path_buf2
jsr common_overlay::L6D27
jsr common_overlay::L6693
copy16 #$2001, $D484
copy16 #$2001, path_buf2
lda #$FF
sta $D8EC
jmp common_overlay::L5106
@ -83,7 +83,7 @@ L70B0: lda L7207+1,x
sta $51AE
lda #$80
sta $5104
copy16 #$0601, $D484
copy16 #$0601, path_buf2
lda winfo_entrydlg
jsr common_overlay::L62C8
lda L73A9
@ -106,30 +106,30 @@ L7101: lda winfo_entrydlg
jsr common_overlay::L62C8
lda path_buf0
beq L7116
addr_call common_overlay::L5E0A, $D729 ; "Edit an Entry ..."
addr_call common_overlay::L5E0A, edit_an_entry_label
jmp L711D
L7116: addr_call common_overlay::L5E0A, $D718 ; "Add an Entry ..."
L711D: addr_call common_overlay::L5E6F, $D849 ; "Enter the full pathname of the run list file:"
L7116: addr_call common_overlay::L5E0A, add_an_entry_label
L711D: addr_call common_overlay::L5E6F, enter_the_full_pathname_label2
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
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::L5E6F, $D797 ; "Enter the name ... you wish to appear..."
addr_call common_overlay::L5E57, enter_the_full_pathname_label1
addr_call common_overlay::L5E6F, enter_the_name_to_appear_label
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
addr_call common_overlay::L5DED, $D7F6 ; "1 Run list"
addr_call common_overlay::L5DED, run_list_label
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
addr_call common_overlay::L5DED, $D814 ; "Down load:"
addr_call common_overlay::L5DED, down_load_label
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
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
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::FrameRect, $D93E
MGTK_RELAY_CALL MGTK::FrameRect, $D946
@ -178,7 +178,7 @@ L7232: .byte $29
;;; ============================================================
copy16 #$2001, $D484
copy16 #$2001, path_buf2
jsr common_overlay::L6D27
ldx L7232
L726D: lda L7232+1,x
@ -196,10 +196,10 @@ L726D: lda L7232+1,x
sta $D8F1
lda #$00
sta $D8F0
lda $D443
lda path_buf1
bne L72BF
lda #$00
sta $D443
sta path_buf1
ldx path_buf0
beq L72BF
L72A0: lda path_buf0,x
@ -213,17 +213,17 @@ L72AD: ldy #$00
L72AF: iny
inx
lda path_buf0,x
sta $D443,y
sta path_buf1,y
cpx path_buf0
bne L72AF
sty $D443
L72BF: copy16 #$0601, $D484
sty path_buf1
L72BF: copy16 #$0601, path_buf2
jsr common_overlay::L6D27
rts
addr_call common_overlay::L647C, path_buf0
bne L72E2
lda $D443
lda path_buf1
beq L72E7
cmp #$0F
bcs L72E8
@ -262,7 +262,7 @@ L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
txs
return #$FF
copy16 #$2001, $D484
copy16 #$2001, path_buf2
jsr common_overlay::L6D27
ldx L7207
L737C: lda L7207+1,x
@ -273,7 +273,7 @@ L737C: lda L7207+1,x
dex
dex
bpl L737C
copy16 #$0601, $D484
copy16 #$0601, path_buf2
jsr common_overlay::L6D27
lda #$00
sta $5105