Deck WAIT

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.wait    +++|          IDENT  WAIT
00002  M01S00002.wait    +++|          ENTRY  WAIT
00003  M01S00003.wait    +++|          SYSCOM B1
00004  M01S00004.wait    +++|          TITLE  WAIT - TASK WAIT REQUEST.

Line S00005 Modification History
`M01` (Added by)	`wait`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns2440  ---|*COMMENT  80/03/01. TASK WAIT REQUEST.
00006  M01S00001.ns2440  +++|*COMMENT  WAIT - TASK WAIT REQUEST.

Line S00006 Modification History
`M01` (Added by)	`wait`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1980.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00007.wait    +++| WAIT     SPACE  4,10
00010  M01S00008.wait    +++|*****     WAIT - TASK WAIT REQUEST.
00011  M01S00009.wait    +++|*
00012  M01S00010.wait    +++|*         M.M. CHEN.         79/10/10.
00013  M01S00011.wait    +++|
00014  M01S00012.wait    +++|*         COMMON DECK.
00015  M01S00013.wait    +++|*CALL     COMKMAC
00016  M01S00014.wait    +++|
00017  M01S00015.wait    +++| WAIT  SPACE  4,25
00018  M01S00016.wait    +++|***       WAIT - TASK WAIT REQUEST.
00019  M01S00017.wait    +++|*
00020  M01S00018.wait    +++|*         *WAIT* ALLOWS A TASK TO SUSPEND PROCESSING FOR THE AMOUNT
00021  M01S00019.wait    +++|*         OF TIME SPECIFIED IN THE PARAMETER. THE MAXIMUM LENGTH OF
00022  M01S00020.wait    +++|*         TIME A TASK CAN BE SUSPENDED IS 3600 SECONDS (1 HOUR).
00023  M01S00021.wait    +++|*         IF NO PARAMETER IS SPECIFIED OR THE TIME IS GREATER THAN
00024  M01S00022.wait    +++|*         1 HOUR OR LESS THAN ZERO, TASK WILL BE ABORTED.
00025  M01S00023.wait    +++|*
00026  M01S00024.wait    +++|*         CALL FORMAT -
00027  M01S00025.wait    +++|*
00028  M01S00026.wait    +++|*         FORTRAN -
00029  M01S00027.wait    +++|*
00030  M01S00028.wait    +++|*         CALL WAIT(VALUE)      WHERE VALUE IS REAL NUMBER.
00031  M01S00029.wait    +++|*
00032  M01S00030.wait    +++|*         COBOL -
00033  M01S00031.wait    +++|*
00034  M01S00032.wait    +++|*         ENTER WAIT USING VALUE.
00035  M01S00033.wait    +++|*
00036  M01S00034.wait    +++|*         WHERE VALUE IS COMPUTATIONAL-1.
00037  M01S00035.wait    +++|
00038  M01S00036.wait    +++|
00039  M01S00037.wait    +++| MAXW     EQU    3600        MAXIMUM TIME IN SECONDS FOR *WAIT*
00040  M01S00038.wait    +++|          SPACE  4,10
00041  M01S00039.wait    +++|**        WAIT - TASK WAIT REQUEST.
00042  M01S00040.wait    +++|*
00043  M01S00041.wait    +++|*         ENTRY  (A1)/(X1) = PARAMETER LIST.
00044  M01S00042.wait    +++|*
00045  M01S00043.wait    +++|*         USES   A - 2, 6.
00046  M01S00044.wait    +++|*                X - 1, 2, 6.
00047  M01S00045.wait    +++|*
00048  M01S00046.wait    +++|*         MACROS WAIT.
00049  M01S00047.wait    +++|
00050  M01S00048.wait    +++|
00051  M01S00049.wait    +++|          VFD    42/0LWAIT,18/WAIT
00052  M01S00050.wait    +++|
00053  M01S00051.wait    +++| WAIT     SUBR               ENTRY/EXIT
00054  M01S00052.wait    +++|          ZR     X1,WAIT1    IF NO PARAMETER SPECIFIED
00055  M01S00053.wait    +++|          SA2    X1+         GET PARAMETER WORD
00056  M01S00054.wait    +++|          UX2,B3
00057  M01S00055.wait    +++|          LX2    X2,B3
00058  M01S00056.wait    +++|          SX1    MAXW        MAXIMUM VALUE
00059  M01S00057.wait    +++|          NG     X2,WAIT1    IF TIME IS NEGATIVE
00060  M01S00058.wait    +++|          IX1    X1-X2
00061  M01S00059.wait    +++|          SX6    X2
00062  M01S00060.wait    +++|          NG     X1,WAIT1    IF TIME IS GREATER THAN 1 HOUR
00063  M01S00061.wait    +++|          SA6    WAIA        SAVE PARAMETER
00064  M01S00062.wait    +++|          WAIT   WAIA
00065  M01S00063.wait    +++|          EQ     WAITX       RETURN
00066  M01S00064.wait    +++|
00067  M01S00065.wait    +++|*         ABORT TASK.
00068  M01S00066.wait    +++|
00069  M01S00067.wait    +++| WAIT1    ARGERR A1          ABORT TASK
00070  M01S00068.wait    +++|
00071  M01S00069.wait    +++| WAIA     BSSZ   1           WAIT TIME IN SECONDS
00072  M01S00070.wait    +++|          END