mirror of
https://github.com/cc65/cc65.git
synced 2024-07-29 12:29:11 +00:00
36 lines
567 B
ArmAsm
36 lines
567 B
ArmAsm
|
|
||
|
|
;
|
||
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
||
|
|
;
|
||
|
|
; 27.10.2001
|
||
|
|
|
||
|
|
; unsigned char cursor (unsigned char onoff);
|
||
|
|
|
||
|
|
.export _cursor
|
||
|
|
.include "../inc/jumptab.inc"
|
||
|
|
.include "../inc/geossym.inc"
|
||
|
|
.include "cursor.inc"
|
||
|
|
|
||
|
|
_cursor:
|
||
|
|
|
||
|
|
tay ; onoff into Y
|
||
|
|
ldx #0 ; High byte of result
|
||
|
|
ldx cursor_flag ; Get old value
|
||
|
|
sty cursor_flag ; Set new value
|
||
|
|
tya
|
||
|
|
beq L1
|
||
|
|
lda curHeight ; prepare cursor
|
||
|
|
jsr InitTextPrompt
|
||
|
|
lda cursor_x ; position it on screen
|
||
|
|
sta r4L
|
||
|
|
lda cursor_x+1
|
||
|
|
sta r4H
|
||
|
|
lda cursor_y
|
||
|
|
sec
|
||
|
|
sbc curHeight
|
||
|
|
sta r5L
|
||
|
|
lda #1
|
||
|
|
sta r3L
|
||
|
|
jsr PosSprite
|
||
|
|
L1: rts
|