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