Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-25 10:30:50 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: Identify window struct lurking in buffer

Browse Source
This commit is contained in:
Joshua Bell 2018-01-04 21:15:20 -08:00
parent 9bb9608099
commit 872c18826d
1 changed files with 40 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
desktop/desktop.s
View File

@ -11,10 +11,14 @@
;;; DeskTop - the actual application ;;; DeskTop - the actual application
;;; ================================================== ;;; ==================================================
;;; AUX memory segment - follows the A2D GUI library
.org $8E00 .org $8E00
;; Entry point for "DESKTOP" ;; Entry point for "DESKTOP"
.assert * = DESKTOP, error, "DESKTOP entry point must be at $8E00" .assert * = DESKTOP, error, "DESKTOP entry point must be at $8E00"
jmp DESKTOP_DIRECT jmp DESKTOP_DIRECT
.macro A2D_RELAY2_CALL call, addr .macro A2D_RELAY2_CALL call, addr
@ -4208,24 +4212,45 @@ alert_input_params:
.byte $00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00
.addr buffer .addr buffer
.proc buffer
.res 56, $0
;; Looks like a window definition? ;; Looks like a window definition?
buffer: .byte $00 id: .byte 0
.byte $00,$00,$00,$00,$00,$00,$00,$00 flags: .byte 0
.byte $00,$00,$00,$00,$00,$00,$00,$00 title: .addr 0
.byte $00,$00,$00,$00,$00,$00,$00,$00 hscroll:.byte A2D_CWS_NOSCROLL
.byte $00,$00,$00,$00,$00,$00,$00,$00 vscroll:.byte A2D_CWS_NOSCROLL
.byte $00,$00,$00,$00,$00,$00,$00,$00 hsmax: .byte 0
.byte $00,$00,$00,$00,$00,$00,$00,$00 hspos: .byte 0
.byte $00,$00,$00,$00,$00,$00,$00,$00 vsmax: .byte 0
.byte $00,$00,$00,$00,$00,$00,$00,$00 vspos: .byte 0
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte 0,0 ; ???
.byte $00,$00,$00,$00,$20,$80,$00,$00 w1: .word 0
.byte $00,$00,$00,$0A,$00,$0A,$00,$FF h1: .word 0
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF w2: .word 0
.byte $00,$00,$00,$00,$00,$01,$01,$00 h2: .word 0
.byte $00,$00,$88,$FF,$FF,$FF,$FF,$FF addr: .addr A2D_SCREEN_ADDR
stride: .word A2D_SCREEN_STRIDE
hoff: .word 0
voff: .word 0
width: .word 10
height: .word 10
pattern:.res 8, $FF
mskand: .byte A2D_DEFAULT_MSKAND
mskor: .byte A2D_DEFAULT_MSKOR
xpos: .word 0
ypos: .word 0
hthick: .byte 1
vthick: .byte 1
mode: .byte 0
tmask: .byte 0
font: .addr A2D_DEFAULT_FONT
.byte $FF,$FF,$FF,$FF,$FF
.byte $FF,$FF,$FF,$FF,$00,$00,$00,$00 .byte $FF,$FF,$FF,$FF,$00,$00,$00,$00
.byte $00,$00,$00,$00,$FF .byte $00,$00,$00,$00,$FF
.endproc
LD293: LD293:
.byte px(%1010101) .byte px(%1010101)