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:
  10     bit ZP_KEYBOARD
  11     bpl L1
  12
  13     lda ZP_KEYBOARD
  14     and #$7f
  15     rts
  16
  17