cdc:nos2.source:opl.opl871:deck:itask
Deck ITASK
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.itask +++| IDENT ITASK 00002 M00S00002.itask +++| ENTRY ITASK 00003 M00S00003.itask +++| LCC OVERLAY(ITASK,0,0)
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.253l688 ---| SST BEGN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.253l688 +++| SST BEGN,CMBL 00006 M00S00005.itask +++| SYSCOM B1 00007 M00S00006.itask +++| 00008 M00S00007.itask +++|*COMMENT INITIAL TASK.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00009.itask +++| ITASK TITLE INITIAL TASK. 00012 M00S00010.itask +++| 00013 M00S00011.itask +++|*** INITIAL TASK 00014 M00S00012.itask +++|* M. M. CHEN 1977. 00015 M00S00013.itask +++|* E. D. REDIG. 80/06/20. *TAF* AUTOMATIC RECOVERY. 00016 M00S00014.itask +++| SPACE 4,15 00017 M00S00015.itask +++|*** INITIALIZE TASK IS THE INTERFACE BETWEEN THE TRANSACTION 00018 M00S00016.itask +++|* EXECUTIVE AND USER-S APPLICATION TASK. *ITASK* PROCESSES 00019 M00S00017.itask +++|* ALL TRANSACTION INPUT TO DETERMINE WHICH TRANSACTION UNIT 00020 M00S00018.itask +++|* TO CALL TO FURTHER PROCESS THE INPUT, AND STATUS MESSAGES 00021 M00S00019.itask +++|* CONCERNING THE STATE OF THE TRANSACTION SYSTEM. 00022 M00S00020.itask +++|* 00023 M00S00021.itask +++|* BECAUSE TRANSACTION INPUT WILL VARY FROM APPLICATION TO 00024 M00S00022.itask +++|* APPLICATION, INITIAL TASK WILL HAVE TO VARY TO ADAPT TO 00025 M00S00023.itask +++|* DIFFERENT INPUT FORMATS AND OPERATIONAL CONDITIONS. THIS 00026 M00S00024.itask +++|* INITIAL TASK IS PROVIDED TO SERVE AS AN EXAMPLE. EACH 00027 M00S00025.itask +++|* INSTALLATION WILL NEED ITS OWN INITIAL TASK TO SERVE ITS OWN 00028 M00S00026.itask +++|* SPECIFIC NEEDS. 00029 M00S00027.itask +++| 00030 M00S00028.itask +++| 00031 M00S00029.itask +++| MACROS TITLE MACROS 00032 M00S00030.itask +++|*CALL COMKTAF 00033 M00S00031.itask +++|*CALL COMKFLD 00034 M00S00032.itask +++|*CALL COMKIPR 00035 M00S00033.itask +++|*CALL COMKMAC 00036 M00S00034.itask +++| BEGN BSS 0 SAVE ORIGIN COUNTER 00037 M00S00035.itask +++|*CALL COMKCBD 00038 M00S00036.itask +++| ORG BEGN RESTORE ORIGIN COUNTER 00039 M00S00037.itask +++| 00040 M00S00038.itask +++| NOREF .1,.2 00041 M00S00039.itask +++| .1 SET 0 00042 M00S00040.itask +++| .2 SET 0 00043 M00S00041.itask +++| TIMCNT SPACE 4 00044 M00S00042.itask +++|** TIMCNT - DEFINE A TIME ORIGINATING TASK. 00045 M00S00043.itask +++|* 00046 M00S00044.itask +++| 00047 M00S00045.itask +++| 00048 M00S00046.itask +++| PURGMAC TIMCNT 00049 M00S00047.itask +++| 00050 M00S00048.itask +++| TIMCNT MACRO HH,MM,SS,ADDR 00051 M00S00049.itask +++| VFD 18/ADDR,24/0,6/HH,6/MM,6/SS 00052 M00S00050.itask +++| ENDM 00053 M00S00051.itask +++| TRAN SPACE 4,20 00054 M00S00052.itask +++|** TRAN - DEFINE A TRANSACTION CODE. 00055 M00S00053.itask +++|* 00056 M00S00054.itask +++|* THE *TRAN* MACRO SETS UP ENTRIES FOR THE TABLE OF 00057 M00S00055.itask +++|* TRANSACTION CODES *TRANT*. NOTE - A PARTICULAR 00058 M00S00056.itask +++|* TRAN ENTRY SETS UP THE TRANT ENTRY FOR THE PRECEDING 00059 M00S00057.itask +++|* DECLARED TRANSACTION CODE. *ITASK* ASSUMES THAT 00060 M00S00058.itask +++|* THE *TRANT* TABLE IS SET UP IN DISPLAY ORDER. IT 00061 M00S00059.itask +++|* USES THE DISPLAY CODE VALUE OF THE TRANSACTION CODE 00062 M00S00060.itask +++|* ENTERED BY THE USER TO LOCATE THE PROPER ENTRY IN 00063 M00S00061.itask +++|* *TRANT*. 00064 M00S00062.itask +++|* 00065 M00S00063.itask +++|* TRAN CODE 00066 M00S00064.itask +++|* 00067 M00S00065.itask +++|* ENTRY CODE = ONE-CHARACTER TRANSACTION CODE. 00068 M00S00066.itask +++|* TRANS = SYMBOL SPECIFYING THE RELATIVE ADDRESS 00069 M00S00067.itask +++|* OF SUBTRANSACTION CODES. 00070 M00S00068.itask +++|* 00071 M00S00069.itask +++|* EXIT ENTRY MADE INTO THE TABLE OF TRANSACTION 00072 M00S00070.itask +++|* CODES *TRANT*. 00073 M00S00071.itask +++| 00074 M00S00072.itask +++| 00075 M00S00073.itask +++| PURGMAC TRAN 00076 M00S00074.itask +++| 00077 M00S00075.itask +++| TRAN MACRO A 00078 M00S00076.itask +++| VFD 12/2000B+.1,48/TRANS+.2 00079 M00S00077.itask +++| .2 SET .2+.1 00080 M00S00078.itask +++| .1 SET 0 00081 M00S00079.itask +++| ENDM 00082 M00S00080.itask +++| STRAN SPACE 4,15 00083 M00S00081.itask +++|** STRAN - DEFINE A SUBTRANSACTION CODE. 00084 M00S00082.itask +++|* 00085 M00S00083.itask +++|* THE *STRAN* MACRO MAKES ENTRIES IN THE TABLE OF 00086 M00S00084.itask +++|* SUBTRANSACTION CODES *TRANS*. *TRANS* CONTAINS THE 00087 M00S00085.itask +++|* SUBTRANSACTION CODE AND THE CORRESPONDING NAME OF 00088 M00S00086.itask +++|* THE TRANSACTION UNIT. 00089 M00S00087.itask +++|* 00090 M00S00088.itask +++|* STRAN CODE,TNAME 00091 M00S00089.itask +++|* 00092 M00S00090.itask +++|* ENTRY CODE = TWO-CHARACTER SUBTRANSACTION CODE. 00093 M00S00091.itask +++|* TNAME = NAME OF THE TRANSACTION UNIT TO BE CALLED. 00094 M00S00092.itask +++|* 00095 M00S00093.itask +++|* EXIT ENTRY MADE INTO THE TABLE OF SUBTRANSACTION 00096 M00S00094.itask +++|* CODES *TRANS*. 00097 M00S00095.itask +++| 00098 M00S00096.itask +++| 00099 M00S00097.itask +++| PURGMAC STRAN 00100 M00S00098.itask +++| 00101 M00S00099.itask +++| STRAN MACRO CODE,TNAME 00102 M00S00100.itask +++| STRAN RMT 00103 M00S00101.itask +++| VFD 12/0H_CODE,6/0,42/0L_TNAME 00104 M00S00102.itask +++| STRAN RMT 00105 M00S00103.itask +++| .1 SET .1+1 ADVANCE SUB TRANSACTION CODE COUNT 00106 M00S00104.itask +++| ENDM 00107 M00S00105.itask +++| 00108 M00S00106.itask +++| 00109 M00S00107.itask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK 00110 M00S00108.itask +++| TABLES TITLE TRANSACTION TABLES. 00111 M00S00109.itask +++| TRANT SPACE 4,20 00112 M00S00110.itask +++|** TRANT - TRANSACTION CODE TABLE. 00113 M00S00111.itask +++|* 00114 M00S00112.itask +++|* EACH GROUP OF ENTRIES RELATING TO THE SAME TRANSACTION 00115 M00S00113.itask +++|* CODE IS PLACED IMMEDIATELY FOLLOWING THE *TRANT* ENTRY 00116 M00S00114.itask +++|* FOR THAT CODE, ALTHOUGH THE SUBTRANSACTION TABLE IS 00117 M00S00115.itask +++|* ASSEMBLED ELSEWHERE. THE FOLLOWING IS AN EXAMPLE OF 00118 M00S00116.itask +++|* THE USE OF THE *TRAN* AND *STRAN* MACROS. 00119 M00S00117.itask +++|* 00120 M00S00118.itask +++|* TRANT BSS 0 00121 M00S00119.itask +++|* 00122 M00S00120.itask +++|* TRAN A 00123 M00S00121.itask +++|* 00124 M00S00122.itask +++|* STRAN 02,TNAME1 00125 M00S00123.itask +++|* 00126 M00S00124.itask +++|* STRAN 03,TNAME2 00127 M00S00125.itask +++|* 00128 M00S00126.itask +++|* WHERE, *A* IS THE TRANSACTION CODE, *02* AND *03* ARE 00129 M00S00127.itask +++|* THE SUBTRANSACTION CODES, AND *TNAME1* AND *TNAME2* 00130 M00S00128.itask +++|* ARE THE RESPECTIVE TRANSACTION UNITS TO BE REQUESTED. 00131 M00S00129.itask +++|* 00132 M00S00130.itask +++|* THE DECLARATION OF A TRANSACTION UNIT AND THE ASSOCIATION 00133 M00S00131.itask +++|* OF ATTRIBUTES WITH IT IS ACCOMPLISHED THROUGH *LIBTASK* 00134 M00S00132.itask +++|* DIRECTIVES. 00135 M00S00133.itask +++| 00136 M00S00134.itask +++| 00137 M00S00135.itask +++| TRANT BSS 0 00138 M00S00136.itask +++| LOC 1 00139 M00S00137.itask +++| TRAN A 00140 M00S00138.itask +++| TRAN B 00141 M00S00139.itask +++| TRAN C 00142 M00S00140.itask +++| TRAN D 00143 M00S00141.itask +++| TRAN E 00144 M00S00142.itask +++| STRAN (X.),XTRAN EXECUTE NAMED TASK 00145 M00S00143.itask +++| 00146 M00S00144.itask +++|* CAUTION: THE FOLLOWING IS AN EXAMPLE OF A *LIBTASK* 00147 M00S00145.itask +++|* DIRECTIVE NEEDED FOR THE TRANSACTION UNIT *XTRAN*. 00148 M00S00146.itask +++|* 00149 M00S00147.itask +++|* /XTRAN,T1=XTASK 00150 M00S00148.itask +++| 00151 M00S00149.itask +++| TRAN F 00152 M00S00150.itask +++| TRAN G 00153 M00S00151.itask +++| TRAN H 00154 M00S00152.itask +++| TRAN I 00155 M00S00153.itask +++| TRAN J 00156 M00S00154.itask +++| TRAN K 00157 M00S00155.itask +++| TRAN L 00158 M00S00156.itask +++| TRAN M 00159 M00S00157.itask +++| TRAN N 00160 M00S00158.itask +++| TRAN O 00161 M00S00159.itask +++| TRAN P 00162 M00S00160.itask +++| TRAN Q 00163 M00S00161.itask +++| TRAN R 00164 M00S00162.itask +++| TRAN S 00165 M00S00163.itask +++| TRAN T 00166 M00S00164.itask +++| TRAN U 00167 M00S00165.itask +++| TRAN V 00168 M00S00166.itask +++| TRAN W 00169 M00S00167.itask +++| TRAN X 00170 M00S00168.itask +++| TRAN Y 00171 M00S00169.itask +++| TRAN Z 00172 M00S00170.itask +++| TRAN 0 00173 M00S00171.itask +++| TRAN 1 00174 M00S00172.itask +++| TRAN 2 00175 M00S00173.itask +++| TRAN 3 00176 M00S00174.itask +++| TRAN 4 00177 M00S00175.itask +++| TRAN 5 00178 M00S00176.itask +++| TRAN 6 00179 M00S00177.itask +++| TRAN 7 00180 M00S00178.itask +++| TRAN 8 00181 M00S00179.itask +++| TRAN 9 00182 M00S00180.itask +++| TRAN + 00183 M00S00181.itask +++| TRAN - 00184 M00S00182.itask +++| TRAN * 00185 M00S00183.itask +++| TRAN / 00186 M00S00184.itask +++| TRAN ) 00187 M00S00185.itask +++| TRAN ( 00188 M00S00186.itask +++| TRAN $ 00189 M00S00187.itask +++| TRAN = 00190 M00S00188.itask +++| TRAN 1R 00191 M00S00189.itask +++| TRAN , 00192 M00S00190.itask +++| TRAN . 00193 M00S00191.itask +++| TRAN # 00194 M00S00192.itask +++| TRAN [ 00195 M00S00193.itask +++| TRAN ] 00196 M00S00194.itask +++| TRAN : 00197 M00S00195.itask +++| TRAN " 00198 M00S00196.itask +++| TRAN _ 00199 M00S00197.itask +++| TRAN ! 00200 M00S00198.itask +++| TRAN & 00201 M00S00199.itask +++| TRAN ' 00202 M00S00200.itask +++| TRAN ? 00203 M00S00201.itask +++| TRAN < 00204 M00S00202.itask +++| TRAN : 00205 M00S00203.itask +++| TRAN 00206 M00S00204.itask +++| TRAN \ 00207 M00S00205.itask +++| TRAN 00208 M00S00206.itask +++| TRAN ; 00209 M00S00207.itask +++| TRAN 00210 M00S00208.itask +++| LOC *O 00211 M00S00209.itask +++| STAN SPACE 4,10 00212 M00S00210.itask +++|** SUBTRANSACTION CODE TABLES. 00213 M00S00211.itask +++|* 00214 M00S00212.itask +++| 00215 M00S00213.itask +++| 00216 M00S00214.itask +++| TRANS BSS 0 00217 M00S00215.itask +++| STRAN HERE 00218 M00S00216.itask +++| TTOT SPACE 4,10 00219 M00S00217.itask +++|** TABLE OF TIME ORIGINATING TASKS. 00220 M00S00218.itask +++|* TIMCNT MACROS WOULD BE PUT IN THIS TABLE. 00221 M00S00219.itask +++| 00222 M00S00220.itask +++| 00223 M00S00221.itask +++| TTOT BSS 0 00224 M00S00222.itask +++| TTOTL EQU *-TTOT 00225 M00S00223.itask +++| 00226 M00S00224.itask +++| 00227 M00S00225.itask +++| ITASK TITLE ITASK 00228 M00S00226.itask +++| ITASK SPACE 4,80 00229 M00S00227.itask +++|** ITASK - PROCESS TRANSACTION INPUT. 00230 M00S00228.itask +++|* 00231 M00S00229.itask +++|* *ITASK* EXTRACTS THE DATA BASE NAME FROM THE COMMUNICATION 00232 M00S00230.itask +++|* BLOCK AND SEARCHES A DATA BASE NAME TABLE TO DETERMINE WHAT 00233 M00S00231.itask +++|* INPUT PROCESSING IS NECESSARY. 00234 M00S00232.itask +++|* 00235 M00S00233.itask +++|* *ITASK* MAY BE CALLED WITH SYSTEM ORIGIN TRANSACTIONS, 00236 M00S00234.itask +++|* WITH THE TYPE OF CALL IN WORD *TMSW* OF THE COMMUNICATION 00237 M00S00235.itask +++|* BLOCK. 00238 M00S00236.itask +++|* 00239 M00S00237.itask +++|* ENTRY (TRSQ) = 12/ DB,24/ UA,24/ SEQ 00240 M00S00238.itask +++|* (TNAM) = 42/ TN,1/S,1/P,1/B,2/ ,1/M,12/WC 00241 M00S00239.itask +++|* (TMSW) = MESSAGE IF S .EQ. 0. 00242 M00S00240.itask +++|* = RC IF S .EQ. 1. 00243 M00S00241.itask +++|* 00244 M00S00242.itask +++|* DB DATA BASE FOR TERMINAL 00245 M00S00243.itask +++|* UA USER ARGUMENT FIELD FOR TERMINAL 00246 M00S00244.itask +++|* SEQ TRANSACTION SEQUENCE NUMBER 00247 M00S00245.itask +++|* TN TERMINAL NAME 00248 M00S00246.itask +++|* 00249 M00S00247.itask +++|* S =1 IF SYSTEM ORIGIN TRANSACTION. 00250 M00S00248.itask +++|* P =1 IF PARITY ERROR OCCURRED ON TERMINAL INPUT. 00251 M00S00249.itask +++|* B =1 IF TRANSACTION INPUT CAME FROM BATCH. 00252 M00S00250.itask +++|* M =1 IF MULTIPLE COMMUNICATION BLOCKS USED. 00253 M00S00251.itask +++|* WC MESSAGE LENGTH IN WORDS. 00254 M00S00252.itask +++|* 00255 M00S00253.itask +++|* RC = 1 IMPLIES SYSTEM TIMED ACTIVATION. 00256 M00S00254.itask +++|* = 2 IMPLIES IDLE DOWN (K.IDLE). 00257 M00S00255.itask +++|* = 3 IMPLIES RECOVERY HAS TAKEN PLACE. 00258 M00S00256.itask +++|* = 4 IMPLIES TERMINAL LOGIN. 00259 M00S00257.itask +++|* = 5 IMPLIES SYSTEM MESSAGE. 00260 M00S00258.itask +++|* SYSTEM MESSAGE IS HANDLED BY *SYSMSG* TASK 00261 M00S00259.itask +++|* NOT BY ITASK. 00262 M00S00260.itask +++|* = 6 IMPLIES TERMINAL BREAK FROM NAM. 00263 M00S00261.itask +++|* = 7 IMPLIES TERMINAL CONNECTION BROKEN FROM NAM 00264 M00S00262.itask +++|* = 8 IMPLIES NETWORK SHUT DOWN -NORMAL. 00265 M00S00263.itask +++|* = 9 IMPLIES NAM ABORTED. 00266 M00S00264.itask +++|* = 10 IMPLIES NETWORK SHUT DOWN - FORCED. 00267 M00S00265.itask +++|* = 11 IMPLIES TERMINAL INACTIVE.
| Line S00266 Modification History | |
|---|---|
M01 (Removed by) | ns2337 |
Seq # *Modification Id* Act ----------------------------+ 00268 M01S00266.ns2337 ---|* = 12 IMPLIES STOP ON DOWN LINE CONNECTION. 00269 M01S00267.ns2337 ---|* = 13 IMPLIES START ON DOWN LINE CONNECTION. 00270 M00S00268.itask +++|* = 14 IMPLIES LOGICAL ERROR. 00271 M00S00269.itask +++|* = 15 IMPLIES BLOCK NOT DELIVERED. 00272 M00S00270.itask +++|* = 16 IMPLIES TERMINAL CHARACTERISTICS. 00273 M00S00271.itask +++|* = 17 IMPLIES INPUT TOO LARGE. 00274 M00S00272.itask +++|* = 18 IMPLIES TERMINAL STATUS REQUEST. 00275 M00S00273.itask +++|* 00276 M00S00274.itask +++|* SEE COMMON DECK *COMKSTC* FOR SYBOLS AND THEIR VALUES. 00277 M00S00275.itask +++|* 00278 M00S00276.itask +++|* FOR CODES 1, 2, 3, 8, 9, AND 10 00279 M00S00277.itask +++|* THE COMMUNICATION BLOCK HEADER CONTAINS ZERO FOR TERMINAL 00280 M00S00278.itask +++|* NAME AND USER AREA, THE DATA BASE IS *SY* WITH SECURITY 00281 M00S00279.itask +++|* CODES OF 7. 00282 M00S00280.itask +++|* 00283 M00S00281.itask +++|* FOR CODE 4, THE COMMUNICATION BLOCK HEADER IS SET UP WITH 00284 M00S00282.itask +++|* THE FOLLOWING INFORMATION FOR THE TERMINAL LOGGED IN. 00285 M00S00283.itask +++|* 00286 M00S00284.itask +++|* (TMSW+1) = 23/ ,12/BSZ,1/HW/8/DT,8/PW,8/PL 00287 M00S00285.itask +++|* 00288 M00S00286.itask +++|* BSZ = BLOCK SIZE. (IN CHARACTERS, BITS 25-37) 00289 M00S00287.itask +++|* HW = HARD WIRED LINE. (BIT 24) 00290 M00S00288.itask +++|* DT = DEVICE TYPE/TERMINAL CLASS. (BIT 16-23) 00291 M00S00289.itask +++|* PW = PAGE WIDTH OF TERMINAL. (BIT 8-15) 00292 M00S00290.itask +++|* PL = PAGE LENGTH OF TERMINAL. (BIT 0-7) 00293 M00S00291.itask +++|* 00294 M00S00292.itask +++|* FOR CODES 6, 7, AND 11 - 17 00295 M00S00293.itask +++|* THE COMMUNICATION BLOCK IS SET UP WITH NORMAL SEQUENCE 00296 M00S00294.itask +++|* NUMBER, TERMINAL NAME OF MALFUNCTION, THE DATA BASE FOR 00297 M00S00295.itask +++|* THE TERMINAL, READ AND UPDATE SECURITY OF 7 AND THE NETWORK 00298 M00S00296.itask +++|* SUPERVISORY MESSAGE IS FORMED IN (TMSW+1). 00299 M00S00297.itask +++|* 00300 M00S00298.itask +++|* THE FORMATS OF NETWORK SUPERVISORY MESSAGES ARE GIVEN IN 00301 M00S00299.itask +++|* COMMON DECK *COMKNWF*. THE VALUES FOR THE FIELDS ARE GIVEN 00302 M00S00300.itask +++|* IN COMMON DECK *COMSNCD*. 00303 M00S00301.itask +++|* 00304 M00S00302.itask +++|* USES A - 1, 2, 5, 6, 7. 00305 M00S00303.itask +++|* B - 3. 00306 M00S00304.itask +++|* X - 0, 1, 2, 5, 6, 7. 00307 M00S00305.itask +++|* 00308 M00S00306.itask +++|* CALLS BIN, CBT, CCS, CTL, CYB. 00309 M00S00307.itask +++|* 00310 M00S00308.itask +++|* MACROS CALLTRN, CALLTSK, CEASE, FMSG, JOURNL, SCALL, SEND. 00311 M00S00309.itask +++| 00312 M00S00310.itask +++| 00313 M00S00311.itask +++| ITASK SB1 1 ENTRY 00314 M00S00312.itask +++| SA2 TNAM 00315 M00S00313.itask +++| SA5 A2+B1 SYSTEM TRANSACTION CODE 00316 M00S00314.itask +++| LX2 59-CBSYS LEFT JUSTIFY SYSTEM ORIGIN 00317 M00S00315.itask +++| SA1 A2-B1 00318 M00S00316.itask +++| SX0 X5 00319 M00S00317.itask +++| NG X2,ITA1 IF SYSTEM ORIGIN TRANSACTION 00320 M00S00318.itask +++| BX3 X2 00321 M00S00319.itask +++| LX2 59-CBIDS-59+CBSYS 00322 M00S00320.itask +++| NG X2,ITA15 IF OPERATOR IDLE DOWN 00323 M00S00321.itask +++| LX3 59-CBCDS-59+CBSYS 00324 M00S00322.itask +++| NG X3,ITA16 IF CDCS ABORTED 00325 M00S00323.itask +++| 00326 M00S00324.itask +++|* IF INPUT FOUND IN TRANSACTION, SUBTRANSACTION TABLES 00327 M00S00325.itask +++|* SCHEDULE TRANSACTION UNIT SPECIFIED BY TABLES. OTHERWISE 00328 M00S00326.itask +++|* USE INPUT AS TRANSACTION UNIT TO SCHEDULE. 00329 M00S00327.itask +++| 00330 M00S00328.itask +++| RJ CYB PROCESS INPUT 00331 M00S00329.itask +++| NZ X1,ITA8 IF TRANSACTION UNIT FOUND 00332 M00S00330.itask +++| RJ CCS CHECK CHARACTER STRING 00333 M00S00331.itask +++| ZR X1,ITA7 IF NO TRANSACTION UNIT TO SCHEDULE 00334 M00S00332.itask +++| EQ ITA8 SCHEDULE TRANSACTION UNIT 00335 M00S00333.itask +++| 00336 M00S00334.itask +++|* DETERMINE PROCESSOR FOR SYSTEM ORIGIN TRANSACTION. 00337 M00S00335.itask +++| 00338 M00S00336.itask +++| ITA1 LX0 -1 00339 M00S00337.itask +++| SX6 X0-TITAL 00340 M00S00338.itask +++| SB3 X0 00341 M00S00339.itask +++| PL X6,ITA14 IF UNKNOWN REASON CODE 00342 M00S00340.itask +++| JP B3+TITA JUMP THRU TABLE 00343 M00S00341.itask +++| 00344 M00S00342.itask +++| TITA PL X0,ITA14 IF UNKNOWN REASON CODE 00345 M00S00343.itask +++| EQ ITA13 IF SYSTEM TIMED ACTIVATION 00346 M00S00344.itask +++| PL X0,ITA13 IF IDLE 00347 M00S00345.itask +++| EQ ITA13 IF RECOVERY HAS TAKEN PLACE 00348 M00S00346.itask +++| PL X0,ITA2 IF TERMINAL LOG IN 00349 M00S00347.itask +++| EQ ITA13 IF SYSTEM MESSAGE 00350 M00S00348.itask +++| PL X0,ITA3 IF BREAK 00351 M00S00349.itask +++| EQ ITA12 IF CONNECTION BROKEN 00352 M00S00350.itask +++| PL X0,ITA12 IF NETWORK SHUT DOWN - NORMAL 00353 M00S00351.itask +++| EQ ITA12 IF NETWORK ABORT 00354 M00S00352.itask +++| PL X0,ITA12 IF NETWORK SHUT DOWN - FORCED 00355 M00S00353.itask +++| EQ ITA12 IF TERMINAL INACTIVE
| Line S00354 Modification History | |
|---|---|
M01 (Removed by) | ns2337 |
Seq # *Modification Id* Act ----------------------------+ 00356 M01S00354.ns2337 ---| PL X0,ITA12 IF STOP ON DOWN LINE CONNECTION 00357 M01S00355.ns2337 ---| EQ ITA12 IF START ON DOWN LINE CONNECTION
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2337 |
Seq # *Modification Id* Act ----------------------------+ 00358 M01S00001.ns2337 +++| PL X0,ITA14 IF UNKNOWN REASON CODE 00359 M01S00002.ns2337 +++| EQ ITA14 IF UNKNOWN REASON CODE 00360 M00S00356.itask +++| PL X0,ITA4 IF TASK LOGICAL ERROR 00361 M00S00357.itask +++| EQ ITA5 IF BLOCK NOT DELIVERED 00362 M00S00358.itask +++| PL X0,ITA12 IF TERMINAL CHARACTERISTICS 00363 M00S00359.itask +++| EQ ITA6 IF INPUT TOO LARGE 00364 M00S00360.itask +++| PL X0,ITA12 IF TERMINAL STATUS REQUEST 00365 M00S00361.itask +++| EQ ITA14 IF UNKNOWN REASON CODE 00366 M00S00362.itask +++| TITAL EQU *-TITA LENGTH OF *ITASK* JUMP TABLE 00367 M00S00363.itask +++| 00368 M00S00364.itask +++|* PROCESS TERMINAL LOG IN. 00369 M00S00365.itask +++| 00370 M00S00366.itask +++| ITA2 SEND ITAF SEND *READY.* 00371 M00S00367.itask +++| SA1 TRSQ FIRST WORD OF COMMUNICATION BLOCK 00372 M00S00368.itask +++| RJ CBT CHECK FOR BINARY TERMINAL 00373 M00S00369.itask +++| ZR X6,ITA13 IF NOT BINARY TERMINAL 00374 M00S00370.itask +++| SA6 ITAE 00375 M00S00371.itask +++| SX7 ITAD BINARY INPUT REQUEST MESSAGE 00376 M00S00372.itask +++| EQ ITA10 SEND MESSAGE AND CEASE 00377 M00S00373.itask +++| 00378 M00S00374.itask +++|* PROCESS TERMINAL BREAK. 00379 M00S00375.itask +++|* APPLICATION MAY WISH TO ACTIVE RECOVERY TASK. 00380 M00S00376.itask +++|
| Line S00377 Modification History | |
|---|---|
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00381 M01S00377.ns2233 ---| ITA3 SX7 ITAG *BREAK RECEIVED.* MESSAGE 00382 M01S00378.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00383 M01S00001.ns2233 +++| ITA3 SX7 1 *BREAK RECEIVED.* MESSAGE CODE 00384 M01S00002.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE 00385 M00S00379.itask +++| 00386 M00S00380.itask +++|* PROCESS TASK LOGICAL ERROR. 00387 M00S00381.itask +++|* APPLICATION MAY WISH TO DUMP THE TASK. 00388 M00S00382.itask +++| 00389 M00S00383.itask +++| ITA4 SX7 ITAH *TASK LOGICAL ERROR.* MESSAGE 00390 M00S00384.itask +++| EQ ITA11 SEND AND JOURNAL MESSAGE THEN CEASE 00391 M00S00385.itask +++| 00392 M00S00386.itask +++|* PROCESS BLOCK NOT DELIVERED. 00393 M00S00387.itask +++|* APPLICATION MAY WISH TO ACTIVE RECOVERY TASK. 00394 M00S00388.itask +++| 00395 M00S00389.itask +++| ITA5 SX7 ITAI *BLOCK LOST.* MESSAGE 00396 M00S00390.itask +++| EQ ITA11 SEND AND JOURNAL MESSAGE THEN CEASE 00397 M00S00391.itask +++| 00398 M00S00392.itask +++|* PROCESS INPUT TOO LARGE. 00399 M00S00393.itask +++|
| Line S00394 Modification History | |
|---|---|
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00400 M01S00394.ns2233 ---| ITA6 SX7 ITAJ *INPUT TOO LARGE.* MESSAGE 00401 M01S00395.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00402 M01S00003.ns2233 +++| ITA6 SX7 0 *INPUT TOO LARGE.* MESSAGE CODE 00403 M01S00004.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE 00404 M00S00396.itask +++| 00405 M00S00397.itask +++|* PROCESS NO TRANSACTION UNIT TO SCHEDULE. 00406 M00S00398.itask +++|
| Line S00399 Modification History | |
|---|---|
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00407 M01S00399.ns2233 ---| ITA7 SX7 ITAK ILLEGAL TRANSACTION UNIT MESSAGE 00408 M01S00400.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00409 M01S00005.ns2233 +++| ITA7 SX7 2 ILLEGAL TRANSACTION UNIT MESSAGE CODE 00410 M01S00006.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE 00411 M00S00401.itask +++| 00412 M00S00402.itask +++|* SCHEDULE A TRANSACTION UNIT AND CEASE. 00413 M00S00403.itask +++| 00414 M00S00404.itask +++| ITA8 BX7 X1 00415 M00S00405.itask +++| SA7 ITAA TRANSACTION UNIT NAME 00416 M00S00406.itask +++| RJ CTL CHECK TIME LIST 00417 M00S00407.itask +++| NZ X2,ITA9 IF TIME TO SCHEDULE TRANSACTION UNIT 00418 M00S00408.itask +++| CALLTRN ITAA SCHEDULE TRANSACTION UNIT AND CEASE 00419 M00S00409.itask +++| 00420 M00S00410.itask +++| ITA9 CALLTSK ITAA SCHEDULE THE TIMED TASK 00421 M00S00411.itask +++| SA1 CTLA TRANSACTION UNIT TO SCHEDULE 00422 M00S00412.itask +++| EQ ITA8 SCHEDULE TRANSACTION UNIT 00423 M00S00413.itask +++| 00424 M00S00414.itask +++| ITA10 SEND X7 SEND MESSAGE 00425 M00S00415.itask +++| EQ ITA13 CEASE 00426 M00S00416.itask +++| 00427 M00S00417.itask +++| ITA11 SEND X7 SEND MESSAGE 00428 M00S00418.itask +++| 00429 M00S00419.itask +++|* PROCESS CONNECTION BROKEN, NETWORK ABORT, NETWORK 00430 M00S00420.itask +++|* SHUTDOWN, TERMINAL INACTIVE, STOP AND START ON 00431 M00S00421.itask +++|* DOWNLINE CONNECTION. JOURNAL MESSAGE. 00432 M00S00422.itask +++| 00433 M00S00423.itask +++| ITA12 JOURNL ITAC JOURNAL MESSAGE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2122 |
M02 (Removed by) | ns2122a |
Seq # *Modification Id* Act ----------------------------+ 00434 M02S00001.ns2122a ---| CEASE ITAO EXIT WITHOUT UNLOCKING TERMINAL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2122a |
Seq # *Modification Id* Act ----------------------------+ 00435 M01S00001.ns2122a +++| CEASE -1 EXIT WITHOUT UNLOCKING TERMINAL
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2122 |
Seq # *Modification Id* Act ----------------------------+ 00436 M01S00002.ns2122 +++| 00437 M00S00424.itask +++| ITA13 CEASE EXIT WITHOUT SCHEDULING TRANSACTION UNIT 00438 M00S00425.itask +++| 00439 M00S00426.itask +++|* PROCESS UNKNOWN REASON CODE. 00440 M00S00427.itask +++| 00441 M00S00428.itask +++| ITA14 SCALL TMSG,(ITAB) SEND MESSAGE TO DAYFILE 00442 M00S00429.itask +++| CEASE 2 ABNORMAL CEASE WITH DUMP 00443 M00S00430.itask +++| 00444 M00S00431.itask +++|* TAF IS IDLING DOWN, ONLY ACCEPT *EX.LOGT* 00445 M00S00432.itask +++|* AS INPUT. 00446 M00S00433.itask +++| 00447 M00S00434.itask +++| ITA15 SX7 ITAL *TAF IDLING DOWN.* 00448 M00S00435.itask +++| EQ ITA17 SEND MESSAGE AND CEASE 00449 M00S00436.itask +++| 00450 M00S00437.itask +++|* CDCS ABORTED, ONLY ACCEPT *EX.LOGT* 00451 M00S00438.itask +++|* AS INPUT. 00452 M00S00439.itask +++| 00453 M00S00440.itask +++| ITA16 SX7 ITAM *CDCS ABORTED PLEASE WAIT* 00454 M00S00441.itask +++| 00455 M00S00442.itask +++|* CHECK FOR *EX.LOGT*. 00456 M00S00443.itask +++| 00457 M00S00444.itask +++| ITA17 SA1 ITAN 00458 M00S00445.itask +++| IX2 X1-X5 PROCESS INPUT 00459 M00S00446.itask +++| MX1 42 00460 M00S00447.itask +++| BX2 X1*X2 00461 M00S00448.itask +++| NZ X2,ITA10 IF NOT *EX.LOGT* 00462 M00S00449.itask +++| RJ CYB
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00450.itask +++| EQ ITA8 PROCESS *EX.LOGT* 00471 M00S00451.itask +++| ITAA BSSZ 2 TRANSACTION UNIT LIST FOR *CALLTRN* 00472 M00S00452.itask +++| ITAB DATA C* UNKNOWN REASON CODE.* 00473 M00S00453.itask +++| ITAC VFD 6/0,18/0,18/2,18/TRSQ 00474 M00S00454.itask +++| ITAD VFD 12/0,18/ITAE,12/0,18/ITAEL SEND CONTROL WORD 00475 M00S00455.itask +++| ITAE CON 0 00476 M00S00456.itask +++| ITAEL EQU *-ITAE 00477 M00S00457.itask +++| ITAF FMSG READY.
| Line S00458 Modification History | |
|---|---|
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00478 M01S00458.ns2233 ---| ITAG FMSG (BREAK RECEIVED.) 00479 M00S00459.itask +++| ITAH FMSG (TASK LOGICAL ERROR.) 00480 M00S00460.itask +++| ITAI FMSG (BLOCK LOST.)
| Line S00461 Modification History | |
|---|---|
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00481 M01S00461.ns2233 ---| ITAJ FMSG (INPUT TOO LARGE.) 00482 M01S00462.ns2233 ---| ITAK FMSG (UNKNOWN NAMED TRANSACTION REQUESTED FOR SCHEDULING.) 00483 M00S00463.itask +++| ITAL FMSG (TAF IDLING DOWN.) 00484 M00S00464.itask +++| ITAM FMSG (CDCS ABORTED PLEASE WAIT.) 00485 M00S00465.itask +++| ITAN VFD 60/0LEX.LOGT
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act ----------------------------+ 00486 M01S00014.ns2233 +++| ITAO VFD 60/0LSTASK
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2122 |
M02 (Removed by) | ns2122a |
Seq # *Modification Id* Act ----------------------------+ 00487 M02S00003.ns2122a ---| ITAO CON -1 DO NOT UNLOCK TERMINAL 00488 M00S00466.itask +++| CYB TITLE CYBERLOAN/NIXDORF INPUT PROCESSING. 00489 M00S00467.itask +++| CYB SPACE 4,20 00490 M00S00468.itask +++|** CYB - CYBERLOAN INPUT PROCESSING. 00491 M00S00469.itask +++|* 00492 M00S00470.itask +++|* THE FIRST THREE CHARACTERS OF INPUT ARE USED 00493 M00S00471.itask +++|* TO DETERMINE WHICH TRANSACTION UNIT TO CALL. 00494 M00S00472.itask +++|* 00495 M00S00473.itask +++|* ENTRY (X5) = FIRST WORD OF DATA MESSAGE. 00496 M00S00474.itask +++|* 00497 M00S00475.itask +++|* EXIT (X1) = TRANSACTION UNIT TO SCHEDULE. 00498 M00S00476.itask +++|* = 0, IF NO TRANSACTION UNIT TO SCHEDULE. 00499 M00S00477.itask +++|* 00500 M00S00478.itask +++|* USES A - 1, 2, 7. 00501 M00S00479.itask +++|* B - 2, 3. 00502 M00S00480.itask +++|* X - 0, 1, 2, 5, 7. 00503 M00S00481.itask +++|* 00504 M00S00482.itask +++|* CALLS BIN. 00505 M00S00483.itask +++| 00506 M00S00484.itask +++| 00507 M00S00485.itask +++| CYB SUBR ENTRY/EXIT 00508 M00S00486.itask +++| 00509 M00S00487.itask +++|* THE FIRST CHARACTER OF INPUT DETERMINES THE 00510 M00S00488.itask +++|* SUBTRANSACTION TABLE. 00511 M00S00489.itask +++| 00512 M00S00490.itask +++| MX2 -6 00513 M00S00491.itask +++| LX5 6 00514 M00S00492.itask +++| BX2 -X2*X5 TRANSACTION CODE 00515 M00S00493.itask +++| MX0 12 00516 M00S00494.itask +++| SA2 X2+TRANT INDEX TO SUB TRANSACTION CODES 00517 M00S00495.itask +++| BX7 X0*X5 SUB TRANSACTION CODES 00518 M00S00496.itask +++| UX2,B3 X2 00519 M00S00497.itask +++| SB2 X2 START OF SUB TRANSACTION CODES 00520 M00S00498.itask +++| 00521 M00S00499.itask +++|* CHARACTERS 2 AND 3 DETERMINE THE TRANSACTION UNIT 00522 M00S00500.itask +++|* TO SCHEDULE FROM THE SUBTRANSACTION TABLE. 00523 M00S00501.itask +++| 00524 M00S00502.itask +++| RJ BIN SEARCH SUB TRANSACTION CODE TABLE 00525 M00S00503.itask +++| ZR X3,CYB1 IF ILLEGAL SUB-TRANSACTION CODE 00526 M00S00504.itask +++| LX1 18 00527 M00S00505.itask +++| MX7 42 00528 M00S00506.itask +++| BX1 X7*X1 TRANSACTION UNIT NAME TO SCHEDULE 00529 M00S00507.itask +++| EQ CYBX RETURN 00530 M00S00508.itask +++| 00531 M00S00509.itask +++| CYB1 SX1 X3 NO TRANSACTION UNIT TO SCHEDULE 00532 M00S00510.itask +++| LX5 -6 REPOSITION TERMINAL INPUT 00533 M00S00511.itask +++| EQ CYBX RETURN 00534 M00S00512.itask +++| BIN SPACE 4,15 00535 M00S00513.itask +++|** BIN - BINARY SEARCH TABLE. 00536 M00S00514.itask +++|* 00537 M00S00515.itask +++|* ENTRY (X0) = MASK. 00538 M00S00516.itask +++|* (X7) = CRITERION. 00539 M00S00517.itask +++|* (B2) = START OF TABLE. 00540 M00S00518.itask +++|* (B3) = LENGTH OF TABLE. 00541 M00S00519.itask +++|* 00542 M00S00520.itask +++|* EXIT (X3) = 0 IF MATCH NOT FOUND. 00543 M00S00521.itask +++|* (X1) = ENTRY IF MATCH. 00544 M00S00522.itask +++|* 00545 M00S00523.itask +++|* USES A - 1. 00546 M00S00524.itask +++|* B - 2, 3. 00547 M00S00525.itask +++|* X - 1, 2, 3, 6. 00548 M00S00526.itask +++| 00549 M00S00527.itask +++| 00550 M00S00528.itask +++| BIN SUBR ENTRY/EXIT 00551 M00S00529.itask +++| SX3 B3+ 00552 M00S00530.itask +++| SB3 B2+B3 00553 M00S00531.itask +++| SB3 B3-B1 00554 M00S00532.itask +++| ZR X3,BINX IF THERE ARE NO ELEMENTS TO SEARCH 00555 M00S00533.itask +++| BIN1 SX3 B3-B2 00556 M00S00534.itask +++| AX3 1 00557 M00S00535.itask +++| SA1 X3+B2 TABLE ENTRY 00558 M00S00536.itask +++| NO 00559 M00S00537.itask +++| BX2 X0*X1 00560 M00S00538.itask +++| IX6 X2-X7 00561 M00S00539.itask +++| NG X6,BIN2 IF RAISE LOWER LIMIT 00562 M00S00540.itask +++| ZR X6,BIN3 IF FOUND ENTRY 00563 M00S00541.itask +++| SB3 A1-1 LOWER UPPER LIMIT 00564 M00S00542.itask +++| GE B3,B2,BIN1 IF NOT END OF TABLE 00565 M00S00543.itask +++| SX3 0 00566 M00S00544.itask +++| EQ BINX RETURN - NO MATCH FOUND 00567 M00S00545.itask +++| 00568 M00S00546.itask +++| BIN2 SB2 A1+B1 00569 M00S00547.itask +++| LE B2,B3,BIN1 IF NOT END OF TABLE 00570 M00S00548.itask +++| BX3 X3-X3 00571 M00S00549.itask +++| EQ BINX RETURN - NO MATCH FOUND 00572 M00S00550.itask +++| 00573 M00S00551.itask +++| BIN3 SX3 1 00574 M00S00552.itask +++| EQ BINX RETURN - MATCH FOUND 00575 M00S00553.itask +++| ITASK SPACE 4,15 00576 M00S00554.itask +++|** CCS - CHECK CHARACTER STRING FOR TRANSACTION UNIT NAME. 00577 M00S00555.itask +++|* 00578 M00S00556.itask +++|* THE FIRST ONE TO SEVEN ALPHANUMERIC CHARACTERS OF INPUT 00579 M00S00557.itask +++|* ARE USED TO DETERMINE WHICH TRANSACTION UNIT TO SCHEDULE. 00580 M00S00558.itask +++|* 00581 M00S00559.itask +++|* ENTRY (X5) = FIRST WORD OF TERMINAL INPUT. 00582 M00S00560.itask +++|* 00583 M00S00561.itask +++|* EXIT (X1) = TRANSACTION UNIT TO SCHEDULE. 00584 M00S00562.itask +++|* = 0, IF NO TRANSACTION UNIT TO SCHEDULE. 00585 M00S00563.itask +++|* 00586 M00S00564.itask +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00587 M00S00565.itask +++|* B - 2, 3. 00588 M00S00566.itask +++| 00589 M00S00567.itask +++| 00590 M00S00568.itask +++| CCS SUBR ENTRY/EXIT 00591 M00S00569.itask +++| MX2 48 EIGHT CHARACTER MASK 00592 M00S00570.itask +++| SB2 6 00593 M00S00571.itask +++| BX6 X6-X6 CLEAR TRANSACTION UNIT NAME 00594 M00S00572.itask +++| SX0 1R+ 00595 M00S00573.itask +++| BX5 X5*X2 MASK OFF CHARACTER STRING 00596 M00S00574.itask +++| MX3 -6 ONE CHARACTER MASK 00597 M00S00575.itask +++| SB3 60 00598 M00S00576.itask +++| LX5 6 POSITION TERMINAL INPUT 00599 M00S00577.itask +++| BX1 X6 00600 M00S00578.itask +++| CCS1 BX4 -X3*X5 GET A CHARACTER 00601 M00S00579.itask +++| ZR X4,CCS2 IF END OF TRANSACTION UNIT NAME 00602 M00S00580.itask +++| IX2 X4-X0 00603 M00S00581.itask +++| PL X2,CCS3 IF NOT ALPHANUMERIC 00604 M00S00582.itask +++| LX6 6 00605 M00S00583.itask +++| SB3 B3-B2 00606 M00S00584.itask +++| BX6 X6+X4 TRANSFER A CHARACTER 00607 M00S00585.itask +++| LX5 6 00608 M00S00586.itask +++| EQ CCS1 LOOP FOR NEXT CHARACTER 00609 M00S00587.itask +++| 00610 M00S00588.itask +++| CCS2 SB2 12 00611 M00S00589.itask +++| EQ B2,B3,CCSX IF TOO MANY CHARACTERS 00612 M00S00590.itask +++| CCS3 ZR X6,CCSX IF ZERO LENGTH TRANSACTION UNIT NAME 00613 M00S00591.itask +++| LX6 X6,B3 POSITION TRNASACTION UNIT NAME 00614 M00S00592.itask +++| BX1 X6 00615 M00S00593.itask +++| EQ CCSX RETURN 00616 M00S00594.itask +++| CTL SPACE 4,20 00617 M00S00595.itask +++|** CTL - CHECK TIMED TRANSACTION UNIT LIST. 00618 M00S00596.itask +++|* 00619 M00S00597.itask +++|* THIS ROUTINE CHECKS TIME DEPENDENT TRANSACTION UNITS. 00620 M00S00598.itask +++|* IF IT IS TIME TO SCHEDULE A TRANSACTION UNIT THEN (X2) = 00621 M00S00599.itask +++|* THE ADDRESS OF THE TRANSACTION UNIT, OTHERWISE (X2) = 0. 00622 M00S00600.itask +++|* 00623 M00S00601.itask +++|* APPLICATIONS MAY WISH TO GENERATE TIME DEPENDENT TRANS- 00624 M00S00602.itask +++|* ACTION TABLES BY MACRO *TIMCNT* AND CHANGE THIS ROUTINE 00625 M00S00603.itask +++|* TO SEARCH FOR THE PROPER TRANSACTION UNIT TO SCHEDULE. 00626 M00S00604.itask +++|* DEFAULT VALUE FOR *TAF* IS NO TIMED TRANSACTION UNIT. 00627 M00S00605.itask +++|* 00628 M00S00606.itask +++|* ENTRY NONE. 00629 M00S00607.itask +++|* 00630 M00S00608.itask +++|* EXIT (X2) = FWA OF TRANSACTION UNIT TO SCHEDULE. 00631 M00S00609.itask +++|* (X2) = 0 IF NOT TIME TO SCHEDULE TIMED TRANSACTION. 00632 M00S00610.itask +++|* 00633 M00S00611.itask +++|* USES X - 2. 00634 M00S00612.itask +++| 00635 M00S00613.itask +++| 00636 M00S00614.itask +++| CTL SUBR ENTRY/EXIT 00637 M00S00615.itask +++| SX2 0 00638 M00S00616.itask +++| EQ CTLX RETURN 00639 M00S00617.itask +++| 00640 M00S00618.itask +++| CTLA BSS 1 NEXT TIMED TRANSACTION UNIT TO SCHEDULE 00641 M00S00619.itask +++| SPACE 4 00642 M00S00620.itask +++|* COMMON DECKS. 00643 M00S00621.itask +++| 00644 M00S00622.itask +++| 00645 M00S00623.itask +++| LIST X 00646 M00S00624.itask +++|*CALL COMKCBT 00647 M00S00625.itask +++|*CALL COMKSTC 00648 M00S00626.itask +++| END ITASK
cdc/nos2.source/opl.opl871/deck/itask.txt · Last modified: by 127.0.0.1