home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol089 / scondin.mac < prev    next >
Text File  |  1984-04-29  |  661b  |  34 lines
  1. ;
  2. ; SYSLIB Module Name:  SCONDI
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    CONDIN
  8. ; Module External References:
  9. ;    CIN        CST
  10. ;
  11.  
  12. ;
  13. ;  SCONDIN.MAC --
  14. ;    Conditional Input Routine
  15. ;    When called, returns w/zero flag set if character not available
  16. ;      from CON: or character in A and flag not zero if character
  17. ;      available
  18. ;    Only PSW affected
  19. ;
  20.  
  21. ;  Externals --
  22.     EXT    CST    ; CONSOLE STATUS ROUTINE (A=1 IF NOT RDA)
  23.     EXT    CIN    ; CONSOLE INPUT ROUTINE
  24.  
  25. CONDIN::
  26.     CALL    CST    ; GET STATUS
  27.     ANI    1    ; MASK LSB
  28.     CPI    1    ; SET ZERO FLAG (Z=NOT RDA)
  29.     RZ
  30.     CALL    CIN    ; GET CHAR
  31.     RET
  32.  
  33.     END
  34.