home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / BFGETC.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  256 b   |  12 lines
  1.     extrn    .bsta, .inrdy, .bload, .bget
  2. ;
  3. ; Input (a) from buffered file via buffer hl^
  4. ; a,f
  5. .bfgetc::
  6.     call    .bsta
  7.     ani    .inrdy
  8.     jnz    .bget;        available, get it
  9.     call    .bload
  10.     jnc    .bfgetc;    to check for empty file
  11.     ret;            eof found
  12. µc