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