mirror of
https://github.com/mi57730/a2d.git
synced 2024-07-21 22:28:57 +00:00
15236 lines
362 KiB
ArmAsm
15236 lines
362 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
|
|
|
|
.scope format_erase_overlay
|
|
L0CB8 := $0CB8
|
|
L0CD7 := $0CD7
|
|
L0CF9 := $0CF9
|
|
L0D14 := $0D14
|
|
.endscope
|
|
|
|
path_buf_main := $1FC0
|
|
|
|
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 initialize_disks_in_devices_tables
|
|
|
|
;; 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: copy #0, 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 :+
|
|
copy #0, loop_counter
|
|
|
|
jsr show_clock
|
|
|
|
;; Poll drives for updates
|
|
jsr check_disk_inserted_ejected
|
|
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::EventKind::button_down
|
|
beq click
|
|
cmp #MGTK::EventKind::apple_key
|
|
bne :+
|
|
click: jsr handle_click
|
|
jmp main_loop
|
|
|
|
;; Is it a key down event?
|
|
: cmp #MGTK::EventKind::key_down
|
|
bne :+
|
|
jsr handle_keydown
|
|
jmp main_loop
|
|
|
|
;; Is it an update event?
|
|
: cmp #MGTK::EventKind::update
|
|
bne :+
|
|
jsr reset_grafport3
|
|
copy active_window_id, L40F0
|
|
copy #$80, L40F1
|
|
jsr L410D
|
|
|
|
: jmp main_loop
|
|
|
|
loop_counter:
|
|
.byte 0
|
|
|
|
;;; --------------------------------------------------
|
|
|
|
L40E0: tsx
|
|
stx LE256
|
|
sta menu_click_params::item_num
|
|
jsr L59A0
|
|
copy #0, menu_click_params::item_num
|
|
rts
|
|
|
|
L40F0: .byte $00
|
|
L40F1: .byte $00
|
|
redraw_windows:
|
|
jsr reset_grafport3
|
|
copy active_window_id, L40F0
|
|
copy #$00, L40F1
|
|
L4100: jsr peek_event
|
|
lda event_kind
|
|
cmp #MGTK::EventKind::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: copy #0, 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
|
|
copy #$80, L4152
|
|
copy cached_window_id, 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
|
|
sub16in ($06),y, grafport2::viewloc::ycoord, L4242
|
|
cmp16 L4242, #15
|
|
bpl L41CB
|
|
jsr offset_grafport2
|
|
|
|
ldx #$0B
|
|
ldy #$1F
|
|
copy grafport2,x, ($06),y
|
|
dey
|
|
dex
|
|
copy grafport2,x, ($06),y
|
|
|
|
ldx #$03
|
|
ldy #$17
|
|
copy grafport2,x, ($06),y
|
|
dey
|
|
dex
|
|
copy grafport2,x, ($06),y
|
|
|
|
L41CB: ldx cached_window_id
|
|
dex
|
|
lda win_view_by_table,x
|
|
bpl L41E2
|
|
jsr L6C19
|
|
copy #$00, L4152
|
|
lda active_window_id
|
|
jmp assign_window_portbits
|
|
|
|
L41E2: copy cached_window_id, getwinport_params2::window_id
|
|
jsr get_set_port2
|
|
jsr cached_icons_window_to_screen
|
|
|
|
COPY_BLOCK grafport2::cliprect, rect_E230
|
|
|
|
copy #0, L4241
|
|
L41FE: lda L4241
|
|
cmp cached_window_icon_count
|
|
beq L4227
|
|
tax
|
|
copy cached_window_icon_list,x, icon_param
|
|
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
|
|
beq :+
|
|
DESKTOP_RELAY_CALL DT_REDRAW_ICON, icon_param
|
|
: inc L4241
|
|
jmp L41FE
|
|
|
|
L4227: copy #$00, L4152
|
|
copy cached_window_id, 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: .word 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L4244
|
|
lda selected_icon_count
|
|
bne :+
|
|
bail: rts
|
|
|
|
: copy #0, L42C3
|
|
|
|
lda selected_window_index
|
|
beq L42A5
|
|
cmp active_window_id
|
|
bne bail
|
|
|
|
copy active_window_id, getwinport_params2::window_id
|
|
jsr get_port2
|
|
jsr offset_grafport2_and_set
|
|
|
|
COPY_BLOCK grafport2::cliprect, rect_E230
|
|
|
|
L4270: lda L42C3
|
|
cmp selected_icon_count
|
|
beq done
|
|
tax
|
|
copy selected_icon_list,x, icon_param
|
|
jsr icon_window_to_screen
|
|
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
|
|
beq :+
|
|
DESKTOP_RELAY_CALL DT_REDRAW_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
|
|
copy selected_icon_list,x, icon_param
|
|
DESKTOP_RELAY_CALL DT_REDRAW_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)
|
|
menu1_start := *
|
|
.addr cmd_about
|
|
.addr cmd_noop ; --------
|
|
.repeat ::max_desk_acc_count
|
|
.addr cmd_deskacc
|
|
.endrepeat
|
|
|
|
;; File menu (2)
|
|
menu2_start := *
|
|
.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)
|
|
menu3_start := *
|
|
.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)
|
|
menu4_start := *
|
|
.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)
|
|
menu5_start := *
|
|
.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/7 unused
|
|
menu6_start := *
|
|
menu7_start := *
|
|
|
|
;; Startup menu (8)
|
|
menu8_start := *
|
|
.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
|
|
|
|
menu_end := *
|
|
|
|
;; indexed by menu id-1
|
|
offset_table:
|
|
.byte menu1_start - dispatch_table
|
|
.byte menu2_start - dispatch_table
|
|
.byte menu3_start - dispatch_table
|
|
.byte menu4_start - dispatch_table
|
|
.byte menu5_start - dispatch_table
|
|
.byte menu6_start - dispatch_table
|
|
.byte menu7_start - dispatch_table
|
|
.byte menu8_start - dispatch_table
|
|
.byte menu_end - dispatch_table
|
|
|
|
PAD_TO $4359
|
|
|
|
flag: .byte $00
|
|
|
|
;; Handle accelerator keys
|
|
handle_keydown:
|
|
lda event_modifiers
|
|
bne :+ ; either OA or SA ?
|
|
jmp menu_accelerators ; nope
|
|
: cmp #3 ; both OA + SA ?
|
|
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:
|
|
copy event_key, LE25C
|
|
lda event_modifiers
|
|
beq :+
|
|
lda #1
|
|
: 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 proc_addr
|
|
txa
|
|
clc
|
|
adc proc_addr
|
|
tax
|
|
copy16 dispatch_table,x, proc_addr
|
|
jsr call_proc
|
|
MGTK_RELAY_CALL MGTK::HiliteMenu, menu_click_params
|
|
rts
|
|
|
|
call_proc:
|
|
tsx
|
|
stx LE256
|
|
proc_addr := *+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
|
|
copy #0, findwindow_window_id
|
|
DESKTOP_RELAY_CALL DT_FIND_ICON, event_coords
|
|
lda findicon_which_icon
|
|
beq :+
|
|
jmp L67D7
|
|
|
|
: 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
|
|
ptr := $6
|
|
|
|
jmp start
|
|
|
|
L445C: .byte 0
|
|
|
|
start: jsr clear_selection
|
|
ldx findwindow_window_id
|
|
dex
|
|
copy LEC26,x, icon_param
|
|
lda icon_param
|
|
jsr icon_entry_lookup
|
|
stax ptr
|
|
ldy #1
|
|
lda (ptr),y
|
|
beq L44A6
|
|
ora #$80
|
|
sta (ptr),y
|
|
iny
|
|
lda (ptr),y
|
|
and #$0F
|
|
sta L445C
|
|
jsr zero_grafport5_coords
|
|
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
|
|
jsr reset_grafport3
|
|
copy L445C, selected_window_index
|
|
copy #1, selected_icon_count
|
|
copy icon_param, selected_icon_list
|
|
L44A6: MGTK_RELAY_CALL MGTK::SelectWindow, findwindow_window_id
|
|
copy findwindow_window_id, active_window_id
|
|
sta cached_window_id
|
|
jsr DESKTOP_COPY_TO_BUF
|
|
jsr L6C19
|
|
copy #0, cached_window_id
|
|
jsr DESKTOP_COPY_TO_BUF
|
|
copy #MGTK::checkitem_uncheck, checkitem_params::check
|
|
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
|
|
ldx active_window_id
|
|
dex
|
|
lda win_view_by_table,x
|
|
and #$0F
|
|
sta checkitem_params::menu_item
|
|
inc checkitem_params::menu_item
|
|
copy #MGTK::checkitem_check, 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 initialize_disks_in_devices_tables
|
|
ldx #0
|
|
ldy DEVCNT
|
|
loop: lda DEVLST,y
|
|
and #$0F
|
|
cmp #DT_REMOVABLE
|
|
beq append ; yes
|
|
next: dey
|
|
bpl loop
|
|
|
|
stx removable_device_table
|
|
stx disk_in_device_table
|
|
jsr check_disks_in_devices
|
|
|
|
;; Make copy of table
|
|
ldx disk_in_device_table
|
|
beq done
|
|
: copy disk_in_device_table,x, last_disk_in_devices_table,x
|
|
dex
|
|
bpl :-
|
|
|
|
done: rts
|
|
|
|
append: lda DEVLST,y ; add it to the list
|
|
inx
|
|
sta removable_device_table,x
|
|
bne next ; always
|
|
|
|
rts ; remove ???
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Update table tracking disk-in-device status, determine if
|
|
;;; there was a change (insertion or ejection).
|
|
;;; Output: 0 if no change,
|
|
|
|
.proc check_disk_inserted_ejected
|
|
lda disk_in_device_table
|
|
beq done
|
|
jsr check_disks_in_devices
|
|
ldx disk_in_device_table
|
|
: lda disk_in_device_table,x
|
|
cmp last_disk_in_devices_table,x
|
|
bne changed
|
|
dex
|
|
bne :-
|
|
done: return #0
|
|
|
|
changed:
|
|
copy disk_in_device_table,x, last_disk_in_devices_table,x
|
|
|
|
lda removable_device_table,x
|
|
ldy DEVCNT
|
|
: cmp DEVLST,y
|
|
beq :+
|
|
dey
|
|
bpl :-
|
|
rts
|
|
|
|
: tya
|
|
clc
|
|
adc #$03
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.byte $00
|
|
|
|
max_removable_devices = 8
|
|
|
|
removable_device_table:
|
|
.byte 0 ; num entries
|
|
.res max_removable_devices, 0
|
|
|
|
;;; Updated by check_disks_in_devices
|
|
disk_in_device_table:
|
|
.byte 0 ; num entries
|
|
.res max_removable_devices, 0
|
|
|
|
;;; Snapshot of previous results; used to detect changes.
|
|
last_disk_in_devices_table:
|
|
.byte 0 ; num entries
|
|
.res max_removable_devices, 0
|
|
|
|
;;; ============================================================
|
|
|
|
.proc check_disks_in_devices
|
|
ptr := $6
|
|
|
|
ldx removable_device_table
|
|
beq done
|
|
stx disk_in_device_table
|
|
: lda removable_device_table,x
|
|
jsr check_disk_in_drive
|
|
sta disk_in_device_table,x
|
|
dex
|
|
bne :-
|
|
done: rts
|
|
|
|
check_disk_in_drive:
|
|
sta unit_number
|
|
txa
|
|
pha
|
|
tya
|
|
pha
|
|
|
|
sp_addr := $0A
|
|
lda unit_number
|
|
jsr find_smartport_dispatch_address
|
|
bne notsp ; not SmartPort
|
|
|
|
;; Compute smart port control unit number
|
|
lda unit_number
|
|
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 smartport_call
|
|
.byte $00 ; $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 (or no disk in drive)
|
|
|
|
finish: sta result
|
|
pla
|
|
tay
|
|
pla
|
|
tax
|
|
return result
|
|
|
|
smartport_call:
|
|
jmp (sp_addr)
|
|
|
|
unit_number:
|
|
.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
|
|
copy #0, 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
|
|
copy #$80, LE26F
|
|
L46A7: rts
|
|
|
|
L46A8: bit LE26F
|
|
bmi L46AE
|
|
rts
|
|
|
|
L46AE: jsr disable_eject_menu_item
|
|
jsr disable_file_menu_items
|
|
copy #$00, 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
|
|
path := $220
|
|
|
|
jmp begin
|
|
|
|
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params, path
|
|
|
|
begin:
|
|
jsr set_watch_cursor
|
|
|
|
;; Compose window path plus icon path
|
|
ldx #$FF
|
|
: inx
|
|
copy buf_win_path,x, path,x
|
|
cpx buf_win_path
|
|
bne :-
|
|
|
|
inx
|
|
copy #'/', path,x
|
|
|
|
ldy #0
|
|
: iny
|
|
inx
|
|
copy buf_filename2,y, path,x
|
|
cpy buf_filename2
|
|
bne :-
|
|
stx path
|
|
|
|
;; Get the file info to determine type.
|
|
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params
|
|
beq :+
|
|
jsr DESKTOP_SHOW_ALERT0
|
|
rts
|
|
|
|
;; Check file type.
|
|
: lda get_file_info_params::file_type
|
|
cmp #FT_BASIC
|
|
bne :+
|
|
jsr check_basic_system ; Only launch if BASIC.SYSTEM is found
|
|
jmp launch
|
|
|
|
: cmp #FT_BINARY
|
|
bne :+
|
|
lda BUTN0 ; Only launch if a button is down
|
|
ora BUTN1 ; BUG: Never gets this far ???
|
|
bmi launch
|
|
jsr set_pointer_cursor
|
|
rts
|
|
|
|
: cmp #FT_SYSTEM
|
|
beq launch
|
|
|
|
cmp #FT_S16
|
|
beq launch
|
|
|
|
lda #$FA
|
|
jsr show_alert_and_fail
|
|
|
|
launch: DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ALL
|
|
MGTK_RELAY_CALL MGTK::CloseAll
|
|
MGTK_RELAY_CALL MGTK::SetMenu, blank_menu
|
|
ldx buf_win_path
|
|
: copy buf_win_path,x, path,x
|
|
dex
|
|
bpl :-
|
|
ldx buf_filename2
|
|
: copy buf_filename2,x, INVOKER_FILENAME,x
|
|
dex
|
|
bpl :-
|
|
addr_call upcase_string, $280
|
|
addr_call upcase_string, path
|
|
jsr restore_device_list
|
|
copy16 #INVOKER, reset_and_invoke_target
|
|
jmp reset_and_invoke
|
|
|
|
;;; --------------------------------------------------
|
|
|
|
.proc check_basic_system_impl
|
|
path := $1800
|
|
|
|
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params2, path
|
|
|
|
start: ldx buf_win_path
|
|
stx path_length
|
|
: copy buf_win_path,x, path,x
|
|
dex
|
|
bpl :-
|
|
|
|
inc path
|
|
ldx path
|
|
copy #'/', path,x
|
|
loop:
|
|
;; Append BASIC.SYSTEM to path and check for file.
|
|
ldx path
|
|
ldy #0
|
|
: inx
|
|
iny
|
|
copy str_basic_system,y, path,x
|
|
cpy str_basic_system
|
|
bne :-
|
|
stx path
|
|
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params2
|
|
bne not_found
|
|
rts
|
|
|
|
;; Pop off a path segment and try again.
|
|
not_found:
|
|
ldx path_length
|
|
: lda path,x
|
|
cmp #'/'
|
|
beq found_slash
|
|
dex
|
|
bne :-
|
|
|
|
no_bs: lda #$FE ; "BASIC.SYSTEM not found"
|
|
|
|
show_alert_and_fail:
|
|
jsr DESKTOP_SHOW_ALERT0
|
|
pla ; pop caller address, return to its caller
|
|
pla
|
|
rts
|
|
|
|
found_slash:
|
|
cpx #$01
|
|
beq no_bs
|
|
stx path
|
|
dex
|
|
stx path_length
|
|
jmp loop
|
|
|
|
path_length:
|
|
.byte 0
|
|
|
|
str_basic_system:
|
|
PASCAL_STRING "Basic.system"
|
|
.endproc
|
|
check_basic_system := check_basic_system_impl::start
|
|
show_alert_and_fail := check_basic_system_impl::show_alert_and_fail
|
|
|
|
;;; --------------------------------------------------
|
|
|
|
prefix_buffer: .res 30, 0
|
|
|
|
.proc upcase_string
|
|
ptr := $06
|
|
|
|
stax ptr
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
loop: lda (ptr),y
|
|
cmp #'a'
|
|
bcc :+
|
|
cmp #'z'+1
|
|
bcs :+
|
|
and #CASE_MASK
|
|
sta (ptr),y
|
|
: dey
|
|
bne loop
|
|
rts
|
|
.endproc
|
|
|
|
.endproc
|
|
prefix_buffer := launch_file::prefix_buffer
|
|
|
|
;;; ============================================================
|
|
|
|
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 restore_device_list
|
|
ldx devlst_backup
|
|
inx
|
|
: lda devlst_backup,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 #3 ; 1 = Add, 2 = Edit (need more overlays)
|
|
bcs :+ ; 3 = Delete, 4 = Run (can skip)
|
|
lda #dynamic_routine_selector2
|
|
jsr load_dynamic_routine
|
|
bmi done
|
|
lda #dynamic_routine_common
|
|
jsr load_dynamic_routine
|
|
bmi done
|
|
|
|
: jsr set_pointer_cursor
|
|
;; Invoke routine
|
|
lda menu_click_params::item_num
|
|
jsr dynamic_routine_9000
|
|
sta result
|
|
jsr set_watch_cursor
|
|
;; Restore from overlays
|
|
lda #dynamic_routine_restore9000
|
|
jsr restore_dynamic_routine
|
|
|
|
lda menu_click_params::item_num
|
|
cmp #4 ; 4 = Run ?
|
|
bne done
|
|
|
|
lda result
|
|
bpl done
|
|
jsr L4AAD
|
|
jsr L4A77
|
|
jsr get_quit_routine_signature
|
|
bpl L497A
|
|
jsr L8F24 ; Condition for this ???
|
|
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 buf_win_path,x
|
|
dex
|
|
bpl L496E
|
|
jmp L4A17
|
|
|
|
L497A: jsr L4AAD
|
|
ldx L0800
|
|
L4980: lda L0800,x
|
|
sta buf_win_path,x
|
|
dex
|
|
bpl L4980
|
|
jsr L4A17
|
|
jmp done
|
|
|
|
result: .byte 0
|
|
.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_quit_routine_signature
|
|
beq L49FA
|
|
lda L49A5
|
|
jsr L4AEA
|
|
beq L49ED
|
|
lda L49A5
|
|
jsr L4A47
|
|
jsr L8F24
|
|
bpl L49ED
|
|
jmp redraw_windows_and_desktop
|
|
|
|
L49E0: jsr get_quit_routine_signature
|
|
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 buf_win_path,y
|
|
dey
|
|
bpl L4A0F
|
|
L4A17: ldy buf_win_path
|
|
L4A1A: lda buf_win_path,y
|
|
cmp #'/'
|
|
beq L4A24
|
|
dey
|
|
bpl L4A1A
|
|
L4A24: dey
|
|
sty L4A46
|
|
ldx #$00
|
|
iny
|
|
L4A2B: iny
|
|
inx
|
|
lda buf_win_path,y
|
|
sta buf_filename2,x
|
|
cpy buf_win_path
|
|
bne L4A2B
|
|
stx buf_filename2
|
|
lda L4A46
|
|
sta buf_win_path
|
|
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 #'/'
|
|
beq L4A84
|
|
dey
|
|
bne L4A7A
|
|
L4A84: dey
|
|
sty L0800
|
|
ldy $840
|
|
L4A8B: lda $840,y
|
|
cmp #'/'
|
|
beq L4A95
|
|
dey
|
|
bne L4A8B
|
|
L4A95: dey
|
|
sty $840
|
|
copy16 #$800, $06
|
|
copy16 #$840, $08
|
|
jsr L4D19
|
|
rts
|
|
|
|
L4AAD: ldy buf_win_path
|
|
L4AB0: lda buf_win_path,y
|
|
sta L0800,y
|
|
dey
|
|
bpl L4AB0
|
|
addr_call copy_quit_string_1, $840
|
|
ldy L0800
|
|
L4AC3: lda L0800,y
|
|
cmp #'/'
|
|
beq L4ACD
|
|
dey
|
|
bne L4AC3
|
|
L4ACD: dey
|
|
L4ACE: lda L0800,y
|
|
cmp #'/'
|
|
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
|
|
|
|
;;; ============================================================
|
|
;;; Get quit routine signature byte from Main LC Bank 2.
|
|
|
|
.proc get_quit_routine_signature
|
|
sta ALTZPOFF
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
lda quit_routine_signature
|
|
tax
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
txa
|
|
rts
|
|
.endproc
|
|
|
|
.proc copy_quit_string_1
|
|
stax @destptr
|
|
sta ALTZPOFF
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
|
|
ldx quit_string_1
|
|
: lda quit_string_1,x
|
|
@destptr := *+1
|
|
sta dummy1234,x
|
|
dex
|
|
bpl :-
|
|
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
rts
|
|
.endproc
|
|
|
|
.proc copy_quit_string_2
|
|
stax @destptr
|
|
sta ALTZPOFF
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
|
|
ldx quit_string_2
|
|
: lda quit_string_2,x
|
|
@destptr := *+1
|
|
sta dummy1234,x
|
|
dex
|
|
bpl :-
|
|
|
|
sta ALTZPON
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L4B5F
|
|
sta L4BB0
|
|
addr_call copy_quit_string_1, path_buffer
|
|
lda L4BB0
|
|
jsr a_times_64
|
|
addax #$DB9E, $06
|
|
ldy #$00
|
|
lda ($06),y
|
|
sta L4BB1
|
|
tay
|
|
L4B81: lda ($06),y
|
|
and #CHAR_MASK
|
|
cmp #'/'
|
|
beq L4B8C
|
|
dey
|
|
bne L4B81
|
|
L4B8C: dey
|
|
L4B8D: lda ($06),y
|
|
and #CHAR_MASK
|
|
cmp #'/'
|
|
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 #desk_acc_names, 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 jt_copy_file
|
|
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 #0
|
|
lda ($06),y
|
|
tay
|
|
: lda ($06),y
|
|
sta path_buf3,y
|
|
dey
|
|
bpl :-
|
|
|
|
ldy #0
|
|
lda ($08),y
|
|
tay
|
|
: lda ($08),y
|
|
sta path_buf4,y
|
|
dey
|
|
bpl :-
|
|
|
|
addr_call L6F90, path_buf4
|
|
|
|
ldx #$01
|
|
iny
|
|
iny
|
|
: lda path_buf4,y
|
|
sta LE04B,x
|
|
cpy path_buf4
|
|
beq :+
|
|
iny
|
|
inx
|
|
jmp :-
|
|
|
|
: 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 :+
|
|
jmp L4D9D
|
|
|
|
: ldy #0
|
|
lda ($06),y
|
|
tay
|
|
: lda ($06),y
|
|
sta path_buf3,y
|
|
dey
|
|
bpl :-
|
|
|
|
jsr redraw_windows_and_desktop
|
|
jsr jt_delete_file
|
|
L4D9D: pha
|
|
jsr set_pointer_cursor
|
|
pla
|
|
bpl :+
|
|
jmp redraw_windows_and_desktop
|
|
|
|
: addr_call L6F90, path_buf3
|
|
sty path_buf3
|
|
addr_call L6FAF, path_buf3
|
|
beq L4DC2
|
|
pha
|
|
jsr L6F0D
|
|
pla
|
|
jmp L5E78
|
|
|
|
L4DC2: ldy #1
|
|
: iny
|
|
lda path_buf3,y
|
|
cmp #'/'
|
|
beq :+
|
|
cpy path_buf3
|
|
bne :-
|
|
iny
|
|
: 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 #IconEntry::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 buf_win_path,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_view_by_table,x
|
|
bmi L4EB4
|
|
DESKTOP_RELAY_CALL DT_CLOSE_WINDOW, active_window_id
|
|
lda icon_count
|
|
sec
|
|
sbc cached_window_icon_count
|
|
sta icon_count
|
|
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 #IconEntry::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
|
|
|
|
ptr := $06
|
|
|
|
L4F67: .byte $00
|
|
L4F68: .word 0
|
|
|
|
;; 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 :+
|
|
jmp done ; Cancelled
|
|
: stx ptr+1
|
|
stx L504F
|
|
sty ptr
|
|
sty L504E
|
|
|
|
;; Copy path
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
: lda (ptr),y
|
|
sta path_buffer,y
|
|
dey
|
|
bpl :-
|
|
|
|
;; Create with current date
|
|
COPY_STRUCT DateTime, DATELO, create_params::create_date
|
|
|
|
;; Create folder
|
|
MLI_RELAY_CALL CREATE, create_params
|
|
beq success
|
|
|
|
;; Failure
|
|
jsr DESKTOP_SHOW_ALERT0
|
|
copy16 L504E, L4F68
|
|
jmp L4FC6
|
|
|
|
rts ; ???
|
|
|
|
success:
|
|
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 done
|
|
jsr L5E78
|
|
|
|
done: 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 jt_eject
|
|
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
|
|
;; TODO: Assumes prefix is retained. Compose correct path.
|
|
|
|
quit_code_io := $800
|
|
quit_code_addr := $1000
|
|
quit_code_size := $400
|
|
|
|
DEFINE_OPEN_PARAMS open_params, str_quit_code, quit_code_io
|
|
DEFINE_READ_PARAMS read_params, quit_code_addr, quit_code_size
|
|
DEFINE_CLOSE_PARAMS close_params
|
|
|
|
str_quit_code: PASCAL_STRING "Quit.tmp"
|
|
|
|
start:
|
|
MLI_RELAY_CALL OPEN, open_params
|
|
bne fail
|
|
lda open_params::ref_num
|
|
sta read_params::ref_num
|
|
sta close_params::ref_num
|
|
MLI_RELAY_CALL READ, read_params
|
|
MLI_RELAY_CALL CLOSE, close_params
|
|
|
|
;; Restore machine to text state
|
|
sta ALTZPOFF
|
|
jsr exit_dhr_mode
|
|
|
|
;; S3D2 /RAM driver still in place?
|
|
RAMSLOT := DEVADR + $10 + 3*2 ; Slot 3, Drive 2
|
|
cmp16 RAMSLOT, NODEV
|
|
beq quit ; No, so give up
|
|
jsr reinstall_ram
|
|
|
|
quit: jmp quit_code_addr
|
|
|
|
fail: jsr DESKTOP_SHOW_ALERT
|
|
rts
|
|
|
|
.endproc
|
|
cmd_quit := cmd_quit_impl::start
|
|
|
|
PAD_TO $50F9 ; Maintain previous addresses
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_view_by_icon
|
|
ldx active_window_id
|
|
bne :+
|
|
rts
|
|
|
|
: dex
|
|
lda win_view_by_table,x
|
|
bne :+
|
|
rts
|
|
|
|
entry:
|
|
: lda active_window_id
|
|
sta cached_window_id
|
|
jsr DESKTOP_COPY_TO_BUF
|
|
ldx #$00
|
|
txa
|
|
: cpx cached_window_icon_count
|
|
beq :+
|
|
sta cached_window_icon_list,x
|
|
inx
|
|
jmp :-
|
|
|
|
: sta cached_window_icon_count
|
|
lda #$00
|
|
ldx active_window_id
|
|
dex
|
|
sta win_view_by_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 create_file_icon_ep2
|
|
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 #DT_ADD_ICON
|
|
jsr DESKTOP_RELAY ; icon entry addr in A,X
|
|
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 view_by_nonicon_common
|
|
ldx active_window_id
|
|
dex
|
|
sta win_view_by_table,x
|
|
lda active_window_id
|
|
sta cached_window_id
|
|
jsr DESKTOP_COPY_TO_BUF
|
|
jsr sort_records
|
|
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 :+
|
|
rts
|
|
|
|
: dex
|
|
lda win_view_by_table,x
|
|
cmp #view_by_name
|
|
bne :+
|
|
rts
|
|
|
|
: cmp #$00
|
|
bne :+
|
|
jsr close_active_window
|
|
: jsr update_view_menu_check
|
|
lda #view_by_name
|
|
jmp view_by_nonicon_common
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_view_by_date
|
|
ldx active_window_id
|
|
bne :+
|
|
rts
|
|
|
|
: dex
|
|
lda win_view_by_table,x
|
|
cmp #view_by_date
|
|
bne :+
|
|
rts
|
|
|
|
: cmp #$00
|
|
bne :+
|
|
jsr close_active_window
|
|
: jsr update_view_menu_check
|
|
lda #view_by_date
|
|
jmp view_by_nonicon_common
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_view_by_size
|
|
ldx active_window_id
|
|
bne :+
|
|
rts
|
|
|
|
: dex
|
|
lda win_view_by_table,x
|
|
cmp #view_by_size
|
|
bne :+
|
|
rts
|
|
|
|
: cmp #$00
|
|
bne :+
|
|
jsr close_active_window
|
|
: jsr update_view_menu_check
|
|
lda #view_by_size
|
|
jmp view_by_nonicon_common
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_view_by_type
|
|
ldx active_window_id
|
|
bne :+
|
|
rts
|
|
|
|
: dex
|
|
lda win_view_by_table,x
|
|
cmp #view_by_type
|
|
bne :+
|
|
rts
|
|
|
|
: cmp #$00
|
|
bne :+
|
|
jsr close_active_window
|
|
: jsr update_view_menu_check
|
|
lda #view_by_type
|
|
jmp view_by_nonicon_common
|
|
.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 icon_count
|
|
sec
|
|
sbc cached_window_icon_count
|
|
sta icon_count
|
|
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 jt_get_info
|
|
jmp redraw_windows_and_desktop
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_get_size
|
|
jsr jt_get_size
|
|
jmp redraw_windows_and_desktop
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_unlock
|
|
jsr jt_unlock
|
|
jmp redraw_windows_and_desktop
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_lock
|
|
jsr jt_lock
|
|
jmp redraw_windows_and_desktop
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc cmd_rename_icon
|
|
jsr jt_rename_icon
|
|
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_view_by_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::port+MGTK::GrafPort::maprect
|
|
L5479: lda ($06),y
|
|
sta rect_E230-(MGTK::Winfo::port+MGTK::GrafPort::maprect),y
|
|
iny
|
|
cpy #MGTK::Winfo::port+MGTK::GrafPort::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::EventKind::key_down
|
|
beq L5595
|
|
cmp #MGTK::EventKind::button_down
|
|
bne L5584
|
|
jmp L55D1
|
|
|
|
L5595: lda event_params+MGTK::Event::key
|
|
and #CHAR_MASK
|
|
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 #IconEntry::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 #IconEntry::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 #IconEntry::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 DT_UNHIGHLIGHT_ICON, 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_view_by_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::EventKind::key_down
|
|
beq L5743
|
|
cmp #MGTK::EventKind::button_down
|
|
bne L5732
|
|
jmp L578B
|
|
|
|
L5743: lda event_key
|
|
and #CHAR_MASK
|
|
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::EventKind::button_down
|
|
beq done
|
|
cmp #MGTK::EventKind::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_view_by_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 DT_REMOVE_ICON, icon_param
|
|
lda icon_param
|
|
jsr DESKTOP_FREE_ICON
|
|
dec cached_window_icon_count
|
|
dec icon_count
|
|
pla
|
|
tax
|
|
L5942: dex
|
|
bpl L5916
|
|
ldy #$00
|
|
sty L599E
|
|
L594A: ldy L599E
|
|
inc cached_window_icon_count
|
|
inc icon_count
|
|
lda #$00
|
|
sta device_to_icon_map,y
|
|
lda DEVLST,y
|
|
jsr create_volume_icon
|
|
cmp #ERR_DUPLICATE_VOLUME
|
|
bne :+
|
|
lda #$F9 ; "... 2 volumes with the same name..."
|
|
sta pending_alert
|
|
: 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 #DT_ADD_ICON
|
|
jsr DESKTOP_RELAY ; icon entry addr in A,X
|
|
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 device_to_icon_map,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 device_to_icon_map,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 #'/'
|
|
sta $1F00+1
|
|
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 device_to_icon_map,y
|
|
sta icon_param
|
|
beq L5A7F
|
|
jsr remove_icon_from_window
|
|
dec icon_count
|
|
lda icon_param
|
|
jsr DESKTOP_FREE_ICON
|
|
jsr reset_grafport3
|
|
DESKTOP_RELAY_CALL DT_REMOVE_ICON, icon_param
|
|
L5A7F: lda cached_window_icon_count
|
|
sta L5AC6
|
|
inc cached_window_icon_count
|
|
inc icon_count
|
|
pla
|
|
tay
|
|
lda DEVLST,y
|
|
jsr create_volume_icon
|
|
bit L5AD0
|
|
bmi L5AA9
|
|
and #$FF
|
|
beq L5AA9
|
|
cmp #'/'
|
|
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 #DT_ADD_ICON
|
|
jsr DESKTOP_RELAY ; icon entry addr in A,X
|
|
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
|
|
jsr exit_dhr_mode
|
|
|
|
;; also used by launcher code
|
|
target := *+1
|
|
jmp dummy0000 ; self-modified
|
|
.endproc
|
|
reset_and_invoke_target := reset_and_invoke::target
|
|
|
|
;;; ============================================================
|
|
|
|
.proc append_space_after_int
|
|
inc str_from_int
|
|
ldx str_from_int
|
|
lda #' '
|
|
sta str_from_int,x
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
PAD_TO $5B1B ; Maintain previous addresses
|
|
|
|
;;; ============================================================
|
|
|
|
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_view_by_table,x
|
|
sta L5B1B
|
|
|
|
;; Restore event coords (following detect_double_click)
|
|
COPY_STRUCT MGTK::Point, saved_event_coords, event_coords
|
|
|
|
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::EventKind::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_REDRAW_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 #IconEntry::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 buf_win_path,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
|
|
|
|
L5E77: .byte 0
|
|
|
|
.endproc
|
|
L5DEC := L5CDA::L5DEC
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L5E78
|
|
sta window_id
|
|
jsr redraw_windows_and_desktop
|
|
jsr clear_selection
|
|
lda window_id
|
|
cmp active_window_id
|
|
beq :+
|
|
sta findwindow_window_id
|
|
jsr handle_inactive_window_click ; bring to front
|
|
|
|
: copy active_window_id, 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 window_id
|
|
tax
|
|
dex
|
|
lda win_view_by_table,x
|
|
bmi :+
|
|
jsr close_active_window
|
|
: lda active_window_id
|
|
jsr window_address_lookup
|
|
|
|
ptr := $06
|
|
|
|
stax ptr
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
: lda (ptr),y
|
|
sta LE1B0,y
|
|
dey
|
|
bpl :-
|
|
|
|
pla
|
|
jsr open_directory
|
|
jsr cmd_view_by_icon::entry
|
|
jsr DESKTOP_COPY_FROM_BUF
|
|
lda active_window_id
|
|
sta cached_window_id
|
|
jsr DESKTOP_COPY_TO_BUF
|
|
copy active_window_id, getwinport_params2::window_id
|
|
jsr get_port2
|
|
jsr draw_window_header
|
|
lda #0
|
|
ldx active_window_id
|
|
sta win_view_by_table-1,x
|
|
|
|
copy #1, menu_click_params::item_num
|
|
jsr update_view_menu_check
|
|
copy #0, cached_window_id
|
|
jmp DESKTOP_COPY_TO_BUF
|
|
|
|
window_id:
|
|
.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::EventKind::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::EventKind::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
|
|
|
|
COPY_STRUCT MGTK::Point, event_coords, L60CF
|
|
|
|
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_pointers
|
|
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
|
|
|
|
sub16in ($06),y, port_copy+MGTK::GrafPort::viewloc+MGTK::Point::xcoord, L6197
|
|
iny
|
|
sub16in ($06),y, port_copy+MGTK::GrafPort::viewloc+MGTK::Point::ycoord, L6199
|
|
|
|
ldx active_window_id
|
|
dex
|
|
lda win_view_by_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
|
|
add16in ($06),y, L6197, ($06),y
|
|
iny
|
|
add16in ($06),y, L6199, ($06),y
|
|
pla
|
|
tax
|
|
inx
|
|
jmp L614E
|
|
|
|
L6196: rts
|
|
|
|
L6197: .word 0
|
|
L6199: .word 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_view_by_table,x
|
|
bmi L6215
|
|
lda icon_count
|
|
sec
|
|
sbc cached_window_icon_count
|
|
sta icon_count
|
|
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 #IconEntry::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 animate_window_close
|
|
ldx active_window_id
|
|
dex
|
|
lda #$00
|
|
sta LEC26,x
|
|
sta win_view_by_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::port + MGTK::GrafPort::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 updatethumb_thumbpos
|
|
lda #MGTK::Ctl::horizontal_scroll_bar
|
|
sta updatethumb_which_ctl
|
|
MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
|
|
rts
|
|
|
|
L6600: .word 0
|
|
L6602: .word 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 updatethumb_thumbpos
|
|
lda #MGTK::Ctl::vertical_scroll_bar
|
|
sta updatethumb_which_ctl
|
|
MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
|
|
rts
|
|
|
|
L669F: .byte 0
|
|
L66A0: .word 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_view_by_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 set_selection
|
|
|
|
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 replace_selection
|
|
|
|
;; Add clicked icon to selection
|
|
lda selected_window_index
|
|
bne replace_selection
|
|
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
|
|
|
|
;; Replace selection with clicked icon
|
|
replace_selection:
|
|
jsr clear_selection
|
|
|
|
;; Set selection to clicked icon
|
|
set_selection:
|
|
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_REDRAW_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::EventKind::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::EventKind::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
|
|
|
|
COPY_STRUCT MGTK::Point, event_coords, L6A39
|
|
|
|
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 #IconEntry::len, ptr
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
dey
|
|
L6A5C: lda (ptr),y
|
|
sta $220,y
|
|
dey
|
|
bpl L6A5C
|
|
dec $220
|
|
lda #'/'
|
|
sta $0220+1
|
|
|
|
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 #IconEntry::win_type
|
|
lda ($06),y
|
|
ora #icon_entry_open_mask ; set open_flag
|
|
sta ($06),y
|
|
ldy #IconEntry::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_REDRAW_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 open_directory
|
|
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_view_by_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 #IconEntry::win_type
|
|
lda ($06),y
|
|
ora #icon_entry_open_mask ; set open_flag
|
|
sta ($06),y
|
|
ldy #IconEntry::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_REDRAW_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 #DT_ADD_ICON
|
|
jsr DESKTOP_RELAY ; icon entry addr in A,X
|
|
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_view_by_table,x
|
|
bmi L6C25
|
|
jmp L6CCD
|
|
|
|
L6C25: jsr push_pointers
|
|
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_pointers
|
|
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
|
|
|
|
COPY_BLOCK grafport2::cliprect, rect_E230
|
|
|
|
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_REDRAW_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 DT_UNHIGHLIGHT_ICON, 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 DT_UNHIGHLIGHT_ICON, 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_view_by_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 vol_info_path_buf
|
|
L6F52: lda (ptr),y
|
|
sta vol_info_path_buf,y
|
|
dey
|
|
bne L6F52
|
|
jsr get_vol_free_used
|
|
bne L6F8F
|
|
lda L704B
|
|
beq L6F8F
|
|
L6F64: dec L704B
|
|
bmi L6F8F
|
|
ldx L704B
|
|
lda L704C,x
|
|
sec
|
|
sbc #1
|
|
asl a
|
|
tax
|
|
copy16 vol_kb_used, window_k_used_table,x
|
|
copy16 vol_kb_free, 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
|
|
|
|
;;; ============================================================
|
|
|
|
.struct FileRecord
|
|
name .res 16
|
|
file_type .byte ; 16 $10
|
|
blocks .word ; 17 $11
|
|
creation_date .word ; 19 $13
|
|
creation_time .word ; 21 $15
|
|
modification_date .word ; 23 $17
|
|
modification_time .word ; 25 $19
|
|
access .byte ; 27 $1B
|
|
header_pointer .word ; 28 $1C
|
|
reserved .word ; ???
|
|
.endstruct
|
|
|
|
;;; ============================================================
|
|
|
|
.proc open_directory
|
|
jmp start
|
|
|
|
DEFINE_OPEN_PARAMS open_params, vol_info_path_buf, $800
|
|
|
|
vol_info_path_buf:
|
|
.res 65, 0
|
|
|
|
DEFINE_READ_PARAMS read_params, $0C00, $200
|
|
DEFINE_CLOSE_PARAMS close_params
|
|
|
|
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params4, vol_info_path_buf
|
|
|
|
.byte 0
|
|
vol_kb_free: .word 0
|
|
vol_kb_used: .word 0
|
|
|
|
entry_length:
|
|
.byte 0
|
|
|
|
L70C0: .byte $00
|
|
L70C1: .byte $00
|
|
L70C2: .byte $00
|
|
L70C3: .byte $00
|
|
L70C4: .byte $00
|
|
|
|
.proc start
|
|
sta L72A7
|
|
jsr push_pointers
|
|
|
|
COPY_BYTES $41, LE1B0, vol_info_path_buf
|
|
|
|
jsr do_open
|
|
lda open_params::ref_num
|
|
sta read_params::ref_num
|
|
sta close_params::ref_num
|
|
jsr do_read
|
|
jsr L72E2
|
|
|
|
ldx #0
|
|
: lda $0C00+SubdirectoryHeader::entry_length,x
|
|
sta entry_length,x
|
|
inx
|
|
cpx #4
|
|
bne :-
|
|
|
|
sub16 L485D, L485F, L72A8
|
|
ldx #$05
|
|
L710A: lsr16 L72A8
|
|
dex
|
|
cpx #$00
|
|
bne L710A
|
|
lda L70C2
|
|
bne L7147
|
|
lda icon_count
|
|
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 do_close
|
|
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
|
|
|
|
record_ptr := $06
|
|
|
|
L7169: copy16 L485F, record_ptr
|
|
lda LE1F1
|
|
asl a
|
|
tax
|
|
copy16 record_ptr, LE202,x
|
|
ldx LE1F1
|
|
lda L72A7
|
|
sta LE1F1+1,x
|
|
inc LE1F1
|
|
lda L70C1
|
|
|
|
;; Store entry count
|
|
pha
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
ldy #$00
|
|
pla
|
|
sta (record_ptr),y
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
|
|
lda #$FF
|
|
sta L70C4
|
|
lda #$00
|
|
sta L70C3
|
|
|
|
entry_ptr := $08
|
|
|
|
copy16 #$0C00 + SubdirectoryHeader::storage_type_name_length, entry_ptr
|
|
|
|
;; Advance past entry count
|
|
inc record_ptr
|
|
lda record_ptr
|
|
bne do_entry
|
|
inc record_ptr+1
|
|
|
|
;; Record is temporarily constructed at $1F00 then copied into place.
|
|
record := $1F00
|
|
record_size := $20
|
|
|
|
do_entry:
|
|
inc L70C4
|
|
lda L70C4
|
|
cmp L70C1
|
|
bne L71CB
|
|
jmp L7296
|
|
|
|
L71CB: inc L70C3
|
|
lda L70C3
|
|
cmp L70C0
|
|
beq L71E7
|
|
add16_8 entry_ptr, entry_length, entry_ptr
|
|
jmp L71F7
|
|
|
|
L71E7: lda #$00
|
|
sta L70C3
|
|
copy16 #$0C04, entry_ptr
|
|
jsr do_read
|
|
|
|
L71F7: ldx #$00
|
|
ldy #$00
|
|
lda (entry_ptr),y
|
|
and #$0F
|
|
sta record,x
|
|
bne L7223
|
|
inc L70C3
|
|
lda L70C3
|
|
cmp L70C0
|
|
bne L7212
|
|
jmp L71E7
|
|
|
|
L7212: add16_8 entry_ptr, entry_length, entry_ptr
|
|
jmp L71F7
|
|
|
|
L7223: iny
|
|
inx
|
|
|
|
;; See FileRecord struct for record structure
|
|
|
|
;; name, file_type
|
|
: lda (entry_ptr),y
|
|
sta record,x
|
|
iny
|
|
inx
|
|
cpx #FileEntry::file_type+1 ; name and type
|
|
bne :-
|
|
|
|
;; blocks
|
|
ldy #FileEntry::blocks_used
|
|
lda (entry_ptr),y
|
|
sta record,x
|
|
inx
|
|
iny
|
|
lda (entry_ptr),y
|
|
sta record,x
|
|
|
|
;; creation date/time
|
|
ldy #FileEntry::creation_date
|
|
inx
|
|
: lda (entry_ptr),y
|
|
sta record,x
|
|
inx
|
|
iny
|
|
cpy #FileEntry::creation_date+4
|
|
bne :-
|
|
|
|
;; modification date/time
|
|
ldy #FileEntry::mod_date
|
|
: lda (entry_ptr),y
|
|
sta record,x
|
|
inx
|
|
iny
|
|
cpy #FileEntry::mod_date+4
|
|
bne :-
|
|
|
|
;; access
|
|
ldy #FileEntry::access
|
|
lda (entry_ptr),y
|
|
sta record,x
|
|
inx
|
|
|
|
;; header pointer
|
|
ldy #FileEntry::header_pointer
|
|
lda (entry_ptr),y
|
|
sta record,x
|
|
inx
|
|
iny
|
|
lda (entry_ptr),y
|
|
sta record,x
|
|
|
|
;; Copy entry composed at $1F00 to buffer in Aux LC Bank 2
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
ldx #record_size-1
|
|
ldy #record_size-1
|
|
: lda record,x
|
|
sta (record_ptr),y
|
|
dex
|
|
dey
|
|
bpl :-
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
lda #record_size
|
|
clc
|
|
adc record_ptr
|
|
sta record_ptr
|
|
bcc L7293
|
|
inc record_ptr+1
|
|
L7293: jmp do_entry
|
|
|
|
L7296: copy16 record_ptr, L485F
|
|
jsr do_close
|
|
jsr pop_pointers
|
|
rts
|
|
L72A7: .byte 0
|
|
L72A8: .word 0
|
|
.endproc
|
|
|
|
;;; --------------------------------------------------
|
|
|
|
.proc do_open
|
|
MLI_RELAY_CALL OPEN, open_params
|
|
beq done
|
|
jsr DESKTOP_SHOW_ALERT0
|
|
jsr L8B1F
|
|
lda selected_window_index
|
|
bne :+
|
|
lda icon_params2
|
|
sta L533F
|
|
jsr L59A8
|
|
: ldx LE256
|
|
txs
|
|
done: rts
|
|
.endproc
|
|
|
|
;;; --------------------------------------------------
|
|
|
|
do_read:
|
|
MLI_RELAY_CALL READ, read_params
|
|
rts
|
|
|
|
do_close:
|
|
MLI_RELAY_CALL CLOSE, close_params
|
|
rts
|
|
|
|
;;; --------------------------------------------------
|
|
|
|
L72E2: lda $0C04
|
|
and #$F0
|
|
cmp #$F0
|
|
beq get_vol_free_used
|
|
rts
|
|
|
|
|
|
get_vol_free_used: MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params4
|
|
beq :+
|
|
rts
|
|
|
|
;; aux = total blocks
|
|
: copy16 get_file_info_params4::aux_type, vol_kb_used
|
|
;; total - used = free
|
|
sub16 get_file_info_params4::aux_type, get_file_info_params4::blocks_used, vol_kb_free
|
|
sub16 vol_kb_used, vol_kb_free, vol_kb_used ; total - free = used
|
|
lsr16 vol_kb_free
|
|
php
|
|
lsr16 vol_kb_used
|
|
plp
|
|
bcc :+
|
|
inc16 vol_kb_used
|
|
: return #0
|
|
.endproc
|
|
vol_kb_free := open_directory::vol_kb_free
|
|
vol_kb_used := open_directory::vol_kb_used
|
|
vol_info_path_buf := open_directory::vol_info_path_buf
|
|
get_vol_free_used := open_directory::get_vol_free_used
|
|
|
|
;;; ============================================================
|
|
|
|
.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_pointers
|
|
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_pointers
|
|
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: .word 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L744B
|
|
lda cached_window_id
|
|
asl a
|
|
tax
|
|
copy16 LE6BF,x, $08
|
|
ldy #$09
|
|
lda ($06),y
|
|
tay
|
|
jsr push_pointers
|
|
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 #IconEntry::win_type
|
|
lda ($08),y
|
|
and #%11011111 ; ???
|
|
sta ($08),y
|
|
jsr pop_pointers
|
|
ldy #IconEntry::win_type
|
|
lda ($06),y
|
|
and #icon_entry_winid_mask
|
|
bne L74D3
|
|
jsr push_pointers
|
|
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 #'/'
|
|
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_pointers
|
|
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 #.sizeof(IconEntry)
|
|
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_pointers
|
|
lda icon_params2
|
|
|
|
jsr open_directory
|
|
|
|
lda icon_params2
|
|
jsr icon_entry_lookup
|
|
stax $06
|
|
ldy #IconEntry::win_type
|
|
lda ($06),y
|
|
and #icon_entry_winid_mask
|
|
beq L75FA
|
|
tax
|
|
dex
|
|
txa
|
|
asl a
|
|
tax
|
|
copy16 window_k_used_table,x, vol_kb_used
|
|
copy16 window_k_free_table,x, vol_kb_free
|
|
L75FA: ldx cached_window_id
|
|
dex
|
|
txa
|
|
asl a
|
|
tax
|
|
copy16 vol_kb_used, window_k_used_table,x
|
|
copy16 vol_kb_free, window_k_free_table,x
|
|
lda cached_window_id
|
|
jsr create_file_icon_ep1
|
|
rts
|
|
|
|
L7620: .byte $00
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; File Icon Entry Construction
|
|
|
|
.proc create_file_icon
|
|
|
|
icon_x_spacing = 80
|
|
icon_y_spacing = 32
|
|
|
|
window_id: .byte 0
|
|
iconbits: .addr 0
|
|
icon_type: .byte 0
|
|
L7625: .byte 0 ; ???
|
|
|
|
initial_coords: ; first icon in window
|
|
DEFINE_POINT 52,16, initial_coords
|
|
|
|
row_coords: ; first icon in current row
|
|
DEFINE_POINT 0, 0, row_coords
|
|
|
|
icons_per_row:
|
|
.byte 5
|
|
|
|
icons_this_row:
|
|
.byte 0
|
|
|
|
icon_coords:
|
|
DEFINE_POINT 0, 0, icon_coords
|
|
|
|
flag: .byte 0 ; ???
|
|
|
|
.proc ep1 ; entry point #1 ???
|
|
pha
|
|
lda #0
|
|
beq L7647
|
|
|
|
ep2: pha ; entry point #2 ???
|
|
ldx cached_window_id
|
|
dex
|
|
lda LEC26,x
|
|
sta icon_params2
|
|
lda #$80
|
|
|
|
L7647: sta flag
|
|
pla
|
|
sta window_id
|
|
jsr push_pointers
|
|
|
|
COPY_STRUCT MGTK::Point, initial_coords, row_coords
|
|
|
|
lda #0
|
|
sta icons_this_row
|
|
sta L7625
|
|
|
|
ldx #3
|
|
: sta icon_coords,x
|
|
dex
|
|
bpl :-
|
|
|
|
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 flag
|
|
bpl :+
|
|
jsr pop_pointers
|
|
rts
|
|
|
|
: jsr L7B6B
|
|
lda window_id
|
|
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 window_id
|
|
jsr animate_window_open
|
|
jsr pop_pointers
|
|
rts
|
|
|
|
L7764: .byte $00,$00,$00
|
|
L7767: .byte $14
|
|
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Create icon
|
|
|
|
.proc L7768
|
|
file_entry := $6
|
|
icon_entry := $8
|
|
name_tmp := $1800
|
|
|
|
inc icon_count
|
|
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 icon_entry
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
|
|
;; Copy the name (offset by 2 for count and leading space)
|
|
ldy #FileEntry::storage_type_name_length
|
|
lda (file_entry),y ; assumes storage type is 0 ???
|
|
sta name_tmp
|
|
iny
|
|
ldx #0
|
|
: lda (file_entry),y
|
|
sta name_tmp+2,x
|
|
inx
|
|
iny
|
|
cpx name_tmp
|
|
bne :-
|
|
|
|
inc name_tmp ; length += 2 for leading/trailing spaces
|
|
inc name_tmp
|
|
lda #' ' ; leading space
|
|
sta name_tmp+1
|
|
ldx name_tmp
|
|
sta name_tmp,x ; trailing space
|
|
|
|
;; Check file type
|
|
ldy #FileEntry::file_type
|
|
lda (file_entry),y
|
|
cmp #FT_S16 ; IIgs System?
|
|
beq is_app
|
|
cmp #FT_SYSTEM ; Other system?
|
|
bne got_type ; nope
|
|
|
|
;; Distinguish *.SYSTEM files as apps (use $01) from other
|
|
;; type=SYS files (use $FF).
|
|
ldy #FileEntry::storage_type_name_length
|
|
lda (file_entry),y
|
|
tay
|
|
ldx str_sys_suffix
|
|
: lda (file_entry),y
|
|
cmp str_sys_suffix,x
|
|
bne not_app
|
|
dey
|
|
beq not_app
|
|
dex
|
|
bne :-
|
|
|
|
is_app:
|
|
lda #$01 ; TODO: Define a symbol for this.
|
|
bne got_type
|
|
|
|
str_sys_suffix:
|
|
PASCAL_STRING ".SYSTEM"
|
|
|
|
not_app:
|
|
lda #$FF
|
|
|
|
got_type:
|
|
tay
|
|
|
|
;; Figure out icon type
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
tya
|
|
|
|
jsr find_icon_details_for_file_type
|
|
addr_call capitalize_string, name_tmp
|
|
ldy #IconEntry::len
|
|
ldx #0
|
|
L77F0: lda name_tmp,x
|
|
sta (icon_entry),y
|
|
iny
|
|
inx
|
|
cpx name_tmp
|
|
bne L77F0
|
|
lda name_tmp,x
|
|
sta (icon_entry),y
|
|
|
|
;; Assign location
|
|
ldx #0
|
|
ldy #IconEntry::iconx
|
|
: lda row_coords,x
|
|
sta (icon_entry),y
|
|
inx
|
|
iny
|
|
cpx #.sizeof(MGTK::Point)
|
|
bne :-
|
|
|
|
lda cached_window_icon_count
|
|
cmp icons_per_row
|
|
beq L781A
|
|
bcs L7826
|
|
L781A: copy16 row_coords::xcoord, icon_coords::xcoord
|
|
L7826: copy16 row_coords::ycoord, icon_coords::ycoord
|
|
inc icons_this_row
|
|
lda icons_this_row
|
|
cmp icons_per_row
|
|
bne L7862
|
|
add16 row_coords::ycoord, #32, row_coords::ycoord
|
|
copy16 initial_coords::xcoord, row_coords::xcoord
|
|
lda #0
|
|
sta icons_this_row
|
|
jmp L7870
|
|
|
|
L7862: lda row_coords::xcoord
|
|
clc
|
|
adc #icon_x_spacing
|
|
sta row_coords::xcoord
|
|
bcc L7870
|
|
inc row_coords::xcoord+1
|
|
|
|
L7870: lda cached_window_id
|
|
ora icon_type
|
|
ldy #IconEntry::win_type
|
|
sta (icon_entry),y
|
|
ldy #IconEntry::iconbits
|
|
copy16in iconbits, (icon_entry),y
|
|
ldx cached_window_icon_count
|
|
dex
|
|
lda cached_window_icon_list,x
|
|
jsr icon_screen_to_window
|
|
add16 file_entry, #icon_y_spacing, file_entry
|
|
rts
|
|
|
|
.byte 0
|
|
.byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc find_icon_details_for_file_type
|
|
ptr := $6
|
|
|
|
sta file_type
|
|
jsr push_pointers
|
|
|
|
;; 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 icon_type
|
|
dey
|
|
tya
|
|
asl a
|
|
tay
|
|
|
|
;; Look up icon definition
|
|
copy16 type_icons_addr, ptr
|
|
copy16in (ptr),y, iconbits
|
|
jsr pop_pointers
|
|
rts
|
|
|
|
file_type:
|
|
.byte 0
|
|
.endproc
|
|
|
|
.endproc
|
|
create_file_icon_ep2 := create_file_icon::ep1::ep2
|
|
create_file_icon_ep1 := create_file_icon::ep1
|
|
|
|
;;; ============================================================
|
|
;;; 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
|
|
.endproc ; draw_window_header
|
|
|
|
;;; ============================================================
|
|
|
|
.proc int_to_string
|
|
stax value
|
|
|
|
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
|
|
bcc break
|
|
inc digit
|
|
sub16 value, powers,x, value
|
|
jmp sloop
|
|
|
|
break: lda digit
|
|
bne not_pad
|
|
bit nonzero_flag
|
|
bpl next
|
|
|
|
;; Convert to ASCII
|
|
not_pad:
|
|
ora #'0'
|
|
pha
|
|
lda #$80
|
|
sta nonzero_flag
|
|
pla
|
|
|
|
;; Place the character, move to next
|
|
iny
|
|
sta str_from_int,y
|
|
|
|
next: inx
|
|
inx
|
|
cpx #8 ; up to 4 digits (*2) via subtraction
|
|
beq done
|
|
jmp loop
|
|
|
|
done: lda value ; handle last digit
|
|
ora #'0'
|
|
iny
|
|
sta str_from_int,y
|
|
sty str_from_int
|
|
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
|
|
|
|
PAD_TO $7B5F
|
|
|
|
;;; ============================================================
|
|
|
|
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_view_by_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 #IconEntry::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 ; weird - this is discarded???
|
|
pla
|
|
tay
|
|
pla
|
|
tax
|
|
pla
|
|
rts
|
|
|
|
L7D94: .word 0
|
|
L7D96: .word 0
|
|
L7D98: .word 0
|
|
L7D9A: .word 0
|
|
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc sort_records
|
|
ptr := $06
|
|
|
|
record_num := $800
|
|
list_start_ptr := $801
|
|
num_records := $803
|
|
;; $804 = scratch byte
|
|
index := $805
|
|
|
|
jmp start
|
|
|
|
start: ldx cached_window_id
|
|
dex
|
|
lda LEC26,x
|
|
|
|
ldx #0
|
|
: cmp LE1F1+1,x
|
|
beq found
|
|
inx
|
|
cpx LE1F1
|
|
bne :-
|
|
rts
|
|
|
|
found: txa
|
|
asl a
|
|
tax
|
|
|
|
lda LE202,x ; Ptr points at start of record
|
|
sta ptr
|
|
sta list_start_ptr
|
|
lda LE202+1,x
|
|
sta ptr+1
|
|
sta list_start_ptr+1
|
|
|
|
lda LCBANK2 ; Start copying records
|
|
lda LCBANK2
|
|
|
|
lda #0 ; Number copied
|
|
sta record_num
|
|
tay
|
|
lda (ptr),y ; Number to copy
|
|
sta num_records
|
|
|
|
inc ptr ; Point past number
|
|
inc list_start_ptr
|
|
bne loop
|
|
inc ptr+1
|
|
inc list_start_ptr+1
|
|
|
|
loop: lda record_num
|
|
cmp num_records
|
|
beq break
|
|
jsr ptr_calc
|
|
|
|
ldy #0
|
|
lda (ptr),y
|
|
and #$7F ; mask off high bit
|
|
sta (ptr),y ; mark as ???
|
|
|
|
ldy #FileRecord::modification_date ; ???
|
|
lda (ptr),y
|
|
bne next
|
|
iny
|
|
lda (ptr),y ; modification_date hi
|
|
bne next
|
|
lda #$01 ; if no mod date, set hi to 1 ???
|
|
sta (ptr),y
|
|
|
|
next: inc record_num
|
|
jmp loop
|
|
|
|
break: lda LCBANK1 ; Done copying records
|
|
lda LCBANK1
|
|
|
|
;; --------------------------------------------------
|
|
|
|
;; What sort order?
|
|
ldx cached_window_id
|
|
dex
|
|
lda win_view_by_table,x
|
|
cmp #view_by_name
|
|
beq :+
|
|
jmp check_date
|
|
|
|
:
|
|
;; By Name
|
|
|
|
;; Sorted in increasing lexicographical order
|
|
.scope
|
|
name := $807
|
|
name_size = $F
|
|
name_len := $804
|
|
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
|
|
;; Set up highest value ("ZZZZZZZZZZZZZZZ")
|
|
lda #'Z'
|
|
ldx #name_size
|
|
: sta name+1,x
|
|
dex
|
|
bpl :-
|
|
|
|
lda #0
|
|
sta index
|
|
sta record_num
|
|
|
|
loop: lda index
|
|
cmp num_records
|
|
bne iloop
|
|
jmp finish_view_change
|
|
|
|
iloop: jsr ptr_calc
|
|
|
|
;; Check record for mark
|
|
ldy #0
|
|
lda (ptr),y
|
|
bmi inext
|
|
|
|
;; Compare names
|
|
and #$0F ; mask off name length
|
|
sta name_len
|
|
ldy #1
|
|
cloop: lda (ptr),y
|
|
cmp name,y
|
|
beq :+
|
|
bcs inext
|
|
jmp place
|
|
: iny
|
|
cpy #$10
|
|
bne cloop
|
|
jmp inext
|
|
|
|
;; if less than
|
|
place: lda record_num
|
|
sta $0806
|
|
|
|
ldx #name_size
|
|
lda #' '
|
|
: sta name+1,x
|
|
dex
|
|
bpl :-
|
|
|
|
ldy name_len
|
|
: lda (ptr),y
|
|
sta name,y
|
|
dey
|
|
bne :-
|
|
|
|
inext: inc record_num
|
|
lda record_num
|
|
cmp num_records
|
|
beq :+
|
|
jmp iloop
|
|
|
|
: inc index
|
|
lda $0806
|
|
sta record_num
|
|
jsr ptr_calc
|
|
|
|
;; Mark record
|
|
ldy #0
|
|
lda (ptr),y
|
|
ora #$80
|
|
sta (ptr),y
|
|
|
|
ldax #$0F5A
|
|
: sta $0808,x
|
|
dex
|
|
bpl :-
|
|
|
|
ldx index
|
|
dex
|
|
ldy $0806
|
|
iny
|
|
jsr L812B
|
|
|
|
lda #0
|
|
sta record_num
|
|
jmp loop
|
|
.endscope
|
|
|
|
;; --------------------------------------------------
|
|
|
|
check_date:
|
|
cmp #view_by_date
|
|
beq :+
|
|
jmp check_size
|
|
|
|
:
|
|
;; By Date
|
|
|
|
;; Sorted by decreasing date
|
|
.scope
|
|
date := $0808
|
|
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
|
|
lda #$00
|
|
sta date
|
|
sta date+1
|
|
sta index
|
|
sta record_num
|
|
|
|
loop: lda index
|
|
cmp num_records
|
|
bne iloop
|
|
jmp finish_view_change
|
|
|
|
iloop: jsr ptr_calc
|
|
|
|
;; Check record for mark
|
|
ldy #0
|
|
lda (ptr),y
|
|
bmi inext
|
|
|
|
;; Compare dates
|
|
ldy #FileRecord::modification_date
|
|
copy16in (ptr),y, date_a
|
|
copy16 date, date_b
|
|
jsr compare_dates
|
|
beq inext
|
|
bcc inext
|
|
|
|
;; if greater than
|
|
place: ldy #FileRecord::modification_date+1
|
|
lda (ptr),y
|
|
sta date+1
|
|
dey
|
|
lda (ptr),y
|
|
sta date
|
|
|
|
lda record_num
|
|
sta $0806
|
|
inext: inc record_num
|
|
lda record_num
|
|
cmp num_records
|
|
beq next
|
|
jmp iloop
|
|
|
|
next: inc index
|
|
lda $0806
|
|
sta record_num
|
|
jsr ptr_calc
|
|
|
|
;; Mark record
|
|
ldy #0
|
|
lda (ptr),y
|
|
ora #$80
|
|
sta (ptr),y
|
|
|
|
lda #$00
|
|
sta date
|
|
sta date+1
|
|
|
|
ldx index
|
|
dex
|
|
ldy $0806
|
|
iny
|
|
jsr L812B
|
|
|
|
lda #$00
|
|
sta record_num
|
|
jmp loop
|
|
.endscope
|
|
|
|
;; --------------------------------------------------
|
|
|
|
check_size:
|
|
cmp #view_by_size
|
|
beq :+
|
|
jmp check_type
|
|
|
|
:
|
|
;; By Size
|
|
|
|
;; Sorted by decreasing size
|
|
.scope
|
|
size := $0808
|
|
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
|
|
lda #0
|
|
sta size
|
|
sta size+1
|
|
sta index
|
|
sta record_num
|
|
|
|
loop: lda index
|
|
cmp num_records
|
|
bne iloop
|
|
jmp finish_view_change
|
|
|
|
iloop: jsr ptr_calc
|
|
|
|
;; Check record for mark
|
|
ldy #0
|
|
lda (ptr),y
|
|
bmi inext
|
|
|
|
ldy #FileRecord::blocks+1
|
|
lda (ptr),y
|
|
cmp size+1 ; hi byte
|
|
beq :+
|
|
bcs place
|
|
: dey
|
|
lda (ptr),y
|
|
cmp size ; lo byte
|
|
beq place
|
|
bcc inext
|
|
|
|
;; if greater than
|
|
place: copy16in (ptr),y, size
|
|
lda record_num
|
|
sta $0806
|
|
|
|
inext: inc record_num
|
|
lda record_num
|
|
cmp num_records
|
|
beq next
|
|
jmp iloop
|
|
|
|
next: inc index
|
|
lda $0806
|
|
sta record_num
|
|
jsr ptr_calc
|
|
|
|
;; Mark record
|
|
ldy #0
|
|
lda (ptr),y
|
|
ora #$80
|
|
sta (ptr),y
|
|
|
|
lda #0
|
|
sta size
|
|
sta size+1
|
|
|
|
ldx index
|
|
dex
|
|
ldy $0806
|
|
iny
|
|
jsr L812B
|
|
|
|
lda #0
|
|
sta record_num
|
|
jmp loop
|
|
|
|
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 finish_view_change
|
|
.endscope
|
|
|
|
;; --------------------------------------------------
|
|
|
|
check_type:
|
|
cmp #view_by_type
|
|
beq :+
|
|
rts
|
|
|
|
:
|
|
;; By Type
|
|
|
|
;; Types are ordered by type_table
|
|
.scope
|
|
type_table_copy := $807
|
|
|
|
;; Copy type_table (including size) to $807
|
|
copy16 type_table_addr, $08
|
|
ldy #0
|
|
lda ($08),y
|
|
sta type_table_copy
|
|
tay ; num entries
|
|
: lda ($08),y
|
|
sta type_table_copy,y
|
|
dey
|
|
bne :-
|
|
|
|
lda LCBANK2
|
|
lda LCBANK2
|
|
|
|
lda #0
|
|
sta index
|
|
sta record_num
|
|
lda #$FF
|
|
sta $0806
|
|
|
|
loop: lda index
|
|
cmp num_records
|
|
bne iloop
|
|
jmp finish_view_change
|
|
|
|
iloop: jsr ptr_calc
|
|
|
|
;; Check record for mark
|
|
ldy #0
|
|
lda (ptr),y
|
|
bmi inext
|
|
|
|
;; Compare types
|
|
ldy #FileRecord::file_type
|
|
lda (ptr),y
|
|
ldx type_table_copy
|
|
cpx #0
|
|
beq place
|
|
cmp type_table_copy+1,x
|
|
bne inext
|
|
|
|
place: lda record_num
|
|
sta $0806
|
|
jmp L809E
|
|
|
|
inext: inc record_num
|
|
lda record_num
|
|
cmp num_records
|
|
beq next
|
|
jmp iloop
|
|
|
|
next: lda $0806
|
|
cmp #$FF
|
|
bne L809E
|
|
dec type_table_copy ; size of table
|
|
lda #0
|
|
sta record_num
|
|
jmp iloop
|
|
|
|
L809E: inc index
|
|
lda $0806
|
|
sta record_num
|
|
jsr ptr_calc
|
|
|
|
;; Mark record
|
|
ldy #0
|
|
lda (ptr),y
|
|
ora #$80
|
|
sta (ptr),y
|
|
|
|
ldx index
|
|
dex
|
|
ldy $0806
|
|
iny
|
|
jsr L812B
|
|
|
|
lda #$00
|
|
sta record_num
|
|
lda #$FF
|
|
sta $0806
|
|
jmp loop
|
|
.endscope
|
|
|
|
;;; --------------------------------------------------
|
|
;;; ptr = list_start_ptr + ($800 * .sizeof(FileRecord))
|
|
|
|
.proc ptr_calc
|
|
ptr := $6
|
|
hi := $0804
|
|
|
|
lda #0
|
|
sta hi
|
|
lda record_num
|
|
asl a
|
|
rol hi
|
|
asl a
|
|
rol hi
|
|
asl a
|
|
rol hi
|
|
asl a
|
|
rol hi
|
|
asl a
|
|
rol hi
|
|
|
|
clc
|
|
adc list_start_ptr
|
|
sta ptr
|
|
lda list_start_ptr+1
|
|
adc hi
|
|
sta ptr+1
|
|
|
|
rts
|
|
.endproc
|
|
|
|
;;; --------------------------------------------------
|
|
|
|
date_a: .word 0
|
|
date_b: .word 0
|
|
|
|
.proc compare_dates
|
|
ptr := $0A
|
|
|
|
copy16 #parsed_a, ptr
|
|
ldax date_a
|
|
jsr parse_date
|
|
|
|
copy16 #parsed_b, ptr
|
|
ldax date_b
|
|
jsr parse_date
|
|
|
|
lda year_a+1
|
|
cmp year_b+1
|
|
bne done
|
|
lda year_a
|
|
cmp year_b
|
|
bne done
|
|
lda month_a
|
|
cmp month_b
|
|
bne done
|
|
lda day_a
|
|
cmp day_b
|
|
done: rts
|
|
|
|
parsed_a:
|
|
year_a: .word 0
|
|
month_a:.byte 0
|
|
day_a: .byte 0
|
|
|
|
parsed_b:
|
|
year_b: .word 0
|
|
month_b:.byte 0
|
|
day_b: .byte 0
|
|
|
|
.endproc
|
|
|
|
;;; --------------------------------------------------
|
|
;;; ???
|
|
|
|
.proc finish_view_change
|
|
ptr := $06
|
|
|
|
lda #$00
|
|
sta record_num
|
|
|
|
loop: lda record_num
|
|
cmp num_records
|
|
beq done
|
|
jsr ptr_calc
|
|
ldy #$00
|
|
lda (ptr),y
|
|
and #$7F
|
|
sta (ptr),y
|
|
ldy #$17
|
|
lda (ptr),y
|
|
bne :+
|
|
iny
|
|
lda (ptr),y
|
|
cmp #$01
|
|
bne :+
|
|
lda #$00
|
|
sta (ptr),y
|
|
: inc record_num
|
|
jmp loop
|
|
|
|
done: 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
|
|
|
|
.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 #' '
|
|
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
|
|
|
|
COPY_BYTES 5, LDFC5, text_buffer2::data-1
|
|
|
|
rts
|
|
.endproc
|
|
|
|
.proc prepare_col_size
|
|
ldax LEC54
|
|
;; fall through
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Populate text_buffer2 with " 12345 Blocks"
|
|
|
|
.proc compose_blocks_string
|
|
stax value
|
|
jsr int_to_string
|
|
|
|
;; Leading space
|
|
ldx #1
|
|
stx text_buffer2::length
|
|
lda #' '
|
|
sta text_buffer2::data
|
|
|
|
;; Append number
|
|
ldy #0
|
|
: lda str_from_int+1,y
|
|
sta text_buffer2::data,x ; data follows length
|
|
iny
|
|
inx
|
|
cpy str_from_int
|
|
bne :-
|
|
|
|
;; Append suffix
|
|
ldy #0
|
|
: lda suffix+1, y
|
|
sta text_buffer2::data,x
|
|
iny
|
|
inx
|
|
cpy suffix
|
|
bne :-
|
|
|
|
;; If singular, drop trailing 's'
|
|
;; Block or Blocks?
|
|
lda value+1
|
|
cmp #>1
|
|
bne :+
|
|
lda value
|
|
cmp #<1
|
|
bne :+
|
|
dex
|
|
: stx text_buffer2::length
|
|
|
|
done: rts
|
|
|
|
suffix: PASCAL_STRING " Blocks"
|
|
|
|
value: .word 0
|
|
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc 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 append_date_strings
|
|
sta month ; 0 is "no date" string
|
|
jmp append_month_string
|
|
|
|
append_date_strings:
|
|
copy16 #parsed_date, $0A
|
|
ldax date
|
|
jsr parse_date
|
|
|
|
jsr append_month_string
|
|
addr_call concatenate_date_part, str_space
|
|
jsr append_day_string
|
|
addr_call concatenate_date_part, str_space
|
|
jmp append_year_string
|
|
|
|
.proc append_day_string
|
|
lda day
|
|
ldx #0
|
|
jsr int_to_string
|
|
|
|
addr_jump concatenate_date_part, str_from_int
|
|
.endproc
|
|
|
|
.proc append_month_string
|
|
lda month
|
|
asl a
|
|
tay
|
|
lda month_table+1,y
|
|
tax
|
|
lda month_table,y
|
|
|
|
jmp concatenate_date_part
|
|
.endproc
|
|
|
|
.proc append_year_string
|
|
ldax year
|
|
jsr int_to_string
|
|
addr_jump concatenate_date_part, str_from_int
|
|
.endproc
|
|
|
|
parsed_date:
|
|
year: .word 0
|
|
month: .byte 0
|
|
day: .byte 0
|
|
|
|
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_space:
|
|
PASCAL_STRING " "
|
|
|
|
.proc concatenate_date_part
|
|
stax $06
|
|
ldy #$00
|
|
lda ($08),y
|
|
sta concat_len
|
|
clc
|
|
adc ($06),y
|
|
sta ($08),y
|
|
lda ($06),y
|
|
sta @compare_y
|
|
: inc concat_len
|
|
iny
|
|
lda ($06),y
|
|
sty tmp
|
|
ldy concat_len
|
|
sta ($08),y
|
|
ldy tmp
|
|
@compare_y := *+1
|
|
cpy #0 ; self-modified
|
|
bcc :-
|
|
rts
|
|
|
|
tmp: .byte 0
|
|
concat_len:
|
|
.byte 0
|
|
.endproc
|
|
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Parse date
|
|
;;; Input: A,X = Date lo/hi
|
|
;;; $0A points at {year:.word, month:.byte, day:.byte} to be filled
|
|
|
|
.proc parse_date
|
|
ptr := $0A
|
|
|
|
;; TODO: Handle ProDOS 2.5 extended dates
|
|
;; (additional year bits packed into time bytes)
|
|
|
|
stax date
|
|
|
|
;; Null date? Leave as all zeros.
|
|
ora date+1 ; null date?
|
|
bne year
|
|
ldy #3
|
|
: sta (ptr),y
|
|
dey
|
|
bpl :-
|
|
rts
|
|
|
|
;; Year
|
|
year: ldy #1
|
|
copy #0, (ptr),y
|
|
|
|
lda date+1
|
|
and #%11111110
|
|
lsr a
|
|
ldy #0
|
|
sta (ptr),y
|
|
;; Per ProDOS Tech Note #28, 40-99 is 1940-1999, 0-39 is 2000-2039
|
|
;; http://www.1000bit.it/support/manuali/apple/technotes/pdos/tn.pdos.28.html
|
|
cmp #40 ; 40-99 (and also 100-127, though non-conforming)
|
|
bcs y1900
|
|
|
|
y2000: add16in (ptr),y, #2000, (ptr),y
|
|
jmp month
|
|
|
|
y1900: add16in (ptr),y, #1900, (ptr),y
|
|
|
|
;; Month
|
|
month: lda date+1
|
|
ror a
|
|
lda date
|
|
ror a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
ldy #2
|
|
sta (ptr),y
|
|
|
|
;; Day
|
|
day: lda date
|
|
and #%00011111
|
|
ldy #3
|
|
sta (ptr),y
|
|
rts
|
|
|
|
date: .word 0
|
|
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L84D1
|
|
jsr push_pointers
|
|
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::EventKind::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_pointers
|
|
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
|
|
|
|
|
|
;;; ============================================================
|
|
;;; 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: copy #4, LDFC5
|
|
copy #' ', LDFC6
|
|
copy #'$', 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
|
|
|
|
: lda (ptr),y
|
|
and #CHAR_MASK ; convert to ASCII
|
|
cmp #'/'
|
|
beq skip
|
|
cmp #' ' ; (these two lines are not present
|
|
beq skip ; in most filename case adjust procs)
|
|
cmp #'.'
|
|
bne check_alpha
|
|
skip: dey
|
|
jmp next
|
|
|
|
check_alpha:
|
|
iny
|
|
lda (ptr),y
|
|
and #CHAR_MASK
|
|
cmp #'A'
|
|
bcc :+
|
|
cmp #'Z'+1
|
|
bcs :+
|
|
clc
|
|
adc #('a' - 'A') ; convert to lower case
|
|
sta (ptr),y
|
|
: dey
|
|
jmp next
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Pushes two words from $6/$8 to stack
|
|
|
|
.proc push_pointers
|
|
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_pointers
|
|
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 .sizeof(MGTK::GrafPort)+1
|
|
|
|
.proc copy_window_portbits
|
|
ptr := $6
|
|
|
|
tay
|
|
jsr push_pointers
|
|
tya
|
|
jsr window_lookup
|
|
stax ptr
|
|
ldx #0
|
|
ldy #MGTK::Winfo::port
|
|
: lda (ptr),y
|
|
sta port_copy,x
|
|
iny
|
|
inx
|
|
cpx #.sizeof(MGTK::GrafPort)
|
|
bne :-
|
|
jsr pop_pointers
|
|
rts
|
|
.endproc
|
|
|
|
.proc assign_window_portbits
|
|
ptr := $6
|
|
|
|
tay
|
|
jsr push_pointers
|
|
tya
|
|
jsr window_lookup
|
|
stax ptr
|
|
ldx #0
|
|
ldy #MGTK::Winfo::port
|
|
: lda port_copy,x
|
|
sta (ptr),y
|
|
iny
|
|
inx
|
|
cpx #.sizeof(MGTK::GrafPort)
|
|
bne :-
|
|
jsr pop_pointers
|
|
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_pointers
|
|
tya
|
|
jsr icon_entry_lookup
|
|
stax entry_ptr
|
|
|
|
lda active_window_id
|
|
jsr window_lookup
|
|
stax winfo_ptr
|
|
|
|
;; Screen space
|
|
ldy #MGTK::Winfo::port + MGTK::GrafPort::viewloc + 3
|
|
ldx #3
|
|
: lda (winfo_ptr),y
|
|
sta pos_screen,x
|
|
dey
|
|
dex
|
|
bpl :-
|
|
|
|
;; Window space
|
|
ldy #MGTK::Winfo::port + MGTK::GrafPort::maprect + 3
|
|
ldx #3
|
|
: lda (winfo_ptr),y
|
|
sta pos_win,x
|
|
dey
|
|
dex
|
|
bpl :-
|
|
|
|
;; iconx
|
|
ldy #IconEntry::iconx
|
|
add16in (entry_ptr),y, pos_screen, (entry_ptr),y
|
|
iny
|
|
|
|
;; icony
|
|
add16in (entry_ptr),y, pos_screen+2, (entry_ptr),y
|
|
|
|
;; iconx
|
|
ldy #IconEntry::iconx
|
|
sub16in (entry_ptr),y, pos_win, (entry_ptr),y
|
|
iny
|
|
|
|
;; icony
|
|
sub16in (entry_ptr),y, pos_win+2, (entry_ptr),y
|
|
|
|
jsr pop_pointers
|
|
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_pointers
|
|
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::port + MGTK::GrafPort::viewloc + 3
|
|
ldx #3
|
|
: lda (winfo_ptr),y
|
|
sta pos_screen,x
|
|
dey
|
|
dex
|
|
bpl :-
|
|
|
|
ldy #MGTK::Winfo::port + MGTK::GrafPort::maprect + 3
|
|
ldx #3
|
|
: lda (winfo_ptr),y
|
|
sta pos_win,x
|
|
dey
|
|
dex
|
|
bpl :-
|
|
|
|
;; iconx
|
|
ldy #IconEntry::iconx
|
|
sub16in (entry_ptr),y, pos_screen, (entry_ptr),y
|
|
iny
|
|
|
|
;; icony
|
|
sub16in (entry_ptr),y, pos_screen+2, (entry_ptr),y
|
|
|
|
;; iconx
|
|
ldy #IconEntry::iconx
|
|
add16in (entry_ptr),y, pos_win, (entry_ptr),y
|
|
iny
|
|
|
|
;; icony
|
|
add16in (entry_ptr),y, pos_win+2, (entry_ptr),y
|
|
jsr pop_pointers
|
|
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
|
|
|
|
;;; ============================================================
|
|
;;; Create Volume Icon. unit_number passed in A
|
|
|
|
cvi_data_buffer := $800
|
|
|
|
DEFINE_ON_LINE_PARAMS on_line_params,, cvi_data_buffer
|
|
|
|
.proc create_volume_icon
|
|
sta unit_number
|
|
sty device_num
|
|
and #$F0
|
|
sta on_line_params::unit_num
|
|
MLI_RELAY_CALL ON_LINE, on_line_params
|
|
beq success
|
|
|
|
error: pha ; save error
|
|
ldy device_num ; remove unit from list
|
|
lda #0
|
|
sta device_to_icon_map,y
|
|
dec cached_window_icon_count
|
|
dec icon_count
|
|
pla
|
|
rts
|
|
|
|
success:
|
|
lda cvi_data_buffer ; dr/slot/name_len
|
|
and #$0F ; mask off name len
|
|
bne create_icon
|
|
lda cvi_data_buffer+1 ; if name len is zero, second byte is error
|
|
jmp error
|
|
|
|
create_icon:
|
|
icon_ptr := $6
|
|
|
|
jsr push_pointers
|
|
jsr DESKTOP_ALLOC_ICON
|
|
ldy device_num
|
|
sta device_to_icon_map,y
|
|
jsr icon_entry_lookup
|
|
stax icon_ptr
|
|
|
|
;; Copy name, with leading/trailing space
|
|
lda cvi_data_buffer
|
|
and #$0F
|
|
sta cvi_data_buffer
|
|
addr_call capitalize_string, cvi_data_buffer
|
|
|
|
ldy #IconEntry::name
|
|
copy #' ', (icon_ptr),y ; leading space
|
|
iny
|
|
|
|
ldx #0
|
|
: lda cvi_data_buffer+1,x
|
|
sta (icon_ptr),y
|
|
iny
|
|
inx
|
|
cpx cvi_data_buffer
|
|
bne :-
|
|
|
|
copy #' ', (icon_ptr),y ; trailing space
|
|
|
|
inx ; for leading/trailing space
|
|
inx
|
|
txa
|
|
ldy #IconEntry::len
|
|
sta (icon_ptr),y
|
|
|
|
;; ----------------------------------------
|
|
|
|
;; Figure out icon
|
|
slot_addr := $0A
|
|
|
|
;; Look at "ID Nibble" (mostly bogus)
|
|
lda unit_number
|
|
and #%00001111 ; look at low nibble
|
|
beq is_disk_ii ; only trustworthy use of "ID Nibble"
|
|
|
|
;; Look up driver address
|
|
lda unit_number
|
|
jsr device_driver_address
|
|
bne default ; RAM-based driver: just use default
|
|
lda #$00
|
|
sta slot_addr ; point at $Cn00 for firmware lookups
|
|
|
|
;; Probe firmware ID bytes
|
|
ldy #$FF ; $CnFF: $00=Disk II, $FF=13-sector, else=block
|
|
lda (slot_addr),y
|
|
beq is_disk_ii
|
|
|
|
ldy #$07 ; SmartPort signature byte ($Cn07)
|
|
lda (slot_addr),y ; $00 = SmartPort
|
|
bne default ; unknown - use default
|
|
|
|
ldy #$FB ; SmartPort ID Type Byte ($CnFB)
|
|
lda (slot_addr),y ; bit 0 = is RAM Card?
|
|
ora #%00000001
|
|
bne is_ram_card
|
|
|
|
;; TODO: Distinguish ProFile vs. 3.5" disk using blocks.
|
|
lda unit_number ; low nibble is high nibble of $CnFE
|
|
ora #%00001000 ; bit 3 = is removable?
|
|
bne is_35_floppy
|
|
;; fall through
|
|
|
|
default:
|
|
is_profile:
|
|
ldax #desktop_aux::profile_icon
|
|
bne assign
|
|
|
|
is_disk_ii:
|
|
ldax #desktop_aux::floppy140_icon
|
|
bne assign
|
|
|
|
is_35_floppy:
|
|
ldax #desktop_aux::floppy800_icon
|
|
bne assign
|
|
|
|
is_ram_card:
|
|
ldax #desktop_aux::ramdisk_icon
|
|
;; fall through
|
|
|
|
;; Assign icon bitmap
|
|
assign: ldy #IconEntry::iconbits
|
|
sta (icon_ptr),y
|
|
txa
|
|
iny
|
|
sta (icon_ptr),y
|
|
|
|
;; ----------------------------------------
|
|
|
|
;; Assign icon type
|
|
ldy #IconEntry::win_type
|
|
lda #0
|
|
sta (icon_ptr),y
|
|
inc device_num
|
|
|
|
;; TODO: Center icon horizontally
|
|
;; (Currently, left edges are aligned)
|
|
|
|
;; Assign icon coordinates
|
|
lda device_num
|
|
asl a ; device num * 4 is coordinates index
|
|
asl a
|
|
tax
|
|
ldy #IconEntry::iconx
|
|
: lda desktop_icon_coords_table,x
|
|
sta (icon_ptr),y
|
|
inx
|
|
iny
|
|
cpy #IconEntry::iconbits
|
|
bne :-
|
|
|
|
;; Assign icon number
|
|
ldx cached_window_icon_count
|
|
dex
|
|
ldy #IconEntry::id
|
|
lda (icon_ptr),y
|
|
sta cached_window_icon_list,x
|
|
jsr pop_pointers
|
|
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_POINT 400,131
|
|
DEFINE_POINT 310,131
|
|
DEFINE_POINT 220,131
|
|
;; Maximum of 13 devices:
|
|
;; 7 slots * 2 drives = 14 (size of DEVLST)
|
|
;; ... but RAM in Slot 3 Drive 2 is disconnected.
|
|
|
|
DEFINE_GET_PREFIX_PARAMS get_prefix_params, prefix_buffer
|
|
|
|
;;; ============================================================
|
|
|
|
.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_pointers
|
|
jmp L8B2E
|
|
|
|
L8B1F: lda icon_params2
|
|
bne L8B25
|
|
rts
|
|
|
|
L8B25: jsr push_pointers
|
|
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 #IconEntry::win_type
|
|
lda (ptr),y
|
|
and #(~icon_entry_open_mask)&$FF ; clear open_flag
|
|
sta ($06),y
|
|
jsr L4244
|
|
jsr pop_pointers
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc animate_window
|
|
ptr := $06
|
|
rect_table := $0800
|
|
|
|
close: ldy #$80
|
|
bne :+
|
|
|
|
open: ldy #$00
|
|
|
|
: sty close_flag
|
|
|
|
sta icon_id
|
|
stx window_id
|
|
txa
|
|
|
|
;; Get window rect
|
|
jsr window_lookup
|
|
stax ptr
|
|
lda #$14
|
|
clc
|
|
adc #$23
|
|
tay
|
|
|
|
ldx #$23
|
|
: lda (ptr),y
|
|
sta grafport2,x
|
|
dey
|
|
dex
|
|
bpl :-
|
|
|
|
;; Get icon position
|
|
lda icon_id
|
|
jsr icon_entry_lookup
|
|
stax ptr
|
|
ldy #$03
|
|
lda ($06),y
|
|
clc
|
|
adc #$07
|
|
|
|
sta rect_table
|
|
sta $0804
|
|
iny
|
|
lda ($06),y
|
|
adc #$00
|
|
sta $0801
|
|
sta $0805
|
|
iny
|
|
lda ($06),y
|
|
clc
|
|
adc #$07
|
|
sta $0801+1
|
|
sta $0806
|
|
iny
|
|
lda ($06),y
|
|
adc #$00
|
|
sta $0803
|
|
sta $0807
|
|
ldy #$5B
|
|
ldx #$03
|
|
L8BC1: lda grafport2,x
|
|
sta rect_table,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, rect_table, 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 rect_table, L8D50, rect_table,x
|
|
jmp L8CDC
|
|
|
|
: add16 rect_table, L8D50, rect_table,x
|
|
|
|
L8CDC: bit L8D4F
|
|
bpl L8CF7
|
|
sub16 $0802, L8D52, $0802,x
|
|
jmp L8D0A
|
|
|
|
L8CF7: add16 rect_table+2, L8D52, rect_table+2,x
|
|
|
|
L8D0A: add16 rect_table,x, L8D54, rect_table+4,x ; right
|
|
add16 rect_table+2,x, L8D56, rect_table+6,x ; bottom
|
|
|
|
inc L8D4D
|
|
lda L8D4D
|
|
cmp #10
|
|
beq :+
|
|
jmp L8C8C
|
|
|
|
: bit close_flag
|
|
bmi :+
|
|
jsr animate_window_open_impl
|
|
rts
|
|
|
|
: jsr animate_window_close_impl
|
|
rts
|
|
|
|
close_flag:
|
|
.byte 0
|
|
|
|
icon_id:
|
|
.byte 0
|
|
window_id:
|
|
.byte 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
|
|
animate_window_close := animate_window::close
|
|
animate_window_open := animate_window::open
|
|
|
|
;;; ============================================================
|
|
|
|
.proc animate_window_open_impl
|
|
|
|
rect_table := $800
|
|
|
|
lda #0
|
|
sta step
|
|
jsr reset_grafport3
|
|
MGTK_RELAY_CALL MGTK::SetPattern, checkerboard_pattern3
|
|
jsr set_penmode_xor
|
|
|
|
loop: lda step
|
|
cmp #12
|
|
bcs erase
|
|
|
|
;; Compute offset into rect table
|
|
asl a
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc #7
|
|
tax
|
|
|
|
;; Copy rect to draw
|
|
ldy #7
|
|
: lda rect_table,x
|
|
sta rect_E230,y
|
|
dex
|
|
dey
|
|
bpl :-
|
|
|
|
jsr draw_anim_window_rect
|
|
|
|
;; Compute offset into rect table
|
|
erase: lda step
|
|
sec
|
|
sbc #2
|
|
bmi next
|
|
asl a ; * 8 (size of Rect)
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc #$07
|
|
tax
|
|
|
|
;; Copy rect to erase
|
|
ldy #.sizeof(MGTK::Rect)-1
|
|
: lda rect_table,x
|
|
sta rect_E230,y
|
|
dex
|
|
dey
|
|
bpl :-
|
|
|
|
jsr draw_anim_window_rect
|
|
|
|
next: inc step
|
|
lda step
|
|
cmp #$0E
|
|
bne loop
|
|
rts
|
|
|
|
step: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc animate_window_close_impl
|
|
|
|
rect_table := $800
|
|
|
|
lda #11
|
|
sta step
|
|
jsr reset_grafport3
|
|
MGTK_RELAY_CALL MGTK::SetPattern, checkerboard_pattern3
|
|
jsr set_penmode_xor
|
|
|
|
loop: lda step
|
|
bmi erase
|
|
beq erase
|
|
|
|
;; Compute offset into rect table
|
|
asl a ; * 8 (size of Rect)
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc #$07
|
|
tax
|
|
|
|
;; Copy rect to draw
|
|
ldy #.sizeof(MGTK::Rect)-1
|
|
: lda rect_table,x
|
|
sta rect_E230,y
|
|
dex
|
|
dey
|
|
bpl :-
|
|
|
|
jsr draw_anim_window_rect
|
|
|
|
;; Compute offset into rect table
|
|
erase: lda step
|
|
clc
|
|
adc #2
|
|
cmp #14
|
|
bcs next
|
|
asl a
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc #$07
|
|
tax
|
|
|
|
;; Copy rect to erase
|
|
ldy #.sizeof(MGTK::Rect)-1
|
|
: lda rect_table,x
|
|
sta rect_E230,y
|
|
dex
|
|
dey
|
|
bpl :-
|
|
|
|
jsr draw_anim_window_rect
|
|
|
|
next: dec step
|
|
lda step
|
|
cmp #AS_BYTE(-3)
|
|
bne loop
|
|
rts
|
|
|
|
step: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc draw_anim_window_rect
|
|
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 = selector actions (all) - A$9000,L$1000
|
|
;;; 3 = common file dialog - A$5000,L$2000
|
|
;;; 4 = part of copy file - A$7000,L$ 800
|
|
;;; 5 = part of delete file - A$7000,L$ 800
|
|
;;; 6 = selector add/edit - 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
|
|
|
|
.endproc
|
|
load_dynamic_routine := load_dynamic_routine_impl::load
|
|
restore_dynamic_routine := load_dynamic_routine_impl::restore
|
|
|
|
PAD_TO $8F00
|
|
|
|
;;; ============================================================
|
|
|
|
L8F00: jmp L8FC5
|
|
jmp rts2 ; rts
|
|
jmp rts2 ; rts
|
|
jt_get_info: jmp do_get_info ; cmd_get_info
|
|
jt_lock: jmp do_lock ; cmd_lock
|
|
jt_unlock: jmp do_unlock ; cmd_unlock
|
|
jt_rename_icon: jmp do_rename_icon ; cmd_rename_icon
|
|
jt_eject: jmp do_eject ; cmd_eject ???
|
|
jt_copy_file: jmp do_copy_file ; cmd_copy_file
|
|
jt_delete_file: jmp do_delete_file ; cmd_delete_file
|
|
jmp rts2 ; rts
|
|
jmp rts2 ; rts
|
|
L8F24: jmp L8F7E ; cmd_selector_action ???
|
|
jt_get_size: jmp do_get_size ; cmd_get_size
|
|
|
|
;;; ============================================================
|
|
|
|
;; TODO: Break this down more?
|
|
.proc cmds
|
|
|
|
do_copy_file:
|
|
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
|
|
|
|
do_delete_file:
|
|
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
|
|
|
|
;;; ============================================================
|
|
;;; Lock
|
|
|
|
do_lock: jsr L8FDD
|
|
jmp L8F4F
|
|
|
|
do_unlock: jsr L8FE1
|
|
jmp L8F4F
|
|
|
|
L8FA7: asl a
|
|
tay
|
|
copy16 icon_entry_address_table,y, $06
|
|
ldy #IconEntry::win_type
|
|
lda ($06),y
|
|
rts
|
|
|
|
do_get_size: 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 #'/'
|
|
sta ($06),y
|
|
dey
|
|
lda ($06),y
|
|
sta @compare
|
|
sta path_buf3,y
|
|
: iny
|
|
lda ($06),y
|
|
sta path_buf3,y
|
|
@compare := *+1
|
|
cpy #$00 ; self-modified
|
|
bne :-
|
|
ldy #$01
|
|
lda #' '
|
|
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 #' '
|
|
sta ($06),y
|
|
return #0
|
|
|
|
L917A: .byte 0
|
|
L917B: .byte 0
|
|
.endproc
|
|
do_delete_file := cmds::do_delete_file
|
|
L8F7E := cmds::L8F7E
|
|
do_copy_file := cmds::do_copy_file
|
|
do_lock := cmds::do_lock
|
|
do_unlock := cmds::do_unlock
|
|
do_get_size := cmds::do_get_size
|
|
L8FC5 := cmds::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, #IconEntry::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 @len
|
|
: iny
|
|
inx
|
|
lda (str1),y
|
|
sta buf,x
|
|
@len := *+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 @len
|
|
iny
|
|
: iny
|
|
inx
|
|
lda (str2),y
|
|
sta buf,x
|
|
@len := *+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 do_eject
|
|
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
|
|
|
|
: lda device_to_icon_map,y
|
|
|
|
@compare := *+1
|
|
cmp #0
|
|
|
|
beq found
|
|
cpy DEVCNT
|
|
beq exit
|
|
iny
|
|
bne :-
|
|
exit: rts
|
|
|
|
found: lda DEVLST,y ;
|
|
sta unit_number
|
|
|
|
;; Compute SmartPort dispatch address
|
|
smartport_addr := $0A
|
|
jsr find_smartport_dispatch_address
|
|
bne exit ; not SP
|
|
|
|
;; Compute control_unit_number from unit_number
|
|
lda unit_number
|
|
pha
|
|
rol a
|
|
pla
|
|
php
|
|
and #$20
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
plp
|
|
adc #1
|
|
sta control_unit_number
|
|
|
|
;; Execute SmartPort call
|
|
jsr smartport_call
|
|
.byte $04 ; $04 = CONTROL
|
|
.addr control_params
|
|
rts
|
|
|
|
smartport_call:
|
|
jmp (smartport_addr)
|
|
|
|
.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_number:
|
|
.byte 0
|
|
|
|
.byte 0 ; unused???
|
|
.endproc
|
|
|
|
DEFINE_GET_FILE_INFO_PARAMS get_file_info_params5, $220
|
|
|
|
DEFINE_READ_BLOCK_PARAMS block_params, $0800, $A
|
|
|
|
L92E3: .byte $00
|
|
L92E4: .word 0
|
|
L92E6: .byte $00
|
|
|
|
;;; ============================================================
|
|
;;; Look up device driver address.
|
|
;;; Input: A = unit number
|
|
;;; Output: $0A/$0B ptr to driver; Z set if $CnXX
|
|
|
|
.proc device_driver_address
|
|
slot_addr := $0A
|
|
|
|
and #%11110000 ; mask off drive/slot
|
|
clc
|
|
ror ; 0DSSS000
|
|
ror ; 00DSSS00
|
|
ror ; 000DSSS0
|
|
tax ; = slot * 2 + (drive == 2 ? 0x10 + 0x00)
|
|
|
|
lda DEVADR,x
|
|
sta slot_addr
|
|
lda DEVADR+1,x
|
|
sta slot_addr+1
|
|
|
|
ora #$F0 ; is it $Cn ?
|
|
cmp #$C0 ; leave Z flag set if so
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Look up SmartPort dispatch address.
|
|
;;; Input: A = unit number
|
|
;;; Output: Z set if SP, $0A/$0B dispatch address; Z clear if not SP
|
|
|
|
.proc find_smartport_dispatch_address
|
|
sp_addr := $0A
|
|
|
|
jsr device_driver_address
|
|
bne exit ; RAM-based driver
|
|
|
|
copy #0, sp_addr ; point at $Cn00 for firmware lookups
|
|
|
|
ldy #$07 ; SmartPort signature byte ($Cn07)
|
|
lda (sp_addr),y ; $00 = SmartPort
|
|
bne exit
|
|
|
|
ldy #$FB ; SmartPort ID Type Byte ($CnFB)
|
|
lda (sp_addr),y
|
|
and #$7F ; bit 7 = is Extended
|
|
bne exit
|
|
|
|
;; Locate SmartPort entry point: $Cn00 + ($CnFF) + 3
|
|
ldy #$FF
|
|
lda (sp_addr),y
|
|
clc
|
|
adc #3
|
|
sta sp_addr
|
|
|
|
lda #0 ; exit with Z set on success
|
|
|
|
exit: rts
|
|
.endproc
|
|
|
|
PAD_TO $92E7 ; Maintain offsets
|
|
|
|
;;; ============================================================
|
|
;;; Get Info
|
|
|
|
.proc do_get_info
|
|
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 $0220+1
|
|
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 device_to_icon_map,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
|
|
|
|
;; Compose " 12345 Blocks" or " 12345 / 67890 Blocks" string
|
|
buf := $220
|
|
copy #0, buf
|
|
|
|
lda selected_window_index ; volume?
|
|
bne do_suffix ; nope
|
|
|
|
;; ProDOS TRM 4.4.5:
|
|
;; "When file information about a volume directory is requested, the
|
|
;; total number of blocks on the volume is returned in the aux_type
|
|
;; field and the total blocks for all files is returned in blocks_used.
|
|
|
|
lda get_file_info_params5::aux_type
|
|
sec
|
|
sbc get_file_info_params5::blocks_used
|
|
pha
|
|
lda get_file_info_params5::aux_type+1
|
|
sbc get_file_info_params5::blocks_used+1
|
|
tax
|
|
pla
|
|
jsr JT_SIZE_STRING
|
|
|
|
;; text_buffer2 now has " 12345 Blocks" (free space)
|
|
|
|
;; Copy number and leading/trailing space into buf
|
|
ldx buf
|
|
ldy #0
|
|
: inx
|
|
lda text_buffer2::data,y
|
|
cmp #'B' ; stop at 'B' in "Blocks"
|
|
beq slash
|
|
sta buf,x
|
|
iny
|
|
cpy text_buffer2::length
|
|
bne :-
|
|
|
|
;; Append '/' to buf
|
|
slash: lda #'/'
|
|
sta buf,x
|
|
stx buf
|
|
|
|
do_suffix:
|
|
lda selected_window_index ; volume?
|
|
bne :+ ; nope
|
|
|
|
;; Load up the total volume size...
|
|
ldax get_file_info_params5::aux_type
|
|
jmp compute_suffix
|
|
|
|
;; Load up the file size
|
|
: ldax get_file_info_params5::blocks_used
|
|
|
|
;; Compute " 12345 Blocks" (either result or suffix)
|
|
compute_suffix:
|
|
jsr JT_SIZE_STRING
|
|
|
|
;; Append latest to buffer
|
|
ldx buf
|
|
ldy #1
|
|
: inx
|
|
lda text_buffer2::data-1,y
|
|
sta buf,x
|
|
cpy text_buffer2::length
|
|
beq :+
|
|
iny
|
|
bne :-
|
|
: stx buf
|
|
|
|
;; TODO: Compose directly into path_buf4.
|
|
ldx buf
|
|
: lda buf,x
|
|
sta path_buf4,x
|
|
dex
|
|
bpl :-
|
|
|
|
copy16 #path_buf4, L92E4
|
|
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
|
|
.endproc
|
|
L92F5 := do_get_info::L92F5
|
|
|
|
;;; ============================================================
|
|
|
|
PAD_TO $9569 ; Maintain previous addresses
|
|
|
|
;;; ============================================================
|
|
|
|
.proc do_rename_icon_impl
|
|
|
|
DEFINE_RENAME_PARAMS rename_params, $220, path_buf_main
|
|
|
|
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 $0220+1
|
|
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 $1F00-1,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 path_buf_main,y
|
|
dey
|
|
bpl L965A
|
|
inc path_buf_main
|
|
ldx path_buf_main
|
|
lda #'/'
|
|
sta path_buf_main,x
|
|
ldy #$00
|
|
lda ($08),y
|
|
sta L9709
|
|
L9674: inx
|
|
iny
|
|
lda ($08),y
|
|
sta path_buf_main,x
|
|
cpy L9709
|
|
bne L9674
|
|
stx path_buf_main
|
|
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
|
|
do_rename_icon := do_rename_icon_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, path_buf_main, $1100
|
|
DEFINE_READ_PARAMS read_params6, $1500, $AC0
|
|
DEFINE_WRITE_PARAMS write_params, $1500, $AC0
|
|
DEFINE_CREATE_PARAMS create_params3, path_buf_main, ACCESS_DEFAULT
|
|
DEFINE_CREATE_PARAMS create_params2, path_buf_main
|
|
|
|
.byte $00,$00
|
|
|
|
DEFINE_GET_FILE_INFO_PARAMS file_info_params2, $220
|
|
|
|
.byte 0
|
|
|
|
DEFINE_GET_FILE_INFO_PARAMS file_info_params3, path_buf_main
|
|
|
|
.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 path_buf_main
|
|
|
|
.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 path_buf_main
|
|
ldy L9B32
|
|
dey
|
|
L9A3D: iny
|
|
inx
|
|
lda $220,y
|
|
sta path_buf_main,x
|
|
cpy $220
|
|
bne L9A3D
|
|
stx path_buf_main
|
|
jmp L9A70
|
|
|
|
L9A50: ldx path_buf_main
|
|
lda #'/'
|
|
sta path_buf_main+1,x
|
|
inc path_buf_main
|
|
ldy #$00
|
|
ldx path_buf_main
|
|
L9A60: iny
|
|
inx
|
|
lda LE04B,y
|
|
sta path_buf_main,x
|
|
cpy LE04B
|
|
bne L9A60
|
|
stx path_buf_main
|
|
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
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L9C01
|
|
jsr L9C1A
|
|
bcc done
|
|
lda #4
|
|
sta L9937
|
|
jsr L9BBF
|
|
beq :+
|
|
jmp LA39F
|
|
: lda #3
|
|
sta L9937
|
|
sec
|
|
done: 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 path_buf_main
|
|
sta L9CD6
|
|
ldy #$01
|
|
L9C5C: iny
|
|
cpy path_buf_main
|
|
bcs L9CCC
|
|
lda path_buf_main,y
|
|
cmp #'/'
|
|
bne L9C5C
|
|
tya
|
|
sta path_buf_main
|
|
sta L9CD7
|
|
L9C70: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params3
|
|
beq L9C95
|
|
pha
|
|
lda L9CD6
|
|
sta path_buf_main
|
|
pla
|
|
jsr show_error_alert_dst
|
|
jmp L9C70
|
|
|
|
lda L9CD7
|
|
sta path_buf_main
|
|
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 path_buf_main
|
|
rts
|
|
|
|
L9CD4: .word 0
|
|
L9CD6: .byte 0
|
|
L9CD7: .byte 0
|
|
L9CD8: .byte 0
|
|
L9CD9: .byte 0
|
|
.endproc
|
|
.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 destroy_with_retry
|
|
L9E79: .byte 0
|
|
L9E7A: .word 0
|
|
|
|
.addr $220
|
|
|
|
.proc 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
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L9EBF
|
|
ldy #5
|
|
: lda L9E73,y
|
|
sta L97DD,y
|
|
dey
|
|
bpl :-
|
|
lda #$00
|
|
sta LA425
|
|
sta L918D
|
|
rts
|
|
.endproc
|
|
|
|
.proc L9ED3
|
|
lda #$05
|
|
sta L9E79
|
|
jmp LA044
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.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
|
|
|
|
;;; ============================================================
|
|
|
|
.proc destroy_with_retry
|
|
retry: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
|
beq done
|
|
cmp #ERR_ACCESS_ERROR
|
|
beq done
|
|
jsr show_error_alert
|
|
jmp retry
|
|
done: rts
|
|
.endproc
|
|
|
|
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 launch_unlock_dialog
|
|
copy16 #LA0F8, L9180
|
|
rts
|
|
|
|
LA085: copy16 #LA0C3, L9183
|
|
copy16 #LA0A7, L917D
|
|
jsr launch_lock_dialog
|
|
copy16 #LA0F0, L9180
|
|
rts
|
|
|
|
LA0A7: stax LA055
|
|
lda #$01
|
|
sta LA054
|
|
jmp launch_lock_dialog
|
|
|
|
LA0B5: stax LA055
|
|
lda #$01
|
|
sta LA054
|
|
jmp launch_unlock_dialog
|
|
|
|
LA0C3: lda #$02
|
|
sta LA054
|
|
jsr launch_lock_dialog
|
|
beq LA0D0
|
|
jmp LA39F
|
|
|
|
LA0D0: rts
|
|
|
|
LA0D1: lda #$02
|
|
sta LA054
|
|
jsr launch_unlock_dialog
|
|
beq LA0DE
|
|
jmp LA39F
|
|
|
|
LA0DE: rts
|
|
|
|
.proc LA0DF
|
|
lda #$00
|
|
sta LA425
|
|
ldy #$05
|
|
: lda LA04E,y
|
|
sta L97DD,y
|
|
dey
|
|
bpl :-
|
|
rts
|
|
.endproc
|
|
|
|
LA0F0: lda #$04
|
|
sta LA054
|
|
jmp launch_lock_dialog
|
|
|
|
LA0F8: lda #$04
|
|
sta LA054
|
|
jmp launch_unlock_dialog
|
|
|
|
launch_lock_dialog:
|
|
yax_call launch_dialog, index_lock_dialog, LA054
|
|
rts
|
|
|
|
launch_unlock_dialog:
|
|
yax_call launch_dialog, index_unlock_dialog, LA054
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
.proc LA114
|
|
lda #$03
|
|
sta LA054
|
|
jsr LA379
|
|
ldx path_buf_main
|
|
ldy L9B32
|
|
dey
|
|
LA123: iny
|
|
inx
|
|
lda $220,y
|
|
sta path_buf_main,x
|
|
cpy $220
|
|
bne LA123
|
|
stx path_buf_main
|
|
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
|
|
;; fall through
|
|
|
|
.proc LA173
|
|
jsr LA1C3
|
|
jsr decrement_LA2ED
|
|
: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
|
|
beq :+
|
|
jsr show_error_alert
|
|
jmp :-
|
|
: lda file_info_params2::storage_type
|
|
cmp #ST_VOLUME_DIRECTORY
|
|
beq LA1C0
|
|
cmp #ST_LINKED_DIRECTORY
|
|
beq LA1C0
|
|
bit L918B
|
|
bpl :+
|
|
lda #ACCESS_DEFAULT
|
|
bne LA1A0
|
|
: lda #$21
|
|
LA1A0: sta file_info_params2::access
|
|
LA1A3: copy #7, file_info_params2 ; param count for SET_FILE_INFO
|
|
yax_call JT_MLI_RELAY, SET_FILE_INFO, file_info_params2
|
|
pha
|
|
copy #$A, file_info_params2 ; param count for GET_FILE_INFO
|
|
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 launch_unlock_dialog
|
|
|
|
LA1DC: jmp launch_lock_dialog
|
|
.endproc
|
|
|
|
LA1DF: .byte 0
|
|
.addr LA2ED, LA2EF
|
|
|
|
LA1E4: copy #0, LA1DF
|
|
copy16 #LA220, L9183
|
|
copy16 #LA211, L917D
|
|
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
|
copy16 #LA233, L9180
|
|
rts
|
|
|
|
LA211: copy #1, LA1DF
|
|
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
|
LA21F: rts
|
|
|
|
LA220: copy #2, LA1DF
|
|
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
|
beq LA21F
|
|
jmp LA39F
|
|
|
|
LA233: copy #3, LA1DF
|
|
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
|
LA241: rts
|
|
|
|
LA242: .addr LA2AE,rts2,rts2
|
|
|
|
;;; ============================================================
|
|
|
|
.proc LA248
|
|
copy #0, 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: copy file_info_params2::storage_type, 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 path_buf_main
|
|
lda #'/'
|
|
sta path_buf_main+1,y
|
|
iny
|
|
LA34C: cpx L97AD
|
|
bcs LA35C
|
|
lda L97AD+1,x
|
|
sta path_buf_main+1,y
|
|
inx
|
|
iny
|
|
jmp LA34C
|
|
|
|
LA35C: sty path_buf_main
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc LA360
|
|
ldx path_buf_main
|
|
bne LA366
|
|
rts
|
|
|
|
LA366: lda path_buf_main,x
|
|
cmp #'/'
|
|
beq LA374
|
|
dex
|
|
bne LA366
|
|
stx path_buf_main
|
|
rts
|
|
|
|
LA374: dex
|
|
stx path_buf_main
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc LA379
|
|
ldy #$00
|
|
sty L9B32
|
|
dey
|
|
LA37F: iny
|
|
lda path_buf3,y
|
|
cmp #'/'
|
|
bne LA38A
|
|
sty L9B32
|
|
LA38A: sta $220,y
|
|
cpy path_buf3
|
|
bne LA37F
|
|
ldy path_buf4
|
|
LA395: lda path_buf4,y
|
|
sta path_buf_main,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::EventKind::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
|
|
copy #ACCESS_DEFAULT, 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
|
|
COPY_BYTES 11, file_info_params2::access, file_info_params3::access
|
|
rts
|
|
.endproc
|
|
|
|
.proc LA479
|
|
copy #7, file_info_params3 ; SET_FILE_INFO param_count
|
|
yax_call JT_MLI_RELAY, SET_FILE_INFO, file_info_params3
|
|
pha
|
|
copy #$A, file_info_params3 ; GET_FILE_INFO param_count
|
|
pla
|
|
beq done
|
|
jsr show_error_alert_dst
|
|
jmp LA479
|
|
|
|
done: rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
;;; Show Alert Dialog
|
|
;;; A=error. If ERR_VOL_NOT_FOUND or ERR_FILE_NOT_FOUND, will
|
|
;;; show "please insert source disk" (or destination, if flag set)
|
|
|
|
.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"
|
|
|
|
|
|
;;; ============================================================
|
|
;;; Reinstall /RAM (Slot 3, Drive 2)
|
|
|
|
;;; TODO: Do everything correcly per ProDOS TRM
|
|
;;; http://www.easy68k.com/paulrsm/6502/PDOS8TRM.HTM#5.2.2.4
|
|
|
|
.proc reinstall_ram
|
|
php
|
|
sei ; Disable interrupts
|
|
|
|
ram_unit_number = (1<<7 | 3<<4 | DT_RAM)
|
|
|
|
;; Append unit number
|
|
inc DEVCNT
|
|
ldx DEVCNT
|
|
lda #ram_unit_number ; Slot 3, Drive 2
|
|
sta DEVLST,x
|
|
|
|
;; NOTE: Assumes driver (in DEVADR) was not modified
|
|
;; when detached.
|
|
|
|
;; /RAM FORMAT call
|
|
copy #DRIVER_COMMAND_FORMAT, DRIVER_COMMAND
|
|
copy #ram_unit_number, DRIVER_UNIT_NUMBER
|
|
copy16 #$2000, DRIVER_BUFFER
|
|
lda LCBANK1
|
|
lda LCBANK1
|
|
jsr driver
|
|
|
|
plp ; Restore interrupts
|
|
rts
|
|
|
|
RAMSLOT := DEVADR + $16 ; Slot 3, Drive 2
|
|
|
|
driver: jmp (RAMSLOT)
|
|
.endproc
|
|
|
|
|
|
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:
|
|
.assert * = $A500, error, "Entry point used by overlay"
|
|
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 prompt_ip_flag
|
|
sta LD8EC
|
|
sta LD8F0
|
|
sta LD8F1
|
|
sta LD8F2
|
|
sta has_input_field_flag
|
|
sta LD8F5
|
|
sta format_erase_overlay_flag
|
|
sta cursor_ip_flag
|
|
|
|
copy #prompt_insertion_point_blink_count, prompt_ip_counter
|
|
|
|
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
|
|
.assert * = $A567, error, "Entry point used by overlay"
|
|
lda has_input_field_flag
|
|
beq :+
|
|
|
|
;; Blink the insertion point
|
|
dec prompt_ip_counter
|
|
bne :+
|
|
jsr redraw_prompt_insertion_point
|
|
lda #prompt_insertion_point_blink_count
|
|
sta prompt_ip_counter
|
|
|
|
;; Dispatch event types - mouse down, key press
|
|
: MGTK_RELAY_CALL MGTK::GetEvent, event_params
|
|
lda event_kind
|
|
cmp #MGTK::EventKind::button_down
|
|
bne :+
|
|
jmp prompt_click_handler
|
|
|
|
: cmp #MGTK::EventKind::key_down
|
|
bne :+
|
|
jmp prompt_key_handler
|
|
|
|
;; Does the dialog have an input field?
|
|
: lda has_input_field_flag
|
|
beq prompt_input_loop
|
|
|
|
;; Check if mouse is over input field, change cursor appropriately.
|
|
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 ; Is over this window... but where?
|
|
jsr set_port_from_window_id
|
|
copy winfo_alert_dialog, event_params
|
|
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
|
|
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
|
MGTK_RELAY_CALL MGTK::InRect, name_input_rect
|
|
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_grafport3a
|
|
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
|
|
copy winfo_alert_dialog, 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 has_input_field_flag
|
|
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 #CHAR_MASK
|
|
cmp #CHAR_LEFT
|
|
bne LA710
|
|
jmp LA815
|
|
|
|
LA710: cmp #CHAR_RIGHT
|
|
bne LA717
|
|
jmp LA820
|
|
|
|
LA717: return #$FF
|
|
|
|
LA71A: lda event_key
|
|
and #CHAR_MASK
|
|
cmp #CHAR_LEFT
|
|
bne LA72E
|
|
bit format_erase_overlay_flag
|
|
bpl :+
|
|
jmp format_erase_overlay::L0CB8
|
|
|
|
: jmp LA82B
|
|
|
|
LA72E: cmp #CHAR_RIGHT
|
|
bne LA73D
|
|
bit format_erase_overlay_flag
|
|
bpl :+
|
|
jmp format_erase_overlay::L0CD7
|
|
|
|
: 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 format_erase_overlay_flag
|
|
bmi LA768
|
|
jmp LA717
|
|
|
|
LA768: jmp format_erase_overlay::L0D14
|
|
|
|
LA76B: cmp #CHAR_DOWN
|
|
bne LA77A
|
|
bit format_erase_overlay_flag
|
|
bmi LA777
|
|
jmp LA717
|
|
|
|
LA777: jmp format_erase_overlay::L0CF9
|
|
|
|
LA77A: bit LD8E7
|
|
bvc LA79B
|
|
cmp #'Y'
|
|
beq do_yes
|
|
cmp #'y'
|
|
beq do_yes
|
|
cmp #'N'
|
|
beq do_no
|
|
cmp #'n'
|
|
beq do_no
|
|
cmp #'A'
|
|
beq do_all
|
|
cmp #'a'
|
|
beq do_all
|
|
cmp #CHAR_RETURN
|
|
beq do_yes
|
|
|
|
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 #'~'
|
|
beq LA7DD
|
|
bcc LA7DD
|
|
jmp LA717
|
|
|
|
LA7D8: ldx path_buf1
|
|
beq LA7E5
|
|
LA7DD: ldx has_input_field_flag
|
|
beq LA7E5
|
|
jsr LBB0B
|
|
LA7E5: return #$FF
|
|
|
|
do_yes: jsr set_penmode_xor2
|
|
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::yes_button_rect
|
|
return #prompt_button_yes
|
|
|
|
do_no: jsr set_penmode_xor2
|
|
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::no_button_rect
|
|
return #prompt_button_no
|
|
|
|
do_all: jsr set_penmode_xor2
|
|
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::all_button_rect
|
|
return #prompt_button_all
|
|
|
|
LA815: lda has_input_field_flag
|
|
beq LA81D
|
|
jsr LBC5E
|
|
LA81D: return #$FF
|
|
|
|
LA820: lda has_input_field_flag
|
|
beq LA828
|
|
jsr LBCC9
|
|
LA828: return #$FF
|
|
|
|
LA82B: lda has_input_field_flag
|
|
beq LA83B
|
|
bit format_erase_overlay_flag
|
|
bpl LA838
|
|
jmp format_erase_overlay::L0CD7
|
|
|
|
LA838: jsr LBBA4
|
|
LA83B: return #$FF
|
|
|
|
LA83E: lda has_input_field_flag
|
|
beq LA84E
|
|
bit format_erase_overlay_flag
|
|
bpl LA84B
|
|
jmp format_erase_overlay::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 has_input_field_flag
|
|
beq LA895
|
|
jsr LBB63
|
|
LA895: return #$FF
|
|
.endproc
|
|
|
|
rts1:
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
jump_relay:
|
|
.assert * = $A899, error, "Entry point used by overlay"
|
|
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 - (7 * .strlen(VERSION_SUFFIX)), 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::EventKind::button_down
|
|
beq close
|
|
cmp #MGTK::EventKind::key_down
|
|
bne :-
|
|
lda event_key
|
|
and #CHAR_MASK
|
|
cmp #CHAR_ESCAPE
|
|
beq close
|
|
cmp #CHAR_RETURN
|
|
bne :-
|
|
jmp close
|
|
|
|
close: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_about_dialog
|
|
jsr reset_grafport3a
|
|
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
|
|
|
|
: copy #0, has_input_field_flag
|
|
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
|
|
copy16in (ptr),y, file_count
|
|
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
|
|
copy16in (ptr),y, file_count
|
|
jsr adjust_str_files_suffix
|
|
jsr compose_file_count_string
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
jsr paint_rectAE86_white
|
|
jsr paint_rectAE8E_white
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #$03
|
|
lda (ptr),y
|
|
tax
|
|
iny
|
|
lda (ptr),y
|
|
sta ptr+1
|
|
stx ptr
|
|
jsr copy_name_to_buf0_adjust_case
|
|
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 copy_name_to_buf1_adjust_case
|
|
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_grafport3a
|
|
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
|
|
.assert * = $AACE, error, "Entry point used by overlay"
|
|
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: copy #0, has_input_field_flag
|
|
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
|
|
copy16in (ptr),y, file_count
|
|
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
|
|
copy16in (ptr),y, file_count
|
|
jsr adjust_str_files_suffix
|
|
jsr compose_file_count_string
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
jsr paint_rectAE86_white
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #$03
|
|
lda (ptr),y
|
|
tax
|
|
iny
|
|
lda (ptr),y
|
|
sta ptr+1
|
|
stx ptr
|
|
jsr copy_name_to_buf0_adjust_case
|
|
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_grafport3a
|
|
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
|
|
copy16in (ptr),y, file_count
|
|
jsr compose_file_count_string
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
copy #165, 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
|
|
copy16in (ptr),y, file_count
|
|
jsr compose_file_count_string
|
|
copy #165, dialog_label_pos
|
|
yax_call draw_dialog_label, 2, str_file_count
|
|
rts
|
|
|
|
do3: jsr reset_grafport3a
|
|
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
|
|
copy #0, has_input_field_flag
|
|
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
|
|
copy16in ($06),y, file_count
|
|
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
|
|
copy16in ($06),y, file_count
|
|
jsr adjust_str_files_suffix
|
|
jsr compose_file_count_string
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
jsr paint_rectAE86_white
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #$03
|
|
lda ($06),y
|
|
tax
|
|
iny
|
|
lda ($06),y
|
|
sta $06+1
|
|
stx $06
|
|
jsr copy_name_to_buf0_adjust_case
|
|
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_grafport3a
|
|
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: copy #$80, has_input_field_flag
|
|
jsr clear_path_buf2
|
|
lda #$00
|
|
jsr open_prompt_window
|
|
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, name_input_rect
|
|
rts
|
|
|
|
LAE70: copy #$80, has_input_field_flag
|
|
copy #0, LD8E7
|
|
jsr clear_path_buf1
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #$01
|
|
copy16in ($06),y, $08
|
|
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
|
|
copy #55, dialog_label_pos
|
|
yax_call draw_dialog_label, 2, path_buf0
|
|
copy #dialog_label_default_x, 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
|
|
copy #'/', path_buf0,x
|
|
ldx path_buf0
|
|
ldy #$00
|
|
LAEFF: inx
|
|
iny
|
|
copy path_buf1,y, path_buf0,x
|
|
cpy path_buf1
|
|
bne LAEFF
|
|
stx path_buf0
|
|
ldy #<path_buf0
|
|
ldx #>path_buf0
|
|
return #0
|
|
|
|
LAF16: jsr reset_grafport3a
|
|
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: copy #0, has_input_field_flag
|
|
lda (ptr),y
|
|
lsr a
|
|
lsr a
|
|
ror a
|
|
eor #$80
|
|
jsr open_prompt_window
|
|
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_grafport3a
|
|
|
|
LAFB9: lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #0
|
|
copy (ptr),y, row
|
|
tay
|
|
jsr draw_colon
|
|
copy #165, 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_grafport3a
|
|
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
|
|
copy #160, 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
|
|
|
|
: copy #0, has_input_field_flag
|
|
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
|
|
copy16in ($06),y, file_count
|
|
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
|
|
copy16in ($06),y, file_count
|
|
jsr adjust_str_files_suffix
|
|
jsr compose_file_count_string
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
jsr paint_rectAE86_white
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #$03
|
|
lda ($06),y
|
|
tax
|
|
iny
|
|
lda ($06),y
|
|
sta $06+1
|
|
stx $06
|
|
jsr copy_name_to_buf0_adjust_case
|
|
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_grafport3a
|
|
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
|
|
|
|
: copy #0, has_input_field_flag
|
|
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
|
|
copy16in ($06),y, file_count
|
|
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
|
|
copy16in ($06),y, file_count
|
|
jsr adjust_str_files_suffix
|
|
jsr compose_file_count_string
|
|
lda winfo_alert_dialog
|
|
jsr set_port_from_window_id
|
|
jsr paint_rectAE86_white
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #$03
|
|
lda ($06),y
|
|
tax
|
|
iny
|
|
lda ($06),y
|
|
sta $06+1
|
|
stx $06
|
|
jsr copy_name_to_buf0_adjust_case
|
|
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_grafport3a
|
|
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 clear_path_buf1
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
copy #$80, has_input_field_flag
|
|
jsr clear_path_buf2
|
|
lda #$00
|
|
jsr open_prompt_window
|
|
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, name_input_rect
|
|
yax_call draw_dialog_label, 2, desktop_aux::str_rename_old
|
|
copy #85, dialog_label_pos
|
|
jsr copy_dialog_param_addr_to_ptr
|
|
ldy #$01
|
|
copy16in ($06),y, $08
|
|
ldy #$00
|
|
lda ($08),y
|
|
tay
|
|
LB2CA: copy ($08),y, 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
|
|
copy #0, 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_grafport3a
|
|
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_grafport3a
|
|
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
|
|
copy #0, cursor_ip_flag
|
|
: rts
|
|
.endproc
|
|
|
|
.proc set_cursor_insertion_point_with_flag
|
|
bit cursor_ip_flag
|
|
bmi :+
|
|
jsr set_cursor_insertion_point
|
|
copy #$80, cursor_ip_flag
|
|
: rts
|
|
.endproc
|
|
|
|
cursor_ip_flag: ; high bit set if IP, clear if pointer
|
|
.byte 0
|
|
|
|
.proc set_cursor_watch
|
|
.assert * = $B3E7, error, "Entry point used by overlay"
|
|
MGTK_RELAY_CALL MGTK::HideCursor
|
|
MGTK_RELAY_CALL MGTK::SetCursor, watch_cursor
|
|
MGTK_RELAY_CALL MGTK::ShowCursor
|
|
rts
|
|
.endproc
|
|
|
|
.proc set_cursor_pointer
|
|
.assert * = $B403, error, "Entry point used by overlay"
|
|
MGTK_RELAY_CALL MGTK::HideCursor
|
|
MGTK_RELAY_CALL MGTK::SetCursor, pointer_cursor
|
|
MGTK_RELAY_CALL MGTK::ShowCursor
|
|
rts
|
|
.endproc
|
|
|
|
.proc set_cursor_insertion_point
|
|
MGTK_RELAY_CALL MGTK::HideCursor
|
|
MGTK_RELAY_CALL MGTK::SetCursor, insertion_point_cursor
|
|
MGTK_RELAY_CALL MGTK::ShowCursor
|
|
rts
|
|
.endproc
|
|
|
|
set_penmode_xor2:
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
rts
|
|
|
|
;;; ============================================================
|
|
;;; Double Click Detection
|
|
;;; Returns with A=0 if double click, A=$FF otherwise.
|
|
|
|
.proc detect_double_click
|
|
.assert * = $B445, error, "Entry point used by overlay"
|
|
|
|
double_click_deltax := 5
|
|
double_click_deltay := 4
|
|
|
|
;; Stash initial coords
|
|
ldx #3
|
|
: copy event_coords,x, coords,x
|
|
sta saved_event_coords,x ; for double-click in windows
|
|
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
|
|
bne exit
|
|
|
|
: MGTK_RELAY_CALL MGTK::PeekEvent, event_params
|
|
|
|
;; Check coords, bail if pixel delta exceeded
|
|
jsr check_delta
|
|
bmi exit ; moved past delta; no double-click
|
|
|
|
lda event_kind
|
|
|
|
cmp #MGTK::EventKind::no_event
|
|
beq loop
|
|
cmp #MGTK::EventKind::drag
|
|
beq loop
|
|
cmp #MGTK::EventKind::button_up
|
|
bne :+
|
|
|
|
MGTK_RELAY_CALL MGTK::GetEvent, event_params
|
|
jmp loop
|
|
|
|
: cmp #MGTK::EventKind::button_down
|
|
bne exit
|
|
|
|
MGTK_RELAY_CALL MGTK::GetEvent, event_params
|
|
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
|
|
.endproc
|
|
|
|
PAD_TO $B509
|
|
|
|
;;; ============================================================
|
|
|
|
.proc open_prompt_window
|
|
.assert * = $B509, error, "Entry point used by overlay"
|
|
sta LD8E7
|
|
jsr open_dialog_window
|
|
bit LD8E7
|
|
bvc :+
|
|
jsr draw_yes_no_all_cancel_buttons
|
|
jmp no_ok
|
|
|
|
: MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::ok_button_rect
|
|
jsr draw_ok_label
|
|
no_ok: bit LD8E7
|
|
bmi done
|
|
MGTK_RELAY_CALL MGTK::FrameRect, desktop_aux::cancel_button_rect
|
|
jsr draw_cancel_label
|
|
done: jmp reset_grafport3a
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.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
|
|
.assert * = $B590, error, "Entry point used by overlay"
|
|
|
|
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
|
|
.assert * = $B708, error, "Entry point used by overlay"
|
|
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
|
|
.assert * = $B723, error, "Entry point used by overlay"
|
|
|
|
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
|
|
.assert * = $B781, error, "Entry point used by overlay"
|
|
|
|
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 #CHAR_MASK ; convert to ASCII
|
|
cmp #'/'
|
|
beq next
|
|
cmp #'.'
|
|
bne check_alpha
|
|
next: dey
|
|
jmp loop
|
|
|
|
check_alpha:
|
|
iny
|
|
lda (ptr),y
|
|
and #CHAR_MASK
|
|
cmp #'A'
|
|
bcc :+
|
|
cmp #'Z'+1
|
|
bcs :+
|
|
clc
|
|
adc #('a' - 'A') ; convert to lower case
|
|
sta (ptr),y
|
|
: dey
|
|
jmp loop
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc set_port_from_window_id
|
|
.assert * = $B7B9, error, "Entry point used by overlay"
|
|
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::EventKind::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
|
|
|
|
.endproc
|
|
|
|
.proc noop
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc redraw_prompt_insertion_point
|
|
point := $6
|
|
xcoord := $6
|
|
ycoord := $8
|
|
|
|
jsr measure_path_buf1
|
|
stax xcoord
|
|
copy16 name_input_textpos::ycoord, ycoord
|
|
MGTK_RELAY_CALL MGTK::MoveTo, point
|
|
MGTK_RELAY_CALL MGTK::SetPortBits, name_input_mapinfo
|
|
bit prompt_ip_flag
|
|
bpl set_flag
|
|
|
|
clear_flag:
|
|
MGTK_RELAY_CALL MGTK::SetTextBG, desktop_aux::textbg_black
|
|
lda #$00
|
|
sta prompt_ip_flag
|
|
beq draw
|
|
|
|
set_flag:
|
|
MGTK_RELAY_CALL MGTK::SetTextBG, desktop_aux::textbg_white
|
|
lda #$FF
|
|
sta prompt_ip_flag
|
|
|
|
drawtext_params := $6
|
|
textptr := $6
|
|
textlen := $8
|
|
|
|
draw: copy16 #str_insertion_point+1, textptr
|
|
lda str_insertion_point
|
|
sta textlen
|
|
MGTK_RELAY_CALL MGTK::DrawText, drawtext_params
|
|
MGTK_RELAY_CALL MGTK::SetTextBG, desktop_aux::textbg_white
|
|
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, name_input_rect
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::FrameRect, name_input_rect
|
|
MGTK_RELAY_CALL MGTK::MoveTo, name_input_textpos
|
|
MGTK_RELAY_CALL MGTK::SetPortBits, name_input_mapinfo
|
|
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, name_input_rect
|
|
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, screentowindow_windowx
|
|
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, name_input_textpos::xcoord, result
|
|
cmp16 result, screentowindow_windowx
|
|
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 LD3C1+1,y
|
|
jmp LBAC5
|
|
|
|
LBAD5: iny
|
|
sty LD3C1
|
|
ldx #1
|
|
ldy LD3C1
|
|
LBADE: cpx path_buf2
|
|
beq LBAEE
|
|
inx
|
|
iny
|
|
lda path_buf2,x
|
|
sta LD3C1,y
|
|
jmp LBADE
|
|
|
|
LBAEE: sty LD3C1
|
|
lda str_insertion_point+1
|
|
sta LD3C1+1
|
|
LBAF7: lda LD3C1,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 name_input_textpos::ycoord, ycoord
|
|
MGTK_RELAY_CALL MGTK::MoveTo, point
|
|
MGTK_RELAY_CALL MGTK::SetPortBits, name_input_mapinfo
|
|
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 name_input_textpos::ycoord, ycoord
|
|
MGTK_RELAY_CALL MGTK::MoveTo, point
|
|
MGTK_RELAY_CALL MGTK::SetPortBits, name_input_mapinfo
|
|
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 name_input_textpos::ycoord, ycoord
|
|
MGTK_RELAY_CALL MGTK::MoveTo, point
|
|
MGTK_RELAY_CALL MGTK::SetPortBits, name_input_mapinfo
|
|
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, name_input_textpos
|
|
MGTK_RELAY_CALL MGTK::SetPortBits, name_input_mapinfo
|
|
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 LD3C1-1,x
|
|
dex
|
|
cpx #$01
|
|
bne LBC6B
|
|
ldx path_buf2
|
|
LBC79: dex
|
|
stx LD3C1
|
|
ldx path_buf1
|
|
LBC80: lda path_buf1,x
|
|
sta path_buf2+1,x
|
|
dex
|
|
bne LBC80
|
|
lda str_insertion_point+1
|
|
sta path_buf2+1
|
|
inc path_buf1
|
|
lda path_buf1
|
|
sta path_buf2
|
|
lda path_buf1
|
|
clc
|
|
adc LD3C1
|
|
tay
|
|
pha
|
|
ldx LD3C1
|
|
beq LBCB3
|
|
LBCA6: lda LD3C1,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, name_input_textpos
|
|
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, name_input_textpos
|
|
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 #'/'
|
|
bne LBD22
|
|
LBD33: rts
|
|
|
|
jsr LBD22
|
|
jsr draw_filename_prompt
|
|
rts
|
|
|
|
;;; ============================================================
|
|
;;; Compute width of path_buf1, offset name_input_textpos, 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 name_input_textpos::xcoord
|
|
rts
|
|
|
|
: MGTK_RELAY_CALL MGTK::TextWidth, textwidth_params
|
|
lda result
|
|
clc
|
|
adc name_input_textpos::xcoord
|
|
tay
|
|
lda result+1
|
|
adc name_input_textpos::xcoord+1
|
|
tax
|
|
tya
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc clear_path_buf2
|
|
.assert * = $BD69, error, "Entry point used by overlay"
|
|
|
|
lda #1 ; length
|
|
sta path_buf2
|
|
lda str_insertion_point+1 ; IP character
|
|
sta path_buf2+1
|
|
rts
|
|
.endproc
|
|
|
|
.proc clear_path_buf1
|
|
.assert * = $BD75, error, "Entry point used by overlay"
|
|
|
|
lda #0 ; length
|
|
sta path_buf1
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc load_aux_from_ptr
|
|
target := $20
|
|
|
|
;; Backup copy of $20
|
|
COPY_BYTES proc_len+1, target, saved_proc_buf
|
|
|
|
;; Overwrite with proc
|
|
ldx #proc_len
|
|
: lda proc,x
|
|
sta target,x
|
|
dex
|
|
bpl :-
|
|
|
|
;; Call proc
|
|
jsr target
|
|
pha
|
|
|
|
;; Restore copy
|
|
COPY_BYTES proc_len+1, saved_proc_buf, target
|
|
|
|
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 singular 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 #' ' ; singular
|
|
sta str_files,x
|
|
rts
|
|
|
|
: lda #'s' ; plural
|
|
sta str_files,x
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc compose_file_count_string
|
|
ldax file_count
|
|
jsr int_to_string
|
|
jsr append_space_after_int
|
|
|
|
ldx str_from_int
|
|
: lda str_from_int,x
|
|
sta str_file_count,x
|
|
dex
|
|
bpl :-
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc show_clock
|
|
lda MACHID
|
|
and #1 ; bit 0 = clock card
|
|
beq done
|
|
|
|
MLI_RELAY_CALL GET_TIME, 0
|
|
lda TIMEHI ; hours
|
|
and #%00011111
|
|
|
|
;; AM/PM
|
|
ldx #'A'
|
|
cmp #12
|
|
bcc :+
|
|
ldx #'P'
|
|
sec
|
|
sbc #12
|
|
: stx str_clock + 7
|
|
|
|
;; Hours
|
|
cmp #0 ; 0 -> 12
|
|
bne :+
|
|
lda #12
|
|
: ldx #' ' ; Leading space or 1?
|
|
cmp #10
|
|
bcc :+
|
|
ldx #'1'
|
|
sec
|
|
sbc #10
|
|
: stx str_clock + 1 ; Tens place
|
|
ora #'0'
|
|
sta str_clock + 2 ; Ones place
|
|
|
|
;; Minutes
|
|
lda TIMELO
|
|
and #%00111111
|
|
ldx #0 ; Subtract off tens (in X)
|
|
: cmp #10
|
|
bcc :+
|
|
inx
|
|
sec
|
|
sbc #10
|
|
bpl :-
|
|
: ora #'0'
|
|
sta str_clock + 5 ; Ones place
|
|
txa
|
|
ora #'0'
|
|
sta str_clock + 4 ; Tens place
|
|
|
|
;; Assumes call from main loop, where grafport3 is initialized.
|
|
MGTK_RELAY_CALL MGTK::MoveTo, pos_clock
|
|
addr_call draw_text1, str_clock
|
|
done: rts
|
|
.endproc
|
|
|
|
PAD_TO $BE63
|
|
|
|
;;; ============================================================
|
|
|
|
.proc copy_name_to_buf0_adjust_case
|
|
ptr := $6
|
|
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
: lda (ptr),y
|
|
sta path_buf0,y
|
|
dey
|
|
bpl :-
|
|
addr_call adjust_case, path_buf0
|
|
rts
|
|
.endproc
|
|
|
|
.proc copy_name_to_buf1_adjust_case
|
|
ptr := $6
|
|
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
: lda (ptr),y
|
|
sta path_buf1,y
|
|
dey
|
|
bpl :-
|
|
addr_call adjust_case, path_buf1
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
paint_rectAE86_white:
|
|
jsr set_fill_white
|
|
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::LAE86
|
|
rts
|
|
|
|
paint_rectAE8E_white:
|
|
jsr set_fill_white
|
|
MGTK_RELAY_CALL MGTK::PaintRect, desktop_aux::LAE8E
|
|
rts
|
|
|
|
set_fill_white:
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
|
|
rts
|
|
|
|
reset_grafport3a:
|
|
.assert * = $BEB1, error, "Entry point used by overlay"
|
|
|
|
MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
|
MGTK_RELAY_CALL MGTK::SetPort, grafport3
|
|
rts
|
|
|
|
.assert * = $BEC4, error, "Segment length mismatch"
|
|
|
|
;;; ============================================================
|
|
;;; Invoked when exiting or launching another program.
|
|
|
|
.proc exit_dhr_mode
|
|
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
|
|
|
|
;; On IIgs (only), restore DHR Color mode
|
|
sec
|
|
jsr ID_BYTE_FE1F
|
|
bcs done
|
|
lda NEWVIDEO
|
|
ora #<~(1<<5) ; Color
|
|
sta NEWVIDEO
|
|
|
|
done: rts
|
|
.endproc
|
|
|
|
PAD_TO $BF00
|
|
|
|
.endproc ; desktop_main
|
|
desktop_main_pop_pointers := desktop_main::pop_pointers
|
|
desktop_main_push_pointers := desktop_main::push_pointers
|
|
|
|
;;; ============================================================
|
|
;;; 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
|
|
;; AppleColor Card - Mode 1 (Monochrome 560x192)
|
|
sta CLR80VID
|
|
sta AN3_OFF
|
|
sta AN3_ON
|
|
sta AN3_OFF
|
|
sta AN3_ON
|
|
sta SET80VID
|
|
sta AN3_OFF
|
|
|
|
;; IIgs ?
|
|
bit iigs_flag
|
|
bmi iigs
|
|
|
|
;; Le Chat Mauve - BW560 mode
|
|
;; (AN3 off, HR1 off, HR2 on, HR3 on)
|
|
;; Skip on IIgs since emulators (KEGS/GSport/GSplus) crash.
|
|
sta HR2_ON
|
|
sta HR3_ON
|
|
bpl end
|
|
|
|
;; Force B&W mode on the IIgs
|
|
iigs: lda NEWVIDEO
|
|
ora #(1<<5) ; B&W
|
|
sta NEWVIDEO
|
|
;; fall through
|
|
end:
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc backup_device_list
|
|
;; Make a copy of the original device list
|
|
ldx DEVCNT
|
|
inx
|
|
: lda DEVLST-1,x
|
|
sta devlst_backup,x
|
|
dex
|
|
bpl :-
|
|
;; fall through
|
|
.endproc
|
|
|
|
.proc detach_ramdisk
|
|
;; 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_pointers
|
|
copy16 #icon_entries, ptr
|
|
ldx #1
|
|
loop: cpx #max_icon_count
|
|
bne :+
|
|
jsr desktop_main::pop_pointers
|
|
jmp end
|
|
: 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 #.sizeof(IconEntry)
|
|
sta ptr
|
|
bcc :+
|
|
inc ptr+1
|
|
: pla
|
|
tax
|
|
inx
|
|
jmp loop
|
|
end:
|
|
.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 icon_count
|
|
jsr DESKTOP_ALLOC_ICON
|
|
sta trash_icon_num
|
|
sta cached_window_icon_list
|
|
jsr desktop_main::icon_entry_lookup
|
|
stax ptr
|
|
ldy #IconEntry::win_type
|
|
lda #icon_entry_type_trash
|
|
sta (ptr),y
|
|
ldy #IconEntry::iconbits
|
|
copy16in #desktop_aux::trash_icon, (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
|
|
|
|
;;; ============================================================
|
|
|
|
;;; This removes particular devices from the device list.
|
|
;;; TODO: Figure out what/why ???
|
|
|
|
.proc filter_volumes
|
|
ptr := $06
|
|
|
|
lda DEVCNT
|
|
sta devcnt
|
|
inc devcnt
|
|
ldx #0
|
|
: lda DEVLST,x
|
|
and #%10001111 ; drive, not slot, $CnFE status
|
|
cmp #%10001011 ; drive 2 ... ??? $CnFE = $Bx ?
|
|
beq :+
|
|
inx
|
|
cpx devcnt
|
|
bne :-
|
|
jmp done
|
|
|
|
: lda DEVLST,x ; unit_num
|
|
stx index
|
|
|
|
sp_addr := $0A
|
|
jsr desktop_main::find_smartport_dispatch_address
|
|
bne done ; not SmartPort
|
|
|
|
;; Execute SmartPort call
|
|
jsr smartport_call
|
|
.byte 0 ; $00 = STATUS
|
|
.addr smartport_params
|
|
|
|
bcs done
|
|
lda $1F00 ; number of devices
|
|
cmp #2
|
|
bcs done
|
|
|
|
;; Single device - remove from DEVLST - Why ???
|
|
ldx index
|
|
: lda DEVLST+1,x
|
|
sta DEVLST,x
|
|
inx
|
|
cpx devcnt
|
|
bne :-
|
|
dec DEVCNT
|
|
done: jmp end
|
|
|
|
index: .byte 0
|
|
|
|
smartport_call:
|
|
jmp (sp_addr)
|
|
|
|
smartport_params:
|
|
.byte $03 ; parameter count
|
|
.byte 0 ; unit number (0 = overall status)
|
|
.addr $1F00 ; status list pointer
|
|
.byte 0 ; status code (0 = device status)
|
|
|
|
devcnt: .byte 0
|
|
|
|
unit_number:
|
|
.byte 0 ; now unused
|
|
|
|
end:
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc load_selector_list
|
|
ptr1 := $6
|
|
ptr2 := $8
|
|
|
|
selector_list_io_buf := $1000
|
|
selector_list_data_buf := $1400
|
|
selector_list_data_len := $400
|
|
|
|
;; Save the current PREFIX
|
|
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
|
|
bne done
|
|
|
|
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 done
|
|
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
|
|
|
|
done: 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
|
|
|
|
.proc read_selector_list
|
|
MLI_RELAY_CALL OPEN, open_params
|
|
;; bne done
|
|
bne write_selector_list
|
|
|
|
lda open_params::ref_num
|
|
sta read_params::ref_num
|
|
MLI_RELAY_CALL READ, read_params
|
|
MLI_RELAY_CALL CLOSE, close_params
|
|
done: rts
|
|
.endproc
|
|
|
|
DEFINE_CREATE_PARAMS create_params, str_selector_list, ACCESS_DEFAULT, $F1
|
|
DEFINE_WRITE_PARAMS write_params, selector_list_data_buf, selector_list_data_len
|
|
|
|
.proc write_selector_list
|
|
ptr := $06
|
|
|
|
;; Clear buffer
|
|
copy16 #selector_list_data_buf, ptr
|
|
ldx #>selector_list_data_len ; number of pages
|
|
lda #0
|
|
ploop: ldy #0
|
|
: sta (ptr),y
|
|
dey
|
|
bne :-
|
|
dex
|
|
bne ploop
|
|
|
|
;; Write out file
|
|
MLI_RELAY_CALL CREATE, create_params
|
|
bne done
|
|
MLI_RELAY_CALL OPEN, open_params
|
|
lda open_params::ref_num
|
|
sta write_params::ref_num
|
|
sta close_params::ref_num
|
|
MLI_RELAY_CALL WRITE, write_params ; two blocks of $400
|
|
MLI_RELAY_CALL WRITE, write_params
|
|
MLI_RELAY_CALL CLOSE, close_params
|
|
|
|
done: rts
|
|
.endproc
|
|
|
|
.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 end
|
|
|
|
dx: .word 0
|
|
|
|
end:
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc enumerate_desk_accessories
|
|
MGTK_RELAY_CALL MGTK::CheckEvents ; ???
|
|
|
|
read_dir_buffer := $1400
|
|
|
|
;; Does the directory exist?
|
|
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params
|
|
beq :+
|
|
jmp populate_volume_icons
|
|
|
|
: lda get_file_info_type
|
|
cmp #FT_DIRECTORY
|
|
beq open_dir
|
|
jmp populate_volume_icons
|
|
|
|
open_dir:
|
|
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 #0
|
|
sta entry_num
|
|
sta desk_acc_num
|
|
|
|
lda #1 ; First block has header instead of entry
|
|
sta entry_in_block
|
|
|
|
lda read_dir_buffer + SubdirectoryHeader::file_count
|
|
and #$7F
|
|
sta file_count
|
|
|
|
lda #2
|
|
sta apple_menu ; "About..." and separator
|
|
|
|
lda read_dir_buffer + SubdirectoryHeader::entries_per_block
|
|
sta entries_per_block
|
|
lda read_dir_buffer + SubdirectoryHeader::entry_length
|
|
sta entry_length
|
|
|
|
dir_ptr := $06
|
|
da_ptr := $08
|
|
|
|
copy16 #read_dir_buffer + .sizeof(SubdirectoryHeader), dir_ptr
|
|
|
|
process_block:
|
|
ldy #FileEntry::storage_type_name_length
|
|
lda (dir_ptr),y
|
|
and #NAME_LENGTH_MASK
|
|
bne :+
|
|
jmp next_entry
|
|
|
|
: inc entry_num
|
|
ldy #FileEntry::file_type
|
|
lda (dir_ptr),y
|
|
cmp #DA_FILE_TYPE
|
|
beq is_da
|
|
jmp next_entry
|
|
|
|
;; Compute slot in DA name table
|
|
is_da: inc desk_acc_num
|
|
copy16 #desk_acc_names, da_ptr
|
|
lda #0
|
|
sta ptr_calc_hi
|
|
lda apple_menu ; num menu items
|
|
sec
|
|
sbc #2 ; ignore "About..." and separator
|
|
asl a
|
|
rol ptr_calc_hi
|
|
asl a
|
|
rol ptr_calc_hi
|
|
asl a
|
|
rol ptr_calc_hi
|
|
asl a
|
|
rol ptr_calc_hi
|
|
clc
|
|
adc da_ptr
|
|
sta da_ptr
|
|
lda ptr_calc_hi
|
|
adc da_ptr+1
|
|
sta da_ptr+1
|
|
|
|
;; Copy name
|
|
ldy #FileEntry::storage_type_name_length
|
|
lda (dir_ptr),y
|
|
and #NAME_LENGTH_MASK
|
|
sta (da_ptr),y
|
|
tay
|
|
: lda (dir_ptr),y
|
|
sta (da_ptr),y
|
|
dey
|
|
bne :-
|
|
|
|
addr_call_indirect desktop_main::capitalize_string, da_ptr
|
|
|
|
;; Convert periods to spaces
|
|
lda (da_ptr),y
|
|
tay
|
|
loop: lda (da_ptr),y
|
|
cmp #'.'
|
|
bne :+
|
|
lda #' '
|
|
sta (da_ptr),y
|
|
: dey
|
|
|
|
bne loop
|
|
inc apple_menu ; number of menu items
|
|
|
|
next_entry:
|
|
;; Room for more DAs?
|
|
lda desk_acc_num
|
|
cmp #max_desk_acc_count
|
|
bcc :+
|
|
jmp close_dir
|
|
|
|
;; Any more entries in dir?
|
|
: lda entry_num
|
|
cmp file_count
|
|
bne :+
|
|
jmp close_dir
|
|
|
|
;; Any more entries in block?
|
|
: inc entry_in_block
|
|
lda entry_in_block
|
|
cmp entries_per_block
|
|
bne :+
|
|
MLI_RELAY_CALL READ, read_params
|
|
copy16 #read_dir_buffer + 4, dir_ptr
|
|
|
|
lda #0
|
|
sta entry_in_block
|
|
jmp process_block
|
|
|
|
: add16_8 dir_ptr, entry_length, dir_ptr
|
|
jmp process_block
|
|
|
|
close_dir:
|
|
MLI_RELAY_CALL CLOSE, close_params
|
|
jmp end
|
|
|
|
DEFINE_OPEN_PARAMS open_params, str_desk_acc, $1000
|
|
open_ref_num := open_params::ref_num
|
|
|
|
DEFINE_READ_PARAMS read_params, read_dir_buffer, BLOCK_SIZE
|
|
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"
|
|
|
|
file_count: .byte 0
|
|
entry_num: .byte 0
|
|
desk_acc_num: .byte 0
|
|
entry_length: .byte 0
|
|
entries_per_block: .byte 0
|
|
entry_in_block: .byte 0
|
|
ptr_calc_hi: .byte 0
|
|
|
|
end:
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
;;; TODO: Dedupe with cmd_check_drives
|
|
|
|
.proc populate_volume_icons
|
|
ldy #0
|
|
sty desktop_main::pending_alert
|
|
sty volume_num
|
|
|
|
process_volume:
|
|
lda volume_num
|
|
asl a
|
|
tay
|
|
copy16 slot_drive_string_table,y, $08
|
|
ldy volume_num
|
|
lda DEVLST,y
|
|
|
|
pha ; save all registers
|
|
txa
|
|
pha
|
|
tya
|
|
pha
|
|
|
|
inc cached_window_icon_count
|
|
inc icon_count
|
|
lda DEVLST,y
|
|
jsr desktop_main::create_volume_icon
|
|
sta L0E34
|
|
MGTK_RELAY_CALL MGTK::CheckEvents
|
|
|
|
pla ; restore all registers
|
|
tay
|
|
pla
|
|
tax
|
|
pla
|
|
|
|
pha
|
|
lda L0E34
|
|
cmp #$28
|
|
bne L0D64
|
|
ldy volume_num
|
|
lda DEVLST,y
|
|
and #$0F
|
|
beq select_template
|
|
ldx volume_num
|
|
jsr remove_device
|
|
jmp next
|
|
L0D64: cmp #ERR_DUPLICATE_VOLUME
|
|
bne select_template
|
|
lda #$F9 ; "... 2 volumes with the same name..."
|
|
sta desktop_main::pending_alert
|
|
|
|
;; This section populates slot_drive_string_table -
|
|
;; it determines which device type string to use, and
|
|
;; fills in slot and drive as appropriate.
|
|
;;
|
|
;; This is for a "Check" menu present in MouseDesk 1.1
|
|
;; but which was removed in MouseDesk 2.0, which allowed
|
|
;; refreshing individual windows.
|
|
|
|
.proc select_template
|
|
pla
|
|
pha
|
|
and #$0F ; low nibble of unit number
|
|
sta unit_number_lo_nibble
|
|
cmp #DT_DISKII
|
|
bne :+
|
|
addr_jump copy_template, str_slot_drive
|
|
|
|
: cmp #DT_REMOVABLE
|
|
beq is_removable
|
|
cmp #DT_PROFILE
|
|
bne L0DC2
|
|
pla
|
|
pha
|
|
and #$70 ; Compute $CnFB
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
ora #$C0
|
|
sta @slot_msb
|
|
@slot_msb := *+2
|
|
lda $C7FB ; self-modified
|
|
and #$01 ; is RAM card?
|
|
bne :+
|
|
addr_jump copy_template, str_profile_slot_x
|
|
|
|
: addr_jump copy_template, str_ramcard_slot_x
|
|
|
|
is_removable:
|
|
ldax #str_unidisk_xy
|
|
.endproc
|
|
|
|
copy_template: stax $06
|
|
ldy #$00
|
|
lda ($06),y
|
|
sta @compare
|
|
: iny
|
|
lda ($06),y
|
|
sta ($08),y
|
|
@compare := *+1
|
|
cpy #0
|
|
bne :-
|
|
tay
|
|
L0DC2: pla
|
|
pha
|
|
|
|
;; A has unit number
|
|
and #$70 ; slot (from DSSSxxxx)
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
ora #$30
|
|
tax
|
|
|
|
lda unit_number_lo_nibble
|
|
cmp #DT_PROFILE
|
|
bne check_removable
|
|
|
|
;; A has unit number (again)
|
|
pla
|
|
pha
|
|
and #$70 ; compute $CnFB
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
ora #$C0
|
|
sta @msb
|
|
@msb := *+2
|
|
lda $C7FB ; self-modified
|
|
and #$01 ; bit 0 = is RAM disk?
|
|
bne is_ram_disk
|
|
|
|
ldy #$0E
|
|
bne L0DFA ; always
|
|
|
|
is_ram_disk:
|
|
ldy #$0E
|
|
bne L0DFA ; always
|
|
|
|
check_removable:
|
|
cmp #DT_REMOVABLE
|
|
bne :+
|
|
ldy #$0F
|
|
bne L0DFA ; always
|
|
|
|
: ldy #$06
|
|
|
|
L0DFA: txa
|
|
sta ($08),y
|
|
|
|
lda unit_number_lo_nibble
|
|
and #$0F
|
|
cmp #DT_PROFILE
|
|
beq L0E21
|
|
pla
|
|
pha
|
|
rol a ; set carry to drive - 1
|
|
lda #0
|
|
adc #1 ; drive = 1 or 2
|
|
ora #'0'
|
|
pha
|
|
|
|
lda unit_number_lo_nibble
|
|
and #DT_RAM
|
|
bne L0E1C
|
|
ldy #$10
|
|
pla
|
|
bne L0E1F ; always
|
|
L0E1C: ldy #$11
|
|
pla
|
|
L0E1F: sta ($08),y
|
|
L0E21: pla
|
|
inc volume_num
|
|
next: lda volume_num
|
|
|
|
cmp DEVCNT ; done?
|
|
beq :+
|
|
bcs populate_startup_menu
|
|
: jmp process_volume ; next!
|
|
|
|
unit_number_lo_nibble:
|
|
.byte 0
|
|
volume_num:
|
|
.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 device_to_icon_map+1,x
|
|
sta device_to_icon_map,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 final_setup
|
|
|
|
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 final_setup
|
|
lda #0
|
|
sta desktop_main::sys_start_flag
|
|
jsr desktop_main::get_quit_routine_signature
|
|
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_quit_string_2, 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
|
|
|
|
PAD_TO $1000
|
|
|
|
.endproc ; desktop_800
|