Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 07:49:20 +00:00
Code Issues Projects Releases Wiki Activity

selection renames/docs

Browse Source
This commit is contained in:
Joshua Bell 2018-02-19 11:33:13 -08:00
parent c9092abde5
commit 4f8a94f8d8
8 changed files with 258 additions and 183 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
APIs.md Normal file
View File

@ -0,0 +1,115 @@
# DeskTop APIs
There are three distinct API classes that need to be used:
* Mouse Graphics Tool Kit - graphics primitives, windowing and events
* DeskTop Jump Table - simple JSR calls starting at $4003 MAIN, no arguments
* DeskTop API - another MLI-style interface starting at $8E00 AUX
## Mouse Graphics Tool Kit
This is a complex API library written by Apple circa 1985. It consists of:
* Graphics Primitives - screen management, lines, rects, polys, text, patterns, pens
* Mouse Graphics - windows, menus, events, cursors
Entry point is fixed at $4000 AUX, called MLI-style (JSR followed by command type and address of param block).
See [MGTK.md](MGTK.md) for further documentation.
## DeskTop Jump Table
Call from MAIN (RAMRDOFF/RAMWRTOFF). Call style:
```
jsr $xxxx
```
> NOTE: Most of these calls have not been identified yet.
#### JUMP_TABLE_REDRAW_ALL ($4015)
Redraws all DeskTop windows. Required after a drag or resize. Follow with DESKTOP_REDRAW_ICONS call.
#### JUMP_TABLE_CLEAR_SEL ($401E)
Deselect all DeskTop icons (volumes/files).
#### JUMP_TABLE_CUR_POINTER ($4039)
Changes mouse cursor to the default pointer. Note that bitmap is in the language card memory so it must be swapped in.
#### JUMP_TABLE_CUR_WATCH ($403C)
Changes mouse cursor to a watch. Note that bitmap is in the language card memory so it must be swapped in.
## DeskTop API
Call from AUX (RAMRDON/RAMWRTON). Call style:
```
jsr $8E00
.byte command
.addr params
```
> NOTE: Only a single call has been identified so far.
Commands:
#### DESKTOP_REDRAW_ICONS ($0C)
Parameters: none (pass $0000 as address)
Redraws the icons on the desktop (mounted volumes, trash). This call is required in these cases:
* After destroying a window (CloseWindow)
* After repainting the desktop (JUMP_TABLE_REDRAW_ALL) following a drag (DragWindow)
* After repainting the desktop (JUMP_TABLE_REDRAW_ALL) following a resize (GrowWindow)
## DeskTop Data Structures
DeskTop's state - windows, icons - is accessible indirectly via APIs,
and data structures can be accessed directly.
### Selection
* `path_index` (byte) - id of active window in `path_table`
* `selected_file_count` (byte) - number of selected icons
* `selected_file_list` (array of bytes) - ids of selected icons
### Window - representing an open directory
* `path_table` (array of addrs) - maps window id to window record address
Window record: 65-byte pathname buffer; it is a length-prefixed
absolute path (e.g. `/HD/GAMES`)
### Icon - representing a file (in a window) or volume (on the desktop)
* `file_table` (array of addrs) - maps icon id to icon record address
Icon record: 27-byte structure optimized for rendering the file/volume icon.
```
.byte icon icon index
.byte ??
.byte type/window_id
(bits 0-3 window_id)
(bits 4,5,6)
000 = directory
001 = system
010 = binary
011 = basic
100 = (unused)
101 = text/generic
110 = (unused)
111 = trash
(bit 7 = open flag)
.word iconx (pixels)
.word icony (pixels)
.addr iconbits (addr of {mapbits, mapwidth, reserved, maprect})
.byte len (name length + 2)
.res 17 name (name, with a space before and after)
```

90
MGTK.md
View File

@ -1,12 +1,11 @@
# MGTK API
There are three distinct API classes that need to be used:
This is a complex API library written by Apple circa 1985. It consists of:
* Main MGTK API - entry point $4000 AUX, called MLI-style (JSR followed by command type and address of param block)
* DeskTop Jump Table - simple JSR calls starting at $4003 MAIN, no arguments
* DeskTop API - another MLI-style interface starting at $8E00 AUX
* Graphics Primitives - screen management, lines, rects, polys, text, patterns, pens
* Mouse Graphics - windows, menus, events, cursors
## Main MGTK API
For the purposes of DeskTop, the entry point is fixed at $4000 AUX, called MLI-style (JSR followed by command type and address of param block).
### Concepts
@ -36,32 +35,14 @@ A simple repeating 8x8 _pattern_ is defined by 8 bytes. All bits of each byte ar
#### Window Parts
Windows have a _client area_ which has the requested dimensions. Above this is an optional
_title bar_ which in turn has an optional _close box_. Within the client area are an
Windows have a _content area_ which has the requested dimensions. Above this is an optional
_title bar_ which in turn has an optional _close box_. Within the content area are an
optional _resize box_ and optional _scroll bars_.
### Desk Accessory Lifecycle
* Loaded/invoked at $800 MAIN (have through $1FFF available)
* Save stack
* Copy DA code from MAIN to AUX (e.g. using AUXMOVE)
* Transfer control to AUX
* Turn on ALTZP and LCBANK1
* Create window (OpenWindow)
* Draw everything
* Call $2B (no idea what this does!)
* Enter [input loop](#input-loop)
* ...
* Destroy window (CloseWindow)
* Redraw desktop icons (DESKTOP_REDRAW_ICONS)
* Switch control back to MAIN (RAMRDOFF/RAMWRTOFF)
* Ensure ALTZP and LCBANK1 are on
* Restore stack
* RTS
> NOTE: Movable windows must maintain an _offscreen_flag_. If a window is moved so that the
> client area is entirely offscreen then various operations should be skipped because
> content area is entirely offscreen then various operations should be skipped because
> the window's box coordinates will not be set correctly.
#### Input Loop
@ -74,9 +55,9 @@ optional _resize box_ and optional _scroll bars_.
* If target element is close box then initiate [window close](#window-close).
* If target element is title bar then initiate [window drag](#window-drag).
* If target element is resize box then initiate [window resize](#window-resize).
* Otherwise, it is client area; call FindControl.
* If client part is a scrollbar then initiate a [scroll](#window-scroll).
* Otherwise, handle a client click using custom logic (e.g. hit testing buttons, etc)
* Otherwise, it is content area; call FindControl.
* If content part is a scrollbar then initiate a [scroll](#window-scroll).
* Otherwise, handle a content click using custom logic (e.g. hit testing buttons, etc)
#### Window Close
@ -107,54 +88,3 @@ optional _resize box_ and optional _scroll bars_.
### Commands
## DeskTop Jump Table
Call from MAIN (RAMRDOFF/RAMWRTOFF). Call style:
```
jsr $xxxx
```
> NOTE: Most of these calls have not been identified yet.
#### JUMP_TABLE_REDRAW_ALL ($4015)
Redraws all DeskTop windows. Required after a drag or resize. Follow with DESKTOP_REDRAW_ICONS call.
#### JUMP_TABLE_CLEAR_SEL ($401E)
Deselect all DeskTop icons (volumes/files).
#### JUMP_TABLE_CUR_POINTER ($4039)
Changes mouse cursor to the default pointer. Note that bitmap is in the language card memory so it must be swapped in.
#### JUMP_TABLE_CUR_WATCH ($403C)
Changes mouse cursor to a watch. Note that bitmap is in the language card memory so it must be swapped in.
## DeskTop API
Call from AUX (RAMRDON/RAMWRTON). Call style:
```
jsr $8E00
.byte command
.addr params
```
> NOTE: Only a single call has been identified so far.
Commands:
#### DESKTOP_REDRAW_ICONS ($0C)
Parameters: none (pass $0000 as address)
Redraws the icons on the desktop (mounted volumes, trash). This call is required in these cases:
* After destroying a window (CloseWindow)
* After repainting the desktop (JUMP_TABLE_REDRAW_ALL) following a drag (DragWindow)
* After repainting the desktop (JUMP_TABLE_REDRAW_ALL) following a resize (GrowWindow)

30
desk.acc/API.md Normal file
View File

@ -0,0 +1,30 @@
# Desk Accessory API
Desk Accessories for DeskTop have general access to the Mouse Graphics
Tool Kit MLI, ProDOS MLI, and DeskTop APIs. Special considerations for
DAs are documented here.
### Desk Accessory Lifecycle
* Loaded/invoked at $800 MAIN (have through $1FFF available)
* Save stack pointer
* Copy DA code from MAIN to AUX (e.g. using `AUXMOVE`) at same address.
* Transfer control to the AUX copy
* This allows direct access to MGTK/DeskTop MLI
* Retaining a copy in MAIN allows easy access to ProDOS MLI
* Turn on ALTZP and LCBANK1
* Create window (`OpenWindow`)
* Draw everything
* Flush event queue (`FlushEvents`)
* Run an event Loop (`GetEvent`, and subsequent processing, per MGTK)
* Normal event processing per MGTK
* In addition, following a window drag/resize, DeskTop calls must be made:
* `JUMP_TABLE_REDRAW_ALL`
* `DESKTOP_REDRAW_ICONS`
* ...
* Destroy window (`CloseWindow`)
* Tell DeskTop to redraw desktop icons (`DESKTOP_REDRAW_ICONS`)
* Switch control back to MAIN (`RAMRDOFF`/`RAMWRTOFF`)
* Ensure ALTZP and LCBANK1 are on
* Restore stack pointer
* `rts`

1
desk.acc/README.md
View File

@ -14,6 +14,7 @@ New desk accessories:
* Loaded at $800 through (at least) $14FF
* Copy themselves from Main into Aux memory (same location)
* Can call into ProDOS MLI and MGTK/A2D entry points ($4000, etc)
* See [API.md](API.md) for programming details
## Files

4
desk.acc/show_image_file.s
View File

@ -266,7 +266,7 @@ nextwinfo: .addr 0
;; Check that an icon is selected
lda #0
sta pathname::length
lda file_selected
lda selected_file_count
beq abort ; some file properties?
lda path_index ; prefix index in table
bne :+
@ -298,7 +298,7 @@ abort: rts
inc dst+1
;; Get file entry.
: lda file_index ; file index in table
: lda selected_file_list ; file index in table
asl a ; (since table is 2 bytes wide)
tax
copy16 file_table,x, src

4
desk.acc/show_text_file.s
View File

@ -354,7 +354,7 @@ maprect: DEFINE_RECT 0, 0, default_width, default_height
;; Check that an icon is selected
lda #0
sta pathname::length
lda file_selected
lda selected_file_count
beq abort ; some file properties?
lda path_index ; prefix index in table
bne :+
@ -386,7 +386,7 @@ abort: rts
inc dst+1
;; Get file entry.
: lda file_index ; file index in table
: lda selected_file_list ; file index in table
asl a ; (since table is 2 bytes wide)
tax
copy16 file_table,x, src

4
desktop.inc
View File

@ -86,14 +86,14 @@ label := *
;;; These are DeskTop internals, but it appears there is no
;;; API for getting the selected file.
file_selected := $DF21 ; 0 if no selection, 1 otherwise
selected_file_count := $DF21
path_index := $DF20 ; index of selected window (used to get prefix)
path_table := $DFB3 ; window address table
;;; each entry is 65 bytes long
;;; length-prefixed path string (no trailing /)
file_index := $DF22 ; indexes of selected file (global, not w/in window, up to 127)
selected_file_list := $DF22 ; indexes of selected file (global, not w/in window, up to 127)
file_table := $DD9F ; file address table
;;; Icon (file/volume) entries - length 27 bytes, maximum of 127

193
desktop/desktop.s
View File

@ -865,11 +865,13 @@ done: return #0
;;; DESKTOP $0E IMPL
.proc L958F
ptr := $6
ldy #0
lda ($06),y
lda (ptr),y
asl a
tax
copy16 icon_ptrs,x, $06
copy16 icon_ptrs,x, ptr
jmp LA39D
.endproc
@ -5038,16 +5040,13 @@ selected_window_index: ; index of selected window (used to get prefix)
.assert * = path_index, error, "Entry point mismatch"
.byte 0
is_file_selected: ; 0 if no selection, 1 otherwise
.assert * = file_selected, error, "Entry point mismatch"
selected_icon_count: ; number of selected icons
.assert * = selected_file_count, error, "Entry point mismatch"
.byte 0
selected_file_index: ; index of selected icon (global, not w/in window)
.assert * = file_index, error, "Entry point mismatch"
.byte 0
.res 126, 0
selected_icon_list: ; index of selected icon (global, not w/in window)
.assert * = selected_file_list, error, "Entry point mismatch"
.res 127, 0
;; Buffer for desktop windows
win_table:
@ -6111,7 +6110,7 @@ L4243: .byte 0
;;; ==================================================
.proc L4244
lda is_file_selected
lda selected_icon_count
bne :+
bail: rts
@ -6135,10 +6134,10 @@ bail: rts
bpl :-
L4270: lda L42C3
cmp is_file_selected
cmp selected_icon_count
beq done
tax
lda selected_file_index,x
lda selected_icon_list,x
sta icon_param
jsr icon_window_to_screen
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
@ -6152,10 +6151,10 @@ L4270: lda L42C3
done: jmp reset_grafport3
L42A5: lda L42C3
cmp is_file_selected
cmp selected_icon_count
beq done
tax
lda selected_file_index,x
lda selected_icon_list,x
sta icon_param
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, icon_param
inc L42C3
@ -6423,9 +6422,9 @@ L445D: jsr clear_selection
lda L445C
sta selected_window_index
lda #$01
sta is_file_selected
sta selected_icon_count
lda icon_param
sta selected_file_index
sta selected_icon_list
L44A6: MGTK_RELAY_CALL MGTK::SelectWindow, findwindow_params_window_id
lda findwindow_params_window_id
sta active_window_id
@ -6668,14 +6667,14 @@ status_buffer: .res 16, 0
: bit LD343+1
bmi L4666
jsr disable_selector_menu_items
L4666: lda is_file_selected
L4666: lda selected_icon_count
beq L46A8
lda selected_window_index
bne L4691
lda is_file_selected
lda selected_icon_count
cmp #2
bcs L4697
lda selected_file_index
lda selected_icon_list
cmp trash_icon_num
bne L468B
jsr disable_eject_menu_item
@ -7609,13 +7608,13 @@ L4DD2: dey
.proc cmd_open
ldx #$00
L4DEC: cpx is_file_selected
L4DEC: cpx selected_icon_count
bne L4DF2
rts
L4DF2: txa
pha
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
@ -7635,7 +7634,7 @@ L4E14: pla
jmp L4DEC
L4E1A: sta L4E71
lda is_file_selected
lda selected_icon_count
cmp #$02
bcs L4E14
pla
@ -7649,7 +7648,7 @@ L4E34: lda ($06),y
sta LD355,y
dey
bpl L4E34
lda selected_file_index
lda selected_icon_list
jsr icon_entry_lookup
stax $06
ldy #$09
@ -7739,9 +7738,9 @@ L4EC3: sta cached_window_icon_count
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
jsr reset_grafport3
lda #$01
sta is_file_selected
sta selected_icon_count
lda icon_param
sta selected_file_index
sta selected_icon_list
ldx active_window_id
dex
lda LEC26,x
@ -7867,23 +7866,23 @@ L504F: .byte 0
beq L5056
L5055: rts
L5056: lda is_file_selected
L5056: lda selected_icon_count
beq L5055
cmp #$01
bne L5067
lda selected_file_index
lda selected_icon_list
cmp trash_icon_num
beq L5055
L5067: lda #$00
tax
tay
L506B: lda selected_file_index,y
L506B: lda selected_icon_list,y
cmp trash_icon_num
beq L5077
sta $1800,x
inx
L5077: iny
cpy is_file_selected
cpy selected_icon_count
bne L506B
dex
stx L5098
@ -8038,11 +8037,11 @@ L51A7: jsr reset_grafport3
jsr update_scrollbars
lda selected_window_index
beq L51E3
lda is_file_selected
lda selected_icon_count
beq L51E3
sta L51EF
L51C0: ldx L51EF
lda is_file_selected,x
lda selected_icon_count,x
sta icon_param
jsr icon_window_to_screen
jsr offset_grafport2_and_set
@ -8322,20 +8321,20 @@ L5398: lda selected_window_index
bne L53B5
ldx #$00
ldy #$00
L53A1: lda selected_file_index,x
L53A1: lda selected_icon_list,x
cmp #$01
beq L53AC
sta L5428,y
iny
L53AC: inx
cpx selected_file_index
cpx selected_icon_list
bne L53A1
sty L5427
L53B5: lda #$FF
sta L5426
L53BA: inc L5426
lda L5426
cmp is_file_selected
cmp selected_icon_count
bne L53D0
lda selected_window_index
bne L53CD
@ -8343,7 +8342,7 @@ L53BA: inc L5426
L53CD: jmp L5E78
L53D0: tax
lda selected_file_index,x
lda selected_icon_list,x
jsr L5431
bmi L53BA
jsr window_address_lookup
@ -8585,7 +8584,7 @@ L55C8: stx L544A
L55D1: ldx L544A
lda $1801,x
sta selected_file_index
sta selected_icon_list
jsr icon_entry_lookup
stax $06
ldy #icon_entry_offset_win_type
@ -8593,7 +8592,7 @@ L55D1: ldx L544A
and #icon_entry_winid_mask
sta selected_window_index
lda #1
sta is_file_selected
sta selected_icon_count
rts
L55F0: ldx L544A
@ -8640,7 +8639,7 @@ L5661: rts
;;; ==================================================
.proc cmd_select_all
lda is_file_selected
lda selected_icon_count
beq L566A
jsr clear_selection
L566A: ldx active_window_id
@ -8660,22 +8659,22 @@ L5676: lda active_window_id
L5687: ldx cached_window_icon_count
dex
L568B: lda cached_window_icon_list,x
sta selected_file_index,x
sta selected_icon_list,x
dex
bpl L568B
lda cached_window_icon_count
sta is_file_selected
sta selected_icon_count
lda active_window_id
sta selected_window_index
lda selected_window_index
sta LE22C
beq L56AB
jsr L56F9
L56AB: lda is_file_selected
L56AB: lda selected_icon_count
sta L56F8
dec L56F8
L56B4: ldx L56F8
lda selected_file_index,x
lda selected_icon_list,x
sta LE22B
jsr icon_entry_lookup
stax $06
@ -9471,11 +9470,11 @@ L5CD9: .byte 0
.proc L5CDA
sta L5CD9
ldx is_file_selected
ldx selected_icon_count
beq L5CFB
dex
lda L5CD9
L5CE6: cmp selected_file_index,x
L5CE6: cmp selected_icon_list,x
beq L5CF0
dex
bpl L5CE6
@ -9492,10 +9491,10 @@ L5CFB: bit BUTN0
cmp active_window_id
beq L5D0B
L5D08: jsr clear_selection
L5D0B: ldx is_file_selected
L5D0B: ldx selected_icon_count
lda L5CD9
sta selected_file_index,x
inc is_file_selected
sta selected_icon_list,x
inc selected_icon_count
lda active_window_id
sta selected_window_index
lda active_window_id
@ -9560,11 +9559,11 @@ L5DAD: cpx #$FF
jsr get_set_port2
jsr cached_icons_window_to_screen
jsr offset_grafport2_and_set
ldx is_file_selected
ldx selected_icon_count
dex
L5DC4: txa
pha
lda selected_file_index,x
lda selected_icon_list,x
sta LE22E
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, LE22E
pla
@ -9775,10 +9774,10 @@ L5F88: txa
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
beq L5FB9
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
ldx is_file_selected
inc is_file_selected
ldx selected_icon_count
inc selected_icon_count
lda icon_param
sta selected_file_index,x
sta selected_icon_list,x
lda active_window_id
sta selected_window_index
L5FB9: lda icon_param
@ -10040,9 +10039,9 @@ L6227: sta cached_window_icon_count
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
jsr reset_grafport3
lda #$01
sta is_file_selected
sta selected_icon_count
lda icon_param
sta selected_file_index
sta selected_icon_list
L6276: ldx active_window_id
dex
lda LEC26,x
@ -10548,14 +10547,14 @@ disable_selector_menu_items := toggle_selector_menu_items::disable
;;; ==================================================
.proc L67D7
lda is_file_selected
lda selected_icon_count
bne L67DF
jmp L681B
L67DF: tax
dex
lda $D20D
L67E4: cmp selected_file_index,x
L67E4: cmp selected_icon_list,x
beq L67EE
dex
bpl L67E4
@ -10569,18 +10568,18 @@ L67F6: bit BUTN0
lda selected_window_index
bne L6818
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, $D20D
ldx is_file_selected
ldx selected_icon_count
lda $D20D
sta selected_file_index,x
inc is_file_selected
sta selected_icon_list,x
inc selected_icon_count
jmp L6834
L6818: jsr clear_selection
L681B: DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, $D20D
lda #1
sta is_file_selected
sta selected_icon_count
lda $D20D
sta selected_file_index
sta selected_icon_list
lda #0
sta selected_window_index
L6834: bit double_click_flag
@ -10624,11 +10623,11 @@ L6880: lda $D20D
jsr DESKTOP_COPY_FROM_BUF
L688E: rts
L688F: ldx is_file_selected
L688F: ldx selected_icon_count
dex
L6893: txa
pha
lda selected_file_index,x
lda selected_icon_list,x
sta LE22D
DESKTOP_RELAY_CALL DT_UNHIGHLIGHT_ICON, LE22D
pla
@ -10681,10 +10680,10 @@ L68F9: cpx cached_window_icon_count
DESKTOP_RELAY_CALL DT_ICON_IN_RECT, icon_param
beq L692C
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
ldx is_file_selected
inc is_file_selected
ldx selected_icon_count
inc selected_icon_count
lda icon_param
sta selected_file_index,x
sta selected_icon_list,x
L692C: pla
tax
inx
@ -11092,7 +11091,7 @@ L6D25: pla
;;; ==================================================
.proc clear_selection
lda is_file_selected
lda selected_icon_count
bne L6D31
rts
@ -11111,10 +11110,10 @@ L6D4D: sta getwinport_params2::window_id
jsr get_set_port2
jsr offset_grafport2_and_set
L6D56: lda L6DB0
cmp is_file_selected
cmp selected_icon_count
beq L6D9B
tax
lda selected_file_index,x
lda selected_icon_list,x
sta icon_param
jsr icon_window_to_screen
DESKTOP_RELAY_CALL $0B, icon_param
@ -11124,22 +11123,22 @@ L6D56: lda L6DB0
jmp L6D56
L6D7D: lda L6DB0
cmp is_file_selected
cmp selected_icon_count
beq L6D9B
tax
lda selected_file_index,x
lda selected_icon_list,x
sta icon_param
DESKTOP_RELAY_CALL $0B, icon_param
inc L6DB0
jmp L6D7D
L6D9B: lda #$00
ldx is_file_selected
ldx selected_icon_count
dex
L6DA1: sta selected_file_index,x
L6DA1: sta selected_icon_list,x
dex
bpl L6DA1
sta is_file_selected
sta selected_icon_count
sta selected_window_index
jmp reset_grafport3
@ -15224,7 +15223,7 @@ L90D8: jsr LA241
jmp L90DE
L90DE: jsr L91F5
lda is_file_selected
lda selected_icon_count
bne L90E9
jmp L9168
@ -15232,7 +15231,7 @@ L90E9: ldx #$00
stx L917A
L90EE: jsr L91F5
ldx L917A
lda selected_file_index,x
lda selected_icon_list,x
cmp #$01
beq L9140
jsr icon_entry_name_lookup
@ -15266,7 +15265,7 @@ L9137: jsr LA271
L913D: jsr LA271
L9140: inc L917A
ldx L917A
cpx is_file_selected
cpx selected_icon_count
bne L90EE
lda L97E4
bne L9168
@ -15405,13 +15404,13 @@ L9211: .addr 0
.endproc
.proc L9213
lda is_file_selected
lda selected_icon_count
bne :+
rts
: ldx is_file_selected
: ldx selected_icon_count
stx L0800
dex
: lda selected_file_index,x
: lda selected_icon_list,x
sta $0801,x
dex
bpl :-
@ -15552,7 +15551,7 @@ L92E6: .byte $00
.proc L92E7
lda is_file_selected
lda selected_icon_count
bne L92ED
rts
@ -15560,7 +15559,7 @@ L92ED: lda #$00
sta L92E6
jsr L91D5
L92F5: ldx L92E6
cpx is_file_selected
cpx selected_icon_count
bne L9300
jmp L9534
@ -15570,7 +15569,7 @@ L9300: lda selected_window_index
tax
copy16 window_address_table,x, $08
ldx L92E6
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_name_lookup
jsr join_paths
ldy #$00
@ -15583,7 +15582,7 @@ L931F: lda path_buf3,y
jmp L9356
L9331: ldx L92E6
lda selected_file_index,x
lda selected_icon_list,x
cmp #$01
bne L933E
jmp L952E
@ -15609,7 +15608,7 @@ L9366: lda selected_window_index
lda L92E6
clc
adc #$01
cmp is_file_selected
cmp selected_icon_count
beq L9381
inc L92E3
inc L92E3
@ -15621,7 +15620,7 @@ L9387: lda #$81
lda L92E6
clc
adc #$01
cmp is_file_selected
cmp selected_icon_count
beq L939D
inc L92E3
inc L92E3
@ -15629,7 +15628,7 @@ L939D: jsr launch_get_info_dialog
lda #$00
sta L942E
ldx L92E6
lda selected_file_index,x
lda selected_icon_list,x
ldy #$0F
L93AD: cmp devlst_copy,y
beq L93B8
@ -15647,7 +15646,7 @@ L93B8: lda DEVLST,y
lda #$80
sta L942E
L93DB: ldx L92E6
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_name_lookup
lda #$01
sta L92E3
@ -15816,12 +15815,12 @@ start:
lda #$00
sta L9706
L9576: lda L9706
cmp is_file_selected
cmp selected_icon_count
bne L9581
return #0
L9581: ldx L9706
lda selected_file_index,x
lda selected_icon_list,x
cmp #$01
bne L9591
inc L9706
@ -15833,7 +15832,7 @@ L9591: lda selected_window_index
tax
copy16 window_address_table,x, $08
ldx L9706
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_name_lookup
jsr join_paths
ldy #$00
@ -15846,7 +15845,7 @@ L95B0: lda path_buf3,y
jmp L95E0
L95C2: ldx L9706
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy #$00
L95CD: lda ($06),y
@ -15858,7 +15857,7 @@ L95CD: lda ($06),y
lda #'/'
sta $0221
L95E0: ldx L9706
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy #$00
lda ($06),y
@ -15885,7 +15884,7 @@ L9611: lda #$80
jsr L96F8
beq L962F
L9618: ldx L9706
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy $1F12
L9624: lda $1F12,y
@ -15940,12 +15939,12 @@ L9696: lda #$40
L969E: lda #$40
jsr L96F8
ldx L9706
lda selected_file_index,x
lda selected_icon_list,x
sta LE22B
yax_call JT_DESKTOP_RELAY, $E, LE22B
copy16 L9707, $08
ldx L9706
lda selected_file_index,x
lda selected_icon_list,x
jsr icon_entry_name_lookup
ldy #$00
lda ($08),y