home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SCONDIN.Z80 < prev    next >
Text File  |  2000-06-30  |  768b  |  36 lines
  1. ;
  2. ; SYSLIB Module Name:  SCONDI
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    condin
  8.  
  9. ;
  10. ;  SCONDIN.MAC --
  11. ;    Conditional Input Routine
  12. ;    When called, returns w/zero flag set if character not available
  13. ;      from CON: or character in A and flag not zero if character
  14. ;      available
  15. ;    Only PSW affected
  16. ;
  17.  
  18. ;  Externals --
  19.     EXT    CST    ; CONSOLE STATUS ROUTINE (A=1 IF NOT RDA)
  20.     EXT    CIN    ; CONSOLE INPUT ROUTINE
  21.  
  22. CONDIN:
  23.     CALL    CST    ; GET STATUS
  24.     AND    1    ; MASK LSB
  25.     CP    1    ; SET ZERO FLAG (Z=NOT RDA)
  26.     RET    Z
  27.     PUSH    BC
  28.     CALL    CIN    ; GET CHAR
  29.     LD    C,A
  30.     OR    0FFH    ; SET NZ
  31.     LD    A,C
  32.     POP    BC
  33.     RET
  34.  
  35.     END
  36.