Deck CALLTSK

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.calltsk +++|          IDENT  CALLTSK
00002  M01S00002.calltsk +++|          ENTRY  CALLTSK
00003  M01S00003.calltsk +++|          SYSCOM B1

Line S00004 Modification History
`M01` (Added by)	`calltsk`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.ns2440  ---|  COMMENT 72/07/09.           REQUEST SCHEDULING OF TASK(S).
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` (Added by)	`calltsk`
`M02` (Updated by)	`281l803`

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

Line S00006 Modification History
`M01` (Added by)	`calltsk`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00006.ns2440  ---|          TITLE  CALLTSK - REQUEST SCHEDULING OF TASK(S).
00010  M01S00007.calltsk +++|          SPACE  4
00011  M01S00008.calltsk +++|*****     CALLTSK - REQUEST SCHEDULING OF TASK(S).
00012  M01S00009.calltsk +++|*
00013  M01S00010.calltsk +++|*         J. C. BOHNHOFF.    72/07/09.
00014  M01S00011.calltsk +++|*         W. E. MARTIN.      78/09/30.
00015  M01S00012.calltsk +++|          SPACE  4
00016  M01S00013.calltsk +++|*         COMMON TEXTS.
00017  M01S00014.calltsk +++|
00018  M01S00015.calltsk +++|
00019  M01S00016.calltsk +++|*CALL     COMCMAC
00020  M01S00017.calltsk +++|*CALL     COMKMAC
00021  M01S00018.calltsk +++|          SPACE  4,30
00022  M01S00019.calltsk +++|***       ENTRY FORMAT -
00023  M01S00020.calltsk +++|*
00024  M01S00021.calltsk +++|*         FORTRAN EXTENDED -
00025  M01S00022.calltsk +++|*
00026  M01S00023.calltsk +++|*                 CALL CALLTSK(TASK,CEASE,TASK1,TASK2,...,TASKN)
00027  M01S00024.calltsk +++|*
00028  M01S00025.calltsk +++|*         COBOL -
00029  M01S00026.calltsk +++|*
00030  M01S00027.calltsk +++|*                 ENTER CALLTSK USING TASK,CEASE,TASK1,TASK2,...,TASKN.
00031  M01S00028.calltsk +++|*
00032  M01S00029.calltsk +++|*         WHERE - TASK = NAME OF NEXT TASK TO CALL.  THE TASK NAME MAY
00033  M01S00030.calltsk +++|*                 BE 1 - 7 CHARACTERS, LEFT JUSTIFIED WITH BLANK OR
00034  M01S00031.calltsk +++|*                 BINARY ZERO FILL.
00035  M01S00032.calltsk +++|*
00036  M01S00033.calltsk +++|*                 (CEASE) .NE. ZERO - IF CALLING TASK IS TO RESUME
00037  M01S00034.calltsk +++|*                 EXECUTING AFTER REQUEST IS ISSUED.
00038  M01S00035.calltsk +++|*
00039  M01S00036.calltsk +++|*                 (OPTIONAL ARGUMENT - FOR ONE TASK - ZERO ASSUMED)
00040  M01S00037.calltsk +++|*                 TASKI = OPTIONAL LIST OF TASKS TO ENTER INTO THE
00041  M01S00038.calltsk +++|*                 SCHEDULING LIST.
00042  M01S00039.calltsk +++|*
00043  M01S00040.calltsk +++|*         NOTE -  IF MORE THAN 5 TASKS ARE DETECTED IN A LIST, THE
00044  M01S00041.calltsk +++|*                 TASK IS ABORTED WITH A PARAMETER LIST STRUCTURE
00045  M01S00042.calltsk +++|*                 ERROR.
00046  M01S00043.calltsk +++|*
00047  M01S00044.calltsk +++|*         USES   A - 1, 5, 6, 7.
00048  M01S00045.calltsk +++|*                X - 1, 2, 4, 5, 6, 7.
00049  M01S00046.calltsk +++|*                B - 1, 4, 7.
00050  M01S00047.calltsk +++|*
00051  M01S00048.calltsk +++|*         CALLS  ZFN.
00052  M01S00049.calltsk +++|*
00053  M01S00050.calltsk +++|*         MACROS ARGERR, SYSTEM.
00054  M01S00051.calltsk +++|
00055  M01S00052.calltsk +++|
00056  M01S00053.calltsk +++|          VFD    42/0LCALLTSK,18/CALLTSK
00057  M01S00054.calltsk +++|
00058  M01S00055.calltsk +++| CAL5     SA1    CALB        RESTORE (A0)
00059  M01S00056.calltsk +++|          SA0    X1+
00060  M01S00057.calltsk +++|
00061  M01S00058.calltsk +++| CALLTSK  SUBR               ENTRY/EXIT
00062  M01S00059.calltsk +++|          SX6    A0          SAVE (A0)
00063  M01S00060.calltsk +++|          SA5    X1          READ TASK NAME
00064  M01S00061.calltsk +++|          SA6    CALB
00065  M01S00062.calltsk +++|          SB1    1
00066  M01S00063.calltsk +++|          BX1    X5
00067  M01S00064.calltsk +++|          SB4    B0          INITIALIZE *CEASE* FLAG
00068  M01S00065.calltsk +++|          RJ     ZFN         ZERO FILL NAME
00069  M01S00066.calltsk +++|          BX6    X1
00070  M01S00067.calltsk +++|          SA2    A1+B1       READ CEASE FLAG ADDRESS
00071  M01S00068.calltsk +++|          SA6    CALA
00072  M01S00069.calltsk +++|          ZR     X2,CAL2     IF CEASE FLAG MISSING
00073  M01S00070.calltsk +++|          SA5    A2+1        READ FIRST LIST ADDRESS
00074  M01S00071.calltsk +++|          SA2    X2          READ CEASE FLAG
00075  M01S00072.calltsk +++|          UX2    X2
00076  M01S00073.calltsk +++|          SB4    X2+         (B4) = CEASE FLAG
00077  M01S00074.calltsk +++|          ZR     X5,CAL2     IF NO TASK LIST
00078  M01S00075.calltsk +++|          SB7    4           SET TASK LIST LIMIT
00079  M01S00076.calltsk +++| CAL1     SA4    X5+         READ TASK NAME
00080  M01S00077.calltsk +++|          SA5    A5+B1       READ NEXT ADDRESS
00081  M01S00078.calltsk +++|          BX1    X4          STORE TASK NAME
00082  M01S00079.calltsk +++|          RJ     ZFN         ZERO FILL NAME
00083  M01S00080.calltsk +++|          BX6    X1
00084  M01S00081.calltsk +++|          SB7    B7-B1       DECREMENT LIST ENTRY COUNT
00085  M01S00082.calltsk +++|          SA6    A6+1
00086  M01S00083.calltsk +++|          LT     B7,CAL4     IF LIST FULL
00087  M01S00084.calltsk +++|          NZ     X5,CAL1     IF ANOTHER ARGUMENT PRESENT
00088  M01S00085.calltsk +++| CAL2     BX6    X6-X6       TERMINATE LIST
00089  M01S00086.calltsk +++|          SX2    B0
00090  M01S00087.calltsk +++|          ZR     B4,CAL3     IF CEASE REQUESTED
00091  M01S00088.calltsk +++|          SX2    B1
00092  M01S00089.calltsk +++| CAL3     SA6    A6+B1
00093  M01S00090.calltsk +++|          SYSTEM SCT,R,CALA,X2+2  ENTER REQUEST
00094  M01S00091.calltsk +++|          EQ     CAL5        RESTORE (A0)
00095  M01S00092.calltsk +++|
00096  M01S00093.calltsk +++|*         PROCESS ARGUMENT ERROR IF GREATER THAN FIVE PARAMETERS.
00097  M01S00094.calltsk +++|
00098  M01S00095.calltsk +++| CAL4     SA4    X5          READ NEXT PARAMETER
00099  M01S00096.calltsk +++|          ZR     X4,CAL2     IF PROPER LIST TERMINATOR
00100  M01S00097.calltsk +++|          MX0    30
00101  M01S00098.calltsk +++|          SA1    CALLTSK     READ ENTRY POINT
00102  M01S00099.calltsk +++|          LX1    30
00103  M01S00100.calltsk +++|          SA2    X1-1        READ TRACE-BACK WORD
00104  M01S00101.calltsk +++|          BX6    -X0*X2
00105  M01S00102.calltsk +++|          SA6    CALA
00106  M01S00103.calltsk +++|          ARGERR A6          EXIT TO EXECUTIVE
00107  M01S00104.calltsk +++|
00108  M01S00105.calltsk +++|*         PROGRAM STORAGE.
00109  M01S00106.calltsk +++|
00110  M01S00107.calltsk +++| CALA     BSSZ   6           STORAGE FOR TASK LIST
00111  M01S00108.calltsk +++| CALB     BSSZ   1           STORAGE FOR (A0)
00112  M01S00109.calltsk +++|          SPACE  4
00113  M01S00110.calltsk +++|*         COMMON DECK.
00114  M01S00111.calltsk +++|
00115  M01S00112.calltsk +++|
00116  M01S00113.calltsk +++|*CALL     COMKZFN
00117  M01S00114.calltsk +++|          SPACE  4
00118  M01S00115.calltsk +++|          END