Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-01-21 02:34:03 +00:00
Code Issues Projects Releases Wiki Activity

More DeskTop icon list details

Browse Source
This commit is contained in:
Joshua Bell 2017-09-02 19:52:45 -07:00
parent 20bd95c2e1
commit f5f015b941
3 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
desk.acc/show.text.file/stf.list
View File

@ -619,15 +619,24 @@ Current file: stf.s
0009E1 1 AD 8B C0 lda LCBANK1
0009E4 1 AD 8B C0 lda LCBANK1
0009E7 1
0009E7 1 ;; These are DeskTop internals, but it appears there is no
0009E7 1 ;; API for getting the selected file.
0009E7 1 file_selected := $DF21 ; 0 if no selection, 1 otherwise
0009E7 1 path_index := $DF20 ; index of selected window (used to get prefix)
0009E7 1 path_table := $DFB3 ; window address table
0009E7 1 ;; each entry is 65 bytes long
0009E7 1 ;; each entry is length-prefixed path string (no trailing /)
0009E7 1 file_index := $DF22 ; index of selected file (global, not w/in window)
0009E7 1 file_table := $DD9F ; file address table
0009E7 1 ;; each entry is
0009E7 1 ;; ... byte 2 = type (bits 4,5,6 clear = directory)
0009E7 1 ;; ... byte 9 = start of length-prefixed filename with spaces before/after
0009E7 1 ;; each entry is 27 bytes long
0009E7 1 ;; .byte ??
0009E7 1 ;; .byte ??
0009E7 1 ;; .byte type/icon (bits 4,5,6 clear = directory)
0009E7 1 ;; .word iconx (pixels)
0009E7 1 ;; .word icony (pixels)
0009E7 1 ;; .byte ??
0009E7 1 ;; .byte ??
0009E7 1 ;; .byte len, name (length-prefixed, spaces before/after; 17 byte buffer)
0009E7 1
0009E7 1 A9 00 lda #0
0009E9 1 8D 04 09 sta pathname::length

BIN
desk.acc/show.text.file/stf.o
View File

Binary file not shown.

13
desk.acc/show.text.file/stf.s
View File

@ -359,12 +359,19 @@ height: .word default_height
file_selected := $DF21 ; 0 if no selection, 1 otherwise
path_index := $DF20 ; index of selected window (used to get prefix)
path_table := $DFB3 ; window address table
;; each entry is 65 bytes long
;; each entry is length-prefixed path string (no trailing /)
file_index := $DF22 ; index of selected file (global, not w/in window)
file_table := $DD9F ; file address table
;; each entry is
;; ... byte 2 = type (bits 4,5,6 clear = directory)
;; ... byte 9 = start of length-prefixed filename with spaces before/after
;; each entry is 27 bytes long
;; .byte ??
;; .byte ??
;; .byte type/icon (bits 4,5,6 clear = directory)
;; .word iconx (pixels)
;; .word icony (pixels)
;; .byte ??
;; .byte ??
;; .byte len, name (length-prefixed, spaces before/after; 17 byte buffer)
lda #0
sta pathname::length