Deck WAITINP

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.waitinp +++|          IDENT  WAITINP
00002  M00S00002.waitinp +++|
00003  M00S00003.waitinp +++|          ENTRY  WAITINP

Line S00004 Modification History
`M01` (Removed by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.ns2440  ---|*COMMENT  74/05/01. WAIT FOR TERMINAL INPUT.

Line S00001 Modification History
`M01` (Added by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.ns2440  +++|          TITLE  WAITINP - WAIT FOR TERMINAL INPUT.
00006  M01S00002.ns2440  +++|*COMMENT  WAITINP - WAIT FOR TERMINAL INPUT.

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.

Line S00001 Modification History
`M01` (Added by)	`281l803`

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

Line S00006 Modification History
`M01` (Removed by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00006.ns2440  ---| WAITINP  TITLE  WAITINP - REQUEST WAIT FOR TERMINAL INPUT.
00010  M00S00007.waitinp +++|          SPACE  4
00011  M00S00008.waitinp +++|***       WAITINP - REQUEST WAIT FOR TERMINAL INPUT.
00012  M00S00009.waitinp +++|*         F. R. SUTTON/J.R. HOGUE.  74/05/01.
00013  M00S00010.waitinp +++|          SPACE  4
00014  M00S00011.waitinp +++|*CALL     COMKMAC
00015  M00S00012.waitinp +++|*CALL     COMSPRD
00016  M00S00013.waitinp +++|          TRXCOM
00017  M00S00014.waitinp +++|          SPACE  4
00018  M00S00015.waitinp +++|***       CALL FORMAT -
00019  M00S00016.waitinp +++|*
00020  M00S00017.waitinp +++|*         FORTRAN EXTENDED
00021  M00S00018.waitinp +++|*                CALL WAITINP(STAT,TIME)
00022  M00S00019.waitinp +++|*         COBOL
00023  M00S00020.waitinp +++|*                ENTER WAITINP USING TIME STAT
00024  M00S00021.waitinp +++|*
00025  M00S00022.waitinp +++|*         WHERE - STAT = STATUS AFTER REQUEST
00026  M00S00023.waitinp +++|*                        < 0 IF ANOTHER TASK IS ALREADY WAITING FOR
00027  M00S00024.waitinp +++|*                            INPUT FROM THE DESIRED TERMINAL.
00028  M00S00025.waitinp +++|*                        = 0 IF REQUEST PROCESSED OK.
00029  M00S00026.waitinp +++|*                        > 0 IF THE REQUEST TIMED OUT WITH NO INPUT
00030  M00S00027.waitinp +++|*                            RECEIVED.
00031  M00S00028.waitinp +++|*                 TIME = TIME IN SECONDS BEFORE FORCED RESTART IF NO
00032  M00S00029.waitinp +++|*                        INPUT RECEIVED FROM THE TERMINAL. (OPTIONAL)
00033  M00S00030.waitinp +++|
00034  M00S00031.waitinp +++|
00035  M00S00032.waitinp +++| WAITINP  PS                 ENTRY/EXIT
00036  M00S00033.waitinp +++|          SB2    X1          STATUS ADDRESS
00037  M00S00034.waitinp +++|          SA5    A1+1
00038  M00S00035.waitinp +++|          BX7    X7-X7
00039  M00S00036.waitinp +++|          ZR     X5,WAI1     IF NO TIME GIVEN
00040  M00S00037.waitinp +++|          SA5    X5
00041  M00S00038.waitinp +++|          BX7    X5
00042  M00S00039.waitinp +++| WAI1     SA7    WAIA        STORE TIME OUT VALUE
00043  M00S00040.waitinp +++|          WAITINP WAIA       REQUEST WAIT FOR TERMINAL INPUT
00044  M00S00041.waitinp +++|          SA6    B2          STORE STATUS AFTER REQUEST
00045  M00S00042.waitinp +++|          NG     X6,WAITINP  IF TERMINAL ALREADY IN *WAITINP* STATE
00046  M00S00043.waitinp +++|          BX6    X6-X6
00047  M00S00044.waitinp +++|          SX2    1
00048  M00S00045.waitinp +++|          SA1    MSGC        FIRST WORD OF TERMINAL DATA
00049  M00S00046.waitinp +++|          BX3    X2-X1
00050  M00S00047.waitinp +++|          SA6    B2          SET STATUS WORD TO ZERO
00051  M00S00048.waitinp +++|          NZ     X3,WAITINP  IF TERMINAL INPUT RECEIVED
00052  M00S00049.waitinp +++|          BX6    X2
00053  M00S00050.waitinp +++|          SA6    B2          SET STATUS NON ZERO
00054  M00S00051.waitinp +++|          JP     WAITINP     RETURN
00055  M00S00052.waitinp +++|
00056  M00S00053.waitinp +++| WAIA     BSS    1
00057  M00S00054.waitinp +++|
00058  M00S00055.waitinp +++|          END