Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-12-01 20:50:06 +00:00
Code Issues Projects Releases Wiki Activity

identify winfos

Browse Source
This commit is contained in:
Joshua Bell 2018-03-14 21:10:08 -07:00
parent 06e0c6878f
commit fcb99ec3cf
7 changed files with 91 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
desktop/desktop.s
View File

@ -17,6 +17,8 @@ INVOKER_FILENAME := $280 ; File to invoke (PREFIX must be set)
dummy0000 := $0000 ; overwritten by self-modified code dummy0000 := $0000 ; overwritten by self-modified code
dummy1234 := $1234 ; overwritten by self-modified code dummy1234 := $1234 ; overwritten by self-modified code
screen_width := 560
screen_height := 192
;;; ============================================================ ;;; ============================================================
;;; Segment loaded into AUX $851F-$BFFF (follows MGTK) ;;; Segment loaded into AUX $851F-$BFFF (follows MGTK)
@ -214,9 +216,6 @@ which_area: .byte 0
window_id: .byte 0 window_id: .byte 0
.endproc .endproc
screen_width := 560
screen_height := 192
.proc grafport .proc grafport
viewloc: DEFINE_POINT 0, 0, viewloc viewloc: DEFINE_POINT 0, 0, viewloc
mapbits: .addr MGTK::screen_mapbits mapbits: .addr MGTK::screen_mapbits
@ -4405,7 +4404,9 @@ fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0 nextwinfo: .addr 0
.endproc .endproc
.proc winfo12 ;;; Dialog used for Selector > Add/Edit an Entry...
.proc winfo_entrydlg
window_id: .byte $12 window_id: .byte $12
options: .byte MGTK::option_dialog_box options: .byte MGTK::option_dialog_box
title: .addr 0 title: .addr 0
@ -4437,6 +4438,8 @@ fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0 nextwinfo: .addr 0
.endproc .endproc
;;; File picker within Add/Edit an Entry dialog
.proc winfo_entrydlg_file_picker .proc winfo_entrydlg_file_picker
window_id: .byte $15 window_id: .byte $15
options: .byte MGTK::option_dialog_box options: .byte MGTK::option_dialog_box
@ -4469,7 +4472,11 @@ fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0 nextwinfo: .addr 0
.endproc .endproc
.proc winfo18 ;;; "About Apple II Desktop" Dialog
.proc winfo_about_dialog
width := 400
window_id: .byte $18 window_id: .byte $18
options: .byte MGTK::option_dialog_box options: .byte MGTK::option_dialog_box
title: .addr 0 title: .addr 0
@ -4486,10 +4493,10 @@ maxcontwidth: .word 50
mincontlength: .word 500 mincontlength: .word 500
maxcontlength: .word 140 maxcontlength: .word 140
port: port:
viewloc: DEFINE_POINT 80, 40 viewloc: DEFINE_POINT (screen_width - width) / 2, 40
mapbits: .addr MGTK::screen_mapbits mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth mapwidth: .word MGTK::screen_mapwidth
cliprect: DEFINE_RECT 0, 0, 400, 110 cliprect: DEFINE_RECT 0, 0, width, 110
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
@ -4500,9 +4507,13 @@ textbg: .byte MGTK::textbg_white
fontptr: .addr DEFAULT_FONT fontptr: .addr DEFAULT_FONT
nextwinfo: .addr 0 nextwinfo: .addr 0
.endproc .endproc
winfo18_port := winfo18::port winfo_about_dialog_port := winfo_about_dialog::port
;;; Dialog used for Edit/Delete/Run an Entry ...
.proc winfo_entry_picker
width := 350
.proc winfo1B
window_id: .byte $1B window_id: .byte $1B
options: .byte MGTK::option_dialog_box options: .byte MGTK::option_dialog_box
title: .addr 0 title: .addr 0
@ -4519,10 +4530,10 @@ maxcontwidth: .word 50
mincontlength: .word 500 mincontlength: .word 500
maxcontlength: .word 140 maxcontlength: .word 140
port: port:
viewloc: DEFINE_POINT 105, 25 viewloc: DEFINE_POINT (screen_width - width) / 2, 25
mapbits: .addr MGTK::screen_mapbits mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth mapwidth: .word MGTK::screen_mapwidth
cliprect: DEFINE_RECT 0, 0, 350, 110 cliprect: DEFINE_RECT 0, 0, width, 110
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
@ -17341,8 +17352,8 @@ jump_relay:
;;; "About" dialog ;;; "About" dialog
.proc show_about_dialog .proc show_about_dialog
MGTK_RELAY_CALL MGTK::OpenWindow, winfo18 MGTK_RELAY_CALL MGTK::OpenWindow, winfo_about_dialog
lda winfo18::window_id lda winfo_about_dialog::window_id
jsr set_port_from_window_id jsr set_port_from_window_id
jsr set_penmode_xor2 jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::about_dialog_outer_rect MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::about_dialog_outer_rect
@ -17373,7 +17384,7 @@ jump_relay:
bne :- bne :-
jmp close jmp close
close: MGTK_RELAY_CALL MGTK::CloseWindow, winfo18 close: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_about_dialog
jsr reset_state jsr reset_state
jsr set_cursor_pointer_with_flag jsr set_cursor_pointer_with_flag
rts rts

4
desktop/inc/desktoplc.inc
View File

@ -70,9 +70,9 @@ updatethumb_stash := updatethumb_params + 5 ; not part of struct
;;; Resources ;;; Resources
winfoF := $D57D winfoF := $D57D
winfo12 := $D5B7 winfo_entrydlg := $D5B7
winfo_entrydlg_file_picker := $D5F1 winfo_entrydlg_file_picker := $D5F1
winfo1B := $D665 winfo_entry_picker := $D665
path_buf0 := $D402 path_buf0 := $D402
path_buf1 := $D443 path_buf1 := $D443

18
desktop/ovl3.s
View File

@ -398,13 +398,13 @@ L933F: pha
jsr JUMP_TABLE_REDRAW_ALL jsr JUMP_TABLE_REDRAW_ALL
L934F: MGTK_RELAY_CALL MGTK::InitPort, $D239 L934F: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239 MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::CloseWindow, winfo1B 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, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239 MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::CloseWindow, winfo1B MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entry_picker
rts rts
L938A: .byte 0 L938A: .byte 0
@ -415,8 +415,8 @@ L938E: .byte 0
L938F: .byte 0 L938F: .byte 0
L9390: MGTK_RELAY_CALL MGTK::OpenWindow, winfo1B L9390: MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entry_picker
lda winfo1B lda winfo_entry_picker
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::FrameRect, $D6D8 MGTK_RELAY_CALL MGTK::FrameRect, $D6D8
@ -555,7 +555,7 @@ L953F: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L95A2 beq L95A2
lda winfo1B lda winfo_entry_picker
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -593,7 +593,7 @@ L95C5: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L9628 beq L9628
lda winfo1B lda winfo_entry_picker
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -645,13 +645,13 @@ L9671: cmp #MGTK::area_content
return #$FF return #$FF
L9678: lda findwindow_window_id L9678: lda findwindow_window_id
cmp winfo1B cmp winfo_entry_picker
beq L9683 beq L9683
return #$FF return #$FF
L9683: lda winfo1B L9683: lda winfo_entry_picker
jsr set_port_from_window_id jsr set_port_from_window_id
lda winfo1B lda winfo_entry_picker
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx

88
desktop/ovl4.s
View File

@ -95,13 +95,13 @@ L5106: bit $D8EC
bne :+ bne :+
jmp L5106 jmp L5106
: lda findwindow_window_id : lda findwindow_window_id
cmp $D5B7 cmp winfo_entrydlg
beq L5151 beq L5151
jmp L5106 jmp L5106
L5151: lda $D5B7 L5151: lda winfo_entrydlg
jsr L62C8 jsr L62C8
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -137,13 +137,13 @@ L51BE: cmp #$02
L51C6: rts L51C6: rts
L51C7: lda $D20E L51C7: lda $D20E
cmp $D5B7 cmp winfo_entrydlg
beq L51D2 beq L51D2
jmp L531F jmp L531F
L51D2: lda $D5B7 L51D2: lda winfo_entrydlg
jsr L62C8 jsr L62C8
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -163,7 +163,7 @@ L520D: tax
bmi L5216 bmi L5216
L5213: jmp L5308 L5213: jmp L5308
L5216: lda $D5B7 L5216: lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9E0 MGTK_RELAY_CALL MGTK::PaintRect, $D9E0
@ -253,7 +253,7 @@ L531F: bit L5105
L5340: rts L5340: rts
L5341: lda $D5F1 L5341: lda winfo_entrydlg_file_picker
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
add16 screentowindow_windowy, $D60F, screentowindow_windowy add16 screentowindow_windowy, $D60F, screentowindow_windowy
@ -272,7 +272,7 @@ L5380: jsr L5C4F
L5386: ldx $D920 L5386: ldx $D920
lda $1780,x lda $1780,x
bmi L53B5 bmi L53B5
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9D8 MGTK_RELAY_CALL MGTK::PaintRect, $D9D8
@ -282,7 +282,7 @@ L5386: ldx $D920
L53B5: and #$7F L53B5: and #$7F
pha pha
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9E0 MGTK_RELAY_CALL MGTK::PaintRect, $D9E0
@ -454,7 +454,7 @@ L555F: MGTK_RELAY_CALL MGTK::PeekEvent, event_params
L5576: MGTK_RELAY_CALL MGTK::GetEvent, event_params L5576: MGTK_RELAY_CALL MGTK::GetEvent, event_params
MGTK_RELAY_CALL MGTK::FindWindow, findwindow_params MGTK_RELAY_CALL MGTK::FindWindow, findwindow_params
lda findwindow_window_id lda findwindow_window_id
cmp $D5F1 cmp winfo_entrydlg_file_picker
beq :+ beq :+
pla pla
pla pla
@ -610,7 +610,7 @@ L56FB: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L575E beq L575E
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -648,7 +648,7 @@ L5781: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L57E4 beq L57E4
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -686,7 +686,7 @@ L5807: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L586A beq L586A
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -724,7 +724,7 @@ L588D: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L58F0 beq L58F0
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -762,7 +762,7 @@ L5913: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L5976 beq L5976
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -876,7 +876,7 @@ L5A1F: bit L5105
L5A27: cmp #CHAR_TAB L5A27: cmp #CHAR_TAB
bne L5A52 bne L5A52
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9F0 MGTK_RELAY_CALL MGTK::PaintRect, $D9F0
@ -893,7 +893,7 @@ L5A52: cmp #$0F
bmi L5A64 bmi L5A64
jmp L5AC8 jmp L5AC8
L5A64: lda $D5B7 L5A64: lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9E0 MGTK_RELAY_CALL MGTK::PaintRect, $D9E0
@ -903,7 +903,7 @@ L5A64: lda $D5B7
L5A8B: cmp #$03 L5A8B: cmp #$03
bne L5AB6 bne L5AB6
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9D0 MGTK_RELAY_CALL MGTK::PaintRect, $D9D0
@ -925,7 +925,7 @@ L5AC4: jsr L6D33
L5AC8: jsr L56E3 L5AC8: jsr L56E3
rts rts
L5ACC: lda $D5B7 L5ACC: lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9D8 MGTK_RELAY_CALL MGTK::PaintRect, $D9D8
@ -935,7 +935,7 @@ L5ACC: lda $D5B7
jsr L56E3 jsr L56E3
rts rts
L5AF7: lda $D5B7 L5AF7: lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D9E8 MGTK_RELAY_CALL MGTK::PaintRect, $D9E8
@ -1167,9 +1167,9 @@ L5CF6: .byte 0
;;; ============================================================ ;;; ============================================================
L5CF7: MGTK_RELAY_CALL MGTK::OpenWindow, $D5B7 L5CF7: MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg
MGTK_RELAY_CALL MGTK::OpenWindow, $D5F1 MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg_file_picker
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::FrameRect, $D9C0 MGTK_RELAY_CALL MGTK::FrameRect, $D9C0
@ -1487,7 +1487,7 @@ L606C: .byte 0
;;; ============================================================ ;;; ============================================================
L606D: lda $D5F1 L606D: lda winfo_entrydlg_file_picker
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::PaintRect, $D60D MGTK_RELAY_CALL MGTK::PaintRect, $D60D
lda #$10 lda #$10
@ -1539,7 +1539,7 @@ L60FF: lda L6128
cmp $D920 cmp $D920
bne L6110 bne L6110
jsr L6274 jsr L6274
lda $D5F1 lda winfo_entrydlg_file_picker
jsr L62C8 jsr L62C8
L6110: inc L6128 L6110: inc L6128
add16 $D919, #8, $D919 add16 $D919, #8, $D919
@ -1618,7 +1618,7 @@ L61B0: .byte 0
;;; ============================================================ ;;; ============================================================
L61B1: lda $D5B7 L61B1: lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::PaintRect, $D9C8 MGTK_RELAY_CALL MGTK::PaintRect, $D9C8
copy16 #path_buf, $06 copy16 #path_buf, $06
@ -1710,7 +1710,7 @@ L6274: ldx #$00
lda L62C7 lda L62C7
adc #$00 adc #$00
sta $D916 sta $D916
lda $D5F1 lda winfo_entrydlg_file_picker
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D90F MGTK_RELAY_CALL MGTK::PaintRect, $D90F
@ -1999,7 +1999,7 @@ L658B: cmp #$09
sbc #$08 sbc #$08
rts rts
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
jsr L6E45 jsr L6E45
stax $06 stax $06
@ -2021,7 +2021,7 @@ L65D6: copy16 #$D8EF, $06
jsr L56E3 jsr L56E3
rts rts
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
jsr L6E72 jsr L6E72
stax $06 stax $06
@ -2044,7 +2044,7 @@ L6634: copy16 #$D8EF, $06
jsr L56E3 jsr L56E3
rts rts
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::PaintRect, $DA9E MGTK_RELAY_CALL MGTK::PaintRect, $DA9E
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
@ -2059,7 +2059,7 @@ L6684: addr_call L5DED, $D484
;;; ============================================================ ;;; ============================================================
L6693: lda $D5B7 L6693: lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::PaintRect, $DAAA MGTK_RELAY_CALL MGTK::PaintRect, $DAAA
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
@ -2072,10 +2072,10 @@ L66C9: addr_call L5DED, $D484
addr_call L5DED, $D8F8 addr_call L5DED, $D8F8
rts rts
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
lda $D5B7 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, $DA9E
@ -2200,10 +2200,10 @@ L6846: jsr L6D27
rts rts
L684D: .word 0 L684D: .word 0
lda $D5B7 lda winfo_entrydlg
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
lda $D5B7 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, $DAAA
@ -2345,7 +2345,7 @@ L69D5: lda L6A17
inc $D402 inc $D402
stax $06 stax $06
copy16 $DAA8, $08 copy16 $DAA8, $08
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D8F6 addr_call L5DED, $D8F6
@ -2362,7 +2362,7 @@ L6A1E: dec $D402
jsr L6E45 jsr L6E45
stax $06 stax $06
copy16 $DAA8, $08 copy16 $DAA8, $08
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
@ -2390,7 +2390,7 @@ L6A6B: ldx $D402
jsr L6E45 jsr L6E45
stax $06 stax $06
copy16 $DAA8, $08 copy16 $DAA8, $08
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
@ -2418,7 +2418,7 @@ L6ACA: lda $D485,x
cpx $D484 cpx $D484
bne L6ACA bne L6ACA
L6AD6: dec $D484 L6AD6: dec $D484
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $DAA6 MGTK_RELAY_CALL MGTK::MoveTo, $DAA6
addr_call L5DED, $D402 addr_call L5DED, $D402
@ -2494,7 +2494,7 @@ L6B81: lda L6BC3
inc $D443 inc $D443
stax $06 stax $06
copy16 $DAB4, $08 copy16 $DAB4, $08
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D8F6 addr_call L5DED, $D8F6
@ -2511,7 +2511,7 @@ L6BCA: dec $D443
jsr L6E72 jsr L6E72
stax $06 stax $06
copy16 $DAB4, $08 copy16 $DAB4, $08
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
@ -2539,7 +2539,7 @@ L6C17: ldx $D443
jsr L6E72 jsr L6E72
stax $06 stax $06
copy16 $DAB4, $08 copy16 $DAB4, $08
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $06 MGTK_RELAY_CALL MGTK::MoveTo, $06
addr_call L5DED, $D484 addr_call L5DED, $D484
@ -2567,7 +2567,7 @@ L6C76: lda $D485,x
cpx $D484 cpx $D484
bne L6C76 bne L6C76
L6C82: dec $D484 L6C82: dec $D484
lda $D5B7 lda winfo_entrydlg
jsr L62C8 jsr L62C8
MGTK_RELAY_CALL MGTK::MoveTo, $DAB2 MGTK_RELAY_CALL MGTK::MoveTo, $DAB2
addr_call L5DED, $D443 addr_call L5DED, $D443

6
desktop/ovl5.s
View File

@ -43,7 +43,7 @@ L7029: lda L709B+1,x
sta $D485 sta $D485
rts rts
L7052: lda winfo12 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, $DA67 ; "Copy a File ..."
addr_call common_overlay::L5E57, $DA77 ; "Source filename:" addr_call common_overlay::L5E57, $DA77 ; "Source filename:"
@ -169,7 +169,7 @@ L7192: lda #$40
L7198: addr_call common_overlay::L647C, path_buf1 L7198: addr_call common_overlay::L647C, path_buf1
bne L7192 bne L7192
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12 MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0 lda #0
sta $50A8 sta $50A8
lda #0 lda #0
@ -186,7 +186,7 @@ L7198: addr_call common_overlay::L647C, path_buf1
;;; ============================================================ ;;; ============================================================
L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12 MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0 lda #0
sta $D8EC sta $D8EC
jsr common_overlay::L55BA jsr common_overlay::L55BA

6
desktop/ovl6.s
View File

@ -41,7 +41,7 @@ L7029: lda L7087,x
sta path_buf2+1 ; ??? sta path_buf2+1 ; ???
rts rts
L704D: lda winfo12 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, $DAB6 ; "Delete a File ..."
addr_call common_overlay::L5E57, $DAC8 ; "File to delete:" addr_call common_overlay::L5E57, $DAC8 ; "File to delete:"
@ -75,7 +75,7 @@ L70B1: addr_call common_overlay::L647C, path_buf0
rts rts
L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12 MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0 lda #0
sta $D8EC sta $D8EC
jsr common_overlay::L55BA jsr common_overlay::L55BA
@ -88,7 +88,7 @@ L70C0: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
.byte 0 .byte 0
L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12 MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0 lda #0
sta $D8EC sta $D8EC
jsr common_overlay::L55BA jsr common_overlay::L55BA

10
desktop/ovl7.s
View File

@ -84,7 +84,7 @@ L70B0: lda L7207+1,x
lda #$80 lda #$80
sta $5104 sta $5104
copy16 #$0601, $D484 copy16 #$0601, $D484
lda winfo12 lda winfo_entrydlg
jsr common_overlay::L62C8 jsr common_overlay::L62C8
lda L73A9 lda L73A9
jsr L7467 jsr L7467
@ -102,7 +102,7 @@ L70B0: lda L7207+1,x
sta $5B25 sta $5B25
rts rts
L7101: lda winfo12 L7101: lda winfo_entrydlg
jsr common_overlay::L62C8 jsr common_overlay::L62C8
lda path_buf0 lda path_buf0
beq L7116 beq L7116
@ -240,7 +240,7 @@ L72E8: lda #$FB
L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3 L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3 MGTK_RELAY_CALL MGTK::SetPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12 MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
sta $D8EC sta $D8EC
jsr common_overlay::L55BA jsr common_overlay::L55BA
copy16 #$59B8, $5B24 copy16 #$59B8, $5B24
@ -253,7 +253,7 @@ L72EE: MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::InitPort, grafport3 MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3 MGTK_RELAY_CALL MGTK::SetPort, grafport3
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12 MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #$00 lda #$00
sta $D8EC sta $D8EC
jsr common_overlay::L55BA jsr common_overlay::L55BA
@ -412,7 +412,7 @@ L74E1: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::PaintRect, $D98E MGTK_RELAY_CALL MGTK::PaintRect, $D98E
rts rts
lda winfo12 lda winfo_entrydlg
jsr common_overlay::L62C8 jsr common_overlay::L62C8
lda $D20A lda $D20A
bne L7500 bne L7500