git.sur5r.net Git - cc65/blob - libsrc/atari/cgetc.s

   1 ;
   2 ; Christian Groessler, November-2002
   3 ;
   4 ; get a char from the keyboard
   5 ; char cgetc(void)
   6 ;
   7
   8         .include "atari.inc"
   9         .export _cgetc
  10         .import setcursor
  11         .import KEYBDV_handler
  12
  13 _cgetc:
  14         jsr     setcursor
  15         lda     #12
  16         sta     ICAX1Z          ; fix problems with direct call to KEYBDV
  17 .ifdef __ATARIXL__
  18         jsr     KEYBDV_handler
  19 .else
  20         jsr     @1
  21 .endif
  22         ldx     #0
  23         rts
  24
  25 .ifndef __ATARIXL__
  26 @1:     lda     KEYBDV+5
  27         pha
  28         lda     KEYBDV+4
  29         pha
  30         rts
  31 .endif