Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-07-04 20:29:28 +00:00
Code Issues Projects Releases Wiki Activity
4b9f4f2cc3
a2d/desk.acc/a2d.inc
Joshua Bell 4b9f4f2cc3 Identify QUERY_BOX and params
2017-09-09 18:11:01 -07:00

307 lines
9.6 KiB
PHP
Raw Blame History

;;; ------------------------------
;;; A2Desktop
;;; ------------------------------
;;; Entry Points
A2D := $4000
UNKNOWN_CALL := $8E00
;; These must be called from main memory (RAMRDON/RAMWRTON)
JUMP_TABLE_03 := $4003 ; ???
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_15 := $4015 ; ???
JUMP_TABLE_18 := $4018 ; ???
JUMP_TABLE_CLEAR_SEL := $401E ; Clear DeskTop selection
JUMP_TABLE_21 := $4021 ; ???
JUMP_TABLE_24 := $4024 ; ???
JUMP_TABLE_27 := $4027 ; ???
JUMP_TABLE_2A := $402A ; ???
JUMP_TABLE_2D := $402D ; ???
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 ; ???
A2D_UNK_03 := $03 ; Unknown - used in calculator after frame is drawn
A2D_TEXT_BOX1 := $04 ; Not sure what BOX1 vs. BOX2 is for
A2D_TEXT_BOX2 := $06 ; Not sure what BOX1 vs. BOX2 is for
;; .word left pixels from screen edge
;; .word top
;; .word $2000 hires?
;; .word $80 ???
;; .word hoffset pixels scrolled
;; .word voffset
;; .word width pixels
;; .word height
A2D_UNK_07 := $07 ; Unknown - used in calculator; set fill mode?
A2D_SET_PATTERN := $08
;; .byte r0...r7 8x8 pixel pattern for A2D_CLEAR_BOX calls
A2D_UNK_0C := $0C ; Unknown - used in calculator
A2D_SET_POS := $0E
;; .word x
;; .word y
A2D_FILL_RECT := $11 ; With selected pattern
;; .word left (includes scroll pos)
;; .word top
;; .word right pixels
;; .word bottom
A2D_DRAW_RECT := $12 ; With selected pattern
;; .word left (includes scroll pos)
;; .word top
;; .word right pixels
;; .word bottom
A2D_TEST_BOX := $13 ; A false if pos (via SET_POS) outside box, true if inside
;; .word left
;; .word top
;; .word right
;; .word bottom
A2D_DRAW_PATTERN := $14 ; Draw pattern
;; .word left
;; .word top
;; .addr pattern pattern is 7 bits per byte, 0 = black, 1 = white
;; .byte stride pattern width in bytes
;; .byte 0,0,0,0,0 ???
;; .word width pixels
;; .word height pixels
A2D_MEASURE_TEXT := $18
;; .addr data
;; .byte length ???
;; .word width pixels
A2D_DRAW_TEXT := $19 ; Drawn at last SET_POS as left, baseline
;; .addr data
;; .byte length
A2D_UNK_1A := $1A ; Unknown - used in calculator before window creation,
; and after destruction
A2D_UNK_24 := $24 ; Unknown - used in calculator
A2D_SHOW_CURSOR := $25
;; no parameters (pass $0000 as address)
A2D_HIDE_CURSOR := $26
;; no parameters (pass $0000 as address)
A2D_GET_INPUT := $2A
;; .byte state (0=up, 1=press, 2=release, 3=key, 4=held)
;; if state is not 3:
;; .byte key (ASCII code; high bit clear)
;; .byte modifiers (0=none, 1=open-apple, 2=closed-apple, 3=both)
;; if state is 3:
;; .word xcoord
;; .word ycoord
A2D_UNK_2B := $2B ; Unknown
;; no parameters (pass $0000 as address)
A2D_UNK_2D := $2D ; Unknown - used in calculator
A2D_CREATE_WINDOW := $38
;; .byte id
;; 0 = desktop
;; 1, 2, ... = file windows
;; 100 = DA (for example)
;; .byte flags (A2D_CWF_*)
;; bit 0: remove title bar
;; bit 1: add close box
;; bit 2: add resize box
;; .addr title
;; .byte hscroll bits: 7 = enable, 6 = show thumb, 0 = show track
;; .byte vscroll
;; .byte hscroll_max
;; .byte hscroll_pos
;; .byte vscroll_max
;; .byte vscroll_pos
;; .byte ???
;; .byte ???
;; .word width_a ???
;; .word height_a ???
;; .word width_b (of scroll area?)
;; .word height_b (of scroll area?)
;; - next section is identical to that for TEXT_BOX
;; .word left pixels from screen edge
;; .word top
;; .word $2000 hires?
;; .word $80 ???
;; .word hoffset pixels scrolled
;; .word voffset
;; .word width pixels
;; .word height
A2D_DESTROY_WINDOW := $39
;; .byte id
A2D_QUERY_BOX := $3C ; get client "box" of window
;; .byte id window
;; .addr box box definition to populate, like A2D_TEXT_BOX1
A2D_QUERY_TARGET := $40
;; .word queryx (relative to screen)
;; .word queryy
;; .byte element (A2D_ELEM_*)
;; 0 = desktop
;; 1 = menu
;; 2 = client area (including scroll bars/resize box)
;; 3 = title bar
;; 4 = resize box
;; 5 = close box
;; .byte id of window
A2D_BTN_CLICK := $43
;; .byte clicked (0 = cancelled, 1 = clicked)
;; .byte ??
;; .byte ??
A2D_DRAG_RESIZE := $45
;; .byte id of window
;; .word xcoord of mouse
;; .word ycoord of mouse
;; .byte ?? (likely: moved? 0 = no change, 1 = moved)
A2D_DRAG_WINDOW := $44
;; .byte window_id
;; .word xcoord screen coordinates
;; .word ycoord
A2D_MAP_COORDS := $46 ; Map screen coords to client coords
;; .byte window_id
;; .word screenx
;; .word screeny
;; .word clientx
;; .word clienty
A2D_QUERY_CLIENT:= $48
;; .word xcoord of query
;; .word ycoord of query
;; .byte part (0 = client, 1 = vscroll, 2 = hscroll)
;; .byte scroll (1 = up/left, 2 = down/right, 3 = above/before, 4 = below/after, 5 = thumb)
A2D_RESIZE_WINDOW := $49
;; .byte ?? (unused, so incomplete)
;; .byte ??
A2D_DRAG_SCROLL:= $4A
;; .byte type (1 = vscroll, 2 = hscroll)
;; .word xcoord of mouse
;; .word ycoord of mouse
;; .byte position (0...255)
;; .byte moved (0 = no change, 1 = moved)
A2D_UPDATE_SCROLL:= $4B
;; .byte type (1 = vertical, 2 = horizontal)
;; .byte pos (new position 0...250)
;;; Used in A2D_GET_INPUT
A2D_INPUT_NONE := 0 ; No mouse or keypress
A2D_INPUT_DOWN := 1 ; Mouse button was depressed
A2D_INPUT_UP := 2 ; Mouse button was released
A2D_INPUT_KEY := 3 ; Key was pressed
A2D_INPUT_HELD := 4 ; Mouse button still down
;;; Used in A2D_GET_MOUSE
A2D_ELEM_DESKTOP:= 0
A2D_ELEM_MENU := 1
A2D_ELEM_CLIENT := 2
A2D_ELEM_TITLE := 3
A2D_ELEM_RESIZE := 4
A2D_ELEM_CLOSE := 5
;;; Used in A2D_QUERY_CLIENT, A2D_DRAG_SCROLL, A2D_UPDATE_SCROLL
A2D_CLIENT := 0
A2D_VSCROLL := 1
A2D_HSCROLL := 2
;;; Used in A2D_QUERY_CLIENT
A2D_SCROLL_PART_UP := 1
A2D_SCROLL_PART_LEFT := 1
A2D_SCROLL_PART_DOWN := 2
A2D_SCROLL_PART_RIGHT := 2
A2D_SCROLL_PART_ABOVE := 3
A2D_SCROLL_PART_BEFORE := 3
A2D_SCROLL_PART_BELOW := 4
A2D_SCROLL_PART_AFTER := 4
A2D_SCROLL_PART_THUMB := 5
;;; Used in A2D_CREATE_WINDOW
A2D_CWF_NOTITLE := 1 << 0
A2D_CWF_ADDCLOSE := 1 << 1
A2D_CWF_ADDRESIZE:= 1 << 2
A2D_CWS_NOSCROLL := 0
A2D_CWS_SCROLL_ENABLED := 1 << 7
A2D_CWS_SCROLL_THUMB := 1 << 6
A2D_CWS_SCROLL_TRACK := 1 << 0
A2D_CWS_SCROLL_NORMAL := A2D_CWS_SCROLL_ENABLED | A2D_CWS_SCROLL_THUMB | A2D_CWS_SCROLL_TRACK
;;; Macros
.macro A2D_CALL op, addr, label
jsr A2D
.byte op
.if .paramcount > 2
label := *
.endif
.if .paramcount > 1
.addr addr
.else
.addr 0
.endif
.endmacro
.macro A2D_DEFSTRING str ; String definition, for use with A2D_TEXT
.local data
.addr data
.byte .strlen(str)
data: .byte str
.endmacro
.macro PASCAL_STRING str ; Length-prefixed string
.byte .strlen(str)
.byte str
.endmacro
;; Used for defining patterns for A2D_DRAW_PATTERN
.define px(bits) (((bits&$40)>>6)|((bits&$20)>>4)|((bits&$10)>>2)|(bits&$8)|((bits&$4)<<2)|((bits&$2)<<4)|((bits&$1)<<6))
;;; 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
;; 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 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)
Reference in New Issue View Git Blame Copy Permalink