git.sur5r.net Git - cc65/blob - 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