mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-29 07:49:20 +00:00
88 lines
3.2 KiB
PHP
88 lines
3.2 KiB
PHP
|
;;; ==================================================
|
||
|
|
;;; DeskTop Internals
|
||
|
|
;;; ==================================================
|
||
|
|
|
||
|
|
;;; ==================================================
|
||
|
|
;;; Direct Calls
|
||
|
|
|
||
|
|
;; These must be called from main memory (RAMRDOFF/RAMWRTOFF)
|
||
|
|
JUMP_TABLE_03 := $4003 ; Enter DeskTop input loop
|
||
|
|
JUMP_TABLE_06 := $4006 ; ???
|
||
|
|
JUMP_TABLE_09 := $4009 ; ???
|
||
|
|
JUMP_TABLE_0C := $400C ; ??? (made "items/in disk/..." redraw oddly)
|
||
|
|
JUMP_TABLE_0F := $400F ; ???
|
||
|
|
JUMP_TABLE_12 := $4012 ; ???
|
||
|
|
JUMP_TABLE_REDRAW_ALL := $4015 ; Redraw all windows (e.g. after a drag)
|
||
|
|
JUMP_TABLE_18 := $4018 ; ???
|
||
|
|
JUMP_TABLE_CLEAR_SEL := $401E ; Clear DeskTop selection
|
||
|
|
JUMP_TABLE_MLI := $4021 ; ProDOS MLI call (Y=call, X,A=params addr)
|
||
|
|
JUMP_TABLE_24 := $4024 ; ???
|
||
|
|
JUMP_TABLE_27 := $4027 ; ???
|
||
|
|
JUMP_TABLE_2A := $402A ; Just an RTS
|
||
|
|
JUMP_TABLE_2D := $402D ; Draw type/size/date in non-icon views
|
||
|
|
JUMP_TABLE_30 := $4030 ; ???
|
||
|
|
JUMP_TABLE_33 := $4033 ; Shows "The syntax of the pathname is invalid.", hangs
|
||
|
|
JUMP_TABLE_36 := $4036 ; ditto
|
||
|
|
JUMP_TABLE_CUR_POINTER := $4039 ; Changes mouse cursor to pointer
|
||
|
|
JUMP_TABLE_CUR_WATCH := $403C ; Changes mouse cursor to watch
|
||
|
|
JUMP_TABLE_3F := $403F ; ???
|
||
|
|
|
||
|
|
;;; ==================================================
|
||
|
|
|
||
|
|
DESKTOP := $8E00
|
||
|
|
;; MLI-style call (jsr A2D ; .byte call ; .addr params)
|
||
|
|
;; Call from AUX (RAMRDON/RAMWRTON)
|
||
|
|
|
||
|
|
;; Implementation bounces to $93BC, uses jump table at $939E
|
||
|
|
|
||
|
|
;;; This is the only known call:
|
||
|
|
|
||
|
|
DESKTOP_REDRAW_ICONS := $0C ; Repaints desktop icons
|
||
|
|
|
||
|
|
;; $0D used at start of drag-select, $09 at end (then another $0D)
|
||
|
|
|
||
|
|
;;; ==================================================
|
||
|
|
;;; Macros
|
||
|
|
|
||
|
|
;;; Call a DESKTOP entry point:
|
||
|
|
;;; DESKTOP_CALL n - params is $0000
|
||
|
|
;;; DESKTOP_CALL n, params_addr
|
||
|
|
;;; DESKTOP_CALL m, params_addr, label - params_addr is labeled for modifying
|
||
|
|
|
||
|
|
.macro DESKTOP_CALL op, addr, label
|
||
|
|
jsr DESKTOP
|
||
|
|
.byte op
|
||
|
|
|
||
|
|
.if .paramcount > 2
|
||
|
|
label := *
|
||
|
|
.endif
|
||
|
|
|
||
|
|
.if .paramcount > 1
|
||
|
|
.addr addr
|
||
|
|
.else
|
||
|
|
.addr 0
|
||
|
|
.endif
|
||
|
|
.endmacro
|
||
|
|
|
||
|
|
;;; ==================================================
|
||
|
|
;;; DeskTop Internals
|
||
|
|
|
||
|
|
;; 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
|
||
|
|
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 ; index of selected file (global, not w/in window)
|
||
|
|
file_table := $DD9F ; file address table
|
||
|
|
;; 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)
|