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         bcs     loop
  12         rts
  13 .endproc