; ; SYSLIB Module Name: SCONDI ; Author: Richard Conn ; SYSLIB Version Number: 2.0 ; Module Version Number: 1.0 ; Module Entry Points: ; CONDIN ; Module External References: ; CIN CST ; ; ; SCONDIN.MAC -- ; Conditional Input Routine ; When called, returns w/zero flag set if character not available ; from CON: or character in A and flag not zero if character ; available ; Only PSW affected ; ; Externals -- EXT CST ; CONSOLE STATUS ROUTINE (A=1 IF NOT RDA) EXT CIN ; CONSOLE INPUT ROUTINE CONDIN:: CALL CST ; GET STATUS ANI 1 ; MASK LSB CPI 1 ; SET ZERO FLAG (Z=NOT RDA) RZ CALL CIN ; GET CHAR RET END