git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/conio/cursor.s

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 27.10.2001, 23.12.2002
   6
   7 ; unsigned char cursor (unsigned char onoff);
   8
   9             .export _cursor
  10             .import update_cursor
  11             .importzp cursor_flag
  12             .include "jumptab.inc"
  13             .include "geossym.inc"
  14
  15 _cursor:
  16
  17         tay                     ; onoff into Y
  18         ldx     #0              ; High byte of result
  19         lda     cursor_flag     ; Get old value
  20         pha
  21         sty     cursor_flag     ; Set new value
  22         tya
  23         beq     L1
  24         lda     curHeight       ; prepare cursor
  25         jsr     InitTextPrompt
  26         jsr     update_cursor   ; place it on screen
  27 L1:     pla
  28         rts