Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-12-01 20:50:06 +00:00
Code Issues Projects Releases Wiki Activity

procs and docs

Browse Source
This commit is contained in:
Joshua Bell 2018-02-18 17:08:11 -08:00
parent e5d9b598cb
commit cd91b70644
2 changed files with 351 additions and 233 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

556
desktop/desktop.s
View File

File diff suppressed because it is too large Load Diff

28
mgtk.inc
View File

@ -30,11 +30,11 @@ MLI := $4000
;;; .addr mapbits screen_mapbits ;;; .addr mapbits screen_mapbits
;;; .byte mapwidth screen_mapwidth ;;; .byte mapwidth screen_mapwidth
;;; .byte reserved ;;; .byte reserved
;;; Rect maprect ;;; Rect maprect a.k.a. cliprect
;;; GrafPort record: ;;; GrafPort record:
;;; ;;;
;;; MapInfo mapinfo ;;; MapInfo portmap
;;; .res 8 penpattern ;;; .res 8 penpattern
;;; .byte colormask_and ;;; .byte colormask_and
;;; .byte colormask_or ;;; .byte colormask_or
@ -45,14 +45,24 @@ MLI := $4000
;;; .byte textback text background ;;; .byte textback text background
;;; .addr textfont ;;; .addr textfont
;;; Polygon record: ;;; PolyList record:
;;; (array of polys)
;;; .byte count number of vertices in this polygon ;;; .byte count number of vertices in this polygon
;;; .byte last high bit set if there are more polygons ;;; .byte last high bit set if there are more polygons
;;; Point vertex1 ;;; Point vertex1
;;; Point vertex2 ;;; Point vertex2
;;; ... ;;; ...
;;; Font record:
;;;
;;; .byte fonttype 0=regular, $80=double-width
;;; .byte lastchar char code of last character (usually $7F)
;;; .byte height pixels (1-16)
;;; .res N charwidth pixels, for each char
;;; .res N row0 bits
;;; .res N row0right bits (double-width only)
;;; ...
NoOp := $00 ; No-op NoOp := $00 ; No-op
;; (input length 0 bytes) ;; (input length 0 bytes)
@ -129,13 +139,13 @@ PaintBits := $14 ; Draw pattern
;;; (input is address of MapInfo record) ;;; (input is address of MapInfo record)
PaintPoly := $15 PaintPoly := $15
;;; (input is address of Polygon record) ;;; (input is address of PolyList record)
FramePoly := $16 ; Draw multiple closed polygons FramePoly := $16 ; Draw multiple closed polygons
;;; (input is address of Polygon record) ;;; (input is address of PolyList record)
InPoly := $17 ; Is current position in bounds? A=$80 true, 0 false InPoly := $17 ; Is current position in bounds? A=$80 true, 0 false
;;; (input is address of Polygon record) ;;; (input is address of PolyList record)
;;; -------------------------------------------------- ;;; --------------------------------------------------
@ -232,7 +242,7 @@ GetCursorAddr := $28 ; Get cursor definition
;;; Event record: ;;; Event record:
;;; ;;;
;;; .byte kind ;;; .byte kind event_kind_*
;;; if kind is event_kind_key_down: ;;; if kind is event_kind_key_down:
;;; .byte key (ASCII code; high bit clear) ;;; .byte key (ASCII code; high bit clear)
;;; .byte modifiers (0=none, 1=open-apple, 2=solid-apple, 3=both) ;;; .byte modifiers (0=none, 1=open-apple, 2=solid-apple, 3=both)
@ -477,7 +487,7 @@ notpenBIC := 7
zp_overwrite := 0 zp_overwrite := 0
zp_preserve := 1<<7 zp_preserve := 1<<7
;;; Used in various state blocks ;;; Used in GrafPorts
colormask_and := $FF colormask_and := $FF
colormask_or := $00 colormask_or := $00
textbg_black := $00 textbg_black := $00