Deck CALLTSK

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.calltsk +++|          IDENT  CALLTSK
00002  M00S00002.calltsk +++|          ENTRY  CALLTSK
00003  M00S00003.calltsk +++|          SYSCOM B1

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.ns2440  ---|  COMMENT 72/07/09.           REQUEST SCHEDULING OF TASK(S).

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.ns2440  +++|          TITLE  CALLTSK - REQUEST SCHEDULING OF TASK(S).
00006  M01S00002.ns2440  +++|*COMMENT  CALLTSK - REQUEST SCHEDULING OF TASK(S).

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

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

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  ---|          TITLE  CALLTSK - REQUEST SCHEDULING OF TASK(S).
00010  M00S00007.calltsk +++|          SPACE  4
00011  M00S00008.calltsk +++|*****     CALLTSK - REQUEST SCHEDULING OF TASK(S).
00012  M00S00009.calltsk +++|*
00013  M00S00010.calltsk +++|*         J. C. BOHNHOFF.    72/07/09.
00014  M00S00011.calltsk +++|*         W. E. MARTIN.      78/09/30.
00015  M00S00012.calltsk +++|          SPACE  4
00016  M00S00013.calltsk +++|*         COMMON TEXTS.
00017  M00S00014.calltsk +++|
00018  M00S00015.calltsk +++|
00019  M00S00016.calltsk +++|*CALL     COMCMAC
00020  M00S00017.calltsk +++|*CALL     COMKMAC
00021  M00S00018.calltsk +++|          SPACE  4,30
00022  M00S00019.calltsk +++|***       ENTRY FORMAT -
00023  M00S00020.calltsk +++|*
00024  M00S00021.calltsk +++|*         FORTRAN EXTENDED -
00025  M00S00022.calltsk +++|*
00026  M00S00023.calltsk +++|*                 CALL CALLTSK(TASK,CEASE,TASK1,TASK2,...,TASKN)
00027  M00S00024.calltsk +++|*
00028  M00S00025.calltsk +++|*         COBOL -
00029  M00S00026.calltsk +++|*
00030  M00S00027.calltsk +++|*                 ENTER CALLTSK USING TASK,CEASE,TASK1,TASK2,...,TASKN.
00031  M00S00028.calltsk +++|*
00032  M00S00029.calltsk +++|*         WHERE - TASK = NAME OF NEXT TASK TO CALL.  THE TASK NAME MAY
00033  M00S00030.calltsk +++|*                 BE 1 - 7 CHARACTERS, LEFT JUSTIFIED WITH BLANK OR
00034  M00S00031.calltsk +++|*                 BINARY ZERO FILL.
00035  M00S00032.calltsk +++|*
00036  M00S00033.calltsk +++|*                 (CEASE) .NE. ZERO - IF CALLING TASK IS TO RESUME
00037  M00S00034.calltsk +++|*                 EXECUTING AFTER REQUEST IS ISSUED.
00038  M00S00035.calltsk +++|*
00039  M00S00036.calltsk +++|*                 (OPTIONAL ARGUMENT - FOR ONE TASK - ZERO ASSUMED)
00040  M00S00037.calltsk +++|*                 TASKI = OPTIONAL LIST OF TASKS TO ENTER INTO THE
00041  M00S00038.calltsk +++|*                 SCHEDULING LIST.
00042  M00S00039.calltsk +++|*
00043  M00S00040.calltsk +++|*         NOTE -  IF MORE THAN 5 TASKS ARE DETECTED IN A LIST, THE
00044  M00S00041.calltsk +++|*                 TASK IS ABORTED WITH A PARAMETER LIST STRUCTURE
00045  M00S00042.calltsk +++|*                 ERROR.
00046  M00S00043.calltsk +++|*
00047  M00S00044.calltsk +++|*         USES   A - 1, 5, 6, 7.
00048  M00S00045.calltsk +++|*                X - 1, 2, 4, 5, 6, 7.
00049  M00S00046.calltsk +++|*                B - 1, 4, 7.
00050  M00S00047.calltsk +++|*
00051  M00S00048.calltsk +++|*         CALLS  ZFN.
00052  M00S00049.calltsk +++|*
00053  M00S00050.calltsk +++|*         MACROS ARGERR, SYSTEM.
00054  M00S00051.calltsk +++|
00055  M00S00052.calltsk +++|
00056  M00S00053.calltsk +++|          VFD    42/0LCALLTSK,18/CALLTSK
00057  M00S00054.calltsk +++|
00058  M00S00055.calltsk +++| CAL5     SA1    CALB        RESTORE (A0)
00059  M00S00056.calltsk +++|          SA0    X1+
00060  M00S00057.calltsk +++|
00061  M00S00058.calltsk +++| CALLTSK  SUBR               ENTRY/EXIT
00062  M00S00059.calltsk +++|          SX6    A0          SAVE (A0)
00063  M00S00060.calltsk +++|          SA5    X1          READ TASK NAME
00064  M00S00061.calltsk +++|          SA6    CALB
00065  M00S00062.calltsk +++|          SB1    1
00066  M00S00063.calltsk +++|          BX1    X5
00067  M00S00064.calltsk +++|          SB4    B0          INITIALIZE *CEASE* FLAG
00068  M00S00065.calltsk +++|          RJ     ZFN         ZERO FILL NAME
00069  M00S00066.calltsk +++|          BX6    X1
00070  M00S00067.calltsk +++|          SA2    A1+B1       READ CEASE FLAG ADDRESS
00071  M00S00068.calltsk +++|          SA6    CALA
00072  M00S00069.calltsk +++|          ZR     X2,CAL2     IF CEASE FLAG MISSING
00073  M00S00070.calltsk +++|          SA5    A2+1        READ FIRST LIST ADDRESS
00074  M00S00071.calltsk +++|          SA2    X2          READ CEASE FLAG
00075  M00S00072.calltsk +++|          UX2    X2
00076  M00S00073.calltsk +++|          SB4    X2+         (B4) = CEASE FLAG
00077  M00S00074.calltsk +++|          ZR     X5,CAL2     IF NO TASK LIST
00078  M00S00075.calltsk +++|          SB7    4           SET TASK LIST LIMIT
00079  M00S00076.calltsk +++| CAL1     SA4    X5+         READ TASK NAME
00080  M00S00077.calltsk +++|          SA5    A5+B1       READ NEXT ADDRESS
00081  M00S00078.calltsk +++|          BX1    X4          STORE TASK NAME
00082  M00S00079.calltsk +++|          RJ     ZFN         ZERO FILL NAME
00083  M00S00080.calltsk +++|          BX6    X1
00084  M00S00081.calltsk +++|          SB7    B7-B1       DECREMENT LIST ENTRY COUNT
00085  M00S00082.calltsk +++|          SA6    A6+1
00086  M00S00083.calltsk +++|          LT     B7,CAL4     IF LIST FULL
00087  M00S00084.calltsk +++|          NZ     X5,CAL1     IF ANOTHER ARGUMENT PRESENT
00088  M00S00085.calltsk +++| CAL2     BX6    X6-X6       TERMINATE LIST
00089  M00S00086.calltsk +++|          SX2    B0
00090  M00S00087.calltsk +++|          ZR     B4,CAL3     IF CEASE REQUESTED
00091  M00S00088.calltsk +++|          SX2    B1
00092  M00S00089.calltsk +++| CAL3     SA6    A6+B1
00093  M00S00090.calltsk +++|          SYSTEM SCT,R,CALA,X2+2  ENTER REQUEST
00094  M00S00091.calltsk +++|          EQ     CAL5        RESTORE (A0)
00095  M00S00092.calltsk +++|
00096  M00S00093.calltsk +++|*         PROCESS ARGUMENT ERROR IF GREATER THAN FIVE PARAMETERS.
00097  M00S00094.calltsk +++|
00098  M00S00095.calltsk +++| CAL4     SA4    X5          READ NEXT PARAMETER
00099  M00S00096.calltsk +++|          ZR     X4,CAL2     IF PROPER LIST TERMINATOR
00100  M00S00097.calltsk +++|          MX0    30
00101  M00S00098.calltsk +++|          SA1    CALLTSK     READ ENTRY POINT
00102  M00S00099.calltsk +++|          LX1    30
00103  M00S00100.calltsk +++|          SA2    X1-1        READ TRACE-BACK WORD
00104  M00S00101.calltsk +++|          BX6    -X0*X2
00105  M00S00102.calltsk +++|          SA6    CALA
00106  M00S00103.calltsk +++|          ARGERR A6          EXIT TO EXECUTIVE
00107  M00S00104.calltsk +++|
00108  M00S00105.calltsk +++|*         PROGRAM STORAGE.
00109  M00S00106.calltsk +++|
00110  M00S00107.calltsk +++| CALA     BSSZ   6           STORAGE FOR TASK LIST
00111  M00S00108.calltsk +++| CALB     BSSZ   1           STORAGE FOR (A0)
00112  M00S00109.calltsk +++|          SPACE  4
00113  M00S00110.calltsk +++|*         COMMON DECK.
00114  M00S00111.calltsk +++|
00115  M00S00112.calltsk +++|
00116  M00S00113.calltsk +++|*CALL     COMKZFN
00117  M00S00114.calltsk +++|          SPACE  4
00118  M00S00115.calltsk +++|          END