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

   1 ;
   2 ; jede jede@oric.org 2017-10-01
   3 ;
   4     .export    _cgetc
   5
   6     .include   "telestrat.inc"
   7
   8 .proc _cgetc
   9 loop:
  10         BRK_TELEMON XRD0
  11         bcc     key_pressed
  12         jmp     loop
  13 key_pressed:
  14         rts
  15 .endproc