2 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.waitinp +++|          IDENT  WAITINP
00002  M01S00002.waitinp +++|
00003  M01S00003.waitinp +++|          ENTRY  WAITINP

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.ns2440  ---|*COMMENT  74/05/01. WAIT FOR TERMINAL INPUT.
00005  M01S00001.ns2440  +++|          TITLE  WAITINP - WAIT FOR TERMINAL INPUT.
00006  M01S00002.ns2440  +++|*COMMENT  WAITINP - WAIT FOR TERMINAL INPUT.

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00006.ns2440  ---| WAITINP  TITLE  WAITINP - REQUEST WAIT FOR TERMINAL INPUT.
00010  M01S00007.waitinp +++|          SPACE  4
00011  M01S00008.waitinp +++|***       WAITINP - REQUEST WAIT FOR TERMINAL INPUT.
00012  M01S00009.waitinp +++|*         F. R. SUTTON/J.R. HOGUE.  74/05/01.
00013  M01S00010.waitinp +++|          SPACE  4
00014  M01S00011.waitinp +++|*CALL     COMKMAC
00015  M01S00012.waitinp +++|*CALL     COMSPRD
00016  M01S00013.waitinp +++|          TRXCOM
00017  M01S00014.waitinp +++|          SPACE  4
00018  M01S00015.waitinp +++|***       CALL FORMAT -
00019  M01S00016.waitinp +++|*
00020  M01S00017.waitinp +++|*         FORTRAN EXTENDED
00021  M01S00018.waitinp +++|*                CALL WAITINP(STAT,TIME)
00022  M01S00019.waitinp +++|*         COBOL
00023  M01S00020.waitinp +++|*                ENTER WAITINP USING TIME STAT
00024  M01S00021.waitinp +++|*
00025  M01S00022.waitinp +++|*         WHERE - STAT = STATUS AFTER REQUEST
00026  M01S00023.waitinp +++|*                        < 0 IF ANOTHER TASK IS ALREADY WAITING FOR
00027  M01S00024.waitinp +++|*                            INPUT FROM THE DESIRED TERMINAL.
00028  M01S00025.waitinp +++|*                        = 0 IF REQUEST PROCESSED OK.
00029  M01S00026.waitinp +++|*                        > 0 IF THE REQUEST TIMED OUT WITH NO INPUT
00030  M01S00027.waitinp +++|*                            RECEIVED.
00031  M01S00028.waitinp +++|*                 TIME = TIME IN SECONDS BEFORE FORCED RESTART IF NO
00032  M01S00029.waitinp +++|*                        INPUT RECEIVED FROM THE TERMINAL. (OPTIONAL)
00033  M01S00030.waitinp +++|
00034  M01S00031.waitinp +++|
00035  M01S00032.waitinp +++| WAITINP  PS                 ENTRY/EXIT
00036  M01S00033.waitinp +++|          SB2    X1          STATUS ADDRESS
00037  M01S00034.waitinp +++|          SA5    A1+1
00038  M01S00035.waitinp +++|          BX7    X7-X7
00039  M01S00036.waitinp +++|          ZR     X5,WAI1     IF NO TIME GIVEN
00040  M01S00037.waitinp +++|          SA5    X5
00041  M01S00038.waitinp +++|          BX7    X5
00042  M01S00039.waitinp +++| WAI1     SA7    WAIA        STORE TIME OUT VALUE
00043  M01S00040.waitinp +++|          WAITINP WAIA       REQUEST WAIT FOR TERMINAL INPUT
00044  M01S00041.waitinp +++|          SA6    B2          STORE STATUS AFTER REQUEST
00045  M01S00042.waitinp +++|          NG     X6,WAITINP  IF TERMINAL ALREADY IN *WAITINP* STATE
00046  M01S00043.waitinp +++|          BX6    X6-X6
00047  M01S00044.waitinp +++|          SX2    1
00048  M01S00045.waitinp +++|          SA1    MSGC        FIRST WORD OF TERMINAL DATA
00049  M01S00046.waitinp +++|          BX3    X2-X1
00050  M01S00047.waitinp +++|          SA6    B2          SET STATUS WORD TO ZERO
00051  M01S00048.waitinp +++|          NZ     X3,WAITINP  IF TERMINAL INPUT RECEIVED
00052  M01S00049.waitinp +++|          BX6    X2
00053  M01S00050.waitinp +++|          SA6    B2          SET STATUS NON ZERO
00054  M01S00051.waitinp +++|          JP     WAITINP     RETURN
00055  M01S00052.waitinp +++|
00056  M01S00053.waitinp +++| WAIA     BSS    1
00057  M01S00054.waitinp +++|
00058  M01S00055.waitinp +++|          END