]> git.sur5r.net Git - cc65/blob - libsrc/conio/cursor.s
clrscr.s switch to text mode
[cc65] / libsrc / conio / cursor.s
1 ;
2 ; Ullrich von Bassewitz, 17.06.1998
3 ;
4 ; unsigned char cursor (unsigned char onoff);
5 ;
6
7         .export         _cursor
8         .import         cursor
9
10
11 .proc   _cursor
12
13         tay                     ; onoff into Y
14         ldx     #0              ; High byte of result
15         lda     cursor          ; Get old value
16         sty     cursor          ; Set new value
17         rts
18
19 .endproc
20