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

DeskTop: Overlay tidying

Browse Source
This commit is contained in:
Joshua Bell 2018-05-17 08:54:22 -07:00
parent 3fabe4b545
commit 0fdd1a9d60
7 changed files with 288 additions and 266 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
desktop/desktop_res.s
View File

@ -1,3 +1,12 @@
;;; ============================================================
;;; DeskTop - Resources
;;;
;;; Compiled as part of desktop.s via desktop_lc.s
;;;
;;; Also compiled via desktop_res_builder.s to extract
;;; addresses and build desktop_res.inc used by overlays
;;; ============================================================
.assert * = $D200, error, "Addr mismatch"
pencopy: .byte 0

126
desktop/ovl2.s
View File

@ -16,6 +16,7 @@
.proc format_erase_overlay
;;; Entry points in desktop_main
.scope desktop_main
prompt_input_loop := $A567
jump_relay := $A899
bell := $AACE
@ -31,9 +32,10 @@ set_port_from_window_id := $B7B9
LBD69 := $BD69 ; ???
LBD75 := $BD75 ; ???
reset_state := $BEB1
.endscope
L0800: pha
jsr set_cursor_pointer
jsr desktop_main::set_cursor_pointer
pla
cmp #$04
beq L080C
@ -41,21 +43,21 @@ L0800: pha
L080C: lda #$00
sta $D8E8
jsr LB509
jsr desktop_main::LB509
lda winfo_alert_dialog
jsr set_port_from_window_id
addr_call draw_dialog_title, $B245
axy_call draw_dialog_label, $01, $B257
jsr desktop_main::set_port_from_window_id
addr_call desktop_main::draw_dialog_title, $B245
axy_call desktop_main::draw_dialog_label, $01, $B257
jsr L0D31
lda #$FF
sta $D887
L0832: copy16 #L0B48, jump_relay+1
L0832: copy16 #L0B48, desktop_main::jump_relay+1
lda #$80
sta $D8ED
L0841: jsr prompt_input_loop
L0841: jsr desktop_main::prompt_input_loop
bmi L0841
pha
copy16 #$B8F4, jump_relay+1
copy16 #$B8F4, desktop_main::jump_relay+1
lda #$00
sta $D8F3
sta $D8ED
@ -66,33 +68,33 @@ L0841: jsr prompt_input_loop
L085F: bit $D887
bmi L0832
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr desktop_main::set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::FrameRect, name_input_rect
jsr LBD75
jsr desktop_main::LBD75
lda #$80
sta $D8E8
lda #$00
sta $D8ED
jsr LBD69
axy_call draw_dialog_label, $03, $B28D
L08A7: jsr prompt_input_loop
jsr desktop_main::LBD69
axy_call desktop_main::draw_dialog_label, $03, $B28D
L08A7: jsr desktop_main::prompt_input_loop
bmi L08A7
beq L08B7
jmp L09C2
L08B1: jsr bell
L08B1: jsr desktop_main::bell
jmp L08A7
L08B7: lda path_buf1
beq L08B1
cmp #$10
bcs L08B1
jsr set_cursor_pointer
jsr desktop_main::set_cursor_pointer
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr desktop_main::set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
ldx $D887
@ -101,44 +103,44 @@ L08B7: lda path_buf1
sta L09D7
lda #$00
sta $D8E8
axy_call draw_dialog_label, $03, $B2AF
axy_call desktop_main::draw_dialog_label, $03, $B2AF
lda L09D7
jsr L1A2D
addr_call draw_text1, $D909
L0902: jsr prompt_input_loop
addr_call desktop_main::draw_text1, $D909
L0902: jsr desktop_main::prompt_input_loop
bmi L0902
beq L090C
jmp L09C2
L090C: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr desktop_main::set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
ldy #$11
ldax #$AE6E
jsr MGTK_RELAY
ldax #$B2C6
ldy #$01
jsr draw_dialog_label
jsr desktop_main::draw_dialog_label
lda L09D7
jsr L12C1
and #$FF
bne L0942
jsr set_cursor_watch
jsr desktop_main::set_cursor_watch
lda L09D7
jsr L126F
bcs L099B
L0942: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr desktop_main::set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
axy_call draw_dialog_label, $01, $B373
axy_call desktop_main::draw_dialog_label, $01, $B373
addr_call L1900, path_buf1
ldx #$43
ldy #$D4
lda L09D7
jsr L1307
pha
jsr set_cursor_pointer
jsr desktop_main::set_cursor_pointer
pla
bne L0980
lda #$00
@ -153,11 +155,11 @@ L0980: cmp #$2B
L098C: jsr L191B
ldax #$B388
ldy #$06
jsr draw_dialog_label
jsr desktop_main::draw_dialog_label
jmp L09B8
L099B: pha
jsr set_cursor_pointer
jsr desktop_main::set_cursor_pointer
pla
cmp #$2B
bne L09AC
@ -166,15 +168,15 @@ L099B: pha
jmp L090C
L09AC: jsr L191B
axy_call draw_dialog_label, $06, $B2DE
L09B8: jsr prompt_input_loop
axy_call desktop_main::draw_dialog_label, $06, $B2DE
L09B8: jsr desktop_main::prompt_input_loop
bmi L09B8
bne L09C2
jmp L090C
L09C2: pha
jsr set_cursor_pointer
jsr reset_state
jsr desktop_main::set_cursor_pointer
jsr desktop_main::reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
ldx L09D8
pla
@ -184,55 +186,55 @@ L09D7: .byte 0
L09D8: .byte 0
L09D9: lda #$00
sta $D8E8
jsr LB509
jsr desktop_main::LB509
lda winfo_alert_dialog
jsr set_port_from_window_id
addr_call draw_dialog_title, $B319
jsr desktop_main::set_port_from_window_id
addr_call desktop_main::draw_dialog_title, $B319
ldax #$B32A
ldy #$01
jsr draw_dialog_label
jsr desktop_main::draw_dialog_label
jsr L0D31
lda #$FF
sta $D887
copy16 #L0B48, jump_relay+1
copy16 #L0B48, desktop_main::jump_relay+1
lda #$80
sta $D8ED
L0A0E: jsr prompt_input_loop
L0A0E: jsr desktop_main::prompt_input_loop
bmi L0A0E
beq L0A18
jmp L0B31
L0A18: bit $D887
bmi L0A0E
copy16 #$A898, jump_relay+1
copy16 #$A898, desktop_main::jump_relay+1
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr desktop_main::set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::FrameRect, name_input_rect
jsr LBD75
jsr desktop_main::LBD75
lda #$80
sta $D8E8
lda #$00
sta $D8ED
jsr LBD69
axy_call draw_dialog_label, $03, $B28D
L0A6A: jsr prompt_input_loop
jsr desktop_main::LBD69
axy_call desktop_main::draw_dialog_label, $03, $B28D
L0A6A: jsr desktop_main::prompt_input_loop
bmi L0A6A
beq L0A7A
jmp L0B31
L0A74: jsr bell
L0A74: jsr desktop_main::bell
jmp L0A6A
L0A7A: lda path_buf1
beq L0A74
cmp #$10
bcs L0A74
jsr set_cursor_pointer
jsr desktop_main::set_cursor_pointer
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr desktop_main::set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
lda #$00
@ -241,29 +243,29 @@ L0A7A: lda path_buf1
lda DEVLST,x
sta L0B47
sta L0B46
axy_call draw_dialog_label, $03, $B35D
axy_call desktop_main::draw_dialog_label, $03, $B35D
lda L0B46
and #$F0
jsr L1A2D
addr_call draw_text1, $D909
L0AC7: jsr prompt_input_loop
addr_call desktop_main::draw_text1, $D909
L0AC7: jsr desktop_main::prompt_input_loop
bmi L0AC7
beq L0AD1
jmp L0B31
L0AD1: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr desktop_main::set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
axy_call draw_dialog_label, $01, $B373
axy_call desktop_main::draw_dialog_label, $01, $B373
addr_call L1900, path_buf1
jsr set_cursor_watch
jsr desktop_main::set_cursor_watch
ldx #$43
ldy #$D4
lda L0B46
jsr L1307
pha
jsr set_cursor_pointer
jsr desktop_main::set_cursor_pointer
pla
bne L0B12
lda #$00
@ -276,13 +278,13 @@ L0B12: cmp #$2B
jmp L0AD1
L0B1E: jsr L191B
axy_call draw_dialog_label, $06, $B388
L0B2A: jsr prompt_input_loop
axy_call desktop_main::draw_dialog_label, $06, $B388
L0B2A: jsr desktop_main::prompt_input_loop
bmi L0B2A
beq L0AD1
L0B31: pha
jsr set_cursor_pointer
jsr reset_state
jsr desktop_main::set_cursor_pointer
jsr desktop_main::reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
ldx L0B47
pla
@ -341,7 +343,7 @@ L0BD9: return #$FF
L0BDC: cmp $D887
bne L0C04
jsr LB445
jsr desktop_main::LB445
bmi L0C03
L0BE6: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $AE20
@ -358,7 +360,7 @@ L0C04: sta L0C1E
L0C0F: lda L0C1E
sta $D887
jsr L0C20
jsr LB445
jsr desktop_main::LB445
beq L0BE6
rts
@ -509,7 +511,7 @@ L0D60: lda L0D8C
iny
iny
pla
jsr draw_dialog_label
jsr desktop_main::draw_dialog_label
inc L0D8C
jmp L0D3D
@ -1540,7 +1542,7 @@ L1A04: inc $D909
ldx $D909
lda #$3F
L1A22: sta $D909,x
addr_call adjust_case, $D909
addr_call desktop_main::adjust_case, $D909
rts
;;; ============================================================
@ -1565,7 +1567,7 @@ L1A46: lda $1C00,x
ldx $D909
lda #$3F
sta $D909,x
addr_call adjust_case, $D909 ; Adjust case ("/HD/GAMES" -> "/Hd/Games")
addr_call desktop_main::adjust_case, $D909 ; Adjust case ("/HD/GAMES" -> "/Hd/Games")
rts
L1A6D: lda on_line_params::unit_num

6
desktop/ovl34567.s
View File

@ -9,9 +9,9 @@
.include "../macros.inc"
.include "out/desktop_res.inc"
.macro entry arg1, arg2
.byte arg1
.addr arg2
.macro jump_table_entry addr
.byte 0
.addr addr
.endmacro
dummy1234 := $1234

162
desktop/ovl4.s
View File

@ -19,7 +19,7 @@ L5000: jmp L50B1
DEFINE_CLOSE_PARAMS close_params
on_line_buffer: .res 16, 0
L5027: .byte $00
device_num: .byte $00 ; next device number to try
path_buf: .res 128, 0
L50A8: .byte $00
L50A9: .byte $00
@ -36,7 +36,7 @@ routine_table: .addr $7000, $7000, $7000
stx stash_stack
pha
lda #0
sta L5027
sta device_num
sta L50A8
sta prompt_ip_flag
sta LD8EC
@ -77,7 +77,7 @@ L5106: bit LD8EC
bpl :+
dec $D8E9
bne :+
jsr L6D24
jsr jt_02
lda #$14
sta $D8E9
: MGTK_RELAY_CALL MGTK::GetEvent, event_params
@ -209,8 +209,8 @@ L52AD: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
jsr L56F6
bmi L52CA
jsr L6D42
jsr L6D1E
jsr jt_12
jsr jt_00
L52CA: jmp L5308
L52CD: MGTK_RELAY_CALL MGTK::InRect, common_cancel_button_rect
@ -222,14 +222,14 @@ L52DD: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, common_cancel_button_rect
jsr L5802
bmi L52F7
jsr L6D21
jsr jt_01
L52F7: jmp L5308
L52FA: bit L5103
bpl L5304
jsr L531B
bmi L5308
L5304: jsr L6D45
L5304: jsr jt_13
rts
L5308: MGTK_RELAY_CALL MGTK::InitPort, grafport3
@ -277,7 +277,7 @@ L5386: ldx $D920
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
jsr L6D1E
jsr jt_00
jmp L5340
L53B5: and #$7F
@ -327,18 +327,18 @@ L542F: lda screentowindow_windowy
L5438: lda $D920
bmi L5446
jsr L6D2A
jsr jt_04
lda $D920
jsr L6274
L5446: lda screentowindow_windowy
sta $D920
bit $D8F0
bpl L5457
jsr L6D30
jsr L6D27
jsr jt_06
jsr jt_03
L5457: lda $D920
jsr L6274
jsr L6D2D
jsr jt_05
jsr L5C4F
bmi L5468
jmp L5386
@ -517,7 +517,7 @@ L5607: ldx $D920
pha
bit $D8F0
bpl L5618
jsr L6D30
jsr jt_06
L5618: lda #$00
sta L565B
copy16 #$1800, $08
@ -550,16 +550,16 @@ L5618: lda #$00
L565B: .byte 0
L565C: lda #$FF
sta $D920
jsr L5EB8
jsr L5E87
jsr inc_device_num
jsr device_on_line
jsr L5F5B
jsr L6161
lda #$00
jsr L6227
jsr L61B1
jsr L606D
jsr L6D30
jsr L6D27
jsr jt_06
jsr jt_03
rts
L567F: lda #$00
@ -595,14 +595,14 @@ L56A2: jsr L5F49
sta $D920
bit L56E2
bmi L56D6
jsr L6D2A
jsr jt_04
lda $D920
bmi L56DC
jsr L6D2A
jsr jt_04
jmp L56DC
L56D6: jsr L6D30
jsr L6D27
L56D6: jsr jt_06
jsr jt_03
L56DC: lda #$FF
sta $D920
L56E1: rts
@ -830,11 +830,11 @@ L59B9: lda event_modifiers
and #$7F
cmp #CHAR_LEFT
bne L59CA
jmp L6D3F
jmp jt_11
L59CA: cmp #CHAR_RIGHT
bne L59D1
jmp L6D42
jmp jt_12
L59D1: bit L5105
bmi L59E4
@ -860,11 +860,11 @@ L59F7: lda event_key
and #$7F
cmp #CHAR_LEFT
bne L5A03
jmp L6D39
jmp jt_09
L5A03: cmp #CHAR_RIGHT
bne L5A0A
jmp L6D3C
jmp jt_10
L5A0A: cmp #CHAR_RETURN
bne L5A11
@ -927,7 +927,7 @@ L5ABD: cmp #$0B
bne L5AC4
jmp L5B4C
L5AC4: jsr L6D33
L5AC4: jsr jt_07
rts
L5AC8: jsr L56E3
@ -938,8 +938,8 @@ L5ACC: lda winfo_entrydlg
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
jsr L6D42
jsr L6D1E
jsr jt_12
jsr jt_00
jsr L56E3
rts
@ -948,11 +948,11 @@ L5AF7: lda winfo_entrydlg
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, common_cancel_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, common_cancel_button_rect
jsr L6D21
jsr jt_01
jsr L56E3
rts
L5B1F: jsr L6D36
L5B1F: jsr jt_08
rts
L5B23: jmp L59B8
@ -968,7 +968,7 @@ L5B26: lda $177F
L5B37: rts
L5B38: jsr L6274
jsr L6D2A
jsr jt_04
inc $D920
lda $D920
jmp L5C2F
@ -984,7 +984,7 @@ L5B4C: lda $177F
L5B58: rts
L5B59: jsr L6274
jsr L6D2A
jsr jt_04
dec $D920
lda $D920
jmp L5C2F
@ -1013,7 +1013,7 @@ L5B83: jsr L5B9D
lda $D920
bmi L5B99
jsr L6274
jsr L6D2A
jsr jt_04
L5B99: pla
jmp L5C2F
@ -1070,7 +1070,7 @@ L5BF6: lda $177F
L5C02: rts
L5C03: jsr L6274
jsr L6D2A
jsr jt_04
L5C09: lda #$00
jmp L5C2F
@ -1086,14 +1086,14 @@ L5C1E: rts
L5C1F: dex
txa
jsr L6274
jsr L6D2A
jsr jt_04
L5C27: ldx $177F
dex
txa
jmp L5C2F
L5C2F: sta $D920
jsr L6D2D
jsr jt_05
lda $D920
jsr L6586
jsr L6163
@ -1102,7 +1102,7 @@ L5C2F: sta $D920
copy #1, path_buf2
copy #' ', path_buf2+1
jsr L6D27
jsr jt_03
rts
L5C4F: ldx #3
@ -1309,7 +1309,8 @@ L5E6F: jsr copy_string_to_lcbuf
;;; ============================================================
L5E87: ldx L5027
.proc device_on_line
: ldx device_num
lda DEVLST,x
and #$F0
sta on_line_params::unit_num
@ -1317,29 +1318,37 @@ L5E87: ldx L5027
lda on_line_buffer
and #$0F
sta on_line_buffer
bne L5EAB
jsr L5EB8
jmp L5E87
bne found
jsr inc_device_num
jmp :-
L5EAB: lda #$00
found: lda #0
sta path_buf
addr_call L5F0D, on_line_buffer
rts
.endproc
L5EB8: inc L5027
lda L5027
;;; ============================================================
.proc inc_device_num
inc device_num
lda device_num
cmp DEVCNT
beq L5ECA
bcc L5ECA
lda #$00
sta L5027
L5ECA: rts
beq :+
bcc :+
lda #0
sta device_num
: rts
.endproc
;;; ============================================================
L5ECB: lda #$00
sta L5F0C
L5ED0: yax_call MLI_RELAY, OPEN, open_params
beq L5EE9
jsr L5E87
jsr device_on_line
lda #$FF
sta $D920
sta L5F0C
@ -1350,7 +1359,7 @@ L5EE9: lda open_params::ref_num
sta close_params::ref_num
yax_call MLI_RELAY, READ, read_params
beq L5F0B
jsr L5E87
jsr device_on_line
lda #$FF
sta $D920
sta L5F0C
@ -2117,7 +2126,7 @@ L66C9: addr_call draw_string, path_buf2
MGTK_RELAY_CALL MGTK::InRect, common_input2_rect
cmp #MGTK::inrect_inside
bne L6718
jmp L6D1E
jmp jt_00
L6718: rts
@ -2226,7 +2235,7 @@ L6838: lda $D3C1,y
bpl L6838
lda $08
sta path_buf0
L6846: jsr L6D27
L6846: jsr jt_03
jsr L6EA3
rts
@ -2245,7 +2254,7 @@ L684D: .word 0
MGTK_RELAY_CALL MGTK::InRect, common_input1_rect
cmp #MGTK::inrect_inside
bne L688F
jmp L6D21
jmp jt_01
L688F: rts
@ -2354,7 +2363,7 @@ L69AF: lda $D3C1,y
bpl L69AF
lda $08
sta path_buf1
L69BD: jsr L6D27
L69BD: jsr jt_03
jsr L6E9F
rts
@ -2485,7 +2494,7 @@ L6B23: lda path_buf0,y
sta path_buf2+1
lda #$00
sta path_buf0
jsr L6D27
jsr jt_03
jsr L6EA3
rts
@ -2505,7 +2514,7 @@ L6B51: inx
sty path_buf0
copy #1, path_buf2
copy #GLYPH_INSPT, path_buf2+1
jsr L6D27
jsr jt_03
jsr L6EA3
rts
@ -2635,7 +2644,7 @@ L6CCF: lda path_buf1,y
sta path_buf2+1
lda #$00
sta path_buf1
jsr L6D27
jsr jt_03
jsr L6E9F
rts
@ -2655,24 +2664,25 @@ L6CFD: inx
sty path_buf1
copy #1, path_buf2
copy #GLYPH_INSPT, path_buf2+1
jsr L6D27
jsr jt_03
jsr L6E9F
rts
L6D1E: jmp 0
L6D21: jmp 0
L6D24: jmp 0
L6D27: jmp 0
L6D2A: jmp 0
L6D2D: jmp 0
L6D30: jmp 0
L6D33: jmp 0
L6D36: jmp 0
L6D39: jmp 0
L6D3C: jmp 0
L6D3F: jmp 0
L6D42: jmp 0
L6D45: jmp 0
jump_table:
jt_00: jmp 0
jt_01: jmp 0
jt_02: jmp 0
jt_03: jmp 0
jt_04: jmp 0
jt_05: jmp 0
jt_06: jmp 0
jt_07: jmp 0
jt_08: jmp 0
jt_09: jmp 0
jt_10: jmp 0
jt_11: jmp 0
jt_12: jmp 0
jt_13: jmp 0
L6D48: stax $06
ldx path_buf0
@ -2737,11 +2747,11 @@ L6DB0: ldx path_buf1
L6DC1: rts
jsr L6D9E
jsr L6D27
jsr jt_03
rts
jsr L6DB0
jsr L6D27
jsr jt_03
rts
lda #$00
@ -2775,7 +2785,7 @@ L6DD6: sta L6E1C
jmp L6E17
L6E14: jsr L6D48
L6E17: jsr L6D27
L6E17: jsr jt_03
rts
L6E1B: .byte 0

106
desktop/ovl5.s
View File

@ -11,24 +11,24 @@
L7000: jsr common_overlay::create_common_dialog
jsr L7052
jsr common_overlay::L5E87
jsr common_overlay::device_on_line
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
jsr common_overlay::L606D
jsr L7026
jsr common_overlay::L6D30
jsr common_overlay::L6D27
jsr common_overlay::jt_06
jsr common_overlay::jt_03
lda #$FF
sta $D8EC
jmp common_overlay::L5106
L7026: ldx L709B
L7029: lda L709B+1,x
sta $6D1E,x
L7026: ldx jump_table_entries
L7029: lda jump_table_entries+1,x
sta common_overlay::jump_table,x
dex
lda L709B+1,x
sta $6D1E,x
lda jump_table_entries+1,x
sta common_overlay::jump_table,x
dex
dex
bpl L7029
@ -55,39 +55,39 @@ L7052: lda winfo_entrydlg
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
L709B: .byte $29 ; length of following data block
entry 0, L70F1
entry 0, L71D8
jump_table_entries:
.byte $29 ; length of following data block
jump_table_entry L70F1
jump_table_entry L71D8
jump_table_entry $6593
jump_table_entry $664E
jump_table_entry $6DC2
jump_table_entry $6DD0
jump_table_entry $6E1D
jump_table_entry $69C6
jump_table_entry $6A18
jump_table_entry $6A53
jump_table_entry $6AAC
jump_table_entry $6B01
jump_table_entry $6B44
jump_table_entry $66D8
entry 0, $6593
entry 0, $664E
entry 0, $6DC2
entry 0, $6DD0
entry 0, $6E1D
entry 0, $69C6
entry 0, $6A18
entry 0, $6A53
entry 0, $6AAC
entry 0, $6B01
entry 0, $6B44
entry 0, $66D8
L70C6: .byte $29 ; length of following data block
entry 0, L7189
entry 0, L71F9
entry 0, $65F0
entry 0, $6693
entry 0, $6DC9
entry 0, $6DD4
entry 0, $6E31
entry 0, $6B72
entry 0, $6BC4
entry 0, $6BFF
entry 0, $6C58
entry 0, $6CAD
entry 0, $6CF0
entry 0, $684F
jump_table2_entries:
.byte $29 ; length of following data block
jump_table_entry L7189
jump_table_entry L71F9
jump_table_entry $65F0
jump_table_entry $6693
jump_table_entry $6DC9
jump_table_entry $6DD4
jump_table_entry $6E31
jump_table_entry $6B72
jump_table_entry $6BC4
jump_table_entry $6BFF
jump_table_entry $6C58
jump_table_entry $6CAD
jump_table_entry $6CF0
jump_table_entry $684F
;;; ============================================================
@ -95,13 +95,13 @@ L70F1: lda #1
sta path_buf2
lda #$20
sta path_buf2+1
jsr common_overlay::L6D27
jsr common_overlay::jt_03
ldx L70C6
: lda L70C6+1,x
ldx jump_table2_entries
: lda jump_table2_entries+1,x
sta $6D1E,x
dex
lda L70C6+1,x
lda jump_table2_entries+1,x
sta $6D1E,x
dex
dex
@ -114,7 +114,7 @@ L70F1: lda #1
sta $D921
lda #$FF
sta $D920
jsr common_overlay::L5E87
jsr common_overlay::device_on_line
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
@ -149,7 +149,7 @@ L7165: cpx path_buf0
iny
jmp L7165
L7178: jsr common_overlay::L6D27
L7178: jsr common_overlay::jt_03
lda $D8F0
sta $D8F1
lda $D8F2
@ -200,12 +200,12 @@ L71F9: lda #1
sta path_buf2
lda #' '
sta path_buf2+1
jsr common_overlay::L6D27
ldx L709B
L7209: lda L709B+1,x
jsr common_overlay::jt_03
ldx jump_table_entries
L7209: lda jump_table_entries+1,x
sta $6D1E,x
dex
lda L709B+1,x
lda jump_table_entries+1,x
sta $6D1E,x
dex
dex
@ -234,19 +234,19 @@ L7209: lda L709B+1,x
jsr common_overlay::L5F49
bit $D8F0
bpl L726D
jsr common_overlay::L5E87
jsr common_overlay::device_on_line
lda #0
jsr common_overlay::L6227
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
jsr common_overlay::L606D
jsr common_overlay::L6D27
jsr common_overlay::jt_03
jmp L7295
L726D: lda $5028
bne L7281
L7272: jsr common_overlay::L5E87
L7272: jsr common_overlay::device_on_line
lda #$00
jsr common_overlay::L6227
jsr common_overlay::L5F5B

49
desktop/ovl6.s
View File

@ -11,24 +11,24 @@
L7000: jsr common_overlay::create_common_dialog
jsr L704D
jsr common_overlay::L5E87
jsr common_overlay::device_on_line
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
jsr common_overlay::L606D
jsr L7026
jsr common_overlay::L6D30
jsr common_overlay::L6D27
jsr common_overlay::jt_06
jsr common_overlay::jt_03
lda #$FF
sta $D8EC
jmp common_overlay::L5106
L7026: ldx L7086
L7029: lda L7087,x
sta $6D1E,x
L7026: ldx jump_table_entries
L7029: lda jump_table_entries+1,x
sta common_overlay::jump_table,x
dex
lda L7087,x
sta $6D1E,x
lda jump_table_entries+1,x
sta common_overlay::jump_table,x
dex
dex
bpl L7029
@ -45,27 +45,28 @@ L704D: lda winfo_entrydlg
jsr common_overlay::L62C8
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::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::FrameRect, common_input1_rect
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
L7086: .byte $29 ; length of the following data block
L7087: entry 0, L70B1
entry 0, L70EA
entry 0, $6593
entry 0, $664E
entry 0, $6DC2
entry 0, $6DD0
entry 0, $6E1D
entry 0, $69C6
entry 0, $6A18
entry 0, $6A53
entry 0, $6AAC
entry 0, $6B01
entry 0, $6B44
entry 0, $66D8
jump_table_entries:
.byte $29 ; length of the following data block
jump_table_entry L70B1
jump_table_entry L70EA
jump_table_entry $6593
jump_table_entry $664E
jump_table_entry $6DC2
jump_table_entry $6DD0
jump_table_entry $6E1D
jump_table_entry $69C6
jump_table_entry $6A18
jump_table_entry $6A53
jump_table_entry $6AAC
jump_table_entry $6B01
jump_table_entry $6B44
jump_table_entry $66D8
L70B1: addr_call common_overlay::L647C, path_buf0

96
desktop/ovl7.s
View File

@ -14,7 +14,7 @@ L7000: stx L73A9
jsr common_overlay::create_common_dialog
jsr L7101
jsr L70AD
jsr common_overlay::L5E87
jsr common_overlay::device_on_line
lda path_buf0
beq L7056
addr_call common_overlay::L6129, path_buf0
@ -54,9 +54,9 @@ L706A: jsr common_overlay::L6163
jsr common_overlay::L606D
lda path_buf0
bne L707B
jsr common_overlay::L6D30
jsr common_overlay::jt_06
L707B: copy16 #$2001, path_buf2
jsr common_overlay::L6D27
jsr common_overlay::jt_03
jsr common_overlay::L6693
copy16 #$2001, path_buf2
lda #$FF
@ -70,12 +70,12 @@ L709D: .res 16, 0
;;; ============================================================
L70AD: ldx L7207
L70B0: lda L7207+1,x
sta $6D1E,x
L70AD: ldx jump_table_entries
L70B0: lda jump_table_entries+1,x
sta common_overlay::jump_table,x
dex
lda L7207+1,x
sta $6D1E,x
lda jump_table_entries+1,x
sta common_overlay::jump_table,x
dex
dex
bpl L70B0
@ -144,47 +144,47 @@ L711D: addr_call common_overlay::L5E6F, enter_the_full_pathname_label2
.byte $00
L7207: .byte $29
entry 0, $725D
entry 0, $732F
entry 0, $6593
entry 0, $664E
entry 0, $6DC2
entry 0, $6DD0
entry 0, $6E1D
entry 0, $69C6
entry 0, $6A18
entry 0, $6A53
entry 0, $6AAC
entry 0, $6B01
entry 0, $6B44
entry 0, $66D8
jump_table_entries: .byte $29
jump_table_entry $725D
jump_table_entry $732F
jump_table_entry $6593
jump_table_entry $664E
jump_table_entry $6DC2
jump_table_entry $6DD0
jump_table_entry $6E1D
jump_table_entry $69C6
jump_table_entry $6A18
jump_table_entry $6A53
jump_table_entry $6AAC
jump_table_entry $6B01
jump_table_entry $6B44
jump_table_entry $66D8
L7232: .byte $29
entry 0, $72CD
entry 0, $736C
entry 0, $65F0
entry 0, $6693
entry 0, $6DC9
entry 0, $6DD4
entry 0, $6E31
entry 0, $6B72
entry 0, $6BC4
entry 0, $6BFF
entry 0, $6C58
entry 0, $6CAD
entry 0, $6CF0
entry 0, $684F
jump_table2_entries: .byte $29
jump_table_entry $72CD
jump_table_entry $736C
jump_table_entry $65F0
jump_table_entry $6693
jump_table_entry $6DC9
jump_table_entry $6DD4
jump_table_entry $6E31
jump_table_entry $6B72
jump_table_entry $6BC4
jump_table_entry $6BFF
jump_table_entry $6C58
jump_table_entry $6CAD
jump_table_entry $6CF0
jump_table_entry $684F
;;; ============================================================
copy16 #$2001, path_buf2
jsr common_overlay::L6D27
ldx L7232
L726D: lda L7232+1,x
jsr common_overlay::jt_03
ldx jump_table2_entries
L726D: lda jump_table2_entries+1,x
sta $6D1E,x
dex
lda L7232+1,x
lda jump_table2_entries+1,x
sta $6D1E,x
dex
dex
@ -218,7 +218,7 @@ L72AF: iny
bne L72AF
sty path_buf1
L72BF: copy16 #$0601, path_buf2
jsr common_overlay::L6D27
jsr common_overlay::jt_03
rts
addr_call common_overlay::L647C, path_buf0
@ -263,18 +263,18 @@ L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
return #$FF
copy16 #$2001, path_buf2
jsr common_overlay::L6D27
ldx L7207
L737C: lda L7207+1,x
jsr common_overlay::jt_03
ldx jump_table_entries
L737C: lda jump_table_entries+1,x
sta $6D1E,x
dex
lda L7207+1,x
lda jump_table_entries+1,x
sta $6D1E,x
dex
dex
bpl L737C
copy16 #$0601, path_buf2
jsr common_overlay::L6D27
jsr common_overlay::jt_03
lda #$00
sta $5105
sta $51AE