2001-10-27 17:13:22 +00:00
|
|
|
;
|
|
|
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
|
|
|
|
;
|
2002-12-23 22:14:14 +00:00
|
|
|
; 27.10.2001, 23.12.2002
|
2001-10-27 17:13:22 +00:00
|
|
|
|
|
|
|
|
; unsigned char cursor (unsigned char onoff);
|
|
|
|
|
|
|
|
|
|
.export _cursor
|
2002-03-08 16:47:34 +00:00
|
|
|
.import update_cursor
|
2002-12-31 15:35:55 +00:00
|
|
|
.importzp cursor_flag
|
2012-02-08 15:23:45 +00:00
|
|
|
|
2012-01-31 20:49:58 +00:00
|
|
|
.include "jumptab.inc"
|
|
|
|
|
.include "geossym.inc"
|
2001-10-27 17:13:22 +00:00
|
|
|
|
|
|
|
|
_cursor:
|
|
|
|
|
|
|
|
|
|
tay ; onoff into Y
|
2012-02-08 15:23:45 +00:00
|
|
|
ldx #0 ; High byte of result
|
|
|
|
|
lda cursor_flag ; Get old value
|
2002-03-08 16:47:34 +00:00
|
|
|
pha
|
2012-02-08 15:23:45 +00:00
|
|
|
sty cursor_flag ; Set new value
|
2001-10-27 17:13:22 +00:00
|
|
|
tya
|
2012-02-08 15:23:45 +00:00
|
|
|
beq L1
|
|
|
|
|
lda curHeight ; prepare cursor
|
|
|
|
|
jsr InitTextPrompt
|
|
|
|
|
jsr update_cursor ; place it on screen
|
2002-03-08 16:47:34 +00:00
|
|
|
L1: pla
|
|
|
|
|
rts
|
