home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / asmutl / buffers.lbr / BFPUTC.MZC / BFPUTC.MAC
Encoding:
Text File  |  1987-01-14  |  384 b   |  14 lines
  1.     extrn    b.eof, .bsta, .ordy, .bdump, .bput
  2. ;
  3. ; Put byte c to buffered file hl^.  Carry for error
  4. ; a,f
  5. .bfputc::
  6.     mov    a,m
  7.     ani    b.eof
  8.     stc    ! rz;            not a write file, error
  9.     call    .bsta
  10.     ani    .ordy
  11.     cz    .bdump;            make room
  12.     jnc    .bput
  13.     ret;                error occured
  14. ╜