a2d/desktop/desktop_main.s
2018-05-02 19:58:17 -07:00

14972 lines
350 KiB
ArmAsm

;;; ============================================================
;;; DeskTop - Main Memory Segment
;;;
;;; Compiled as part of desktop.s
;;; ============================================================
;;; ============================================================
;;; Segment loaded into MAIN $4000-$BEFF
;;; ============================================================
.proc desktop_main
L0020 := $0020
L0800 := $0800
L0CB8 := $0CB8
L0CD7 := $0CD7
L0CF9 := $0CF9
L0D14 := $0D14
dynamic_routine_800 := $0800
dynamic_routine_5000 := $5000
dynamic_routine_7000 := $7000
dynamic_routine_9000 := $9000
dynamic_routine_disk_copy := 0
dynamic_routine_format_erase := 1
dynamic_routine_selector1 := 2
dynamic_routine_common := 3
dynamic_routine_file_copy := 4
dynamic_routine_file_delete := 5
dynamic_routine_selector2 := 6
dynamic_routine_restore5000 := 7
dynamic_routine_restore9000 := 8
.org $4000
;; Jump table
;; Entries marked with * are used by DAs
;; "Exported" by desktop.inc
JT_MAIN_LOOP: jmp enter_main_loop
JT_MGTK_RELAY: jmp MGTK_RELAY
JT_SIZE_STRING: jmp compose_blocks_string
JT_DATE_STRING: jmp compose_date_string
L400C: jmp L5E78 ; ???
JT_AUXLOAD: jmp DESKTOP_AUXLOAD
JT_EJECT: jmp cmd_eject
JT_REDRAW_ALL: jmp redraw_windows ; *
JT_DESKTOP_RELAY: jmp DESKTOP_RELAY
JT_LOAD_OVL: jmp load_dynamic_routine
JT_CLEAR_SELECTION: jmp clear_selection ; *
JT_MLI_RELAY: jmp MLI_RELAY ; *
JT_COPY_TO_BUF: jmp DESKTOP_COPY_TO_BUF
JT_COPY_FROM_BUF: jmp DESKTOP_COPY_FROM_BUF
JT_NOOP: jmp cmd_noop
L402D: jmp L8707 ; ???
JT_SHOW_ALERT0: jmp DESKTOP_SHOW_ALERT0
JT_SHOW_ALERT: jmp DESKTOP_SHOW_ALERT
JT_LAUNCH_FILE: jmp launch_file
JT_CUR_POINTER: jmp set_pointer_cursor ; *
JT_CUR_WATCH: jmp set_watch_cursor
JT_RESTORE_SEF: jmp restore_dynamic_routine
;; Main Loop
.proc enter_main_loop
cli
sta ALTZPON
lda LCBANK1
lda LCBANK1
jsr L4530 ; something with DEVLST ???
;; Add icons (presumably desktop ones?)
ldx #0
iloop: cpx cached_window_icon_count
beq skip
txa
pha
lda cached_window_icon_list,x
jsr icon_entry_lookup
ldy #DT_ADD_ICON
jsr DESKTOP_RELAY ; icon entry addr in A,X
pla
tax
inx
jmp iloop
skip: lda #0
sta cached_window_id
jsr DESKTOP_COPY_FROM_BUF
;; Clear various flags
lda #0
sta LD2A9
sta double_click_flag
sta loop_counter
sta LE26F
;; Pending error message?
lda pending_alert
beq main_loop
tay
jsr DESKTOP_SHOW_ALERT0
;; Main loop
main_loop:
jsr reset_grafport3
inc loop_counter
inc loop_counter
lda loop_counter
cmp machine_type ; for per-machine timing
bcc :+
lda #0
sta loop_counter
jsr L4563 ; called every few ticks ???
beq :+
jsr L40E0 ; conditionally ???
: jsr L464E
;; Get an event
jsr get_event
lda event_kind
;; Is it a button-down event? (including w/ modifiers)
cmp #MGTK::event_kind_button_down
beq click
cmp #MGTK::event_kind_apple_key
bne :+
click: jsr handle_click
jmp main_loop
;; Is it a key down event?
: cmp #MGTK::event_kind_key_down
bne :+
jsr handle_keydown
jmp main_loop
;; Is it an update event?
: cmp #MGTK::event_kind_update
bne :+
jsr reset_grafport3
lda active_window_id
sta L40F0
lda #$80
sta L40F1
jsr L410D
: jmp main_loop
loop_counter:
.byte 0
;;; --------------------------------------------------
L40E0: tsx
stx LE256
sta menu_click_params::item_num
jsr L59A0
lda #0
sta menu_click_params::item_num
rts
L40F0: .byte $00
L40F1: .byte $00
redraw_windows:
jsr reset_grafport3
lda active_window_id
sta L40F0
lda #$00
sta L40F1
L4100: jsr peek_event
lda event_kind
cmp #MGTK::event_kind_update
bne L412B
jsr get_event
L410D: jsr L4113
jmp L4100
L4113: MGTK_RELAY_CALL MGTK::BeginUpdate, event_window_id
bne L4151 ; did not really need updating
jsr update_window
MGTK_RELAY_CALL MGTK::EndUpdate
rts
L412B: lda #0
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda L40F0
sta active_window_id
beq L4143
bit running_da_flag
bmi L4143
jsr L4244
L4143: bit L40F1
bpl L4151
DESKTOP_RELAY_CALL DT_REDRAW_ICONS
L4151: rts
.endproc
main_loop := enter_main_loop::main_loop
redraw_windows := enter_main_loop::redraw_windows
;;; ============================================================
L4152: .byte 0
.proc update_window
lda event_window_id
cmp #9 ; only handle windows 1...8
bcc L415B
rts
L415B: sta active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda #$80
sta L4152
lda cached_window_id
sta getwinport_params2::window_id
jsr get_port2
jsr draw_window_header
lda active_window_id
jsr copy_window_portbits
jsr DESKTOP_ASSIGN_STATE
lda active_window_id
jsr window_lookup
stax $06
ldy #$16
lda ($06),y
sec
sbc grafport2::viewloc::ycoord
sta L4242
iny
lda ($06),y
sbc grafport2::viewloc::ycoord+1
sta L4243
cmp16 L4242, #15
bpl L41CB
jsr offset_grafport2
ldx #$0B
ldy #$1F
lda grafport2,x
sta ($06),y
dey
dex
lda grafport2,x
sta ($06),y
ldx #$03
ldy #$17
lda grafport2,x
sta ($06),y
dey
dex
lda grafport2,x
sta ($06),y
L41CB: ldx cached_window_id
dex
lda win_buf_table,x
bpl L41E2
jsr L6C19
lda #$00
sta L4152
lda active_window_id
jmp assign_window_portbits
L41E2: lda cached_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr cached_icons_window_to_screen
ldx #7
: lda grafport2::cliprect,x
sta rect_E230,x
dex
bpl :-
lda #0
sta L4241
L41FE: lda L4241
cmp cached_window_icon_count
beq L4227
tax
lda cached_window_icon_list,x
sta icon_param
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
beq :+
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, icon_param
: inc L4241
jmp L41FE
L4227: lda #$00
sta L4152
lda cached_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr cached_icons_screen_to_window
lda active_window_id
jsr assign_window_portbits
jmp reset_grafport3
L4241: .byte 0
L4242: .byte 0
L4243: .byte 0
.endproc
;;; ============================================================
.proc L4244
lda selected_icon_count
bne :+
bail: rts
: lda #0
sta L42C3
lda selected_window_index
beq L42A5
cmp active_window_id
bne bail
lda active_window_id
sta getwinport_params2::window_id
jsr get_port2
jsr offset_grafport2_and_set
ldx #7
: lda grafport2::cliprect,x
sta rect_E230,x
dex
bpl :-
L4270: lda L42C3
cmp selected_icon_count
beq done
tax
lda selected_icon_list,x
sta icon_param
jsr icon_window_to_screen
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
beq :+
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, icon_param
: lda icon_param
jsr icon_screen_to_window
inc L42C3
jmp L4270
done: jmp reset_grafport3
L42A5: lda L42C3
cmp selected_icon_count
beq done
tax
lda selected_icon_list,x
sta icon_param
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, icon_param
inc L42C3
jmp L42A5
L42C3: .byte 0
.endproc
;;; ============================================================
;;; Menu Dispatch
.proc handle_keydown_impl
;; Keep in sync with desktop_aux::menu_item_id_*
;; jump table for menu item handlers
dispatch_table:
;; Apple menu (1)
.addr cmd_about
.addr cmd_noop ; --------
.addr cmd_deskacc
.addr cmd_deskacc
.addr cmd_deskacc
.addr cmd_deskacc
.addr cmd_deskacc
.addr cmd_deskacc
.addr cmd_deskacc
.addr cmd_deskacc
;; File menu (2)
.addr cmd_new_folder
.addr cmd_noop ; --------
.addr cmd_open
.addr cmd_close
.addr cmd_close_all
.addr cmd_select_all
.addr cmd_noop ; --------
.addr cmd_copy_file
.addr cmd_delete_file
.addr cmd_noop ; --------
.addr cmd_eject
.addr cmd_quit
;; Selector menu (3)
.addr cmd_selector_action
.addr cmd_selector_action
.addr cmd_selector_action
.addr cmd_selector_action
.addr cmd_noop ; --------
.addr cmd_selector_item
.addr cmd_selector_item
.addr cmd_selector_item
.addr cmd_selector_item
.addr cmd_selector_item
.addr cmd_selector_item
.addr cmd_selector_item
.addr cmd_selector_item
;; View menu (4)
.addr cmd_view_by_icon
.addr cmd_view_by_name
.addr cmd_view_by_date
.addr cmd_view_by_size
.addr cmd_view_by_type
;; Special menu (5)
.addr cmd_check_drives
.addr cmd_noop ; --------
.addr cmd_format_disk
.addr cmd_erase_disk
.addr cmd_disk_copy
.addr cmd_noop ; --------
.addr cmd_lock
.addr cmd_unlock
.addr cmd_noop ; --------
.addr cmd_get_info
.addr cmd_get_size
.addr cmd_noop ; --------
.addr cmd_rename_icon
;; (6 is duplicated to 5)
;; no menu 7 ??
.addr cmd_check_drives ; duplicate???
.addr cmd_noop ; --------
.addr L59A0 ; ???
.addr L59A0
.addr L59A0
.addr L59A0
.addr L59A0
.addr L59A0
.addr L59A0
.addr L59A0
;; Startup menu (8)
.addr cmd_startup_item
.addr cmd_startup_item
.addr cmd_startup_item
.addr cmd_startup_item
.addr cmd_startup_item
.addr cmd_startup_item
.addr cmd_startup_item
;; indexed by menu id-1
offset_table:
.byte 0,20,44,70,80,80,106,126,140
flag: .byte $00
;; Handle accelerator keys
handle_keydown:
lda event_modifiers
bne :+ ; either OA or CA ?
jmp menu_accelerators ; nope
: cmp #3 ; both OA + CA ?
bne :+ ; nope
rts
;; Non-menu keys
: lda event_key
ora #$20 ; force to lower-case
cmp #'h' ; OA-H (Highlight Icon)
bne :+
jmp cmd_higlight
: bit flag
bpl menu_accelerators
cmp #'w' ; OA-W (Activate Window)
bne :+
jmp cmd_activate
: cmp #'g' ; OA-G (Resize)
bne :+
jmp cmd_resize
: cmp #'m' ; OA-M (Move)
bne :+
jmp cmd_move
: cmp #'x' ; OA-X (Scroll)
bne menu_accelerators
jmp cmd_scroll
menu_accelerators:
lda event_params+1
sta LE25C
lda event_params+2
beq L43A1
lda #1
L43A1: sta LE25D
MGTK_RELAY_CALL MGTK::MenuKey, menu_click_params
menu_dispatch2:
ldx menu_click_params::menu_id
bne :+
rts
: dex ; x has top level menu id
lda offset_table,x
tax
ldy menu_click_params::item_num
dey
tya
asl a
sta L43E5
txa
clc
adc L43E5
tax
copy16 dispatch_table,x, L43E5
jsr L43E0
MGTK_RELAY_CALL MGTK::HiliteMenu, menu_click_params
rts
L43E0: tsx
stx LE256
L43E5 := *+1
jmp dummy1234 ; self-modified
.endproc
handle_keydown := handle_keydown_impl::handle_keydown
menu_dispatch2 := handle_keydown_impl::menu_dispatch2
menu_dispatch_flag := handle_keydown_impl::flag
;;; ============================================================
;;; Handle click
.proc handle_click
tsx
stx LE256
MGTK_RELAY_CALL MGTK::FindWindow, event_coords
lda findwindow_which_area
bne not_desktop
;; Click on desktop
jsr detect_double_click
sta double_click_flag
lda #0
sta findwindow_window_id
DESKTOP_RELAY_CALL DT_FIND_ICON, event_coords
lda findicon_which_icon
beq L4415
jmp L67D7
L4415: jmp L68AA
not_desktop:
cmp #MGTK::area_menubar ; menu?
bne not_menu
MGTK_RELAY_CALL MGTK::MenuSelect, menu_click_params
jmp menu_dispatch2
not_menu:
pha ; which window - active or not?
lda active_window_id
cmp findwindow_window_id
beq handle_active_window_click
pla
jmp handle_inactive_window_click
.endproc
;;; ============================================================
.proc handle_active_window_click
pla
cmp #MGTK::area_content
bne :+
jsr detect_double_click
sta double_click_flag
jmp handle_client_click
: cmp #MGTK::area_dragbar
bne :+
jmp handle_title_click
: cmp #MGTK::area_grow_box
bne :+
jmp handle_resize_click
: cmp #MGTK::area_close_box
bne :+
jmp handle_close_click
: rts
.endproc
;;; ============================================================
.proc handle_inactive_window_click
jmp L445D
L445C: .byte 0
L445D: jsr clear_selection
ldx findwindow_window_id
dex
lda LEC26,x
sta icon_param
lda icon_param
jsr icon_entry_lookup
stax $06
ldy #$01
lda ($06),y
beq L44A6
ora #$80
sta ($06),y
iny
lda ($06),y
and #$0F
sta L445C
jsr zero_grafport5_coords
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
jsr reset_grafport3
lda L445C
sta selected_window_index
lda #$01
sta selected_icon_count
lda icon_param
sta selected_icon_list
L44A6: MGTK_RELAY_CALL MGTK::SelectWindow, findwindow_window_id
lda findwindow_window_id
sta active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr L6C19
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda #MGTK::checkitem_uncheck
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
ldx active_window_id
dex
lda win_buf_table,x
and #$0F
sta checkitem_params::menu_item
inc checkitem_params::menu_item
lda #MGTK::checkitem_check
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
rts
.endproc
;;; ============================================================
.proc get_set_port2
MGTK_RELAY_CALL MGTK::GetWinPort, getwinport_params2
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
.endproc
.proc get_port2
MGTK_RELAY_CALL MGTK::GetWinPort, getwinport_params2
rts
.endproc
rts ; ???
.proc reset_grafport3
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
.endproc
;;; ============================================================
.proc redraw_windows_and_desktop
jsr redraw_windows
DESKTOP_RELAY_CALL DT_REDRAW_ICONS
rts
.endproc
;;; ============================================================
.proc L4530
ldx #0
ldy DEVCNT
loop: lda DEVLST,y
and #$0F
cmp #$0B ; RAM Disk???
beq L4559
next: dey
bpl loop
stx L4597
stx L45A0
jsr L45B2
ldx L45A0
beq done
: lda L45A0,x
sta L45A9,x
dex
bpl :-
done: rts
L4559: lda DEVLST,y
inx
sta L4597,x
bne next
rts
.endproc
;;; ============================================================
.proc L4563
lda L45A0
beq L4579
jsr L45B2
ldx L45A0
L456E: lda L45A0,x
cmp L45A9,x
bne L457C
dex
bne L456E
L4579: return #0
L457C: lda L45A0,x
sta L45A9,x
lda L4597,x
ldy DEVCNT
L4588: cmp DEVLST,y
beq L4591
dey
bpl L4588
rts
L4591: tya
clc
adc #$03
rts
.endproc
;;; ============================================================
.byte $00
L4597: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00
L45A0: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00
L45A9: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00
;;; ============================================================
;; Possibly SmartPort STATUS call to determine ejectability ???
.proc L45B2
ptr := $6
ldx L4597
beq done
stx L45A0
: lda L4597,x
jsr L45C7
sta L45A0,x
dex
bne :-
done: rts
L45C7: sta unit_num
txa
pha
tya
pha
;; Compute driver address ($BFds for Slot s Drive d)
ldx #$11
lda unit_num
and #$80 ; high bit is drive (0=D1, 1=D2)
beq :+
ldx #$21
: stx bf_lo ; D1=$11, D2=$21
lda unit_num
and #$70
lsr a
lsr a
lsr a
clc
adc bf_lo
sta bf_lo
bf_lo := *+1
lda $BF00 ; self-modified to $BFds
sta ptr+1
lda #0 ; Bug: assumes driver is at $XX00 ???
sta ptr ; Bug: Should check driver is $Cn before continuing
ldy #7
lda (ptr),y ; $Cn07 == 0 for SmartPort
bne notsp
;; Locate SmartPort entry point: $Cn00 + ($CnFF) + 3
ldy #$FF
lda (ptr),y
clc
adc #3
sta ptr
lda unit_num
pha
rol a
pla
php
and #$20
lsr a
lsr a
lsr a
lsr a
plp
adc #1
sta status_unit_num
;; Execute SmartPort call
jsr call
.byte 0 ; $00 = STATUS
.addr status_params
lda status_buffer
and #$10 ; general status byte, $10 = disk in drive
beq notsp
lda #$FF
bne finish
notsp: lda #0 ; not SmartPort
finish: sta result
pla
tay
pla
tax
return result
call: jmp (ptr)
unit_num:
.byte 0
result: .byte 0
;; params for call
.proc status_params
param_count: .byte 3
unit_num: .byte 1
list_ptr: .addr status_buffer
status_code: .byte 0
.endproc
status_unit_num := status_params::unit_num
status_buffer: .res 16, 0
.endproc
;;; ============================================================
.proc L464E
lda LD343
beq :+
bit LD343+1
bmi L4666
jsr enable_selector_menu_items
jmp L4666
: bit LD343+1
bmi L4666
jsr disable_selector_menu_items
L4666: lda selected_icon_count
beq L46A8
lda selected_window_index
bne L4691
lda selected_icon_count
cmp #2
bcs L4697
lda selected_icon_list
cmp trash_icon_num
bne L468B
jsr disable_eject_menu_item
jsr disable_file_menu_items
lda #0
sta LE26F
rts
L468B: jsr enable_eject_menu_item
jmp L469A
L4691: jsr disable_eject_menu_item
jmp L469A
L4697: jsr enable_eject_menu_item
L469A: bit LE26F
bmi L46A7
jsr enable_file_menu_items
lda #$80
sta LE26F
L46A7: rts
L46A8: bit LE26F
bmi L46AE
rts
L46AE: jsr disable_eject_menu_item
jsr disable_file_menu_items
lda #$00
sta LE26F
rts
.endproc
.proc MLI_RELAY
sty call
stax params
php
sei
sta ALTZPOFF
sta ROMIN2
jsr MLI
call: .byte $00
params: .addr dummy0000
sta ALTZPON
tax
lda LCBANK1
lda LCBANK1
plp
txa
rts
.endproc
.macro MLI_RELAY_CALL call, addr
yax_call desktop_main::MLI_RELAY, call, addr
.endmacro
;;; ============================================================
;;; Launch file (double-click) ???
.proc launch_file
jmp begin
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params, $220
begin:
jsr set_watch_cursor
ldx #$FF
L46F8: inx
lda LD355,x
sta $220,x
cpx LD355
bne L46F8
inx
lda #'/'
sta $220,x
ldy #$00
L470C: iny
inx
lda buf_filename2,y
sta $220,x
cpy buf_filename2
bne L470C
stx $220
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params
beq L472B
jsr DESKTOP_SHOW_ALERT0
rts
L472B: lda get_file_info_params::file_type
cmp #FT_BASIC
bne L4738
jsr L47B8
jmp L4755
L4738: cmp #FT_BINARY
bne L4748
lda BUTN0 ; only launch if a button is down
ora BUTN1
bmi L4755
jsr set_pointer_cursor
rts
L4748: cmp #FT_SYSTEM
beq L4755
cmp #FT_S16
beq L4755
lda #$FA
jsr L4802
L4755: DESKTOP_RELAY_CALL $06
MGTK_RELAY_CALL MGTK::CloseAll
MGTK_RELAY_CALL MGTK::SetMenu, blank_menu
ldx LD355
L4773: lda LD355,x
sta $220,x
dex
bpl L4773
ldx buf_filename2
L477F: lda buf_filename2,x
sta INVOKER_FILENAME,x
dex
bpl L477F
addr_call L4842, $280
addr_call L4842, $220
jsr L48BE
copy16 #INVOKER, reset_and_invoke_target
jmp reset_and_invoke
;;; --------------------------------------------------
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params2, $1800
L47B8: ldx LD355
stx L4816
L47BE: lda LD355,x
sta $1800,x
dex
bpl L47BE
inc $1800
ldx $1800
lda #'/'
sta $1800,x
L47D2: ldx $1800
ldy #$00
L47D7: inx
iny
lda L4817,y
sta $1800,x
cpy L4817
bne L47D7
stx $1800
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params2
bne L47F3
rts
L47F3: ldx L4816
L47F6: lda $1800,x
cmp #$2F
beq L4808
dex
bne L47F6
L4800: lda #$FE
L4802: jsr DESKTOP_SHOW_ALERT0
pla
pla
rts
L4808: cpx #$01
beq L4800
stx $1800
dex
stx L4816
jmp L47D2
L4816: .byte $00
L4817: PASCAL_STRING "Basic.system"
L4824: .res 30, 0
L4842: stax $06
ldy #$00
lda ($06),y
tay
L484B: lda ($06),y
cmp #$61
bcc L4859
cmp #$7B
bcs L4859
and #$DF
sta ($06),y
L4859: dey
bne L484B
rts
.endproc
L4824 := launch_file::L4824
;;; ============================================================
L485D: .word $E000
L485F: .word $D000
sys_start_flag: .byte $00
sys_start_path: .res 40, 0
;;; ============================================================
set_watch_cursor:
jsr hide_cursor
MGTK_RELAY_CALL MGTK::SetCursor, watch_cursor
jsr show_cursor
rts
set_pointer_cursor:
jsr hide_cursor
MGTK_RELAY_CALL MGTK::SetCursor, pointer_cursor
jsr show_cursor
rts
hide_cursor:
MGTK_RELAY_CALL MGTK::HideCursor
rts
show_cursor:
MGTK_RELAY_CALL MGTK::ShowCursor
rts
;;; ============================================================
.proc L48BE
ldx DESKTOP_DEVICELIST
inx
: lda DESKTOP_DEVICELIST,x
sta DEVLST-1,x
dex
bpl :-
rts
.endproc
.proc show_warning_dialog_num
sta warning_dialog_num
yax_call launch_dialog, index_warning_dialog, warning_dialog_num
rts
.endproc
copy16 #main_loop, L48E4
L48E4 := *+1
jmp dummy1234 ; self-modified
get_event:
MGTK_RELAY_CALL MGTK::GetEvent, event_params
rts
peek_event:
MGTK_RELAY_CALL MGTK::PeekEvent, event_params
rts
set_penmode_xor:
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
rts
set_penmode_copy:
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
rts
;;; ============================================================
.proc cmd_noop
rts
.endproc
;;; ============================================================
.proc cmd_selector_action
jsr set_watch_cursor
lda #dynamic_routine_selector1
jsr load_dynamic_routine
bmi done
lda menu_click_params::item_num
cmp #$03
bcs L492E
lda #dynamic_routine_selector2
jsr load_dynamic_routine
bmi done
lda #dynamic_routine_common
jsr load_dynamic_routine
bmi done
L492E: jsr set_pointer_cursor
lda menu_click_params::item_num
jsr dynamic_routine_9000
sta L498F
jsr set_watch_cursor
lda #dynamic_routine_restore9000
jsr restore_dynamic_routine
lda menu_click_params::item_num
cmp #$04
bne done
lda L498F
bpl done
jsr L4AAD
jsr L4A77
jsr get_LD3FF
bpl L497A
jsr L8F24
bmi done
jsr L4968
done: jsr set_pointer_cursor
jsr redraw_windows_and_desktop
rts
L4968: jsr L4AAD
ldx $840
L496E: lda $840,x
sta LD355,x
dex
bpl L496E
jmp L4A17
L497A: jsr L4AAD
ldx L0800
L4980: lda L0800,x
sta LD355,x
dex
bpl L4980
jsr L4A17
jmp done
L498F: .byte $00
.endproc
;;; ============================================================
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params3, $220
.proc cmd_selector_item
jmp L49A6
L49A5: .byte 0
L49A6: lda menu_click_params::item_num
sec
sbc #$06
sta L49A5
jsr a_times_16
addax #run_list_entries, $06
ldy #$0F
lda ($06),y
asl a
bmi L49FA
bcc L49E0
jsr get_LD3FF
beq L49FA
lda L49A5
jsr L4AEA
beq L49ED
lda L49A5
jsr L4A47
jsr L8F24
bpl L49ED
jmp redraw_windows_and_desktop
L49E0: jsr get_LD3FF
beq L49FA
lda L49A5
jsr L4AEA
bne L49FA
L49ED: lda L49A5
jsr L4B5F
stax $06
jmp L4A0A
L49FA: lda L49A5
jsr a_times_64
addax #$DB9E, $06
L4A0A: ldy #$00
lda ($06),y
tay
L4A0F: lda ($06),y
sta LD355,y
dey
bpl L4A0F
L4A17: ldy LD355
L4A1A: lda LD355,y
cmp #$2F
beq L4A24
dey
bpl L4A1A
L4A24: dey
sty L4A46
ldx #$00
iny
L4A2B: iny
inx
lda LD355,y
sta buf_filename2,x
cpy LD355
bne L4A2B
stx buf_filename2
lda L4A46
sta LD355
lda #$00
jmp launch_file
L4A46: .byte 0
L4A47: pha
jsr a_times_64
addax #$DB9E, $06
ldy #$00
lda ($06),y
tay
L4A5A: lda ($06),y
sta L0800,y
dey
bpl L4A5A
pla
jsr L4B5F
stax $08
ldy #$00
lda ($08),y
tay
L4A6F: lda ($08),y
sta $840,y
dey
bpl L4A6F
L4A77: ldy L0800
L4A7A: lda L0800,y
cmp #$2F
beq L4A84
dey
bne L4A7A
L4A84: dey
sty L0800
ldy $840
L4A8B: lda $840,y
cmp #$2F
beq L4A95
dey
bne L4A8B
L4A95: dey
sty $840
copy16 #$800, $06
copy16 #$840, $08
jsr L4D19
rts
L4AAD: ldy LD355
L4AB0: lda LD355,y
sta L0800,y
dey
bpl L4AB0
addr_call copy_LD3EE_str, $840
ldy L0800
L4AC3: lda L0800,y
cmp #$2F
beq L4ACD
dey
bne L4AC3
L4ACD: dey
L4ACE: lda L0800,y
cmp #$2F
beq L4AD8
dey
bne L4ACE
L4AD8: dey
ldx $840
L4ADC: iny
inx
lda L0800,y
sta $840,x
cpy L0800
bne L4ADC
rts
L4AEA: jsr L4B5F
stax get_file_info_params3::pathname
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params3
rts
.endproc
L4A17 := cmd_selector_item::L4A17
L4A77 := cmd_selector_item::L4A77
L4AAD := cmd_selector_item::L4AAD
;;; ============================================================
.proc get_LD3FF
sta ALTZPOFF
lda LCBANK2
lda LCBANK2
lda LD3FF
tax
sta ALTZPON
lda LCBANK1
lda LCBANK1
txa
rts
.endproc
.proc copy_LD3EE_str
stax destptr
sta ALTZPOFF
lda LCBANK2
lda LCBANK2
ldx LD3EE
: lda LD3EE,x
destptr := *+1
sta dummy1234,x
dex
bpl :-
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
.endproc
.proc copy_LD3AD_str
stax destptr
sta ALTZPOFF
lda LCBANK2
lda LCBANK2
ldx LD3AD
: lda LD3AD,x
destptr := *+1
sta dummy1234,x
dex
bpl :-
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
.endproc
.proc L4B5F
sta L4BB0
addr_call copy_LD3EE_str, path_buffer
lda L4BB0
jsr a_times_64
addax #$DB9E, $06
ldy #$00
lda ($06),y
sta L4BB1
tay
L4B81: lda ($06),y
and #$7F
cmp #'/'
beq L4B8C
dey
bne L4B81
L4B8C: dey
L4B8D: lda ($06),y
and #$7F
cmp #$2F
beq L4B98
dey
bne L4B8D
L4B98: dey
ldx path_buffer
L4B9C: inx
iny
lda ($06),y
sta path_buffer,x
cpy L4BB1
bne L4B9C
stx path_buffer
ldax #path_buffer
rts
L4BB0: .byte 0
L4BB1: .byte 0
.endproc
;;; ============================================================
.proc cmd_about
yax_call launch_dialog, index_about_dialog, $0000
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc cmd_deskacc_impl
ptr := $6
zp_use_flag1:
.byte $80
start: jsr reset_grafport3
jsr set_watch_cursor
;; Find DA name
lda menu_click_params::item_num ; menu item index (1-based)
sec
sbc #3 ; About and separator before first item
jsr a_times_16
addax #buf, ptr
;; Compute total length
ldy #0
lda (ptr),y
tay
clc
adc prefix_length
pha
tax
;; Append name to path
: lda ($06),y
sta str_desk_acc,x
dex
dey
bne :-
pla
sta str_desk_acc ; update length
;; Convert spaces to periods
ldx str_desk_acc
: lda str_desk_acc,x
cmp #' '
bne nope
lda #'.'
sta str_desk_acc,x
nope: dex
bne :-
;; Load the DA
jsr open
bmi done
lda open_ref_num
sta read_ref_num
sta close_ref_num
jsr read
jsr close
lda #$80
sta running_da_flag
;; Invoke it
jsr set_pointer_cursor
jsr reset_grafport3
MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag0
MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag1
jsr DA_LOAD_ADDRESS
MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag0
lda #0
sta running_da_flag
;; Restore state
jsr reset_grafport3
jsr redraw_windows_and_desktop
done: jsr set_pointer_cursor
rts
open: yxa_call MLI_RELAY, OPEN, open_params
bne :+
rts
: lda #warning_msg_insert_system_disk
jsr show_warning_dialog_num
beq open ; ok, so try again
return #$FF ; cancel, so fail
read: yxa_jump MLI_RELAY, READ, read_params
close: yxa_jump MLI_RELAY, CLOSE, close_params
unused: .byte 0 ; ???
DEFINE_OPEN_PARAMS open_params, str_desk_acc, DA_IO_BUFFER
open_ref_num := open_params::ref_num
DEFINE_READ_PARAMS read_params, DA_LOAD_ADDRESS, DA_MAX_SIZE
read_ref_num := read_params::ref_num
DEFINE_CLOSE_PARAMS close_params
close_ref_num := close_params::ref_num
.define prefix "Desk.acc/"
prefix_length:
.byte .strlen(prefix)
str_desk_acc:
PASCAL_STRING prefix, .strlen(prefix) + 15
.endproc
cmd_deskacc := cmd_deskacc_impl::start
;;; ============================================================
;; high bit set while a DA is running
running_da_flag:
.byte 0
;;; ============================================================
.proc cmd_copy_file
jsr set_watch_cursor
lda #dynamic_routine_common
jsr load_dynamic_routine
bmi L4CD6
lda #dynamic_routine_file_copy
jsr load_dynamic_routine
bmi L4CD6
jsr set_pointer_cursor
lda #$00
jsr dynamic_routine_5000
pha
jsr set_watch_cursor
lda #dynamic_routine_restore5000
jsr restore_dynamic_routine
jsr set_pointer_cursor
pla
bpl L4CCD
jmp L4CD6
L4CCD: jsr L4D19
jsr redraw_windows_and_desktop
jsr L8F18
L4CD6: pha
jsr set_pointer_cursor
pla
bpl :+
jmp redraw_windows_and_desktop
: addr_call L6FAF, path_buf4
beq :+
pha
jsr L6F0D
pla
jmp L5E78
: ldy #1
L4CF3: iny
lda path_buf4,y
cmp #'/'
beq :+
cpy path_buf4
bne L4CF3
iny
: dey
sty path_buf4
addr_call L6FB7, path_buf4
ldax #path_buf4
ldy path_buf4
jsr L6F4B
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc L4D19
ldy #$00
lda ($06),y
tay
L4D1E: lda ($06),y
sta path_buf3,y
dey
bpl L4D1E
ldy #$00
lda ($08),y
tay
L4D2B: lda ($08),y
sta path_buf4,y
dey
bpl L4D2B
addr_call L6F90, path_buf4
ldx #$01
iny
iny
L4D3E: lda path_buf4,y
sta LE04B,x
cpy path_buf4
beq L4D4E
iny
inx
jmp L4D3E
L4D4E: stx LE04B
lda path_buf4
sec
sbc LE04B
sta path_buf4
dec path_buf4
rts
.endproc
;;; ============================================================
.proc cmd_delete_file
jsr set_watch_cursor
lda #dynamic_routine_common
jsr load_dynamic_routine
bmi L4D9D
lda #dynamic_routine_file_delete
jsr load_dynamic_routine
bmi L4D9D
jsr set_pointer_cursor
lda #$01
jsr dynamic_routine_5000
pha
jsr set_watch_cursor
lda #dynamic_routine_restore5000
jsr restore_dynamic_routine
jsr set_pointer_cursor
pla
bpl L4D8A
jmp L4D9D
L4D8A: ldy #$00
lda ($06),y
tay
L4D8F: lda ($06),y
sta path_buf3,y
dey
bpl L4D8F
jsr redraw_windows_and_desktop
jsr L8F1B
L4D9D: pha
jsr set_pointer_cursor
pla
bpl L4DA7
jmp redraw_windows_and_desktop
L4DA7: addr_call L6F90, path_buf3
sty path_buf3
addr_call L6FAF, path_buf3
beq L4DC2
pha
jsr L6F0D
pla
jmp L5E78
L4DC2: ldy #$01
L4DC4: iny
lda path_buf3,y
cmp #$2F
beq L4DD2
cpy path_buf3
bne L4DC4
iny
L4DD2: dey
sty path_buf3
addr_call L6FB7, path_buf3
ldax #path_buf3
ldy path_buf3
jsr L6F4B
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc cmd_open
ldx #$00
L4DEC: cpx selected_icon_count
bne L4DF2
rts
L4DF2: txa
pha
lda selected_icon_list,x
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_type_mask
bne L4E10
ldy #$00
lda ($06),y
jsr L6A8A
jmp L4E14
L4E10: cmp #$40
bcc L4E1A
L4E14: pla
tax
inx
jmp L4DEC
L4E1A: sta L4E71
lda selected_icon_count
cmp #$02
bcs L4E14
pla
lda active_window_id
jsr window_address_lookup
stax $06
ldy #$00
lda ($06),y
tay
L4E34: lda ($06),y
sta LD355,y
dey
bpl L4E34
lda selected_icon_list
jsr icon_entry_lookup
stax $06
ldy #$09
lda ($06),y
tax
clc
adc #$09
tay
dex
dey
L4E51: lda ($06),y
sta LD343+1,x
dey
dex
bne L4E51
ldy #$09
lda ($06),y
tax
dex
dex
stx buf_filename2
lda L4E71
cmp #$20
bcc L4E6E
lda L4E71
L4E6E: jmp launch_file
L4E71: .byte 0
.endproc
;;; ============================================================
.proc cmd_close
lda active_window_id
bne L4E78
rts
L4E78: jsr clear_selection
dec LEC2E
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
ldx active_window_id
dex
lda win_buf_table,x
bmi L4EB4
DESKTOP_RELAY_CALL DT_CLOSE_WINDOW, active_window_id
lda LDD9E
sec
sbc cached_window_icon_count
sta LDD9E
ldx #$00
L4EA5: cpx cached_window_icon_count
beq L4EB4
lda cached_window_icon_list,x
jsr DESKTOP_FREE_ICON
inx
jmp L4EA5
L4EB4: ldx #$00
txa
L4EB7: sta cached_window_icon_list,x
cpx cached_window_icon_count
beq L4EC3
inx
jmp L4EB7
L4EC3: sta cached_window_icon_count
jsr DESKTOP_COPY_FROM_BUF
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
MGTK_RELAY_CALL MGTK::CloseWindow, active_window_id
ldx active_window_id
dex
lda LEC26,x
sta icon_param
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #(~icon_entry_open_mask)&$FF ; clear open_flag
sta ($06),y
and #icon_entry_winid_mask
sta selected_window_index
jsr zero_grafport5_coords
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
jsr reset_grafport3
lda #$01
sta selected_icon_count
lda icon_param
sta selected_icon_list
ldx active_window_id
dex
lda LEC26,x
jsr L7345
ldx active_window_id
dex
lda #$00
sta LEC26,x
MGTK_RELAY_CALL MGTK::FrontWindow, active_window_id
lda active_window_id
bne L4F3C
DESKTOP_RELAY_CALL DT_REDRAW_ICONS
L4F3C: lda #MGTK::checkitem_uncheck
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
jsr L66A2
jmp reset_grafport3
.endproc
;;; ============================================================
.proc cmd_close_all
lda active_window_id ; current window
beq done ; nope, done!
jsr cmd_close ; close it...
jmp cmd_close_all ; and try again
done: rts
.endproc
;;; ============================================================
.proc cmd_disk_copy
lda #dynamic_routine_disk_copy
jsr load_dynamic_routine
bmi fail
jmp dynamic_routine_800
fail: rts
.endproc
;;; ============================================================
.proc cmd_new_folder_impl
L4F67: .byte $00
L4F68: .byte $00
L4F69: .byte $00
;; access = destroy/rename/write/read
DEFINE_CREATE_PARAMS create_params, path_buffer, ACCESS_DEFAULT, FT_DIRECTORY,, ST_LINKED_DIRECTORY
path_buffer:
.res 65, 0 ; buffer is used elsewhere too
start: lda active_window_id
sta L4F67
yax_call launch_dialog, index_new_folder_dialog, L4F67
L4FC6: lda active_window_id
beq L4FD4
jsr window_address_lookup
stax L4F68
L4FD4: lda #$80
sta L4F67
yax_call launch_dialog, index_new_folder_dialog, L4F67
beq L4FE7
jmp L504B
L4FE7: stx $06+1
stx L504F
sty $06
sty L504E
ldy #$00
lda ($06),y
tay
L4FF6: lda ($06),y
sta path_buffer,y
dey
bpl L4FF6
ldx #$03
: lda DATELO,x
sta create_params::create_date,x
dex
bpl :-
MLI_RELAY_CALL CREATE, create_params
beq L5027
jsr DESKTOP_SHOW_ALERT0
copy16 L504E, L4F68
jmp L4FC6
rts
L5027: lda #$40
sta L4F67
yax_call launch_dialog, index_new_folder_dialog, L4F67
addr_call L6F90, path_buffer
sty path_buffer
addr_call L6FAF, path_buffer
beq L504B
jsr L5E78
L504B: jmp redraw_windows_and_desktop
L504E: .byte 0
L504F: .byte 0
.endproc
cmd_new_folder := cmd_new_folder_impl::start
path_buffer := cmd_new_folder_impl::path_buffer ; ???
;;; ============================================================
.proc cmd_eject
lda selected_window_index
beq L5056
L5055: rts
L5056: lda selected_icon_count
beq L5055
cmp #$01
bne L5067
lda selected_icon_list
cmp trash_icon_num
beq L5055
L5067: lda #$00
tax
tay
L506B: lda selected_icon_list,y
cmp trash_icon_num
beq L5077
sta $1800,x
inx
L5077: iny
cpy selected_icon_count
bne L506B
dex
stx L5098
jsr L8F15
L5084: ldx L5098
lda $1800,x
sta L533F
jsr L59A8
dec L5098
bpl L5084
jmp redraw_windows_and_desktop
L5098: .byte $00
.endproc
;;; ============================================================
.proc cmd_quit_impl
stack_data:
.addr $DEAF,$DEAD ; ???
quit_code:
;;; note that GS/OS GQUIT is called by ProDOS at $E0D000
;;; to quit back to GS/OS.
;;; since DeskTop pre-dates GS/OS, it's likely that this does
;;; a similar function for ProDOS 16.
;;; with GS/OS 5 and 6, this code potentially messes up
;;; the shadow register, $C035
.pushcpu
.setcpu "65816"
clc
xce ; enter native mode
jmp $E0D004 ; ProDOS 8->16 QUIT, presumably
.popcpu
DEFINE_QUIT_PARAMS quit_params
start:
ldx #3
: lda stack_data,x
sta $0102,x ; Populate stack ???
dex
bpl :-
;; Install new quit routine
sta ALTZPOFF
lda LCBANK2
lda LCBANK2
ldx #5
: lda quit_code,x
sta SELECTOR,x
dex
bpl :-
;; Restore machine to text state
sta ALTZPOFF
lda ROMIN2
jsr SETVID
jsr SETKBD
jsr INIT
jsr HOME
sta TXTSET
sta LOWSCR
sta LORES
sta MIXCLR
sta DHIRESOFF
sta CLRALTCHAR
sta CLR80VID
sta CLR80COL
MLI_CALL QUIT, quit_params
.endproc
cmd_quit := cmd_quit_impl::start
;;; ============================================================
.proc cmd_view_by_icon
ldx active_window_id
bne L50FF
rts
L50FF: dex
lda win_buf_table,x
bne L5106
rts
L5106: lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
ldx #$00
txa
L5112: cpx cached_window_icon_count
beq L511E
sta cached_window_icon_list,x
inx
jmp L5112
L511E: sta cached_window_icon_count
lda #$00
ldx active_window_id
dex
sta win_buf_table,x
jsr update_view_menu_check
lda active_window_id
sta getwinport_params2::window_id
jsr get_port2
jsr offset_grafport2_and_set
jsr set_penmode_copy
MGTK_RELAY_CALL MGTK::PaintRect, grafport2::cliprect
lda active_window_id
jsr L7D5D
stax L51EB
sty L51ED
lda active_window_id
jsr window_lookup
stax $06
ldy #$1F
lda #$00
L5162: sta ($06),y
dey
cpy #$1B
bne L5162
ldy #$23
ldx #$03
L516D: lda L51EB,x
sta ($06),y
dey
dex
bpl L516D
lda active_window_id
jsr L763A
lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr cached_icons_window_to_screen
lda #$00
sta L51EF
L518D: lda L51EF
cmp cached_window_icon_count
beq L51A7
tax
lda cached_window_icon_list,x
jsr icon_entry_lookup
ldy #$01
jsr DESKTOP_RELAY
inc L51EF
jmp L518D
L51A7: jsr reset_grafport3
jsr cached_icons_screen_to_window
jsr DESKTOP_COPY_FROM_BUF
jsr update_scrollbars
lda selected_window_index
beq L51E3
lda selected_icon_count
beq L51E3
sta L51EF
L51C0: ldx L51EF
lda selected_icon_count,x
sta icon_param
jsr icon_window_to_screen
jsr offset_grafport2_and_set
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
lda icon_param
jsr icon_screen_to_window
dec L51EF
bne L51C0
L51E3: lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
L51EB: .word 0
L51ED: .byte 0
.byte 0
L51EF: .byte 0
.endproc
;;; ============================================================
.proc L51F0
ldx active_window_id
dex
sta win_buf_table,x
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr L7D9C
jsr DESKTOP_COPY_FROM_BUF
lda active_window_id
sta getwinport_params2::window_id
jsr get_port2
jsr offset_grafport2_and_set
jsr set_penmode_copy
MGTK_RELAY_CALL MGTK::PaintRect, grafport2::cliprect
lda active_window_id
jsr L7D5D
stax L5263
sty L5265
lda active_window_id
jsr window_lookup
stax $06
ldy #$1F
lda #$00
L523B: sta ($06),y
dey
cpy #$1B
bne L523B
ldy #$23
ldx #$03
L5246: lda L5263,x
sta ($06),y
dey
dex
bpl L5246
lda #$80
sta L4152
jsr reset_grafport3
jsr L6C19
jsr update_scrollbars
lda #$00
sta L4152
rts
L5263: .word 0
L5265: .byte 0
.byte 0
.endproc
;;; ============================================================
.proc cmd_view_by_name
ldx active_window_id
bne L526D
rts
L526D: dex
lda win_buf_table,x
cmp #$81
bne L5276
rts
L5276: cmp #$00
bne :+
jsr close_active_window
: jsr update_view_menu_check
lda #$81
jmp L51F0
.endproc
;;; ============================================================
.proc cmd_view_by_date
ldx active_window_id
bne L528B
rts
L528B: dex
lda win_buf_table,x
cmp #$82
bne L5294
rts
L5294: cmp #$00
bne :+
jsr close_active_window
: jsr update_view_menu_check
lda #$82
jmp L51F0
.endproc
;;; ============================================================
.proc cmd_view_by_size
ldx active_window_id
bne L52A9
rts
L52A9: dex
lda win_buf_table,x
cmp #$83
bne L52B2
rts
L52B2: cmp #$00
bne :+
jsr close_active_window
: jsr update_view_menu_check
lda #$83
jmp L51F0
.endproc
;;; ============================================================
.proc cmd_view_by_type
ldx active_window_id
bne L52C7
rts
L52C7: dex
lda win_buf_table,x
cmp #$84
bne L52D0
rts
L52D0: cmp #$00
bne :+
jsr close_active_window
: jsr update_view_menu_check
lda #$84
jmp L51F0
.endproc
;;; ============================================================
.proc update_view_menu_check
;; Uncheck last checked
lda #MGTK::checkitem_uncheck
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
;; Check the new one
lda menu_click_params::item_num ; index of View menu item to check
sta checkitem_params::menu_item
lda #MGTK::checkitem_check
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
rts
.endproc
;;; ============================================================
.proc close_active_window
DESKTOP_RELAY_CALL DT_CLOSE_WINDOW, active_window_id
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda LDD9E
sec
sbc cached_window_icon_count
sta LDD9E
ldx #0
loop: cpx cached_window_icon_count
beq done
lda cached_window_icon_list,x
jsr DESKTOP_FREE_ICON
lda #$00
sta cached_window_icon_list,x
inx
jmp loop
done: jsr DESKTOP_COPY_FROM_BUF
lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
.endproc
;;; ============================================================
L533F: .byte 0
;;; ============================================================
.proc cmd_format_disk
lda #dynamic_routine_format_erase
jsr load_dynamic_routine
bmi fail
lda #$04
jsr dynamic_routine_800
bne :+
stx L533F
jsr redraw_windows_and_desktop
jsr L59A4
: jmp redraw_windows_and_desktop
fail: rts
.endproc
;;; ============================================================
.proc cmd_erase_disk
lda #dynamic_routine_format_erase
jsr load_dynamic_routine
bmi done
lda #$05
jsr dynamic_routine_800
bne done
stx L533F
jsr redraw_windows_and_desktop
jsr L59A4
done: jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc cmd_get_info
jsr L8F09
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc cmd_get_size
jsr L8F27
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc cmd_unlock
jsr L8F0F
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc cmd_lock
jsr L8F0C
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc cmd_rename_icon
jsr L8F12
pha
jsr redraw_windows_and_desktop
pla
beq L5398
rts
L5398: lda selected_window_index
bne L53B5
ldx #$00
ldy #$00
L53A1: lda selected_icon_list,x
cmp #$01
beq L53AC
sta L5428,y
iny
L53AC: inx
cpx selected_icon_list
bne L53A1
sty L5427
L53B5: lda #$FF
sta L5426
L53BA: inc L5426
lda L5426
cmp selected_icon_count
bne L53D0
lda selected_window_index
bne L53CD
jmp L540E
L53CD: jmp L5E78
L53D0: tax
lda selected_icon_list,x
jsr L5431
bmi L53BA
jsr window_address_lookup
stax $06
ldy #$00
lda ($06),y
tay
lda $06
jsr L6FB7
lda L704B
beq L53BA
L53EF: dec L704B
ldx L704B
lda L704C,x
cmp active_window_id
beq L5403
sta findwindow_window_id
jsr handle_inactive_window_click
L5403: jsr close_window
lda L704B
bne L53EF
jmp L53BA
L540E: ldx L5427
L5411: lda L5428,x
sta L533F
jsr L59A8
ldx L5427
dec L5427
dex
bpl L5411
jmp redraw_windows_and_desktop
L5426: .byte 0
L5427: .byte 0
L5428: .res 9, 0
L5431: ldx #7
L5433: cmp LEC26,x
beq L543E
dex
bpl L5433
return #$FF
L543E: inx
txa
rts
.endproc
;;; ============================================================
;;; Handle keyboard-based icon selection ("highlighting")
.proc cmd_higlight
jmp L544D
L5444: .byte 0
L5445: .byte 0
L5446: .byte 0
L5447: .byte 0
L5448: .byte 0
L5449: .byte 0
L544A: .byte 0
.byte 0
.byte 0
L544D:
lda #$00
sta $1800
lda active_window_id
bne L545A
jmp L54C5
L545A: tax
dex
lda win_buf_table,x
bpl L5464
jmp L54C5
L5464: lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda active_window_id
jsr window_lookup
stax $06
ldy #MGTK::winfo_offset_port+MGTK::grafport_offset_maprect
L5479: lda ($06),y
sta rect_E230-(MGTK::winfo_offset_port+MGTK::grafport_offset_maprect),y
iny
cpy #MGTK::winfo_offset_port+MGTK::grafport_offset_maprect+8
bne L5479
ldx #$00
L5485: cpx cached_window_icon_count
beq L54BD
txa
pha
lda cached_window_icon_list,x
sta icon_param
jsr icon_window_to_screen
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
pha
lda icon_param
jsr icon_screen_to_window
pla
beq L54B7
pla
pha
tax
lda cached_window_icon_list,x
ldx $1800
sta $1801,x
inc $1800
L54B7: pla
tax
inx
jmp L5485
L54BD: lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
L54C5: ldx $1800
ldy #$00
L54CA: lda cached_window_icon_list,y
sta $1801,x
iny
inx
cpy cached_window_icon_count
bne L54CA
lda $1800
clc
adc cached_window_icon_count
sta $1800
lda #$00
sta L544A
ldax #$03FF
L54EA: sta L5444,x
dex
bpl L54EA
L54F0: ldx L544A
L54F3: lda $1801,x
asl a
tay
copy16 icon_entry_address_table,y, $06
ldy #$06
lda ($06),y
cmp L5447
beq L5510
bcc L5532
jmp L5547
L5510: dey
lda ($06),y
cmp L5446
beq L551D
bcc L5532
jmp L5547
L551D: dey
lda ($06),y
cmp L5445
beq L552A
bcc L5532
jmp L5547
L552A: dey
lda ($06),y
cmp L5444
bcs L5547
L5532: lda $1801,x
stx L5449
sta L5448
ldy #$03
L553D: lda ($06),y
sta L5444-3,y
iny
cpy #$07
bne L553D
L5547: inx
cpx $1800
bne L54F3
ldx L544A
lda $1801,x
tay
lda L5448
sta $1801,x
ldx L5449
tya
sta $1801,x
ldax #$03FF
L5565: sta L5444,x
dex
bpl L5565
inc L544A
ldx L544A
cpx $1800
beq L5579
jmp L54F0
L5579: lda #$00
sta L544A
jsr clear_selection
L5581: jsr L55F0
L5584: jsr get_event
lda event_kind
cmp #MGTK::event_kind_key_down
beq L5595
cmp #MGTK::event_kind_button_down
bne L5584
jmp L55D1
L5595: lda event_params+1
and #$7F
cmp #CHAR_RETURN
beq L55D1
cmp #CHAR_ESCAPE
beq L55D1
cmp #CHAR_LEFT
beq L55BE
cmp #CHAR_RIGHT
bne L5584
ldx L544A
inx
cpx $1800
bne L55B5
ldx #$00
L55B5: stx L544A
jsr L562C
jmp L5581
L55BE: ldx L544A
dex
bpl L55C8
ldx $1800
dex
L55C8: stx L544A
jsr L562C
jmp L5581
L55D1: ldx L544A
lda $1801,x
sta selected_icon_list
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
sta selected_window_index
lda #1
sta selected_icon_count
rts
L55F0: ldx L544A
lda $1801,x
sta icon_param
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
sta getwinport_params2::window_id
beq L5614
jsr L56F9
lda icon_param
jsr icon_window_to_screen
L5614: DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
lda getwinport_params2::window_id
beq L562B
lda icon_param
jsr icon_screen_to_window
jsr reset_grafport3
L562B: rts
L562C: lda icon_param
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
sta getwinport_params2::window_id
beq L564A
jsr L56F9
lda icon_param
jsr icon_window_to_screen
L564A: DESKTOP_RELAY_CALL $0B, icon_param
lda getwinport_params2::window_id
beq L5661
lda icon_param
jsr icon_screen_to_window
jsr reset_grafport3
L5661: rts
.endproc
;;; ============================================================
.proc cmd_select_all
lda selected_icon_count
beq L566A
jsr clear_selection
L566A: ldx active_window_id
beq L5676
dex
lda win_buf_table,x
bpl L5676
rts
L5676: lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda cached_window_icon_count
bne L5687
jmp L56F0
L5687: ldx cached_window_icon_count
dex
L568B: lda cached_window_icon_list,x
sta selected_icon_list,x
dex
bpl L568B
lda cached_window_icon_count
sta selected_icon_count
lda active_window_id
sta selected_window_index
lda selected_window_index
sta LE22C
beq L56AB
jsr L56F9
L56AB: lda selected_icon_count
sta L56F8
dec L56F8
L56B4: ldx L56F8
lda selected_icon_list,x
sta LE22B
jsr icon_entry_lookup
stax $06
lda LE22C
beq L56CF
lda LE22B
jsr icon_window_to_screen
L56CF: DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, LE22B
lda LE22C
beq L56E3
lda LE22B
jsr icon_screen_to_window
L56E3: dec L56F8
bpl L56B4
lda selected_window_index
beq L56F0
jsr reset_grafport3
L56F0: lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
L56F8: .byte 0
.endproc
;;; ============================================================
.proc L56F9
sta getwinport_params2::window_id
jsr get_port2
jmp offset_grafport2_and_set
.endproc
;;; ============================================================
;;; Handle keyboard-based window activation
.proc cmd_activate
lda active_window_id
bne L5708
rts
L5708: sta L0800
ldy #$01
ldx #$00
L570F: lda LEC26,x
beq L5720
inx
cpx active_window_id
beq L5721
txa
dex
sta L0800,y
iny
L5720: inx
L5721: cpx #$08
bne L570F
sty L578D
cpy #$01
bne L572D
rts
L572D: lda #$00
sta L578C
L5732: jsr get_event
lda event_kind
cmp #MGTK::event_kind_key_down
beq L5743
cmp #MGTK::event_kind_button_down
bne L5732
jmp L578B
L5743: lda event_key
and #$7F
cmp #CHAR_RETURN
beq L578B
cmp #CHAR_ESCAPE
beq L578B
cmp #CHAR_LEFT
beq L5772
cmp #CHAR_RIGHT
bne L5732
ldx L578C
inx
cpx L578D
bne L5763
ldx #$00
L5763: stx L578C
lda L0800,x
sta findwindow_window_id
jsr handle_inactive_window_click
jmp L5732
L5772: ldx L578C
dex
bpl L577C
ldx L578D
dex
L577C: stx L578C
lda L0800,x
sta findwindow_window_id
jsr handle_inactive_window_click
jmp L5732
L578B: rts
L578C: .byte 0
L578D: .byte 0
.endproc
;;; ============================================================
;;; Initiate keyboard-based resizing
.proc cmd_resize
MGTK_RELAY_CALL MGTK::KeyboardMouse
jmp handle_resize_click
.endproc
;;; ============================================================
;;; Initiate keyboard-based window moving
.proc cmd_move
MGTK_RELAY_CALL MGTK::KeyboardMouse
jmp handle_title_click
.endproc
;;; ============================================================
;;; Keyboard-based scrolling of window contents
.proc cmd_scroll
jsr L5803
loop: jsr get_event
lda event_kind
cmp #MGTK::event_kind_button_down
beq done
cmp #MGTK::event_kind_key_down
bne loop
lda event_key
cmp #CHAR_RETURN
beq done
cmp #CHAR_ESCAPE
bne :+
done: lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
rts
;; Horizontal ok?
: bit L585D
bmi :+
jmp vertical
: cmp #CHAR_RIGHT
bne :+
jsr scroll_right
jmp loop
: cmp #CHAR_LEFT
bne vertical
jsr scroll_left
jmp loop
;; Vertical ok?
vertical:
bit L585E
bmi :+
jmp loop
: cmp #CHAR_DOWN
bne :+
jsr scroll_down
jmp loop
: cmp #CHAR_UP
bne loop
jsr scroll_up
jmp loop
.endproc
;;; ============================================================
.proc L5803
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
ldx active_window_id
dex
lda win_buf_table,x
sta L5B1B
jsr L58C3
stax L585F
sty L585D
jsr L58E2
stax L5861
sty L585E
rts
.endproc
;;; ============================================================
scroll_right: ; elevator right / contents left
ldax L585F
jsr L5863
sta L585F
rts
scroll_left: ; elevator left / contents right
lda L585F
jsr L587E
sta L585F
rts
scroll_down: ; elevator down / contents up
ldax L5861
jsr L5893
sta L5861
rts
scroll_up: ; elevator up / contents down
lda L5861
jsr L58AE
sta L5861
rts
L585D: .byte 0 ; can scroll horiz?
L585E: .byte 0 ; can scroll vert?
L585F: .word 0
L5861: .word 0
.proc L5863
stx L587D
cmp L587D
beq :+
sta updatethumb_stash
inc updatethumb_stash
lda #MGTK::ctl_horizontal_scroll_bar
sta updatethumb_which_ctl
jsr L5C54
lda updatethumb_stash
: rts
L587D: .byte 0
.endproc
.proc L587E
beq :+
sta updatethumb_stash
dec updatethumb_stash
lda #MGTK::ctl_horizontal_scroll_bar
sta updatethumb_which_ctl
jsr L5C54
lda updatethumb_stash
: rts
.byte 0
.endproc
.proc L5893
stx L58AD
cmp L58AD
beq :+
sta updatethumb_stash
inc updatethumb_stash
lda #MGTK::ctl_vertical_scroll_bar
sta updatethumb_which_ctl
jsr L5C54
lda updatethumb_stash
: rts
L58AD: .byte 0
.endproc
.proc L58AE
beq :+
sta updatethumb_stash
dec updatethumb_stash
lda #MGTK::ctl_vertical_scroll_bar
sta updatethumb_which_ctl
jsr L5C54
lda updatethumb_stash
: rts
.byte 0
.endproc
.proc L58C3
lda active_window_id
jsr window_lookup
stax $06
ldy #$06
lda ($06),y
tax
iny
lda ($06),y
pha
ldy #$04
lda ($06),y
and #$01
clc
ror a
ror a
tay
pla
rts
.endproc
.proc L58E2
lda active_window_id
jsr window_lookup
stax $06
ldy #$08
lda ($06),y
tax
iny
lda ($06),y
pha
ldy #$05
lda ($06),y
and #$01
clc
ror a
ror a
tay
pla
rts
.endproc
;;; ============================================================
.proc cmd_check_drives
lda #0
sta pending_alert
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr cmd_close_all
jsr clear_selection
ldx cached_window_icon_count
dex
L5916: lda cached_window_icon_list,x
cmp trash_icon_num
beq L5942
txa
pha
lda cached_window_icon_list,x
sta icon_param
lda #$00
sta cached_window_icon_list,x
DESKTOP_RELAY_CALL $04, icon_param
lda icon_param
jsr DESKTOP_FREE_ICON
dec cached_window_icon_count
dec LDD9E
pla
tax
L5942: dex
bpl L5916
ldy #$00
sty L599E
L594A: ldy L599E
inc cached_window_icon_count
inc LDD9E
lda #$00
sta devlst_copy,y
lda DEVLST,y
jsr get_device_info
cmp #$57
bne L5967
lda #$F9 ; "... 2 volumes with the same name..."
sta pending_alert
L5967: inc L599E
lda L599E
cmp DEVCNT
beq L594A
bcc L594A
ldx #$00
L5976: cpx cached_window_icon_count
bne L5986
lda pending_alert
beq L5983
jsr DESKTOP_SHOW_ALERT0
L5983: jmp DESKTOP_COPY_FROM_BUF
L5986: txa
pha
lda cached_window_icon_list,x
cmp trash_icon_num
beq L5998
jsr icon_entry_lookup
ldy #$01
jsr DESKTOP_RELAY
L5998: pla
tax
inx
jmp L5976
.endproc
;;; ============================================================
L599E: .byte 0
pending_alert:
.byte 0
L59A0: lda #$00
beq L59AA
L59A4: lda #$80
bne L59AA
L59A8: lda #$C0
.proc L59AA
sta L5AD0
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
bit L5AD0
bpl L59EA
bvc L59D2
lda L533F
ldy #$0F
L59C1: cmp devlst_copy,y
beq L59C9
dey
bpl L59C1
L59C9: sty L5AC6
sty menu_click_params::item_num
jmp L59F3
L59D2: ldy DEVCNT
lda L533F
L59D8: cmp DEVLST,y
beq L59E1
dey
bpl L59D8
iny
L59E1: sty L5AC6
sty menu_click_params::item_num
jmp L59F3
L59EA: lda menu_click_params::item_num
sec
sbc #$03
sta menu_click_params::item_num
L59F3: ldy menu_click_params::item_num
lda devlst_copy,y
bne L59FE
jmp L5A4C
L59FE: jsr icon_entry_lookup
addax #9, $06
ldy #$00
lda ($06),y
tay
L5A10: lda ($06),y
sta $1F00,y
dey
bpl L5A10
dec $1F00
lda #$2F
sta $1F01
ldax #$1F00
ldy $1F00
jsr L6FB7
lda L704B
beq L5A4C
L5A2F: ldx L704B
beq L5A4C
dex
lda L704C,x
cmp active_window_id
beq L5A43
sta findwindow_window_id
jsr handle_inactive_window_click
L5A43: jsr close_window
dec L704B
jmp L5A2F
L5A4C: jsr redraw_windows_and_desktop
jsr clear_selection
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda menu_click_params::item_num
tay
pha
lda devlst_copy,y
sta icon_param
beq L5A7F
jsr remove_icon_from_window
dec LDD9E
lda icon_param
jsr DESKTOP_FREE_ICON
jsr reset_grafport3
DESKTOP_RELAY_CALL $04, icon_param
L5A7F: lda cached_window_icon_count
sta L5AC6
inc cached_window_icon_count
inc LDD9E
pla
tay
lda DEVLST,y
jsr get_device_info
bit L5AD0
bmi L5AA9
and #$FF
beq L5AA9
cmp #$2F
beq L5AA9
pha
jsr DESKTOP_COPY_FROM_BUF
pla
jsr DESKTOP_SHOW_ALERT0
rts
L5AA9: lda cached_window_icon_count
cmp L5AC6
beq L5AC0
ldx cached_window_icon_count
dex
lda cached_window_icon_list,x
jsr icon_entry_lookup
ldy #$01
jsr DESKTOP_RELAY
L5AC0: jsr DESKTOP_COPY_FROM_BUF
jmp redraw_windows_and_desktop
L5AC6: .res 10, 0
L5AD0: .byte 0
.endproc
;;; ============================================================
.proc cmd_startup_item
ldx menu_click_params::item_num
dex
txa
asl a
asl a
asl a
clc
adc #6
tax
lda startup_menu_item_1,x
sec
sbc #$30
clc
adc #>$C000 ; compute $Cn00
sta reset_and_invoke_target+1
lda #<$0000
sta reset_and_invoke_target
;; fall through
.endproc
;; also invoked by launcher code
.proc reset_and_invoke
sta ALTZPOFF
lda ROMIN2
jsr SETVID
jsr SETKBD
jsr INIT
jsr HOME
sta TXTSET
sta LOWSCR
sta LORES
sta MIXCLR
sta DHIRESOFF
sta CLRALTCHAR
sta CLR80VID
sta CLR80COL
;; also used by launcher code
target := *+1
jmp dummy0000 ; self-modified
.endproc
reset_and_invoke_target := reset_and_invoke::target
;;; ============================================================
L5B1B: .byte 0
.proc handle_client_click
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
ldx active_window_id
dex
lda win_buf_table,x
sta L5B1B
;; Restore event coords (following detect_double_click)
ldx #3
: lda saved_event_coords,x
sta event_coords,x
dex
bpl :-
MGTK_RELAY_CALL MGTK::FindControl, event_coords
lda findcontrol_which_ctl
bne :+
jmp handle_content_click ; 0 = ctl_not_a_control
: bit double_click_flag
bmi :+
jmp done_client_click ; ignore double click
: cmp #MGTK::ctl_dead_zone
bne :+
rts
: cmp #MGTK::ctl_vertical_scroll_bar
bne horiz
;; Vertical scrollbar
lda active_window_id
jsr window_lookup
stax $06
ldy #$05
lda ($06),y
and #$01
bne :+
jmp done_client_click
: jsr L5803
lda findcontrol_which_part
cmp #MGTK::part_thumb
bne :+
jsr do_track_thumb
jmp done_client_click
: cmp #MGTK::part_up_arrow
bne :+
up: jsr scroll_up
lda #MGTK::part_up_arrow
jsr check_control_repeat
bpl up
jmp done_client_click
: cmp #MGTK::part_down_arrow
bne :+
down: jsr scroll_down
lda #MGTK::part_down_arrow
jsr check_control_repeat
bpl down
jmp done_client_click
: cmp #MGTK::part_page_down
beq pgdn
pgup: jsr L638C
lda #MGTK::part_page_up
jsr check_control_repeat
bpl pgup
jmp done_client_click
pgdn: jsr L63EC
lda #MGTK::part_page_down
jsr check_control_repeat
bpl pgdn
jmp done_client_click
;; Horizontal scrollbar
horiz: lda active_window_id
jsr window_lookup
stax $06
ldy #$04
lda ($06),y
and #$01
bne :+
jmp done_client_click
: jsr L5803
lda findcontrol_which_part
cmp #MGTK::part_thumb
bne :+
jsr do_track_thumb
jmp done_client_click
: cmp #MGTK::part_left_arrow
bne :+
left: jsr scroll_left
lda #MGTK::part_left_arrow
jsr check_control_repeat
bpl left
jmp done_client_click
: cmp #MGTK::part_right_arrow
bne :+
rght: jsr scroll_right
lda #MGTK::part_right_arrow
jsr check_control_repeat
bpl rght
jmp done_client_click
: cmp #MGTK::part_page_right
beq pgrt
pglt: jsr L6451
lda #MGTK::part_page_left
jsr check_control_repeat
bpl pglt
jmp done_client_click
pgrt: jsr L64B0
lda #MGTK::part_page_right
jsr check_control_repeat
bpl pgrt
jmp done_client_click
done_client_click:
jsr DESKTOP_COPY_FROM_BUF
lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
.endproc
;;; ============================================================
.proc do_track_thumb
lda findcontrol_which_ctl
sta trackthumb_which_ctl
MGTK_RELAY_CALL MGTK::TrackThumb, trackthumb_params
lda trackthumb_thumbmoved
bne :+
rts
: jsr L5C54
jsr DESKTOP_COPY_FROM_BUF
lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
.endproc
;;; ============================================================
.proc L5C54
lda updatethumb_stash
sta updatethumb_thumbpos
MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
jsr L6523
jsr L84D1
bit L5B1B
bmi :+
jsr cached_icons_screen_to_window
: lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
MGTK_RELAY_CALL MGTK::PaintRect, grafport2::cliprect
jsr reset_grafport3
jmp L6C19
.endproc
;;; ============================================================
;;; Handle mouse held down on scroll arrow/pager
.proc check_control_repeat
sta ctl
jsr peek_event
lda event_kind
cmp #MGTK::event_kind_drag
beq :+
bail: return #$FF ; high bit set = not repeating
: MGTK_RELAY_CALL MGTK::FindControl, event_coords
lda findcontrol_which_ctl
beq bail
cmp #MGTK::ctl_dead_zone
beq bail
lda findcontrol_which_part
cmp ctl
bne bail
return #0 ; high bit set = repeating
ctl: .byte 0
.endproc
;;; ============================================================
.proc handle_content_click
bit L5B1B
bpl :+
jmp clear_selection
: lda active_window_id
sta findicon_window_id
DESKTOP_RELAY_CALL DT_FIND_ICON, findicon_params
lda findicon_which_icon
bne L5CDA
jsr L5F13
jmp L5DEC
.endproc
;;; ============================================================
L5CD9: .byte 0
.proc L5CDA
sta L5CD9
ldx selected_icon_count
beq L5CFB
dex
lda L5CD9
L5CE6: cmp selected_icon_list,x
beq L5CF0
dex
bpl L5CE6
bmi L5CFB
L5CF0: bit double_click_flag
bmi L5CF8
jmp L5DFC
L5CF8: jmp L5D55
L5CFB: bit BUTN0
bpl L5D08
lda selected_window_index
cmp active_window_id
beq L5D0B
L5D08: jsr clear_selection
L5D0B: ldx selected_icon_count
lda L5CD9
sta selected_icon_list,x
inc selected_icon_count
lda active_window_id
sta selected_window_index
lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
lda L5CD9
sta icon_param
jsr icon_window_to_screen
jsr offset_grafport2_and_set
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
lda L5CD9
jsr icon_screen_to_window
jsr reset_grafport3
bit double_click_flag
bmi L5D55
jmp L5DFC
L5D55: lda L5CD9
sta LEBFC
DESKTOP_RELAY_CALL $0A, LEBFC
tax
lda LEBFC
beq L5DA6
jsr L8F00
cmp #$FF
bne L5D77
jsr L5DEC
jmp redraw_windows_and_desktop
L5D77: lda LEBFC
cmp trash_icon_num
bne L5D8E
lda active_window_id
jsr L6F0D
lda active_window_id
jsr L5E78
jmp redraw_windows_and_desktop
L5D8E: lda LEBFC
bmi L5D99
jsr L6A3F
jmp redraw_windows_and_desktop
L5D99: and #$7F
pha
jsr L6F0D
pla
jsr L5E78
jmp redraw_windows_and_desktop
L5DA6: cpx #$02
bne L5DAD
jmp L5DEC
L5DAD: cpx #$FF
beq L5DF7
lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr cached_icons_window_to_screen
jsr offset_grafport2_and_set
ldx selected_icon_count
dex
L5DC4: txa
pha
lda selected_icon_list,x
sta LE22E
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, LE22E
pla
tax
dex
bpl L5DC4
lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr update_scrollbars
jsr cached_icons_screen_to_window
jsr reset_grafport3
L5DEC: jsr DESKTOP_COPY_FROM_BUF
lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
L5DF7: ldx LE256
txs
rts
L5DFC: lda L5CD9 ; after a double-click (on file or folder)
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_type_mask
cmp #icon_entry_type_sys
beq L5E28
cmp #icon_entry_type_bin
beq L5E28
cmp #icon_entry_type_bas
beq L5E28
cmp #icon_entry_type_dir
bne L5E27
lda L5CD9 ; handle directory
jsr L6A8A
bmi L5E27
jmp L5DEC
L5E27: rts
L5E28: sta L5E77
lda active_window_id
jsr window_address_lookup
stax $06
ldy #$00
lda ($06),y
tay
L5E3A: lda ($06),y
sta LD355,y
dey
bpl L5E3A
lda L5CD9
jsr icon_entry_lookup
stax $06
ldy #$09
lda ($06),y
tax
clc
adc #$09
tay
dex
dey
L5E57: lda ($06),y
sta LD343+1,x
dey
dex
bne L5E57
ldy #$09
lda ($06),y
tax
dex
dex
stx buf_filename2
lda L5E77
cmp #$20
bcc L5E74
lda L5E77
L5E74: jmp launch_file ; when double-clicked
.endproc
L5DEC := L5CDA::L5DEC
;;; ============================================================
L5E77: .byte 0
.proc L5E78
sta L5F0A
jsr redraw_windows_and_desktop
jsr clear_selection
lda L5F0A
cmp active_window_id
beq L5E8F
sta findwindow_window_id
jsr handle_inactive_window_click
L5E8F: lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr set_penmode_copy
MGTK_RELAY_CALL MGTK::PaintRect, grafport2::cliprect
ldx active_window_id
dex
lda LEC26,x
pha
jsr L7345
lda L5F0A
tax
dex
lda win_buf_table,x
bmi :+
jsr close_active_window
: lda active_window_id
jsr window_address_lookup
stax $06
ldy #$00
lda ($06),y
tay
L5ECB: lda ($06),y
sta LE1B0,y
dey
bpl L5ECB
pla
jsr L7054
jsr cmd_view_by_icon::L5106
jsr DESKTOP_COPY_FROM_BUF
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda active_window_id
sta getwinport_params2::window_id
jsr get_port2
jsr draw_window_header
lda #$00
ldx active_window_id
sta win_buf_table-1,x
lda #$01
sta menu_click_params::item_num
jsr update_view_menu_check
lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
L5F0A: .byte 0
.endproc
;;; ============================================================
.proc L5F13_impl
L5F0B: .byte 0
.byte 0
.byte 0
.byte 0
L5F0F: .byte 0
.byte 0
.byte 0
.byte 0
start: copy16 #notpenXOR, $06
jsr L60D5
ldx #$03
L5F20: lda event_coords,x
sta L5F0B,x
sta L5F0F,x
dex
bpl L5F20
jsr peek_event
lda event_kind
cmp #MGTK::event_kind_drag
beq L5F3F
bit BUTN0
bmi L5F3E
jsr clear_selection
L5F3E: rts
L5F3F: jsr clear_selection
lda active_window_id
sta getwinport_params2::window_id
jsr get_port2
jsr offset_grafport2_and_set
ldx #$03
L5F50: lda L5F0B,x
sta rect_E230::x1,x
lda L5F0F,x
sta rect_E230::x2,x
dex
bpl L5F50
jsr set_penmode_xor
MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
L5F6B: jsr peek_event
lda event_kind
cmp #MGTK::event_kind_drag
beq L5FC5
MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
ldx #$00
L5F80: cpx cached_window_icon_count
bne L5F88
jmp reset_grafport3
L5F88: txa
pha
lda cached_window_icon_list,x
sta icon_param
jsr icon_window_to_screen
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
beq L5FB9
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
ldx selected_icon_count
inc selected_icon_count
lda icon_param
sta selected_icon_list,x
lda active_window_id
sta selected_window_index
L5FB9: lda icon_param
jsr icon_screen_to_window
pla
tax
inx
jmp L5F80
L5FC5: jsr L60D5
sub16 event_xcoord, L60CF, L60CB
sub16 event_ycoord, L60D1, L60CD
lda L60CC
bpl L5FFE
lda L60CB
eor #$FF
sta L60CB
inc L60CB
L5FFE: lda L60CE
bpl L600E
lda L60CD
eor #$FF
sta L60CD
inc L60CD
L600E: lda L60CB
cmp #$05
bcs L601F
lda L60CD
cmp #$05
bcs L601F
jmp L5F6B
L601F: MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
ldx #$03
L602A: lda event_coords,x
sta L60CF,x
dex
bpl L602A
cmp16 event_xcoord, rect_E230::x2
bpl L6068
cmp16 event_xcoord, rect_E230::x1
bmi L6054
bit L60D3
bpl L6068
L6054: copy16 event_xcoord, rect_E230::x1
lda #$80
sta L60D3
jmp L6079
L6068: copy16 event_xcoord, rect_E230::x2
lda #$00
sta L60D3
L6079: cmp16 event_ycoord, rect_E230::y2
bpl L60AE
cmp16 event_ycoord, rect_E230::y1
bmi L609A
bit L60D4
bpl L60AE
L609A: copy16 event_ycoord, rect_E230::y1
lda #$80
sta L60D4
jmp L60BF
L60AE: copy16 event_ycoord, rect_E230::y2
lda #$00
sta L60D4
L60BF: MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
jmp L5F6B
L60CB: .byte 0
L60CC: .byte 0
L60CD: .byte 0
L60CE: .byte 0
L60CF: .word 0
L60D1: .word 0
L60D3: .byte 0
L60D4: .byte 0
L60D5: jsr push_zp_addrs
jmp icon_ptr_window_to_screen
.endproc
L5F13 := L5F13_impl::start
;;; ============================================================
.proc handle_title_click
jmp L60DE
L60DE: lda active_window_id
sta event_params
MGTK_RELAY_CALL MGTK::FrontWindow, active_window_id
lda active_window_id
jsr copy_window_portbits
MGTK_RELAY_CALL MGTK::DragWindow, event_params
lda active_window_id
jsr window_lookup
stax $06
ldy #$16
lda ($06),y
cmp #$19
bcs L6112
lda #$19
sta ($06),y
L6112: ldy #$14
lda ($06),y
sec
sbc port_copy+MGTK::grafport_offset_viewloc_xcoord
sta L6197
iny
lda ($06),y
sbc port_copy+MGTK::grafport_offset_viewloc_xcoord+1
sta L6197+1
iny
lda ($06),y
sec
sbc port_copy+MGTK::grafport_offset_viewloc_ycoord
sta L6199
iny
lda ($06),y
sbc port_copy+MGTK::grafport_offset_viewloc_ycoord+1
sta L6199+1
ldx active_window_id
dex
lda win_buf_table,x
beq L6143
rts
L6143: lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
ldx #$00
L614E: cpx cached_window_icon_count
bne L6161
jsr DESKTOP_COPY_FROM_BUF
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jmp L6196
L6161: txa
pha
lda cached_window_icon_list,x
jsr icon_entry_lookup
stax $06
ldy #$03
lda ($06),y
clc
adc L6197
sta ($06),y
iny
lda ($06),y
adc L6198
sta ($06),y
iny
lda ($06),y
clc
adc L6199
sta ($06),y
iny
lda ($06),y
adc L619A
sta ($06),y
pla
tax
inx
jmp L614E
L6196: rts
L6197: .byte 0
L6198: .byte 0
L6199: .byte 0
L619A: .byte 0
.endproc
;;; ============================================================
.proc handle_resize_click
lda active_window_id
sta event_params
MGTK_RELAY_CALL MGTK::GrowWindow, event_params
jsr redraw_windows_and_desktop
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr cached_icons_window_to_screen
jsr update_scrollbars
jsr cached_icons_screen_to_window
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jmp reset_grafport3
.endproc
;;; ============================================================
handle_close_click:
lda active_window_id
MGTK_RELAY_CALL MGTK::TrackGoAway, trackgoaway_params
lda trackgoaway_params::goaway
bne close_window
rts
.proc close_window
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr clear_selection
ldx active_window_id
dex
lda win_buf_table,x
bmi L6215
lda LDD9E
sec
sbc cached_window_icon_count
sta LDD9E
DESKTOP_RELAY_CALL DT_CLOSE_WINDOW, active_window_id
ldx #$00
L6206: cpx cached_window_icon_count
beq L6215
lda cached_window_icon_list,x
jsr DESKTOP_FREE_ICON
inx
jmp L6206
L6215: dec LEC2E
ldx #$00
txa
L621B: sta cached_window_icon_list,x
cpx cached_window_icon_count
beq L6227
inx
jmp L621B
L6227: sta cached_window_icon_count
jsr DESKTOP_COPY_FROM_BUF
MGTK_RELAY_CALL MGTK::CloseWindow, active_window_id
ldx active_window_id
dex
lda LEC26,x
sta icon_param
jsr icon_entry_lookup
stax $06
ldy #$01
lda ($06),y
and #$0F
beq L6276
ldy #icon_entry_offset_win_type
lda ($06),y
and #(~icon_entry_open_mask)&$FF ; clear open_flag
sta ($06),y
and #$0F
sta selected_window_index
jsr zero_grafport5_coords
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
jsr reset_grafport3
lda #$01
sta selected_icon_count
lda icon_param
sta selected_icon_list
L6276: ldx active_window_id
dex
lda LEC26,x
jsr L7345
ldx active_window_id
dex
lda LEC26,x
inx
jsr L8B5C
ldx active_window_id
dex
lda #$00
sta LEC26,x
sta win_buf_table,x
MGTK_RELAY_CALL MGTK::FrontWindow, active_window_id
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda #MGTK::checkitem_uncheck
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
jsr L66A2
jmp redraw_windows_and_desktop
.endproc
;;; ============================================================
.proc L62BC
cmp #$01
bcc L62C2
bne L62C5
L62C2: return #0
L62C5: sta L638B
stx L6386
sty L638A
cmp L6386
bcc L62D5
tya
rts
L62D5: lda #$00
sta L6385
sta L6389
clc
ror L6386
ror L6385
clc
ror L638A
ror L6389
lda #$00
sta L6383
sta L6387
sta L6384
sta L6388
L62F9: lda L6384
cmp L638B
beq L630F
bcc L6309
jsr L6319
jmp L62F9
L6309: jsr L634E
jmp L62F9
L630F: lda L6388
cmp #$01
bcs L6318
lda #$01
L6318: rts
L6319: sub16 L6383, L6385, L6383
sub16 L6387, L6389, L6387
clc
ror L6386
ror L6385
clc
ror L638A
ror L6389
rts
L634E: add16 L6383, L6385, L6383
add16 L6387, L6389, L6387
clc
ror L6386
ror L6385
clc
ror L638A
ror L6389
rts
L6383: .byte 0
L6384: .byte 0
L6385: .byte 0
L6386: .byte 0
L6387: .byte 0
L6388: .byte 0
L6389: .byte 0
L638A: .byte 0
L638B: .byte 0
.endproc
;;; ============================================================
.proc L638C
jsr L650F
sty L63E9
jsr L644C
sta L63E8
sub16_8 grafport2::cliprect::y1, L63E8, L63EA
cmp16 L63EA, L7B61
bmi L63C1
ldax L63EA
jmp L63C7
L63C1: ldax L7B61
L63C7: stax grafport2::cliprect::y1
add16_8 grafport2::cliprect::y1, L63E9, grafport2::cliprect::y2
jsr assign_active_window_cliprect
jsr update_scrollbars
jmp L6556
L63E8: .byte 0
L63E9: .byte 0
L63EA: .word 0
.endproc
;;; ============================================================
.proc L63EC
jsr L650F
sty L6449
jsr L644C
sta L6448
add16_8 grafport2::cliprect::y2, L6448, L644A
cmp16 L644A, L7B65
bpl L6421
ldax L644A
jmp L6427
L6421: ldax L7B65
L6427: stax grafport2::cliprect::y2
sub16_8 grafport2::cliprect::y2, L6449, grafport2::cliprect::y1
jsr assign_active_window_cliprect
jsr update_scrollbars
jmp L6556
L6448: .byte 0
L6449: .byte 0
L644A: .word 0
.endproc
;;; ============================================================
.proc L644C
tya
sec
sbc #$0E
rts
.endproc
;;; ============================================================
.proc L6451
jsr L650F
stax L64AC
sub16 grafport2::cliprect::x1, L64AC, L64AE
cmp16 L64AE, L7B5F
bmi L6484
ldax L64AE
jmp L648A
L6484: ldax L7B5F
L648A: stax grafport2::cliprect::x1
add16 grafport2::cliprect::x1, L64AC, grafport2::cliprect::x2
jsr assign_active_window_cliprect
jsr update_scrollbars
jmp L6556
L64AC: .word 0
L64AE: .word 0
.endproc
;;; ============================================================
.proc L64B0
jsr L650F
stax L650B
add16 grafport2::cliprect::x2, L650B, L650D
cmp16 L650D, L7B63
bpl L64E3
ldax L650D
jmp L64E9
L64E3: ldax L7B63
L64E9: stax grafport2::cliprect::x2
sub16 grafport2::cliprect::x2, L650B, grafport2::cliprect::x1
jsr assign_active_window_cliprect
jsr update_scrollbars
jmp L6556
L650B: .word 0
L650D: .word 0
.endproc
.proc L650F
bit L5B1B
bmi :+
jsr cached_icons_window_to_screen
: jsr L6523
jsr L7B6B
lda active_window_id
jmp L7D5D
.endproc
.proc L6523
lda active_window_id
jsr window_lookup
addax #$14, $06
ldy #$25
: lda ($06),y
sta grafport2,y
dey
bpl :-
rts
.endproc
.proc assign_active_window_cliprect
ptr := $6
lda active_window_id
jsr window_lookup
stax ptr
ldy #MGTK::winfo_offset_port + MGTK::grafport_offset_maprect + 7
ldx #7
: lda grafport2::cliprect,x
sta (ptr),y
dey
dex
bpl :-
rts
.endproc
.proc L6556
bit L5B1B
bmi :+
jsr cached_icons_screen_to_window
: MGTK_RELAY_CALL MGTK::PaintRect, grafport2::cliprect
jsr reset_grafport3
jmp L6C19
.endproc
;;; ============================================================
.proc update_hthumb
lda active_window_id
jsr L7D5D
stax L6600
lda active_window_id
jsr window_lookup
stax $06
ldy #$06
lda ($06),y
tay
sub16 L7B63, L7B5F, L6602
sub16 L6602, L6600, L6602
lsr16 L6602
ldx L6602
sub16 grafport2::cliprect::x1, L7B5F, L6602
bpl L65D0
lda #$00
beq L65EB
L65D0: cmp16 grafport2::cliprect::x2, L7B63
bmi L65E2
tya
jmp L65EE
L65E2: lsr16 L6602
lda L6602
L65EB: jsr L62BC
L65EE: sta event_params+1
lda #$02
sta event_params
MGTK_RELAY_CALL MGTK::UpdateThumb, event_params
rts
L6600: .word 0
L6602: .byte 0
L6603: .byte 0
.endproc
;;; ============================================================
.proc update_vthumb
lda active_window_id
jsr L7D5D
sty L669F
lda active_window_id
jsr window_lookup
stax $06
ldy #$08
lda ($06),y
tay
sub16 L7B65, L7B61, L66A0
sub16_8 L66A0, L669F, L66A0
lsr16 L66A0
lsr16 L66A0
ldx L66A0
sub16 grafport2::cliprect::y1, L7B61, L66A0
bpl L6669
lda #$00
beq L668A
L6669: cmp16 grafport2::cliprect::y2, L7B65
bmi L667B
tya
jmp L668D
L667B: lsr16 L66A0
lsr16 L66A0
lda L66A0
L668A: jsr L62BC
L668D: sta event_params+1
lda #$01
sta event_params
MGTK_RELAY_CALL MGTK::UpdateThumb, event_params
rts
L669F: .byte 0
L66A0: .byte 0
L66A1: .byte 0
.endproc
;;; ============================================================
.proc L66A2
ldx active_window_id
beq disable_menu_items
jmp check_menu_items
disable_menu_items:
lda #MGTK::disablemenu_disable
sta disablemenu_params::disable
MGTK_RELAY_CALL MGTK::DisableMenu, disablemenu_params
lda #MGTK::disableitem_disable
sta disableitem_params::disable
lda #menu_id_file
sta disableitem_params::menu_id
lda #desktop_aux::menu_item_id_new_folder
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
lda #desktop_aux::menu_item_id_close
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
lda #desktop_aux::menu_item_id_close_all
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
lda #0
sta menu_dispatch_flag
rts
;; Is this residue of a Windows menu???
check_menu_items:
dex
lda win_buf_table,x
and #$0F
tax
inx
stx checkitem_params::menu_item
lda #MGTK::checkitem_check
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
rts
.endproc
;;; ============================================================
;;; Disable menu items for operating on a selected file
.proc disable_file_menu_items
lda #MGTK::disableitem_disable
sta disableitem_params::disable
lda #menu_id_file
sta disableitem_params::menu_id
lda #desktop_aux::menu_item_id_open
jsr disable_menu_item
lda #menu_id_special
sta disableitem_params::menu_id
lda #desktop_aux::menu_item_id_lock
jsr disable_menu_item
lda #desktop_aux::menu_item_id_unlock
jsr disable_menu_item
lda #desktop_aux::menu_item_id_get_info
jsr disable_menu_item
lda #desktop_aux::menu_item_id_get_size
jsr disable_menu_item
lda #desktop_aux::menu_item_id_rename_icon
jsr disable_menu_item
rts
disable_menu_item:
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
rts
.endproc
;;; ============================================================
.proc enable_file_menu_items
lda #MGTK::disableitem_enable
sta disableitem_params::disable
lda #menu_id_file
sta disableitem_params::menu_id
lda #desktop_aux::menu_item_id_open
jsr enable_menu_item
lda #menu_id_special
sta disableitem_params::menu_id
lda #desktop_aux::menu_item_id_lock
jsr enable_menu_item
lda #desktop_aux::menu_item_id_unlock
jsr enable_menu_item
lda #desktop_aux::menu_item_id_get_info
jsr enable_menu_item
lda #desktop_aux::menu_item_id_get_size
jsr enable_menu_item
lda #desktop_aux::menu_item_id_rename_icon
jsr enable_menu_item
rts
enable_menu_item:
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
rts
.endproc
;;; ============================================================
.proc toggle_eject_menu_item
enable:
lda #MGTK::disableitem_enable
sta disableitem_params::disable
jmp :+
disable:
lda #MGTK::disableitem_disable
sta disableitem_params::disable
: lda #menu_id_file
sta disableitem_params::menu_id
lda #11 ; > Eject
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
rts
.endproc
enable_eject_menu_item := toggle_eject_menu_item::enable
disable_eject_menu_item := toggle_eject_menu_item::disable
;;; ============================================================
.proc toggle_selector_menu_items
disable:
lda #MGTK::disableitem_disable
sta disableitem_params::disable
jmp :+
enable:
lda #MGTK::disableitem_enable
sta disableitem_params::disable
: lda #menu_id_selector
sta disableitem_params::menu_id
lda #2 ; > Edit
jsr configure_menu_item
lda #3 ; > Delete
jsr configure_menu_item
lda #4 ; > Run
jsr configure_menu_item
lda #$80
sta LD343+1
rts
configure_menu_item:
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
rts
.endproc
enable_selector_menu_items := toggle_selector_menu_items::enable
disable_selector_menu_items := toggle_selector_menu_items::disable
;;; ============================================================
.proc L67D7
lda selected_icon_count
bne L67DF
jmp L681B
L67DF: tax
dex
lda findicon_which_icon
L67E4: cmp selected_icon_list,x
beq L67EE
dex
bpl L67E4
bmi L67F6
L67EE: bit double_click_flag
bmi L6834
jmp L6880
L67F6: bit BUTN0
bpl L6818
lda selected_window_index
bne L6818
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, findicon_which_icon
ldx selected_icon_count
lda findicon_which_icon
sta selected_icon_list,x
inc selected_icon_count
jmp L6834
L6818: jsr clear_selection
L681B: DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, findicon_which_icon
lda #1
sta selected_icon_count
lda findicon_which_icon
sta selected_icon_list
lda #0
sta selected_window_index
L6834: bit double_click_flag
bpl L6880
lda findicon_which_icon
sta LEBFC
DESKTOP_RELAY_CALL $0A, LEBFC
tax
lda LEBFC
beq L6878
jsr L8F00
cmp #$FF
bne L6858
jmp redraw_windows_and_desktop
L6858: lda LEBFC
cmp trash_icon_num
bne L6863
jmp redraw_windows_and_desktop
L6863: lda LEBFC
bpl L6872
and #$7F
pha
jsr L6F0D
pla
jmp L5E78
L6872: jsr L6A3F
jmp redraw_windows_and_desktop
L6878: txa
cmp #2
bne L688F
jmp redraw_windows_and_desktop
L6880: lda findicon_which_icon
cmp trash_icon_num
beq L688E
jsr L6A8A
jsr DESKTOP_COPY_FROM_BUF
L688E: rts
L688F: ldx selected_icon_count
dex
L6893: txa
pha
lda selected_icon_list,x
sta LE22D
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, LE22D
pla
tax
dex
bpl L6893
rts
.endproc
;;; ============================================================
.proc L68AA
jsr reset_grafport3
bit BUTN0
bpl L68B3
rts
L68B3: jsr clear_selection
ldx #3
L68B8: lda event_coords,x
sta rect_E230::x1,x
sta rect_E230::x2,x
dex
bpl L68B8
jsr peek_event
lda event_kind
cmp #MGTK::event_kind_drag
beq L68CF
rts
L68CF: MGTK_RELAY_CALL MGTK::SetPattern, checkerboard_pattern3
jsr set_penmode_xor
MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
L68E4: jsr peek_event
lda event_kind
cmp #MGTK::event_kind_drag
beq L6932
MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
ldx #0
L68F9: cpx cached_window_icon_count
bne :+
lda #0
sta selected_window_index
rts
: txa
pha
lda cached_window_icon_list,x
sta icon_param
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
beq L692C
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
ldx selected_icon_count
inc selected_icon_count
lda icon_param
sta selected_icon_list,x
L692C: pla
tax
inx
jmp L68F9
L6932: sub16 event_xcoord, L6A39, L6A35
sub16 event_ycoord, L6A3B, L6A37
lda L6A36
bpl L6968
lda L6A35
eor #$FF
sta L6A35
inc L6A35
L6968: lda L6A38
bpl L6978
lda L6A37
eor #$FF
sta L6A37
inc L6A37
L6978: lda L6A35
cmp #$05
bcs L6989
lda L6A37
cmp #$05
bcs L6989
jmp L68E4
L6989: MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
ldx #$03
L6994: lda event_coords,x
sta L6A39,x
dex
bpl L6994
cmp16 event_xcoord, rect_E230::x2
bpl L69D2
cmp16 event_xcoord, rect_E230::x1
bmi L69BE
bit L6A3D
bpl L69D2
L69BE: copy16 event_xcoord, rect_E230::x1
lda #$80
sta L6A3D
jmp L69E3
L69D2: copy16 event_xcoord, rect_E230::x2
lda #$00
sta L6A3D
L69E3: cmp16 event_ycoord, rect_E230::y2
bpl L6A18
cmp16 event_ycoord, rect_E230::y1
bmi L6A04
bit L6A3E
bpl L6A18
L6A04: copy16 event_ycoord, rect_E230::y1
lda #$80
sta L6A3E
jmp L6A29
L6A18: copy16 event_ycoord, rect_E230::y2
lda #$00
sta L6A3E
L6A29: MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
jmp L68E4
L6A35: .byte 0
L6A36: .byte 0
L6A37: .byte 0
L6A38: .byte 0
L6A39: .word 0
L6A3B: .word 0
L6A3D: .byte 0
L6A3E: .byte 0
.endproc
;;; ============================================================
.proc L6A3F
ptr := $6
ldx #7
: cmp LEC26,x
beq L6A80
dex
bpl :-
jsr icon_entry_lookup
addax #icon_entry_offset_len, ptr
ldy #0
lda (ptr),y
tay
dey
L6A5C: lda (ptr),y
sta $220,y
dey
bpl L6A5C
dec $220
lda #'/'
sta $0221
ldax #$220
ldy $220
jsr L6FB7
ldax #$220
ldy $220
jmp L6F4B
L6A80: inx
txa
pha
jsr L6F0D
pla
jmp L5E78
.endproc
;;; ============================================================
.proc L6A8A
sta icon_params2
jsr DESKTOP_COPY_FROM_BUF
lda icon_params2
ldx #$07
L6A95: cmp LEC26,x
beq L6AA0
dex
bpl L6A95
jmp L6B1E
L6AA0: inx
cpx active_window_id
bne L6AA7
rts
L6AA7: stx cached_window_id
jsr DESKTOP_COPY_TO_BUF
lda icon_params2
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
ora #icon_entry_open_mask ; set open_flag
sta ($06),y
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
sta getwinport_params2::window_id
beq L6AD8
cmp active_window_id
bne L6AEF
jsr get_set_port2
lda icon_params2
jsr icon_window_to_screen
L6AD8: DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, icon_params2
lda getwinport_params2::window_id
beq L6AEF
lda icon_params2
jsr icon_screen_to_window
jsr reset_grafport3
L6AEF: lda icon_params2
ldx LE1F1
dex
L6AF6: cmp LE1F1+1,x
beq L6B01
dex
bpl L6AF6
jsr L7054
L6B01: MGTK_RELAY_CALL MGTK::SelectWindow, cached_window_id
lda cached_window_id
sta active_window_id
jsr L6C19
jsr redraw_windows
lda #$00
sta cached_window_id
jmp DESKTOP_COPY_TO_BUF
L6B1E: lda LEC2E
cmp #$08
bcc L6B2F
lda #warning_msg_too_many_windows
jsr show_warning_dialog_num
ldx LE256
txs
rts
L6B2F: ldx #$00
L6B31: lda LEC26,x
beq L6B3A
inx
jmp L6B31
L6B3A: lda icon_params2
sta LEC26,x
inx
stx cached_window_id
jsr DESKTOP_COPY_TO_BUF
inc LEC2E
ldx cached_window_id
dex
lda #$00
sta win_buf_table,x
lda LEC2E
cmp #$02
bcs L6B60
jsr enable_various_file_menu_items
jmp L6B68
L6B60: lda #$00
sta checkitem_params::check
jsr check_item
L6B68: lda #$01
sta checkitem_params::menu_item
sta checkitem_params::check
jsr check_item
lda icon_params2
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
ora #icon_entry_open_mask ; set open_flag
sta ($06),y
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
sta getwinport_params2::window_id
beq L6BA1
cmp active_window_id
bne L6BB8
jsr get_set_port2
jsr offset_grafport2_and_set
lda icon_params2
jsr icon_window_to_screen
L6BA1: DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, icon_params2
lda getwinport_params2::window_id
beq L6BB8
lda icon_params2
jsr icon_screen_to_window
jsr reset_grafport3
L6BB8: jsr L744B
lda cached_window_id
jsr window_lookup
ldy #$38
jsr MGTK_RELAY
lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr draw_window_header
jsr cached_icons_window_to_screen
lda #$00
sta L6C0E
L6BDA: lda L6C0E
cmp cached_window_icon_count
beq L6BF4
tax
lda cached_window_icon_list,x
jsr icon_entry_lookup
ldy #$01
jsr DESKTOP_RELAY
inc L6C0E
jmp L6BDA
L6BF4: lda cached_window_id
sta active_window_id
jsr update_scrollbars
jsr cached_icons_screen_to_window
jsr DESKTOP_COPY_FROM_BUF
lda #$00
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jmp reset_grafport3
L6C0E: .byte 0
.endproc
;;; ============================================================
.proc check_item
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
rts
.endproc
;;; ============================================================
.proc L6C19
ldx cached_window_id
dex
lda win_buf_table,x
bmi L6C25
jmp L6CCD
L6C25: jsr push_zp_addrs
lda cached_window_id
sta getwinport_params2::window_id
jsr get_set_port2
bit L4152
bmi L6C39
jsr draw_window_header
L6C39: lda cached_window_id
sta getwinport_params2::window_id
jsr get_port2
bit L4152
bmi L6C4A
jsr offset_grafport2_and_set
L6C4A: ldx cached_window_id
dex
lda LEC26,x
ldx #$00
L6C53: cmp LE1F1+1,x
beq L6C5F
inx
cpx LE1F1
bne L6C53
rts
L6C5F: txa
asl a
tax
lda LE202,x
sta LE71D
sta $06
lda LE202+1,x
sta LE71D+1
sta $06+1
lda LCBANK2
lda LCBANK2
ldy #$00
lda ($06),y
tay
lda LCBANK1
lda LCBANK1
tya
sta LE71F
inc LE71D
bne L6C8F
inc LE71D+1
;; First row
.proc L6C8F
lda #16
sta pos_col_name::ycoord
sta pos_col_type::ycoord
sta pos_col_size::ycoord
sta pos_col_date::ycoord
lda #0
sta pos_col_name::ycoord+1
sta pos_col_type::ycoord+1
sta pos_col_size::ycoord+1
sta pos_col_date::ycoord+1
lda #0
sta rows_done
rloop: lda rows_done
cmp cached_window_icon_count
beq done
tax
lda cached_window_icon_list,x
jsr L813F
inc rows_done
jmp rloop
done: jsr reset_grafport3
jsr pop_zp_addrs
rts
rows_done:
.byte 0
.endproc
L6CCD: lda cached_window_id
sta getwinport_params2::window_id
jsr get_set_port2
bit L4152
bmi L6CDE
jsr draw_window_header
L6CDE: jsr cached_icons_window_to_screen
jsr offset_grafport2_and_set
ldx #$07
L6CE6: lda grafport2::cliprect,x
sta rect_E230,x
dex
bpl L6CE6
ldx #$00
txa
pha
L6CF3: cpx cached_window_icon_count
bne L6D09
pla
jsr reset_grafport3
lda cached_window_id
sta getwinport_params2::window_id
jsr get_set_port2
jsr cached_icons_screen_to_window
rts
L6D09: txa
pha
lda cached_window_icon_list,x
sta icon_param
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
beq L6D25
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, icon_param
L6D25: pla
tax
inx
jmp L6CF3
.endproc
;;; ============================================================
.proc clear_selection
lda selected_icon_count
bne L6D31
rts
L6D31: lda #$00
sta L6DB0
lda selected_window_index
sta rect_E230
beq L6D7D
cmp active_window_id
beq L6D4D
jsr zero_grafport5_coords
lda #$00
sta rect_E230
beq L6D56
L6D4D: sta getwinport_params2::window_id
jsr get_set_port2
jsr offset_grafport2_and_set
L6D56: lda L6DB0
cmp selected_icon_count
beq L6D9B
tax
lda selected_icon_list,x
sta icon_param
jsr icon_window_to_screen
DESKTOP_RELAY_CALL $0B, icon_param
lda icon_param
jsr icon_screen_to_window
inc L6DB0
jmp L6D56
L6D7D: lda L6DB0
cmp selected_icon_count
beq L6D9B
tax
lda selected_icon_list,x
sta icon_param
DESKTOP_RELAY_CALL $0B, icon_param
inc L6DB0
jmp L6D7D
L6D9B: lda #$00
ldx selected_icon_count
dex
L6DA1: sta selected_icon_list,x
dex
bpl L6DA1
sta selected_icon_count
sta selected_window_index
jmp reset_grafport3
L6DB0: .byte 0
.endproc
;;; ============================================================
.proc update_scrollbars
ldx active_window_id
dex
lda win_buf_table,x
bmi :+
jsr L7B6B
jmp config_port
: jsr cached_icons_window_to_screen
jsr L7B6B
jsr cached_icons_screen_to_window
config_port:
lda active_window_id
sta getwinport_params2::window_id
jsr get_set_port2
;; check horizontal bounds
cmp16 L7B5F, grafport2::cliprect::x1
bmi activate_hscroll
cmp16 grafport2::cliprect::x2, L7B63
bmi activate_hscroll
;; deactivate horizontal scrollbar
lda #MGTK::ctl_horizontal_scroll_bar
sta activatectl_which_ctl
lda #MGTK::activatectl_deactivate
sta activatectl_activate
jsr activate_ctl
jmp check_vscroll
activate_hscroll:
;; activate horizontal scrollbar
lda #MGTK::ctl_horizontal_scroll_bar
sta activatectl_which_ctl
lda #MGTK::activatectl_activate
sta activatectl_activate
jsr activate_ctl
jsr update_hthumb
check_vscroll:
;; check vertical bounds
cmp16 L7B61, grafport2::cliprect::y1
bmi activate_vscroll
cmp16 grafport2::cliprect::y2, L7B65
bmi activate_vscroll
;; deactivate vertical scrollbar
lda #MGTK::ctl_vertical_scroll_bar
sta activatectl_which_ctl
lda #MGTK::activatectl_deactivate
sta activatectl_activate
jsr activate_ctl
rts
activate_vscroll:
;; activate vertical scrollbar
lda #MGTK::ctl_vertical_scroll_bar
sta activatectl_which_ctl
lda #MGTK::activatectl_activate
sta activatectl_activate
jsr activate_ctl
jmp update_vthumb
activate_ctl:
MGTK_RELAY_CALL MGTK::ActivateCtl, activatectl_params
rts
.endproc
;;; ============================================================
.proc cached_icons_window_to_screen
lda #0
sta count
loop: lda count
cmp cached_window_icon_count
beq done
tax
lda cached_window_icon_list,x
jsr icon_window_to_screen
inc count
jmp loop
done: rts
count: .byte 0
.endproc
;;; ============================================================
.proc cached_icons_screen_to_window
lda #0
sta index
loop: lda index
cmp cached_window_icon_count
beq done
tax
lda cached_window_icon_list,x
jsr icon_screen_to_window
inc index
jmp loop
done: rts
index: .byte 0
.endproc
;;; ============================================================
.proc offset_grafport2_impl
flag_clear:
lda #$80
beq :+
flag_set:
lda #0
: sta flag
add16 grafport2::viewloc::ycoord, #15, grafport2::viewloc::ycoord
add16 grafport2::cliprect::y1, #15, grafport2::cliprect::y1
bit flag
bmi done
MGTK_RELAY_CALL MGTK::SetPort, grafport2
done: rts
flag: .byte 0
.endproc
offset_grafport2 := offset_grafport2_impl::flag_clear
offset_grafport2_and_set := offset_grafport2_impl::flag_set
;;; ============================================================
.proc enable_various_file_menu_items
lda #MGTK::disablemenu_enable
sta disablemenu_params::disable
MGTK_RELAY_CALL MGTK::DisableMenu, disablemenu_params
lda #MGTK::disableitem_enable
sta disableitem_params::disable
lda #menu_id_file
sta disableitem_params::menu_id
lda #1 ; > New Folder
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
lda #4 ; > Close
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
lda #5 ; > Close All
sta disableitem_params::menu_item
MGTK_RELAY_CALL MGTK::DisableItem, disableitem_params
lda #$80
sta menu_dispatch_flag
rts
.endproc
;;; ============================================================
.proc L6F0D
ptr := $6
jsr window_address_lookup
sta ptr
sta pathptr
stx ptr+1
stx pathptr+1
ldy #0 ; length offset
lda (ptr),y
sta pathlen
iny
loop: iny ; start at 2nd character
lda (ptr),y
cmp #'/'
beq found
cpy pathlen
beq finish
jmp loop
found: dey
finish: sty pathlen
addr_call_indirect L6FB7, ptr ; ???
ldax pathptr
ldy pathlen
jmp L6F4B
pathptr: .addr 0
pathlen: .byte 0
.endproc
;;; ============================================================
.proc L6F4B
ptr := $6
stax ptr
sty L705D
L6F52: lda (ptr),y
sta L705D,y
dey
bne L6F52
jsr L72EC
bne L6F8F
lda L704B
beq L6F8F
L6F64: dec L704B
bmi L6F8F
ldx L704B
lda L704C,x
sec
sbc #1
asl a
tax
copy16 L70BD, window_k_used_table,x
copy16 L70BB, window_k_free_table,x
jmp L6F64
L6F8F: rts
.endproc
;;; ============================================================
.proc L6F90
ptr := $A
stax ptr
ldy #0
lda (ptr),y
tay
L6F99: lda (ptr),y
cmp #'/'
beq L6FA9
dey
bpl L6F99
ldy #1
L6FA4: dey
lda (ptr),y
tay
rts
L6FA9: cpy #1
beq L6FA4
dey
rts
.endproc
;;; ============================================================
;; If 'set' version called, length in Y; otherwise use str len
.proc L6FBD
ptr := $6
set: stax ptr
lda #$80
bne start
unset: stax ptr
lda #0
start: sta flag
bit flag
bpl :+
ldy #0 ; Use full length
lda (ptr),y
tay
: sty path_buffer
;; Copy ptr to path_buffer
: lda (ptr),y
sta path_buffer,y
dey
bne :-
;; And capitalize
addr_call capitalize_string, path_buffer
lda #0
sta L704B
sta L7049
loop: inc L7049
lda L7049
cmp #$09
bcc L6FF6
bit flag
bpl L6FF5
lda #0
L6FF5: rts
L6FF6: jsr window_lookup
stax ptr
ldy #10
lda (ptr),y
beq loop
lda L7049
jsr window_address_lookup
stax ptr
ldy #0
lda (ptr),y
tay
cmp path_buffer
beq L7027
bit flag
bmi loop
ldy path_buffer
iny
lda (ptr),y
cmp #'/'
bne loop
dey
L7027: lda (ptr),y
cmp path_buffer,y
bne loop
dey
bne L7027
bit flag
bmi done
ldx L704B
lda L7049
sta L704C,x
inc L704B
jmp loop
done: return L7049
L7049: .byte 0
flag: .byte 0
.endproc
L6FAF := L6FBD::set
L6FB7 := L6FBD::unset
L704B: .byte 0
L704C: .res 8
;;; ============================================================
.proc L7054
jmp L70C5
DEFINE_OPEN_PARAMS open_params, L705D, $800
L705D: .res 65, 0
DEFINE_READ_PARAMS read_params, $0C00, $200
DEFINE_CLOSE_PARAMS close_params
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params4, L705D
.byte 0
L70BB: .word 0
L70BD: .word 0
L70BF: .byte $00
L70C0: .byte $00
L70C1: .byte $00
L70C2: .byte $00
L70C3: .byte $00
L70C4: .byte $00
.proc L70C5
sta L72A7
jsr push_zp_addrs
ldx #$40
L70CD: lda LE1B0,x
sta L705D,x
dex
bpl L70CD
jsr L72AA
lda open_params::ref_num
sta read_params::ref_num
sta close_params::ref_num
jsr L72CE
jsr L72E2
ldx #$00
L70EA: lda $0C23,x
sta L70BF,x
inx
cpx #$04
bne L70EA
sub16 L485D, L485F, L72A8
ldx #$05
L710A: lsr16 L72A8
dex
cpx #$00
bne L710A
lda L70C2
bne L7147
lda LDD9E
clc
adc L70C1
bcs L7147
cmp #$7C
bcs L7147
sub16_8 L72A8, DEVCNT, L72A8
cmp16 L72A8, L70C1
bcs L7169
L7147: lda LEC2E
jsr L8B19
dec LEC2E
jsr redraw_windows_and_desktop
jsr L72D8
lda active_window_id
beq L715F
lda #$03
bne L7161
L715F: lda #warning_msg_window_must_be_closed2
L7161: jsr show_warning_dialog_num
ldx LE256
txs
rts
L7169: copy16 L485F, $06
lda LE1F1
asl a
tax
copy16 $06, LE202,x
ldx LE1F1
lda L72A7
sta LE1F1+1,x
inc LE1F1
lda L70C1
pha
lda LCBANK2
lda LCBANK2
ldy #$00
pla
sta ($06),y
lda LCBANK1
lda LCBANK1
lda #$FF
sta L70C4
lda #$00
sta L70C3
copy16 #$0C04, $08
inc $06
lda $06
bne L71BD
inc $06+1
L71BD: inc L70C4
lda L70C4
cmp L70C1
bne L71CB
jmp L7296
L71CB: inc L70C3
lda L70C3
cmp L70C0
beq L71E7
add16_8 $08, L70BF, $08
jmp L71F7
L71E7: lda #$00
sta L70C3
copy16 #$0C04, $08
jsr L72CE
L71F7: ldx #$00
ldy #$00
lda ($08),y
and #$0F
sta $1F00,x
bne L7223
inc L70C3
lda L70C3
cmp L70C0
bne L7212
jmp L71E7
L7212: add16_8 $08, L70BF, $08
jmp L71F7
L7223: iny
inx
L7225: lda ($08),y
sta $1F00,x
iny
inx
cpx #$11
bne L7225
ldy #$13
lda ($08),y
sta $1F00,x
inx
iny
lda ($08),y
sta $1F00,x
ldy #$18
inx
L7241: lda ($08),y
sta $1F00,x
inx
iny
cpy #$1C
bne L7241
ldy #$21
L724E: lda ($08),y
sta $1F00,x
inx
iny
cpy #$25
bne L724E
ldy #$1E
lda ($08),y
sta $1F00,x
inx
ldy #$25
lda ($08),y
sta $1F00,x
inx
iny
lda ($08),y
sta $1F00,x
lda LCBANK2
lda LCBANK2
ldx #$1F
ldy #$1F
L7279: lda $1F00,x
sta ($06),y
dex
dey
bpl L7279
lda LCBANK1
lda LCBANK1
lda #$20
clc
adc $06
sta $06
bcc L7293
inc $06+1
L7293: jmp L71BD
L7296: copy16 $06, L485F
jsr L72D8
jsr pop_zp_addrs
rts
L72A7: .byte 0
L72A8: .word 0
.endproc
;;; --------------------------------------------------
L72AA: MLI_RELAY_CALL OPEN, open_params
beq L72CD
jsr DESKTOP_SHOW_ALERT0
jsr L8B1F
lda selected_window_index
bne :+
lda icon_params2
sta L533F
jsr L59A8
: ldx LE256
txs
L72CD: rts
;;; --------------------------------------------------
L72CE: MLI_RELAY_CALL READ, read_params
rts
L72D8: MLI_RELAY_CALL CLOSE, close_params
rts
;;; --------------------------------------------------
L72E2: lda $0C04
and #$F0
cmp #$F0
beq L72EC
rts
L72EC: MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params4
beq L72F8
rts
;;; --------------------------------------------------
L72F8: copy16 get_file_info_params4::aux_type, L70BD
sub16 get_file_info_params4::aux_type, get_file_info_params4::blocks_used, L70BB
sub16 L70BD, L70BB, L70BD
lsr16 L70BB
php
lsr16 L70BD
plp
bcc L7342
inc16 L70BD
L7342: return #0
.endproc
L70BB := L7054::L70BB
L70BD := L7054::L70BD
L705D := L7054::L705D
L72EC := L7054::L72EC
;;; ============================================================
.proc L7345
sta L7445
ldx #$00
L734A: lda LE1F1+1,x
cmp L7445
beq :+
inx
cpx #$08
bne L734A
rts
: stx L7446
dex
: inx
lda LE1F1+2,x
sta LE1F1+1,x
cpx LE1F1
bne :-
dec LE1F1
lda L7446
cmp LE1F1
bne :+
ldx L7446
asl a
tax
copy16 LE202,x, L485F
rts
: lda L7446
asl a
tax
copy16 LE202,x, $06
inx
inx
copy16 LE202,x, $08
ldy #$00
jsr push_zp_addrs
L73A5: lda LCBANK2
lda LCBANK2
lda ($08),y
sta ($06),y
lda LCBANK1
lda LCBANK1
inc16 $06
inc16 $08
lda $08+1
cmp L485F+1
bne L73A5
lda $08
cmp L485F
bne L73A5
jsr pop_zp_addrs
lda LE1F1
asl a
tax
sub16 L485F, LE202,x, L7447
inc L7446
L73ED: lda L7446
cmp LE1F1
bne :+
jmp L7429
: lda L7446
asl a
tax
sub16 LE202+2,x, LE202,x, L7449
add16 LE200,x, L7449, LE202,x
inc L7446
jmp L73ED
L7429: lda LE1F1
sec
sbc #$01
asl a
tax
add16 LE202,x, L7447, L485F
rts
L7445: .byte 0
L7446: .byte 0
L7447: .word 0
L7449: .byte 0
L744A: .byte 0
.endproc
;;; ============================================================
.proc L744B
lda cached_window_id
asl a
tax
copy16 LE6BF,x, $08
ldy #$09
lda ($06),y
tay
jsr push_zp_addrs
lda $06
clc
adc #$09
sta $06
bcc L746D
inc $06+1
L746D: tya
tax
ldy #$00
L7471: lda ($06),y
sta ($08),y
iny
dex
bne L7471
lda #$20
sta ($08),y
ldy #icon_entry_offset_win_type
lda ($08),y
and #%11011111 ; ???
sta ($08),y
jsr pop_zp_addrs
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
bne L74D3
jsr push_zp_addrs
lda cached_window_id
jsr window_address_lookup
stax $08
lda $06
clc
adc #$09
sta $06
bcc L74A8
inc $06+1
L74A8: ldy #$00
lda ($06),y
tay
L74AD: lda ($06),y
sta ($08),y
dey
bpl L74AD
ldy #$00
lda ($08),y
sec
sbc #$01
sta ($08),y
ldy #$01
lda #$2F
sta ($08),y
ldy #$00
lda ($08),y
tay
L74C8: lda ($08),y
sta LE1B0,y
dey
bpl L74C8
jmp L7569
L74D3: tay
lda #$00
sta L7620
jsr push_zp_addrs
tya
pha
jsr window_address_lookup
stax $06
pla
asl a
tax
copy16 LE6BF,x, $08
ldy #$00
lda ($06),y
clc
adc ($08),y
cmp #$43
bcc L750D
lda #$40
jsr DESKTOP_SHOW_ALERT0
jsr L8B1F
dec LEC2E
ldx LE256
txs
rts
L750D: ldy #$00
lda ($06),y
tay
L7512: lda ($06),y
sta LE1B0,y
dey
bpl L7512
lda #'/'
sta LE1B0+1
inc LE1B0
ldx LE1B0
sta LE1B0,x
lda icon_params2
jsr icon_entry_lookup
stax $08
ldx LE1B0
ldy #$09
lda ($08),y
clc
adc LE1B0
sta LE1B0
dec LE1B0
dec LE1B0
ldy #$0A
L7548: iny
inx
lda ($08),y
sta LE1B0,x
cpx LE1B0
bne L7548
lda cached_window_id
jsr window_address_lookup
stax $08
ldy LE1B0
L7561: lda LE1B0,y
sta ($08),y
dey
bpl L7561
L7569: addr_call_indirect capitalize_string, $08
lda cached_window_id
jsr window_lookup
stax $06
ldy #$14
lda cached_window_id
sec
sbc #$01
asl a
asl a
asl a
asl a
pha
adc #$05
sta ($06),y
iny
lda #$00
sta ($06),y
iny
pla
lsr a
clc
adc #icon_entry_size
sta ($06),y
iny
lda #$00
sta ($06),y
lda #$00
ldy #$1F
ldx #$03
L75A3: sta ($06),y
dey
dex
bpl L75A3
ldy #$04
lda ($06),y
and #$FE
sta ($06),y
iny
lda ($06),y
and #$FE
sta ($06),y
lda #$00
ldy #$07
sta ($06),y
ldy #$09
sta ($06),y
jsr pop_zp_addrs
lda icon_params2
jsr L7054
lda icon_params2
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
beq L75FA
tax
dex
txa
asl a
tax
copy16 window_k_used_table,x, L70BD
copy16 window_k_free_table,x, L70BB
L75FA: ldx cached_window_id
dex
txa
asl a
tax
copy16 L70BD, window_k_used_table,x
copy16 L70BB, window_k_free_table,x
lda cached_window_id
jsr L7635
rts
L7620: .byte $00
.endproc
;;; ============================================================
;;; Icon entry construction
L7621: .byte $00 ; window_id ?
L7622: .addr 0 ; iconbits
L7624: .byte $00 ; icon type
L7625: .byte $00
L7626: .word $34,$10
L762A: .word 0
L762C: .word 0
L762E: .byte $05
L762F: .byte $00
L7630: .word 0
L7632: .byte $00
L7633: .byte $00
L7634: .byte $00
.proc L7635
pha
lda #$00
beq L7647
L763A: pha
ldx cached_window_id
dex
lda LEC26,x
sta icon_params2
lda #$80
L7647: sta L7634
pla
sta L7621
jsr push_zp_addrs
ldx #$03
L7653: lda L7626,x
sta L762A,x
dex
bpl L7653
lda #$00
sta L762F
sta L7625
ldx #$03
L7666: sta L7630,x
dex
bpl L7666
lda icon_params2
ldx LE1F1
dex
: cmp LE1F1+1,x
beq :+
dex
bpl :-
rts
: txa
asl a
tax
copy16 LE202,x, $06
lda LCBANK2
lda LCBANK2
ldy #0
lda ($06),y
sta L7764
lda LCBANK1
lda LCBANK1
inc $06
lda $06
bne L76A4
inc $06+1
L76A4: lda cached_window_id
sta active_window_id
L76AA: lda L7625
cmp L7764
beq L76BB
jsr L7768
inc L7625
jmp L76AA
L76BB: bit L7634
bpl :+
jsr pop_zp_addrs
rts
: jsr L7B6B
lda L7621
jsr window_lookup
stax $06
ldy #$16
lda L7B65
sec
sbc ($06),y
sta L7B65
lda L7B66
sbc #$00
sta L7B66
cmp16 L7B63, #170
bmi L7705
cmp16 L7B63, #450
bpl L770C
ldax L7B63
jmp L7710
L7705: addr_jump L7710, $00AA
L770C: ldax #$01C2
L7710: ldy #$20
sta ($06),y
txa
iny
sta ($06),y
cmp16 L7B65, #50
bmi L7739
cmp16 L7B65, #108
bpl L7740
ldax L7B65
jmp L7744
L7739: addr_jump L7744, $0032
L7740: ldax #$6C
L7744: ldy #$22
sta ($06),y
txa
iny
sta ($06),y
lda L7767
ldy #$06
sta ($06),y
ldy #$08
sta ($06),y
lda icon_params2
ldx L7621
jsr L8B60
jsr pop_zp_addrs
rts
L7764: .byte $00,$00,$00
L7767: .byte $14
.endproc
L763A := L7635::L763A
;;; ============================================================
;;; Create icon
.proc L7768
inc LDD9E
jsr DESKTOP_ALLOC_ICON
ldx cached_window_icon_count
inc cached_window_icon_count
sta cached_window_icon_list,x
jsr icon_entry_lookup
stax $08
lda LCBANK2
lda LCBANK2
ldy #$00
lda ($06),y
sta $1800
iny
ldx #$00
L778E: lda ($06),y
sta $1802,x
inx
iny
cpx $1800
bne L778E
inc $1800
inc $1800
lda #$20
sta $1801
ldx $1800
sta $1800,x
ldy #$10
lda ($06),y
cmp #$B3
beq L77CC
cmp #$FF
bne L77DA
ldy #$00
lda ($06),y
tay
ldx L77D0
L77BF: lda ($06),y
cmp L77D0,x
bne L77D8
dey
beq L77D8
dex
bne L77BF
L77CC: lda #$01
bne L77DA
L77D0: PASCAL_STRING ".SYSTEM"
L77D8: lda #$FF
L77DA: tay
lda LCBANK1
lda LCBANK1
tya
;; L7622/3 = icon bits addr
;; L7624 = icon type
jsr find_icon_details_for_file_type
addr_call capitalize_string, $1800
ldy #icon_entry_offset_len
ldx #0
L77F0: lda $1800,x
sta ($08),y
iny
inx
cpx $1800
bne L77F0
lda $1800,x
sta ($08),y
ldx #$00
ldy #$03
L7805: lda L762A,x
sta ($08),y
inx
iny
cpx #$04
bne L7805
lda cached_window_icon_count
cmp L762E
beq L781A
bcs L7826
L781A: copy16 L762A, L7630
L7826: copy16 L762C, L7632
inc L762F
lda L762F
cmp L762E
bne L7862
add16 L762C, #32, L762C
copy16 L7626, L762A
lda #$00
sta L762F
jmp L7870
L7862: lda L762A
clc
adc #$50
sta L762A
bcc L7870
inc L762A+1
L7870: lda cached_window_id
ora L7624
ldy #icon_entry_offset_win_type
sta ($08),y
ldy #icon_entry_offset_iconbits
lda L7622
sta ($08),y
iny
lda L7622+1
sta ($08),y
ldx cached_window_icon_count
dex
lda cached_window_icon_list,x
jsr icon_screen_to_window
add16 $06, #32, $06
rts
.byte 0
.byte 0
.endproc
;;; ============================================================
.proc find_icon_details_for_file_type
ptr := $6
sta file_type
jsr push_zp_addrs
;; Find index of file type
copy16 type_table_addr, ptr
ldy #0
lda (ptr),y ; first entry is size of table
tay
: lda (ptr),y
cmp file_type
beq found
dey
bpl :-
ldy #1 ; default is first entry (FT_TYPELESS)
found:
;; Look up icon type
copy16 icon_type_table_addr, ptr
lda (ptr),y
sta L7624
dey
tya
asl a
tay
;; Look up icon definition
copy16 type_icons_addr, ptr
lda (ptr),y
sta L7622
iny
lda (ptr),y
sta L7622+1
jsr pop_zp_addrs
rts
file_type:
.byte 0
.endproc
;;; ============================================================
;;; Draw header (items/k in disk/k available/lines)
.proc draw_window_header
;; Compute header coords
;; x coords
lda grafport2::cliprect::x1
sta header_line_left::xcoord
clc
adc #5
sta items_label_pos::xcoord
lda grafport2::cliprect::x1+1
sta header_line_left::xcoord+1
adc #0
sta items_label_pos::xcoord+1
;; y coords
lda grafport2::cliprect::y1
clc
adc #12
sta header_line_left::ycoord
sta header_line_right::ycoord
lda grafport2::cliprect::y1+1
adc #0
sta header_line_left::ycoord+1
sta header_line_right::ycoord+1
;; Draw top line
MGTK_RELAY_CALL MGTK::MoveTo, header_line_left
copy16 grafport2::cliprect::x2, header_line_right::xcoord
jsr set_penmode_xor
MGTK_RELAY_CALL MGTK::LineTo, header_line_right
;; Offset down by 2px
lda header_line_left::ycoord
clc
adc #2
sta header_line_left::ycoord
sta header_line_right::ycoord
lda header_line_left::ycoord+1
adc #0
sta header_line_left::ycoord+1
sta header_line_right::ycoord+1
;; Draw bottom line
MGTK_RELAY_CALL MGTK::MoveTo, header_line_left
MGTK_RELAY_CALL MGTK::LineTo, header_line_right
;; Baseline for header text
add16 grafport2::cliprect::y1, #10, items_label_pos::ycoord
;; Draw "XXX Items"
lda cached_window_icon_count
ldx #0
jsr int_to_string
lda cached_window_icon_count
cmp #2 ; plural?
bcs :+
dec str_items ; remove trailing s
: MGTK_RELAY_CALL MGTK::MoveTo, items_label_pos
jsr draw_int_string
addr_call draw_pascal_string, str_items
lda cached_window_icon_count
cmp #2
bcs :+
inc str_items ; restore trailing s
;; Draw "XXXK in disk"
: jsr calc_header_coords
ldx active_window_id
dex ; index 0 is window 1
txa
asl a
tax
lda window_k_used_table,x
tay
lda window_k_used_table+1,x
tax
tya
jsr int_to_string
MGTK_RELAY_CALL MGTK::MoveTo, pos_k_in_disk
jsr draw_int_string
addr_call draw_pascal_string, str_k_in_disk
;; Draw "XXXK available"
ldx active_window_id
dex ; index 0 is window 1
txa
asl a
tax
lda window_k_free_table,x
tay
lda window_k_free_table+1,x
tax
tya
jsr int_to_string
MGTK_RELAY_CALL MGTK::MoveTo, pos_k_available
jsr draw_int_string
addr_call draw_pascal_string, str_k_available
rts
;;; --------------------------------------------------
.proc calc_header_coords
;; Width of window
sub16 grafport2::cliprect::x2, grafport2::cliprect::x1, xcoord
;; Is there room to spread things out?
sub16 xcoord, width_items_label, xcoord
bpl :+
jmp skipcenter
: sub16 xcoord, width_right_labels, xcoord
bpl :+
jmp skipcenter
;; Yes - center "k in disk"
: add16 width_left_labels, xcoord, pos_k_available::xcoord
lda xcoord+1
beq :+
lda xcoord
cmp #24 ; threshold
bcc nosub
: sub16 pos_k_available::xcoord, #12, pos_k_available::xcoord
nosub: lsr16 xcoord ; divide by 2 to center
add16 width_items_label_padded, xcoord, pos_k_in_disk::xcoord
jmp finish
;; No - just squish things together
skipcenter:
copy16 width_items_label_padded, pos_k_in_disk::xcoord
copy16 width_left_labels, pos_k_available::xcoord
finish:
add16 pos_k_in_disk::xcoord, grafport2::cliprect::x1, pos_k_in_disk::xcoord
add16 pos_k_available::xcoord, grafport2::cliprect::x1, pos_k_available::xcoord
;; Update y coords
lda items_label_pos::ycoord
sta pos_k_in_disk::ycoord
sta pos_k_available::ycoord
lda items_label_pos::ycoord+1
sta pos_k_in_disk::ycoord+1
sta pos_k_available::ycoord+1
rts
.endproc ; calc_header_coords
draw_int_string:
addr_jump draw_pascal_string, str_from_int
xcoord:
.word 0
;;; --------------------------------------------------
.proc int_to_string
stax value
;; Fill buffer with spaces
ldx #6
lda #' '
: sta str_from_int,x
dex
bne :-
lda #0
sta nonzero_flag
ldy #0 ; y = position in string
ldx #0 ; x = which power index is subtracted (*2)
;; For each power of ten
loop: lda #0
sta digit
;; Keep subtracting/incrementing until zero is hit
sloop: cmp16 value, powers,x
bpl subtract
lda digit
bne not_pad
bit nonzero_flag
bmi not_pad
;; Pad with space
lda #' '
bne :+
;; Convert to ASCII
not_pad:
clc
adc #'0' ; why not ORA $30 ???
pha
lda #$80
sta nonzero_flag
pla
;; Place the character, move to next
: sta str_from_int+2,y
iny
inx
inx
cpx #8 ; up to 4 digits (*2) via subtraction
beq done
jmp loop
subtract:
inc digit
sub16 value, powers,x, value
jmp sloop
done: lda value ; handle last digit
ora #'0'
sta str_from_int+2,y
rts
powers: .word 10000, 1000, 100, 10
value: .word 0 ; remaining value as subtraction proceeds
digit: .byte 0 ; current digit being accumulated
nonzero_flag: ; high bit set once a non-zero digit seen
.byte 0
.endproc ; int_to_string
.endproc ; draw_window_header
;;; ============================================================
L7B5F: .byte 0
L7B60: .byte 0
L7B61: .byte 0
L7B62: .byte 0
L7B63: .byte 0
L7B64: .byte 0
L7B65: .byte 0
L7B66: .byte 0
L7B67: .byte 0
L7B68: .byte 0
L7B69: .byte 0
L7B6A: .byte 0
.proc L7B6B
ldx #3
lda #0
L7B6F: sta L7B63,x
dex
bpl L7B6F
sta L7D5B
lda #$FF
sta L7B5F
sta L7B61
lda #$7F
sta L7B60
sta L7B62
ldx cached_window_id
dex
lda win_buf_table,x
bpl L7BCB
lda cached_window_icon_count
bne L7BA1
L7B96: ldax #$0300
L7B9A: sta L7B5F,x
dex
bpl L7B9A
rts
L7BA1: clc
adc #$02
ldx #$00
stx L7D5C
asl a
rol L7D5C
asl a
rol L7D5C
asl a
rol L7D5C
sta L7B65
lda L7D5C
sta L7B66
copy16 #$168, L7B63
jmp L7B96
L7BCB: lda cached_window_icon_count
cmp #$01
bne L7BEF
lda cached_window_icon_list
jsr icon_entry_lookup
stax $06
ldy #$06
ldx #$03
L7BE0: lda ($06),y
sta L7B5F,x
sta L7B63,x
dey
dex
bpl L7BE0
jmp L7BF7
L7BEF: lda L7D5B
cmp cached_window_icon_count
bne L7C36
L7BF7: lda L7B63
clc
adc #$32
sta L7B63
bcc L7C05
inc L7B64
L7C05: lda L7B65
clc
adc #$20
sta L7B65
bcc L7C13
inc L7B66
L7C13: sub16 L7B5F, #50, L7B5F
sub16 L7B61, #15, L7B61
rts
L7C36: tax
lda cached_window_icon_list,x
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
lda ($06),y
and #icon_entry_winid_mask
cmp L7D5C
bne L7C52
inc L7D5B
jmp L7BEF
L7C52: ldy #$06
ldx #$03
L7C56: lda ($06),y
sta L7B67,x
dey
dex
bpl L7C56
bit L7B60
bmi L7C88
bit L7B68
bmi L7CCE
cmp16 L7B67, L7B5F
bmi L7CCE
cmp16 L7B67, L7B63
bpl L7CBF
jmp L7CDA
L7C88: bit L7B68
bmi L7CA3
bit L7B64
bmi L7CDA
cmp16 L7B67, L7B63
bmi L7CDA
jmp L7CBF
L7CA3: cmp16 L7B67, L7B5F
bmi L7CCE
cmp16 L7B67, L7B63
bmi L7CDA
L7CBF: copy16 L7B67, L7B63
jmp L7CDA
L7CCE: copy16 L7B67, L7B5F
L7CDA: bit L7B62
bmi L7D03
bit L7B6A
bmi L7D49
cmp16 L7B69, L7B61
bmi L7D49
cmp16 L7B69, L7B65
bpl L7D3A
jmp L7D55
L7D03: bit L7B6A
bmi L7D1E
bit L7B66
bmi L7D55
cmp16 L7B69, L7B65
bmi L7D55
jmp L7D3A
L7D1E: cmp16 L7B69, L7B61
bmi L7D49
cmp16 L7B69, L7B65
bmi L7D55
L7D3A: copy16 L7B69, L7B65
jmp L7D55
L7D49: copy16 L7B69, L7B61
L7D55: inc L7D5B
jmp L7BEF
L7D5B: .byte 0
L7D5C: .byte 0
.endproc
;;; ============================================================
.proc L7D5D
jsr window_lookup
stax $06
ldy #35
ldx #7
: lda ($06),y
sta L7D94,x
dey
dex
bpl :-
lda L7D98
sec
sbc L7D94
pha
lda L7D98+1
sbc L7D94+1
pha
lda L7D9A
sec
sbc L7D96
pha
lda L7D9A+1
sbc L7D96+1 ; wierd - this is discarded???
pla
tay
pla
tax
pla
rts
L7D94: .word 0
L7D96: .word 0
L7D98: .word 0
L7D9A: .word 0
.endproc
;;; ============================================================
.proc L7D9C
jmp L7D9F
L7D9F: ldx cached_window_id
dex
lda LEC26,x
ldx #$00
L7DA8: cmp LE1F1+1,x
beq L7DB4
inx
cpx LE1F1
bne L7DA8
rts
L7DB4: txa
asl a
tax
lda LE202,x
sta $06
sta $0801
lda LE202+1,x
sta $06+1
sta $0802
lda LCBANK2
lda LCBANK2
lda #$00
sta L0800
tay
lda ($06),y
sta $0803
inc $06
inc $0801
bne L7DE4
inc $06+1
inc $0802
L7DE4: lda L0800
cmp $0803
beq L7E0C
jsr L80CA
ldy #$00
lda ($06),y
and #$7F
sta ($06),y
ldy #$17
lda ($06),y
bne L7E06
iny
lda ($06),y
bne L7E06
lda #$01
sta ($06),y
L7E06: inc L0800
jmp L7DE4
L7E0C: lda LCBANK1
lda LCBANK1
ldx cached_window_id
dex
lda win_buf_table,x
cmp #$81
beq L7E20
jmp L7EC1
L7E20: lda LCBANK2
lda LCBANK2
ldax #$0F5A
L7E2A: sta $0808,x
dex
bpl L7E2A
lda #$00
sta $0805
sta L0800
L7E38: lda $0805
cmp $0803
bne L7E43
jmp L80F5
L7E43: jsr L80CA
ldy #$00
lda ($06),y
bmi L7E82
and #$0F
sta $0804
ldy #$01
L7E53: lda ($06),y
cmp $0807,y
beq L7E5F
bcs L7E82
jmp L7E67
L7E5F: iny
cpy #$10
bne L7E53
jmp L7E82
L7E67: lda L0800
sta $0806
ldx #$0F
lda #$20
L7E71: sta $0808,x
dex
bpl L7E71
ldy $0804
L7E7A: lda ($06),y
sta $0807,y
dey
bne L7E7A
L7E82: inc L0800
lda L0800
cmp $0803
beq L7E90
jmp L7E43
L7E90: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda ($06),y
ora #$80
sta ($06),y
ldax #$0F5A
L7EA8: sta $0808,x
dex
bpl L7EA8
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
jmp L7E38
L7EC1: cmp #$82
beq L7EC8
jmp L7F58
L7EC8: lda LCBANK2
lda LCBANK2
lda #$00
sta $0808
sta $0809
sta $0805
sta L0800
L7EDC: lda $0805
cmp $0803
bne L7EE7
jmp L80F5
L7EE7: jsr L80CA
ldy #$00
lda ($06),y
bmi L7F1B
ldy #$18
lda ($06),y
cmp $0809
beq L7EFE
bcs L7F08
jmp L7F1B
L7EFE: dey
lda ($06),y
cmp $0808
beq L7F1B
bcc L7F1B
L7F08: ldy #$18
lda ($06),y
sta $0809
dey
lda ($06),y
sta $0808
lda L0800
sta $0806
L7F1B: inc L0800
lda L0800
cmp $0803
beq L7F29
jmp L7EE7
L7F29: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda ($06),y
ora #$80
sta ($06),y
lda #$00
sta $0808
sta $0809
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
jmp L7EDC
L7F58: cmp #$83
beq L7F5F
jmp L801F
L7F5F: lda LCBANK2
lda LCBANK2
lda #$00
sta $0808
sta $0809
sta $0805
sta L0800
L7F73: lda $0805
cmp $0803
bne L7F7E
jmp L80F5
L7F7E: jsr L80CA
ldy #$00
lda ($06),y
bmi L7FAD
ldy #$12
lda ($06),y
cmp $0809
beq L7F92
bcs L7F9C
L7F92: dey
lda ($06),y
cmp $0808
beq L7F9C
bcc L7FAD
L7F9C: lda ($06),y
sta $0808
iny
lda ($06),y
sta $0809
lda L0800
sta $0806
L7FAD: inc L0800
lda L0800
cmp $0803
beq L7FBB
jmp L7F7E
L7FBB: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda ($06),y
ora #$80
sta ($06),y
lda #$00
sta $0808
sta $0809
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
jmp L7F73
lda LCBANK1
lda LCBANK1
copy16 #84, pos_col_name::xcoord
copy16 #203, pos_col_type::xcoord
lda #$00
sta pos_col_size::xcoord
sta pos_col_size::xcoord+1
copy16 #231, pos_col_date::xcoord
lda LCBANK2
lda LCBANK2
jmp L80F5
L801F: cmp #$84
beq L8024
rts
L8024: copy16 type_table_addr, $08
ldy #$00
lda ($08),y
sta $0807
tay
L8036: lda ($08),y
sta $0807,y
dey
bne L8036
lda LCBANK2
lda LCBANK2
lda #$00
sta $0805
sta L0800
lda #$FF
sta $0806
L8051: lda $0805
cmp $0803
bne L805C
jmp L80F5
L805C: jsr L80CA
ldy #$00
lda ($06),y
bmi L807E
ldy #$10
lda ($06),y
ldx $0807
cpx #$00
beq L8075
cmp $0808,x
bne L807E
L8075: lda L0800
sta $0806
jmp L809E
L807E: inc L0800
lda L0800
cmp $0803
beq L808C
jmp L805C
L808C: lda $0806
cmp #$FF
bne L809E
dec $0807
lda #$00
sta L0800
jmp L805C
L809E: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda ($06),y
ora #$80
sta ($06),y
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
lda #$FF
sta $0806
jmp L8051
.endproc
;;; ============================================================
.proc L80CA
;; ptr = $801/$802 + ($800 * 32)
ptr := $6
lda #0
sta $0804
lda L0800
asl a
rol $0804
asl a
rol $0804
asl a
rol $0804
asl a
rol $0804
asl a
rol $0804
clc
adc $0801
sta ptr
lda $0801+1
adc $0804
sta ptr+1
rts
.endproc
;;; ============================================================
.proc L80F5
lda #$00
sta L0800
L80FA: lda L0800
cmp $0803
beq L8124
jsr L80CA
ldy #$00
lda ($06),y
and #$7F
sta ($06),y
ldy #$17
lda ($06),y
bne L811E
iny
lda ($06),y
cmp #$01
bne L811E
lda #$00
sta ($06),y
L811E: inc L0800
jmp L80FA
L8124: lda LCBANK1
lda LCBANK1
rts
.endproc
;;; ============================================================
.proc L812B
lda LCBANK1
lda LCBANK1
tya
sta cached_window_icon_list,x
lda LCBANK2
lda LCBANK2
rts
.endproc
;;; ============================================================
.proc L813F_impl
L813C: .byte 0
.byte 0
L813E: .byte 8
start: ldy #$00
tax
dex
txa
sty L813C
asl a
rol L813C
asl a
rol L813C
asl a
rol L813C
asl a
rol L813C
asl a
rol L813C
clc
adc LE71D
sta $06
lda LE71D+1
adc L813C
sta $06+1
lda LCBANK2
lda LCBANK2
ldy #$1F
L8171: lda ($06),y
sta LEC43,y
dey
bpl L8171
lda LCBANK1
lda LCBANK1
ldx #$31
lda #$20
L8183: sta text_buffer2::data-1,x
dex
bpl L8183
lda #$00
sta text_buffer2::length
lda pos_col_type::ycoord
clc
adc L813E
sta pos_col_type::ycoord
bcc L819D
inc pos_col_type::ycoord+1
L819D: lda pos_col_size::ycoord
clc
adc L813E
sta pos_col_size::ycoord
bcc L81AC
inc pos_col_size::ycoord+1
L81AC: lda pos_col_date::ycoord
clc
adc L813E
sta pos_col_date::ycoord
bcc L81BB
inc pos_col_date::ycoord+1
L81BB: cmp16 pos_col_name::ycoord, grafport2::cliprect::y2
bmi L81D9
lda pos_col_name::ycoord
clc
adc L813E
sta pos_col_name::ycoord
bcc L81D8
inc pos_col_name::ycoord+1
L81D8: rts
L81D9: lda pos_col_name::ycoord
clc
adc L813E
sta pos_col_name::ycoord
bcc L81E8
inc pos_col_name::ycoord+1
L81E8: cmp16 pos_col_name::ycoord, grafport2::cliprect::y1
bpl L81F7
rts
L81F7: jsr prepare_col_name
addr_call SETPOS_DRAWTEXT_RELAY, pos_col_name
jsr prepare_col_type
addr_call SETPOS_DRAWTEXT_RELAY, pos_col_type
jsr prepare_col_size
addr_call SETPOS_DRAWTEXT_RELAY, pos_col_size
jsr compose_date_string
addr_jump SETPOS_DRAWTEXT_RELAY, pos_col_date
.endproc
L813F := L813F_impl::start
;;; ============================================================
.proc prepare_col_name
lda LEC43
and #$0F
sta text_buffer2::length
tax
loop: lda LEC43,x
sta text_buffer2::data,x
dex
bne loop
lda #' '
sta text_buffer2::data
inc text_buffer2::length
addr_call capitalize_string, text_buffer2::length
rts
.endproc
.proc prepare_col_type
lda LEC53
jsr L8707
ldx #4
loop: lda LDFC5,x
sta text_buffer2::data-1,x
dex
bpl loop
rts
.endproc
.proc prepare_col_size
ldax LEC54
;; fall through
.endproc
;;; ============================================================
;;; Populate text_buffer2 with " 12345 Blocks"
.proc compose_blocks_string
stax value
jmp start
suffix: .byte " Blocks "
powers: .word 10000, 1000, 100, 10
value: .word 0
digit: .byte 0
nonzero_flag:
.byte 0
start:
;; Fill buffer with spaces
ldx #17
lda #' '
: sta text_buffer2::data-1,x
dex
bpl :-
lda #0
sta text_buffer2::length
sta nonzero_flag
ldy #0 ; y is pos in string
ldx #0 ; x is power of 10 index (*2)
loop: lda #0
sta digit
;; Compute the digit by repeated subtraction/increments
sloop: cmp16 value, powers,x
bpl subtract
lda digit
bne not_pad
bit nonzero_flag
bmi not_pad
;; Pad with space
lda #' '
bne :+
not_pad:
ora #'0'
pha
lda #$80
sta nonzero_flag
pla
;; Place the character, move to next
: sta text_buffer2::data+1,y
iny
inx
inx
cpx #8 ; last power of 10? (*2)
beq done
jmp loop
subtract:
inc digit
sub16 value, powers,x, value
jmp sloop
done: lda value ; handle last digit
ora #'0'
sta text_buffer2::data+1,y
iny
;; Append suffix
ldx #0
: lda suffix,x
sta text_buffer2::data+1,y
iny
inx
cpx suffix
bne :-
;; Singular or plural?
lda digit ; zero?
bne plural
bit nonzero_flag
bmi plural ; "blocks"
lda value
cmp #2 ; plural?
bcc single
plural: lda #.strlen(" 12345 Blocks") ; seems off by one ???
bne L830B
single: lda #.strlen(" 1 Block")
L830B: sta text_buffer2::length
rts
.endproc
;;; ============================================================
compose_date_string:
ldx #21
lda #' '
: sta text_buffer2::data-1,x
dex
bpl :-
lda #1
sta text_buffer2::length
copy16 #text_buffer2::length, $8
lda date ; any bits set?
ora date+1
bne prep_date_strings
sta month ; 0 is "no date" string
jmp prep_month_string
prep_date_strings:
lda date+1
and #$FE ; extract year
lsr a
sta year
lda date+1 ; extract month
ror a
lda date
ror a
lsr a
lsr a
lsr a
lsr a
sta month
lda date ; extract day
and #$1F
sta day
jsr prep_month_string
jsr prep_day_string
jmp prep_year_string
.proc prep_day_string
;; String will have trailing space.
lda #' '
sta str_day+1
sta str_day+2
sta str_day+3
;; Assume 1 digit (plus trailing space)
ldx #2
;; Determine first digit.
lda day
ora #'0' ; if < 10, will just be value itself
tay
lda day
cmp #10
bcc :+
inx ; will be 2 digits
ldy #'1'
cmp #20
bcc :+
ldy #'2'
cmp #30
bcc :+
ldy #'3'
: stx str_day ; length (including trailing space)
sty str_day+1 ; first digit
;; Determine second digit.
cpx #2 ; only 1 digit (plus trailing space?)
beq done
tya
and #$03 ; ascii -> tens digit
tay
lda day ; subtract 10 as needed
: sec
sbc #10
dey
bne :-
ora #'0'
sta str_day+2
done: addr_jump concatenate_date_part, str_day
.endproc
.proc prep_month_string
lda month
asl a
tay
lda month_table+1,y
tax
lda month_table,y
jmp concatenate_date_part
.endproc
.proc prep_year_string
ldx tens_table_length
: lda year
sec
sbc tens_table-1,x
bpl :+
dex
bne :-
: tay
lda ascii_digits,x
sta year_string_10s
lda ascii_digits,y
sta year_string_1s
addr_jump concatenate_date_part, str_year
.endproc
year: .byte 0
month: .byte 0
day: .byte 0
str_day: ; Filled in with day of the month plus space (e.g. "10 ")
PASCAL_STRING " "
month_table:
.addr str_no_date
.addr str_jan,str_feb,str_mar,str_apr,str_may,str_jun
.addr str_jul,str_aug,str_sep,str_oct,str_nov,str_dec
str_no_date:
PASCAL_STRING "no date "
str_jan:PASCAL_STRING "January "
str_feb:PASCAL_STRING "February "
str_mar:PASCAL_STRING "March "
str_apr:PASCAL_STRING "April "
str_may:PASCAL_STRING "May "
str_jun:PASCAL_STRING "June "
str_jul:PASCAL_STRING "July "
str_aug:PASCAL_STRING "August "
str_sep:PASCAL_STRING "September "
str_oct:PASCAL_STRING "October "
str_nov:PASCAL_STRING "November "
str_dec:PASCAL_STRING "December "
str_year:
PASCAL_STRING " 1985"
year_string_10s := *-2 ; 10s digit
year_string_1s := *-1 ; 1s digit
tens_table_length:
.byte 9
tens_table:
.byte 10,20,30,40,50,60,70,80,90
ascii_digits:
.byte "0123456789"
.proc concatenate_date_part
stax $06
ldy #$00
lda ($08),y
sta L84D0
clc
adc ($06),y
sta ($08),y
lda ($06),y
sta compare_y
: inc L84D0
iny
lda ($06),y
sty L84CF
ldy L84D0
sta ($08),y
ldy L84CF
compare_y := *+1
cpy #0 ; self-modified
bcc :-
rts
L84CF: .byte 0
L84D0: .byte 0
.endproc
;;; ============================================================
.proc L84D1
jsr push_zp_addrs
bit L5B1B
bmi L84DC
jsr cached_icons_window_to_screen
L84DC: sub16 grafport2::cliprect::x2, grafport2::cliprect::x1, L85F8
sub16 grafport2::cliprect::y2, grafport2::cliprect::y1, L85FA
lda event_kind
cmp #MGTK::event_kind_button_down
bne L850C
asl a
bne L850E
L850C: lda #$00
L850E: sta L85F1
lda active_window_id
jsr window_lookup
stax $06
lda #$06
clc
adc L85F1
tay
lda ($06),y
pha
jsr L7B6B
ldx L85F1
sub16 L7B63,x, L7B5F,x, L85F2
ldx L85F1
sub16 L85F2, L85F8,x, L85F2
bpl L8562
lda L85F8,x
sta L85F2
lda L85F9,x
sta L85F3
L8562: lsr16 L85F2
lsr16 L85F2
lda L85F2
tay
pla
tax
lda event_params+1
jsr L62BC
ldx #$00
stx L85F2
asl a
rol L85F2
asl a
rol L85F2
ldx L85F1
clc
adc L7B5F,x
sta grafport2::cliprect::x1,x
lda L85F2
adc L7B60,x
sta grafport2::cliprect::x1+1,x
lda active_window_id
jsr L7D5D
stax L85F4
sty L85F6
lda L85F1
beq L85C3
add16_8 grafport2::cliprect::y1, L85F6, grafport2::cliprect::y2
jmp L85D6
L85C3: add16 grafport2::cliprect::x1, L85F4, grafport2::cliprect::x2
L85D6: lda active_window_id
jsr window_lookup
stax $06
ldy #$23
ldx #$07
L85E4: lda grafport2::cliprect::x1,x
sta ($06),y
dey
dex
bpl L85E4
jsr pop_zp_addrs
rts
L85F1: .byte 0
L85F2: .byte 0
L85F3: .byte 0
L85F4: .word 0
L85F6: .byte 0
.byte 0
L85F8: .byte 0
L85F9: .byte 0
L85FA: .word 0
.endproc
;;; ============================================================
;;; Double Click Detection
;;; Returns with A=0 if double click, A=$FF otherwise.
.proc detect_double_click
double_click_deltax := 8
double_click_deltay := 7
;; Stash initial coords
ldx #3
: lda event_coords,x
sta coords,x
sta saved_event_coords,x
dex
bpl :-
lda #0
sta counter+1
lda machine_type ; Speed of mouse driver? ($96=IIe,$FA=IIc,$FD=IIgs)
asl a ; * 2
rol counter+1 ; So IIe = $12C, IIc = $1F4, IIgs = $1FA
sta counter
;; Decrement counter, bail if time delta exceeded
loop: dec counter
bne :+
dec counter+1
lda counter+1
bne exit
: jsr peek_event
;; Check coords, bail if pixel delta exceeded
jsr check_delta
bmi exit ; moved past delta; no double-click
lda #$FF ; ???
sta unused
lda event_kind
sta state ; unused ???
cmp #MGTK::event_kind_no_event
beq loop
cmp #MGTK::event_kind_drag
beq loop
cmp #MGTK::event_kind_button_up
bne :+
jsr get_event
jmp loop
: cmp #MGTK::event_kind_button_down
bne exit
jsr get_event
return #0 ; double-click
exit: return #$FF ; not double-click
;; Is the new coord within range of the old coord?
.proc check_delta
;; compute x delta
lda event_xcoord
sec
sbc xcoord
sta delta
lda event_xcoord+1
sbc xcoord+1
bpl :+
;; is -delta < x < 0 ?
lda delta
cmp #($100 - double_click_deltax)
bcs check_y
fail: return #$FF
;; is 0 < x < delta ?
: lda delta
cmp #double_click_deltax
bcs fail
;; compute y delta
check_y:lda event_ycoord
sec
sbc ycoord
sta delta
lda event_ycoord+1
sbc ycoord+1
bpl :+
;; is -delta < y < 0 ?
lda delta
cmp #($100 - double_click_deltay)
bcs ok
;; is 0 < y < delta ?
: lda delta
cmp #double_click_deltay
bcs fail
ok: return #0
.endproc
counter:.word 0
coords:
xcoord: .word 0
ycoord: .word 0
delta: .byte 0
state: .byte 0 ; unused?
unused: .byte 0 ; ???
.endproc
;;; ============================================================
;;; A = A * 16, high bits into X
.proc a_times_16
ldx #0
stx tmp
asl a
rol tmp
asl a
rol tmp
asl a
rol tmp
asl a
rol tmp
ldx tmp
rts
tmp: .byte 0
.endproc
;;; ============================================================
;;; A = A * 64, high bits into X
.proc a_times_64
ldx #$00
stx tmp
asl a
rol tmp
asl a
rol tmp
asl a
rol tmp
asl a
rol tmp
asl a
rol tmp
asl a
rol tmp
ldx tmp
rts
tmp: .byte 0
.endproc
;;; ============================================================
;;; Look up file address. Index in A, address in A,X.
.proc icon_entry_lookup
asl a
tax
lda icon_entry_address_table,x
pha
lda icon_entry_address_table+1,x
tax
pla
rts
.endproc
;;; ============================================================
;;; Look up window. Index in A, address in A,X.
.proc window_lookup
asl a
tax
lda win_table,x
pha
lda win_table+1,x
tax
pla
rts
.endproc
;;; ============================================================
;;; Look up window address. Index in A, address in A,X.
.proc window_address_lookup
asl a
tax
lda window_address_table,x
pha
lda window_address_table+1,x
tax
pla
rts
.endproc
;;; ============================================================
.proc L8707
sta L877F
copy16 type_table_addr, $06
ldy #$00
lda ($06),y
tay
L8719: lda ($06),y
cmp L877F
beq L8726
dey
bne L8719
jmp L8745
L8726: tya
asl a
asl a
tay
copy16 type_names_addr, $06
ldx #$00
L8736: lda ($06),y
sta LDFC6,x
iny
inx
cpx #$04
bne L8736
stx LDFC5
rts
L8745: copy16 #$2004, LDFC5
lda #$24
sta LDFC7
lda L877F
lsr a
lsr a
lsr a
lsr a
cmp #$0A
bcs L8764
clc
adc #$30
bne L8767
L8764: clc
adc #$37
L8767: sta LDFC8
lda L877F
and #$0F
cmp #$0A
bcs L8778
clc
adc #$30
bne L877B
L8778: clc
adc #$37
L877B: sta path_buf4
rts
L877F: .byte 0
.endproc
;;; ============================================================
;;; Draw text, pascal string address in A,X
.proc draw_pascal_string
params := $6
textptr := $6
textlen := $8
stax textptr
ldy #0
lda (textptr),y
beq exit
sta textlen
inc16 textptr
MGTK_RELAY_CALL MGTK::DrawText, params
exit: rts
.endproc
;;; ============================================================
;;; Measure text, pascal string address in A,X; result in A,X
.proc measure_text1
ptr := $6
len := $8
result := $9
stax ptr
ldy #0
lda (ptr),y
sta len
inc16 ptr
MGTK_RELAY_CALL MGTK::TextWidth, ptr
ldax result
rts
.endproc
;;; ============================================================
.proc capitalize_string
ptr := $A
stx ptr+1
sta ptr
ldy #0
lda (ptr),y
tay
bne next
rts
next: dey
beq done
bpl :+
done: rts
;; Ignore punctuation
: lda (ptr),y
and #$7F
cmp #'/'
beq skip
cmp #' '
beq skip
cmp #'.'
bne check
skip: dey
jmp next
;; Look at previous character - is it a letter?
check: iny
lda (ptr),y
and #$7F
cmp #'A'
bcc :+
cmp #'Z' + 1
bcs :+
;; Yes - uppercase it.
clc
adc #$20
sta (ptr),y
: dey
jmp next
.endproc
;;; ============================================================
;;; Pushes two words from $6/$8 to stack
.proc push_zp_addrs
ptr := $6
pla ; stash return address
sta addr
pla
sta addr+1
ldx #0 ; copy 4 bytes from $8 to stack
loop: lda ptr,x
pha
inx
cpx #4
bne loop
lda addr+1 ; restore return address
pha
lda addr
pha
rts
addr: .addr 0
.endproc
;;; ============================================================
;;; Pops two words from stack to $6/$8
.proc pop_zp_addrs
ptr := $6
pla ; stash return address
sta addr
pla
sta addr+1
ldx #3 ; copy 4 bytes from stack to $6
loop: pla
sta ptr,x
dex
cpx #$FF ; why not bpl ???
bne loop
lda addr+1 ; restore return address to stack
pha
lda addr
pha
rts
addr: .addr 0
.endproc
;;; ============================================================
port_copy:
.res MGTK::grafport_size+1
.proc copy_window_portbits
ptr := $6
tay
jsr push_zp_addrs
tya
jsr window_lookup
stax ptr
ldx #0
ldy #MGTK::winfo_offset_port
: lda (ptr),y
sta port_copy,x
iny
inx
cpx #MGTK::grafport_size
bne :-
jsr pop_zp_addrs
rts
.endproc
.proc assign_window_portbits
ptr := $6
tay
jsr push_zp_addrs
tya
jsr window_lookup
stax ptr
ldx #0
ldy #MGTK::winfo_offset_port
: lda port_copy,x
sta (ptr),y
iny
inx
cpx #MGTK::grafport_size
bne :-
jsr pop_zp_addrs
rts
.endproc
;;; ============================================================
;;; Convert icon's coordinates from screen to window (direction???)
;;; (icon index in A, active window)
.proc icon_screen_to_window
entry_ptr := $6
winfo_ptr := $8
tay
jsr push_zp_addrs
tya
jsr icon_entry_lookup
stax entry_ptr
lda active_window_id
jsr window_lookup
stax winfo_ptr
;; Screen space
ldy #MGTK::winfo_offset_port + MGTK::grafport_offset_viewloc + 3
ldx #3
: lda (winfo_ptr),y
sta pos_screen,x
dey
dex
bpl :-
;; Window space
ldy #MGTK::winfo_offset_port + MGTK::grafport_offset_maprect + 3
ldx #3
: lda (winfo_ptr),y
sta pos_win,x
dey
dex
bpl :-
;; iconx
ldy #icon_entry_offset_iconx
lda (entry_ptr),y
clc
adc pos_screen
sta (entry_ptr),y
iny
lda (entry_ptr),y
adc pos_screen+1
sta (entry_ptr),y
iny
;; icony
lda (entry_ptr),y
clc
adc pos_screen+2
sta (entry_ptr),y
iny
lda (entry_ptr),y
adc pos_screen+3
sta (entry_ptr),y
;; iconx
ldy #icon_entry_offset_iconx
lda (entry_ptr),y
sec
sbc pos_win
sta (entry_ptr),y
iny
lda (entry_ptr),y
sbc pos_win+1
sta (entry_ptr),y
iny
;; icony
lda (entry_ptr),y
sec
sbc pos_win+2
sta (entry_ptr),y
iny
lda (entry_ptr),y
sbc pos_win+3
sta (entry_ptr),y
jsr pop_zp_addrs
rts
pos_screen: .word 0, 0
pos_win: .word 0, 0
.endproc
;;; ============================================================
;;; Convert icon's coordinates from window to screen (direction???)
;;; (icon index in A, active window)
.proc icon_window_to_screen
tay
jsr push_zp_addrs
tya
jsr icon_entry_lookup
stax $06
;; fall through
.endproc
;;; Convert icon's coordinates from window to screen (direction???)
;;; (icon entry pointer in $6, active window)
.proc icon_ptr_window_to_screen
entry_ptr := $6
winfo_ptr := $8
lda active_window_id
jsr window_lookup
stax winfo_ptr
ldy #MGTK::winfo_offset_port + MGTK::grafport_offset_viewloc + 3
ldx #3
: lda (winfo_ptr),y
sta pos_screen,x
dey
dex
bpl :-
ldy #MGTK::winfo_offset_port + MGTK::grafport_offset_maprect + 3
ldx #3
: lda (winfo_ptr),y
sta pos_win,x
dey
dex
bpl :-
;; iconx
ldy #icon_entry_offset_iconx
lda (entry_ptr),y
sec
sbc pos_screen
sta (entry_ptr),y
iny
lda (entry_ptr),y
sbc pos_screen+1
sta (entry_ptr),y
iny
;; icony
lda (entry_ptr),y
sec
sbc pos_screen+2
sta (entry_ptr),y
iny
lda (entry_ptr),y
sbc pos_screen+3
sta (entry_ptr),y
;; iconx
ldy #icon_entry_offset_iconx
lda (entry_ptr),y
clc
adc pos_win
sta (entry_ptr),y
iny
lda (entry_ptr),y
adc pos_win+1
sta (entry_ptr),y
iny
;; icony
lda (entry_ptr),y
clc
adc pos_win+2
sta (entry_ptr),y
iny
lda (entry_ptr),y
adc pos_win+3
sta (entry_ptr),y
jsr pop_zp_addrs
rts
pos_screen: .word 0, 0
pos_win: .word 0, 0
.endproc
;;; ============================================================
.proc zero_grafport5_coords
lda #0
tax
: sta grafport5::cliprect::x1,x
sta grafport5::viewloc::xcoord,x
sta grafport5::cliprect::x2,x
inx
cpx #4
bne :-
MGTK_RELAY_CALL MGTK::SetPort, grafport5
rts
.endproc
;;; ============================================================
gdi_data_buffer := $800
DEFINE_ON_LINE_PARAMS on_line_params,, gdi_data_buffer
.proc get_device_info
sta unit_number
sty device_num
and #$F0
sta on_line_params::unit_num
MLI_RELAY_CALL ON_LINE, on_line_params
beq success
retry: pha
ldy device_num
lda #0
sta devlst_copy,y
dec cached_window_icon_count
dec LDD9E
pla
rts
success:
lda gdi_data_buffer ; dr/slot/name_len
and #$0F ; mask off name len
bne create_icon
lda gdi_data_buffer+1 ; if name len is zero, second byte is error
jmp retry
create_icon:
icon_ptr := $6
jsr push_zp_addrs
jsr DESKTOP_ALLOC_ICON
ldy device_num
sta devlst_copy,y
jsr icon_entry_lookup
stax icon_ptr
;; Fill name with spaces
ldx #0
ldy #icon_entry_offset_len
lda #$20 ; ??? space? shouldn't this be at +1 ?
: sta (icon_ptr),y
iny
inx
cpx #icon_entry_name_bufsize+1
bne :-
;; Copy name, with leading/trailing space
ldy #icon_entry_offset_len
lda gdi_data_buffer
and #$0F
sta gdi_data_buffer
sta (icon_ptr),y
addr_call capitalize_string, gdi_data_buffer ; ???
ldx #0
ldy #icon_entry_offset_name+1 ; past leading space
: lda gdi_data_buffer+1,x
sta (icon_ptr),y
iny
inx
cpx gdi_data_buffer
bne :-
ldy #icon_entry_offset_len
lda (icon_ptr),y
clc
adc #2 ; leading/trailing space
sta (icon_ptr),y
;; Figure out icon
lda unit_number
cmp #$3E ; ??? Special case? Maybe RamWorks?
beq use_ramdisk_icon
and #$0F ; lower nibble
cmp #DT_PROFILE ; ProFile or Slinky-style RAM ?
bne use_floppy_icon
;; BUG: This defaults SmartPort hard drives to use floppy icons.
;; See https://github.com/inexorabletash/a2d/issues/6 for more
;; context; this code is basically unsalvageable per ProDOS
;; Tech Note #21.
;; Either ProFile or a "Slinky"/RamFactor-style Disk
lda unit_number ; bit 7 = drive (0=1, 1=2); 5-7 = slot
and #%01110000 ; mask off slot
lsr a
lsr a
lsr a
lsr a
ora #$C0
sta load_CxFB
load_CxFB := *+2
lda $C7FB ; self-modified $Cx7B
and #$01 ; $Cx7B bit 1 = ProFile, apparently???
beq use_profile_icon
;; fall through...
use_ramdisk_icon:
ldy #icon_entry_offset_iconbits
lda #<desktop_aux::ramdisk_icon
sta (icon_ptr),y
iny
lda #>desktop_aux::ramdisk_icon
sta (icon_ptr),y
jmp selected_device_icon
use_profile_icon:
ldy #icon_entry_offset_iconbits
lda #<desktop_aux::profile_icon
sta (icon_ptr),y
iny
lda #>desktop_aux::profile_icon
sta (icon_ptr),y
jmp selected_device_icon
use_floppy_icon:
cmp #$B ; removable / 4 volumes
bne use_floppy140_icon
ldy #icon_entry_offset_iconbits
lda #<desktop_aux::floppy800_icon
sta (icon_ptr),y
iny
lda #>desktop_aux::floppy800_icon
sta (icon_ptr),y
jmp selected_device_icon
use_floppy140_icon:
cmp #DT_DISKII ; 0 = Disk II
bne use_profile_icon ; last chance
ldy #icon_entry_offset_iconbits
lda #<desktop_aux::floppy140_icon
sta (icon_ptr),y
iny
lda #>desktop_aux::floppy140_icon
sta (icon_ptr),y
selected_device_icon:
;; Assign icon type
ldy #icon_entry_offset_win_type
lda #0
sta (icon_ptr),y
inc device_num
;; Assign icon coordinates
lda device_num
asl a ; device num * 4 is coordinates index
asl a
tax
ldy #icon_entry_offset_iconx
: lda desktop_icon_coords_table,x
sta (icon_ptr),y
inx
iny
cpy #icon_entry_offset_iconbits
bne :-
;; Assign icon number
ldx cached_window_icon_count
dex
ldy #icon_entry_offset_index
lda (icon_ptr),y
sta cached_window_icon_list,x
jsr pop_zp_addrs
return #0
.endproc
;;; ============================================================
unit_number: .byte 0
device_num: .byte 0
desktop_icon_coords_table:
DEFINE_POINT 0,0
DEFINE_POINT 490,16
DEFINE_POINT 490,45
DEFINE_POINT 490,75
DEFINE_POINT 490,103
DEFINE_POINT 490,131
DEFINE_POINT 400,160
DEFINE_POINT 310,160
DEFINE_POINT 220,160
DEFINE_POINT 130,160
DEFINE_POINT 40,160
DEFINE_GET_PREFIX_PARAMS get_prefix_params, L4824
;;; ============================================================
.proc remove_icon_from_window
ldx cached_window_icon_count
dex
: cmp cached_window_icon_list,x
beq remove
dex
bpl :-
rts
remove: lda cached_window_icon_list+1,x
sta cached_window_icon_list,x
inx
cpx cached_window_icon_count
bne remove
dec cached_window_icon_count
ldx cached_window_icon_count
lda #0
sta cached_window_icon_list,x
rts
.endproc
;;; ============================================================
L8B19: jsr push_zp_addrs
jmp L8B2E
L8B1F: lda icon_params2
bne L8B25
rts
L8B25: jsr push_zp_addrs
lda icon_params2
jsr L7345
;; fall through
.proc L8B2E
ptr := $6
lda icon_params2
ldx #7 ; ???
: cmp LEC26,x
beq :+
dex
bpl :-
jmp skip
: lda #0
sta LEC26,x
skip: lda icon_params2
jsr icon_entry_lookup
stax ptr
ldy #icon_entry_offset_win_type
lda (ptr),y
and #(~icon_entry_open_mask)&$FF ; clear open_flag
sta ($06),y
jsr L4244
jsr pop_zp_addrs
rts
.endproc
;;; ============================================================
.proc L8B5C
ldy #$80
bne :+
L8B60: ldy #$00
: sty L8D4A
stax L8D4B
txa
jsr window_lookup
stax $06
lda #$14
clc
adc #$23
tay
ldx #$23
: lda ($06),y
sta grafport2,x
dey
dex
bpl :-
lda L8D4B
jsr icon_entry_lookup
stax $06
ldy #$03
lda ($06),y
clc
adc #$07
sta L0800
sta $0804
iny
lda ($06),y
adc #$00
sta $0801
sta $0805
iny
lda ($06),y
clc
adc #$07
sta $0802
sta $0806
iny
lda ($06),y
adc #$00
sta $0803
sta $0807
ldy #$5B
ldx #$03
L8BC1: lda grafport2,x
sta L0800,y
dey
dex
bpl L8BC1
sub16 grafport2::cliprect::x2, grafport2::cliprect::x1, L8D54
sub16 grafport2::cliprect::y2, grafport2::cliprect::y1, L8D56
add16 $0858, L8D54, $085C
add16 $085A, L8D56, $085E
lda #$00
sta L8D4E
sta L8D4F
sta L8D4D
sub16 $0858, L0800, L8D50
sub16 $085A, $0802, L8D52
bit L8D51
bpl L8C6A
lda #$80
sta L8D4E
lda L8D50
eor #$FF
sta L8D50
lda L8D51
eor #$FF
sta L8D51
inc16 L8D50
L8C6A: bit L8D53
bpl L8C8C
lda #$80
sta L8D4F
lda L8D52
eor #$FF
sta L8D52
lda L8D53
eor #$FF
sta L8D53
inc16 L8D52
L8C8C: lsr16 L8D50
lsr16 L8D52
lsr16 L8D54
lsr16 L8D56
lda #$0A
sec
sbc L8D4D
asl a
asl a
asl a
tax
bit L8D4E
bpl :+
sub16 L0800, L8D50, L0800,x
jmp L8CDC
: add16 L0800, L8D50, L0800,x
L8CDC: bit L8D4F
bpl L8CF7
sub16 $0802, L8D52, $0802,x
jmp L8D0A
L8CF7: add16 $0802, L8D52, $0802,x
L8D0A: add16 L0800,x, L8D54, $0804,x
add16 $0802,x, L8D56, $0806,x
inc L8D4D
lda L8D4D
cmp #$0A
beq L8D3D
jmp L8C8C
L8D3D: bit L8D4A
bmi L8D46
jsr L8D58
rts
L8D46: jsr L8DB3
rts
L8D4A: .byte 0
L8D4B: .word 0
L8D4D: .byte 0
L8D4E: .byte 0
L8D4F: .byte 0
L8D50: .byte 0
L8D51: .byte 0
L8D52: .byte 0
L8D53: .byte 0
L8D54: .word 0
L8D56: .word 0
.endproc
L8B60 := L8B5C::L8B60
;;; ============================================================
.proc L8D58
lda #$00
sta L8DB2
jsr reset_grafport3
MGTK_RELAY_CALL MGTK::SetPattern, checkerboard_pattern3
jsr set_penmode_xor
L8D6C: lda L8DB2
cmp #$0C
bcs L8D89
asl a
asl a
asl a
clc
adc #7
tax
ldy #7
: lda L0800,x
sta rect_E230,y
dex
dey
bpl :-
jsr draw_rect_E230
L8D89: lda L8DB2
sec
sbc #$02
bmi L8DA7
asl a
asl a
asl a
clc
adc #$07
tax
ldy #7
L8D9A: lda L0800,x
sta rect_E230,y
dex
dey
bpl L8D9A
jsr draw_rect_E230
L8DA7: inc L8DB2
lda L8DB2
cmp #$0E
bne L8D6C
rts
L8DB2: .byte 0
.endproc
;;; ============================================================
.proc L8DB3
lda #$0B
sta L8E0F
jsr reset_grafport3
MGTK_RELAY_CALL MGTK::SetPattern, checkerboard_pattern3
jsr set_penmode_xor
loop: lda L8E0F
bmi L8DE4
beq L8DE4
asl a
asl a
asl a
clc
adc #$07
tax
ldy #7
: lda L0800,x
sta rect_E230,y
dex
dey
bpl :-
jsr draw_rect_E230
L8DE4: lda L8E0F
clc
adc #$02
cmp #$0E
bcs L8E04
asl a
asl a
asl a
clc
adc #$07
tax
ldy #7
L8DF7: lda L0800,x
sta rect_E230,y
dex
dey
bpl L8DF7
jsr draw_rect_E230
L8E04: dec L8E0F
lda L8E0F
cmp #$FD
bne loop
rts
L8E0F: .byte 0
.endproc
;;; ============================================================
.proc draw_rect_E230
MGTK_RELAY_CALL MGTK::FrameRect, rect_E230
rts
.endproc
;;; ============================================================
;;; Dynamically load parts of Desktop2
;;; Call load_dynamic_routine or restore_dynamic_routine
;;; with A set to routine number (0-8); routine is loaded
;;; from DeskTop2 file to target address. Returns with
;;; minus flag set on failure.
;;; Routines are:
;;; 0 = disk copy - A$ 800,L$ 200
;;; 1 = format/erase disk - A$ 800,L$1400 call w/ A = 4 = format, A = 5 = erase
;;; 2 = part of selector actions - A$9000,L$1000
;;; 3 = common routines - A$5000,L$2000
;;; 4 = part of copy file - A$7000,L$ 800
;;; 5 = part of delete file - A$7000,L$ 800
;;; 6 = part of selector actions - L$7000,L$ 800
;;; 7 = restore 1 - A$5000,L$2800 (restore $5000...$77FF)
;;; 8 = restore 2 - A$9000,L$1000 (restore $9000...$9FFF)
;;;
;;; Routines 2-6 need appropriate "restore routines" applied when complete.
.proc load_dynamic_routine_impl
pos_table:
.dword $00012FE0,$000160E0,$000174E0,$000184E0,$0001A4E0
.dword $0001ACE0,$0001B4E0,$0000B780,$0000F780
len_table:
.word $0200,$1400,$1000,$2000,$0800,$0800,$0800,$2800,$1000
addr_table:
.addr $0800,$0800,$9000,$5000,$7000,$7000,$7000,$5000,$9000
DEFINE_OPEN_PARAMS open_params, str_desktop2, $1C00
str_desktop2:
PASCAL_STRING "DeskTop2"
DEFINE_SET_MARK_PARAMS set_mark_params, 0
DEFINE_READ_PARAMS read_params, 0, 0
DEFINE_CLOSE_PARAMS close_params
restore_flag:
.byte 0
;; Called with routine # in A
load: pha ; entry point with bit clear
lda #$00
sta restore_flag
beq :+
restore:
pha
lda #$80 ; entry point with bit set
sta restore_flag
: pla
asl a ; y = A * 2 (to index into word table)
tay
asl a ; x = A * 4 (to index into dword table)
tax
lda pos_table,x
sta set_mark_params::position
lda pos_table+1,x
sta set_mark_params::position+1
lda pos_table+2,x
sta set_mark_params::position+2
copy16 len_table,y, read_params::request_count
copy16 addr_table,y, read_params::data_buffer
open: MLI_RELAY_CALL OPEN, open_params
beq :+
lda #warning_msg_insert_system_disk
ora restore_flag ; high bit set = no cancel
jsr show_warning_dialog_num
beq open
return #$FF ; failed
: lda open_params::ref_num
sta read_params::ref_num
sta set_mark_params::ref_num
MLI_RELAY_CALL SET_MARK, set_mark_params
MLI_RELAY_CALL READ, read_params
MLI_RELAY_CALL CLOSE, close_params
rts
.assert * = $8EFB, error, "Segment length mismatch"
PAD_TO $8F00
.endproc
load_dynamic_routine := load_dynamic_routine_impl::load
restore_dynamic_routine := load_dynamic_routine_impl::restore
;;; ============================================================
L8F00: jmp L8FC5
jmp rts2 ; rts
jmp rts2 ; rts
L8F09: jmp L92E7 ; cmd_get_info
L8F0C: jmp L8F9B ; cmd_lock
L8F0F: jmp L8FA1 ; cmd_unlock
L8F12: jmp L9571 ; cmd_rename_icon
L8F15: jmp L9213 ; cmd_eject ???
L8F18: jmp L8F2A ; cmd_copy_file ???
L8F1B: jmp L8F5B ; cmd_delete_file ???
jmp rts2 ; rts
jmp rts2 ; rts
L8F24: jmp L8F7E ; cmd_selector_action ???
L8F27: jmp L8FB8 ; cmd_get_size
;;; ============================================================
;; TODO: Break this down more?
.proc L8F2A
lda #0
sta L9189
tsx
stx stack_stash
jsr LA248
jsr L993E
jsr LA271
jsr L9968
L8F3F: copy16 #$00FF, LE05B
jsr L9A0D
jsr L917F
L8F4F: jsr L91E8
return #0
jsr L91D5
jmp L8F4F
L8F5B: lda #0
sta L9189
tsx
stx stack_stash
jsr LA248
lda #$00
jsr L9E7E
jsr LA271
jsr L9182
jsr L9EBF
jsr L9EDB
jsr L917F
jmp L8F4F
L8F7E: lda #$80
sta L918C
lda #$C0
sta L9189
tsx
stx stack_stash
jsr LA248
jsr L9984
jsr LA271
jsr L99BC
jmp L8F3F
L8F9B: jsr L8FDD
jmp L8F4F
L8FA1: jsr L8FE1
jmp L8F4F
L8FA7: asl a
tay
copy16 icon_entry_address_table,y, $06
ldy #icon_entry_offset_win_type
lda ($06),y
rts
L8FB8: lda #$00
sta L918C
lda #$C0
sta L9189
jmp L8FEB
L8FC5: lda LEBFC
cmp #$01
bne L8FD0
lda #$80
bne L8FD2
L8FD0: lda #$00
L8FD2: sta L918A
lda #0
sta L9189
jmp L8FEB
L8FDD: lda #$00
beq L8FE3
L8FE1: lda #$80
L8FE3: sta L918B
lda #$80
sta L9189
L8FEB: tsx
stx stack_stash
lda #$00
sta LE05C
jsr L91D5
lda L9189
beq :+
jmp L908C
: bit L918A
bpl L9011
lda selected_window_index
beq :+
jmp L908C
: pla
pla
jmp JT_EJECT
L9011: lda LEBFC
bpl L9032
and #$7F
asl a
tax
copy16 window_address_table,x, $08
copy16 #L917B, $06
jsr join_paths
jmp L9076
L9032: jsr L8FA7
and #$0F
beq L9051
asl a
tax
copy16 window_address_table,x, $08
lda LEBFC
jsr icon_entry_name_lookup
jsr join_paths
jmp L9076
L9051: lda LEBFC
jsr icon_entry_name_lookup
ldy #$01
lda #$2F
sta ($06),y
dey
lda ($06),y
sta L906D
sta path_buf3,y
L9066: iny
lda ($06),y
sta path_buf3,y
L906D := *+1
cpy #$00 ; self-modified
bne L9066
ldy #$01
lda #$20
sta ($06),y
L9076: ldy #$FF
L9078: iny
lda path_buf3,y
sta path_buf4,y
cpy path_buf3
bne L9078
lda path_buf4
beq L908C
dec path_buf4
L908C: lda #$00
sta L97E4
jsr LA248
bit L9189
bvs L90B4
bmi L90AE
bit L918A
bmi L90A6
jsr L993E
jmp L90DE
L90A6: lda #$06
jsr L9E7E
jmp L90DE
L90AE: jsr LA059
jmp L90DE
L90B4: jsr LA1E4
jmp L90DE
L90BA: bit L9189
bvs L90D8
bmi L90D2
bit L918A
bmi L90CC
jsr L9968
jmp L90DE
L90CC: jsr L9EBF
jmp L90DE
L90D2: jsr LA0DF
jmp L90DE
L90D8: jsr LA241
jmp L90DE
L90DE: jsr L91F5
lda selected_icon_count
bne L90E9
jmp L9168
L90E9: ldx #$00
stx L917A
L90EE: jsr L91F5
ldx L917A
lda selected_icon_list,x
cmp #$01
beq L9140
jsr icon_entry_name_lookup
jsr join_paths
copy16 #path_buf3, $06
ldy #$00
lda ($06),y
beq L9114
sec
sbc #$01
sta ($06),y
L9114: lda L97E4
beq L913D
bit L9189
bmi L912F
bit L918A
bmi L9129
jsr L9A01
jmp L9140
L9129: jsr L9EDB
jmp L9140
L912F: bvs L9137
jsr LA114
jmp L9140
L9137: jsr LA271
jmp L9140
L913D: jsr LA271
L9140: inc L917A
ldx L917A
cpx selected_icon_count
bne L90EE
lda L97E4
bne L9168
inc L97E4
bit L9189
bmi L915D
bit L918A
bpl L9165
L915D: jsr L9182
bit L9189
bvs L9168
L9165: jmp L90BA
L9168: jsr L917F
lda LEBFC
jsr icon_entry_name_lookup
ldy #$01
lda #$20
sta ($06),y
return #0
L917A: .byte 0
L917B: .byte 0
.endproc
L8F5B := L8F2A::L8F5B
L8F7E := L8F2A::L8F7E
L8F9B := L8F2A::L8F9B
L8FA1 := L8F2A::L8FA1
L8FB8 := L8F2A::L8FB8
L8FC5 := L8F2A::L8FC5
;;; ============================================================
;; Dynamically constructed jump table???
L917D := *+1
L917C: jmp dummy0000
L9180 := *+1
L917F: jmp dummy0000
L9183 := *+1
L9182: jmp dummy0000
L9186 := *+1
L9185: jmp dummy0000
stack_stash:
.byte 0
L9189: .byte 0
L918A: .byte 0
L918B: .byte 0
L918C: .byte 0
L918D: .byte 0
;;; ============================================================
;;; For icon index in A, put pointer to name in $6
.proc icon_entry_name_lookup
asl a
tay
add16 icon_entry_address_table,y, #icon_entry_offset_len, $06
rts
.endproc
;;; ============================================================
.proc join_paths
str1 := $8
str2 := $6
buf := path_buf3
ldx #0
ldy #0
lda (str1),y
beq do_str2
;; Copy $8 (str1)
sta len1
: iny
inx
lda (str1),y
sta buf,x
len1 := *+1
cpy #0 ; self-modified
bne :-
do_str2:
;; Add path separator
inx
lda #'/'
sta buf,x
;; Append $6 (str2)
ldy #0
lda (str2),y
beq done
sta len2
iny
: iny
inx
lda (str2),y
sta buf,x
len2 := *+1
cpy #0 ; self-modified
bne :-
done: stx buf
rts
.endproc
;;; ============================================================
L91D5: yax_call JT_MGTK_RELAY, MGTK::InitPort, grafport3
yax_call JT_MGTK_RELAY, MGTK::SetPort, grafport3
rts
L91E8: jsr JT_REDRAW_ALL
yax_call JT_DESKTOP_RELAY, $C, 0
rts
.proc L91F5
copy16 #L9211, $08
lda selected_window_index
beq L9210
asl a
tax
copy16 window_address_table,x, $08
lda #$00
L9210: rts
L9211: .addr 0
.endproc
.proc L9213
lda selected_icon_count
bne :+
rts
: ldx selected_icon_count
stx L0800
dex
: lda selected_icon_list,x
sta $0801,x
dex
bpl :-
jsr JT_CLEAR_SELECTION
ldx #0
stx index
loop: ldx index
lda $0801,x
cmp #$01
beq :+
jsr smartport_eject
: inc index
ldx index
cpx L0800
bne loop
rts
index: .byte 0
.endproc
.proc smartport_eject
ptr := $6
sta compare
ldy #0
loop: lda devlst_copy,y
compare := *+1
cmp #0
beq found
cpy DEVCNT
beq exit
iny
bne loop
exit: rts
found: lda DEVLST,y ;
sta unit_num
;; Compute driver address ($BFds for Slot s Drive d)
ldx #$11
lda unit_num
and #$80 ; high bit is drive (0=D1, 1=D2)
beq :+
ldx #$21
: stx bf_lo ; D1=$11, D2=$21
lda unit_num
and #$70
lsr a
lsr a
lsr a
clc
adc bf_lo
sta bf_lo
bf_lo := *+1
lda $BF00 ; self-modified to $BFds
sta ptr+1
lda #0 ; Bug: assumes driver is at $XX00 ???
sta ptr ; Bug: Should check driver is $Cn before continuing
ldy #7
lda (ptr),y ; $Cn07 == 0 for SmartPort
bne exit
ldy #$FB ; $CnFB low bits???
lda (ptr),y
and #$7F
bne exit
;; Locate SmartPort entry point: $Cn00 + ($CnFF) + 3
ldy #$FF
lda (ptr),y
clc
adc #3
sta ptr
lda unit_num
pha
rol a
pla
php
and #$20
lsr a
lsr a
lsr a
lsr a
plp
adc #1
sta control_unit_number
jsr call
.byte $04 ; $04 = CONTROL
.addr control_params
rts
call: jmp ($06)
.proc control_params
param_count: .byte 3
unit_number: .byte $0
control_list: .addr list
control_code: .byte 4 ; Eject disk
.endproc
control_unit_number := control_params::unit_number
list: .word 0 ; 0 items in list
unit_num:
.byte 0
.byte 0 ; unused???
.endproc
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params5, $220
L92DB: .byte 0,0
DEFINE_READ_BLOCK_PARAMS block_params, $0800, $A
L92E3: .byte $00
L92E4: .word 0
L92E6: .byte $00
.proc L92E7
lda selected_icon_count
bne L92ED
rts
L92ED: lda #$00
sta L92E6
jsr L91D5
L92F5: ldx L92E6
cpx selected_icon_count
bne L9300
jmp L9534
L9300: lda selected_window_index
beq L9331
asl a
tax
copy16 window_address_table,x, $08
ldx L92E6
lda selected_icon_list,x
jsr icon_entry_name_lookup
jsr join_paths
ldy #$00
L931F: lda path_buf3,y
sta $220,y
iny
cpy $220
bne L931F
dec $220
jmp L9356
L9331: ldx L92E6
lda selected_icon_list,x
cmp #$01
bne L933E
jmp L952E
L933E: jsr icon_entry_name_lookup
ldy #$00
L9343: lda ($06),y
sta $220,y
iny
cpy $220
bne L9343
dec $220
lda #'/'
sta $0221
L9356: yax_call JT_MLI_RELAY, GET_FILE_INFO, get_file_info_params5
beq L9366
jsr show_error_alert
beq L9356
L9366: lda selected_window_index
beq L9387
lda #$80
sta L92E3
lda L92E6
clc
adc #$01
cmp selected_icon_count
beq L9381
inc L92E3
inc L92E3
L9381: jsr launch_get_info_dialog
jmp L93DB
L9387: lda #$81
sta L92E3
lda L92E6
clc
adc #$01
cmp selected_icon_count
beq L939D
inc L92E3
inc L92E3
L939D: jsr launch_get_info_dialog
lda #$00
sta L942E
ldx L92E6
lda selected_icon_list,x
ldy #$0F
L93AD: cmp devlst_copy,y
beq L93B8
dey
bpl L93AD
jmp L93DB
L93B8: lda DEVLST,y
sta block_params::unit_num
yax_call JT_MLI_RELAY, READ_BLOCK, block_params
bne L93DB
yax_call JT_MLI_RELAY, WRITE_BLOCK, block_params
cmp #$2B
bne L93DB
lda #$80
sta L942E
L93DB: ldx L92E6
lda selected_icon_list,x
jsr icon_entry_name_lookup
lda #$01
sta L92E3
copy16 $06, L92E4
jsr launch_get_info_dialog
lda #$02
sta L92E3
lda selected_window_index
bne L9413
bit L942E
bmi L940C
lda #$00
sta L92E4
beq L9428
L940C: lda #$01
sta L92E4
bne L9428
L9413: lda get_file_info_params5::access
and #$C3
cmp #$C3
beq L9423
lda #$01
sta L92E4
bne L9428
L9423: lda #$00
sta L92E4
L9428: jsr launch_get_info_dialog
jmp L942F
L942E: .byte 0
L942F: lda #$03
sta L92E3
lda #$00
sta $220
lda selected_window_index
bne L9472 ; ProDOS TRM 4.4.5:
lda get_file_info_params5::aux_type ; "When file information about a volume
sec ; directory is requested, the total
sbc get_file_info_params5::blocks_used ; number of blocks on the volume is
pha ; returned in the aux_type field and
lda get_file_info_params5::aux_type+1 ; the total blocks for all files is
sbc get_file_info_params5::blocks_used+1 ; returned in blocks_used."
tax
pla
jsr JT_SIZE_STRING
jsr L9549
ldx #$00
L9456: lda text_buffer2::data-1,x
cmp #$42
beq L9460
inx
bne L9456
L9460: stx $220
lda #'/'
sta $220,x
dex
L9469: lda text_buffer2::data-1,x
sta $220,x
dex
bne L9469
L9472: lda selected_window_index
bne L9480
ldax get_file_info_params5::aux_type
jmp L9486
L9480: ldax get_file_info_params5::blocks_used
L9486: jsr JT_SIZE_STRING
jsr L9549
ldx $220
ldy #$00
L9491: lda text_buffer2::data,y
sta $0221,x
inx
iny
cpy text_buffer2::length
bne L9491
tya
clc
adc $220
sta $220
ldx $220
L94A9: lda $220,x
sta path_buf4,x
dex
bpl L94A9
lda #<path_buf4
sta L92E4
lda #>path_buf4
sta L92E4+1
jsr launch_get_info_dialog
lda #$04
sta L92E3
copy16 get_file_info_params5::create_date, date
jsr JT_DATE_STRING
copy16 #text_buffer2::length, L92E4
jsr launch_get_info_dialog
lda #$05
sta L92E3
copy16 get_file_info_params5::mod_date, date
jsr JT_DATE_STRING
copy16 #text_buffer2::length, L92E4
jsr launch_get_info_dialog
lda #$06
sta L92E3
lda selected_window_index
bne L9519
ldx L953A
L950E: lda L953A,x
sta LDFC5,x
dex
bpl L950E
bmi L951F
L9519: lda get_file_info_params5::file_type
jsr L402D
L951F: copy16 #LDFC5, L92E4
jsr launch_get_info_dialog
bne L9534
L952E: inc L92E6
jmp L92F5
L9534: lda #$00
sta path_buf4
rts
L953A: PASCAL_STRING " VOL"
.proc launch_get_info_dialog
yax_call launch_dialog, index_get_info_dialog, L92E3
rts
.endproc
L9549: ldx #$00
L954B: lda text_buffer2::data,x
cmp #$20
bne L9555
inx
bne L954B
L9555: ldy #$00
dex
L9558: lda text_buffer2::data,x
sta text_buffer2::data,y
iny
inx
cpx text_buffer2::length
bne L9558
sty text_buffer2::length
rts
.endproc
L92F5 := L92E7::L92F5
;;; ============================================================
.proc L9571_impl
DEFINE_RENAME_PARAMS rename_params, $220, $1FC0
rename_dialog_params:
.byte 0
.addr $1F00
start:
lda #$00
sta L9706
L9576: lda L9706
cmp selected_icon_count
bne L9581
return #0
L9581: ldx L9706
lda selected_icon_list,x
cmp #$01
bne L9591
inc L9706
jmp L9576
L9591: lda selected_window_index
beq L95C2
asl a
tax
copy16 window_address_table,x, $08
ldx L9706
lda selected_icon_list,x
jsr icon_entry_name_lookup
jsr join_paths
ldy #$00
L95B0: lda path_buf3,y
sta $220,y
iny
cpy $220
bne L95B0
dec $220
jmp L95E0
L95C2: ldx L9706
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy #$00
L95CD: lda ($06),y
sta $220,y
iny
cpy $220
bne L95CD
dec $220
lda #'/'
sta $0221
L95E0: ldx L9706
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy #$00
lda ($06),y
tay
L95EE: lda ($06),y
sta $1F12,y
dey
bpl L95EE
ldy #$00
lda ($06),y
tay
dey
sec
sbc #$02
sta $1F00
L9602: lda ($06),y
sta $1EFF,y
dey
cpy #$01
bne L9602
lda #$00
jsr L96F8
L9611: lda #$80
jsr L96F8
beq L962F
L9618: ldx L9706
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy $1F12
L9624: lda $1F12,y
sta ($06),y
dey
bpl L9624
return #$FF
L962F: sty $08
sty L9707
stx $08+1
stx L9708
lda selected_window_index
beq L964D
asl a
tax
copy16 window_address_table,x, $06
jmp L9655
L964D: copy16 #L9705, $06
L9655: ldy #$00
lda ($06),y
tay
L965A: lda ($06),y
sta $1FC0,y
dey
bpl L965A
inc $1FC0
ldx $1FC0
lda #'/'
sta $1FC0,x
ldy #$00
lda ($08),y
sta L9709
L9674: inx
iny
lda ($08),y
sta $1FC0,x
cpy L9709
bne L9674
stx $1FC0
yax_call JT_MLI_RELAY, RENAME, rename_params
beq L969E
jsr JT_SHOW_ALERT0
bne L9696
jmp L9611
L9696: lda #$40
jsr L96F8
jmp L9618
L969E: lda #$40
jsr L96F8
ldx L9706
lda selected_icon_list,x
sta LE22B
yax_call JT_DESKTOP_RELAY, $E, LE22B
copy16 L9707, $08
ldx L9706
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy #$00
lda ($08),y
clc
adc #$02
sta ($06),y
lda ($08),y
tay
inc16 $06
L96DA: lda ($08),y
sta ($06),y
dey
bne L96DA
dec $06
lda $06
cmp #$FF
bne L96EB
dec $06+1
L96EB: lda ($06),y
tay
lda #' '
sta ($06),y
inc L9706
jmp L9576
L96F8: sta rename_dialog_params
yax_call launch_dialog, index_rename_dialog, rename_dialog_params
rts
L9705: .byte $00
L9706: .byte $00
L9707: .byte $00
L9708: .byte $00
L9709: .byte $00
.endproc
L9571 := L9571_impl::start
;;; ============================================================
DEFINE_OPEN_PARAMS open_params3, $220, $800
DEFINE_READ_PARAMS read_params3, L9718, 4
L9718: .res 4, 0
DEFINE_CLOSE_PARAMS close_params6
DEFINE_READ_PARAMS read_params4, L97AD, $27
DEFINE_READ_PARAMS read_params5, L972E, 5
L972E: .res 5, 0
.res 4, 0
DEFINE_CLOSE_PARAMS close_params5
DEFINE_CLOSE_PARAMS close_params3
DEFINE_DESTROY_PARAMS destroy_params, $220
DEFINE_OPEN_PARAMS open_params4, $220, $0D00
DEFINE_OPEN_PARAMS open_params5, $1FC0, $1100
DEFINE_READ_PARAMS read_params6, $1500, $AC0
DEFINE_WRITE_PARAMS write_params, $1500, $AC0
DEFINE_CREATE_PARAMS create_params3, $1FC0, ACCESS_DEFAULT
DEFINE_CREATE_PARAMS create_params2, $1FC0
.byte $00,$00
DEFINE_GET_FILE_INFO_PARAMS file_info_params2, $220
.byte 0
DEFINE_GET_FILE_INFO_PARAMS file_info_params3, $1FC0
.byte 0
DEFINE_SET_EOF_PARAMS set_eof_params, 0
DEFINE_SET_MARK_PARAMS mark_params, 0
DEFINE_SET_MARK_PARAMS mark_params2, 0
DEFINE_ON_LINE_PARAMS on_line_params2,, $800
;;; ============================================================
L97AD: .res 16, 0
L97BD: .res 32, 0
L97DD: .addr L9B36
L97DF: .addr L9B33
L97E1: .addr rts2
rts2: rts
L97E4: .byte $00
L97E5: ldx LE10C
lda LE061
sta LE062,x
inx
stx LE10C
rts
L97F3: ldx LE10C
dex
lda LE062,x
sta LE061
stx LE10C
rts
.proc L9801
lda #$00
sta LE05F
sta LE10D
L9809: yax_call JT_MLI_RELAY, OPEN, open_params3
beq L981E
ldx #$80
jsr JT_SHOW_ALERT
beq L9809
jmp LA39F
L981E: lda open_params3::ref_num
sta LE060
sta read_params3::ref_num
L9827: yax_call JT_MLI_RELAY, READ, read_params3
beq L983C
ldx #$80
jsr JT_SHOW_ALERT
beq L9827
jmp LA39F
L983C: jmp L985B
.endproc
.proc L983F
lda LE060
sta close_params6::ref_num
L9845: yax_call JT_MLI_RELAY, CLOSE, close_params6
beq L985A
ldx #$80
jsr JT_SHOW_ALERT
beq L9845
jmp LA39F
L985A: rts
.endproc
.proc L985B
inc LE05F
lda LE060
sta read_params4::ref_num
L9864: yax_call JT_MLI_RELAY, READ, read_params4
beq L987D
cmp #$4C
beq L989F
ldx #$80
jsr JT_SHOW_ALERT
beq L9864
jmp LA39F
L987D: inc LE10D
lda LE10D
cmp LE05E
bcc L989C
lda #$00
sta LE10D
lda LE060
sta read_params5::ref_num
yax_call JT_MLI_RELAY, READ, read_params5
L989C: return #0
L989F: return #$FF
.endproc
;;; ============================================================
L98A2: lda LE05F
sta LE061
jsr L983F
jsr L97E5
jsr append_to_path_220
jmp L9801
.proc L98B4
jsr L983F
jsr L992A
jsr remove_path_segment_220
jsr L97F3
jsr L9801
jsr sub
jmp L9927
sub: lda LE05F
cmp LE061
beq done
jsr L985B
jmp sub
done: rts
.endproc
.proc L98D8
lda #$00
sta LE05D
jsr L9801
L98E0: jsr L985B
bne L9912
lda L97AD
beq L98E0
lda L97AD
sta L992D
and #$0F
sta L97AD
lda #$00
sta L9923
jsr L9924
lda L9923
bne L98E0
lda L97BD
cmp #$0F
bne L98E0
jsr L98A2
inc LE05D
jmp L98E0
L9912: lda LE05D
beq L9920
jsr L98B4
dec LE05D
jmp L98E0
L9920: jmp L983F
.endproc
L9923: .byte 0
L9924: jmp (L97DD)
L9927: jmp (L97DF)
L992A: jmp (L97E1)
L992D: .byte $00,$00,$00,$00
L9931: .addr L9B36 ; Overlay for L97DD
.addr L9B33
.addr rts2
L9937: .byte 0
L9938: .addr 0
.addr $220
.addr $1FC0
.proc L993E
lda #0
sta L9937
copy16 #L995A, L917D
copy16 #L997C, L9180
jmp L9BBF
L995A: stax L9938
lda #1
sta L9937
jmp L9BBF
.endproc
L9968: ldy #5
L996A: lda L9931,y
sta L97DD,y
dey
bpl L996A
lda #$00
sta LA425
sta L918D
rts
L997C: lda #5
sta L9937
jmp L9BBF
L9984: lda #0
sta L9937
copy16 #L99A7, L917D
copy16 #L99DC, L9180
yax_call launch_dialog, index_download_dialog, L9937
rts
L99A7: stax L9938
lda #1
sta L9937
yax_call launch_dialog, index_download_dialog, L9937
rts
L99BC: lda #$80
sta L918D
ldy #5
L99C3: lda L9931,y
sta L97DD,y
dey
bpl L99C3
lda #0
sta LA425
copy16 #L99EB, L9186
rts
L99DC: lda #3
sta L9937
yax_call launch_dialog, index_download_dialog, L9937
rts
L99EB: lda #4
sta L9937
yax_call launch_dialog, index_download_dialog, L9937
cmp #2
bne L99FE
rts
L99FE: jmp LA39F
;;; ============================================================
.proc L9A01
copy16 #$0080, LE05B
beq L9A0F
L9A0D: lda #$FF
L9A0F: sta L9B31
lda #2
sta L9937
jsr LA379
bit L9189
bvc L9A22
jsr L9BC9
L9A22: bit LE05B
bpl L9A70
bvs L9A50
lda L9B31
bne L9A36
lda selected_window_index
bne L9A36
jmp L9B28
L9A36: ldx $1FC0
ldy L9B32
dey
L9A3D: iny
inx
lda $220,y
sta $1FC0,x
cpy $220
bne L9A3D
stx $1FC0
jmp L9A70
L9A50: ldx $1FC0
lda #'/'
sta $1FC1,x
inc $1FC0
ldy #$00
ldx $1FC0
L9A60: iny
inx
lda LE04B,y
sta $1FC0,x
cpy LE04B
bne L9A60
stx $1FC0
L9A70: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq L9A81
jsr show_error_alert
jmp L9A70
L9A81: lda file_info_params2::storage_type
cmp #ST_VOLUME_DIRECTORY
beq L9A90
cmp #ST_LINKED_DIRECTORY
beq L9A90
lda #$00
beq L9A95
L9A90: jsr decrement_LA2ED
lda #$FF
L9A95: sta L9B30
jsr LA40A
lda LA2ED+1
bne L9AA8
lda LA2ED
bne L9AA8
jmp LA39F
L9AA8: ldy #$07
L9AAA: lda file_info_params2,y
sta create_params2,y
dey
cpy #$02
bne L9AAA
lda #ACCESS_DEFAULT
sta create_params2::access
lda LE05B
beq L9B23
jsr L9C01
bcs L9B2C
ldy #$11
ldx #$0B
L9AC8: lda file_info_params2,y
sta create_params2,x
dex
dey
cpy #$0D
bne L9AC8
lda create_params2::storage_type
cmp #ST_VOLUME_DIRECTORY
bne L9AE0
lda #ST_LINKED_DIRECTORY
sta create_params2::storage_type
L9AE0: yax_call JT_MLI_RELAY, CREATE, create_params2
beq L9B23
cmp #$47
bne L9B1D
bit L918D
bmi L9B14
lda #3
sta L9937
jsr L9BBF
pha
lda #2
sta L9937
pla
cmp #$02
beq L9B14
cmp #$03
beq L9B2C
cmp #$04
bne L9B1A
lda #$80
sta L918D
L9B14: jsr LA426
jmp L9B23
L9B1A: jmp LA39F
L9B1D: jsr show_error_alert
jmp L9AE0
L9B23: lda L9B30
beq L9B2D
L9B28: jmp L98D8
.byte 0
L9B2C: rts
L9B2D: jmp L9CDA
L9B30: .byte 0
L9B31: .byte 0
.endproc
L9A0D := L9A01::L9A0D
L9B32: .byte 0
;;; ============================================================
L9B33: jmp LA360
;;; ============================================================
.proc L9B36
jsr check_escape_key_down
beq :+
jmp LA39F
: lda L97BD
cmp #$0F
bne L9B88
jsr append_to_path_220
: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq L9B59
jsr show_error_alert
jmp :-
L9B59: jsr LA33B
jsr LA40A
jsr decrement_LA2ED
lda LA2ED+1
bne L9B6F
lda LA2ED
bne L9B6F
jmp LA39F
L9B6F: jsr L9E19
bcs L9B7A
jsr remove_path_segment_220
jmp L9BBE
L9B7A: jsr LA360
jsr remove_path_segment_220
lda #$FF
sta L9923
jmp L9BBE
L9B88: jsr LA33B
jsr append_to_path_220
jsr LA40A
L9B91: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq L9BA2
jsr show_error_alert
jmp L9B91
L9BA2: jsr L9C01
bcc L9BAA
jmp LA39F
L9BAA: jsr remove_path_segment_220
jsr L9E19
bcs L9BBB
jsr append_to_path_220
jsr L9CDA
jsr remove_path_segment_220
L9BBB: jsr LA360
L9BBE: rts
.endproc
;;; ============================================================
L9BBF: yax_call launch_dialog, index_copy_file_dialog, L9937
rts
;;; ============================================================
.proc L9BC9
yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params3
beq L9BDA
jsr show_error_alert_dst
jmp L9BC9
L9BDA: sub16 file_info_params3::aux_type, file_info_params3::blocks_used, L9BFF
cmp16 L9BFF, LA2EF
bcs L9BFE
jmp L9185
L9BFE: rts
L9BFF: .word 0
.endproc
;;; ============================================================
L9C01: jsr L9C1A
bcc L9C19
lda #4
sta L9937
jsr L9BBF
beq L9C13
jmp LA39F
L9C13: lda #3
sta L9937
sec
L9C19: rts
;;; ============================================================
.proc L9C1A
yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq L9C2B
jsr show_error_alert
jmp L9C1A
L9C2B: lda #$00
sta L9CD8
sta L9CD9
L9C33: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params3
beq L9C48
cmp #$46
beq L9C54
jsr show_error_alert_dst
jmp L9C33
L9C48: copy16 file_info_params3::blocks_used, L9CD8
L9C54: lda $1FC0
sta L9CD6
ldy #$01
L9C5C: iny
cpy $1FC0
bcs L9CCC
lda $1FC0,y
cmp #$2F
bne L9C5C
tya
sta $1FC0
sta L9CD7
L9C70: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params3
beq L9C95
pha
lda L9CD6
sta $1FC0
pla
jsr show_error_alert_dst
jmp L9C70
lda L9CD7
sta $1FC0
jmp L9C70
jmp LA39F
L9C95: sub16 file_info_params3::aux_type, file_info_params3::blocks_used, L9CD4
add16 L9CD4, L9CD8, L9CD4
cmp16 L9CD4, file_info_params2::blocks_used
bcs L9CCC
sec
bcs L9CCD
L9CCC: clc
L9CCD: lda L9CD6
sta $1FC0
rts
L9CD4: .word 0
L9CD6: .byte 0
L9CD7: .byte 0
L9CD8: .byte 0
L9CD9: .byte 0
.endproc
;;; ============================================================
.proc L9CDA
jsr decrement_LA2ED
lda #$00
sta L9E17
sta L9E18
sta mark_params::position
sta mark_params::position+1
sta mark_params::position+2
sta mark_params2::position
sta mark_params2::position+1
sta mark_params2::position+2
jsr L9D62
jsr L9D74
jsr L9D81
beq L9D09
lda #$FF
sta L9E17
bne L9D0C
L9D09: jsr L9D9C
L9D0C: jsr L9DA9
bit L9E17
bpl L9D28
jsr L9E0D
L9D17: jsr L9D81
bne L9D17
jsr L9D9C
yax_call JT_MLI_RELAY, SET_MARK, mark_params2
L9D28: bit L9E18
bmi L9D51
jsr L9DE8
bit L9E17
bpl L9D0C
jsr L9E03
jsr L9D62
jsr L9D74
yax_call JT_MLI_RELAY, SET_MARK, mark_params
beq L9D0C
lda #$FF
sta L9E18
jmp L9D0C
L9D51: jsr L9E03
bit L9E17
bmi L9D5C
jsr L9E0D
L9D5C: jsr LA46D
jmp LA479
L9D62: yax_call JT_MLI_RELAY, OPEN, open_params4
beq L9D73
jsr show_error_alert
jmp L9D62
L9D73: rts
L9D74: lda open_params4::ref_num
sta read_params6::ref_num
sta close_params5::ref_num
sta mark_params::ref_num
rts
L9D81: yax_call JT_MLI_RELAY, OPEN, open_params5
beq L9D9B
cmp #$45
beq L9D96
jsr show_error_alert_dst
jmp L9D81
L9D96: jsr show_error_alert_dst
lda #$45
L9D9B: rts
L9D9C: lda open_params5::ref_num
sta write_params::ref_num
sta close_params3::ref_num
sta mark_params2::ref_num
rts
L9DA9: copy16 #$0AC0, read_params6::request_count
L9DB3: yax_call JT_MLI_RELAY, READ, read_params6
beq L9DC8
cmp #$4C
beq L9DD9
jsr show_error_alert
jmp L9DB3
L9DC8: copy16 read_params6::trans_count, write_params::request_count
ora read_params6::trans_count
bne L9DDE
L9DD9: lda #$FF
sta L9E18
L9DDE: yax_call JT_MLI_RELAY, GET_MARK, mark_params
rts
L9DE8: yax_call JT_MLI_RELAY, WRITE, write_params
beq L9DF9
jsr show_error_alert_dst
jmp L9DE8
L9DF9: yax_call JT_MLI_RELAY, GET_MARK, mark_params2
rts
L9E03: yax_call JT_MLI_RELAY, CLOSE, close_params3
rts
L9E0D: yax_call JT_MLI_RELAY, CLOSE, close_params5
rts
L9E17: .byte 0
L9E18: .byte 0
.endproc
.proc L9E19
ldx #$07
L9E1B: lda file_info_params2,x
sta create_params3,x
dex
cpx #$03
bne L9E1B
L9E26: yax_call JT_MLI_RELAY, CREATE, create_params3
beq L9E6F
cmp #$47
bne L9E69
bit L918D
bmi L9E60
lda #3
sta L9937
yax_call launch_dialog, index_copy_file_dialog, L9937
pha
lda #2
sta L9937
pla
cmp #$02
beq L9E60
cmp #$03
beq L9E71
cmp #$04
bne L9E66
lda #$80
sta L918D
L9E60: jsr LA426
jmp L9E6F
L9E66: jmp LA39F
L9E69: jsr show_error_alert_dst
jmp L9E26
L9E6F: clc
rts
L9E71: sec
rts
.endproc
L9E73: .addr L9F94 ; Overlay for L97DD
.addr rts2
.addr LA02E
L9E79: .byte 0
L9E7A: .word 0
.addr $220
L9E7E: sta L9E79
copy16 #L9EB1, L9183
copy16 #L9EA3, L917D
jsr LA044
copy16 #L9ED3, L9180
rts
L9EA3: stax L9E7A
lda #1
sta L9E79
jmp LA044
L9EB1: lda #$02
sta L9E79
jsr LA044
beq L9EBE
jmp LA39F
L9EBE: rts
L9EBF: ldy #5
L9EC1: lda L9E73,y
sta L97DD,y
dey
bpl L9EC1
lda #$00
sta LA425
sta L918D
rts
L9ED3: lda #$05
sta L9E79
jmp LA044
;;; ============================================================
.proc L9EDB
lda #$03
sta L9E79
jsr LA379
L9EE3: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq L9EF4
jsr show_error_alert
jmp L9EE3
L9EF4: lda file_info_params2::storage_type
sta L9F1D
cmp #ST_LINKED_DIRECTORY
beq L9F02
lda #$00
beq L9F04
L9F02: lda #$FF
L9F04: sta L9F1C
beq L9F1E
jsr L98D8
lda L9F1D
cmp #$0D
bne L9F18
lda #$FF
sta L9F1D
L9F18: jmp L9F1E
rts
L9F1C: .byte 0
L9F1D: .byte 0
L9F1E: bit LE05C
bmi L9F26
jsr LA3EF
L9F26: jsr decrement_LA2ED
L9F29: yax_call JT_MLI_RELAY, DESTROY, destroy_params
beq L9F8D
cmp #$4E
bne L9F8E
bit L918D
bmi L9F62
lda #$04
sta L9E79
jsr LA044
pha
lda #$03
sta L9E79
pla
cmp #$03
beq L9F8D
cmp #$02
beq L9F62
cmp #$04
bne L9F5F
lda #$80
sta L918D
bne L9F62
L9F5F: jmp LA39F
L9F62: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
lda file_info_params2::access
and #$80
bne L9F8D
lda #ACCESS_DEFAULT
sta file_info_params2::access
lda #7 ; param count for SET_FILE_INFO
sta file_info_params2
yax_call JT_MLI_RELAY, SET_FILE_INFO, file_info_params2
lda #$A ; param count for GET_FILE_INFO
sta file_info_params2
jmp L9F29
L9F8D: rts
L9F8E: jsr show_error_alert
jmp L9F29
.endproc
;;; ============================================================
.proc L9F94
jsr check_escape_key_down
beq :+
jmp LA39F
: jsr append_to_path_220
bit LE05C
bmi L9FA7
jsr LA3EF
L9FA7: jsr decrement_LA2ED
L9FAA: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq L9FBB
jsr show_error_alert
jmp L9FAA
L9FBB: lda file_info_params2::storage_type
cmp #ST_LINKED_DIRECTORY
beq LA022
L9FC2: yax_call JT_MLI_RELAY, DESTROY, destroy_params
beq LA022
cmp #$4E
bne LA01C
bit L918D
bmi LA001
lda #$04
sta L9E79
yax_call launch_dialog, index_delete_file_dialog, L9E79
pha
lda #$03
sta L9E79
pla
cmp #$03
beq LA022
cmp #$02
beq LA001
cmp #$04
bne L9FFE
lda #$80
sta L918D
bne LA001
L9FFE: jmp LA39F
LA001: lda #ACCESS_DEFAULT
sta file_info_params2::access
lda #7 ; param count for SET_FILE_INFO
sta file_info_params2
yax_call JT_MLI_RELAY, SET_FILE_INFO, file_info_params2
lda #$A ; param count for GET_FILE_INFO
sta file_info_params2
jmp L9FC2
LA01C: jsr show_error_alert
jmp L9FC2
LA022: jmp remove_path_segment_220
jsr remove_path_segment_220
lda #$FF
sta L9923
rts
.endproc
;;; ============================================================
LA02E: yax_call JT_MLI_RELAY, DESTROY, destroy_params
beq LA043
cmp #$4E
beq LA043
jsr show_error_alert
jmp LA02E
LA043: rts
LA044: yax_call launch_dialog, index_delete_file_dialog, L9E79
rts
LA04E: .addr LA170
.addr rts2
.addr rts2
LA054: .byte 0
LA055: .word 0
.addr $220
LA059: lda #$00
sta LA054
bit L918B
bpl LA085
copy16 #LA0D1, L9183
copy16 #LA0B5, L917D
jsr LA10A
copy16 #LA0F8, L9180
rts
LA085: copy16 #LA0C3, L9183
copy16 #LA0A7, L917D
jsr LA100
copy16 #LA0F0, L9180
rts
LA0A7: stax LA055
lda #$01
sta LA054
jmp LA100
LA0B5: stax LA055
lda #$01
sta LA054
jmp LA10A
LA0C3: lda #$02
sta LA054
jsr LA100
beq LA0D0
jmp LA39F
LA0D0: rts
LA0D1: lda #$02
sta LA054
jsr LA10A
beq LA0DE
jmp LA39F
LA0DE: rts
LA0DF: lda #$00
sta LA425
ldy #$05
LA0E6: lda LA04E,y
sta L97DD,y
dey
bpl LA0E6
rts
LA0F0: lda #$04
sta LA054
jmp LA100
LA0F8: lda #$04
sta LA054
jmp LA10A
LA100: yax_call launch_dialog, index_lock_dialog, LA054
rts
LA10A: yax_call launch_dialog, index_unlock_dialog, LA054
rts
;;; ============================================================
.proc LA114
lda #$03
sta LA054
jsr LA379
ldx $1FC0
ldy L9B32
dey
LA123: iny
inx
lda $220,y
sta $1FC0,x
cpy $220
bne LA123
stx $1FC0
LA133: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq LA144
jsr show_error_alert
jmp LA133
LA144: lda file_info_params2::storage_type
sta LA169
cmp #ST_VOLUME_DIRECTORY
beq LA156
cmp #ST_LINKED_DIRECTORY
beq LA156
lda #$00
beq LA158
LA156: lda #$FF
LA158: sta LA168
beq LA16A
jsr L98D8
lda LA169
cmp #$0F
bne LA16A
rts
LA168: .byte 0
LA169: .byte 0
LA16A: jsr LA173
jmp append_to_path_220
.endproc
LA170: jsr append_to_path_220
LA173: jsr LA1C3
jsr decrement_LA2ED
LA179: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq LA18A
jsr show_error_alert
jmp LA179
LA18A: lda file_info_params2::storage_type
cmp #ST_VOLUME_DIRECTORY
beq LA1C0
cmp #ST_LINKED_DIRECTORY
beq LA1C0
bit L918B
bpl LA19E
lda #ACCESS_DEFAULT
bne LA1A0
LA19E: lda #$21
LA1A0: sta file_info_params2::access
LA1A3: lda #7 ; param count for SET_FILE_INFO
sta file_info_params2
yax_call JT_MLI_RELAY, SET_FILE_INFO, file_info_params2
pha
lda #$A ; param count for GET_FILE_INFO
sta file_info_params2
pla
beq LA1C0
jsr show_error_alert
jmp LA1A3
LA1C0: jmp remove_path_segment_220
LA1C3: sub16 LA2ED, #1, LA055
bit L918B
bpl LA1DC
jmp LA10A
LA1DC: jmp LA100
LA1DF: .byte 0
.addr LA2ED, LA2EF
LA1E4: lda #$00
sta LA1DF
copy16 #LA220, L9183
copy16 #LA211, L917D
yax_call launch_dialog, index_get_size_dialog, LA1DF
copy16 #LA233, L9180
rts
LA211: lda #$01
sta LA1DF
yax_call launch_dialog, index_get_size_dialog, LA1DF
LA21F: rts
LA220: lda #$02
sta LA1DF
yax_call launch_dialog, index_get_size_dialog, LA1DF
beq LA21F
jmp LA39F
LA233: lda #$03
sta LA1DF
yax_call launch_dialog, index_get_size_dialog, LA1DF
LA241: rts
LA242: .addr LA2AE,rts2,rts2
;;; ============================================================
.proc LA248
lda #$00
sta LA425
ldy #5
LA24F: lda LA242,y
sta L97DD,y
dey
bpl LA24F
lda #0
sta LA2ED
sta LA2ED+1
sta LA2EF
sta LA2EF+1
ldy #$17
lda #$00
LA26A: sta BITMAP,y
dey
bpl LA26A
rts
.endproc
;;; ============================================================
.proc LA271
jsr LA379
LA274: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
beq LA285
jsr show_error_alert
jmp LA274
LA285: lda file_info_params2::storage_type
sta LA2AA
cmp #ST_VOLUME_DIRECTORY
beq LA297
cmp #ST_LINKED_DIRECTORY
beq LA297
lda #$00
beq LA299
LA297: lda #$FF
LA299: sta LA2A9
beq LA2AB
jsr L98D8
lda LA2AA
cmp #$0F
bne LA2AB
rts
LA2A9: .byte 0
LA2AA: .byte 0
.endproc
;;; ============================================================
LA2AB: jmp LA2AE
LA2AE: bit L9189
bvc :+
jsr append_to_path_220
yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
bne :+
add16 LA2EF, file_info_params2::blocks_used, LA2EF
: inc16 LA2ED
bit L9189
bvc :+
jsr remove_path_segment_220
: ldax LA2ED
jmp L917C
LA2ED: .word 0
LA2EF: .word 0
;;; ============================================================
.proc decrement_LA2ED
lda LA2ED
bne :+
dec LA2ED+1
: dec LA2ED
rts
.endproc
;;; ============================================================
;;; Append name at L97AD to path at $220
.proc append_to_path_220
path := $220
lda L97AD
bne :+
rts
: ldx #0
ldy path
lda #'/'
sta path+1,y
iny
loop: cpx L97AD
bcs done
lda L97AD+1,x
sta path+1,y
inx
iny
jmp loop
done: sty $220
rts
.endproc
;;; ============================================================
;;; Remove segment from path at $220
.proc remove_path_segment_220
path := $220
ldx path ; length
bne :+
rts
: lda path,x
cmp #'/'
beq found
dex
bne :-
stx path
rts
found: dex
stx path
rts
.endproc
;;; ============================================================
.proc LA33B
lda L97AD
bne LA341
rts
LA341: ldx #$00
ldy $1FC0
lda #'/'
sta $1FC1,y
iny
LA34C: cpx L97AD
bcs LA35C
lda L97AD+1,x
sta $1FC1,y
inx
iny
jmp LA34C
LA35C: sty $1FC0
rts
.endproc
;;; ============================================================
.proc LA360
ldx $1FC0
bne LA366
rts
LA366: lda $1FC0,x
cmp #$2F
beq LA374
dex
bne LA366
stx $1FC0
rts
LA374: dex
stx $1FC0
rts
.endproc
;;; ============================================================
.proc LA379
ldy #$00
sty L9B32
dey
LA37F: iny
lda path_buf3,y
cmp #$2F
bne LA38A
sty L9B32
LA38A: sta $220,y
cpy path_buf3
bne LA37F
ldy path_buf4
LA395: lda path_buf4,y
sta $1FC0,y
dey
bpl LA395
rts
.endproc
;;; ============================================================
LA39F: jsr L917F
jmp LA3A7
.proc LA3A7_impl
DEFINE_CLOSE_PARAMS close_params
start: yax_call JT_MLI_RELAY, CLOSE, close_params
lda selected_window_index
beq :+
sta getwinport_params2::window_id
yax_call JT_MGTK_RELAY, MGTK::GetWinPort, getwinport_params2
yax_call JT_MGTK_RELAY, MGTK::SetPort, grafport2
: ldx stack_stash
txs
return #$FF
.endproc
LA3A7 := LA3A7_impl::start
;;; ============================================================
.proc check_escape_key_down
yax_call JT_MGTK_RELAY, MGTK::GetEvent, event_params
lda event_kind
cmp #MGTK::event_kind_key_down
bne nope
lda event_key
cmp #CHAR_ESCAPE
bne nope
lda #$FF
bne done
nope: lda #$00
done: rts
.endproc
LA3EF: sub16 LA2ED, #1, L9E7A
yax_call launch_dialog, index_delete_file_dialog, L9E79
rts
LA40A: sub16 LA2ED, #1, L9938
yax_call launch_dialog, index_copy_file_dialog, L9937
rts
LA425: .byte 0
;;; ============================================================
.proc LA426
jsr LA46D
lda #ACCESS_DEFAULT
sta file_info_params3::access
jsr LA479
lda file_info_params2::file_type
cmp #$0F
beq LA46C
yax_call JT_MLI_RELAY, OPEN, open_params5
beq LA449
jsr show_error_alert_dst
jmp LA426
LA449: lda open_params5::ref_num
sta set_eof_params::ref_num
sta close_params3::ref_num
LA452: yax_call JT_MLI_RELAY, SET_EOF, set_eof_params
beq LA463
jsr show_error_alert_dst
jmp LA452
LA463: yax_call JT_MLI_RELAY, CLOSE, close_params3
LA46C: rts
.endproc
.proc LA46D
ldx #10
loop: lda file_info_params2::access,x
sta file_info_params3::access,x
dex
bpl loop
rts
.endproc
.proc LA479
lda #7 ; SET_FILE_INFO param_count
sta file_info_params3
yax_call JT_MLI_RELAY, SET_FILE_INFO, file_info_params3
pha
lda #$A ; GET_FILE_INFO param_count
sta file_info_params3
pla
beq done
jsr show_error_alert_dst
jmp LA479
done: rts
.endproc
;;; ============================================================
.proc show_error_alert_impl
flag_set:
ldx #$80
bne :+
flag_clear:
ldx #0
: stx flag
cmp #ERR_VOL_NOT_FOUND ; if err is "not found"
beq not_found ; prompt specifically for src/dst disk
cmp #ERR_PATH_NOT_FOUND
beq not_found
jsr JT_SHOW_ALERT0
bne LA4C2 ; cancel???
rts
not_found:
bit flag
bpl :+
lda #$FD ; "Please insert destination disk"
jmp show
: lda #$FC ; "Please insert source disk"
show: jsr JT_SHOW_ALERT0
bne LA4C2
jmp do_on_line
LA4C2: jmp LA39F
flag: .byte 0
do_on_line:
yax_call JT_MLI_RELAY, ON_LINE, on_line_params2
rts
.endproc
show_error_alert := show_error_alert_impl::flag_clear
show_error_alert_dst := show_error_alert_impl::flag_set
.assert * = $A4D0, error, "Segment length mismatch"
PAD_TO $A500
;;; ============================================================
;;; Dialog Launcher (or just proc handler???)
index_about_dialog := 0
index_copy_file_dialog := 1
index_delete_file_dialog := 2
index_new_folder_dialog := 3
index_get_info_dialog := 6
index_lock_dialog := 7
index_unlock_dialog := 8
index_rename_dialog := 9
index_download_dialog := $A
index_get_size_dialog := $B
index_warning_dialog := $C
launch_dialog:
jmp launch_dialog_impl
dialog_proc_table:
.addr show_about_dialog
.addr show_copy_file_dialog
.addr show_delete_file_dialog
.addr show_new_folder_dialog
.addr rts1
.addr rts1
.addr show_get_info_dialog
.addr show_lock_dialog
.addr show_unlock_dialog
.addr show_rename_dialog
.addr show_download_dialog
.addr show_get_size_dialog
.addr show_warning_dialog
dialog_param_addr:
.addr 0
.byte 0
.proc launch_dialog_impl
stax dialog_param_addr
tya
asl a
tax
copy16 dialog_proc_table,x, jump_addr
lda #0
sta LD8EB
sta LD8EC
sta LD8F0
sta LD8F1
sta LD8F2
sta LD8E8
sta LD8F5
sta LD8ED
sta cursor_ip_flag
lda #$14
sta LD8E9
copy16 #rts1, jump_relay+1
jsr set_cursor_pointer
jump_addr := *+1
jmp dummy0000 ; self-modified
.endproc
;;; ============================================================
;;; Message handler for OK/Cancel dialog
.proc prompt_input_loop
lda LD8E8
beq :+
dec LD8E9
bne :+
jsr LB8F5
lda #$14
sta LD8E9
: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind
cmp #MGTK::event_kind_button_down
bne :+
jmp prompt_click_handler
: cmp #MGTK::event_kind_key_down
bne :+
jmp prompt_key_handler
: lda LD8E8
beq prompt_input_loop
MGTK_RELAY_CALL MGTK::FindWindow, event_coords
lda findwindow_which_area
bne :+
jmp prompt_input_loop
: lda findwindow_window_id
cmp winfo_alert_dialog
beq :+
jmp prompt_input_loop
: lda winfo_alert_dialog
jsr set_port_from_window_id
lda winfo_alert_dialog
sta event_params
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
MGTK_RELAY_CALL MGTK::InRect, rect1
cmp #MGTK::inrect_inside
bne out
jsr set_cursor_insertion_point_with_flag
jmp done
out: jsr set_cursor_pointer_with_flag
done: jsr reset_state
jmp prompt_input_loop
.endproc
;;; Click handler for prompt dialog
prompt_button_ok := 0
prompt_button_cancel := 1
prompt_button_yes := 2
prompt_button_no := 3
prompt_button_all := 4
.proc prompt_click_handler
MGTK_RELAY_CALL MGTK::FindWindow, event_coords
lda findwindow_which_area
bne :+
return #$FF
: cmp #MGTK::area_content
bne :+
jmp content
: return #$FF
content:
lda findwindow_window_id
cmp winfo_alert_dialog
beq :+
return #$FF
: lda winfo_alert_dialog
jsr set_port_from_window_id
lda winfo_alert_dialog
sta event_params
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
bit LD8E7
bvc :+
jmp check_button_yes
: MGTK_RELAY_CALL MGTK::InRect, desktop_aux::ok_button_rect
cmp #MGTK::inrect_inside
beq check_button_ok
jmp maybe_check_button_cancel
check_button_ok:
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
jsr button_loop_ok
bmi :+
lda #prompt_button_ok
: rts
check_button_yes:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::yes_button_rect
cmp #MGTK::inrect_inside
bne check_button_no
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::yes_button_rect
jsr button_loop_yes
bmi :+
lda #prompt_button_yes
: rts
check_button_no:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::no_button_rect
cmp #MGTK::inrect_inside
bne check_button_all
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::no_button_rect
jsr button_loop_no
bmi :+
lda #prompt_button_no
: rts
check_button_all:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::all_button_rect
cmp #MGTK::inrect_inside
bne maybe_check_button_cancel
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::all_button_rect
jsr button_loop_all
bmi :+
lda #prompt_button_all
: rts
maybe_check_button_cancel:
bit LD8E7
bpl check_button_cancel
return #$FF
check_button_cancel:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::cancel_button_rect
cmp #MGTK::inrect_inside
beq :+
jmp LA6ED
: jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
jsr button_loop_cancel
bmi :+
lda #prompt_button_cancel
: rts
LA6ED: bit LD8E8
bmi LA6F7
lda #$FF
jmp jump_relay
LA6F7: jsr LB9B8
return #$FF
.endproc
;;; Key handler for prompt dialog
.proc prompt_key_handler
lda event_modifiers
cmp #MGTK::event_modifier_solid_apple
bne LA71A
lda event_key
and #$7F
cmp #CHAR_LEFT
bne LA710
jmp LA815
LA710: cmp #CHAR_RIGHT
bne LA717
jmp LA820
LA717: return #$FF
LA71A: lda event_key
and #$7F
cmp #CHAR_LEFT
bne LA72E
bit LD8ED
bpl LA72B
jmp L0CB8
LA72B: jmp LA82B
LA72E: cmp #CHAR_RIGHT
bne LA73D
bit LD8ED
bpl LA73A
jmp L0CD7
LA73A: jmp LA83E
LA73D: cmp #CHAR_RETURN
bne LA749
bit LD8E7
bvs LA717
jmp LA851
LA749: cmp #CHAR_ESCAPE
bne LA755
bit LD8E7
bmi LA717
jmp LA86F
LA755: cmp #CHAR_DELETE
bne LA75C
jmp LA88D
LA75C: cmp #CHAR_UP
bne LA76B
bit LD8ED
bmi LA768
jmp LA717
LA768: jmp L0D14
LA76B: cmp #CHAR_DOWN
bne LA77A
bit LD8ED
bmi LA777
jmp LA717
LA777: jmp L0CF9
LA77A: bit LD8E7
bvc LA79B
cmp #'Y'
beq LA7E8
cmp #'y'
beq LA7E8
cmp #'N'
beq LA7F7
cmp #'n'
beq LA7F7
cmp #'A'
beq LA806
cmp #'a'
beq LA806
cmp #CHAR_RETURN
beq LA7E8
LA79B: bit LD8F5
bmi LA7C8
cmp #'.'
beq LA7D8
cmp #'0'
bcs LA7AB
jmp LA717
LA7AB: cmp #'z'+1
bcc LA7B2
jmp LA717
LA7B2: cmp #'9'+1
bcc LA7D8
cmp #'A'
bcs LA7BD
jmp LA717
LA7BD: cmp #'Z'+1
bcc LA7DD
cmp #'a'
bcs LA7DD
jmp LA717
LA7C8: cmp #' '
bcs LA7CF
jmp LA717
LA7CF: cmp #$7E
beq LA7DD
bcc LA7DD
jmp LA717
LA7D8: ldx path_buf1
beq LA7E5
LA7DD: ldx LD8E8
beq LA7E5
jsr LBB0B
LA7E5: return #$FF
.endproc
LA7E8: jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::yes_button_rect
return #prompt_button_yes
LA7F7: jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::no_button_rect
return #prompt_button_no
LA806: jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::all_button_rect
return #prompt_button_all
LA815: lda LD8E8
beq LA81D
jsr LBC5E
LA81D: return #$FF
LA820: lda LD8E8
beq LA828
jsr LBCC9
LA828: return #$FF
LA82B: lda LD8E8
beq LA83B
bit LD8ED
bpl LA838
jmp L0CD7
LA838: jsr LBBA4
LA83B: return #$FF
LA83E: lda LD8E8
beq LA84E
bit LD8ED
bpl LA84B
jmp L0CB8
LA84B: jsr LBC03
LA84E: return #$FF
LA851: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
return #0
LA86F: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
return #1
LA88D: lda LD8E8
beq LA895
jsr LBB63
LA895: return #$FF
rts1:
rts
jump_relay:
jmp dummy0000
;;; ============================================================
;;; "About" dialog
.proc show_about_dialog
MGTK_RELAY_CALL MGTK::OpenWindow, winfo_about_dialog
lda winfo_about_dialog::window_id
jsr set_port_from_window_id
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::about_dialog_outer_rect
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::about_dialog_inner_rect
addr_call draw_dialog_title, desktop_aux::str_about1
axy_call draw_dialog_label, 1 | DDL_CENTER, desktop_aux::str_about2
axy_call draw_dialog_label, 2 | DDL_CENTER, desktop_aux::str_about3
axy_call draw_dialog_label, 3 | DDL_CENTER, desktop_aux::str_about4
axy_call draw_dialog_label, 5, desktop_aux::str_about5
axy_call draw_dialog_label, 6 | DDL_CENTER, desktop_aux::str_about6
axy_call draw_dialog_label, 7, desktop_aux::str_about7
axy_call draw_dialog_label, 9, desktop_aux::str_about8
copy16 #310, dialog_label_pos
axy_call draw_dialog_label, 9, desktop_aux::str_about9
copy16 #dialog_label_default_x, dialog_label_pos
: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind
cmp #MGTK::event_kind_button_down
beq close
cmp #MGTK::event_kind_key_down
bne :-
lda event_key
and #$7F
cmp #CHAR_ESCAPE
beq close
cmp #CHAR_RETURN
bne :-
jmp close
close: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_about_dialog
jsr reset_state
jsr set_cursor_pointer_with_flag
rts
.endproc
;;; ============================================================
.proc show_copy_file_dialog
ptr := $6
jsr copy_dialog_param_addr_to_ptr
ldy #0
lda (ptr),y
cmp #1
bne :+
jmp do1
: cmp #2
bne :+
jmp do2
: cmp #3
bne :+
jmp do3
: cmp #4
bne :+
jmp do4
: cmp #5
bne :+
jmp do5
: lda #0
sta LD8E8
jsr open_dialog_window
addr_call draw_dialog_title, desktop_aux::str_copy_title
axy_call draw_dialog_label, 1, desktop_aux::str_copy_copying
axy_call draw_dialog_label, 2, desktop_aux::str_copy_from
axy_call draw_dialog_label, 3, desktop_aux::str_copy_to
axy_call draw_dialog_label, 4, desktop_aux::str_copy_remaining
rts
do1: ldy #1
lda (ptr),y
sta file_count
iny
lda (ptr),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB0B6
addr_call draw_text1, str_file_count
addr_call draw_text1, str_files
rts
do2: ldy #1
lda (ptr),y
sta file_count
iny
lda (ptr),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr LBE8D
jsr LBE9A
jsr copy_dialog_param_addr_to_ptr
ldy #$03
lda (ptr),y
tax
iny
lda (ptr),y
sta ptr+1
stx ptr
jsr LBE63
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E
addr_call draw_text1, path_buf0
jsr copy_dialog_param_addr_to_ptr
ldy #$05
lda (ptr),y
tax
iny
lda (ptr),y
sta ptr+1
stx ptr
jsr LBE78
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE82
addr_call draw_text1, path_buf1
yax_call MGTK_RELAY, MGTK::MoveTo, desktop_aux::LB0BA
addr_call draw_text1, str_file_count
rts
do5: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
rts
do3: jsr bell
lda winfo_alert_dialog
jsr set_port_from_window_id
axy_call draw_dialog_label, 6, desktop_aux::str_exists_prompt
jsr draw_yes_no_all_cancel_buttons
LAA7F: jsr prompt_input_loop
bmi LAA7F
pha
jsr erase_yes_no_all_cancel_buttons
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::prompt_rect
pla
rts
do4: jsr bell
lda winfo_alert_dialog
jsr set_port_from_window_id
axy_call draw_dialog_label, 6, desktop_aux::str_large_prompt
jsr draw_ok_cancel_buttons
LAAB1: jsr prompt_input_loop
bmi LAAB1
pha
jsr erase_ok_cancel_buttons
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::prompt_rect
pla
rts
.endproc
;;; ============================================================
.proc bell
sta ALTZPOFF
sta ROMIN2
jsr BELL1
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
.endproc
;;; ============================================================
;;; "DownLoad" dialog
.proc show_download_dialog
ptr := $6
jsr copy_dialog_param_addr_to_ptr
ldy #0
lda (ptr),y
cmp #1
bne :+
jmp do1
: cmp #2
bne :+
jmp do2
: cmp #3
bne :+
jmp do3
: cmp #4
bne else
jmp do4
else: lda #0
sta LD8E8
jsr open_dialog_window
addr_call draw_dialog_title, desktop_aux::str_download
axy_call draw_dialog_label, 1, desktop_aux::str_copy_copying
axy_call draw_dialog_label, 2, desktop_aux::str_copy_from
axy_call draw_dialog_label, 3, desktop_aux::str_copy_to
axy_call draw_dialog_label, 4, desktop_aux::str_copy_remaining
rts
do1: ldy #1
lda (ptr),y
sta file_count
iny
lda (ptr),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB0B6
addr_call draw_text1, str_file_count
addr_call draw_text1, str_files
rts
do2: ldy #$01
lda (ptr),y
sta file_count
iny
lda (ptr),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr LBE8D
jsr copy_dialog_param_addr_to_ptr
ldy #$03
lda (ptr),y
tax
iny
lda (ptr),y
sta ptr+1
stx ptr
jsr LBE63
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E
addr_call draw_text1, path_buf0
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB0BA
addr_call draw_text1, str_file_count
rts
do3: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
rts
do4: jsr bell
lda winfo_alert_dialog
jsr set_port_from_window_id
axy_call draw_dialog_label, 6, desktop_aux::str_ramcard_full
jsr draw_ok_button
: jsr prompt_input_loop
bmi :-
pha
jsr erase_ok_button
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::prompt_rect
pla
rts
.endproc
;;; ============================================================
;;; "Get Size" dialog
.proc show_get_size_dialog
ptr := $6
jsr copy_dialog_param_addr_to_ptr
ldy #0
lda (ptr),y
cmp #1
bne :+
jmp do1
: cmp #2
bne :+
jmp do2
: cmp #3
bne else
jmp do3
else: jsr open_dialog_window
addr_call draw_dialog_title, desktop_aux::str_size_title
axy_call draw_dialog_label, 1, desktop_aux::str_size_number
ldy #1
jsr draw_colon
axy_call draw_dialog_label, 2, desktop_aux::str_size_blocks
ldy #2
jsr draw_colon
rts
do1: ldy #$01
lda (ptr),y
sta file_count
tax
iny
lda (ptr),y
sta ptr+1
stx ptr
ldy #$00
lda (ptr),y
sta file_count
iny
lda (ptr),y
sta file_count+1
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
lda #165
sta dialog_label_pos
yax_call draw_dialog_label, 1, str_file_count
jsr copy_dialog_param_addr_to_ptr
ldy #$03
lda (ptr),y
tax
iny
lda (ptr),y
sta ptr+1
stx ptr
ldy #$00
lda (ptr),y
sta file_count
iny
lda (ptr),y
sta file_count+1
jsr compose_file_count_string
lda #165
sta dialog_label_pos
yax_call draw_dialog_label, 2, str_file_count
rts
do3: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
rts
do2: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr draw_ok_button
: jsr prompt_input_loop
bmi :-
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
jsr erase_ok_button
return #0
.endproc
;;; ============================================================
;;; "Delete File" dialog
.proc show_delete_file_dialog
jsr copy_dialog_param_addr_to_ptr
ldy #$00
lda ($06),y
cmp #1
bne :+
jmp do1
: cmp #2
bne :+
jmp do2
: cmp #3
bne :+
jmp do3
: cmp #4
bne :+
jmp do4
: cmp #5
bne :+
jmp do5
: sta LAD1F
lda #$00
sta LD8E8
jsr open_dialog_window
addr_call draw_dialog_title, desktop_aux::str_delete_title
lda LAD1F
beq LAD20
axy_call draw_dialog_label, 4, desktop_aux::str_ok_empty
rts
LAD1F: .byte 0
LAD20: axy_call draw_dialog_label, 4, desktop_aux::str_delete_ok
rts
do1: ldy #$01
lda ($06),y
sta file_count
iny
lda ($06),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
lda LAD1F
bne LAD54
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB16A
jmp LAD5D
LAD54: MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB172
LAD5D: addr_call draw_text1, str_file_count
addr_call draw_text1, str_files
rts
do3: ldy #$01
lda ($06),y
sta file_count
iny
lda ($06),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr LBE8D
jsr copy_dialog_param_addr_to_ptr
ldy #$03
lda ($06),y
tax
iny
lda ($06),y
sta $06+1
stx $06
jsr LBE63
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E
addr_call draw_text1, path_buf0
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB16E
addr_call draw_text1, str_file_count
rts
do2: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr draw_ok_cancel_buttons
LADC4: jsr prompt_input_loop
bmi LADC4
bne LADF4
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
jsr erase_ok_cancel_buttons
yax_call draw_dialog_label, 2, desktop_aux::str_file_colon
yax_call draw_dialog_label, 4, desktop_aux::str_delete_remaining
lda #$00
LADF4: rts
do5: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
rts
do4: lda winfo_alert_dialog
jsr set_port_from_window_id
axy_call draw_dialog_label, 6, desktop_aux::str_delete_locked_file
jsr draw_yes_no_all_cancel_buttons
LAE17: jsr prompt_input_loop
bmi LAE17
pha
jsr erase_yes_no_all_cancel_buttons
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy ; white
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::prompt_rect ; erase prompt
pla
rts
.endproc
;;; ============================================================
;;; "New Folder" dialog
.proc show_new_folder_dialog
jsr copy_dialog_param_addr_to_ptr
ldy #$00
lda ($06),y
cmp #$80
bne LAE42
jmp LAE70
LAE42: cmp #$40
bne LAE49
jmp LAF16
LAE49: lda #$80
sta LD8E8
jsr LBD69
lda #$00
jsr LB509
lda winfo_alert_dialog
jsr set_port_from_window_id
addr_call draw_dialog_title, desktop_aux::str_new_folder_title
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, rect1
rts
LAE70: lda #$80
sta LD8E8
lda #$00
sta LD8E7
jsr LBD75
jsr copy_dialog_param_addr_to_ptr
ldy #$01
lda ($06),y
sta $08
iny
lda ($06),y
sta $08+1
ldy #$00
lda ($08),y
tay
LAE90: lda ($08),y
sta path_buf0,y
dey
bpl LAE90
lda winfo_alert_dialog
jsr set_port_from_window_id
yax_call draw_dialog_label, 2, desktop_aux::str_in_colon
lda #55
sta dialog_label_pos
yax_call draw_dialog_label, 2, path_buf0
lda #dialog_label_default_x
sta dialog_label_pos
yax_call draw_dialog_label, 4, desktop_aux::str_enter_folder_name
jsr draw_filename_prompt
LAEC6: jsr prompt_input_loop
bmi LAEC6
bne LAF16
lda path_buf1
beq LAEC6
cmp #$10
bcc LAEE1
LAED6: lda #$FB
jsr JT_SHOW_ALERT0
jsr draw_filename_prompt
jmp LAEC6
LAEE1: lda path_buf0
clc
adc path_buf1
clc
adc #$01
cmp #$41
bcs LAED6
inc path_buf0
ldx path_buf0
lda #'/'
sta path_buf0,x
ldx path_buf0
ldy #$00
LAEFF: inx
iny
lda path_buf1,y
sta path_buf0,x
cpy path_buf1
bne LAEFF
stx path_buf0
ldy #<path_buf0
ldx #>path_buf0
return #0
LAF16: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
return #1
.endproc
;;; ============================================================
;;; "Get Info" dialog
.proc show_get_info_dialog
ptr := $6
jsr copy_dialog_param_addr_to_ptr
ldy #$00
lda (ptr),y
bmi LAF34
jmp LAFB9
LAF34: lda #$00
sta LD8E8
lda (ptr),y
lsr a
lsr a
ror a
eor #$80
jsr LB509
lda winfo_alert_dialog
jsr set_port_from_window_id
addr_call draw_dialog_title, desktop_aux::str_info_title
jsr copy_dialog_param_addr_to_ptr
ldy #$00
lda (ptr),y
and #$7F
lsr a
ror a
sta LB01D
yax_call draw_dialog_label, 1, desktop_aux::str_info_name
bit LB01D
bmi LAF78
yax_call draw_dialog_label, 2, desktop_aux::str_info_locked
jmp LAF81
LAF78: yax_call draw_dialog_label, 2, desktop_aux::str_info_protected
LAF81: bit LB01D
bpl LAF92
yax_call draw_dialog_label, 3, desktop_aux::str_info_blocks
jmp LAF9B
LAF92: yax_call draw_dialog_label, 3, desktop_aux::str_info_size
LAF9B: yax_call draw_dialog_label, 4, desktop_aux::str_info_create
yax_call draw_dialog_label, 5, desktop_aux::str_info_mod
yax_call draw_dialog_label, 6, desktop_aux::str_info_type
jmp reset_state
LAFB9: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr copy_dialog_param_addr_to_ptr
ldy #0
lda (ptr),y
sta row
tay
jsr draw_colon
lda #165
sta dialog_label_pos
jsr copy_dialog_param_addr_to_ptr
lda row
cmp #2
bne LAFF0
ldy #1
lda (ptr),y
beq :+
addr_jump LAFF8, desktop_aux::str_yes_label
: addr_jump LAFF8, desktop_aux::str_no_label
LAFF0: ldy #2
lda (ptr),y
tax
dey
lda (ptr),y
LAFF8: ldy row
jsr draw_dialog_label
lda row
cmp #6
beq :+
rts
: jsr prompt_input_loop
bmi :-
pha
jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer_with_flag
pla
rts
LB01D: .byte 0
row: .byte 0
.endproc
;;; ============================================================
;;; Draw ":" after dialog label
.proc draw_colon
lda #160
sta dialog_label_pos
addr_call draw_dialog_label, desktop_aux::str_colon
rts
.endproc
;;; ============================================================
;;; "Lock" dialog
.proc show_lock_dialog
jsr copy_dialog_param_addr_to_ptr
ldy #$00
lda ($06),y
cmp #1
bne :+
jmp do1
: cmp #2
bne :+
jmp do2
: cmp #3
bne :+
jmp do3
: cmp #4
bne :+
jmp do4
: lda #$00
sta LD8E8
jsr open_dialog_window
addr_call draw_dialog_title, desktop_aux::str_lock_title
yax_call draw_dialog_label, 4, desktop_aux::str_lock_ok
rts
do1: ldy #$01
lda ($06),y
sta file_count
iny
lda ($06),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB231
addr_call draw_text1, str_file_count
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB239
addr_call draw_text1, str_files
rts
do3: ldy #$01
lda ($06),y
sta file_count
iny
lda ($06),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr LBE8D
jsr copy_dialog_param_addr_to_ptr
ldy #$03
lda ($06),y
tax
iny
lda ($06),y
sta $06+1
stx $06
jsr LBE63
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E
addr_call draw_text1, path_buf0
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB241
addr_call draw_text1, str_file_count
rts
do2: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr draw_ok_cancel_buttons
LB0FA: jsr prompt_input_loop
bmi LB0FA
bne LB139
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
yax_call draw_dialog_label, 2, desktop_aux::str_file_colon
yax_call draw_dialog_label, 4, desktop_aux::str_lock_remaining
lda #$00
LB139: rts
do4: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
rts
.endproc
;;; ============================================================
;;; "Unlock" dialog
.proc show_unlock_dialog
jsr copy_dialog_param_addr_to_ptr
ldy #$00
lda ($06),y
cmp #1
bne :+
jmp do1
: cmp #2
bne :+
jmp do2
: cmp #3
bne :+
jmp do3
: cmp #4
bne :+
jmp do4
: lda #$00
sta LD8E8
jsr open_dialog_window
addr_call draw_dialog_title, desktop_aux::str_unlock_title
yax_call draw_dialog_label, 4, desktop_aux::str_unlock_ok
rts
do1: ldy #$01
lda ($06),y
sta file_count
iny
lda ($06),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB22D
addr_call draw_text1, str_file_count
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB235
addr_call draw_text1, str_files
rts
do3: ldy #$01
lda ($06),y
sta file_count
iny
lda ($06),y
sta file_count+1
jsr adjust_str_files_suffix
jsr compose_file_count_string
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr LBE8D
jsr copy_dialog_param_addr_to_ptr
ldy #$03
lda ($06),y
tax
iny
lda ($06),y
sta $06+1
stx $06
jsr LBE63
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E
addr_call draw_text1, path_buf0
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB23D
addr_call draw_text1, str_file_count
rts
do2: lda winfo_alert_dialog
jsr set_port_from_window_id
jsr draw_ok_cancel_buttons
LB218: jsr prompt_input_loop
bmi LB218
bne LB257
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::press_ok_to_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
yax_call draw_dialog_label, 2, desktop_aux::str_file_colon
yax_call draw_dialog_label, 4, desktop_aux::str_unlock_remaining
lda #$00
LB257: rts
do4: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
rts
.endproc
;;; ============================================================
;;; "Rename" dialog
.proc show_rename_dialog
jsr copy_dialog_param_addr_to_ptr
ldy #$00
lda ($06),y
cmp #$80
bne LB276
jmp LB2ED
LB276: cmp #$40
bne LB27D
jmp LB313
LB27D: jsr LBD75
jsr copy_dialog_param_addr_to_ptr
lda #$80
sta LD8E8
jsr LBD69
lda #$00
jsr LB509
lda winfo_alert_dialog
jsr set_port_from_window_id
addr_call draw_dialog_title, desktop_aux::str_rename_title
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, rect1
yax_call draw_dialog_label, 2, desktop_aux::str_rename_old
lda #85
sta dialog_label_pos
jsr copy_dialog_param_addr_to_ptr
ldy #$01
lda ($06),y
sta $08
iny
lda ($06),y
sta $08+1
ldy #$00
lda ($08),y
tay
LB2CA: lda ($08),y
sta buf_filename,y
dey
bpl LB2CA
yax_call draw_dialog_label, 2, buf_filename
yax_call draw_dialog_label, 4, desktop_aux::str_rename_new
lda #$00
sta path_buf1
jsr draw_filename_prompt
rts
LB2ED: copy16 #$8000, LD8E7
lda winfo_alert_dialog
jsr set_port_from_window_id
LB2FD: jsr prompt_input_loop
bmi LB2FD
bne LB313
lda path_buf1
beq LB2FD
jsr LBCC9
ldy #$43
ldx #$D4
return #0
LB313: jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
return #1
.endproc
;;; ============================================================
;;; "Warning!" dialog
;;; $6 ptr to message num
.proc show_warning_dialog
ptr := $6
;; Create window
MGTK_RELAY_CALL MGTK::HideCursor
jsr open_alert_window
lda winfo_alert_dialog
jsr set_port_from_window_id
addr_call draw_dialog_title, desktop_aux::str_warning
MGTK_RELAY_CALL MGTK::ShowCursor
jsr copy_dialog_param_addr_to_ptr
;; Dig up message
ldy #$00
lda (ptr),y
pha
bmi only_ok ; high bit set means no cancel
tax
lda warning_cancel_table,x
bne ok_and_cancel
only_ok: ; no cancel button
pla
and #$7F
pha
jsr draw_ok_button
jmp draw_string
ok_and_cancel: ; has cancel button
jsr draw_ok_cancel_buttons
draw_string:
;; First string
pla
pha
asl a ; * 2
asl a ; * 4, since there are two strings each
tay
lda warning_message_table+1,y
tax
lda warning_message_table,y
ldy #3 ; row
jsr draw_dialog_label
;; Second string
pla
asl a
asl a
tay
lda warning_message_table+2+1,y
tax
lda warning_message_table+2,y
ldy #4 ; row
jsr draw_dialog_label
;; Input loop
: jsr prompt_input_loop
bmi :-
pha
jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_alert_dialog
jsr set_cursor_pointer
pla
rts
;; high bit set if "cancel" should be an option
warning_cancel_table:
.byte $80,$00,$00,$80,$00,$00,$80
warning_message_table:
.addr desktop_aux::str_insert_system_disk,desktop_aux::str_1_space
.addr desktop_aux::str_selector_list_full,desktop_aux::str_before_new_entries
.addr desktop_aux::str_selector_list_full,desktop_aux::str_before_new_entries
.addr desktop_aux::str_window_must_be_closed,desktop_aux::str_1_space
.addr desktop_aux::str_window_must_be_closed,desktop_aux::str_1_space
.addr desktop_aux::str_too_many_windows,desktop_aux::str_1_space
.addr desktop_aux::str_save_selector_list,desktop_aux::str_on_system_disk
.endproc
warning_msg_insert_system_disk := 0
warning_msg_selector_list_full := 1
warning_msg_selector_list_full2 := 2
warning_msg_window_must_be_closed := 3
warning_msg_window_must_be_closed2 := 4
warning_msg_too_many_windows := 5
warning_msg_save_selector_list := 6
;;; ============================================================
.proc copy_dialog_param_addr_to_ptr
copy16 dialog_param_addr, $06
rts
.endproc
.proc set_cursor_pointer_with_flag
bit cursor_ip_flag
bpl :+
jsr set_cursor_pointer
lda #$00
sta cursor_ip_flag
: rts
.endproc
.proc set_cursor_insertion_point_with_flag
bit cursor_ip_flag
bmi :+
jsr set_cursor_insertion_point
lda #$80
sta cursor_ip_flag
: rts
.endproc
cursor_ip_flag: ; high bit set if IP, clear if pointer
.byte 0
set_cursor_watch:
MGTK_RELAY_CALL MGTK::HideCursor
MGTK_RELAY_CALL MGTK::SetCursor, watch_cursor
MGTK_RELAY_CALL MGTK::ShowCursor
rts
set_cursor_pointer:
MGTK_RELAY_CALL MGTK::HideCursor
MGTK_RELAY_CALL MGTK::SetCursor, pointer_cursor
MGTK_RELAY_CALL MGTK::ShowCursor
rts
set_cursor_insertion_point:
MGTK_RELAY_CALL MGTK::HideCursor
MGTK_RELAY_CALL MGTK::SetCursor, insertion_point_cursor
MGTK_RELAY_CALL MGTK::ShowCursor
rts
set_penmode_xor2:
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
rts
ldx #$03
LB447: lda event_coords,x
sta LB502,x
dex
bpl LB447
lda #$00
sta LB501
lda machine_type
asl a
sta LB500
rol LB501
LB45F: dec LB500
lda LB500
cmp #$FF
bne LB46C
dec LB501
LB46C: lda LB501
bne LB476
lda LB500
beq LB4B7
LB476: MGTK_RELAY_CALL MGTK::PeekEvent, event_params
jsr LB4BA
bmi LB4B7
lda #$FF
sta LB508
lda event_kind
sta LB507
cmp #MGTK::event_kind_no_event
beq LB45F
cmp #MGTK::event_kind_drag
beq LB45F
cmp #MGTK::event_kind_button_up
bne LB4A7
MGTK_RELAY_CALL MGTK::GetEvent, event_params
jmp LB45F
LB4A7: cmp #$01
bne LB4B7
MGTK_RELAY_CALL MGTK::GetEvent, event_params
return #0
LB4B7: return #$FF
LB4BA: lda event_xcoord
sec
sbc LB502
sta LB506
lda event_xcoord+1
sbc LB503
bpl LB4D6
lda LB506
cmp #$FB
bcs LB4DD
LB4D3: return #$FF
LB4D6: lda LB506
cmp #$05
bcs LB4D3
LB4DD: lda event_ycoord
sec
sbc LB504
sta LB506
lda event_ycoord+1
sbc LB505
bpl LB4F6
lda LB506
cmp #$FC
bcs LB4FD
LB4F6: lda LB506
cmp #$04
bcs LB4D3
LB4FD: return #0
LB500: .byte 0
LB501: .byte 0
LB502: .byte 0
LB503: .byte 0
LB504: .byte 0
LB505: .byte 0
LB506: .byte 0
LB507: .byte 0
LB508: .byte 0
LB509: sta LD8E7
jsr open_dialog_window
bit LD8E7
bvc LB51A
jsr draw_yes_no_all_cancel_buttons
jmp LB526
LB51A: MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::ok_button_rect
jsr draw_ok_label
LB526: bit LD8E7
bmi LB537
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::cancel_button_rect
jsr draw_cancel_label
LB537: jmp reset_state
.proc open_dialog_window
MGTK_RELAY_CALL MGTK::OpenWindow, winfo_alert_dialog
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::confirm_dialog_outer_rect
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::confirm_dialog_inner_rect
rts
.endproc
.proc open_alert_window
MGTK_RELAY_CALL MGTK::OpenWindow, winfo_alert_dialog
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr set_fill_white
MGTK_RELAY_CALL MGTK::PaintBits, alert_bitmap2_params
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::confirm_dialog_outer_rect
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::confirm_dialog_inner_rect
rts
.endproc
;;; ============================================================
;;; Draw dialog label.
;;; A,X has pointer to DrawText params block
;;; Y has row number (1, 2, ... ) with high bit to center it
DDL_CENTER := $80
.proc draw_dialog_label
textwidth_params := $8
textptr := $8
textlen := $A
result := $B
ptr := $6
stx ptr+1
sta ptr
tya
bmi :+
jmp skip
;; Compute text width and center it
: tya
pha
add16 ptr, #1, textptr
jsr load_aux_from_ptr
sta textlen
MGTK_RELAY_CALL MGTK::TextWidth, textwidth_params
lsr16 result
sub16 #200, result, dialog_label_pos
pla
tay
skip: dey ; ypos = (Y-1) * 8 + pointD::ycoord
tya
asl a
asl a
asl a
clc
adc pointD::ycoord
sta dialog_label_pos+2
lda pointD::ycoord+1
adc #0
sta dialog_label_pos+3
MGTK_RELAY_CALL MGTK::MoveTo, dialog_label_pos
addr_call_indirect draw_text1, ptr
ldx dialog_label_pos
lda #dialog_label_default_x ; restore original x coord
sta dialog_label_pos::xcoord
rts
.endproc
;;; ============================================================
draw_ok_label:
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::ok_label_pos
addr_call draw_text1, desktop_aux::str_ok_label
rts
draw_cancel_label:
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::cancel_label_pos
addr_call draw_text1, desktop_aux::str_cancel_label
rts
draw_yes_label:
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::yes_label_pos
addr_call draw_text1, desktop_aux::str_yes_label
rts
draw_no_label:
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::no_label_pos
addr_call draw_text1, desktop_aux::str_no_label
rts
draw_all_label:
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::all_label_pos
addr_call draw_text1, desktop_aux::str_all_label
rts
draw_yes_no_all_cancel_buttons:
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::yes_button_rect
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::no_button_rect
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::all_button_rect
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::cancel_button_rect
jsr draw_yes_label
jsr draw_no_label
jsr draw_all_label
jsr draw_cancel_label
lda #$40
sta LD8E7
rts
erase_yes_no_all_cancel_buttons:
jsr set_fill_white
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::yes_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::no_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::all_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
rts
draw_ok_cancel_buttons:
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::ok_button_rect
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::cancel_button_rect
jsr draw_ok_label
jsr draw_cancel_label
lda #$00
sta LD8E7
rts
erase_ok_cancel_buttons:
jsr set_fill_white
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
rts
draw_ok_button:
jsr set_penmode_xor2
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::ok_button_rect
jsr draw_ok_label
lda #$80
sta LD8E7
rts
erase_ok_button:
jsr set_fill_white
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
rts
;;; ============================================================
.proc draw_text1
params := $6
textptr := $6
textlen := $8
stax textptr
jsr load_aux_from_ptr
beq done
sta textlen
inc16 textptr
MGTK_RELAY_CALL MGTK::DrawText, params
done: rts
.endproc
;;; ============================================================
.proc draw_dialog_title
str := $6
str_data := $6
str_len := $8
str_width := $9
stax str ; input is length-prefixed string
jsr load_aux_from_ptr
sta str_len
inc str_data ; point past length byte
bne :+
inc str_data+1
: MGTK_RELAY_CALL MGTK::TextWidth, str
lsr16 str_width ; divide by two
lda #>400 ; center within 400px
sta hi
lda #<400
lsr hi ; divide by two
ror a
sec
sbc str_width
sta pos_dialog_title::xcoord
lda hi
sbc str_width+1
sta pos_dialog_title::xcoord+1
MGTK_RELAY_CALL MGTK::MoveTo, pos_dialog_title
MGTK_RELAY_CALL MGTK::DrawText, str
rts
hi: .byte 0
.endproc
;;; ============================================================
;; Unreferenced ???
LB76C: stax $06
MGTK_RELAY_CALL MGTK::MoveTo, point7
addr_call_indirect draw_text1, $06
rts
;;; ============================================================
;;; Adjust case in a filename (input buf A,X, output buf $A)
;;; Called from ovl2
.proc adjust_case
ptr := $A
stx ptr+1
sta ptr
ldy #0
lda (ptr),y
tay
bne loop
rts
loop: dey
beq done
bpl :+
done: rts
: lda (ptr),y
and #$7F
cmp #'/'
beq :+
cmp #'.'
bne check_alpha
: dey
jmp loop
check_alpha:
iny
lda (ptr),y
and #$7F
cmp #'A'
bcc :+
cmp #'Z'+1
bcs :+
clc
adc #('a' - 'A') ; Lowercase
sta (ptr),y
: dey
jmp loop
.endproc
;;; ============================================================
.proc set_port_from_window_id
sta getwinport_params2::window_id
MGTK_RELAY_CALL MGTK::GetWinPort, getwinport_params2
MGTK_RELAY_CALL MGTK::SetPort, grafport2
rts
.endproc
;;; ============================================================
;;; Event loop during button press - handle inverting
;;; the text as mouse is dragged in/out, report final
;;; click (A as passed) / cancel (A is negative)
button_loop_ok:
lda #prompt_button_ok
jmp button_event_loop
button_loop_cancel:
lda #prompt_button_cancel
jmp button_event_loop
button_loop_yes:
lda #prompt_button_yes
jmp button_event_loop
button_loop_no:
lda #prompt_button_no
jmp button_event_loop
button_loop_all:
lda #prompt_button_all
jmp button_event_loop
.proc button_event_loop
;; Configure test and fill procs
pha
asl a
asl a
tax
copy16 test_fill_button_proc_table,x, test_button_proc_addr
copy16 test_fill_button_proc_table+2,x, fill_button_proc_addr
pla
jmp event_loop
test_fill_button_proc_table:
.addr test_ok_button,fill_ok_button
.addr test_cancel_button,fill_cancel_button
.addr test_yes_button,fill_yes_button
.addr test_no_button,fill_no_button
.addr test_all_button,fill_all_button
test_ok_button:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::ok_button_rect
rts
test_cancel_button:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::cancel_button_rect
rts
test_yes_button:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::yes_button_rect
rts
test_no_button:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::no_button_rect
rts
test_all_button:
MGTK_RELAY_CALL MGTK::InRect, desktop_aux::all_button_rect
rts
fill_ok_button:
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::ok_button_rect
rts
fill_cancel_button:
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::cancel_button_rect
rts
fill_yes_button:
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::yes_button_rect
rts
fill_no_button:
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::no_button_rect
rts
fill_all_button:
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::all_button_rect
rts
test_proc: jmp (test_button_proc_addr)
fill_proc: jmp (fill_button_proc_addr)
test_button_proc_addr: .addr 0
fill_button_proc_addr: .addr 0
event_loop:
sta click_result
lda #0
sta down_flag
loop: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind
cmp #MGTK::event_kind_button_up
beq exit
lda winfo_alert_dialog
sta event_params
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
jsr test_proc
cmp #MGTK::inrect_inside
beq inside
lda down_flag ; outside but was inside?
beq invert
jmp loop
inside: lda down_flag ; already depressed?
bne invert
jmp loop
invert: jsr set_penmode_xor2
jsr fill_proc
lda down_flag
clc
adc #$80
sta down_flag
jmp loop
exit: lda down_flag ; was depressed?
beq clicked
return #$FF ; hi bit = cancelled
clicked:
jsr fill_proc ; invert one last time
return click_result ; grab expected result
down_flag:
.byte 0
click_result:
.byte 0
rts ; ???
.endproc
;;; ============================================================
.proc LB8F5
point := $6
xcoord := $6
ycoord := $8
jsr measure_path_buf1
stax xcoord
copy16 point6::ycoord, ycoord
MGTK_RELAY_CALL MGTK::MoveTo, point
MGTK_RELAY_CALL MGTK::SetPortBits, setportbits_params3
bit LD8EB
bpl LB92D
MGTK_RELAY_CALL MGTK::SetTextBG, desktop_aux::LAE6C
lda #$00
sta LD8EB
beq LB93B
LB92D: MGTK_RELAY_CALL MGTK::SetTextBG, desktop_aux::LAE6D
lda #$FF
sta LD8EB
drawtext_params := $6
textptr := $6
textlen := $8
LB93B: copy16 #LD8EF, textptr
lda LD8EE
sta textlen
MGTK_RELAY_CALL MGTK::DrawText, drawtext_params
MGTK_RELAY_CALL MGTK::SetTextBG, desktop_aux::LAE6D
lda winfo_alert_dialog
jsr set_port_from_window_id
rts
.endproc
;;; ============================================================
.proc draw_filename_prompt
lda path_buf1
beq done
lda winfo_alert_dialog
jsr set_port_from_window_id
jsr set_fill_white
MGTK_RELAY_CALL MGTK::PaintRect, rect1
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::FrameRect, rect1
MGTK_RELAY_CALL MGTK::MoveTo, point6
MGTK_RELAY_CALL MGTK::SetPortBits, setportbits_params3
addr_call draw_text1, path_buf1
addr_call draw_text1, path_buf2
addr_call draw_text1, str_2_spaces
lda winfo_alert_dialog
jsr set_port_from_window_id
done: rts
.endproc
;;; ============================================================
.proc LB9B8
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
MGTK_RELAY_CALL MGTK::InRect, rect1
cmp #MGTK::inrect_inside
beq :+
rts
: jsr measure_path_buf1
stax $06
cmp16 screentowindow_windowx, $06
bcs LB9EE
jmp LBA83
.endproc
.proc LB9EE
ptr := $6
jsr measure_path_buf1
stax LBB09
ldx path_buf2
inx
lda #' '
sta path_buf2,x
inc path_buf2
copy16 #path_buf2, ptr
lda path_buf2
sta ptr+2
LBA10: MGTK_RELAY_CALL MGTK::TextWidth, ptr
add16 $09, LBB09, $09
cmp16 $09, $D20D
bcc LBA42
dec $08
lda $08
cmp #$01
bne LBA10
dec path_buf2
jmp LBB05
.endproc
.proc LBA42
lda $08
cmp path_buf2
bcc LBA4F
dec path_buf2
jmp LBCC9
LBA4F: ldx #$02
ldy path_buf1
iny
LBA55: lda path_buf2,x
sta path_buf1,y
cpx $08
beq LBA64
iny
inx
jmp LBA55
LBA64: sty path_buf1
ldy #$02
ldx $08
inx
LBA6C: lda path_buf2,x
sta path_buf2,y
cpx path_buf2
beq LBA7C
iny
inx
jmp LBA6C
LBA7C: dey
sty path_buf2
jmp LBB05
.endproc
.proc LBA83
params := $6
textptr := $6
textlen := $8
result := $9
copy16 #path_buf1, textptr
lda path_buf1
sta textlen
: MGTK_RELAY_CALL MGTK::TextWidth, params
add16 result, point6::xcoord, result
cmp16 result, $D20D
bcc LBABF
dec textlen
lda textlen
cmp #1
bcs :-
jmp LBC5E
.endproc
.proc LBABF
inc $08
ldy #0
ldx $08
LBAC5: cpx path_buf1
beq LBAD5
inx
iny
lda path_buf1,x
sta LD3C0+2,y
jmp LBAC5
LBAD5: iny
sty LD3C0+1
ldx #1
ldy LD3C0+1
LBADE: cpx path_buf2
beq LBAEE
inx
iny
lda path_buf2,x
sta LD3C0+1,y
jmp LBADE
LBAEE: sty LD3C0+1
lda LD8EF
sta LD3C0+2
LBAF7: lda LD3C0+1,y
sta path_buf2,y
dey
bpl LBAF7
lda $08
sta path_buf1
;; fall through
.endproc
LBB05: jsr draw_filename_prompt
rts
LBB09: .word 0
LBB0B: sta LBB62
lda path_buf1
clc
adc path_buf2
cmp #$10
bcc LBB1A
rts
.proc LBB1A
point := $6
xcoord := $6
ycoord := $8
lda LBB62
ldx path_buf1
inx
sta path_buf1,x
sta str_1_char+1
jsr measure_path_buf1
inc path_buf1
stax xcoord
copy16 point6::ycoord, ycoord
MGTK_RELAY_CALL MGTK::MoveTo, point
MGTK_RELAY_CALL MGTK::SetPortBits, setportbits_params3
addr_call draw_text1, str_1_char
addr_call draw_text1, path_buf2
lda winfo_alert_dialog
jsr set_port_from_window_id
rts
.endproc
LBB62: .byte 0
LBB63: lda path_buf1
bne LBB69
rts
.proc LBB69
point := $6
xcoord := $6
ycoord := $8
dec path_buf1
jsr measure_path_buf1
stax xcoord
copy16 point6::ycoord, ycoord
MGTK_RELAY_CALL MGTK::MoveTo, point
MGTK_RELAY_CALL MGTK::SetPortBits, setportbits_params3
addr_call draw_text1, path_buf2
addr_call draw_text1, str_2_spaces
lda winfo_alert_dialog
jsr set_port_from_window_id
rts
.endproc
LBBA4: lda path_buf1
bne LBBAA
rts
.proc LBBAA
point := $6
xcoord := $6
ycoord := $8
ldx path_buf2
cpx #1
beq LBBBC
LBBB1: lda path_buf2,x
sta path_buf2+1,x
dex
cpx #1
bne LBBB1
LBBBC: ldx path_buf1
lda path_buf1,x
sta path_buf2+2
dec path_buf1
inc path_buf2
jsr measure_path_buf1
stax xcoord
copy16 point6::ycoord, ycoord
MGTK_RELAY_CALL MGTK::MoveTo, point
MGTK_RELAY_CALL MGTK::SetPortBits, setportbits_params3
addr_call draw_text1, path_buf2
addr_call draw_text1, str_2_spaces
lda winfo_alert_dialog
jsr set_port_from_window_id
rts
.endproc
LBC03: lda path_buf2
cmp #$02
bcs LBC0B
rts
LBC0B: ldx path_buf1
inx
lda path_buf2+2
sta path_buf1,x
inc path_buf1
ldx path_buf2
cpx #$03
bcc LBC2D
ldx #$02
LBC21: lda path_buf2+1,x
sta path_buf2,x
inx
cpx path_buf2
bne LBC21
LBC2D: dec path_buf2
MGTK_RELAY_CALL MGTK::MoveTo, point6
MGTK_RELAY_CALL MGTK::SetPortBits, setportbits_params3
addr_call draw_text1, path_buf1
addr_call draw_text1, path_buf2
addr_call draw_text1, str_2_spaces
lda winfo_alert_dialog
jsr set_port_from_window_id
rts
LBC5E: lda path_buf1
bne LBC64
rts
LBC64: ldx path_buf2
cpx #$01
beq LBC79
LBC6B: lda path_buf2,x
sta LD3C0,x
dex
cpx #$01
bne LBC6B
ldx path_buf2
LBC79: dex
stx LD3C0+1
ldx path_buf1
LBC80: lda path_buf1,x
sta path_buf2+1,x
dex
bne LBC80
lda LD8EF
sta path_buf2+1
inc path_buf1
lda path_buf1
sta path_buf2
lda path_buf1
clc
adc LD3C0+1
tay
pha
ldx LD3C0+1
beq LBCB3
LBCA6: lda LD3C0+1,x
sta path_buf2,y
dex
dey
cpy path_buf2
bne LBCA6
LBCB3: pla
sta path_buf2
lda #$00
sta path_buf1
MGTK_RELAY_CALL MGTK::MoveTo, point6
jsr draw_filename_prompt
rts
LBCC9: lda path_buf2
cmp #$02
bcs LBCD1
rts
LBCD1: ldx path_buf2
dex
txa
clc
adc path_buf1
pha
tay
ldx path_buf2
LBCDF: lda path_buf2,x
sta path_buf1,y
dex
dey
cpy path_buf1
bne LBCDF
pla
sta path_buf1
lda #$01
sta path_buf2
MGTK_RELAY_CALL MGTK::MoveTo, point6
jsr draw_filename_prompt
rts
stax $06
ldy #$00
lda ($06),y
tay
clc
adc path_buf1
pha
tax
LBD11: lda ($06),y
sta path_buf1,x
dey
dex
cpx path_buf1
bne LBD11
pla
sta path_buf1
rts
LBD22: ldx path_buf1
cpx #$00
beq LBD33
dec path_buf1
lda path_buf1,x
cmp #$2F
bne LBD22
LBD33: rts
jsr LBD22
jsr draw_filename_prompt
rts
;;; ============================================================
;;; Compute width of path_buf1, offset point6, return x coord in (A,X)
.proc measure_path_buf1
textwidth_params := $6
textptr := $6
textlen := $8
result := $9
copy16 #path_buf1+1, textptr
lda path_buf1
sta textlen
bne :+
ldax point6::xcoord
rts
: MGTK_RELAY_CALL MGTK::TextWidth, textwidth_params
lda result
clc
adc point6::xcoord
tay
lda result+1
adc point6::xcoord+1
tax
tya
rts
.endproc
;;; ============================================================
LBD69: lda #$01
sta path_buf2
lda LD8EF
sta path_buf2+1
rts
LBD75: lda #$00
sta path_buf1
rts
.proc load_aux_from_ptr
target := $20
;; Backup copy of $20
ldx #proc_len
: lda target,x
sta saved_proc_buf,x
dex
bpl :-
;; Overwrite with proc
ldx #proc_len
: lda proc,x
sta target,x
dex
bpl :-
;; Call proc
jsr target
pha
;; Restore copy
ldx #proc_len
: lda saved_proc_buf,x
sta target,x
dex
bpl :-
pla
rts
.proc proc
sta RAMRDON
sta RAMWRTON
ldy #0
lda ($06),y
sta RAMRDOFF
sta RAMWRTOFF
rts
.endproc
proc_len = .sizeof(proc)
saved_proc_buf:
.res 20, 0
.endproc
;;; ============================================================
;;; Make str_files singlular or plural based on file_count
.proc adjust_str_files_suffix
ldx str_files
lda file_count+1 ; > 255?
bne :+
lda file_count
cmp #2 ; > 2?
bcs :+
lda #' ' ; singlular
sta str_files,x
rts
: lda #'s' ; plural
sta str_files,x
rts
.endproc
;;; ============================================================
.proc compose_file_count_string
lda file_count
sta value
lda file_count+1
sta value+1
;; Init string with spaces
ldx #7
lda #' '
: sta str_file_count,x
dex
bne :-
lda #0
sta nonzero_flag
ldy #0 ; y = position in string
ldx #0 ; x = which power index is subtracted (*2)
;; For each power of ten
loop: lda #0
sta digit
;; Keep subtracting/incrementing until zero is hit
sloop: cmp16 value, powers,x
bpl subtract
lda digit
bne not_pad
bit nonzero_flag
bmi not_pad
;; Pad with space
lda #' '
bne :+
;; Convert to ASCII
not_pad:
ora #'0'
pha
lda #$80
sta nonzero_flag
pla
;; Place the character, move to next
: sta str_file_count+2,y
iny
inx
inx
cpx #8 ; up to 4 digits (*2) via subtraction
beq LBE4E
jmp loop
subtract:
inc digit
sub16 value, powers,x, value
jmp sloop
LBE4E: lda value ; handle last digit
ora #'0'
sta str_file_count+2,y
rts
powers: .word 10000,1000,100,10
value: .addr 0 ; remaining value as subtraction proceeds
digit: .byte 0 ; current digit being accumulated
nonzero_flag: ; high bit set once a non-zero digit seen
.byte 0
.endproc
;;; ============================================================
LBE63: ldy #$00
lda ($06),y
tay
LBE68: lda ($06),y
sta path_buf0,y
dey
bpl LBE68
addr_call adjust_case, path_buf0
rts
LBE78: ldy #$00
lda ($06),y
tay
LBE7D: lda ($06),y
sta path_buf1,y
dey
bpl LBE7D
addr_call adjust_case, path_buf1
rts
LBE8D: jsr set_fill_white
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::LAE86
rts
LBE9A: jsr set_fill_white
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::LAE8E
rts
set_fill_white:
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
rts
reset_state:
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
.assert * = $BEC4, error, "Segment length mismatch"
PAD_TO $BF00
.endproc ; desktop_main
desktop_main_pop_zp_addrs := desktop_main::pop_zp_addrs
desktop_main_push_zp_addrs := desktop_main::push_zp_addrs
;;; ============================================================
;;; Segment loaded into MAIN $800-$FFF
;;; ============================================================
;;; Appears to be init sequence - machine identification, etc
.proc desktop_800
.org $800
;;; ============================================================
start:
.proc detect_machine
;; Detect machine type
;; See Apple II Miscellaneous #7: Apple II Family Identification
lda #0
sta iigs_flag
lda ID_BYTE_FBC0 ; 0 = IIc or IIc+
beq :+
sec ; Follow detection protocol
jsr ID_BYTE_FE1F ; RTS on pre-IIgs
bcs :+ ; carry clear = IIgs
lda #$80
sta iigs_flag
: ldx ID_BYTE_FBB3
ldy ID_BYTE_FBC0
cpx #$06 ; Ensure a IIe or later
beq :+
brk ; Otherwise (][, ][+, ///), just crash
: sta ALTZPON
lda LCBANK1
lda LCBANK1
sta SET80COL
stx startdesktop_params::machine
sty startdesktop_params::subid
cpy #0
beq is_iic ; Now identify/store specific machine type.
bit iigs_flag ; (number is used in double-click timer)
bpl is_iie
lda #$FD ; IIgs
sta machine_type
jmp init_video
is_iie: lda #$96 ; IIe
sta machine_type
jmp init_video
is_iic: lda #$FA ; IIc
sta machine_type
jmp init_video
.endproc
iigs_flag: ; High bit set if IIgs detected.
.byte 0
;;; ============================================================
.proc init_video
sta CLR80VID
sta DHIRESON
sta DHIRESOFF
sta DHIRESON ; For good measure???
sta DHIRESOFF
sta SET80VID
sta DHIRESON ; Also AN3_OFF
sta HR2_ON ; For Le Chat Mauve: 560 B&W mode
sta HR3_ON
bit iigs_flag
bpl end
;; Force B&W mode on the IIgs
lda NEWVIDEO
ora #(1<<5) ; B&W
sta NEWVIDEO
;; fall through
end:
.endproc
;;; ============================================================
.proc detach_ramdisk
;; Make a copy of the original device list
ldx DEVCNT
inx
: lda DEVLST-1,x
sta DESKTOP_DEVICELIST,x
dex
bpl :-
;; Look for /RAM
ldx DEVCNT
: lda DEVLST,x
;; BUG: ProDOS Tech Note #21 says $B3,$B7,$BB or $BF could be /RAM
cmp #(1<<7 | 3<<4 | DT_RAM) ; unit_num for /RAM is Slot 3, Drive 2
beq found_ram
dex
bpl :-
bmi init_mgtk
found_ram:
jsr remove_device
;; fall through
.endproc
;;; ============================================================
;; Initialize MGTK
.proc init_mgtk
MGTK_RELAY_CALL MGTK::StartDeskTop, startdesktop_params
MGTK_RELAY_CALL MGTK::SetMenu, splash_menu
MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag0
MGTK_RELAY_CALL MGTK::SetCursor, watch_cursor
MGTK_RELAY_CALL MGTK::ShowCursor
;; fall through
.endproc
;;; ============================================================
;; Populate icon_entries table
.proc populate_icon_entries_table
ptr := $6
jsr desktop_main::push_zp_addrs
copy16 #icon_entries, ptr
ldx #1
loop: cpx #max_icon_count
bne :+
jsr desktop_main::pop_zp_addrs
jmp clear_window_icon_tables
: txa
pha
asl a
tax
copy16 ptr, icon_entry_address_table,x
pla
pha
ldy #0
sta (ptr),y
iny
lda #0
sta (ptr),y
lda ptr
clc
adc #icon_entry_size
sta ptr
bcc :+
inc ptr+1
: pla
tax
inx
jmp loop
.endproc
;;; ============================================================
;; Zero the window icon tables
.proc clear_window_icon_tables
sta RAMWRTON
lda #$00
tax
loop: sta $1F00,x ; window 8, icon use map
sta $1E00,x ; window 6, 7
sta $1D00,x ; window 4, 5
sta $1C00,x ; window 2, 3
sta $1B00,x ; window 0, 1 (0=desktop)
inx
bne loop
sta RAMWRTOFF
jmp create_trash_icon
.endproc
;;; ============================================================
trash_name: PASCAL_STRING " Trash "
.proc create_trash_icon
ptr := $6
lda #0
sta cached_window_id
lda #1
sta cached_window_icon_count
sta LDD9E
jsr DESKTOP_ALLOC_ICON
sta trash_icon_num
sta cached_window_icon_list
jsr desktop_main::icon_entry_lookup
stax ptr
ldy #icon_entry_offset_win_type
lda #icon_entry_type_trash
sta (ptr),y
ldy #icon_entry_offset_iconbits
lda #<desktop_aux::trash_icon
sta (ptr),y
iny
lda #>desktop_aux::trash_icon
sta (ptr),y
iny
ldx #0
: lda trash_name,x
sta (ptr),y
iny
inx
cpx trash_name
bne :-
lda trash_name,x
sta (ptr),y
;; fall through
.endproc
;;; ============================================================
;; create volume icons???
.proc init_volumes
lda DEVCNT
sta devcnt
inc devcnt
ldx #0
: lda DEVLST,x
and #%10001111 ; drive, not slot, $CnFE status
cmp #%10001011 ; drive 1 ... ??? $CnFE = $Bx ?
beq :+
inx
cpx devcnt
bne :-
jmp done
: lda DEVLST,x
stx L09F8
sta L0A02
ldx #$11
lda L0A02
and #$80
beq :+
ldx #$21
: stx L09B5
lda L0A02
and #$70
lsr a
lsr a
lsr a
clc
adc L09B5
sta L09B5
L09B5 := *+1
lda $BF00 ; self-modified
sta $06+1
lda #$00
sta $06
ldy #$07
lda ($06),y
bne done
ldy #$FB
lda ($06),y
and #$7F
bne done
ldy #$FF
lda ($06),y
clc
adc #$03
sta $06
jsr L09F9
.byte 0
.addr L09FC
bcs done
lda $1F00
cmp #2
bcs done
ldx L09F8
: lda DEVLST+1,x
sta DEVLST,x
inx
cpx devcnt
bne :-
dec DEVCNT
done: jmp load_selector_list
L09F8: .byte 0
L09F9: jmp ($06)
L09FC: .byte $03
.byte 0
.byte 0
.byte $1F
.byte 0
devcnt: .byte 0
L0A02: .byte 0
.endproc
;;; ============================================================
.proc load_selector_list
ptr1 := $6
ptr2 := $8
selector_list_io_buf := $1000
selector_list_data_buf := $1400
selector_list_data_len := $400
MGTK_RELAY_CALL MGTK::CheckEvents
MLI_RELAY_CALL GET_PREFIX, desktop_main::get_prefix_params
MGTK_RELAY_CALL MGTK::CheckEvents
lda #0
sta L0A92
jsr read_selector_list
lda selector_list_data_buf
clc
adc selector_list_data_buf+1
sta LD343
lda #0
sta LD343+1
lda selector_list_data_buf
sta L0A93
L0A3B: lda L0A92
cmp L0A93
beq L0A8F
jsr calc_data_addr
stax ptr1
lda L0A92
jsr calc_entry_addr
stax ptr2
ldy #0
lda (ptr1),y
tay
L0A59: lda (ptr1),y
sta (ptr2),y
dey
bpl L0A59
ldy #15
lda (ptr1),y
sta (ptr2),y
lda L0A92
jsr calc_data_str
stax ptr1
lda L0A92
jsr calc_entry_str
stax ptr2
ldy #0
lda (ptr1),y
tay
L0A7F: lda (ptr1),y
sta (ptr2),y
dey
bpl L0A7F
inc L0A92
inc selector_menu
jmp L0A3B
L0A8F: jmp calc_header_item_widths
L0A92: .byte 0
L0A93: .byte 0
.byte 0
;;; --------------------------------------------------
calc_data_addr:
jsr desktop_main::a_times_16
clc
adc #<(selector_list_data_buf+2)
tay
txa
adc #>(selector_list_data_buf+2)
tax
tya
rts
calc_entry_addr:
jsr desktop_main::a_times_16
clc
adc #<run_list_entries
tay
txa
adc #>run_list_entries
tax
tya
rts
calc_entry_str:
jsr desktop_main::a_times_64
clc
adc #<(run_list_entries + $80)
tay
txa
adc #>(run_list_entries + $80)
tax
tya
rts
calc_data_str:
jsr desktop_main::a_times_64
clc
adc #<(selector_list_data_buf+2 + $180)
tay
txa
adc #>(selector_list_data_buf+2 + $180)
tax
tya
rts
;;; --------------------------------------------------
DEFINE_OPEN_PARAMS open_params, str_selector_list, selector_list_io_buf
str_selector_list:
PASCAL_STRING "Selector.List"
DEFINE_READ_PARAMS read_params, selector_list_data_buf, selector_list_data_len
DEFINE_CLOSE_PARAMS close_params
read_selector_list:
MLI_RELAY_CALL OPEN, open_params
lda open_params::ref_num
sta read_params::ref_num
MLI_RELAY_CALL READ, read_params
MLI_RELAY_CALL CLOSE, close_params
rts
.endproc
;;; ============================================================
.proc calc_header_item_widths
;; Enough space for "123456"
addr_call desktop_main::measure_text1, str_from_int
stax dx
;; Width of "123456 Items"
addr_call desktop_main::measure_text1, str_items
addax dx, width_items_label
;; Width of "123456K in disk"
addr_call desktop_main::measure_text1, str_k_in_disk
addax dx, width_k_in_disk_label
;; Width of "123456K available"
addr_call desktop_main::measure_text1, str_k_available
addax dx, width_k_available_label
add16 width_k_in_disk_label, width_k_available_label, width_right_labels
add16 width_items_label, #5, width_items_label_padded
add16 width_items_label_padded, width_k_in_disk_label, width_left_labels
add16 width_left_labels, #3, width_left_labels
jmp enumerate_desk_accessories
dx: .word 0
.endproc
;;; ============================================================
.proc enumerate_desk_accessories
MGTK_RELAY_CALL MGTK::CheckEvents ; ???
;; Does the directory exist?
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params
beq :+
jmp L0D0A
: lda get_file_info_type
cmp #FT_DIRECTORY
beq L0BC3
jmp L0D0A
L0BC3: MLI_RELAY_CALL OPEN, open_params
lda open_ref_num
sta read_ref_num
sta close_ref_num
MLI_RELAY_CALL READ, read_params
lda #$00
sta L0D04
sta L0D05
lda #$01
sta L0D08
lda $1425
and #$7F
sta L0D03
lda #$02
sta apple_menu
lda $1424
sta L0D07
lda $1423
sta L0D06
lda #$2B
sta $06
lda #$14
sta $06+1
L0C0C: ldy #$00
lda ($06),y
and #$0F
bne L0C17
jmp L0C81
L0C17: inc L0D04
ldy #$10
lda ($06),y
cmp #$F1
beq L0C25
jmp L0C81
L0C25: inc L0D05
copy16 #buf, $08
lda #$00
sta L0D09
lda apple_menu
sec
sbc #$02
asl a
rol L0D09
asl a
rol L0D09
asl a
rol L0D09
asl a
rol L0D09
clc
adc $08
sta $08
lda L0D09
adc $08+1
sta $08+1
ldy #$00
lda ($06),y
and #$0F
sta ($08),y
tay
L0C60: lda ($06),y
sta ($08),y
dey
bne L0C60
addr_call_indirect desktop_main::capitalize_string, $08
;; Convert periods to spaces
lda ($08),y
tay
L0C71: lda ($08),y
cmp #'.'
bne L0C7B
lda #' '
sta ($08),y
L0C7B: dey
bne L0C71
inc apple_menu
L0C81: lda L0D05
cmp #$08
bcc L0C8B
jmp L0CCB
L0C8B: lda L0D04
cmp L0D03
bne L0C96
jmp L0CCB
L0C96: inc L0D08
lda L0D08
cmp L0D07
bne L0CBA
MLI_RELAY_CALL READ, read_params
copy16 #$1404, $06
lda #$00
sta L0D08
jmp L0C0C
L0CBA: add16_8 $06, L0D06, $06
jmp L0C0C
L0CCB: MLI_RELAY_CALL CLOSE, close_params
jmp L0D0A
DEFINE_OPEN_PARAMS open_params, str_desk_acc, $1000
open_ref_num := open_params::ref_num
DEFINE_READ_PARAMS read_params, $1400, $200
read_ref_num := read_params::ref_num
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params, str_desk_acc
get_file_info_type := get_file_info_params::file_type
.byte 0
DEFINE_CLOSE_PARAMS close_params
close_ref_num := close_params::ref_num
str_desk_acc:
PASCAL_STRING "Desk.acc"
L0D03: .byte 0
L0D04: .byte 0
L0D05: .byte 0
L0D06: .byte 0
L0D07: .byte 0
L0D08: .byte 0
L0D09: .byte 0
.endproc
;;; ============================================================
.proc L0D0A
ldy #0
sty desktop_main::pending_alert
sty L0E33
L0D12: lda L0E33
asl a
tay
copy16 $DB00,y, $08
ldy L0E33
lda DEVLST,y
pha
txa
pha
tya
pha
inc cached_window_icon_count
inc LDD9E
lda DEVLST,y
jsr desktop_main::get_device_info
sta L0E34
MGTK_RELAY_CALL MGTK::CheckEvents
pla
tay
pla
tax
pla
pha
lda L0E34
cmp #$28
bne L0D64
ldy L0E33
lda DEVLST,y
and #$0F
beq L0D6D
ldx L0E33
jsr remove_device
jmp L0E25
L0D64: cmp #$57
bne L0D6D
lda #$F9 ; "... 2 volumes with the same name..."
sta desktop_main::pending_alert
L0D6D: pla
pha
and #$0F
sta L0E32
cmp #$00
bne L0D7F
addr_jump L0DAD, str_slot_drive
L0D7F: cmp #$0B
beq L0DA9
cmp #$04
bne L0DC2
pla
pha
and #$70 ; Compute $CnFB
lsr a
lsr a
lsr a
lsr a
ora #$C0
sta L0D96
L0D96 := *+2
lda $C7FB ; self-modified
and #$01
bne L0DA2
addr_jump L0DAD, str_profile_slot_x
L0DA2: addr_jump L0DAD, str_ramcard_slot_x
L0DA9: ldax #str_unidisk_xy
L0DAD: stax $06
ldy #$00
lda ($06),y
sta L0DBE
L0DB8: iny
lda ($06),y
sta ($08),y
L0DBE := *+1
cpy #0
bne L0DB8
tay
L0DC2: pla
pha
and #$70
lsr a
lsr a
lsr a
lsr a
ora #$30
tax
lda L0E32
cmp #$04
bne L0DF0
pla
pha
and #$70 ; compute $CnFB
lsr a
lsr a
lsr a
lsr a
ora #$C0
sta L0DE3
L0DE3 := *+2
lda $C7FB ; self-modified
and #$01
bne L0DEC
ldy #$0E
bne L0DFA
L0DEC: ldy #$0E
bne L0DFA
L0DF0: cmp #$0B
bne L0DF8
ldy #$0F
bne L0DFA
L0DF8: ldy #$06
L0DFA: txa
sta ($08),y
lda L0E32
and #$0F
cmp #$04
beq L0E21
pla
pha
rol a
lda #$00
adc #$01
ora #$30
pha
lda L0E32
and #$0F
bne L0E1C
ldy #$10
pla
bne L0E1F
L0E1C: ldy #$11
pla
L0E1F: sta ($08),y
L0E21: pla
inc L0E33
L0E25: lda L0E33
cmp DEVCNT
beq L0E2F
bcs populate_startup_menu
L0E2F: jmp L0D12
L0E32: .byte 0
L0E33: .byte 0
L0E34: .byte 0
.endproc
;;; ============================================================
;; Remove device num in X from devices list
.proc remove_device
dex
L0E36: inx
lda DEVLST+1,x
sta DEVLST,x
lda devlst_copy+1,x
sta devlst_copy,x
cpx DEVCNT
bne L0E36
dec DEVCNT
rts
.endproc
;;; ============================================================
.proc populate_startup_menu
lda DEVCNT
clc
adc #3
sta LE270
lda #0
sta slot
tay
tax
loop: lda DEVLST,y
and #$70 ; mask off slot
beq done
lsr a
lsr a
lsr a
lsr a
cmp slot ; same as last?
beq :+
cmp #2 ; ???
bne prepare
: cpy DEVCNT
beq done
iny
jmp loop
prepare:
sta slot
clc
adc #'0'
sta char
txa ; pointer to nth sNN string
pha
asl a
tax
copy16 slot_string_table,x, item_ptr
ldx startup_menu_item_1 ; replace second-from-last char
dex
lda char
item_ptr := *+1
sta dummy1234,x
pla
tax
inx
cpy DEVCNT
beq done
iny
jmp loop
done: stx startup_menu
jmp L0EE1
char: .byte 0
slot: .byte 0
slot_string_table:
.addr startup_menu_item_1
.addr startup_menu_item_2
.addr startup_menu_item_3
.addr startup_menu_item_4
.addr startup_menu_item_5
.addr startup_menu_item_6
.addr startup_menu_item_7
.endproc
;;; ============================================================
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params2, desktop_main::sys_start_path
.byte 0
DEFINE_GET_PREFIX_PARAMS get_prefix_params, desktop_main::sys_start_path
str_system_start: PASCAL_STRING "System/Start"
.proc L0EE1
lda #0
sta desktop_main::sys_start_flag
jsr desktop_main::get_LD3FF
cmp #$80
beq L0EFE
MLI_RELAY_CALL GET_PREFIX, get_prefix_params
bne config_toolkit
dec desktop_main::sys_start_path
jmp L0F05
L0EFE: addr_call desktop_main::copy_LD3AD_str, desktop_main::sys_start_path
L0F05: ldx desktop_main::sys_start_path
;; Find last /
floop: lda desktop_main::sys_start_path,x
cmp #'/'
beq :+
dex
bne floop
;; Replace last path segment with "System/Start"
: ldy #0
cloop: inx
iny
lda str_system_start,y
sta desktop_main::sys_start_path,x
cpy str_system_start
bne cloop
stx desktop_main::sys_start_path
;; Does it point at anything? If so, set flag.
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params2
bne config_toolkit
lda #$80
sta desktop_main::sys_start_flag
;; Final MGTK configuration
config_toolkit:
MGTK_RELAY_CALL MGTK::CheckEvents
MGTK_RELAY_CALL MGTK::SetMenu, desktop_aux::desktop_menu
MGTK_RELAY_CALL MGTK::SetCursor, pointer_cursor
lda #0
sta active_window_id
jsr desktop_main::L66A2
jsr desktop_main::disable_eject_menu_item
jsr desktop_main::disable_file_menu_items
jmp MGTK::MLI
.endproc
.assert * = $0F60, error, "Segment length mismatch"
PAD_TO $1000
.endproc ; desktop_800