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