Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-04-04 06:29:33 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: comments

Browse Source
This commit is contained in:
Joshua Bell 2017-12-30 21:22:06 -08:00
parent 204d269421
commit 5a845a9674
4 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
a2d.inc
View File

@ -192,6 +192,10 @@ A2D_CONFIGURE_ZP_USE := $1A ; Configure ZP usage by API (speed vs. convenien
;; (input length 1 byte)
;; .byte flag (AWS_CZP_*; high bit set = preserve ZP during calls)
A2D_LOW_ZP_STASH := $1B ; Stash or restore lower 128 bytes of ZP; calls are idempotent
;; (input length 1 byte)
;; .byte flag (high bit set = stash ZP, clear = unstash ZP)
A2D_INIT_SCREEN_AND_MOUSE := $1D; Inits state, registers interrupt handler, draws desktop
;; (input length 12 byte)
;; ???

8
desktop.inc
View File

@ -35,11 +35,15 @@ DESKTOP := $8E00
;; Implementation bounces to $93BC, uses jump table at $939E
;;; This is the only known call:
;; $02 ???
;; $03 ???
;; $06 ???
;; $07 ???
DESKTOP_REDRAW_ICONS := $0C ; Repaints desktop icons
;; $0D used at start of drag-select, $09 at end (then another $0D)
;; $0D used at start of drag-select
;; $09 at end (then another $0D)
;;; ==================================================
;;; Macros

18
desktop/s123_aux.s
View File

@ -3537,7 +3537,7 @@ rts3: rts
;;; 1 byte of params, copied to $82
;;; If high bit clear stash ZP $00-$43 to buffer if not already stashed.
;;; If high bit set stash ZP $00-$43 to buffer if not already stashed.
;;; If high bit clear unstash ZP $00-$43 from buffer if not already unstashed.
.proc LOW_ZP_STASH_IMPL
@ -4483,6 +4483,8 @@ mouse_state_addr:
;;; ==================================================
;;; $2C Impl
L65D4:
clc
bcc L65D8
@ -13216,6 +13218,14 @@ addr: .addr 0
.byte 0
.byte 0
.assert * = $C000, error, "Segment expected to fill through $C000"
;;; ==================================================
;;;
;;; $C000 - $CFFF is I/O Space
;;;
;;; ==================================================
.org $D000
L87F6 := $87F6
@ -14124,6 +14134,12 @@ LEC25: .byte $00,$00,$00,$00,$00,$00,$00,$00
.res 147, 0
.assert * = $ED00, error, "Segment expected to fill through $ED00"
;;; ==================================================
;;;
;;; $ED00 - $FAFF is data buffers
;;;
;;; ==================================================
.org $FB00

6
desktop/s4_main1.s
View File

@ -182,7 +182,7 @@ L412B: lda #$00
jsr L4244
L4143: bit L40F1
bpl L4151
DESKTOP_RELAY_CALL $0C, $0000
DESKTOP_RELAY_CALL DESKTOP_REDRAW_ICONS
L4151: rts
L4152: brk
@ -537,7 +537,7 @@ L4510: A2D_RELAY_CALL A2D_QUERY_SCREEN, $D239
rts
L4523: jsr L40F2
DESKTOP_RELAY_CALL $0C, $0000
DESKTOP_RELAY_CALL DESKTOP_REDRAW_ICONS
rts
L4530: ldx #$00
@ -1664,7 +1664,7 @@ L4EC3: sta $DEA0
A2D_RELAY_CALL A2D_QUERY_TOP, $EC25
lda $EC25
bne L4F3C
DESKTOP_RELAY_CALL $0C, $0000
DESKTOP_RELAY_CALL DESKTOP_REDRAW_ICONS
L4F3C: lda #$00
sta $E269
A2D_RELAY_CALL $36, $E267 ; ???