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

Identify ERASE_CURSOR

Browse Source
This commit is contained in:
Joshua Bell 2017-10-14 12:56:59 -07:00
parent 16a3a1da87
commit a11d73e563
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
a2d.inc
View File

@ -199,10 +199,13 @@ A2D_SET_CURSOR := $24 ; Set cursor definition
;; .byte hotx hotspot coords
;; .byte hoty
A2D_SHOW_CURSOR := $25
A2D_SHOW_CURSOR := $25 ; Return cursor to visibility
;; (no parameters; pass $0000 as address)
A2D_HIDE_CURSOR := $26
A2D_HIDE_CURSOR := $26 ; Cursor hidden until A2D_SHOW_CURSOR call
;; (no parameters; pass $0000 as address)
A2D_ERASE_CURSOR := $27 ; Cursor hidden until moved or other A2D call
;; (no parameters; pass $0000 as address)
A2D_GET_CURSOR := $28 ; Get cursor definition

9
desktop/s123_aux.s
View File

@ -316,7 +316,7 @@ a2d_jump_table:
.addr SET_CURSOR_IMPL ; $24 SET_CURSOR
.addr SHOW_CURSOR_IMPL ; $25 SHOW_CURSOR
.addr HIDE_CURSOR_IMPL ; $26 HIDE_CURSOR
.addr L624E ; $27
.addr ERASE_CURSOR_IMPL ; $27 ERASE_CURSOR
.addr GET_CURSOR_IMPL ; $28 GET_CURSOR
.addr L6663 ; $29
.addr GET_INPUT_IMPL ; $2A GET_INPUT
@ -404,7 +404,7 @@ param_lengths:
PARAM_DEFN 0, $00, 0 ; $24 SET_CURSOR
PARAM_DEFN 0, $00, 0 ; $25 SHOW_CURSOR
PARAM_DEFN 0, $00, 0 ; $26 HIDE_CURSOR
PARAM_DEFN 0, $00, 0 ; $27
PARAM_DEFN 0, $00, 0 ; $27 ERASE_CURSOR
PARAM_DEFN 0, $00, 0 ; $28 GET_CURSOR
PARAM_DEFN 0, $00, 0 ; $29
PARAM_DEFN 0, $00, 0 ; $2A GET_INPUT
@ -3942,9 +3942,9 @@ done: plp
;;; ==================================================
;;; $27 IMPL
;;; ERASE_CURSOR IMPL
L624E:
.proc ERASE_CURSOR_IMPL
php
sei
jsr restore_cursor_background
@ -3952,6 +3952,7 @@ L624E:
sta cursor_flag
plp
rts
.endproc
;;; ==================================================