cdc:nos2.source:opl.opl871:deck:itask
Deck ITASK
6 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.itask +++| IDENT ITASK 00002 M01S00002.itask +++| ENTRY ITASK 00003 M01S00003.itask +++| LCC OVERLAY(ITASK,0,0)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.253l688 ---| SST BEGN 00005 M01S00001.253l688 +++| SST BEGN,CMBL 00006 M01S00005.itask +++| SYSCOM B1 00007 M01S00006.itask +++| 00008 M01S00007.itask +++|*COMMENT INITIAL TASK.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977. 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M01S00009.itask +++| ITASK TITLE INITIAL TASK. 00012 M01S00010.itask +++| 00013 M01S00011.itask +++|*** INITIAL TASK 00014 M01S00012.itask +++|* M. M. CHEN 1977. 00015 M01S00013.itask +++|* E. D. REDIG. 80/06/20. *TAF* AUTOMATIC RECOVERY. 00016 M01S00014.itask +++| SPACE 4,15 00017 M01S00015.itask +++|*** INITIALIZE TASK IS THE INTERFACE BETWEEN THE TRANSACTION 00018 M01S00016.itask +++|* EXECUTIVE AND USER-S APPLICATION TASK. *ITASK* PROCESSES 00019 M01S00017.itask +++|* ALL TRANSACTION INPUT TO DETERMINE WHICH TRANSACTION UNIT 00020 M01S00018.itask +++|* TO CALL TO FURTHER PROCESS THE INPUT, AND STATUS MESSAGES 00021 M01S00019.itask +++|* CONCERNING THE STATE OF THE TRANSACTION SYSTEM. 00022 M01S00020.itask +++|* 00023 M01S00021.itask +++|* BECAUSE TRANSACTION INPUT WILL VARY FROM APPLICATION TO 00024 M01S00022.itask +++|* APPLICATION, INITIAL TASK WILL HAVE TO VARY TO ADAPT TO 00025 M01S00023.itask +++|* DIFFERENT INPUT FORMATS AND OPERATIONAL CONDITIONS. THIS 00026 M01S00024.itask +++|* INITIAL TASK IS PROVIDED TO SERVE AS AN EXAMPLE. EACH 00027 M01S00025.itask +++|* INSTALLATION WILL NEED ITS OWN INITIAL TASK TO SERVE ITS OWN 00028 M01S00026.itask +++|* SPECIFIC NEEDS. 00029 M01S00027.itask +++| 00030 M01S00028.itask +++| 00031 M01S00029.itask +++| MACROS TITLE MACROS 00032 M01S00030.itask +++|*CALL COMKTAF 00033 M01S00031.itask +++|*CALL COMKFLD 00034 M01S00032.itask +++|*CALL COMKIPR 00035 M01S00033.itask +++|*CALL COMKMAC 00036 M01S00034.itask +++| BEGN BSS 0 SAVE ORIGIN COUNTER 00037 M01S00035.itask +++|*CALL COMKCBD 00038 M01S00036.itask +++| ORG BEGN RESTORE ORIGIN COUNTER 00039 M01S00037.itask +++| 00040 M01S00038.itask +++| NOREF .1,.2 00041 M01S00039.itask +++| .1 SET 0 00042 M01S00040.itask +++| .2 SET 0 00043 M01S00041.itask +++| TIMCNT SPACE 4 00044 M01S00042.itask +++|** TIMCNT - DEFINE A TIME ORIGINATING TASK. 00045 M01S00043.itask +++|* 00046 M01S00044.itask +++| 00047 M01S00045.itask +++| 00048 M01S00046.itask +++| PURGMAC TIMCNT 00049 M01S00047.itask +++| 00050 M01S00048.itask +++| TIMCNT MACRO HH,MM,SS,ADDR 00051 M01S00049.itask +++| VFD 18/ADDR,24/0,6/HH,6/MM,6/SS 00052 M01S00050.itask +++| ENDM 00053 M01S00051.itask +++| TRAN SPACE 4,20 00054 M01S00052.itask +++|** TRAN - DEFINE A TRANSACTION CODE. 00055 M01S00053.itask +++|* 00056 M01S00054.itask +++|* THE *TRAN* MACRO SETS UP ENTRIES FOR THE TABLE OF 00057 M01S00055.itask +++|* TRANSACTION CODES *TRANT*. NOTE - A PARTICULAR 00058 M01S00056.itask +++|* TRAN ENTRY SETS UP THE TRANT ENTRY FOR THE PRECEDING 00059 M01S00057.itask +++|* DECLARED TRANSACTION CODE. *ITASK* ASSUMES THAT 00060 M01S00058.itask +++|* THE *TRANT* TABLE IS SET UP IN DISPLAY ORDER. IT 00061 M01S00059.itask +++|* USES THE DISPLAY CODE VALUE OF THE TRANSACTION CODE 00062 M01S00060.itask +++|* ENTERED BY THE USER TO LOCATE THE PROPER ENTRY IN 00063 M01S00061.itask +++|* *TRANT*. 00064 M01S00062.itask +++|* 00065 M01S00063.itask +++|* TRAN CODE 00066 M01S00064.itask +++|* 00067 M01S00065.itask +++|* ENTRY CODE = ONE-CHARACTER TRANSACTION CODE. 00068 M01S00066.itask +++|* TRANS = SYMBOL SPECIFYING THE RELATIVE ADDRESS 00069 M01S00067.itask +++|* OF SUBTRANSACTION CODES. 00070 M01S00068.itask +++|* 00071 M01S00069.itask +++|* EXIT ENTRY MADE INTO THE TABLE OF TRANSACTION 00072 M01S00070.itask +++|* CODES *TRANT*. 00073 M01S00071.itask +++| 00074 M01S00072.itask +++| 00075 M01S00073.itask +++| PURGMAC TRAN 00076 M01S00074.itask +++| 00077 M01S00075.itask +++| TRAN MACRO A 00078 M01S00076.itask +++| VFD 12/2000B+.1,48/TRANS+.2 00079 M01S00077.itask +++| .2 SET .2+.1 00080 M01S00078.itask +++| .1 SET 0 00081 M01S00079.itask +++| ENDM 00082 M01S00080.itask +++| STRAN SPACE 4,15 00083 M01S00081.itask +++|** STRAN - DEFINE A SUBTRANSACTION CODE. 00084 M01S00082.itask +++|* 00085 M01S00083.itask +++|* THE *STRAN* MACRO MAKES ENTRIES IN THE TABLE OF 00086 M01S00084.itask +++|* SUBTRANSACTION CODES *TRANS*. *TRANS* CONTAINS THE 00087 M01S00085.itask +++|* SUBTRANSACTION CODE AND THE CORRESPONDING NAME OF 00088 M01S00086.itask +++|* THE TRANSACTION UNIT. 00089 M01S00087.itask +++|* 00090 M01S00088.itask +++|* STRAN CODE,TNAME 00091 M01S00089.itask +++|* 00092 M01S00090.itask +++|* ENTRY CODE = TWO-CHARACTER SUBTRANSACTION CODE. 00093 M01S00091.itask +++|* TNAME = NAME OF THE TRANSACTION UNIT TO BE CALLED. 00094 M01S00092.itask +++|* 00095 M01S00093.itask +++|* EXIT ENTRY MADE INTO THE TABLE OF SUBTRANSACTION 00096 M01S00094.itask +++|* CODES *TRANS*. 00097 M01S00095.itask +++| 00098 M01S00096.itask +++| 00099 M01S00097.itask +++| PURGMAC STRAN 00100 M01S00098.itask +++| 00101 M01S00099.itask +++| STRAN MACRO CODE,TNAME 00102 M01S00100.itask +++| STRAN RMT 00103 M01S00101.itask +++| VFD 12/0H_CODE,6/0,42/0L_TNAME 00104 M01S00102.itask +++| STRAN RMT 00105 M01S00103.itask +++| .1 SET .1+1 ADVANCE SUB TRANSACTION CODE COUNT 00106 M01S00104.itask +++| ENDM 00107 M01S00105.itask +++| 00108 M01S00106.itask +++| 00109 M01S00107.itask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK 00110 M01S00108.itask +++| TABLES TITLE TRANSACTION TABLES. 00111 M01S00109.itask +++| TRANT SPACE 4,20 00112 M01S00110.itask +++|** TRANT - TRANSACTION CODE TABLE. 00113 M01S00111.itask +++|* 00114 M01S00112.itask +++|* EACH GROUP OF ENTRIES RELATING TO THE SAME TRANSACTION 00115 M01S00113.itask +++|* CODE IS PLACED IMMEDIATELY FOLLOWING THE *TRANT* ENTRY 00116 M01S00114.itask +++|* FOR THAT CODE, ALTHOUGH THE SUBTRANSACTION TABLE IS 00117 M01S00115.itask +++|* ASSEMBLED ELSEWHERE. THE FOLLOWING IS AN EXAMPLE OF 00118 M01S00116.itask +++|* THE USE OF THE *TRAN* AND *STRAN* MACROS. 00119 M01S00117.itask +++|* 00120 M01S00118.itask +++|* TRANT BSS 0 00121 M01S00119.itask +++|* 00122 M01S00120.itask +++|* TRAN A 00123 M01S00121.itask +++|* 00124 M01S00122.itask +++|* STRAN 02,TNAME1 00125 M01S00123.itask +++|* 00126 M01S00124.itask +++|* STRAN 03,TNAME2 00127 M01S00125.itask +++|* 00128 M01S00126.itask +++|* WHERE, *A* IS THE TRANSACTION CODE, *02* AND *03* ARE 00129 M01S00127.itask +++|* THE SUBTRANSACTION CODES, AND *TNAME1* AND *TNAME2* 00130 M01S00128.itask +++|* ARE THE RESPECTIVE TRANSACTION UNITS TO BE REQUESTED. 00131 M01S00129.itask +++|* 00132 M01S00130.itask +++|* THE DECLARATION OF A TRANSACTION UNIT AND THE ASSOCIATION 00133 M01S00131.itask +++|* OF ATTRIBUTES WITH IT IS ACCOMPLISHED THROUGH *LIBTASK* 00134 M01S00132.itask +++|* DIRECTIVES. 00135 M01S00133.itask +++| 00136 M01S00134.itask +++| 00137 M01S00135.itask +++| TRANT BSS 0 00138 M01S00136.itask +++| LOC 1 00139 M01S00137.itask +++| TRAN A 00140 M01S00138.itask +++| TRAN B 00141 M01S00139.itask +++| TRAN C 00142 M01S00140.itask +++| TRAN D 00143 M01S00141.itask +++| TRAN E 00144 M01S00142.itask +++| STRAN (X.),XTRAN EXECUTE NAMED TASK 00145 M01S00143.itask +++| 00146 M01S00144.itask +++|* CAUTION: THE FOLLOWING IS AN EXAMPLE OF A *LIBTASK* 00147 M01S00145.itask +++|* DIRECTIVE NEEDED FOR THE TRANSACTION UNIT *XTRAN*. 00148 M01S00146.itask +++|* 00149 M01S00147.itask +++|* /XTRAN,T1=XTASK 00150 M01S00148.itask +++| 00151 M01S00149.itask +++| TRAN F 00152 M01S00150.itask +++| TRAN G 00153 M01S00151.itask +++| TRAN H 00154 M01S00152.itask +++| TRAN I 00155 M01S00153.itask +++| TRAN J 00156 M01S00154.itask +++| TRAN K 00157 M01S00155.itask +++| TRAN L 00158 M01S00156.itask +++| TRAN M 00159 M01S00157.itask +++| TRAN N 00160 M01S00158.itask +++| TRAN O 00161 M01S00159.itask +++| TRAN P 00162 M01S00160.itask +++| TRAN Q 00163 M01S00161.itask +++| TRAN R 00164 M01S00162.itask +++| TRAN S 00165 M01S00163.itask +++| TRAN T 00166 M01S00164.itask +++| TRAN U 00167 M01S00165.itask +++| TRAN V 00168 M01S00166.itask +++| TRAN W 00169 M01S00167.itask +++| TRAN X 00170 M01S00168.itask +++| TRAN Y 00171 M01S00169.itask +++| TRAN Z 00172 M01S00170.itask +++| TRAN 0 00173 M01S00171.itask +++| TRAN 1 00174 M01S00172.itask +++| TRAN 2 00175 M01S00173.itask +++| TRAN 3 00176 M01S00174.itask +++| TRAN 4 00177 M01S00175.itask +++| TRAN 5 00178 M01S00176.itask +++| TRAN 6 00179 M01S00177.itask +++| TRAN 7 00180 M01S00178.itask +++| TRAN 8 00181 M01S00179.itask +++| TRAN 9 00182 M01S00180.itask +++| TRAN + 00183 M01S00181.itask +++| TRAN - 00184 M01S00182.itask +++| TRAN * 00185 M01S00183.itask +++| TRAN / 00186 M01S00184.itask +++| TRAN ) 00187 M01S00185.itask +++| TRAN ( 00188 M01S00186.itask +++| TRAN $ 00189 M01S00187.itask +++| TRAN = 00190 M01S00188.itask +++| TRAN 1R 00191 M01S00189.itask +++| TRAN , 00192 M01S00190.itask +++| TRAN . 00193 M01S00191.itask +++| TRAN # 00194 M01S00192.itask +++| TRAN [ 00195 M01S00193.itask +++| TRAN ] 00196 M01S00194.itask +++| TRAN : 00197 M01S00195.itask +++| TRAN " 00198 M01S00196.itask +++| TRAN _ 00199 M01S00197.itask +++| TRAN ! 00200 M01S00198.itask +++| TRAN & 00201 M01S00199.itask +++| TRAN ' 00202 M01S00200.itask +++| TRAN ? 00203 M01S00201.itask +++| TRAN < 00204 M01S00202.itask +++| TRAN : 00205 M01S00203.itask +++| TRAN 00206 M01S00204.itask +++| TRAN \ 00207 M01S00205.itask +++| TRAN 00208 M01S00206.itask +++| TRAN ; 00209 M01S00207.itask +++| TRAN 00210 M01S00208.itask +++| LOC *O 00211 M01S00209.itask +++| STAN SPACE 4,10 00212 M01S00210.itask +++|** SUBTRANSACTION CODE TABLES. 00213 M01S00211.itask +++|* 00214 M01S00212.itask +++| 00215 M01S00213.itask +++| 00216 M01S00214.itask +++| TRANS BSS 0 00217 M01S00215.itask +++| STRAN HERE 00218 M01S00216.itask +++| TTOT SPACE 4,10 00219 M01S00217.itask +++|** TABLE OF TIME ORIGINATING TASKS. 00220 M01S00218.itask +++|* TIMCNT MACROS WOULD BE PUT IN THIS TABLE. 00221 M01S00219.itask +++| 00222 M01S00220.itask +++| 00223 M01S00221.itask +++| TTOT BSS 0 00224 M01S00222.itask +++| TTOTL EQU *-TTOT 00225 M01S00223.itask +++| 00226 M01S00224.itask +++| 00227 M01S00225.itask +++| ITASK TITLE ITASK 00228 M01S00226.itask +++| ITASK SPACE 4,80 00229 M01S00227.itask +++|** ITASK - PROCESS TRANSACTION INPUT. 00230 M01S00228.itask +++|* 00231 M01S00229.itask +++|* *ITASK* EXTRACTS THE DATA BASE NAME FROM THE COMMUNICATION 00232 M01S00230.itask +++|* BLOCK AND SEARCHES A DATA BASE NAME TABLE TO DETERMINE WHAT 00233 M01S00231.itask +++|* INPUT PROCESSING IS NECESSARY. 00234 M01S00232.itask +++|* 00235 M01S00233.itask +++|* *ITASK* MAY BE CALLED WITH SYSTEM ORIGIN TRANSACTIONS, 00236 M01S00234.itask +++|* WITH THE TYPE OF CALL IN WORD *TMSW* OF THE COMMUNICATION 00237 M01S00235.itask +++|* BLOCK. 00238 M01S00236.itask +++|* 00239 M01S00237.itask +++|* ENTRY (TRSQ) = 12/ DB,24/ UA,24/ SEQ 00240 M01S00238.itask +++|* (TNAM) = 42/ TN,1/S,1/P,1/B,2/ ,1/M,12/WC 00241 M01S00239.itask +++|* (TMSW) = MESSAGE IF S .EQ. 0. 00242 M01S00240.itask +++|* = RC IF S .EQ. 1. 00243 M01S00241.itask +++|* 00244 M01S00242.itask +++|* DB DATA BASE FOR TERMINAL 00245 M01S00243.itask +++|* UA USER ARGUMENT FIELD FOR TERMINAL 00246 M01S00244.itask +++|* SEQ TRANSACTION SEQUENCE NUMBER 00247 M01S00245.itask +++|* TN TERMINAL NAME 00248 M01S00246.itask +++|* 00249 M01S00247.itask +++|* S =1 IF SYSTEM ORIGIN TRANSACTION. 00250 M01S00248.itask +++|* P =1 IF PARITY ERROR OCCURRED ON TERMINAL INPUT. 00251 M01S00249.itask +++|* B =1 IF TRANSACTION INPUT CAME FROM BATCH. 00252 M01S00250.itask +++|* M =1 IF MULTIPLE COMMUNICATION BLOCKS USED. 00253 M01S00251.itask +++|* WC MESSAGE LENGTH IN WORDS. 00254 M01S00252.itask +++|* 00255 M01S00253.itask +++|* RC = 1 IMPLIES SYSTEM TIMED ACTIVATION. 00256 M01S00254.itask +++|* = 2 IMPLIES IDLE DOWN (K.IDLE). 00257 M01S00255.itask +++|* = 3 IMPLIES RECOVERY HAS TAKEN PLACE. 00258 M01S00256.itask +++|* = 4 IMPLIES TERMINAL LOGIN. 00259 M01S00257.itask +++|* = 5 IMPLIES SYSTEM MESSAGE. 00260 M01S00258.itask +++|* SYSTEM MESSAGE IS HANDLED BY *SYSMSG* TASK 00261 M01S00259.itask +++|* NOT BY ITASK. 00262 M01S00260.itask +++|* = 6 IMPLIES TERMINAL BREAK FROM NAM. 00263 M01S00261.itask +++|* = 7 IMPLIES TERMINAL CONNECTION BROKEN FROM NAM 00264 M01S00262.itask +++|* = 8 IMPLIES NETWORK SHUT DOWN -NORMAL. 00265 M01S00263.itask +++|* = 9 IMPLIES NAM ABORTED. 00266 M01S00264.itask +++|* = 10 IMPLIES NETWORK SHUT DOWN - FORCED. 00267 M01S00265.itask +++|* = 11 IMPLIES TERMINAL INACTIVE.
| Line S00266 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2337 |
Seq # *Modification Id* Act ----------------------------+ 00268 M02S00266.ns2337 ---|* = 12 IMPLIES STOP ON DOWN LINE CONNECTION.
| Line S00267 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2337 |
Seq # *Modification Id* Act ----------------------------+ 00269 M02S00267.ns2337 ---|* = 13 IMPLIES START ON DOWN LINE CONNECTION. 00270 M01S00268.itask +++|* = 14 IMPLIES LOGICAL ERROR. 00271 M01S00269.itask +++|* = 15 IMPLIES BLOCK NOT DELIVERED. 00272 M01S00270.itask +++|* = 16 IMPLIES TERMINAL CHARACTERISTICS. 00273 M01S00271.itask +++|* = 17 IMPLIES INPUT TOO LARGE. 00274 M01S00272.itask +++|* = 18 IMPLIES TERMINAL STATUS REQUEST. 00275 M01S00273.itask +++|* 00276 M01S00274.itask +++|* SEE COMMON DECK *COMKSTC* FOR SYBOLS AND THEIR VALUES. 00277 M01S00275.itask +++|* 00278 M01S00276.itask +++|* FOR CODES 1, 2, 3, 8, 9, AND 10 00279 M01S00277.itask +++|* THE COMMUNICATION BLOCK HEADER CONTAINS ZERO FOR TERMINAL 00280 M01S00278.itask +++|* NAME AND USER AREA, THE DATA BASE IS *SY* WITH SECURITY 00281 M01S00279.itask +++|* CODES OF 7. 00282 M01S00280.itask +++|* 00283 M01S00281.itask +++|* FOR CODE 4, THE COMMUNICATION BLOCK HEADER IS SET UP WITH 00284 M01S00282.itask +++|* THE FOLLOWING INFORMATION FOR THE TERMINAL LOGGED IN. 00285 M01S00283.itask +++|* 00286 M01S00284.itask +++|* (TMSW+1) = 23/ ,12/BSZ,1/HW/8/DT,8/PW,8/PL 00287 M01S00285.itask +++|* 00288 M01S00286.itask +++|* BSZ = BLOCK SIZE. (IN CHARACTERS, BITS 25-37) 00289 M01S00287.itask +++|* HW = HARD WIRED LINE. (BIT 24) 00290 M01S00288.itask +++|* DT = DEVICE TYPE/TERMINAL CLASS. (BIT 16-23) 00291 M01S00289.itask +++|* PW = PAGE WIDTH OF TERMINAL. (BIT 8-15) 00292 M01S00290.itask +++|* PL = PAGE LENGTH OF TERMINAL. (BIT 0-7) 00293 M01S00291.itask +++|* 00294 M01S00292.itask +++|* FOR CODES 6, 7, AND 11 - 17 00295 M01S00293.itask +++|* THE COMMUNICATION BLOCK IS SET UP WITH NORMAL SEQUENCE 00296 M01S00294.itask +++|* NUMBER, TERMINAL NAME OF MALFUNCTION, THE DATA BASE FOR 00297 M01S00295.itask +++|* THE TERMINAL, READ AND UPDATE SECURITY OF 7 AND THE NETWORK 00298 M01S00296.itask +++|* SUPERVISORY MESSAGE IS FORMED IN (TMSW+1). 00299 M01S00297.itask +++|* 00300 M01S00298.itask +++|* THE FORMATS OF NETWORK SUPERVISORY MESSAGES ARE GIVEN IN 00301 M01S00299.itask +++|* COMMON DECK *COMKNWF*. THE VALUES FOR THE FIELDS ARE GIVEN 00302 M01S00300.itask +++|* IN COMMON DECK *COMSNCD*. 00303 M01S00301.itask +++|* 00304 M01S00302.itask +++|* USES A - 1, 2, 5, 6, 7. 00305 M01S00303.itask +++|* B - 3. 00306 M01S00304.itask +++|* X - 0, 1, 2, 5, 6, 7. 00307 M01S00305.itask +++|* 00308 M01S00306.itask +++|* CALLS BIN, CBT, CCS, CTL, CYB. 00309 M01S00307.itask +++|* 00310 M01S00308.itask +++|* MACROS CALLTRN, CALLTSK, CEASE, FMSG, JOURNL, SCALL, SEND. 00311 M01S00309.itask +++| 00312 M01S00310.itask +++| 00313 M01S00311.itask +++| ITASK SB1 1 ENTRY 00314 M01S00312.itask +++| SA2 TNAM 00315 M01S00313.itask +++| SA5 A2+B1 SYSTEM TRANSACTION CODE 00316 M01S00314.itask +++| LX2 59-CBSYS LEFT JUSTIFY SYSTEM ORIGIN 00317 M01S00315.itask +++| SA1 A2-B1 00318 M01S00316.itask +++| SX0 X5 00319 M01S00317.itask +++| NG X2,ITA1 IF SYSTEM ORIGIN TRANSACTION 00320 M01S00318.itask +++| BX3 X2 00321 M01S00319.itask +++| LX2 59-CBIDS-59+CBSYS 00322 M01S00320.itask +++| NG X2,ITA15 IF OPERATOR IDLE DOWN 00323 M01S00321.itask +++| LX3 59-CBCDS-59+CBSYS 00324 M01S00322.itask +++| NG X3,ITA16 IF CDCS ABORTED 00325 M01S00323.itask +++| 00326 M01S00324.itask +++|* IF INPUT FOUND IN TRANSACTION, SUBTRANSACTION TABLES 00327 M01S00325.itask +++|* SCHEDULE TRANSACTION UNIT SPECIFIED BY TABLES. OTHERWISE 00328 M01S00326.itask +++|* USE INPUT AS TRANSACTION UNIT TO SCHEDULE. 00329 M01S00327.itask +++| 00330 M01S00328.itask +++| RJ CYB PROCESS INPUT 00331 M01S00329.itask +++| NZ X1,ITA8 IF TRANSACTION UNIT FOUND 00332 M01S00330.itask +++| RJ CCS CHECK CHARACTER STRING 00333 M01S00331.itask +++| ZR X1,ITA7 IF NO TRANSACTION UNIT TO SCHEDULE 00334 M01S00332.itask +++| EQ ITA8 SCHEDULE TRANSACTION UNIT 00335 M01S00333.itask +++| 00336 M01S00334.itask +++|* DETERMINE PROCESSOR FOR SYSTEM ORIGIN TRANSACTION. 00337 M01S00335.itask +++| 00338 M01S00336.itask +++| ITA1 LX0 -1 00339 M01S00337.itask +++| SX6 X0-TITAL 00340 M01S00338.itask +++| SB3 X0 00341 M01S00339.itask +++| PL X6,ITA14 IF UNKNOWN REASON CODE 00342 M01S00340.itask +++| JP B3+TITA JUMP THRU TABLE 00343 M01S00341.itask +++| 00344 M01S00342.itask +++| TITA PL X0,ITA14 IF UNKNOWN REASON CODE 00345 M01S00343.itask +++| EQ ITA13 IF SYSTEM TIMED ACTIVATION 00346 M01S00344.itask +++| PL X0,ITA13 IF IDLE 00347 M01S00345.itask +++| EQ ITA13 IF RECOVERY HAS TAKEN PLACE 00348 M01S00346.itask +++| PL X0,ITA2 IF TERMINAL LOG IN 00349 M01S00347.itask +++| EQ ITA13 IF SYSTEM MESSAGE 00350 M01S00348.itask +++| PL X0,ITA3 IF BREAK 00351 M01S00349.itask +++| EQ ITA12 IF CONNECTION BROKEN 00352 M01S00350.itask +++| PL X0,ITA12 IF NETWORK SHUT DOWN - NORMAL 00353 M01S00351.itask +++| EQ ITA12 IF NETWORK ABORT 00354 M01S00352.itask +++| PL X0,ITA12 IF NETWORK SHUT DOWN - FORCED 00355 M01S00353.itask +++| EQ ITA12 IF TERMINAL INACTIVE
| Line S00354 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2337 |
Seq # *Modification Id* Act ----------------------------+ 00356 M02S00354.ns2337 ---| PL X0,ITA12 IF STOP ON DOWN LINE CONNECTION
| Line S00355 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2337 |
Seq # *Modification Id* Act ----------------------------+ 00357 M02S00355.ns2337 ---| EQ ITA12 IF START ON DOWN LINE CONNECTION 00358 M01S00001.ns2337 +++| PL X0,ITA14 IF UNKNOWN REASON CODE 00359 M01S00002.ns2337 +++| EQ ITA14 IF UNKNOWN REASON CODE 00360 M01S00356.itask +++| PL X0,ITA4 IF TASK LOGICAL ERROR 00361 M01S00357.itask +++| EQ ITA5 IF BLOCK NOT DELIVERED 00362 M01S00358.itask +++| PL X0,ITA12 IF TERMINAL CHARACTERISTICS 00363 M01S00359.itask +++| EQ ITA6 IF INPUT TOO LARGE 00364 M01S00360.itask +++| PL X0,ITA12 IF TERMINAL STATUS REQUEST 00365 M01S00361.itask +++| EQ ITA14 IF UNKNOWN REASON CODE 00366 M01S00362.itask +++| TITAL EQU *-TITA LENGTH OF *ITASK* JUMP TABLE 00367 M01S00363.itask +++| 00368 M01S00364.itask +++|* PROCESS TERMINAL LOG IN. 00369 M01S00365.itask +++| 00370 M01S00366.itask +++| ITA2 SEND ITAF SEND *READY.* 00371 M01S00367.itask +++| SA1 TRSQ FIRST WORD OF COMMUNICATION BLOCK 00372 M01S00368.itask +++| RJ CBT CHECK FOR BINARY TERMINAL 00373 M01S00369.itask +++| ZR X6,ITA13 IF NOT BINARY TERMINAL 00374 M01S00370.itask +++| SA6 ITAE 00375 M01S00371.itask +++| SX7 ITAD BINARY INPUT REQUEST MESSAGE 00376 M01S00372.itask +++| EQ ITA10 SEND MESSAGE AND CEASE 00377 M01S00373.itask +++| 00378 M01S00374.itask +++|* PROCESS TERMINAL BREAK. 00379 M01S00375.itask +++|* APPLICATION MAY WISH TO ACTIVE RECOVERY TASK. 00380 M01S00376.itask +++|
| Line S00377 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00381 M02S00377.ns2233 ---| ITA3 SX7 ITAG *BREAK RECEIVED.* MESSAGE
| Line S00378 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00382 M02S00378.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE 00383 M01S00001.ns2233 +++| ITA3 SX7 1 *BREAK RECEIVED.* MESSAGE CODE 00384 M01S00002.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE 00385 M01S00379.itask +++| 00386 M01S00380.itask +++|* PROCESS TASK LOGICAL ERROR. 00387 M01S00381.itask +++|* APPLICATION MAY WISH TO DUMP THE TASK. 00388 M01S00382.itask +++| 00389 M01S00383.itask +++| ITA4 SX7 ITAH *TASK LOGICAL ERROR.* MESSAGE 00390 M01S00384.itask +++| EQ ITA11 SEND AND JOURNAL MESSAGE THEN CEASE 00391 M01S00385.itask +++| 00392 M01S00386.itask +++|* PROCESS BLOCK NOT DELIVERED. 00393 M01S00387.itask +++|* APPLICATION MAY WISH TO ACTIVE RECOVERY TASK. 00394 M01S00388.itask +++| 00395 M01S00389.itask +++| ITA5 SX7 ITAI *BLOCK LOST.* MESSAGE 00396 M01S00390.itask +++| EQ ITA11 SEND AND JOURNAL MESSAGE THEN CEASE 00397 M01S00391.itask +++| 00398 M01S00392.itask +++|* PROCESS INPUT TOO LARGE. 00399 M01S00393.itask +++|
| Line S00394 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00400 M02S00394.ns2233 ---| ITA6 SX7 ITAJ *INPUT TOO LARGE.* MESSAGE
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00401 M02S00395.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE 00402 M01S00003.ns2233 +++| ITA6 SX7 0 *INPUT TOO LARGE.* MESSAGE CODE 00403 M01S00004.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE 00404 M01S00396.itask +++| 00405 M01S00397.itask +++|* PROCESS NO TRANSACTION UNIT TO SCHEDULE. 00406 M01S00398.itask +++|
| Line S00399 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00407 M02S00399.ns2233 ---| ITA7 SX7 ITAK ILLEGAL TRANSACTION UNIT MESSAGE
| Line S00400 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00408 M02S00400.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE 00409 M01S00005.ns2233 +++| ITA7 SX7 2 ILLEGAL TRANSACTION UNIT MESSAGE CODE 00410 M01S00006.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE 00411 M01S00401.itask +++| 00412 M01S00402.itask +++|* SCHEDULE A TRANSACTION UNIT AND CEASE. 00413 M01S00403.itask +++| 00414 M01S00404.itask +++| ITA8 BX7 X1 00415 M01S00405.itask +++| SA7 ITAA TRANSACTION UNIT NAME 00416 M01S00406.itask +++| RJ CTL CHECK TIME LIST 00417 M01S00407.itask +++| NZ X2,ITA9 IF TIME TO SCHEDULE TRANSACTION UNIT 00418 M01S00408.itask +++| CALLTRN ITAA SCHEDULE TRANSACTION UNIT AND CEASE 00419 M01S00409.itask +++| 00420 M01S00410.itask +++| ITA9 CALLTSK ITAA SCHEDULE THE TIMED TASK 00421 M01S00411.itask +++| SA1 CTLA TRANSACTION UNIT TO SCHEDULE 00422 M01S00412.itask +++| EQ ITA8 SCHEDULE TRANSACTION UNIT 00423 M01S00413.itask +++| 00424 M01S00414.itask +++| ITA10 SEND X7 SEND MESSAGE 00425 M01S00415.itask +++| EQ ITA13 CEASE 00426 M01S00416.itask +++| 00427 M01S00417.itask +++| ITA11 SEND X7 SEND MESSAGE 00428 M01S00418.itask +++| 00429 M01S00419.itask +++|* PROCESS CONNECTION BROKEN, NETWORK ABORT, NETWORK 00430 M01S00420.itask +++|* SHUTDOWN, TERMINAL INACTIVE, STOP AND START ON 00431 M01S00421.itask +++|* DOWNLINE CONNECTION. JOURNAL MESSAGE. 00432 M01S00422.itask +++| 00433 M01S00423.itask +++| ITA12 JOURNL ITAC JOURNAL MESSAGE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2122 |
M02 (Updated by) | ns2122a |
Seq # *Modification Id* Act ----------------------------+ 00434 M02S00001.ns2122a ---| CEASE ITAO EXIT WITHOUT UNLOCKING TERMINAL 00435 M01S00001.ns2122a +++| CEASE -1 EXIT WITHOUT UNLOCKING TERMINAL 00436 M01S00002.ns2122 +++| 00437 M01S00424.itask +++| ITA13 CEASE EXIT WITHOUT SCHEDULING TRANSACTION UNIT 00438 M01S00425.itask +++| 00439 M01S00426.itask +++|* PROCESS UNKNOWN REASON CODE. 00440 M01S00427.itask +++| 00441 M01S00428.itask +++| ITA14 SCALL TMSG,(ITAB) SEND MESSAGE TO DAYFILE 00442 M01S00429.itask +++| CEASE 2 ABNORMAL CEASE WITH DUMP 00443 M01S00430.itask +++| 00444 M01S00431.itask +++|* TAF IS IDLING DOWN, ONLY ACCEPT *EX.LOGT* 00445 M01S00432.itask +++|* AS INPUT. 00446 M01S00433.itask +++| 00447 M01S00434.itask +++| ITA15 SX7 ITAL *TAF IDLING DOWN.* 00448 M01S00435.itask +++| EQ ITA17 SEND MESSAGE AND CEASE 00449 M01S00436.itask +++| 00450 M01S00437.itask +++|* CDCS ABORTED, ONLY ACCEPT *EX.LOGT* 00451 M01S00438.itask +++|* AS INPUT. 00452 M01S00439.itask +++| 00453 M01S00440.itask +++| ITA16 SX7 ITAM *CDCS ABORTED PLEASE WAIT* 00454 M01S00441.itask +++| 00455 M01S00442.itask +++|* CHECK FOR *EX.LOGT*. 00456 M01S00443.itask +++| 00457 M01S00444.itask +++| ITA17 SA1 ITAN 00458 M01S00445.itask +++| IX2 X1-X5 PROCESS INPUT 00459 M01S00446.itask +++| MX1 42 00460 M01S00447.itask +++| BX2 X1*X2 00461 M01S00448.itask +++| NZ X2,ITA10 IF NOT *EX.LOGT* 00462 M01S00449.itask +++| RJ CYB 00463 M01S00007.ns2233 +++| 00464 M01S00008.ns2233 +++| ITA18 SA7 TMSW 00465 M01S00009.ns2233 +++| SA1 ITAO 00466 M01S00010.ns2233 +++| BX7 X1 00467 M01S00011.ns2233 +++| SA7 ITAA 00468 M01S00012.ns2233 +++| CALLTSK ITAA,CEASE 00469 M01S00013.ns2233 +++| 00470 M01S00450.itask +++| EQ ITA8 PROCESS *EX.LOGT* 00471 M01S00451.itask +++| ITAA BSSZ 2 TRANSACTION UNIT LIST FOR *CALLTRN* 00472 M01S00452.itask +++| ITAB DATA C* UNKNOWN REASON CODE.* 00473 M01S00453.itask +++| ITAC VFD 6/0,18/0,18/2,18/TRSQ 00474 M01S00454.itask +++| ITAD VFD 12/0,18/ITAE,12/0,18/ITAEL SEND CONTROL WORD 00475 M01S00455.itask +++| ITAE CON 0 00476 M01S00456.itask +++| ITAEL EQU *-ITAE 00477 M01S00457.itask +++| ITAF FMSG READY.
| Line S00458 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00478 M02S00458.ns2233 ---| ITAG FMSG (BREAK RECEIVED.) 00479 M01S00459.itask +++| ITAH FMSG (TASK LOGICAL ERROR.) 00480 M01S00460.itask +++| ITAI FMSG (BLOCK LOST.)
| Line S00461 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00481 M02S00461.ns2233 ---| ITAJ FMSG (INPUT TOO LARGE.)
| Line S00462 Modification History | |
|---|---|
M01 (Added by) | itask |
M02 (Updated by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00482 M02S00462.ns2233 ---| ITAK FMSG (UNKNOWN NAMED TRANSACTION REQUESTED FOR SCHEDULING.) 00483 M01S00463.itask +++| ITAL FMSG (TAF IDLING DOWN.) 00484 M01S00464.itask +++| ITAM FMSG (CDCS ABORTED PLEASE WAIT.) 00485 M01S00465.itask +++| ITAN VFD 60/0LEX.LOGT 00486 M01S00014.ns2233 +++| ITAO VFD 60/0LSTASK
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2122 |
M02 (Updated by) | ns2122a |
Seq # *Modification Id* Act ----------------------------+ 00487 M02S00003.ns2122a ---| ITAO CON -1 DO NOT UNLOCK TERMINAL 00488 M01S00466.itask +++| CYB TITLE CYBERLOAN/NIXDORF INPUT PROCESSING. 00489 M01S00467.itask +++| CYB SPACE 4,20 00490 M01S00468.itask +++|** CYB - CYBERLOAN INPUT PROCESSING. 00491 M01S00469.itask +++|* 00492 M01S00470.itask +++|* THE FIRST THREE CHARACTERS OF INPUT ARE USED 00493 M01S00471.itask +++|* TO DETERMINE WHICH TRANSACTION UNIT TO CALL. 00494 M01S00472.itask +++|* 00495 M01S00473.itask +++|* ENTRY (X5) = FIRST WORD OF DATA MESSAGE. 00496 M01S00474.itask +++|* 00497 M01S00475.itask +++|* EXIT (X1) = TRANSACTION UNIT TO SCHEDULE. 00498 M01S00476.itask +++|* = 0, IF NO TRANSACTION UNIT TO SCHEDULE. 00499 M01S00477.itask +++|* 00500 M01S00478.itask +++|* USES A - 1, 2, 7. 00501 M01S00479.itask +++|* B - 2, 3. 00502 M01S00480.itask +++|* X - 0, 1, 2, 5, 7. 00503 M01S00481.itask +++|* 00504 M01S00482.itask +++|* CALLS BIN. 00505 M01S00483.itask +++| 00506 M01S00484.itask +++| 00507 M01S00485.itask +++| CYB SUBR ENTRY/EXIT 00508 M01S00486.itask +++| 00509 M01S00487.itask +++|* THE FIRST CHARACTER OF INPUT DETERMINES THE 00510 M01S00488.itask +++|* SUBTRANSACTION TABLE. 00511 M01S00489.itask +++| 00512 M01S00490.itask +++| MX2 -6 00513 M01S00491.itask +++| LX5 6 00514 M01S00492.itask +++| BX2 -X2*X5 TRANSACTION CODE 00515 M01S00493.itask +++| MX0 12 00516 M01S00494.itask +++| SA2 X2+TRANT INDEX TO SUB TRANSACTION CODES 00517 M01S00495.itask +++| BX7 X0*X5 SUB TRANSACTION CODES 00518 M01S00496.itask +++| UX2,B3 X2 00519 M01S00497.itask +++| SB2 X2 START OF SUB TRANSACTION CODES 00520 M01S00498.itask +++| 00521 M01S00499.itask +++|* CHARACTERS 2 AND 3 DETERMINE THE TRANSACTION UNIT 00522 M01S00500.itask +++|* TO SCHEDULE FROM THE SUBTRANSACTION TABLE. 00523 M01S00501.itask +++| 00524 M01S00502.itask +++| RJ BIN SEARCH SUB TRANSACTION CODE TABLE 00525 M01S00503.itask +++| ZR X3,CYB1 IF ILLEGAL SUB-TRANSACTION CODE 00526 M01S00504.itask +++| LX1 18 00527 M01S00505.itask +++| MX7 42 00528 M01S00506.itask +++| BX1 X7*X1 TRANSACTION UNIT NAME TO SCHEDULE 00529 M01S00507.itask +++| EQ CYBX RETURN 00530 M01S00508.itask +++| 00531 M01S00509.itask +++| CYB1 SX1 X3 NO TRANSACTION UNIT TO SCHEDULE 00532 M01S00510.itask +++| LX5 -6 REPOSITION TERMINAL INPUT 00533 M01S00511.itask +++| EQ CYBX RETURN 00534 M01S00512.itask +++| BIN SPACE 4,15 00535 M01S00513.itask +++|** BIN - BINARY SEARCH TABLE. 00536 M01S00514.itask +++|* 00537 M01S00515.itask +++|* ENTRY (X0) = MASK. 00538 M01S00516.itask +++|* (X7) = CRITERION. 00539 M01S00517.itask +++|* (B2) = START OF TABLE. 00540 M01S00518.itask +++|* (B3) = LENGTH OF TABLE. 00541 M01S00519.itask +++|* 00542 M01S00520.itask +++|* EXIT (X3) = 0 IF MATCH NOT FOUND. 00543 M01S00521.itask +++|* (X1) = ENTRY IF MATCH. 00544 M01S00522.itask +++|* 00545 M01S00523.itask +++|* USES A - 1. 00546 M01S00524.itask +++|* B - 2, 3. 00547 M01S00525.itask +++|* X - 1, 2, 3, 6. 00548 M01S00526.itask +++| 00549 M01S00527.itask +++| 00550 M01S00528.itask +++| BIN SUBR ENTRY/EXIT 00551 M01S00529.itask +++| SX3 B3+ 00552 M01S00530.itask +++| SB3 B2+B3 00553 M01S00531.itask +++| SB3 B3-B1 00554 M01S00532.itask +++| ZR X3,BINX IF THERE ARE NO ELEMENTS TO SEARCH 00555 M01S00533.itask +++| BIN1 SX3 B3-B2 00556 M01S00534.itask +++| AX3 1 00557 M01S00535.itask +++| SA1 X3+B2 TABLE ENTRY 00558 M01S00536.itask +++| NO 00559 M01S00537.itask +++| BX2 X0*X1 00560 M01S00538.itask +++| IX6 X2-X7 00561 M01S00539.itask +++| NG X6,BIN2 IF RAISE LOWER LIMIT 00562 M01S00540.itask +++| ZR X6,BIN3 IF FOUND ENTRY 00563 M01S00541.itask +++| SB3 A1-1 LOWER UPPER LIMIT 00564 M01S00542.itask +++| GE B3,B2,BIN1 IF NOT END OF TABLE 00565 M01S00543.itask +++| SX3 0 00566 M01S00544.itask +++| EQ BINX RETURN - NO MATCH FOUND 00567 M01S00545.itask +++| 00568 M01S00546.itask +++| BIN2 SB2 A1+B1 00569 M01S00547.itask +++| LE B2,B3,BIN1 IF NOT END OF TABLE 00570 M01S00548.itask +++| BX3 X3-X3 00571 M01S00549.itask +++| EQ BINX RETURN - NO MATCH FOUND 00572 M01S00550.itask +++| 00573 M01S00551.itask +++| BIN3 SX3 1 00574 M01S00552.itask +++| EQ BINX RETURN - MATCH FOUND 00575 M01S00553.itask +++| ITASK SPACE 4,15 00576 M01S00554.itask +++|** CCS - CHECK CHARACTER STRING FOR TRANSACTION UNIT NAME. 00577 M01S00555.itask +++|* 00578 M01S00556.itask +++|* THE FIRST ONE TO SEVEN ALPHANUMERIC CHARACTERS OF INPUT 00579 M01S00557.itask +++|* ARE USED TO DETERMINE WHICH TRANSACTION UNIT TO SCHEDULE. 00580 M01S00558.itask +++|* 00581 M01S00559.itask +++|* ENTRY (X5) = FIRST WORD OF TERMINAL INPUT. 00582 M01S00560.itask +++|* 00583 M01S00561.itask +++|* EXIT (X1) = TRANSACTION UNIT TO SCHEDULE. 00584 M01S00562.itask +++|* = 0, IF NO TRANSACTION UNIT TO SCHEDULE. 00585 M01S00563.itask +++|* 00586 M01S00564.itask +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00587 M01S00565.itask +++|* B - 2, 3. 00588 M01S00566.itask +++| 00589 M01S00567.itask +++| 00590 M01S00568.itask +++| CCS SUBR ENTRY/EXIT 00591 M01S00569.itask +++| MX2 48 EIGHT CHARACTER MASK 00592 M01S00570.itask +++| SB2 6 00593 M01S00571.itask +++| BX6 X6-X6 CLEAR TRANSACTION UNIT NAME 00594 M01S00572.itask +++| SX0 1R+ 00595 M01S00573.itask +++| BX5 X5*X2 MASK OFF CHARACTER STRING 00596 M01S00574.itask +++| MX3 -6 ONE CHARACTER MASK 00597 M01S00575.itask +++| SB3 60 00598 M01S00576.itask +++| LX5 6 POSITION TERMINAL INPUT 00599 M01S00577.itask +++| BX1 X6 00600 M01S00578.itask +++| CCS1 BX4 -X3*X5 GET A CHARACTER 00601 M01S00579.itask +++| ZR X4,CCS2 IF END OF TRANSACTION UNIT NAME 00602 M01S00580.itask +++| IX2 X4-X0 00603 M01S00581.itask +++| PL X2,CCS3 IF NOT ALPHANUMERIC 00604 M01S00582.itask +++| LX6 6 00605 M01S00583.itask +++| SB3 B3-B2 00606 M01S00584.itask +++| BX6 X6+X4 TRANSFER A CHARACTER 00607 M01S00585.itask +++| LX5 6 00608 M01S00586.itask +++| EQ CCS1 LOOP FOR NEXT CHARACTER 00609 M01S00587.itask +++| 00610 M01S00588.itask +++| CCS2 SB2 12 00611 M01S00589.itask +++| EQ B2,B3,CCSX IF TOO MANY CHARACTERS 00612 M01S00590.itask +++| CCS3 ZR X6,CCSX IF ZERO LENGTH TRANSACTION UNIT NAME 00613 M01S00591.itask +++| LX6 X6,B3 POSITION TRNASACTION UNIT NAME 00614 M01S00592.itask +++| BX1 X6 00615 M01S00593.itask +++| EQ CCSX RETURN 00616 M01S00594.itask +++| CTL SPACE 4,20 00617 M01S00595.itask +++|** CTL - CHECK TIMED TRANSACTION UNIT LIST. 00618 M01S00596.itask +++|* 00619 M01S00597.itask +++|* THIS ROUTINE CHECKS TIME DEPENDENT TRANSACTION UNITS. 00620 M01S00598.itask +++|* IF IT IS TIME TO SCHEDULE A TRANSACTION UNIT THEN (X2) = 00621 M01S00599.itask +++|* THE ADDRESS OF THE TRANSACTION UNIT, OTHERWISE (X2) = 0. 00622 M01S00600.itask +++|* 00623 M01S00601.itask +++|* APPLICATIONS MAY WISH TO GENERATE TIME DEPENDENT TRANS- 00624 M01S00602.itask +++|* ACTION TABLES BY MACRO *TIMCNT* AND CHANGE THIS ROUTINE 00625 M01S00603.itask +++|* TO SEARCH FOR THE PROPER TRANSACTION UNIT TO SCHEDULE. 00626 M01S00604.itask +++|* DEFAULT VALUE FOR *TAF* IS NO TIMED TRANSACTION UNIT. 00627 M01S00605.itask +++|* 00628 M01S00606.itask +++|* ENTRY NONE. 00629 M01S00607.itask +++|* 00630 M01S00608.itask +++|* EXIT (X2) = FWA OF TRANSACTION UNIT TO SCHEDULE. 00631 M01S00609.itask +++|* (X2) = 0 IF NOT TIME TO SCHEDULE TIMED TRANSACTION. 00632 M01S00610.itask +++|* 00633 M01S00611.itask +++|* USES X - 2. 00634 M01S00612.itask +++| 00635 M01S00613.itask +++| 00636 M01S00614.itask +++| CTL SUBR ENTRY/EXIT 00637 M01S00615.itask +++| SX2 0 00638 M01S00616.itask +++| EQ CTLX RETURN 00639 M01S00617.itask +++| 00640 M01S00618.itask +++| CTLA BSS 1 NEXT TIMED TRANSACTION UNIT TO SCHEDULE 00641 M01S00619.itask +++| SPACE 4 00642 M01S00620.itask +++|* COMMON DECKS. 00643 M01S00621.itask +++| 00644 M01S00622.itask +++| 00645 M01S00623.itask +++| LIST X 00646 M01S00624.itask +++|*CALL COMKCBT 00647 M01S00625.itask +++|*CALL COMKSTC 00648 M01S00626.itask +++| END ITASK
cdc/nos2.source/opl.opl871/deck/itask.txt · Last modified: by 127.0.0.1