home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / BSTA.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  384 b   |  17 lines
  1.     extrn    .broom, .inrdy, .ordy
  2. ;
  3. ; set ordy and inrdy bits in a for buffer hl^
  4. ; ordy means buffer can accept a byte, inrdy means buffer has a byte
  5. ; a,f
  6. .bsta::    push b    ! push d
  7.     call    .broom;        don't modify pointers
  8.     ani    .inrdy
  9.     mov    d,a;        0 if buffer empty, else inrdy bit
  10.     mov    a,b
  11.     ora    c
  12.     jz    bsta1;        full
  13.     mvi    a,.ordy
  14. bsta1:    ora    d
  15.     pop d    ! pop b
  16.     ret
  17. ƒ8