Deck WAIT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.wait    +++|          IDENT  WAIT
00002  M00S00002.wait    +++|          ENTRY  WAIT
00003  M00S00003.wait    +++|          SYSCOM B1
00004  M00S00004.wait    +++|          TITLE  WAIT - TASK WAIT REQUEST.

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns2440  +++|*COMMENT  WAIT - TASK WAIT REQUEST.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1980.

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

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00007.wait    +++| WAIT     SPACE  4,10
00010  M00S00008.wait    +++|*****     WAIT - TASK WAIT REQUEST.
00011  M00S00009.wait    +++|*
00012  M00S00010.wait    +++|*         M.M. CHEN.         79/10/10.
00013  M00S00011.wait    +++|
00014  M00S00012.wait    +++|*         COMMON DECK.
00015  M00S00013.wait    +++|*CALL     COMKMAC
00016  M00S00014.wait    +++|
00017  M00S00015.wait    +++| WAIT  SPACE  4,25
00018  M00S00016.wait    +++|***       WAIT - TASK WAIT REQUEST.
00019  M00S00017.wait    +++|*
00020  M00S00018.wait    +++|*         *WAIT* ALLOWS A TASK TO SUSPEND PROCESSING FOR THE AMOUNT
00021  M00S00019.wait    +++|*         OF TIME SPECIFIED IN THE PARAMETER. THE MAXIMUM LENGTH OF
00022  M00S00020.wait    +++|*         TIME A TASK CAN BE SUSPENDED IS 3600 SECONDS (1 HOUR).
00023  M00S00021.wait    +++|*         IF NO PARAMETER IS SPECIFIED OR THE TIME IS GREATER THAN
00024  M00S00022.wait    +++|*         1 HOUR OR LESS THAN ZERO, TASK WILL BE ABORTED.
00025  M00S00023.wait    +++|*
00026  M00S00024.wait    +++|*         CALL FORMAT -
00027  M00S00025.wait    +++|*
00028  M00S00026.wait    +++|*         FORTRAN -
00029  M00S00027.wait    +++|*
00030  M00S00028.wait    +++|*         CALL WAIT(VALUE)      WHERE VALUE IS REAL NUMBER.
00031  M00S00029.wait    +++|*
00032  M00S00030.wait    +++|*         COBOL -
00033  M00S00031.wait    +++|*
00034  M00S00032.wait    +++|*         ENTER WAIT USING VALUE.
00035  M00S00033.wait    +++|*
00036  M00S00034.wait    +++|*         WHERE VALUE IS COMPUTATIONAL-1.
00037  M00S00035.wait    +++|
00038  M00S00036.wait    +++|
00039  M00S00037.wait    +++| MAXW     EQU    3600        MAXIMUM TIME IN SECONDS FOR *WAIT*
00040  M00S00038.wait    +++|          SPACE  4,10
00041  M00S00039.wait    +++|**        WAIT - TASK WAIT REQUEST.
00042  M00S00040.wait    +++|*
00043  M00S00041.wait    +++|*         ENTRY  (A1)/(X1) = PARAMETER LIST.
00044  M00S00042.wait    +++|*
00045  M00S00043.wait    +++|*         USES   A - 2, 6.
00046  M00S00044.wait    +++|*                X - 1, 2, 6.
00047  M00S00045.wait    +++|*
00048  M00S00046.wait    +++|*         MACROS WAIT.
00049  M00S00047.wait    +++|
00050  M00S00048.wait    +++|
00051  M00S00049.wait    +++|          VFD    42/0LWAIT,18/WAIT
00052  M00S00050.wait    +++|
00053  M00S00051.wait    +++| WAIT     SUBR               ENTRY/EXIT
00054  M00S00052.wait    +++|          ZR     X1,WAIT1    IF NO PARAMETER SPECIFIED
00055  M00S00053.wait    +++|          SA2    X1+         GET PARAMETER WORD
00056  M00S00054.wait    +++|          UX2,B3
00057  M00S00055.wait    +++|          LX2    X2,B3
00058  M00S00056.wait    +++|          SX1    MAXW        MAXIMUM VALUE
00059  M00S00057.wait    +++|          NG     X2,WAIT1    IF TIME IS NEGATIVE
00060  M00S00058.wait    +++|          IX1    X1-X2
00061  M00S00059.wait    +++|          SX6    X2
00062  M00S00060.wait    +++|          NG     X1,WAIT1    IF TIME IS GREATER THAN 1 HOUR
00063  M00S00061.wait    +++|          SA6    WAIA        SAVE PARAMETER
00064  M00S00062.wait    +++|          WAIT   WAIA
00065  M00S00063.wait    +++|          EQ     WAITX       RETURN
00066  M00S00064.wait    +++|
00067  M00S00065.wait    +++|*         ABORT TASK.
00068  M00S00066.wait    +++|
00069  M00S00067.wait    +++| WAIT1    ARGERR A1          ABORT TASK
00070  M00S00068.wait    +++|
00071  M00S00069.wait    +++| WAIA     BSSZ   1           WAIT TIME IN SECONDS
00072  M00S00070.wait    +++|          END