diff --git a/a2d.inc b/a2d.inc index 4ef815b..115dae7 100644 --- a/a2d.inc +++ b/a2d.inc @@ -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 diff --git a/desktop/s123_aux.s b/desktop/s123_aux.s index 6ebc59c..00d9ad6 100644 --- a/desktop/s123_aux.s +++ b/desktop/s123_aux.s @@ -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 ;;; ==================================================