cdc:nos2.source:opl.opl871:deck:libtask.001
Deck LIBTASK Part 001
9 Modifications
Listing Sections
- Deck LIBTASK Start
- Deck LIBTASK Part 1 (Line 1927)
- Deck LIBTASK Part 2 (Line 3637)
Source
Seq # *Modification Id* Act ----------------------------+ 01927 M01S01890.libtask +++| SA3 LATLD DECREMENT TASK LENGTH 01928 M01S01891.libtask +++| SX6 X3-3 01929 M01S01892.libtask +++| SA6 A3+ 01930 M01S01893.libtask +++| SAT9 SA5 A5+TLDLE NEXT ENTRY 01931 M01S01894.libtask +++| SA1 LWTLD END OF DIRECTORY 01932 M01S01895.libtask +++| SX2 A5 01933 M01S01896.libtask +++| IX2 X1-X2 01934 M01S01897.libtask +++| PL X2,SAT5 IF NOT END OF DIRECTORY 01935 M01S01898.libtask +++| EQ SATX RETURN 01936 M01S01899.libtask +++| SDR SPACE 4,15 01937 M01S01900.libtask +++|** SDR - SORT TASK LIBRARY DIRECTORY. 01938 M01S01901.libtask +++|* 01939 M01S01902.libtask +++|* ENTRY (TLD) = FWA OF TABLE. 01940 M01S01903.libtask +++|* (LWTLD) = LWA OF TABLE. 01941 M01S01904.libtask +++|* 01942 M01S01905.libtask +++|* EXIT TASK DIRECTORY SORTED. 01943 M01S01906.libtask +++|* 01944 M01S01907.libtask +++|* USES A - 1. 01945 M01S01908.libtask +++|* B - 2, 3, 6. 01946 M01S01909.libtask +++|* X - 0, 1, 2. 01947 M01S01910.libtask +++|* 01948 M01S01911.libtask +++|* CALL SSR. 01949 M01S01912.libtask +++| 01950 M01S01913.libtask +++| 01951 M01S01914.libtask +++| SDR SUBR ENTRY/EXIT 01952 M01S01915.libtask +++| SB2 TLDLE LENGTH PER ENTRY 01953 M01S01916.libtask +++| SA1 LWTLD LWA OF TABLE 01954 M01S01917.libtask +++| SX2 TLD FWA OF TABLE 01955 M01S01918.libtask +++| SB3 SDRA FWA OF TEMPORARY BUFFER 01956 M01S01919.libtask +++| IX1 X1-X2 LENGTH OF TABLE 01957 M01S01920.libtask +++| SB6 X2+ 01958 M01S01921.libtask +++| MX0 42 MASK TASK NAME 01959 M01S01922.libtask +++| RJ SSR SHELL SORT RECORD 01960 M01S01923.libtask +++| EQ SDRX RETURN 01961 M01S01924.libtask +++| 01962 M01S01925.libtask +++| SDRA BSS TLDLE TEMPORARY BUFFER FOR TLD 01963 M01S01926.libtask +++| SEH SPACE 4,15 01964 M01S01927.libtask +++|** SEH - SET ERROR HEADING. 01965 M01S01928.libtask +++|* 01966 M01S01929.libtask +++|* 01967 M01S01930.libtask +++|* PLACE AN ERROR PAGE HEADING ON THE OUTPUT FILE. 01968 M01S01931.libtask +++|* 01969 M01S01932.libtask +++|* EXIT - ERROR HEADING WRITTEN ON OUTPUT FILE. 01970 M01S01933.libtask +++|* 01971 M01S01934.libtask +++|* USES A - 1, 6. 01972 M01S01935.libtask +++|* X - 1, 2, 6. 01973 M01S01936.libtask +++|* 01974 M01S01937.libtask +++|* CALLS ALC. 01975 M01S01938.libtask +++|* 01976 M01S01939.libtask +++|* MACROS WRITEW. 01977 M01S01940.libtask +++|* 01978 M01S01941.libtask +++|* NOTE ONLY THE FIRST CALL WRITES THE ERROR HEADING. 01979 M01S01942.libtask +++| 01980 M01S01943.libtask +++| 01981 M01S01944.libtask +++| SEH SUBR ENTRY/EXIT 01982 M01S01945.libtask +++| SEHA BSS 0 MODIFIED BY *SEHB* 01983 M01S01946.libtask +++|* EQ SEHX RETURN 01984 M01S01947.libtask +++| WRITEW O,SEHC,SEHCL 01985 M01S01948.libtask +++| SX2 5 01986 M01S01949.libtask +++| RJ ALC ADVANCE LINE COUNT 01987 M01S01950.libtask +++| SA1 SEHB WRITE HEADER ONLY ONCE 01988 M01S01951.libtask +++| BX6 X1 01989 M01S01952.libtask +++| SA6 SEHA 01990 M01S01953.libtask +++| SEHB EQ SEHX RETURN 01991 M01S01954.libtask +++| 01992 M01S01955.libtask +++| SEHC DATA C/0 *ERRORS*/ 01993 M01S01956.libtask +++| DATA C/0 TASK NAME - ERROR TYPE -/ 01994 M01S01957.libtask +++| DATA C* * 01995 M01S01958.libtask +++| SEHCL EQU *-SEHC HEADER LENGTH 01996 M01S01959.libtask +++| SKR SPACE 4,15 01997 M01S01960.libtask +++|** SKR - SKIP TO NEXT RECORD. 01998 M01S01961.libtask +++|* 01999 M01S01962.libtask +++|* ENTRY RECORD TO BE SKIPPED ON FILE *B*. 02000 M01S01963.libtask +++|* 02001 M01S01964.libtask +++|* EXIT RECORD SKIPPED. 02002 M01S01965.libtask +++|* 02003 M01S01966.libtask +++|* USES A - 1, 6. 02004 M01S01967.libtask +++|* X - 1, 6. 02005 M01S01968.libtask +++|* 02006 M01S01969.libtask +++|* MACROS READ, SKIPEF. 02007 M01S01970.libtask +++| 02008 M01S01971.libtask +++| 02009 M01S01972.libtask +++| SKR SUBR ENTRY/EXIT 02010 M01S01973.libtask +++| RECALL B 02011 M01S01974.libtask +++| SA1 B CHECK EOR 02012 M01S01975.libtask +++| LX1 59-4 02013 M01S01976.libtask +++| NG X1,SKR1 IF EOR ENCOUNTED 02014 M01S01977.libtask +++| SKIPF B,,R ADVANCE TO NEXT RECORD 02015 M01S01978.libtask +++| SKR1 SA1 X2+B1 SET FIRST = IN = OUT 02016 M01S01979.libtask +++| SX6 X1 02017 M01S01980.libtask +++| SA6 A1+B1 02018 M01S01981.libtask +++| SA6 A6+B1 02019 M01S01982.libtask +++| READ B INITIATE READ ON BINARY FILE 02020 M01S01983.libtask +++| EQ SKRX RETURN 02021 M01S01984.libtask +++| SSR SPACE 4,20 02022 M01S01985.libtask +++|** SSR - SHELL SORT RECORD. 02023 M01S01986.libtask +++|* 02024 M01S01987.libtask +++|* ENTRY (B2) = NUMBER OF ELEMENTS PER RECORD. 02025 M01S01988.libtask +++|* (B3) = FWA OF TEMPORARY BUFFER. 02026 M01S01989.libtask +++|* MUST BE .GE. (B2). 02027 M01S01990.libtask +++|* (B6) = FWA OF FILE. 02028 M01S01991.libtask +++|* (X1) = LENGTH OF FILE IN CM WORDS. 02029 M01S01992.libtask +++|* (X0) = MASK OF KEY IN FIRST WORD OF RECORD. 02030 M01S01993.libtask +++|* 02031 M01S01994.libtask +++|* EXIT FILE SORTED. 02032 M01S01995.libtask +++|* (X5) RESTORED. 02033 M01S01996.libtask +++|* 02034 M01S01997.libtask +++|* USES A - 3, 6, 7. 02035 M01S01998.libtask +++|* B - 2, 4, 5, 7. 02036 M01S01999.libtask +++|* X - 1, 2, 3, 4, 5, 6, 7. 02037 M01S02000.libtask +++|* 02038 M01S02001.libtask +++|* NOTE *SSR* DOES NOT PRESERVE THE ORDER FOR THE SAME KEY. 02039 M01S02002.libtask +++|* THIS ROUTINE SHIFTS THE KEY 18 BITS TO THE RIGHT TO 02040 M01S02003.libtask +++|* PREVENT NEGATIVE VALUES. 02041 M01S02004.libtask +++| 02042 M01S02005.libtask +++| 02043 M01S02006.libtask +++|* BEGIN NEW PHASE. 02044 M01S02007.libtask +++| 02045 M01S02008.libtask +++| SSR7 AX4 1 K = K/2 02046 M01S02009.libtask +++| BX3 -X4 02047 M01S02010.libtask +++| IX7 X2*X3 LOCATION OF KTH RECORD 02048 M01S02011.libtask +++| SB4 X7 02049 M01S02012.libtask +++| SB7 X2 NUMBER OF CM WORDS PER RECORD 02050 M01S02013.libtask +++| SB2 B6+X7 I = FIRST+K 02051 M01S02014.libtask +++| NZ X4,SSR4 IF K .NE. ONE 02052 M01S02015.libtask +++| SA3 SSRA RESTORE (X5) 02053 M01S02016.libtask +++| BX5 X3 02054 M01S02017.libtask +++| 02055 M01S02018.libtask +++| SSR SUBR ENTRY/EXIT 02056 M01S02019.libtask +++| SX2 B2 NUMBER OF ELEMENTS IN RECORD 02057 M01S02020.libtask +++| MX4 12 02058 M01S02021.libtask +++| BX3 X1 TOTAL CM WORDS IN FILE 02059 M01S02022.libtask +++| IX3 X3/X2 NUMBER OF RECORD 02060 M01S02023.libtask +++| SX2 B2 02061 M01S02024.libtask +++| NX6,B4 X3 02062 M01S02025.libtask +++| BX6 X5 SAVE (X5) 02063 M01S02026.libtask +++| AX4 X4,B4 02064 M01S02027.libtask +++| SX1 B6+X1 LWA OF FILE 02065 M01S02028.libtask +++| SA6 SSRA 02066 M01S02029.libtask +++| BX5 X5-X5 02067 M01S02030.libtask +++| EQ SSR7 ENTER SORT LOOP 02068 M01S02031.libtask +++| 02069 M01S02032.libtask +++| SSR1 PL X5,SSR3 IF NO SWAP 02070 M01S02033.libtask +++| 02071 M01S02034.libtask +++|* MOVE RECORD FROM TEMPORARY BUFFER TO J. 02072 M01S02035.libtask +++| 02073 M01S02036.libtask +++| SB7 X2 NUMBER OF CM WORDS TO MOVE 02074 M01S02037.libtask +++| SB5 B5+B4 02075 M01S02038.libtask +++| SSR2 SB7 B7-B1 DECREMENT INDEX 02076 M01S02039.libtask +++| SA3 B3+B7 02077 M01S02040.libtask +++| BX6 X3 02078 M01S02041.libtask +++| SA6 B5+B7 02079 M01S02042.libtask +++| NZ B7,SSR2 IF NOT END OF RECORD 02080 M01S02043.libtask +++| 02081 M01S02044.libtask +++|* MOVE I TOWARD RIGHT. 02082 M01S02045.libtask +++| 02083 M01S02046.libtask +++| SSR3 SB2 B2+X2 I = I+1 02084 M01S02047.libtask +++| SX3 B2+ 02085 M01S02048.libtask +++| IX3 X3-X1 02086 M01S02049.libtask +++| BX5 X5-X5 02087 M01S02050.libtask +++| ZR X3,SSR7 IF END OF FILE 02088 M01S02051.libtask +++| 02089 M01S02052.libtask +++|* SAVE RECORD I IN TEMPORARY BUFFER. 02090 M01S02053.libtask +++| 02091 M01S02054.libtask +++| SB7 X2 NUMBER OF CM WORDS TO SAVE 02092 M01S02055.libtask +++| SSR4 SB7 B7-B1 02093 M01S02056.libtask +++| SA3 B2+B7 02094 M01S02057.libtask +++| BX6 X3 02095 M01S02058.libtask +++| SA6 B3+B7 02096 M01S02059.libtask +++| NZ B7,SSR4 IF NOT END OF RECORD 02097 M01S02060.libtask +++| SB5 B2-B4 J = I-K 02098 M01S02061.libtask +++| BX7 X0*X3 MASKING KEY OF T(I) 02099 M01S02062.libtask +++| LX7 42 SHIFT SO NO SIGN BIT 02100 M01S02063.libtask +++| SSR5 SA3 B5+ P = T(J) 02101 M01S02064.libtask +++| BX6 X0*X3 MASKING KEY OF P 02102 M01S02065.libtask +++| LX6 42 SHIFT SO NO SIGN BIT 02103 M01S02066.libtask +++| IX6 X7-X6 02104 M01S02067.libtask +++| PL X6,SSR1 IF RECORD IN ORDER 02105 M01S02068.libtask +++| 02106 M01S02069.libtask +++|* PUT RECORD J IN PLACE OF I. 02107 M01S02070.libtask +++| 02108 M01S02071.libtask +++| SB7 X2 NUMBER OF CM WORDS TO MOVE 02109 M01S02072.libtask +++| SX5 B5+B4 02110 M01S02073.libtask +++| SSR6 SB7 B7-B1 DECREMENT INDEX 02111 M01S02074.libtask +++| SA3 B5+B7 02112 M01S02075.libtask +++| BX6 X3 02113 M01S02076.libtask +++| SA6 X5+B7 02114 M01S02077.libtask +++| NZ B7,SSR6 IF NOT END OF RECORD 02115 M01S02078.libtask +++| MX5 1 SET FLAG INDICATE RECORD HAS BEEN REPLACED 02116 M01S02079.libtask +++| 02117 M01S02080.libtask +++|* MOVE J TOWARD LEFT. 02118 M01S02081.libtask +++| 02119 M01S02082.libtask +++| SB5 B5-B4 J = J-K 02120 M01S02083.libtask +++| GE B5,B6,SSR5 IF IN BOUNDS 02121 M01S02084.libtask +++| EQ SSR1 SELECT NEXT RECORD 02122 M01S02085.libtask +++| 02123 M01S02086.libtask +++| SSRA CON 0 TEMPORARY STORAGE FOR (X5) 02124 M01S02087.libtask +++| STD SPACE 4,20 02125 M01S02088.libtask +++|** STD - SEARCH TASK/TRANSACTION DIRECTORY. 02126 M01S02089.libtask +++|* 02127 M01S02090.libtask +++|* PERFORM A BINARY SEARCH OF A TASK OR TRANSACTION DIRECTORY 02128 M01S02091.libtask +++|* FOR THE SPECIFIED TASK OR TRANSACTION NAME. 02129 M01S02092.libtask +++|* 02130 M01S02093.libtask +++|* ENTRY (X2) = LEFT JUSTIFIED TASK/TRANSACTION NAME. 02131 M01S02094.libtask +++|* (B3) = LENGTH OF ENTRY. 02132 M01S02095.libtask +++|* (B5) = START OF DIRECTORY. 02133 M01S02096.libtask +++|* (B6) = END OF DIRECTORY. 02134 M01S02097.libtask +++|* 02135 M01S02098.libtask +++|* EXIT (A1) = FWA OF ENTRY IF FOUND. 02136 M01S02099.libtask +++|* (X1) = 0 IF ENTRY FOUND. 02137 M01S02100.libtask +++|* (X1) .NE. 0 IF ENTRY NOT IN DIRECTORY. 02138 M01S02101.libtask +++|* 02139 M01S02102.libtask +++|* USES A - 1, 3, 7. 02140 M01S02103.libtask +++|* X - 0, 1, 3, 4, 7. 02141 M01S02104.libtask +++|* B - 5, 6, 7. 02142 M01S02105.libtask +++|* 02143 M01S02106.libtask +++|* NOTE (X0) AND (B7) RESTORED UPON EXIT. 02144 M01S02107.libtask +++| 02145 M01S02108.libtask +++| 02146 M01S02109.libtask +++| STD SUBR ENTRY/EXIT 02147 M01S02110.libtask +++| SX7 B7 02148 M01S02111.libtask +++| SA7 STDB SAVE (B7) 02149 M01S02112.libtask +++| BX7 X0 02150 M01S02113.libtask +++| SA7 STDC SAVE (X0) 02151 M01S02114.libtask +++| BX0 X2 02152 M01S02115.libtask +++| LX0 42 SHIFT SO NO SIGN BIT 02153 M01S02116.libtask +++| SX7 B6 LWA OF BASE TLD 02154 M01S02117.libtask +++| SA7 STDA 02155 M01S02118.libtask +++| MX7 42 MASK FOR TASKS/TRANSACTIONS 02156 M01S02119.libtask +++| EQ STD2 ENTER LOOP 02157 M01S02120.libtask +++| 02158 M01S02121.libtask +++| STD1 SB5 A1+B3 SET NEW LOW LIMIT 02159 M01S02122.libtask +++| STD2 SX3 B6-B5 FIND MIDDLE 02160 M01S02123.libtask +++| SX4 B3 02161 M01S02124.libtask +++| IX3 X3/X4 02162 M01S02125.libtask +++| AX3 1 02163 M01S02126.libtask +++| SX4 B3 02164 M01S02127.libtask +++| IX3 X4*X3 02165 M01S02128.libtask +++| SA1 B5+X3 READ AN ENTRY 02166 M01S02129.libtask +++| BX4 X7*X1 02167 M01S02130.libtask +++| LX4 42 SHIFT SO NO SIGN BIT 02168 M01S02131.libtask +++| IX1 X4-X0 02169 M01S02132.libtask +++| ZR X1,STD6 IF FOUND 02170 M01S02133.libtask +++| ZR X3,STD4 IF END OF BASE DIRECTORY 02171 M01S02134.libtask +++| NG X1,STD1 IF TOO LOW IN TABLE 02172 M01S02135.libtask +++| SB6 A1+ SET NEW HIGH LIMIT 02173 M01S02136.libtask +++| EQ STD2 FIND NEXT ENTRY 02174 M01S02137.libtask +++| 02175 M01S02138.libtask +++|* ENTRIES ADDED ON A NONCREATION RUN ARE PLACED SEQUENTIALLY 02176 M01S02139.libtask +++|* AT THE END OF THE TLD. 02177 M01S02140.libtask +++| 02178 M01S02141.libtask +++| STD4 SA3 STDA LWA+1 OF BASE TLD 02179 M01S02142.libtask +++| SB6 B3-TLDLE 02180 M01S02143.libtask +++| NZ B6,STD6 IF TRANSACTION SEARCH 02181 M01S02144.libtask +++| SB6 X3 02182 M01S02145.libtask +++| SB5 B3 LENGTH OF TLD ENTRY 02183 M01S02146.libtask +++| STD5 SA3 B6 02184 M01S02147.libtask +++| SB6 B6+B5 02185 M01S02148.libtask +++| ZR X3,STD6 IF END OF TLD 02186 M01S02149.libtask +++| BX3 X7*X3 02187 M01S02150.libtask +++| LX3 42 SHIFT SO NO SIGN BIT 02188 M01S02151.libtask +++| IX3 X3-X0 02189 M01S02152.libtask +++| NZ X3,STD5 IF TASK NAME DID NOT MATCH 02190 M01S02153.libtask +++| SA1 A3 02191 M01S02154.libtask +++| BX1 X1-X1 02192 M01S02155.libtask +++| 02193 M01S02156.libtask +++|* MATCH FOUND. 02194 M01S02157.libtask +++| 02195 M01S02158.libtask +++| STD6 SA3 STDB RESTORE (B7) 02196 M01S02159.libtask +++| SB7 X3+ 02197 M01S02160.libtask +++| SA3 STDC RESTORE (X0) 02198 M01S02161.libtask +++| BX0 X3 02199 M01S02162.libtask +++| EQ STDX RETURN 02200 M01S02163.libtask +++| 02201 M01S02164.libtask +++| STDA BSS 1 LWA+1 OF BASE TLD 02202 M01S02165.libtask +++| STDB BSS 1 (B7) 02203 M01S02166.libtask +++| STDC BSS 1 (X0) 02204 M01S02167.libtask +++| STL SPACE 4,15 02205 M01S02168.libtask +++|** STL - SET TITLE LINE FOR OUTPUT PAGE. 02206 M01S02169.libtask +++|* 02207 M01S02170.libtask +++|* STL WRITES THE TITLE LINE ONTO THE OUTPUT FILE, AND ADJUSTS 02208 M01S02171.libtask +++|* THE LINE COUNT ACCORDINGLY. 02209 M01S02172.libtask +++|* 02210 M01S02173.libtask +++|* ENTRY - JOBORG = 0 IF INTERACTIVE ORIGIN 02211 M01S02174.libtask +++|* 02212 M01S02175.libtask +++|* EXIT - TITLE LINE WRITTEN TO OUTPUT 02213 M01S02176.libtask +++|* 02214 M01S02177.libtask +++|* USES A - 1, 6, 7. 02215 M01S02178.libtask +++|* X - 1, 3, 6, 7. 02216 M01S02179.libtask +++|* 02217 M01S02180.libtask +++|* MACROS WRITEW. 02218 M01S02181.libtask +++| 02219 M01S02182.libtask +++| 02220 M01S02183.libtask +++| STL SUBR 02221 M01S02184.libtask +++| SX3 STLAL 02222 M01S02185.libtask +++| SA1 JOBORG 02223 M01S02186.libtask +++| NZ X1,STL1 IF NOT INTERACTIVE ORIGIN 02224 M01S02187.libtask +++| SA1 BLINE 02225 M01S02188.libtask +++| BX6 X1 02226 M01S02189.libtask +++| SA6 STLAT 02227 M01S02190.libtask +++| SX3 STLAL-3 02228 M01S02191.libtask +++| STL1 WRITEW O,STLA,X3 02229 M01S02192.libtask +++| WRITEC O,BLINE 02230 M01S02193.libtask +++| SX7 3 02231 M01S02194.libtask +++| SA7 ALCA SET LINE COUNT 02232 M01S02195.libtask +++| EQ STLX RETURN 02233 M01S02196.libtask +++| 02234 M01S02197.libtask +++| STLA CON 10H1TASK LIBR 02235 M01S02198.libtask +++| CON 10HARY EDITIN 02236 M01S02199.libtask +++| CON 10HG PROGRAM. 02237 M01S02200.libtask +++| STLAB CON 10H
| Line S02201 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02238 M02S02201.ns2786 ---| STLAD CON 10H PACKED DATE
| Line S02202 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02239 M02S02202.ns2786 ---| STLAT CON 10H PACKED TIME 02240 M01S00001.ns2786 +++| STLAD CON 10H DATE 02241 M01S00002.ns2786 +++| STLAT CON 10H TIME 02242 M01S02203.libtask +++| STLAP CON 10H PAGE 1 02243 M01S02204.libtask +++| BLINE CON 8L 02244 M01S02205.libtask +++| CON 8L 02245 M01S02206.libtask +++| STLAL EQU *-STLA 02246 M01S02207.libtask +++| STN SPACE 4,20 02247 M01S02208.libtask +++|** STN - SEARCH TASK NAMES. 02248 M01S02209.libtask +++|* 02249 M01S02210.libtask +++|* DETERMINE IF EACH TASK, DEFINED IN EACH TRANSACTION ENTRY 02250 M01S02211.libtask +++|* WITHIN THE DIRECTORY, EXISTS. IF NOT, THE TRANSACTION NAME 02251 M01S02212.libtask +++|* IS ADDED TO A LIST TO BE PRINTED WITH THE NORMAL *LIBTASK* 02252 M01S02213.libtask +++|* OUTPUT. IN ADDITION, ANY ENTRY HAVING ITS LOGICALLY- 02253 M01S02214.libtask +++|* DELETED-BIT SET, WILL HAVE ITS NAME CHANGED TO ;;;. THIS 02254 M01S02215.libtask +++|* WILL INSURE THAT AFTER THE TRD IS SORTED, THOSE TRANSACTIONS 02255 M01S02216.libtask +++|* WILL BE PHYSICALLY DELETED FROM THE TRD. 02256 M01S02217.libtask +++|* 02257 M01S02218.libtask +++|* ENTRY (LATRD) = LWA OF TRD. 02258 M01S02219.libtask +++|* 02259 M01S02220.libtask +++|* EXIT (X5) = RESTORED. 02260 M01S02221.libtask +++|* 02261 M01S02222.libtask +++|* USES A - 1, 2, 5, 6. 02262 M01S02223.libtask +++|* X - 1, 2, 5, 6. 02263 M01S02224.libtask +++|* B - 2, 3, 5, 6, 7. 02264 M01S02225.libtask +++|* 02265 M01S02226.libtask +++|* CALLS STD. 02266 M01S02227.libtask +++|* 02267 M01S02228.libtask +++|* MACROS ADDWRD. 02268 M01S02229.libtask +++| 02269 M01S02230.libtask +++| 02270 M01S02231.libtask +++| STN SUBR ENTRY/EXIT 02271 M01S02232.libtask +++| BX6 X5 02272 M01S02233.libtask +++| SA6 STNC SAVE (X5) 02273 M01S02234.libtask +++| SB2 TRD-TRDLE1 02274 M01S02235.libtask +++| SB3 TLDLE LENGTH OF TLD ENTRY 02275 M01S02236.libtask +++| STN1 SX5 TRDLE1 02276 M01S02237.libtask +++| SA1 LATRD LWA OF TRD 02277 M01S02238.libtask +++| SB2 B2+X5 02278 M01S02239.libtask +++| SB7 X1 02279 M01S02240.libtask +++| GE B2,B7,STN4 IF ALL CHECKED 02280 M01S02241.libtask +++| SA2 B2+ NEXT TRANSACTION ENTRY 02281 M01S02242.libtask +++| BX6 X2 02282 M01S02243.libtask +++| SA6 STNB SAVE TRANSACTION NAME 02283 M01S02244.libtask +++| LX2 59-TDDLS 02284 M01S02245.libtask +++| PL X2,STN2 IF NOT LOGICALLY DELETED 02285 M01S02246.libtask +++| SA1 STNA 02286 M01S02247.libtask +++| BX6 X1 02287 M01S02248.libtask +++| SA6 A2 SET NAME TO ;;; 02288 M01S02249.libtask +++| EQ STN1 NEXT ENTRY 02289 M01S02250.libtask +++| 02290 M01S02251.libtask +++| STN2 SX5 X5-1 02291 M01S02252.libtask +++| ZR X5,STN1 IF ALL TASKS CHECKED 02292 M01S02253.libtask +++| SA2 A2+1 NEXT TASK NAME 02293 M01S02254.libtask +++| SA1 LWOLD 02294 M01S02255.libtask +++| SB5 TLD FWA OF TLD 02295 M01S02256.libtask +++| SB6 X1+ LWA OF TLD 02296 M01S02257.libtask +++| ZR X2,STN1 IF END OF LIST 02297 M01S02258.libtask +++| RJ STD SEARCH TASK DIRECTORY 02298 M01S02259.libtask +++| NZ X1,STN3 IF TASK NOT FOUND 02299 M01S02260.libtask +++| SA1 A1+TLDLW 02300 M01S02261.libtask +++| LX1 59-TLDLS 02301 M01S02262.libtask +++| PL X1,STN2 IF TASK NOT LOGICALLY DELETED 02302 M01S02263.libtask +++| STN3 SA1 STNB 02303 M01S02264.libtask +++| ADDWRD TTNE,X1 ADD TRANSACTION NAME TO LIST 02304 M01S02265.libtask +++| EQ STN1 NEXT ENTRY 02305 M01S02266.libtask +++| 02306 M01S02267.libtask +++| STN4 SA5 STNC RESTORE (X5) 02307 M01S02268.libtask +++| EQ STNX RETURN 02308 M01S02269.libtask +++| 02309 M01S02270.libtask +++| STNA VFD 60/3L;;; NAME FOR DELETED TRANSACTIONS 02310 M01S02271.libtask +++| STNB CON 0 TRANSACTION NAME 02311 M01S02272.libtask +++| STNC CON 0 (X5) 02312 M01S02273.libtask +++| STR SPACE 4,10 02313 M01S02274.libtask +++|** STR - SORT TRANSACTION DIRECTORY. 02314 M01S02275.libtask +++|* 02315 M01S02276.libtask +++|* ENTRY (TRD) = FWA OF TABLE. 02316 M01S02277.libtask +++|* (LATRD) = LWA OF TABLE. 02317 M01S02278.libtask +++|* 02318 M01S02279.libtask +++|* USES X - 0, 1, 2. 02319 M01S02280.libtask +++|* A - 1. 02320 M01S02281.libtask +++|* B - 2, 3, 6. 02321 M01S02282.libtask +++|* 02322 M01S02283.libtask +++|* CALLS SSR. 02323 M01S02284.libtask +++| 02324 M01S02285.libtask +++| 02325 M01S02286.libtask +++| STR SUBR ENTRY/EXIT 02326 M01S02287.libtask +++| SB2 TRDLE1 LENGTH PER ENTRY 02327 M01S02288.libtask +++| SA1 LATRD LWA OF TABLE 02328 M01S02289.libtask +++| SX2 TRD FWA OF TABLE 02329 M01S02290.libtask +++| SB3 STRA FWA OF TEMPORARY BUFFER 02330 M01S02291.libtask +++| IX1 X1-X2 TABLE LENGTH 02331 M01S02292.libtask +++| SB6 X2+ 02332 M01S02293.libtask +++| MX0 42 MASK FOR TRANSACTION NAME 02333 M01S02294.libtask +++| RJ SSR SHELL SORT 02334 M01S02295.libtask +++| EQ STRX RETURN 02335 M01S02296.libtask +++| 02336 M01S02297.libtask +++| STRA BSSZ TRDLE1 TEMPORARY BUFFER FOR SORT 02337 M01S02298.libtask +++| TOV SPACE 4,10 02338 M01S02299.libtask +++|** TOV - TABLE OVERLFOW PROCESSOR. 02339 M01S02300.libtask +++|* 02340 M01S02301.libtask +++|* THIS TAG IS REQUIRED BY THE MANAGED TABLE ROUTINES 02341 M01S02302.libtask +++|* IN CASE OF TABLE ERRORS. 02342 M01S02303.libtask +++|* 02343 M01S02304.libtask +++| 02344 M01S02305.libtask +++| 02345 M01S02306.libtask +++| TOV MESSAGE TOVA 02346 M01S02307.libtask +++| ABORT 02347 M01S02308.libtask +++| 02348 M01S02309.libtask +++| TOVA DATA C* TABLE OVERFLOW - TOO MANY TASKS.* 02349 M01S02310.libtask +++| MEML SPACE 4 02350 M01S02311.libtask +++|* RESERVED SPACE FOR THE MANAGED TABLES. 02351 M01S02312.libtask +++| 02352 M01S02313.libtask +++| RRECL EQU 50 INITIAL ALLOCATION FOR REPLACED RECORDS 02353 M01S02314.libtask +++| IRECL EQU 350 INITIAL ALLOCATION FOR INSERTIONS 02354 M01S02315.libtask +++| LRECL EQU 200 INITIAL ALLOCATION FOR TASK LIBRARY 02355 M01S02316.libtask +++| DRTCL EQU 200 ESTIMATED ALLOCATION FOR DIRECTIVES 02356 M01S02317.libtask +++| TTINL EQU 300 INITIAL ALLOCATION FOR INSERTIONS 02357 M01S02318.libtask +++| TTCNL EQU 20 INITIAL ALLOCATION FOR CHANGES 02358 M01S02319.libtask +++| TTNEL EQU 20 TRANSACTIONS WITH NONEXISTENT TASKS 02359 M01S02320.libtask +++| 02360 M01S02321.libtask +++|* MANAGED TABLES SPACE SIZE. 02361 M01S02322.libtask +++| 02362 M01S02323.libtask +++| TABLEN EQU RRECL+IRECL+LRECL+DRTCL+TTINL+TTCNL+TTNEL 02363 M01S02324.libtask +++| 02364 M01S02325.libtask +++| MEML BSSZ TABLEN SPACE FOR MANAGED TABLES 02365 M01S02326.libtask +++| TITLE COMMON DECKS. 02366 M01S02327.libtask +++|*CALL COMCARG 02367 M01S02328.libtask +++|*CALL COMCCDD 02368 M01S02329.libtask +++|*CALL COMCCIO 02369 M01S02330.libtask +++|*CALL COMCCOD 02370 M01S02331.libtask +++|*CALL COMCCPM 02371 M01S02332.libtask +++|*CALL COMCDXB 02372 M01S02333.libtask +++|*CALL COMCLFM 02373 M01S02334.libtask +++|*CALL COMCMTP 02374 M01S02335.libtask +++|*CALL COMCMVE 02375 M01S02336.libtask +++|*CALL COMCPFM 02376 M01S02337.libtask +++|*CALL COMCRDS 02377 M01S02338.libtask +++|*CALL COMCRDW 02378 M01S02339.libtask +++|*CALL COMCSFN 02379 M01S02340.libtask +++|*CALL COMCSNM 02380 M01S02341.libtask +++| QUAL COMCSST 02381 M01S02342.libtask +++|*CALL COMCSST 02382 M01S02343.libtask +++| QUAL * 02383 M01S02344.libtask +++|*CALL COMCSYS 02384 M01S02345.libtask +++|*CALL COMCUPC
| Line S02346 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2033 |
Seq # *Modification Id* Act ----------------------------+ 02385 M02S02346.ns2033 ---| QUAL COMCUSB 02386 M01S02347.libtask +++|*CALL COMCUSB
| Line S02348 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2033 |
Seq # *Modification Id* Act ----------------------------+ 02387 M02S02348.ns2033 ---| QUAL * 02388 M01S02349.libtask +++|*CALL COMCWTC 02389 M01S02350.libtask +++|*CALL COMCWTS 02390 M01S02351.libtask +++|*CALL COMCWTW 02391 M01S02352.libtask +++|*CALL COMCZAP 02392 M01S02353.libtask +++| TLD TITLE TASK AND TRANSACTION DIRECTORIES. 02393 M01S02354.libtask +++|*** TASK LIBRARY DIRECTORY. 02394 M01S02355.libtask +++|* 02395 M01S02356.libtask +++|* DEFAULT VALUES FOR DIRECTORY ARE - 02396 M01S02357.libtask +++|* 02397 M01S02358.libtask +++|* BEGINNING PRIORITY = 20B. 02398 M01S02359.libtask +++|* MAXIMUM PRIORITY = 40B. 02399 M01S02360.libtask +++|* QUEUE LIMIT = 3B. 02400 M01S02361.libtask +++|* TASK IS DISK RESIDENT. 02401 M01S02362.libtask +++|* TASK CODE IS NONDESTRUCTIVE. 02402 M01S02363.libtask +++|* TASK IS NOT A SYSTEM TASK. 02403 M01S02364.libtask +++|* TASK IS ON. 02404 M01S02365.libtask +++|* COMMUNICATION BLOCK IS DELIVERED TO THE TASK (UNSOLICITED). 02405 M01S02366.libtask +++|* QUEUING IS NOT FORCED FOR ADDITIONAL ACTIVE COPIES. 02406 M01S02367.libtask +++| SPACE 4,10 02407 M01S02368.libtask +++|*** TRANSACTION DIRECTORY. 02408 M01S02369.libtask +++|* 02409 M01S02370.libtask +++|* DEFAULT VALUES FOR TRANSACTIONS ARE - 02410 M01S02371.libtask +++|* 02411 M01S02372.libtask +++|* DATA MANAGER USED = NONE. 02412 M01S02373.libtask +++|* RECOVERABLE = NO. 02413 M01S02374.libtask +++| SPACE 4,10 02414 M01S02375.libtask +++| TSKDL EQU TLDLE*TLDMT+1 SIZE OF TASK DIRECTORY 02415 M01S02376.libtask +++| TRNDL EQU TRDLE1*TRDMT+1 SIZE OF TRANSACTION UNIT DIRECTORY 02416 M01S02377.libtask +++| 02417 M01S02378.libtask +++| TLDH VFD 12/7700B,12/3,36/0 02418 M01S02379.libtask +++| VFD 60/0LTLD 02419 M01S02380.libtask +++| TLDHD CON 10H 02420 M01S02381.libtask +++| TLDHT CON 10H 02421 M01S02382.libtask +++| TLD BSSZ TSKDL TASK LIBRARY DIRECTORY 02422 M01S02383.libtask +++| 02423 M01S02384.libtask +++| TRDH VFD 12/7700B,12/3,36/0 02424 M01S02385.libtask +++| VFD 60/0LTRD 02425 M01S02386.libtask +++| CON 10H 02426 M01S02387.libtask +++| CON 10H 02427 M01S02388.libtask +++| TRD BSSZ TRNDL TRANSACTION UNIT DIRECTORY
| Line S02389 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02428 M02S02389.v23l617 ---| PRS TITLE PRESET AND CRACK CONTROL CARD. 02429 M01S00022.v23l617 +++| PRS TITLE PRESET AND CRACK COMMAND. 02430 M01S02390.libtask +++|** PRS - PRESET ROUTINE. 02431 M01S02391.libtask +++|*
| Line S02392 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02432 M02S02392.v23l617 ---|* PRS CRACKS THE CONTROL CARD AND SETS UP FOR THE MAIN PROGRAM.
| Line S02393 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02433 M02S02393.v23l617 ---|* ERROR CHECKING IS PERFORMED ON CONTROL CARD PARAMETERS AND 02434 M01S00023.v23l617 +++|* PRS CRACKS THE COMMAND AND SETS UP FOR THE MAIN PROGRAM. 02435 M01S00024.v23l617 +++|* ERROR CHECKING IS PERFORMED ON COMMAND PARAMETERS AND 02436 M01S02394.libtask +++|* INPUT DIRECTIVES. IF THE CR OPTION IS PRESENT, PRS CHECKS 02437 M01S02395.libtask +++|* IF *TAF* IS UP. IF THE TT OPTION IS PRESENT, THE USERNUM IS 02438 M01S02396.libtask +++|* SENT TO *TAF* FOR VALIDATION. THE TASK LIBRARY FILE IS 02439 M01S02397.libtask +++|* ATTACHED IN MODIFY MODE IF THE DA OPTION IS NOT SPECIFIED. 02440 M01S02398.libtask +++|* THE MAIN LOOP IS THEN INITIATED. 02441 M01S02399.libtask +++|* NOTE THE FOLLOWING MEMORY IS USED FOR BUFFERS WHEN 02442 M01S02400.libtask +++|* *PRS* TERMINATES. 02443 M01S02401.libtask +++| 02444 M01S02402.libtask +++| 02445 M01S02403.libtask +++| PRS SUBR ENTRY/EXIT 02446 M01S02404.libtask +++| SB1 1
| Line S02405 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02447 M02S02405.ns2523 ---| GETJO JOBORG 02448 M01S00011.ns2523 +++| SA1 LWPR 02449 M01S00012.ns2523 +++| LX1 59-18 02450 M01S00013.ns2523 +++| PL X1,PRS0 IF *LIBTASK* NOT LOADED FROM SYSTEM 02451 M01S00014.ns2523 +++| SA1 SSJ=+UIDS RESTORE USER NAME AND USER INDEX 02452 M01S00015.ns2523 +++| BX6 X1 02453 M01S00016.ns2523 +++| SA6 PRSK+2 02454 M01S00017.ns2523 +++| SETPFP PRSK 02455 M01S00018.ns2523 +++| PRS0 GETJO JOBORG 02456 M01S02406.libtask +++| SA1 JOBORG 02457 M01S02407.libtask +++| SX6 X1-TXOT 02458 M01S02408.libtask +++| SA6 A1+ 02459 M01S02409.libtask +++| SB5 ARGA
| Line S02410 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02460 M02S02410.v23l617 ---| SA1 ACTR ARGUMENT COUNT OF CONTROL CARD 02461 M01S00025.v23l617 +++| SA1 ACTR ARGUMENT COUNT OF COMMAND 02462 M01S02411.libtask +++| SB4 X1 02463 M01S02412.libtask +++| SA4 B1+B1 FIRST ARGUMENT
| Line S02413 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02464 M02S02413.v23l617 ---| RJ ARG PROCESS CONTROL CARD ARGUMENTS 02465 M01S00026.v23l617 +++| RJ ARG PROCESS COMMAND ARGUMENTS 02466 M01S02414.libtask +++| ZR X1,PRS1 IF NO ARGUMENT ERRORS
| Line S02415 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02467 M02S02415.v23l617 ---| MESSAGE PRSB ILLEGAL CONTROL CARD 02468 M01S00027.v23l617 +++| MESSAGE PRSB INCORRECT COMMAND 02469 M01S02416.libtask +++| ABORT 02470 M01S02417.libtask +++| 02471 M01S02418.libtask +++| PRS1 SX7 TLD 02472 M01S02419.libtask +++| SA7 LWTLD LAST WORD ADDRESS OF TLD 02473 M01S02420.libtask +++| SX6 TSKDL 02474 M01S02421.libtask +++| SA6 FSLT FREE SPACE LEFT IN TLD 02475 M01S02422.libtask +++| SA7 LATLD 02476 M01S02423.libtask +++| SA7 LWOLD 02477 M01S02424.libtask +++| SX7 TRD PRESET LWA OF TRD 02478 M01S02425.libtask +++| SA7 LWTRD 02479 M01S02426.libtask +++| SA7 LATRD 02480 M01S02427.libtask +++| SX7 TRNDL PRESET FREE SPACE IN TRD 02481 M01S02428.libtask +++| SA7 FSTR
| Line S02429 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02482 M02S02429.ns2786 ---| DATE STLAD PACKED DATE
| Line S02430 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02483 M02S02430.ns2786 ---| CLOCK STLAT PACKED TIME 02484 M01S00003.ns2786 +++| DATE STLAD DATE 02485 M01S00004.ns2786 +++| CLOCK STLAT TIME 02486 M01S02431.libtask +++| RJ STL SET TITLE PAGE OF OUTPUT 02487 M01S02432.libtask +++| SX7 MEML+TABLEN 02488 M01S02433.libtask +++| SA7 F.TEND 02489 M01S02434.libtask +++| SX5 CMP DISPLAY CODE 02490 M01S02435.libtask +++| LX5 48 02491 M01S02436.libtask +++| SB7 B0 02492 M01S02437.libtask +++| RJ DXB CONVERT DEFAULT MAXIMUM PRIORITY 02493 M01S02438.libtask +++| SA6 LIBB SAVE TEMPORARILY 02494 M01S02439.libtask +++| SA6 LIBA 02495 M01S02440.libtask +++| SX5 CBP DISPLAY CODE 02496 M01S02441.libtask +++| LX5 48 02497 M01S02442.libtask +++| RJ DXB CONVERT DEFAULT BEGINNING PRIORITY 02498 M01S02443.libtask +++| LX6 TLBPS-TLBPN+1 02499 M01S02444.libtask +++| SA1 LIBB+1 02500 M01S02445.libtask +++| BX6 X1+X6 02501 M01S02446.libtask +++| SA6 LIBB+1 SAVE AS DEFAULT 02502 M01S02447.libtask +++| SA6 LIBA+1 SAVE AS CURRENT 02503 M01S02448.libtask +++| SX5 CQL DISPLAY CODE 02504 M01S02449.libtask +++| LX5 48 02505 M01S02450.libtask +++| RJ DXB CONVERT DEFAULT QUEUE LIMIT 02506 M01S02451.libtask +++| SA1 LIBB+1 02507 M01S02452.libtask +++| BX7 X6+X1 02508 M01S02453.libtask +++| SA7 A1 SAVE AS DEFAULT 02509 M01S02454.libtask +++| SA7 LIBA+1 SAVE AS CURRENT 02510 M01S02455.libtask +++| RJ ERC CHECK POSSIBLE ERRORS 02511 M01S02456.libtask +++| SB4 TLD 02512 M01S02457.libtask +++| SA1 LWTLD 02513 M01S02458.libtask +++| SB5 X1+ 02514 M01S02459.libtask +++| 02515 M01S02460.libtask +++|* GET NAMES OF PROGRAMS ON LIBRARY FILE. 02516 M01S02461.libtask +++| 02517 M01S02462.libtask +++| PRS2 EQ B4,B5,PRS3 IF DONE GATHERING TASK NAMES 02518 M01S02463.libtask +++| SA1 B4 02519 M01S02464.libtask +++| BX1 X1*X5 02520 M01S02465.libtask +++| ADDWRD LREC,X1 02521 M01S02466.libtask +++| SB4 B4+TLDLE 02522 M01S02467.libtask +++| EQ PRS2 GET NEXT TASK NAME 02523 M01S02468.libtask +++| 02524 M01S02469.libtask +++| PRS3 SA1 Z 02525 M01S02470.libtask +++| ZR X1,PRS4 IF *Z* ARGUMENT NOT SELECTED 02526 M01S02471.libtask +++| SX2 I SET INPUT FET ADDRESS 02527 M01S02472.libtask +++| RJ ZAP PROCESS *Z* ARGUMENT 02528 M01S02473.libtask +++| EQ PRS5 PROCESS DIRECTIVES 02529 M01S02474.libtask +++| 02530 M01S02475.libtask +++| PRS4 SA1 I 02531 M01S02476.libtask +++| ZR X1,PRS7 IF NO INPUT DIRECTIVES 02532 M01S02477.libtask +++| READ I INPUT FILE 02533 M01S02478.libtask +++| PRS5 RJ INP PROCESS INPUT FILE 02534 M01S02479.libtask +++| PRS7 SA2 CR 02535 M01S02480.libtask +++| NZ X2,PRSX IF CREATING A NEW LIBRARY 02536 M01S02481.libtask +++| SKIPEI P,R SKIP TO END OF INFORMATION 02537 M01S02482.libtask +++| SA1 TT 02538 M01S02483.libtask +++| ZR X1,PRSX IF NOT *TT* OPTION 02539 M01S00019.ns2523 +++| SA1 SSJ=+AACS CHECK ACCESS WORD BIT *CSTP* 02540 M01S00020.ns2523 +++| LX1 59-9 02541 M01S00021.ns2523 +++| NG X1,PRS7.1 IF USER VALIDATED TO UPDATE LIBRARY ONLINE 02542 M01S00022.ns2523 +++| MESSAGE PRSJ USER NOT VALIDATED FOR ONLINE UPDATE 02543 M01S00023.ns2523 +++| ABORT 02544 M01S02484.libtask +++|
| Line S02485 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02545 M02S02485.v23l617 ---|* THE USER NUMBER OF THIS JOB IS SENT TO *TAF* FOR VALIDATION 02546 M01S00028.v23l617 +++|* THE USER NAME OF THIS JOB IS SENT TO *TAF* FOR VALIDATION 02547 M01S02486.libtask +++|* PURPOSES. 02548 M01S02487.libtask +++|
| Line S02488 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02549 M02S02488.v23l617 ---| USERNUM PRSA GET USER NUMBER
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02550 M02S00029.ns2523 ---| USERNUM PRSA GET USER NAME 02551 M01S00024.ns2523 +++| PRS7.1 USERNUM PRSA GET USER NAME 02552 M01S02489.libtask +++| SA1 PRSA 02553 M01S02490.libtask +++| MX6 42 02554 M01S02491.libtask +++| BX6 X6*X1 SET INTO *TAF* TRANSMISSION WORD 02555 M01S02492.libtask +++| SA6 LIBI+1
| Line S02493 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02556 M02S02493.v23l617 ---| NZ X6,PRS8 IF USER NUMBER NONZERO
| Line S02494 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02557 M02S02494.v23l617 ---| MESSAGE PRSF * USER NUMBER REQUIRED FOR *TT* OPTION.* 02558 M01S00030.v23l617 +++| NZ X6,PRS8 IF USER NAME NONZERO 02559 M01S00031.v23l617 +++| MESSAGE PRSF * USER NAME REQUIRED FOR *TT* OPTION.* 02560 M01S02495.libtask +++| ABORT 02561 M01S02496.libtask +++| 02562 M01S02497.libtask +++| PRS8 MX0 42 02563 M01S02498.libtask +++| SA1 P SET TASK LIBRARY NAME INTO *SIC* BLOCK 02564 M01S02499.libtask +++| BX6 X0*X1 02565 M01S02500.libtask +++| SA6 A6+B1 02566 M01S02501.libtask +++| EQ PRSX RETURN 02567 M01S02502.libtask +++|
| Line S02503 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02568 M02S02503.v23l617 ---|* CONTROL CARD ARGUMENT TABLES. 02569 M01S00032.v23l617 +++|* COMMAND ARGUMENT TABLES. 02570 M01S02504.libtask +++| 02571 M01S02505.libtask +++| ARGA BSS 0 02572 M01S02506.libtask +++| B ARG ARGB,B 02573 M01S02507.libtask +++| L ARG O,O 02574 M01S02508.libtask +++| P ARG ARGB+1,P 02575 M01S02509.libtask +++| CR ARG -ARGB-2,CR 02576 M01S02510.libtask +++| I ARG ARGB+3,I 02577 M01S02511.libtask +++| TT ARG -ARGB-4,TT 02578 M01S02512.libtask +++| PR ARG -ARGB-5,PR 02579 M01S02513.libtask +++| N ARG ARGB+6,SF 02580 M01S02514.libtask +++| DA ARG -ARGB-7,DA 02581 M01S02515.libtask +++| Z ARG -ARGB-8,Z 02582 M01S02516.libtask +++| LO ARG ARGB+9,LO 02583 M01S02517.libtask +++| TN ARG ARGB+10,XTN 02584 M01S02518.libtask +++| ARG 02585 M01S02519.libtask +++| 02586 M01S02520.libtask +++| 02587 M01S02521.libtask +++| ARGB CON 0LLGO+3 02588 M01S02522.libtask +++| CON 0LTASKLIB+3 02589 M01S02523.libtask +++| CON 1 02590 M01S02524.libtask +++| CON 0LCOMPILE+3 02591 M01S02525.libtask +++| CON 1 02592 M01S02526.libtask +++| CON 1 02593 M01S02527.libtask +++| CON 0LTASKLIB+3 02594 M01S02528.libtask +++| CON 1 02595 M01S02529.libtask +++| CON 1 02596 M01S02530.libtask +++| CON 0LA 02597 M01S02531.libtask +++| CON 0 02598 M01S02532.libtask +++|
| Line S02533 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02599 M02S02533.v23l617 ---| PRSA CON 0 USER NUMBER
| Line S02534 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02600 M02S02534.v23l617 ---| PRSB DATA C* CONTROL CARD ARGUMENT ERRORS.* 02601 M01S00033.v23l617 +++| PRSA CON 0 USER NAME 02602 M01S00034.v23l617 +++| PRSB DATA C* LIBTASK COMMAND ARGUMENT ERRORS.* 02603 M01S02535.libtask +++| PRSC DATA C* TASK LIBRARY DIRECTORY TOO LONG.* 02604 M01S02536.libtask +++| PRSD DATA C* TASK LIBRARY DIRECTORY EMPTY.* 02605 M01S02537.libtask +++| PRSE DATA C* TASK LIBRARY DIRECTORY ERROR.*
| Line S02538 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02606 M02S02538.v23l617 ---| PRSF DATA C* TT OPTION REQUIRES USER NUMBER.* 02607 M01S00035.v23l617 +++| PRSF DATA C* TT OPTION REQUIRES USER NAME.* 02608 M01S02539.libtask +++| PRSG DATA C* TRANSACTION DIRECTORY EMPTY.* 02609 M01S02540.libtask +++| PRSH DATA C* TRANSACTION DIRECTORY TOO LONG.* 02610 M01S02541.libtask +++| PRSI DATA C* TRANSACTION DIRECTORY ERROR.* 02611 M01S00025.ns2523 +++| PRSJ DATA C* USER NOT VALIDATED FOR ONLINE LIBRARY UPDATES.* 02612 M01S00026.ns2523 +++| 02613 M01S00027.ns2523 +++|* *SETPFP* PARAMETER BLOCK. 02614 M01S00028.ns2523 +++| 02615 M01S00029.ns2523 +++| PRSK VFD 56/0,4/3 02616 M01S00030.ns2523 +++| BSSZ 2 02617 M01S02542.libtask +++| ATP SPACE 4,15 02618 M01S02543.libtask +++|** ATP - ATTACH LIBRARY FILE. 02619 M01S02544.libtask +++|* 02620 M01S02545.libtask +++|* RETURN THE LIBRARY FILE, READ THE REAL-TIME CLOCK, AND 02621 M01S02546.libtask +++|* TRY TO ATTACH THE FILE IN *MODIFY* MODE. 02622 M01S02547.libtask +++|* 02623 M01S02548.libtask +++|* ENTRY (X5) = FET ADDRESS. 02624 M01S02549.libtask +++|* 02625 M01S02550.libtask +++|* EXIT FILE ATTACHED. 02626 M01S02551.libtask +++|* 02627 M01S02552.libtask +++|* USES A - 1, 3, 7. 02628 M01S02553.libtask +++|* X - 1, 3, 4, 7. 02629 M01S02554.libtask +++|* 02630 M01S02555.libtask +++|* CALLS ATT. 02631 M01S02556.libtask +++|* 02632 M01S02557.libtask +++|* MACROS ATTACH, RECALL, RETURN, RTIME. 02633 M01S02558.libtask +++| 02634 M01S02559.libtask +++| 02635 M01S02560.libtask +++| ATP SUBR ENTRY/EXIT 02636 M01S02561.libtask +++| RETURN X5,R RETURN FILE IF PRESENT 02637 M01S02562.libtask +++| RTIME ATTA READ CLOCK 02638 M01S02563.libtask +++| RECALL X5 02639 M01S02564.libtask +++| SA3 X5+10 02640 M01S02565.libtask +++| MX4 -18 02641 M01S02566.libtask +++| BX3 X4*X3 02642 M01S02567.libtask +++| SX4 ARGB PHONY ADDRESS FOR ERROR MESSAGES 02643 M01S02568.libtask +++| BX7 X3+X4 02644 M01S02569.libtask +++| SA7 A3 SUPPRESS ERROR MESSAGES FROM *PFM*
| Line S02570 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02645 M02S02570.libta1 ---| SA1 ERCJ
| Line S02571 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02646 M02S02571.libta1 ---| ZR X1,ATP2 IF TO ATTACH IN *WRITE* MODE
| Line S02572 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02647 M02S02572.libta1 ---| ATP1 ATTACH X5,,,,M ATTACH FILE IN *MODIFY* MODE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | libta1 |
M02 (Updated by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02648 M02S00006.ns2523 ---| ATP1 ATTACH X5,,,,W ATTACH IN *WRITE* MODE FIRST 02649 M01S00031.ns2523 +++| ATP1 ATTACH X5,,,,W,,,,NF ATTACH IN *WRITE* MODE FIRST 02650 M01S00007.libta1 +++| SX7 B1 02651 M01S00008.libta1 +++| SA7 AT INDICATE ATTACHED IN *WRITE* MODE 02652 M01S02573.libtask +++| RJ ATT 02653 M01S02574.libtask +++| ZR X2,ATPX IF ATTACH SUCCESSFUL
| Line S02575 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02654 M02S02575.libta1 ---| EQ ATP1 TRY AGAIN
| Line S02576 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02655 M02S02576.libta1 ---|
| Line S02577 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02656 M02S02577.libta1 ---| ATP2 ATTACH X5,,,,W ATTACH FILE IN *WRITE* MODE 02657 M01S00009.libta1 +++| SA1 ERCJ 02658 M01S00010.libta1 +++| NZ X1,ATP1 IF MUST ATTACH IN *WRITE* MODE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | libta1 |
M02 (Updated by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02659 M02S00011.ns2523 ---| ATP2 ATTACH X5,,,,M ATTACH IN *MODIFY* MODE 02660 M01S00032.ns2523 +++| ATP2 ATTACH X5,,,,M,,,,NF ATTACH IN *MODIFY* MODE 02661 M01S00012.libta1 +++| BX7 X7-X7 02662 M01S00013.libta1 +++| SA7 AT INDICATE ATTACHED IN *MODIFY* MODE 02663 M01S02578.libtask +++| RJ ATT CHECK ATTACH STATUS 02664 M01S02579.libtask +++| ZR X2,ATP IF ATTACH SUCCESSFUL 02665 M01S02580.libtask +++| EQ ATP2 TRY AGAIN 02666 M01S02581.libtask +++| 02667 M01S02582.libtask +++| ATT SPACE 4,20 02668 M01S02583.libtask +++|** ATT - ATTACH CHECKING PROCEDURES. 02669 M01S02584.libtask +++|* 02670 M01S02585.libtask +++|* CHECK FOR A SUCCESSFUL OR UNSUCCESSFUL ATTACH. 02671 M01S02586.libtask +++|* 02672 M01S02587.libtask +++|* ENTRY ATTACH REQUEST HAS BEEN ISSUED. 02673 M01S02588.libtask +++|* (ATTA) = START TIME OF REQUEST. 02674 M01S02589.libtask +++|* (X5) = FET ADDRESS. 02675 M01S02590.libtask +++|* 02676 M01S02591.libtask +++|* EXIT (X2) = 0 IF ATTACH SUCCESSFUL. 02677 M01S02592.libtask +++|* (X2) .NE. 0 IF NEED TO TRY ATTACH AGAIN. 02678 M01S02593.libtask +++|* ABORT IF FILE TIMES OUT. 02679 M01S02594.libtask +++|* ABORT IF ATTACH ERROR. 02680 M01S02595.libtask +++|* 02681 M01S02596.libtask +++|* USES A - 1, 2. 02682 M01S02597.libtask +++|* X - 1, 2, 3, 4, 6, 7. 02683 M01S02598.libtask +++|* 02684 M01S02599.libtask +++|* MACROS ABORT, MESSAGE, RECALL, RTIME. 02685 M01S02600.libtask +++| 02686 M01S02601.libtask +++| 02687 M01S02602.libtask +++| ATT SUBR ENTRY/EXIT 02688 M01S02603.libtask +++| SA1 X5 02689 M01S02604.libtask +++| MX2 -4 02690 M01S02605.libtask +++| LX1 -10 02691 M01S02606.libtask +++| BX2 -X2*X1 STATUS OF ATTACH 02692 M01S02607.libtask +++| ZR X2,ATTX IF FILE ATTACHED 02693 M01S02608.libtask +++| SX3 X2-1 02694 M01S02609.libtask +++| NZ X3,ATT1 IF FILE NOT BUSY 02695 M01S02610.libtask +++| RECALL 02696 M01S02611.libtask +++| RTIME ATTB READ CLOCK 02697 M01S02612.libtask +++| SA1 ATTA START TIME 02698 M01S02613.libtask +++| SA2 ATTB CURRENT TIME 02699 M01S02614.libtask +++| SX4 ATTC LOOP TIME 02700 M01S02615.libtask +++| MX3 -36 02701 M01S02616.libtask +++| BX1 -X3*X1 02702 M01S02617.libtask +++| BX2 -X3*X2 02703 M01S02618.libtask +++| IX6 X2-X1 TIME IN LOOP 02704 M01S02619.libtask +++| IX7 X6-X4 02705 M01S02620.libtask +++| NG X7,ATTX IF TIME ELAPSED, TRY AGAIN 02706 M01S02621.libtask +++| MESSAGE ATTD,3 02707 M01S02622.libtask +++| ABORT TIMED OUT 02708 M01S02623.libtask +++| 02709 M01S02624.libtask +++| ATT1 MESSAGE ATTE 02710 M01S02625.libtask +++| ABORT 02711 M01S02626.libtask +++| 02712 M01S02627.libtask +++| ATTA BSS 1 START TIME OF REQUEST 02713 M01S02628.libtask +++| ATTB BSS 1 CURRENT TIME 02714 M01S02629.libtask +++| ATTC EQU 10000 TIME OUT ON ATTACH ATTEMPT 02715 M01S02630.libtask +++| ATTD DATA C* LIBRARY FILE TIME OUT.* 02716 M01S02631.libtask +++| ATTE DATA C* LIBTASK - PFM ERROR DETECTED.* 02717 M01S02632.libtask +++| ERC SPACE 4,20 02718 M01S02633.libtask +++|** ERC - ERROR CHECKING. 02719 M01S02634.libtask +++|* 02720 M01S02635.libtask +++|* 1. IF TASKLIB STARTS WITH THE LETTER Z , 02721 M01S02636.libtask +++|* PRINT OUT ERROR MESSAGE ON DAYFILE AND OUTPUT 02722 M01S02637.libtask +++|* FILE THEN ABORT. 02723 M01S02638.libtask +++|* 2. IF *DA* IS SPECIFIED AND FILE IS NOT A DIRECT ACCESS 02724 M01S02639.libtask +++|* FILE, ABORT. 02725 M01S02640.libtask +++|* 3. IF *DA* IS SPECIFIED GO TO STEP 5. 02726 M01S02641.libtask +++|* 4. ATTACH FILES SPECIFIED BY *N* AND *P* PARAMETERS, 02727 M01S02642.libtask +++|* IF ATTACH FAILS ABORT.
| Line S02643 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02728 M02S02643.v23l617 ---|* 5. IF ILLEGAL COMBINATION OF CONTROL STATEMENT PARAMETERS, 02729 M01S00036.v23l617 +++|* 5. IF INCORRECT COMBINATION OF COMMAND PARAMETERS, 02730 M01S02644.libtask +++|* PRINT OUT ERROR MESSAGE ON DAYFILE AND OUTPUT THEN ABORT. 02731 M01S02645.libtask +++|* 6. RETURN TO CALLER. 02732 M01S02646.libtask +++|*
| Line S02647 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02733 M02S02647.v23l617 ---|* ENTRY CONTROL STATEMENT PARAMETERS UNPACKED. 02734 M01S00037.v23l617 +++|* ENTRY COMMAND PARAMETERS UNPACKED. 02735 M01S02648.libtask +++|*
| Line S02649 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02736 M02S02649.v23l617 ---|* EXIT IF ERROR ON CONTROL CARD PARAMETERS ABORT. 02737 M01S00038.v23l617 +++|* EXIT IF ERROR ON COMMAND PARAMETERS ABORT. 02738 M01S02650.libtask +++|* (P) = 0 IF *CR* SPECIFIED. 02739 M01S02651.libtask +++|* 02740 M01S02652.libtask +++|* USES A - 1, 2, 3, 5, 6, 7. 02741 M01S02653.libtask +++|* B - 4, 5. 02742 M01S02654.libtask +++|* X - ALL. 02743 M01S02655.libtask +++|* 02744 M01S02656.libtask +++|* CALLS ATP. 02745 M01S02657.libtask +++|* 02746 M01S02658.libtask +++|* MACROS ABORT, MESSAGE, READ, READW, REWIND, SKIPB, SKIPEI, 02747 M01S02659.libtask +++|* STATUS, WRITER, WRITEW. 02748 M01S02660.libtask +++| 02749 M01S02661.libtask +++| 02750 M01S02662.libtask +++| ERC SUBR ENTRY/EXIT 02751 M01S02663.libtask +++| SX6 B0+ 02752 M01S02664.libtask +++| SA6 PN ASSUME *P* AND *N* ARE IDENTICAL 02753 M01S02665.libtask +++| SA6 AT ASSUME FILE NOT ATTACHED BY *TAF* 02754 M01S02666.libtask +++| SA1 N 02755 M01S02667.libtask +++| MX0 6
| Line S02668 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02756 M02S02668.v23l617 ---| SX4 1RZ INVALID TASK LIBRARY FILE NAME 02757 M01S00039.v23l617 +++| SX4 1RZ INCORRECT TASK LIBRARY FILE NAME 02758 M01S02669.libtask +++| LX4 -6 02759 M01S02670.libtask +++| BX2 X0*X1 02760 M01S02671.libtask +++| BX7 X2-X4 02761 M01S02672.libtask +++| SA2 ERCG 02762 M01S02673.libtask +++| ZR X7,ERC1.1 IF *N* STARTS WITH THE LETTER Z 02763 M01S02674.libtask +++| SX7 B1 02764 M01S02675.libtask +++| IX3 X1-X2 02765 M01S02676.libtask +++| ZR X3,ERC1 IF *P* AND *N* ARE IDENTICAL 02766 M01S02677.libtask +++| SA2 P 02767 M01S02678.libtask +++| BX0 X0*X2 02768 M01S02679.libtask +++| BX4 X0-X4 02769 M01S02680.libtask +++| ZR X4,ERC1.1 IF *P* STARTS WITH THE LETTER Z 02770 M01S02681.libtask +++| IX3 X1-X2 02771 M01S02682.libtask +++| ZR X3,ERC1 IF *P* AND *N* ARE IDENTICAL 02772 M01S02683.libtask +++| SA2 DA 02773 M01S02684.libtask +++| SA7 PN *P* AND *N* ARE NOT IDENTICAL 02774 M01S02685.libtask +++| NZ X2,ERC3 IF *DA* SPECIFIED 02775 M01S00014.libta1 +++| SX7 B1 02776 M01S00015.libta1 +++| SA7 ERCJ ATTACH *N* FILE IN *WRITE* MODE 02777 M01S02686.libtask +++| SX5 N 02778 M01S02687.libtask +++| RJ ATP ATTACH *N* FILE 02779 M01S02688.libtask +++| SA1 P 02780 M01S02689.libtask +++| ZR X1,ERC4 IF *P* = 0
| Line S02690 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02781 M02S02690.libta1 ---| SX7 B1+ 02782 M01S00016.libta1 +++| SX7 B0+ 02783 M01S02691.libtask +++| SX5 P 02784 M01S02692.libtask +++| SA7 ERCJ 02785 M01S02693.libtask +++| RJ ATP ATTACH *P* FILE 02786 M01S02694.libtask +++| EQ ERC4 CONTINUE PROCESS 02787 M01S02695.libtask +++| 02788 M01S02696.libtask +++|* PROCESS *N* PARAMETER OMITTED. 02789 M01S02697.libtask +++| 02790 M01S02698.libtask +++| ERC1 SA1 P 02791 M01S02699.libtask +++| NZ X1,ERC2 IF *P* NOT EQUAL TO ZERO 02792 M01S02700.libtask +++| MESSAGE ERCF CONFLICTING *LIBTASK* OPTION 02793 M01S02701.libtask +++| WRITEW O,ERCF,ERCFL 02794 M01S02702.libtask +++| ABORT 02795 M01S02703.libtask +++| 02796 M01S02704.libtask +++| ERC1.1 MESSAGE ERCO 02797 M01S02705.libtask +++| WRITEW O,ERCO,ERCOL 02798 M01S02706.libtask +++| ABORT 02799 M01S02707.libtask +++| 02800 M01S02708.libtask +++| ERC2 SX5 P 02801 M01S02709.libtask +++| SA2 DA 02802 M01S02710.libtask +++| NZ X2,ERC3 IF *DA* SPECIFIED
| Line S02711 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02803 M02S02711.libta1 ---| SA1 TT
| Line S02712 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02804 M02S02712.libta1 ---| BX7 X1
| Line S02713 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02805 M02S02713.libta1 ---| SA7 ERCJ 02806 M01S00017.libta1 +++| SA1 CR 02807 M01S00018.libta1 +++| SA2 PR 02808 M01S00019.libta1 +++| BX7 X1+X2 02809 M01S00020.libta1 +++| SA7 ERCJ SAVE ATTACH MODE 02810 M01S02714.libtask +++| RJ ATP ATTACH P FILE 02811 M01S02715.libtask +++| EQ ERC4 CHECK PARAMETERS 02812 M01S02716.libtask +++| 02813 M01S02717.libtask +++|* PROCESS *DA* PARAMETER. 02814 M01S02718.libtask +++| 02815 M01S02719.libtask +++| ERC3 ZR X3,ERC3.1 IF P AND N ARE IDENTICAL 02816 M01S02720.libtask +++| STATUS N,P 02817 M01S02721.libtask +++| SX2 PMFT DIRECT ACCESS CODE 02818 M01S02722.libtask +++| SA1 N+5 FNT ENTRY 02819 M01S02723.libtask +++| MX0 -6 02820 M01S02724.libtask +++| AX1 6 02821 M01S02725.libtask +++| BX1 -X0*X1 FILE TYPE 02822 M01S02726.libtask +++| IX2 X2-X1 02823 M01S02727.libtask +++| SX6 B0 02824 M01S02728.libtask +++| SA6 N+5 RESTORE FET+5 02825 M01S02729.libtask +++| SA6 A6+B1 RESTORE FET+6 02826 M01S02730.libtask +++| ZR X2,ERC3.1 IF DIRECT ACCESS FILE 02827 M01S02731.libtask +++| SA5 N 02828 M01S02732.libtask +++| MX0 42 02829 M01S02733.libtask +++| BX6 X0*X5 02830 M01S02734.libtask +++| SA6 LIBK+2 02831 M01S02735.libtask +++| MESSAGE LIBK * FILE NOT ATTACHED - FILNAME* 02832 M01S02736.libtask +++| ABORT 02833 M01S02737.libtask +++| 02834 M01S02738.libtask +++| ERC3.1 SA1 P 02835 M01S02739.libtask +++| ZR X1,ERC4 IF P=0 02836 M01S02740.libtask +++| STATUS P,P 02837 M01S02741.libtask +++| SX2 PMFT DIRECT ACCESS CODE 02838 M01S02742.libtask +++| SA1 P+5 FNT ENTRY 02839 M01S02743.libtask +++| MX0 -6 02840 M01S02744.libtask +++| AX1 6 02841 M01S02745.libtask +++| BX1 -X0*X1 FILE TYPE 02842 M01S02746.libtask +++| IX2 X2-X1 02843 M01S02747.libtask +++| SX6 B0 02844 M01S02748.libtask +++| SA6 P+5 RESTORE FET+5 02845 M01S02749.libtask +++| SA6 A6+B1 RESTORE FET+6 02846 M01S02750.libtask +++| ZR X2,ERC4 IF DIRECT ACCESS FILE 02847 M01S02751.libtask +++| SA5 P *P* FILE NAME 02848 M01S02752.libtask +++| MX0 42 02849 M01S02753.libtask +++| BX6 X0*X5 02850 M01S02754.libtask +++| SA6 LIBK+2 02851 M01S02755.libtask +++| MESSAGE LIBK * FILE NOT ATTACHED - FILNAME* 02852 M01S02756.libtask +++| ABORT 02853 M01S02757.libtask +++|
| Line S02758 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02854 M02S02758.v23l617 ---|* CHECK ILLEGAL COMBINATION OF PARAMETERS. 02855 M01S00040.v23l617 +++|* CHECK INCORRECT COMBINATION OF PARAMETERS. 02856 M01S02759.libtask +++| 02857 M01S02760.libtask +++| ERC4 SX4 B0+ 02858 M01S02761.libtask +++| SA1 XTN 02859 M01S02762.libtask +++| ZR X1,ERC4.1 IF NO *TN* 02860 M01S02763.libtask +++| SX4 X4+1 02861 M01S02764.libtask +++| ERC4.1 SA1 LO 02862 M01S02765.libtask +++| SX2 B0+ 02863 M01S02766.libtask +++| ZR X1,ERC4.2 IF NO *LO* 02864 M01S02767.libtask +++| SX3 1RA 02865 M01S02768.libtask +++| SX2 2 02866 M01S02769.libtask +++| LX1 6 02867 M01S02770.libtask +++| IX3 X1-X3 02868 M01S02771.libtask +++| ZR X3,ERC4.2 IF ALL TASKS TO BE REPORTED 02869 M01S02772.libtask +++| SX3 1RT 02870 M01S02773.libtask +++| IX2 X2+X2 02871 M01S02774.libtask +++| IX3 X1-X3 02872 M01S02775.libtask +++| ZR X3,ERC4.2 IF REPORT ONLY TASK NAMED 02873 M01S02776.libtask +++| SX2 6 02874 M01S02777.libtask +++| SX3 1RX 02875 M01S02778.libtask +++| IX3 X1-X3 02876 M01S02779.libtask +++| ZR X3,ERC4.2 IF REPORT ONY TRANSACTION NAMED 02877 M01S02780.libtask +++| SA2 ERCN *LO*, *LO=A*, *LO=T* OR *LO=X* 02878 M01S02781.libtask +++| SX4 X2 MESSAGE ADDRESS 02879 M01S02782.libtask +++| LX2 -18 02880 M01S02783.libtask +++| SX2 X2+ LENGTH OF MESSAGE 02881 M01S02784.libtask +++| EQ ERC8.1 PRINT OUT ERROR MESSAGE 02882 M01S02785.libtask +++| 02883 M01S02786.libtask +++| ERC4.2 IX4 X4+X2 02884 M01S02787.libtask +++| SA2 X4+TERCA ERROR FLAG 02885 M01S02788.libtask +++| SX4 X2 MESSAGE ADDRESS 02886 M01S02789.libtask +++| ZR X4,ERC4.3 IF NO ERROR 02887 M01S02790.libtask +++| LX2 -18 02888 M01S02791.libtask +++| SX2 X2 LENGTH OF MESSAGE 02889 M01S02792.libtask +++| EQ ERC8.1 PRINT OUT ERROR MESSAGE 02890 M01S02793.libtask +++| 02891 M01S02794.libtask +++| ERC4.3 SX4 B0+ 02892 M01S02795.libtask +++| SA1 CR 02893 M01S02796.libtask +++| ZR X1,ERC5 IF NOT *CR* 02894 M01S02797.libtask +++| SX1 B1+ 02895 M01S02798.libtask +++| ERC5 BX4 X4+X1 ADD *CR* FLAG 02896 M01S02799.libtask +++| SA2 PR 02897 M01S02800.libtask +++| ZR X2,ERC6 IF NOT *PR* 02898 M01S02801.libtask +++| SX2 2 02899 M01S02802.libtask +++| ERC6 BX4 X4+X2 ADD *PR* FLAG 02900 M01S02803.libtask +++| SA1 TT 02901 M01S02804.libtask +++| ZR X1,ERC7 IF NOT *TT* 02902 M01S02805.libtask +++| SX1 4 02903 M01S02806.libtask +++| ERC7 SA3 PN 02904 M01S02807.libtask +++| SA5 P 02905 M01S02808.libtask +++| BX4 X4+X1 02906 M01S02809.libtask +++| BX6 X5 SAVE FILE NAME 02907 M01S02810.libtask +++| ZR X3,ERC8 IF *P* IDENTICAL TO *N* 02908 M01S02811.libtask +++| SX3 8 02909 M01S02812.libtask +++| SA5 N 02910 M01S02813.libtask +++| ERC8 BX4 X4+X3 ADD *PN* FLAG
| Line S02814 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 02911 M02S02814.libta2 ---| SA1 AT
| Line S02815 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 02912 M02S02815.libta2 ---| BX4 X4+X1 ADD *AT* FLAG 02913 M01S02816.libtask +++| SA2 X4+TERC ERROR FLAG
| Line S02817 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 02914 M02S02817.libta2 ---| SX4 X2+ MESSAGE ADDRESS 02915 M01S00001.libta2 +++| SX4 X2 MESSAGE ADDRESS 02916 M01S02818.libtask +++| ZR X4,ERC9 IF NO ERROR 02917 M01S02819.libtask +++| LX2 -18 02918 M01S02820.libtask +++| SX2 X2 LENGTH OF MESSAGE 02919 M01S02821.libtask +++| ERC8.1 WRITEW O,X4,X2 PRINT OUT ERROR MESSAGE 02920 M01S02822.libtask +++| WRITER O 02921 M01S02823.libtask +++| LX4 30 02922 M01S02824.libtask +++| BX6 X4 02923 M01S02825.libtask +++| SA6 ERCA DAYFILE MESSAGE ADDRESS 02924 M01S02826.libtask +++| MESSAGE ERCA 02925 M01S02827.libtask +++| ABORT 02926 M01S02828.libtask +++| 02927 M01S02829.libtask +++|* SET UP OLD DIRECTORY FOR PROCESSING. 02928 M01S02830.libtask +++| 02929 M01S02831.libtask +++| ERC9 SA1 CR 02930 M01S02832.libtask +++| SA2 P 02931 M01S02833.libtask +++| MX0 42 MASK FILE NAME 02932 M01S02834.libtask +++| BX7 X0*X5 02933 M01S02835.libtask +++| SA7 LIBC+4 DISPLAY FILE NAME 02934 M01S02836.libtask +++| SA7 LIBD+4 02935 M01S02837.libtask +++| BX7 X0*X6 02936 M01S02838.libtask +++| SA7 LIBE+4 02937 M01S02839.libtask +++| NZ X1,ERCX IF CREATION RUN 02938 M01S02840.libtask +++| ZR X2,ERCX IF *P* IS EQUAL TO ZERO 02939 M01S02841.libtask +++| REWIND P 02940 M01S02842.libtask +++| SKIPEI P,R 02941 M01S02843.libtask +++| SKIPB P,2,R POSITION AT DIRECTORY 02942 M01S02844.libtask +++| READ P 02943 M01S02845.libtask +++| READW P,TLDH,TSKDL+4 DIRECTORY + HEADER 02944 M01S02846.libtask +++| NZ X1,ERC10 IF DIRECTORY NOT TOO LONG 02945 M01S02847.libtask +++| MESSAGE PRSC
| Line S02848 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02946 M02S02848.v23l617 ---| ABORT ILLEGAL DIRECTORY FORMAT 02947 M01S00041.v23l617 +++| ABORT INCORRECT DIRECTORY FORMAT 02948 M01S02849.libtask +++| 02949 M01S02850.libtask +++| ERC10 PL X1,ERC11 IF DATA ON DIRECTORY 02950 M01S02851.libtask +++| MESSAGE PRSD DIRECTORY EMPTY 02951 M01S02852.libtask +++| ABORT 02952 M01S02853.libtask +++| 02953 M01S02854.libtask +++| ERC11 SX7 X1+ 02954 M01S02855.libtask +++| SX2 X1-TLD NUMBER OF WORDS IN TLD 02955 M01S02856.libtask +++| SA7 LWTLD LWA OF TLD 02956 M01S02857.libtask +++| SB4 TLD 02957 M01S02858.libtask +++| SB5 X7 02958 M01S02859.libtask +++| MX5 42 02959 M01S02860.libtask +++| SA1 TLDH+1 CHECK FOR NAME 02960 M01S02861.libtask +++| MX4 18 02961 M01S02862.libtask +++| BX6 -X2 02962 M01S02863.libtask +++| SX6 X6+TSKDL 02963 M01S02864.libtask +++| SA6 FSLT UNUSED SPACE LEFT IN TLD 02964 M01S02865.libtask +++| SA2 ERCI 02965 M01S02866.libtask +++| BX4 X4*X1 02966 M01S02867.libtask +++| MX7 -18 02967 M01S02868.libtask +++| IX3 X4-X2 02968 M01S02869.libtask +++| LX1 -18 02969 M01S02870.libtask +++| BX7 -X7*X1 LWA OF BASE TLD 02970 M01S02871.libtask +++| SX7 X7+TLD 02971 M01S02872.libtask +++| SA7 LWOLD 02972 M01S02873.libtask +++| ZR X3,ERC12 IF NAME WAS *TLD* 02973 M01S02874.libtask +++| MESSAGE PRSE * TASK LIBRARY DIRECTORY ERROR.* 02974 M01S02875.libtask +++| ABORT BAD LIBRARY FILE 02975 M01S02876.libtask +++| 02976 M01S02877.libtask +++| ERC12 SA1 TLDH 02977 M01S02878.libtask +++| MX0 30 02978 M01S02879.libtask +++| BX6 -X0*X1 EXTRACT PRU ADDRESS OF TRD 02979 M01S02880.libtask +++| ZR X6,ERCX IF NO TRD 02980 M01S02881.libtask +++| SA6 P+6 STORE IN FET 02981 M01S02882.libtask +++| READ P 02982 M01S02883.libtask +++| READW P,TRDH,TRNDL+4 DIRECTORY + HEADER 02983 M01S02884.libtask +++| NZ X1,ERC13 IF DIRECTORY NOT TOO LONG 02984 M01S02885.libtask +++| MESSAGE PRSH DIRECTORY TOO LONG 02985 M01S02886.libtask +++| ABORT 02986 M01S02887.libtask +++| 02987 M01S02888.libtask +++| ERC13 PL X1,ERC14 IF DATA IN DIRECTORY 02988 M01S02889.libtask +++| MESSAGE PRSG DIRECTORY EMPTY 02989 M01S02890.libtask +++| ABORT 02990 M01S02891.libtask +++| 02991 M01S02892.libtask +++| ERC14 SX7 X1 02992 M01S02893.libtask +++| SX2 X1-TRD WORDS IN TRD 02993 M01S02894.libtask +++| SA7 LWTRD 02994 M01S02895.libtask +++| SA7 LATRD 02995 M01S02896.libtask +++| SA1 TRDH+1 CHECK FOR NAME 02996 M01S02897.libtask +++| MX4 18 02997 M01S02898.libtask +++| BX6 -X2 02998 M01S02899.libtask +++| SX6 X6+TRNDL 02999 M01S02900.libtask +++| SA6 FSTR UNUSED SPACE LEFT IN TRD 03000 M01S02901.libtask +++| SA2 ERCK 03001 M01S02902.libtask +++| BX4 X4*X1 03002 M01S02903.libtask +++| BX4 X4-X2 03003 M01S02904.libtask +++| SX6 B1+ 03004 M01S02905.libtask +++| SA6 TRDE FLAG *TRD* EXISTS 03005 M01S02906.libtask +++| ZR X4,ERCX IF NAME WAS *TRD* 03006 M01S02907.libtask +++| MESSAGE PRSI DIRECTORY ERROR 03007 M01S02908.libtask +++| ABORT 03008 M01S02909.libtask +++| 03009 M01S02910.libtask +++| ERCA CON 0 03010 M01S02911.libtask +++| ERCB DATA C* CONFLICTING LIBTASK OPTIONS - CR, PR.* 03011 M01S02912.libtask +++| ERCBL EQU *-ERCB 03012 M01S02913.libtask +++| ERCC DATA C* CONFLICTING LIBTASK OPTIONS - CR, TT.* 03013 M01S02914.libtask +++| ERCCL EQU *-ERCC 03014 M01S02915.libtask +++| ERCD DATA C* CONFLICTING LIBTASK OPTIONS - PR, TT.* 03015 M01S02916.libtask +++| ERCDL EQU *-ERCD
| Line S02917 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
M03 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03016 M03S02917.v23l617 ---| ERCE DATA C* ILLEGAL PR OR CR WHEN FILE ATTACHED BY TAF.* 03017 M01S00042.v23l617 +++| ERCE DATA C* INCORRECT PR OR CR WHEN FILE ATTACHED BY TAF.*
| Line S02918 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03018 M02S02918.libta2 ---| ERCEL EQU *-ERCE 03019 M01S02919.libtask +++| ERCF DATA C* CONFLICTING LIBTASK OPTIONS - P=0, -N.* 03020 M01S02920.libtask +++| ERCFL EQU *-ERCF 03021 M01S02921.libtask +++| ERCG VFD 60/0LSCRATCH+3 DUMMY FILE TO CHECK IF N OMITTED 03022 M01S02922.libtask +++| ERCH DATA C* CONFLICTING LIBTASK OPTIONS - TT, N.* 03023 M01S02923.libtask +++| ERCHL EQU *-ERCH 03024 M01S02924.libtask +++| ERCI VFD 60/3LTLD HEADER WORD FOR TLD
| Line S02925 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 03025 M02S02925.libta1 ---| ERCJ CON 0 ATTACH FLAG IF SET ATTACH IN MODIFY MODE 03026 M01S00021.libta1 +++| ERCJ BSSZ 1 ATTACH FLAG, IF SET ATTACH IN *WRITE* MODE 03027 M01S02926.libtask +++| ERCK VFD 60/0LTRD HEADER WORD FOR TRD 03028 M01S02927.libtask +++| ERCL DATA C* TN REQUIRES EITHER LO=T OR LO=X.* 03029 M01S02928.libtask +++| ERCLL EQU *-ERCL 03030 M01S02929.libtask +++| ERCM DATA C* VALID LO OPTIONS ARE LO, LO=A, LO=T OR LO=X.* 03031 M01S02930.libtask +++| ERCML EQU *-ERCM 03032 M01S02931.libtask +++| ERCN VFD 30/0,12/ERCML,18/ERCM *LO*, *LO=A*, *LO=T* OR *LO=X* 03033 M01S02932.libtask +++| ERCO DATA C* TASKLIB MUST NOT START WITH THE LETTER Z.* 03034 M01S02933.libtask +++| ERCOL EQU *-ERCO 03035 M01S02934.libtask +++|
| Line S02935 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03036 M02S02935.v23l617 ---| TERC BSS 0 TRUTH TABLE OF CONTROL CARD PARAMETERS 03037 M01S00043.v23l617 +++| TERC BSS 0 TRUTH TABLE OF COMMAND PARAMETERS 03038 M01S02936.libtask +++| VFD 60/0 ADD (B) TO (P) 03039 M01S02937.libtask +++| VFD 60/0 CREATE P FROM B 03040 M01S02938.libtask +++| VFD 60/0 DELETE INACTIVE TASKS IN P 03041 M01S02939.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03042 M01S02940.libtask +++| VFD 60/0 TAF IS NOT UP SO *TT* HAS NO EFFECT
| Line S02941 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03043 M02S02941.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD
| Line S02942 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03044 M02S02942.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD 03045 M01S00044.v23l617 +++| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN COMMAND 03046 M01S00045.v23l617 +++| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN COMMAND 03047 M01S02943.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03048 M01S02944.libtask +++| VFD 60/0, COPY (P) TO N AND ADD (B) 03049 M01S02945.libtask +++| VFD 60/0 CREATE N FROM (P) AND (B) 03050 M01S02946.libtask +++| VFD 60/0 CREATE N FROM (P) AND (B) 03051 M01S02947.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03052 M01S02948.libtask +++| VFD 30/0,12/ERCHL,18/ERCH *TT* WITH N SPECIFIED
| Line S02949 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03053 M02S02949.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD
| Line S02950 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03054 M02S02950.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD 03055 M01S00046.v23l617 +++| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN COMMAND 03056 M01S00047.v23l617 +++| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN COMMAND 03057 M01S02951.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME
| Line S02952 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03058 M02S02952.libta2 ---| VFD 60/0 ADD (B) TO (P)
| Line S02953 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03059 M02S02953.libta2 ---| VFD 30/0,12/ERCEL,18/ERCE P FILE ATTACHED BY TAF
| Line S02954 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03060 M02S02954.libta2 ---| VFD 30/0,12/ERCEL,18/ERCE *PR* WHEN P ATTACHED BY TAF
| Line S02955 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03061 M02S02955.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME
| Line S02956 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03062 M02S02956.libta2 ---| VFD 60/0 ADD (B) TO P AND TELL TAF
| Line S02957 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
M03 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03063 M03S02957.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD
| Line S02958 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
M03 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03064 M03S02958.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD 03065 M01S00048.v23l617 +++| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN COMMAND 03066 M01S00049.v23l617 +++| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN COMMAND
| Line S02959 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03067 M02S02959.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME
| Line S02960 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03068 M02S02960.libta2 ---| VFD 60/0 COPY (P) TO (N) AND ADD (B)
| Line S02961 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03069 M02S02961.libta2 ---| VFD 60/0 CREATE N FROM B
| Line S02962 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03070 M02S02962.libta2 ---| VFD 60/0 CREATE N FROM P AND B
| Line S02963 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03071 M02S02963.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME
| Line S02964 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03072 M02S02964.libta2 ---| VFD 30/0,12/ERCHL,18/ERCH *TT* WITH N SPECIFIED
| Line S02965 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
M03 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03073 M03S02965.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD
| Line S02966 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
M03 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03074 M03S02966.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD 03075 M01S00050.v23l617 +++| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN COMMAND 03076 M01S00051.v23l617 +++| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN COMMAND
| Line S02967 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03077 M02S02967.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03078 M01S02968.libtask +++| 03079 M01S02969.libtask +++|* ERROR MESSAGE TABLE FOR *LO* AND *TN* PARAMETERS. 03080 M01S02970.libtask +++| TERCA BSS 0 TRUTH TABLE OF *LO* AND *TN* PARAMETERS 03081 M01S02971.libtask +++| CON 0 NEITHER OPTION 03082 M01S02972.libtask +++| VFD 30/0,12/ERCLL,18/ERCL *TN* REQUIRES *LO*=T OR *LO*=X 03083 M01S02973.libtask +++| CON 0 *LO* WITH DEFAULT 03084 M01S02974.libtask +++| VFD 30/0,12/ERCLL,18/ERCL *TN* REQUIRES *LO*=T OR *LO*=X 03085 M01S02975.libtask +++| CON 0 *LO=T* 03086 M01S02976.libtask +++| CON 0 *LO*=T AND *TN* 03087 M01S02977.libtask +++| CON 0 *LO=X* 03088 M01S02978.libtask +++| CON 0 *LO*=X AND *TN* 03089 M01S02979.libtask +++| INP SPACE 4,25 03090 M01S02980.libtask +++|** INP - PROCESS INPUT DIRECTIVES. 03091 M01S02981.libtask +++|* 03092 M01S02982.libtask +++|* PROCESS THE INPUT DIRECTIVES, CHECKING FOR ERRORS AND 03093 M01S02983.libtask +++|* SETTING UP MANAGED TABLES WITH THE DIRECTORY VALUES FOR EACH 03094 M01S02984.libtask +++|* TASK. ONE ENTRY IS ESTABLISHED FOR EACH DIRECTIVE, THEREFORE 03095 M01S02985.libtask +++|* ONLY ONE DIRECTIVE SHOULD BE USED FOR ANY TASK. SEVERAL 03096 M01S02986.libtask +++|* PARAMETERS MAY BE INCLUDED IN ONE DIRECTIVE HOWEVER. 03097 M01S02987.libtask +++|* 03098 M01S02988.libtask +++|* ENTRY (JOBORG) = 0 IF INTERACTIVE INPUT. 03099 M01S02989.libtask +++|* 03100 M01S02990.libtask +++|* EXIT INPUT DIRECTIVES PROCESSED. 03101 M01S02991.libtask +++|* 03102 M01S02992.libtask +++|* USES A - ALL. 03103 M01S02993.libtask +++|* X - ALL. 03104 M01S02994.libtask +++|* B - 2, 3, 4, 5, 6. 03105 M01S02995.libtask +++|* 03106 M01S02996.libtask +++|* CALLS ALC, ARG, DXB, ERR, SFN, STD, UPC. 03107 M01S02997.libtask +++|* 03108 M01S02998.libtask +++|* MACROS ABORT, ADDWRD, MESSAGE, READS, WRITEC, WRITER, 03109 M01S02999.libtask +++|* WRITES, WRITEW. 03110 M01S03000.libtask +++| 03111 M01S03001.libtask +++| 03112 M01S03002.libtask +++| INP SUBR ENTRY/EXIT 03113 M01S03003.libtask +++| SA1 O+1 OUTPUT FET 03114 M01S03004.libtask +++| SX2 B1 03115 M01S03005.libtask +++| LX2 36-0 POSITION FLUSH BIT 03116 M01S03006.libtask +++| BX6 X2+X1 03117 M01S03007.libtask +++| SA6 A1 SET FLUSH BIT 03118 M01S03008.libtask +++| SA1 JOBORG 03119 M01S03009.libtask +++| ZR X1,INP2 IF INTERACTIVE INPUT 03120 M01S03010.libtask +++| WRITEW O,INPG,INPGL 03121 M01S03011.libtask +++| SX2 2 03122 M01S03012.libtask +++| RJ ALC ADVANCE LINE COUNT 03123 M01S03013.libtask +++| EQ INP2 BYPASS FIRST WRITE 03124 M01S03014.libtask +++| 03125 M01S03015.libtask +++| INP1 SA1 JOBORG 03126 M01S03016.libtask +++| ZR X1,INP2 IF INTERACTIVE INPUT 03127 M01S03017.libtask +++| WRITEW O,INPK,1 03128 M01S03018.libtask +++| WRITES O,INPA,INPAL ECHO PRINT LINE TO OUTPUT FILE 03129 M01S03019.libtask +++| SX2 B1+ 03130 M01S03020.libtask +++| RJ ALC ADVANCE LINE COUNT 03131 M01S03021.libtask +++| INP2 READS I,INPA,INPAL READ A DIRECTIVE CARD 03132 M01S03022.libtask +++| NZ X1,INP20 IF EOR/EOF ENCOUNTERED ON FILE 03133 M01S03023.libtask +++| SA1 INPI 03134 M01S03024.libtask +++| SX7 X1+B1 ADVANCE NUMBER OF DIRECTIVES PROCESSED 03135 M01S03025.libtask +++| SA7 A1 03136 M01S03026.libtask +++| SA1 INPA FIRST CHARACTER 03137 M01S03027.libtask +++| SB2 7 MAXIMUM TASK NAME CHARACTER LENGTH 03138 M01S03028.libtask +++| SB6 A1+B1 START OF BUFFER 03139 M01S03029.libtask +++| BX6 X6-X6 03140 M01S03030.libtask +++| SB7 INPA+INPAL END OF BUFFER 03141 M01S03031.libtask +++| SX7 X1-1R* 03142 M01S03032.libtask +++| SB5 60 03143 M01S03033.libtask +++| SX0 55B HOLLERITH BLANK 03144 M01S03034.libtask +++| SX5 45B FIRST NON ALPHANUMERIC CHARACTER 03145 M01S03035.libtask +++| ZR X7,INP3 IF FIRST CHARACTER * 03146 M01S03036.libtask +++| SX7 X1-1R/ 03147 M01S03037.libtask +++| NZ X7,INP19 IF FIRST CHARACTER NOT / 03148 M01S03038.libtask +++| SX7 B1 03149 M01S03039.libtask +++| SA7 INPQ FLAG TRANSACTION DIRECTIVE
| Line S03040 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03150 M02S03040.v23l617 ---| INP3 EQ B6,B7,INP19 IF END OF CARD 03151 M01S00052.v23l617 +++| INP3 EQ B6,B7,INP19 IF END OF COMMAND 03152 M01S03041.libtask +++| SA1 B6 03153 M01S03042.libtask +++| SB6 B6+B1 03154 M01S03043.libtask +++| BX2 X1-X0 03155 M01S03044.libtask +++| IX3 X1-X5 03156 M01S03045.libtask +++| ZR X2,INP4 IF END OF TASK NAME 03157 M01S03046.libtask +++| SX2 X0+B1 03158 M01S03047.libtask +++| BX2 X1-X2 03159 M01S03048.libtask +++| ZR X2,INP4 IF COMMA LEGAL SEPARATOR
| Line S03049 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03160 M02S03049.v23l617 ---| PL X3,INP19 IF ILLEGAL CHARACTER 03161 M01S00053.v23l617 +++| PL X3,INP19 IF INCORRECT CHARACTER 03162 M01S03050.libtask +++| LX6 6 03163 M01S03051.libtask +++| BX6 X6+X1 ACCUMULATE CHARACTERS 03164 M01S03052.libtask +++| SB5 B5-6 03165 M01S03053.libtask +++| SB2 B2-B1 03166 M01S03054.libtask +++| LT B2,INP19 IF .GT. 7 CHARACTERS IN NAME 03167 M01S03055.libtask +++| EQ INP3 CHECK NEXT CHARACTER 03168 M01S03056.libtask +++| 03169 M01S03057.libtask +++| INP4 ZR X6,INP19 IF NO TASK NAME 03170 M01S03058.libtask +++| LX2 X6,B5 03171 M01S03059.libtask +++| SX5 B5 SAVE (B5) 03172 M01S03060.libtask +++| SX6 B6 SAVE (B6) 03173 M01S03061.libtask +++| SA1 LWOLD LWA OF BASE TLD 03174 M01S03062.libtask +++| SB6 X1 03175 M01S03063.libtask +++| SB5 TLD START OF TLD 03176 M01S03064.libtask +++| SB3 TLDLE TLD ENTRY LENGTH 03177 M01S03065.libtask +++| SA3 INPQ 03178 M01S03066.libtask +++| ZR X3,INP4.1 IF TASK DIRECTIVE 03179 M01S03067.libtask +++| SA1 LATRD LWA OF TRD 03180 M01S03068.libtask +++| SB6 X1 03181 M01S03069.libtask +++| SB5 TRD 03182 M01S03070.libtask +++| SB3 TRDLE1 TRD ENTRY LENGTH 03183 M01S03071.libtask +++| BX7 X2 03184 M01S03072.libtask +++| SA7 INPT SAVE TRANSACTION NAME 03185 M01S03073.libtask +++| INP4.1 RJ STD CHECK IF IN DIRECTORY 03186 M01S03074.libtask +++| SB5 X5 RESTORE (B5) 03187 M01S03075.libtask +++| SB6 X6 RESTORE (B6) 03188 M01S03076.libtask +++| SX0 55B 03189 M01S03077.libtask +++| SB7 INPA+INPAL RESTORE (B7) 03190 M01S03078.libtask +++| ZR X1,INP5 IF TASK/TRANSACTION FOUND 03191 M01S03079.libtask +++| SA1 INPQ 03192 M01S03080.libtask +++| NZ X1,INP6 IF TRANSACTION DIRECTIVE 03193 M01S03081.libtask +++| ADDWRD DRTC,X2 ADD TASK NAME TO DIRECTIVE LIST 03194 M01S03082.libtask +++| BX7 X7-X7 03195 M01S03083.libtask +++| SA7 INPN CLEAR FLAG TO INDICATE NEW DIRECTIVE 03196 M01S03084.libtask +++| EQ INP6 PROCESS DIRECTIVES 03197 M01S03085.libtask +++| 03198 M01S03086.libtask +++| INP5 SX7 A1 ADDRESS OF TASK IN DIRECTORY 03199 M01S03087.libtask +++| SA7 INPN 03200 M01S03088.libtask +++| SA1 INPQ 03201 M01S03089.libtask +++| NZ X1,INP6 IF TRANSACTION DIRECTIVE 03202 M01S03090.libtask +++| ADDWRD TDCH,X2 DIRECTIVE CHANGED TABLE
| Line S03091 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03203 M02S03091.v23l617 ---| INP6 EQ B6,B7,INP19 IF NO DIRECTIVES ON CARD 03204 M01S00054.v23l617 +++| INP6 EQ B6,B7,INP19 IF NO DIRECTIVES ON COMMAND 03205 M01S03092.libtask +++| SA1 B6 03206 M01S03093.libtask +++| SB6 B6+B1 03207 M01S03094.libtask +++| BX2 X1-X0 03208 M01S03095.libtask +++| ZR X2,INP6 IF SKIP ALL BLANKS 03209 M01S03096.libtask +++| SX5 B6-B1 FIRST NON BLANK CHARACTER AFTER TASK NAME 03210 M01S03097.libtask +++| SA1 INPC+1 FIRST 03211 M01S03098.libtask +++| SX7 X1 03212 M01S03099.libtask +++| SA7 A1+B1 REWIND FET 03213 M01S03100.libtask +++| SX6 X7+8 03214 M01S03101.libtask +++| SA7 A7+B1 OUT 03215 M01S03102.libtask +++| SA6 A7+B1 LIMIT 03216 M01S03103.libtask +++| SB7 B7-B6 03217 M01S03104.libtask +++| WRITES INPC,X5,B7 PUT BACK INTO WORD FORMAT 03218 M01S03105.libtask +++| BX6 X6-X6 ADD LINE TERMINATOR 03219 M01S03106.libtask +++| SB4 60 03220 M01S03107.libtask +++| SB7 B1+B1 UNPACK INTO LOW CORE 03221 M01S03108.libtask +++| SA6 B3 03222 M01S03109.libtask +++| SA1 B3-B1 LAST CM WORD OF DIRECTIVE 03223 M01S03110.libtask +++| SX7 1R. 03224 M01S03111.libtask +++| SB6 6 03225 M01S03112.libtask +++| MX0 6 03226 M01S03113.libtask +++| LX7 -6 03227 M01S03114.libtask +++| INP7 BX3 X0*X1 MASK LEFT MOST CHARACTER 03228 M01S03115.libtask +++| IX2 X7-X3 03229 M01S03116.libtask +++| ZR X2,INP9 IF TERMINATOR 03230 M01S03117.libtask +++| ZR X3,INP8 IF END OF LINE 03231 M01S03118.libtask +++| LX1 X1,B6 LEFT SHIFT ONE CHARACTER 03232 M01S03119.libtask +++| SB4 B4-B6 03233 M01S03120.libtask +++| NZ B4,INP7 IF NOT AT WORD BOUNDARY 03234 M01S03121.libtask +++| SA1 A1+B1 NEXT WORD 03235 M01S03122.libtask +++| SB4 60 03236 M01S03123.libtask +++| EQ INP7 TRY AGAIN 03237 M01S03124.libtask +++| 03238 M01S03125.libtask +++| INP8 BX7 X7+X1 ADD TERMINATOR 03239 M01S03126.libtask +++| LX7 X7,B4 03240 M01S03127.libtask +++| SA7 A1+ 03241 M01S03128.libtask +++| INP9 SA5 INPCD FIRST WORD OF DIRECTIVES (DUMMY) 03242 M01S03129.libtask +++| RJ UPC UNPACK DIRECTIVES 03243 M01S03130.libtask +++| SB6 B6+B1 03244 M01S03131.libtask +++| ZR X7,INP10 IF END OF LINE 03245 M01S03132.libtask +++| SB6 B6-B1 03246 M01S03133.libtask +++| NZ X6,INP19 IF ERROR IN DIRECTIVE FORMAT 03247 M01S03134.libtask +++| INP10 SB4 B6-B1 ADJUST ARGUMENT COUNT 03248 M01S03135.libtask +++| SA4 B7+B1 FIRST ARGUMENT ADDRESS 03249 M01S03136.libtask +++| SX7 B4 03250 M01S03137.libtask +++| SA7 INPR SAVE ARGUMENT COUNT 03251 M01S03138.libtask +++| SA1 INPQ 03252 M01S03139.libtask +++| SB5 INPE ARGUMENT TABLE 03253 M01S03140.libtask +++| ZR X1,INP10.1 IF TASK DIRECTIVE 03254 M01S03141.libtask +++| SB5 INPO ARGUMENT TABLE 03255 M01S03142.libtask +++| INP10.1 RJ ARG PROCESS ARGUMENTS 03256 M01S03143.libtask +++| NZ X1,INP19 IF ERROR IN DIRECTIVE ARGUMENTS 03257 M01S03144.libtask +++| SA1 INPQ 03258 M01S03145.libtask +++| NZ X1,INP22 IF TRANSACTION DIRECTIVE 03259 M01S03146.libtask +++| 03260 M01S03147.libtask +++|* PROCESS DIRECTORY ARGUMENTS. 03261 M01S03148.libtask +++| 03262 M01S03149.libtask +++| SA1 IG 03263 M01S03150.libtask +++| SA2 INPN 03264 M01S03151.libtask +++| ZR X1,INP12 IF NOT IGNORE 03265 M01S03152.libtask +++| NZ X2,INP11 IF TASK IN DIRECTORY 03266 M01S03153.libtask +++| MX2 1 03267 M01S03154.libtask +++| ADDWRD DRTC,X2 03268 M01S03155.libtask +++| BX2 X2-X2 03269 M01S03156.libtask +++| ADDWRD DRTC,X2 03270 M01S03157.libtask +++| SB2 B0 03271 M01S03158.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03272 M01S03159.libtask +++| 03273 M01S03160.libtask +++| INP11 MX2 1 03274 M01S03161.libtask +++| ADDWRD TDCH,X2 03275 M01S03162.libtask +++| BX2 X2-X2 03276 M01S03163.libtask +++| ADDWRD TDCH,X2 03277 M01S03164.libtask +++| SB2 B0 03278 M01S03165.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03279 M01S03166.libtask +++| 03280 M01S03167.libtask +++|* PROCESS OTHER DIRECTIVES. 03281 M01S03168.libtask +++| 03282 M01S03169.libtask +++| INP12 SA5 BP 03283 M01S03170.libtask +++| SB7 B0+ SET OCTAL CONVERSION 03284 M01S03171.libtask +++| RJ DXB CONVERT BEGINNING PRIORITY TO OCTAL 03285 M01S03172.libtask +++| NZ X4,INP19 IF ERROR IN CONVERSION 03286 M01S03173.libtask +++| SA6 BP STORE NEW VALUE 03287 M01S03174.libtask +++| SA5 MP 03288 M01S03175.libtask +++| RJ DXB CONVERT MAXIMUM PRIORITY TO OCTAL 03289 M01S03176.libtask +++| NZ X4,INP19 IF CONVERSION ERROR 03290 M01S03177.libtask +++| SA6 MP STORE NEW VALUE 03291 M01S03178.libtask +++| SA5 QL 03292 M01S03179.libtask +++| RJ DXB CONVERT QUEUE LIMIT TO OCTAL 03293 M01S03180.libtask +++| NZ X4,INP19 IF CONVERSION ERROR 03294 M01S03181.libtask +++| SA6 QL STORE NEW VALUE 03295 M01S03182.libtask +++| SA5 EF EXPANDABLE FL 03296 M01S03183.libtask +++| RJ DXB CONVERT TO BINARY 03297 M01S03184.libtask +++| SX6 X6 03298 M01S03185.libtask +++| SX1 MAXEF+1 03299 M01S03186.libtask +++| IX2 X6-X1 03300 M01S03187.libtask +++| PL X2,INP19 IF MAXIMUM EXPANDABLE FL EXCEEDED 03301 M01S03188.libtask +++| NG X6,INP19 IF NEGATIVE VALUE 03302 M01S03189.libtask +++| NZ X4,INP19 IF CONVERSION ERROR 03303 M01S03190.libtask +++| SA6 EF 03304 M01S03191.libtask +++| 03305 M01S03192.libtask +++|* CHECK FOR PARAMETER VALUES OUT OF RANGE. 03306 M01S03193.libtask +++| 03307 M01S03194.libtask +++| SA1 BP BEGINNING PRIORITY 03308 M01S03195.libtask +++| SX2 X1-MXBP-1 03309 M01S03196.libtask +++| SA3 MP MAXIMUM PRIORITY 03310 M01S03197.libtask +++| SX4 X1-MNBP 03311 M01S03198.libtask +++| PL X2,INP19 IF BEGINNING PRIORITY IS TOO HIGH 03312 M01S03199.libtask +++| NG X4,INP19 IF BEGINNING PRIORITY IS TOO LOW 03313 M01S03200.libtask +++| SX2 X3-MNMP 03314 M01S03201.libtask +++| SX3 X3-MXMP-1 03315 M01S03202.libtask +++| NG X2,INP19 IF MAXIMUM PRIORITY IS TOO LOW 03316 M01S03203.libtask +++| SA1 QL QUEUE LIMIT 03317 M01S03204.libtask +++| PL X3,INP19 IF MAXIMUM PRIORITY IS TOO HIGH 03318 M01S03205.libtask +++| SX2 X1-MAXQL-1 03319 M01S03206.libtask +++| SX4 X1-MINQL 03320 M01S03207.libtask +++| PL X2,INP19 IF QUEUE LIMIT TOO HIGH 03321 M01S03208.libtask +++| NG X4,INP19 IF QUEUE LIMIT TOO LOW 03322 M01S03209.libtask +++| SA1 C
| Line S03210 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | ns2327 |
Seq # *Modification Id* Act ----------------------------+ 03323 M02S03210.ns2327 ---| ZR X1,INP13 IF NOT A CORE RESIDENT TASK 03324 M01S00001.ns2327 +++| SA2 TT 03325 M01S00002.ns2327 +++| ZR X2,INP12.1 IF *TT* OPTION NOT SPECIFIED 03326 M01S00003.ns2327 +++| NZ X1,INP19 IF CORE RESIDENT UPDATE ATTEMPT WITH *TT* 03327 M01S00004.ns2327 +++| SA1 INPN 03328 M01S00005.ns2327 +++| ZR X1,INP13 IF TASK NOT IN DIRECTORY 03329 M01S00006.ns2327 +++| SA1 X1+2 THIRD WORD OF TASK DIRECTORY ENTRY 03330 M01S00007.ns2327 +++| LX1 59-57 03331 M01S00008.ns2327 +++| NG X1,INP19 IF OLD COPY OF TASK IS CORE RESIDENT 03332 M01S00009.ns2327 +++| EQ INP13 PROCESS NEXT TASK CHARACTERISTIC 03333 M01S00010.ns2327 +++| 03334 M01S00011.ns2327 +++| INP12.1 ZR X1,INP13 IF NOT A CORE RESIDENT TASK 03335 M01S03211.libtask +++| SA1 CRES 03336 M01S03212.libtask +++| SX7 X1+1 BUMP CORE RESIDENT TASK COUNT 03337 M01S03213.libtask +++| SA7 A1+ 03338 M01S03214.libtask +++| INP13 SA1 D 03339 M01S03215.libtask +++| NZ X1,INP14 IF NOT A DESTRUCTIVE TASK 03340 M01S03216.libtask +++| SX7 1 03341 M01S03217.libtask +++| SA7 QL FORCE DESTRUCTIVE TASK QUEUE LIMIT TO 1 03342 M01S03218.libtask +++| INP14 SA1 MP MAXIMUM PRIORITY 03343 M01S03219.libtask +++| SA2 EF EXPANDABLE FIELD LENGTH 03344 M01S03220.libtask +++| SX2 X2+77B ROUND TO MULTIPLE OF 100B 03345 M01S03221.libtask +++| AX2 6 03346 M01S03222.libtask +++| LX2 TLEFS-TLEFN+1 03347 M01S03223.libtask +++| BX2 X2+X1 03348 M01S03224.libtask +++| SA1 INPN 03349 M01S03225.libtask +++| NZ X1,INP15 IF TASK IN DIRECTORY 03350 M01S03226.libtask +++| ADDWRD DRTC,X2 03351 M01S03227.libtask +++| EQ INP16 PROCESS NEW TASK 03352 M01S03228.libtask +++| 03353 M01S03229.libtask +++| INP15 SA1 X1+B1 SECOND WORD OF TLD 03354 M01S03230.libtask +++| MX7 TLDAN+TLFLN 03355 M01S03231.libtask +++| BX7 X7*X1 DA AND FL 03356 M01S03232.libtask +++| BX7 X7+X2 ADD *EF* AND *MP* 03357 M01S03233.libtask +++| SA7 A1 03358 M01S03234.libtask +++| ADDWRD TDCH,X7 SECOND WORD OF DIRECTORY 03359 M01S03235.libtask +++| INP16 SA1 S SYSTEM TASK 03360 M01S03236.libtask +++| SA2 D DESTRUCTIVE CODE 03361 M01S03237.libtask +++| SA3 C CORE RESIDENCE 03362 M01S03238.libtask +++| SA4 QL 03363 M01S03239.libtask +++| BX1 X1+X2 03364 M01S03240.libtask +++| SA2 OO ON/OFF 03365 M01S03241.libtask +++| BX3 X2+X3 03366 M01S03242.libtask +++| BX1 X1+X3
| Line S03243 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03367 M02S03243.v23l617 ---| SA2 E ECS RESIDENCE 03368 M01S00055.v23l617 +++| SA2 E EXTENDED MEMORY RESIDENCE 03369 M01S03244.libtask +++| BX1 X2+X1 03370 M01S03245.libtask +++| SA3 DL DELETE TASK 03371 M01S03246.libtask +++| BX1 X1+X3 03372 M01S03247.libtask +++| LX1 TLSTS-5 03373 M01S03248.libtask +++| BX1 X1+X4 03374 M01S03249.libtask +++| SA2 SC 03375 M01S03250.libtask +++| BX1 X2+X1 03376 M01S03251.libtask +++| SA3 R REDUCE FL FLAG 03377 M01S03252.libtask +++| SA2 BP 03378 M01S03253.libtask +++| LX3 TLRES-TLREN+1 03379 M01S03254.libtask +++| LX2 TLBPS-TLBPN+1 03380 M01S03255.libtask +++| BX1 X1+X3 03381 M01S03256.libtask +++| BX1 X2+X1 03382 M01S03257.libtask +++| SA2 Q QUEUING CONTROL INDICATOR 03383 M01S03258.libtask +++| BX1 X1+X2 03384 M01S03259.libtask +++| SB2 B0 03385 M01S03260.libtask +++| SA2 INPN 03386 M01S03261.libtask +++| NZ X2,INP17 IF TASK ALREADY IN DIRECTORY 03387 M01S03262.libtask +++| ADDWRD DRTC,X1 ADD TO DIRECTIVE TABLE 03388 M01S03263.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03389 M01S03264.libtask +++| 03390 M01S03265.libtask +++| INP17 BX7 X1 03391 M01S03266.libtask +++| SA7 X2+2 STORE IN EXISTING DIRECTORY ENTRY 03392 M01S03267.libtask +++| ADDWRD TDCH,X7 THIRD WORD OF DIRECTORY 03393 M01S03268.libtask +++| SA2 INPN 03394 M01S03269.libtask +++| SA2 X2 03395 M01S03270.libtask +++| ADDWRD TDRC,X2 DIRECTIVES CHANGED LIST 03396 M01S03271.libtask +++| 03397 M01S03272.libtask +++|* RESET DEFAULT VALUES FOR NEXT TASK. 03398 M01S03273.libtask +++| 03399 M01S03274.libtask +++| INP18 SX7 CBP RESET BEGINNING PRIORITY 03400 M01S03275.libtask +++| SX6 CMP 03401 M01S03276.libtask +++| LX7 48 03402 M01S03277.libtask +++| SA7 BP BEGINNING TASK PRIORITY 03403 M01S03278.libtask +++| LX6 48 03404 M01S03279.libtask +++| SA6 MP MAXIMUM TASK PRIORITY 03405 M01S03280.libtask +++| SX7 CQL 03406 M01S03281.libtask +++| LX7 48 03407 M01S03282.libtask +++| SA7 QL QUEUE LIMIT 03408 M01S03283.libtask +++| SX6 CC*10B 03409 M01S03284.libtask +++| SA6 C CORE RESIDENCE BIT 03410 M01S03285.libtask +++| SX7 CD*20B 03411 M01S03286.libtask +++| SA7 D REUSABLE CODE BIT 03412 M01S03287.libtask +++| SX7 CS*40B 03413 M01S03288.libtask +++| SA7 S SYSTEM TASK BIT 03414 M01S03289.libtask +++| SX6 CO*02B 03415 M01S03290.libtask +++| SA6 OO TASK ON/OFF BIT 03416 M01S03291.libtask +++| SX7 CE*04B 03417 M01S03292.libtask +++| SX6 CDL*01B DELETE TASK 03418 M01S03293.libtask +++| SA6 DL
| Line S03294 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03419 M02S03294.v23l617 ---| SA7 E ECS RESIDENCE BIT 03420 M01S00056.v23l617 +++| SA7 E EXTENDED MEMORY RESIDENCE BIT 03421 M01S03295.libtask +++| SX7 B0+ 03422 M01S03296.libtask +++| SA7 SC 03423 M01S03297.libtask +++| SX6 CRE DEFAULT REDUCE FL FLAG 03424 M01S03298.libtask +++| SX7 EFL EXPANDABLE FIELD LENGTH 03425 M01S03299.libtask +++| SA6 R 03426 M01S03300.libtask +++| SA7 EF 03427 M01S03301.libtask +++| SX6 CQ*MLQU QUEUING CONTROL BIT 03428 M01S03302.libtask +++| SA6 Q 03429 M01S03303.libtask +++| BX7 X7-X7 03430 M01S03304.libtask +++| SB7 TDL-TSK1 03431 M01S03305.libtask +++| SA7 TSK1 03432 M01S03306.libtask +++| INP18.1 SA7 A7+B1 ZERO OUT DEFAULT VALUES 03433 M01S03307.libtask +++| SB7 B7-B1 03434 M01S03308.libtask +++| NE B7,INP18.1 IF MORE TO GO 03435 M01S03309.libtask +++| SA7 INPN TRD ADDRESS 03436 M01S03310.libtask +++| SA7 INPT TRANSACTION NAME 03437 M01S03311.libtask +++| SA7 INPQ TRANSACTION DIRECTIVE FLAG 03438 M01S03312.libtask +++| NE B2,INP2 IF BAD DIRECTIVE 03439 M01S03313.libtask +++| EQ INP1 READ NEXT DIRECTIVE 03440 M01S03314.libtask +++| 03441 M01S03315.libtask +++|* WRITE ERROR MESSAGES. 03442 M01S03316.libtask +++| 03443 M01S03317.libtask +++| INP19 WRITEW O,INPJ,1 WRITE ERROR MESSAGE 03444 M01S03318.libtask +++| WRITES O,INPA,INPAL
| Line S03319 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03445 M02S03319.v23l617 ---| WRITEW O,INPH,INPHL ILLEGAL DIRECTIVE 03446 M01S00057.v23l617 +++| WRITEW O,INPH,INPHL INCORRECT DIRECTIVE 03447 M01S03320.libtask +++| WRITEW O,BLINE,1 03448 M01S03321.libtask +++| SX2 3 03449 M01S03322.libtask +++| RJ ALC ADVANCE LINE COUNT 03450 M01S03323.libtask +++| SA1 INPL 03451 M01S03324.libtask +++| SX7 X1+B1 BUMP ERROR COUNT 03452 M01S03325.libtask +++| SA7 A1
| Line S03326 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03453 M02S03326.libta4 ---| SB2 B1 FLAG BAD 03454 M01S00001.libta4 +++| SB2 B1+ FLAG BAD 03455 M01S03327.libtask +++| SA1 JOBORG
| Line S03328 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03456 M02S03328.libta4 ---| ZR X7,INP18 IF NO ERROR 03457 M01S03329.libtask +++| NZ X1,INP18 IF NOT INTERACTIVE 03458 M01S03330.libtask +++| WRITER O FLUSH BUFFER
| Line S03331 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03459 M02S03331.libta4 ---| BX7 X7-X7
| Line S03332 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03460 M02S03332.libta4 ---| SB2 B0
| Line S03333 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03461 M02S03333.libta4 ---| SA7 INPL RESET ERROR COUNT 03462 M01S03334.libtask +++| EQ INP18 RESET DEFAULT VALUES 03463 M01S03335.libtask +++| 03464 M01S03336.libtask +++| INP20 SA1 INPI DIRECTIVE COUNT 03465 M01S03337.libtask +++| SA2 INPL 03466 M01S03338.libtask +++| NZ X2,INP21 IF ERRORS PRESENT 03467 M01S03339.libtask +++| ZR X1,INP20.1 IF NO DIRECTIVES 03468 M01S03340.libtask +++| WRITEW O,BLINE,1 03469 M01S03341.libtask +++| SX2 1 03470 M01S03342.libtask +++| RJ ALC ADVANCE LINE COUNT 03471 M01S03343.libtask +++| EQ INPX RETURN 03472 M01S03344.libtask +++| 03473 M01S03345.libtask +++| INP20.1 SA1 JOBORG 03474 M01S03346.libtask +++| ZR X1,INPX IF INTERACTIVE INPUT 03475 M01S03347.libtask +++| 03476 M01S03348.libtask +++|* WRITE *NONE* ON FILE. 03477 M01S03349.libtask +++| 03478 M01S03350.libtask +++| WRITEW O,LRLA,LRLAL 03479 M01S03351.libtask +++| SX2 B1+B1 03480 M01S03352.libtask +++| RJ ALC ADVANCE LINE COUNT 03481 M01S03353.libtask +++| EQ INPX RETURN 03482 M01S03354.libtask +++| 03483 M01S03355.libtask +++| INP21 WRITEW O,INPM,INPML * INPUT DIRECTIVE ERRORS.* 03484 M01S03356.libtask +++| WRITER O 03485 M01S03357.libtask +++| MESSAGE INPB * DIRECTIVE ERRORS.* 03486 M01S03358.libtask +++| ABORT 03487 M01S03359.libtask +++| 03488 M01S03360.libtask +++|* PROCESS TRANSACTION DIRECTIVE. 03489 M01S03361.libtask +++| 03490 M01S03362.libtask +++| INP22 SA1 TDL 03491 M01S03363.libtask +++| SA2 INPN TRANSACTION ENTRY ADDRESS 03492 M01S03364.libtask +++| SA4 INPT TRANSACTION UNIT NAME 03493 M01S03365.libtask +++| SB2 B1 PRESET ERROR 03494 M01S03366.libtask +++| ZR X1,INP24 IF NOT *DL* 03495 M01S03367.libtask +++| SA1 INPR 03496 M01S03368.libtask +++| SX1 X1-1 03497 M01S03369.libtask +++| NZ X1,INP31 IF MORE PARAMETERS 03498 M01S03370.libtask +++| NZ X2,INP23 IF TRANSACTION NAME EXISTS 03499 M01S03371.libtask +++| BX1 X4 03500 M01S03372.libtask +++| RJ SFN SPACE FILL NAME 03501 M01S03373.libtask +++| LX6 42 03502 M01S03374.libtask +++| SA6 INPS+4 STORE IN MESSAGE 03503 M01S03375.libtask +++| SX2 B1 03504 M01S03376.libtask +++| RJ ALC ADVANCE LINE COUNT 03505 M01S03377.libtask +++| WRITEC O,INPS ISSUE WARNING 03506 M01S03378.libtask +++| SB2 B0 SET NO ERROR 03507 M01S03379.libtask +++| EQ INP31 NEXT DIRECTIVE 03508 M01S03380.libtask +++| 03509 M01S03381.libtask +++| INP23 SA1 X2 03510 M01S03382.libtask +++| SX2 B1 03511 M01S03383.libtask +++| LX2 TDDLS LOGICALLY DELETED BIT 03512 M01S03384.libtask +++| BX6 X1+X2 03513 M01S03385.libtask +++| SA6 A1 03514 M01S03386.libtask +++| SA1 LWTRD 03515 M01S03387.libtask +++| SX6 X1-TRDLE1 DECREASE DIRECTORY LENGTH 03516 M01S03388.libtask +++| SA6 A1 03517 M01S03389.libtask +++| ADDWRD TTCN,X4 TRANSACTION CHANGED 03518 M01S03390.libtask +++| SB2 B0 SET NO ERROR 03519 M01S03391.libtask +++| EQ INP31 NEXT DIRECTIVE 03520 M01S03392.libtask +++| 03521 M01S03393.libtask +++| INP24 NZ X2,INP25 IF TRANSACTION NAME EXISTS 03522 M01S03394.libtask +++| SA2 LATRD 03523 M01S03395.libtask +++| SX6 X2+TRDLE1 03524 M01S03396.libtask +++| SA0 X2 NEXT FREE WORD IN TRD 03525 M01S03397.libtask +++| SA6 A2 UPDATE LWA OF TRD 03526 M01S03398.libtask +++| SA1 LWTRD UPDATE LWA OF TRD 03527 M01S03399.libtask +++| SX6 X1+TRDLE1 03528 M01S03400.libtask +++| SA6 LWTRD 03529 M01S03401.libtask +++| SA1 FSTR 03530 M01S03402.libtask +++| SX7 X1-TRDLE1 03531 M01S03403.libtask +++| SA7 A1+ FREE SPACE IN TRD 03532 M01S03404.libtask +++| SX6 6 03533 M01S03405.libtask +++| PL X7,INP26 IF TRD NOT FULL 03534 M01S03406.libtask +++| SA1 LWTRD DECREMENT LWA OF TRD 03535 M01S03407.libtask +++| SX7 X1-TRDLE1 03536 M01S03408.libtask +++| SA7 LWTRD 03537 M01S03409.libtask +++| SA1 LATRD DECREMENT LWA OF TRD BEFORE SORT 03538 M01S03410.libtask +++| SX7 X1-TRDLE1 03539 M01S03411.libtask +++| SA7 LATRD 03540 M01S03412.libtask +++| RJ ERR REPORT TRD FULL CONDITION 03541 M01S03413.libtask +++| WRITER O FLUSH BUFFER 03542 M01S03414.libtask +++| SA3 JOBORG 03543 M01S03415.libtask +++| ZR X3,INPX IF INTERACTIVE INPUT 03544 M01S03416.libtask +++| EQ INP21 ABORT 03545 M01S03417.libtask +++| 03546 M01S03418.libtask +++| INP25 SA2 INPN DIRECTORY ENTRY ADDRESS 03547 M01S03419.libtask +++| SA0 X2+ 03548 M01S03420.libtask +++| INP26 SB2 B1 PRESET ERROR 03549 M01S03421.libtask +++| SA1 TSK1 03550 M01S03422.libtask +++| ZR X1,INP31 IF NO TASKS SPECIFIED 03551 M01S03423.libtask +++| SA2 INPT TRANSACTION UNIT NAME 03552 M01S03424.libtask +++| SA3 DM DATA MANAGER(S) SPECIFIED 03553 M01S03425.libtask +++| BX5 X5-X5 03554 M01S03426.libtask +++| ZR X3,INP28 IF NO DATA MANAGER SPECIFIED 03555 M01S03427.libtask +++| SA4 INPU-1 03556 M01S03428.libtask +++| MX0 42 03557 M01S03429.libtask +++| INP27 SA4 A4+B1 NEXT DATA MANAGER 03558 M01S03430.libtask +++| ZR X4,INP31 IF END OF LIST 03559 M01S03431.libtask +++| BX6 X0*X4 03560 M01S03432.libtask +++| BX6 X6-X3 03561 M01S03433.libtask +++| NZ X6,INP27 IF NO MATCH 03562 M01S03434.libtask +++| SX5 X4 DATA MANAGER FLAGS 03563 M01S03435.libtask +++| INP28 BX6 X2+X5 03564 M01S03436.libtask +++| SA5 RC RECOVERABLE STATUS 03565 M01S03437.libtask +++| BX6 X6+X5 03566 M01S03438.libtask +++| SA6 A0 STORE IN DIRECTORY 03567 M01S03439.libtask +++| SB6 5 NUMBER OF TASKS TO CHECK FOR 03568 M01S03440.libtask +++| SB2 B0 SET NO ERROR 03569 M01S03441.libtask +++| INP29 BX6 X1 03570 M01S03442.libtask +++| SA6 A6+B1 STORE TASK NAMES 03571 M01S03443.libtask +++| SB6 B6-B1 03572 M01S03444.libtask +++| SA1 A1+B1 NEXT TASK NAME 03573 M01S03445.libtask +++| EQ B6,INP31 IF 5 TASK NAMES SPECIFIED 03574 M01S03446.libtask +++| NZ X1,INP29 IF MORE TASKS IN LIST 03575 M01S03447.libtask +++| SB2 B1 PRESET ERROR 03576 M01S03448.libtask +++| BX6 X6-X6 03577 M01S03449.libtask +++| SA1 A1-B1 03578 M01S03450.libtask +++| INP30 SA1 A1+B1 03579 M01S03451.libtask +++| NZ X1,INP31 IF MORE TASKS IN LIST 03580 M01S03452.libtask +++| SA6 A6+B1 ZERO REMAINING WORDS 03581 M01S03453.libtask +++| SB6 B6-B1 03582 M01S03454.libtask +++| NE B6,INP30 IF MORE TO GO 03583 M01S03455.libtask +++| SB2 B0 SET NO ERROR 03584 M01S03456.libtask +++| SA4 INPT 03585 M01S03457.libtask +++| SA2 INPN DIRECTORY ENTRY ADDRESS 03586 M01S03458.libtask +++| NZ X2,INP30.1 IF TRANSACTION NAME ALREADY EXISTS 03587 M01S03459.libtask +++| ADDWRD TTIN,X4 TRANSACTION ADDED 03588 M01S03460.libtask +++| EQ INP31 NEXT DIRECTIVE 03589 M01S03461.libtask +++| 03590 M01S03462.libtask +++| INP30.1 ADDWRD TTCN,X4 TRANSACTION CHANGED 03591 M01S03463.libtask +++| INP31 NE B2,INP19 IF DIRECTIVE ERROR 03592 M01S03464.libtask +++| SX6 B1 03593 M01S03465.libtask +++| SA6 MTRD FLAG TRD MODIFIED 03594 M01S03466.libtask +++| SA6 TRDE FLAG TRD EXISTS 03595 M01S03467.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03596 M01S03468.libtask +++| 03597 M01S03469.libtask +++| INPAL EQU 150 03598 M01S03470.libtask +++| INPA BSS INPAL STRING BUFFER FOR DIRECTIVE INPUT 03599 M01S03471.libtask +++| INPB DATA C* DIRECTIVE ERRORS.* 03600 M01S03472.libtask +++| INPC FILEC INPD,INPAL+1 BUFFER FOR *WTS* 03601 M01S03473.libtask +++| INPCD VFD 60/10LLIB, CONTROL WORD FOR *UPC* 03602 M01S03474.libtask +++| INPD BSSZ INPAL+1 MADE LARGE TO STOP A *CIO* WRITE BY *WTS* 03603 M01S03475.libtask +++|
| Line S03476 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03604 M02S03476.v23l617 ---|* DATA AREA FOR PROCESSING TASK DIRECTORY CONTROL STATEMENTS. 03605 M01S00058.v23l617 +++|* DATA AREA FOR PROCESSING TASK DIRECTORY COMMANDS. 03606 M01S03477.libtask +++| 03607 M01S03478.libtask +++| INPE BSS 0 03608 M01S03479.libtask +++| BP ARG INPF,BP 03609 M01S03480.libtask +++| MP ARG INPF+1,MP 03610 M01S03481.libtask +++| QL ARG INPF+2,QL 03611 M01S03482.libtask +++| C ARG -INPF-3,C 03612 M01S03483.libtask +++| D ARG -INPF-4,D 03613 M01S03484.libtask +++| S ARG -INPF-5,S 03614 M01S03485.libtask +++| O ARG -INPF-6,OO 03615 M01S03486.libtask +++| E ARG -INPF-7,E 03616 M01S03487.libtask +++| DL ARG -INPF-8,DL 03617 M01S03488.libtask +++| IG ARG -INPF-9,IG 03618 M01S03489.libtask +++| SC ARG -INPF-10,SC 03619 M01S03490.libtask +++| Q ARG -INPF-11,Q 03620 M01S03491.libtask +++| EF ARG INPF+12,EF 03621 M01S03492.libtask +++| R ARG -INPF-13,R 03622 M01S03493.libtask +++| ARG 03623 M01S03494.libtask +++| 03624 M01S03495.libtask +++| INPF VFD 12/ABP,48/0 ALTERNATE BEGINNING PRIORITY 03625 M01S03496.libtask +++| VFD 12/AMP,48/0 ALTERNATE MAXIMUM PRIORITY 03626 M01S03497.libtask +++| VFD 12/AQL,48/0 ALTERNATE QUEUE LIMIT 03627 M01S03498.libtask +++| CON 10B CORE RESIDENT BIT 03628 M01S03499.libtask +++| CON 0 NONREUSABLE CODE BIT 03629 M01S03500.libtask +++| CON 40B SYSTEM TASK BIT 03630 M01S03501.libtask +++| CON 02B ON/OFF BIT
| Line S03502 Modification History | |
|---|---|
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03631 M02S03502.v23l617 ---| CON 04B ECS RESIDENT BIT 03632 M01S00059.v23l617 +++| CON 04B EXTENDED MEMORY RESIDENT BIT 03633 M01S03503.libtask +++| CON 01B DELETE TASK 03634 M01S03504.libtask +++| CON 1 IGNORE TASK 03635 M01S03505.libtask +++| CON 1S17 SOLICITED COMMUNICATION BLOCK LOAD FLAG 03636 M01S03506.libtask +++| CON MLQU QUEUING CONTROL BIT
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/libtask.001.txt · Last modified: by 127.0.0.1