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

   1 ;* cgetc
   2
   3         .export         _cgetc
   4         .include        "creativision.inc"
   5
   6 _cgetc:
   7         lda     #$80
   8
   9 L1:     bit     ZP_KEYBOARD
  10         bpl     L1
  11
  12         lda     ZP_KEYBOARD
  13         and     #$7F
  14         rts