cdc:nos2.source:opl.opl871:deck:libtask.001
Deck LIBTASK Part 001
9 Modifications
Listing Sections
- Deck LIBTASK Start
- Deck LIBTASK Part 1 (Line 1864)
- Deck LIBTASK Part 2 (Line 3605)
Source
Seq # *Modification Id* Act ----------------------------+ 01864 M00S01827.libtask +++| RECALL SF 01865 M00S01828.libtask +++| SAT2 SX5 TBL 01866 M00S01829.libtask +++| READW P,TB,TBL 01867 M00S01830.libtask +++| NG X1,SAT4 IF EOF 01868 M00S01831.libtask +++| ZR X1,SAT3 IF NOT AT EOR 01869 M00S01832.libtask +++| SX5 X1-TB 01870 M00S01833.libtask +++| SAT3 WRITEW SF,TB,X5 WRITE TO SCRATCH FILE 01871 M00S01834.libtask +++| SX5 X5-TBL 01872 M00S01835.libtask +++| ZR X5,SAT2 IF RECORD COPY NOT COMPLETE 01873 M00S01836.libtask +++| WRITER SF 01874 M00S01837.libtask +++| SA1 EOFF 01875 M00S01838.libtask +++| ZR X1,SAT1 IF NOT AT EOF 01876 M00S01839.libtask +++| SAT4 WRITEF SF 01877 M00S01840.libtask +++| SA1 P 01878 M00S01841.libtask +++| LX1 59-9 01879 M00S01842.libtask +++| PL X1,SAT1 IF NOT AT EOF 01880 M00S01843.libtask +++| 01881 M00S01844.libtask +++|* FLUSH BUFFER. 01882 M00S01845.libtask +++| 01883 M00S01846.libtask +++| WRITEF SF 01884 M00S01847.libtask +++| REWIND P,R 01885 M00S01848.libtask +++| RECALL SF 01886 M00S01849.libtask +++| REWIND SF,R 01887 M00S01850.libtask +++| SA5 TLD+1 01888 M00S01851.libtask +++| 01889 M00S01852.libtask +++|* SELECT ACTIVE TASKS FROM SCRATCH TO *P*. 01890 M00S01853.libtask +++| 01891 M00S01854.libtask +++| SAT5 SA1 A5 WORD 2 OF AN ENTRY 01892 M00S01855.libtask +++| MX0 30 01893 M00S01856.libtask +++| BX3 X0*X1 ISOLATE DISK INDEX 01894 M00S01857.libtask +++| SA2 A1+B1 WORD 3 OF TLD 01895 M00S01858.libtask +++| LX3 30 01896 M00S01859.libtask +++| LX2 59-54 LEFT JUSTIFY DELETE FLAG 01897 M00S01860.libtask +++| SX4 B1 SET REQUEST BIT 01898 M00S01861.libtask +++| LX4 29 01899 M00S01862.libtask +++| SX6 3RZZZ 01900 M00S01863.libtask +++| NG X2,SAT8 IF DELETE TASK 01901 M00S01864.libtask +++| BX6 X4+X3 ADD DISK INDEX 01902 M00S01865.libtask +++| SA6 SF+6 PUT IN FET 01903 M00S01866.libtask +++| SA2 SF+1 01904 M00S01867.libtask +++| SX6 X2 01905 M00S01868.libtask +++| SA6 A2+B1 FET+2 01906 M00S01869.libtask +++| SA6 A6+B1 FET+3 01907 M00S01870.libtask +++| SA2 P+6 01908 M00S01871.libtask +++| BX6 X0*X2 ISOLATE NEW INDEX 01909 M00S01872.libtask +++| BX3 -X0*X1 CLEAR OUT OLD ONE 01910 M00S01873.libtask +++| BX6 X6+X3 01911 M00S01874.libtask +++| SA6 A5+ 01912 M00S01875.libtask +++| READ SF,R 01913 M00S01876.libtask +++| SAT6 SX5 TBL 01914 M00S01877.libtask +++| READW SF,TB,X5 READ TASK BINARY FROM SCRATCH 01915 M00S01878.libtask +++| ZR X1,SAT7 IF NOT AT EOR 01916 M00S01879.libtask +++| SX5 X1-TB 01917 M00S01880.libtask +++| SAT7 WRITEW P,TB,X5 WRITE ON LIBRARY 01918 M00S01881.libtask +++| SX5 X5-TBL 01919 M00S01882.libtask +++| ZR X5,SAT6 IF RECORD COPY NOT COMPLETE 01920 M00S01883.libtask +++| WRITER P,R 01921 M00S01884.libtask +++| EQ SAT9 CONTINUE WITH NEXT TASK 01922 M00S01885.libtask +++| 01923 M00S01886.libtask +++|* TASK IS DELETED PLACE DUMMY NAME IN TLD. 01924 M00S01887.libtask +++| 01925 M00S01888.libtask +++| SAT8 LX6 -18 01926 M00S01889.libtask +++| SA6 A1-B1 REPLACE TASK NAME 01927 M00S01890.libtask +++| SA3 LATLD DECREMENT TASK LENGTH 01928 M00S01891.libtask +++| SX6 X3-3 01929 M00S01892.libtask +++| SA6 A3+ 01930 M00S01893.libtask +++| SAT9 SA5 A5+TLDLE NEXT ENTRY 01931 M00S01894.libtask +++| SA1 LWTLD END OF DIRECTORY 01932 M00S01895.libtask +++| SX2 A5 01933 M00S01896.libtask +++| IX2 X1-X2 01934 M00S01897.libtask +++| PL X2,SAT5 IF NOT END OF DIRECTORY 01935 M00S01898.libtask +++| EQ SATX RETURN 01936 M00S01899.libtask +++| SDR SPACE 4,15 01937 M00S01900.libtask +++|** SDR - SORT TASK LIBRARY DIRECTORY. 01938 M00S01901.libtask +++|* 01939 M00S01902.libtask +++|* ENTRY (TLD) = FWA OF TABLE. 01940 M00S01903.libtask +++|* (LWTLD) = LWA OF TABLE. 01941 M00S01904.libtask +++|* 01942 M00S01905.libtask +++|* EXIT TASK DIRECTORY SORTED. 01943 M00S01906.libtask +++|* 01944 M00S01907.libtask +++|* USES A - 1. 01945 M00S01908.libtask +++|* B - 2, 3, 6. 01946 M00S01909.libtask +++|* X - 0, 1, 2. 01947 M00S01910.libtask +++|* 01948 M00S01911.libtask +++|* CALL SSR. 01949 M00S01912.libtask +++| 01950 M00S01913.libtask +++| 01951 M00S01914.libtask +++| SDR SUBR ENTRY/EXIT 01952 M00S01915.libtask +++| SB2 TLDLE LENGTH PER ENTRY 01953 M00S01916.libtask +++| SA1 LWTLD LWA OF TABLE 01954 M00S01917.libtask +++| SX2 TLD FWA OF TABLE 01955 M00S01918.libtask +++| SB3 SDRA FWA OF TEMPORARY BUFFER 01956 M00S01919.libtask +++| IX1 X1-X2 LENGTH OF TABLE 01957 M00S01920.libtask +++| SB6 X2+ 01958 M00S01921.libtask +++| MX0 42 MASK TASK NAME 01959 M00S01922.libtask +++| RJ SSR SHELL SORT RECORD 01960 M00S01923.libtask +++| EQ SDRX RETURN 01961 M00S01924.libtask +++| 01962 M00S01925.libtask +++| SDRA BSS TLDLE TEMPORARY BUFFER FOR TLD 01963 M00S01926.libtask +++| SEH SPACE 4,15 01964 M00S01927.libtask +++|** SEH - SET ERROR HEADING. 01965 M00S01928.libtask +++|* 01966 M00S01929.libtask +++|* 01967 M00S01930.libtask +++|* PLACE AN ERROR PAGE HEADING ON THE OUTPUT FILE. 01968 M00S01931.libtask +++|* 01969 M00S01932.libtask +++|* EXIT - ERROR HEADING WRITTEN ON OUTPUT FILE. 01970 M00S01933.libtask +++|* 01971 M00S01934.libtask +++|* USES A - 1, 6. 01972 M00S01935.libtask +++|* X - 1, 2, 6. 01973 M00S01936.libtask +++|* 01974 M00S01937.libtask +++|* CALLS ALC. 01975 M00S01938.libtask +++|* 01976 M00S01939.libtask +++|* MACROS WRITEW. 01977 M00S01940.libtask +++|* 01978 M00S01941.libtask +++|* NOTE ONLY THE FIRST CALL WRITES THE ERROR HEADING. 01979 M00S01942.libtask +++| 01980 M00S01943.libtask +++| 01981 M00S01944.libtask +++| SEH SUBR ENTRY/EXIT 01982 M00S01945.libtask +++| SEHA BSS 0 MODIFIED BY *SEHB* 01983 M00S01946.libtask +++|* EQ SEHX RETURN 01984 M00S01947.libtask +++| WRITEW O,SEHC,SEHCL 01985 M00S01948.libtask +++| SX2 5 01986 M00S01949.libtask +++| RJ ALC ADVANCE LINE COUNT 01987 M00S01950.libtask +++| SA1 SEHB WRITE HEADER ONLY ONCE 01988 M00S01951.libtask +++| BX6 X1 01989 M00S01952.libtask +++| SA6 SEHA 01990 M00S01953.libtask +++| SEHB EQ SEHX RETURN 01991 M00S01954.libtask +++| 01992 M00S01955.libtask +++| SEHC DATA C/0 *ERRORS*/ 01993 M00S01956.libtask +++| DATA C/0 TASK NAME - ERROR TYPE -/ 01994 M00S01957.libtask +++| DATA C* * 01995 M00S01958.libtask +++| SEHCL EQU *-SEHC HEADER LENGTH 01996 M00S01959.libtask +++| SKR SPACE 4,15 01997 M00S01960.libtask +++|** SKR - SKIP TO NEXT RECORD. 01998 M00S01961.libtask +++|* 01999 M00S01962.libtask +++|* ENTRY RECORD TO BE SKIPPED ON FILE *B*. 02000 M00S01963.libtask +++|* 02001 M00S01964.libtask +++|* EXIT RECORD SKIPPED. 02002 M00S01965.libtask +++|* 02003 M00S01966.libtask +++|* USES A - 1, 6. 02004 M00S01967.libtask +++|* X - 1, 6. 02005 M00S01968.libtask +++|* 02006 M00S01969.libtask +++|* MACROS READ, SKIPEF. 02007 M00S01970.libtask +++| 02008 M00S01971.libtask +++| 02009 M00S01972.libtask +++| SKR SUBR ENTRY/EXIT 02010 M00S01973.libtask +++| RECALL B 02011 M00S01974.libtask +++| SA1 B CHECK EOR 02012 M00S01975.libtask +++| LX1 59-4 02013 M00S01976.libtask +++| NG X1,SKR1 IF EOR ENCOUNTED 02014 M00S01977.libtask +++| SKIPF B,,R ADVANCE TO NEXT RECORD 02015 M00S01978.libtask +++| SKR1 SA1 X2+B1 SET FIRST = IN = OUT 02016 M00S01979.libtask +++| SX6 X1 02017 M00S01980.libtask +++| SA6 A1+B1 02018 M00S01981.libtask +++| SA6 A6+B1 02019 M00S01982.libtask +++| READ B INITIATE READ ON BINARY FILE 02020 M00S01983.libtask +++| EQ SKRX RETURN 02021 M00S01984.libtask +++| SSR SPACE 4,20 02022 M00S01985.libtask +++|** SSR - SHELL SORT RECORD. 02023 M00S01986.libtask +++|* 02024 M00S01987.libtask +++|* ENTRY (B2) = NUMBER OF ELEMENTS PER RECORD. 02025 M00S01988.libtask +++|* (B3) = FWA OF TEMPORARY BUFFER. 02026 M00S01989.libtask +++|* MUST BE .GE. (B2). 02027 M00S01990.libtask +++|* (B6) = FWA OF FILE. 02028 M00S01991.libtask +++|* (X1) = LENGTH OF FILE IN CM WORDS. 02029 M00S01992.libtask +++|* (X0) = MASK OF KEY IN FIRST WORD OF RECORD. 02030 M00S01993.libtask +++|* 02031 M00S01994.libtask +++|* EXIT FILE SORTED. 02032 M00S01995.libtask +++|* (X5) RESTORED. 02033 M00S01996.libtask +++|* 02034 M00S01997.libtask +++|* USES A - 3, 6, 7. 02035 M00S01998.libtask +++|* B - 2, 4, 5, 7. 02036 M00S01999.libtask +++|* X - 1, 2, 3, 4, 5, 6, 7. 02037 M00S02000.libtask +++|* 02038 M00S02001.libtask +++|* NOTE *SSR* DOES NOT PRESERVE THE ORDER FOR THE SAME KEY. 02039 M00S02002.libtask +++|* THIS ROUTINE SHIFTS THE KEY 18 BITS TO THE RIGHT TO 02040 M00S02003.libtask +++|* PREVENT NEGATIVE VALUES. 02041 M00S02004.libtask +++| 02042 M00S02005.libtask +++| 02043 M00S02006.libtask +++|* BEGIN NEW PHASE. 02044 M00S02007.libtask +++| 02045 M00S02008.libtask +++| SSR7 AX4 1 K = K/2 02046 M00S02009.libtask +++| BX3 -X4 02047 M00S02010.libtask +++| IX7 X2*X3 LOCATION OF KTH RECORD 02048 M00S02011.libtask +++| SB4 X7 02049 M00S02012.libtask +++| SB7 X2 NUMBER OF CM WORDS PER RECORD 02050 M00S02013.libtask +++| SB2 B6+X7 I = FIRST+K 02051 M00S02014.libtask +++| NZ X4,SSR4 IF K .NE. ONE 02052 M00S02015.libtask +++| SA3 SSRA RESTORE (X5) 02053 M00S02016.libtask +++| BX5 X3 02054 M00S02017.libtask +++| 02055 M00S02018.libtask +++| SSR SUBR ENTRY/EXIT 02056 M00S02019.libtask +++| SX2 B2 NUMBER OF ELEMENTS IN RECORD 02057 M00S02020.libtask +++| MX4 12 02058 M00S02021.libtask +++| BX3 X1 TOTAL CM WORDS IN FILE 02059 M00S02022.libtask +++| IX3 X3/X2 NUMBER OF RECORD 02060 M00S02023.libtask +++| SX2 B2 02061 M00S02024.libtask +++| NX6,B4 X3 02062 M00S02025.libtask +++| BX6 X5 SAVE (X5) 02063 M00S02026.libtask +++| AX4 X4,B4 02064 M00S02027.libtask +++| SX1 B6+X1 LWA OF FILE 02065 M00S02028.libtask +++| SA6 SSRA 02066 M00S02029.libtask +++| BX5 X5-X5 02067 M00S02030.libtask +++| EQ SSR7 ENTER SORT LOOP 02068 M00S02031.libtask +++| 02069 M00S02032.libtask +++| SSR1 PL X5,SSR3 IF NO SWAP 02070 M00S02033.libtask +++| 02071 M00S02034.libtask +++|* MOVE RECORD FROM TEMPORARY BUFFER TO J. 02072 M00S02035.libtask +++| 02073 M00S02036.libtask +++| SB7 X2 NUMBER OF CM WORDS TO MOVE 02074 M00S02037.libtask +++| SB5 B5+B4 02075 M00S02038.libtask +++| SSR2 SB7 B7-B1 DECREMENT INDEX 02076 M00S02039.libtask +++| SA3 B3+B7 02077 M00S02040.libtask +++| BX6 X3 02078 M00S02041.libtask +++| SA6 B5+B7 02079 M00S02042.libtask +++| NZ B7,SSR2 IF NOT END OF RECORD 02080 M00S02043.libtask +++| 02081 M00S02044.libtask +++|* MOVE I TOWARD RIGHT. 02082 M00S02045.libtask +++| 02083 M00S02046.libtask +++| SSR3 SB2 B2+X2 I = I+1 02084 M00S02047.libtask +++| SX3 B2+ 02085 M00S02048.libtask +++| IX3 X3-X1 02086 M00S02049.libtask +++| BX5 X5-X5 02087 M00S02050.libtask +++| ZR X3,SSR7 IF END OF FILE 02088 M00S02051.libtask +++| 02089 M00S02052.libtask +++|* SAVE RECORD I IN TEMPORARY BUFFER. 02090 M00S02053.libtask +++| 02091 M00S02054.libtask +++| SB7 X2 NUMBER OF CM WORDS TO SAVE 02092 M00S02055.libtask +++| SSR4 SB7 B7-B1 02093 M00S02056.libtask +++| SA3 B2+B7 02094 M00S02057.libtask +++| BX6 X3 02095 M00S02058.libtask +++| SA6 B3+B7 02096 M00S02059.libtask +++| NZ B7,SSR4 IF NOT END OF RECORD 02097 M00S02060.libtask +++| SB5 B2-B4 J = I-K 02098 M00S02061.libtask +++| BX7 X0*X3 MASKING KEY OF T(I) 02099 M00S02062.libtask +++| LX7 42 SHIFT SO NO SIGN BIT 02100 M00S02063.libtask +++| SSR5 SA3 B5+ P = T(J) 02101 M00S02064.libtask +++| BX6 X0*X3 MASKING KEY OF P 02102 M00S02065.libtask +++| LX6 42 SHIFT SO NO SIGN BIT 02103 M00S02066.libtask +++| IX6 X7-X6 02104 M00S02067.libtask +++| PL X6,SSR1 IF RECORD IN ORDER 02105 M00S02068.libtask +++| 02106 M00S02069.libtask +++|* PUT RECORD J IN PLACE OF I. 02107 M00S02070.libtask +++| 02108 M00S02071.libtask +++| SB7 X2 NUMBER OF CM WORDS TO MOVE 02109 M00S02072.libtask +++| SX5 B5+B4 02110 M00S02073.libtask +++| SSR6 SB7 B7-B1 DECREMENT INDEX 02111 M00S02074.libtask +++| SA3 B5+B7 02112 M00S02075.libtask +++| BX6 X3 02113 M00S02076.libtask +++| SA6 X5+B7 02114 M00S02077.libtask +++| NZ B7,SSR6 IF NOT END OF RECORD 02115 M00S02078.libtask +++| MX5 1 SET FLAG INDICATE RECORD HAS BEEN REPLACED 02116 M00S02079.libtask +++| 02117 M00S02080.libtask +++|* MOVE J TOWARD LEFT. 02118 M00S02081.libtask +++| 02119 M00S02082.libtask +++| SB5 B5-B4 J = J-K 02120 M00S02083.libtask +++| GE B5,B6,SSR5 IF IN BOUNDS 02121 M00S02084.libtask +++| EQ SSR1 SELECT NEXT RECORD 02122 M00S02085.libtask +++| 02123 M00S02086.libtask +++| SSRA CON 0 TEMPORARY STORAGE FOR (X5) 02124 M00S02087.libtask +++| STD SPACE 4,20 02125 M00S02088.libtask +++|** STD - SEARCH TASK/TRANSACTION DIRECTORY. 02126 M00S02089.libtask +++|* 02127 M00S02090.libtask +++|* PERFORM A BINARY SEARCH OF A TASK OR TRANSACTION DIRECTORY 02128 M00S02091.libtask +++|* FOR THE SPECIFIED TASK OR TRANSACTION NAME. 02129 M00S02092.libtask +++|* 02130 M00S02093.libtask +++|* ENTRY (X2) = LEFT JUSTIFIED TASK/TRANSACTION NAME. 02131 M00S02094.libtask +++|* (B3) = LENGTH OF ENTRY. 02132 M00S02095.libtask +++|* (B5) = START OF DIRECTORY. 02133 M00S02096.libtask +++|* (B6) = END OF DIRECTORY. 02134 M00S02097.libtask +++|* 02135 M00S02098.libtask +++|* EXIT (A1) = FWA OF ENTRY IF FOUND. 02136 M00S02099.libtask +++|* (X1) = 0 IF ENTRY FOUND. 02137 M00S02100.libtask +++|* (X1) .NE. 0 IF ENTRY NOT IN DIRECTORY. 02138 M00S02101.libtask +++|* 02139 M00S02102.libtask +++|* USES A - 1, 3, 7. 02140 M00S02103.libtask +++|* X - 0, 1, 3, 4, 7. 02141 M00S02104.libtask +++|* B - 5, 6, 7. 02142 M00S02105.libtask +++|* 02143 M00S02106.libtask +++|* NOTE (X0) AND (B7) RESTORED UPON EXIT. 02144 M00S02107.libtask +++| 02145 M00S02108.libtask +++| 02146 M00S02109.libtask +++| STD SUBR ENTRY/EXIT 02147 M00S02110.libtask +++| SX7 B7 02148 M00S02111.libtask +++| SA7 STDB SAVE (B7) 02149 M00S02112.libtask +++| BX7 X0 02150 M00S02113.libtask +++| SA7 STDC SAVE (X0) 02151 M00S02114.libtask +++| BX0 X2 02152 M00S02115.libtask +++| LX0 42 SHIFT SO NO SIGN BIT 02153 M00S02116.libtask +++| SX7 B6 LWA OF BASE TLD 02154 M00S02117.libtask +++| SA7 STDA 02155 M00S02118.libtask +++| MX7 42 MASK FOR TASKS/TRANSACTIONS 02156 M00S02119.libtask +++| EQ STD2 ENTER LOOP 02157 M00S02120.libtask +++| 02158 M00S02121.libtask +++| STD1 SB5 A1+B3 SET NEW LOW LIMIT 02159 M00S02122.libtask +++| STD2 SX3 B6-B5 FIND MIDDLE 02160 M00S02123.libtask +++| SX4 B3 02161 M00S02124.libtask +++| IX3 X3/X4 02162 M00S02125.libtask +++| AX3 1 02163 M00S02126.libtask +++| SX4 B3 02164 M00S02127.libtask +++| IX3 X4*X3 02165 M00S02128.libtask +++| SA1 B5+X3 READ AN ENTRY 02166 M00S02129.libtask +++| BX4 X7*X1 02167 M00S02130.libtask +++| LX4 42 SHIFT SO NO SIGN BIT 02168 M00S02131.libtask +++| IX1 X4-X0 02169 M00S02132.libtask +++| ZR X1,STD6 IF FOUND 02170 M00S02133.libtask +++| ZR X3,STD4 IF END OF BASE DIRECTORY 02171 M00S02134.libtask +++| NG X1,STD1 IF TOO LOW IN TABLE 02172 M00S02135.libtask +++| SB6 A1+ SET NEW HIGH LIMIT 02173 M00S02136.libtask +++| EQ STD2 FIND NEXT ENTRY 02174 M00S02137.libtask +++| 02175 M00S02138.libtask +++|* ENTRIES ADDED ON A NONCREATION RUN ARE PLACED SEQUENTIALLY 02176 M00S02139.libtask +++|* AT THE END OF THE TLD. 02177 M00S02140.libtask +++| 02178 M00S02141.libtask +++| STD4 SA3 STDA LWA+1 OF BASE TLD 02179 M00S02142.libtask +++| SB6 B3-TLDLE 02180 M00S02143.libtask +++| NZ B6,STD6 IF TRANSACTION SEARCH 02181 M00S02144.libtask +++| SB6 X3 02182 M00S02145.libtask +++| SB5 B3 LENGTH OF TLD ENTRY 02183 M00S02146.libtask +++| STD5 SA3 B6 02184 M00S02147.libtask +++| SB6 B6+B5 02185 M00S02148.libtask +++| ZR X3,STD6 IF END OF TLD 02186 M00S02149.libtask +++| BX3 X7*X3 02187 M00S02150.libtask +++| LX3 42 SHIFT SO NO SIGN BIT 02188 M00S02151.libtask +++| IX3 X3-X0 02189 M00S02152.libtask +++| NZ X3,STD5 IF TASK NAME DID NOT MATCH 02190 M00S02153.libtask +++| SA1 A3 02191 M00S02154.libtask +++| BX1 X1-X1 02192 M00S02155.libtask +++| 02193 M00S02156.libtask +++|* MATCH FOUND. 02194 M00S02157.libtask +++| 02195 M00S02158.libtask +++| STD6 SA3 STDB RESTORE (B7) 02196 M00S02159.libtask +++| SB7 X3+ 02197 M00S02160.libtask +++| SA3 STDC RESTORE (X0) 02198 M00S02161.libtask +++| BX0 X3 02199 M00S02162.libtask +++| EQ STDX RETURN 02200 M00S02163.libtask +++| 02201 M00S02164.libtask +++| STDA BSS 1 LWA+1 OF BASE TLD 02202 M00S02165.libtask +++| STDB BSS 1 (B7) 02203 M00S02166.libtask +++| STDC BSS 1 (X0) 02204 M00S02167.libtask +++| STL SPACE 4,15 02205 M00S02168.libtask +++|** STL - SET TITLE LINE FOR OUTPUT PAGE. 02206 M00S02169.libtask +++|* 02207 M00S02170.libtask +++|* STL WRITES THE TITLE LINE ONTO THE OUTPUT FILE, AND ADJUSTS 02208 M00S02171.libtask +++|* THE LINE COUNT ACCORDINGLY. 02209 M00S02172.libtask +++|* 02210 M00S02173.libtask +++|* ENTRY - JOBORG = 0 IF INTERACTIVE ORIGIN 02211 M00S02174.libtask +++|* 02212 M00S02175.libtask +++|* EXIT - TITLE LINE WRITTEN TO OUTPUT 02213 M00S02176.libtask +++|* 02214 M00S02177.libtask +++|* USES A - 1, 6, 7. 02215 M00S02178.libtask +++|* X - 1, 3, 6, 7. 02216 M00S02179.libtask +++|* 02217 M00S02180.libtask +++|* MACROS WRITEW. 02218 M00S02181.libtask +++| 02219 M00S02182.libtask +++| 02220 M00S02183.libtask +++| STL SUBR 02221 M00S02184.libtask +++| SX3 STLAL 02222 M00S02185.libtask +++| SA1 JOBORG 02223 M00S02186.libtask +++| NZ X1,STL1 IF NOT INTERACTIVE ORIGIN 02224 M00S02187.libtask +++| SA1 BLINE 02225 M00S02188.libtask +++| BX6 X1 02226 M00S02189.libtask +++| SA6 STLAT 02227 M00S02190.libtask +++| SX3 STLAL-3 02228 M00S02191.libtask +++| STL1 WRITEW O,STLA,X3 02229 M00S02192.libtask +++| WRITEC O,BLINE 02230 M00S02193.libtask +++| SX7 3 02231 M00S02194.libtask +++| SA7 ALCA SET LINE COUNT 02232 M00S02195.libtask +++| EQ STLX RETURN 02233 M00S02196.libtask +++| 02234 M00S02197.libtask +++| STLA CON 10H1TASK LIBR 02235 M00S02198.libtask +++| CON 10HARY EDITIN 02236 M00S02199.libtask +++| CON 10HG PROGRAM. 02237 M00S02200.libtask +++| STLAB CON 10H
| Line S02201 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02238 M01S02201.ns2786 ---| STLAD CON 10H PACKED DATE 02239 M01S02202.ns2786 ---| STLAT CON 10H PACKED TIME
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02240 M01S00001.ns2786 +++| STLAD CON 10H DATE 02241 M01S00002.ns2786 +++| STLAT CON 10H TIME 02242 M00S02203.libtask +++| STLAP CON 10H PAGE 1 02243 M00S02204.libtask +++| BLINE CON 8L 02244 M00S02205.libtask +++| CON 8L 02245 M00S02206.libtask +++| STLAL EQU *-STLA 02246 M00S02207.libtask +++| STN SPACE 4,20 02247 M00S02208.libtask +++|** STN - SEARCH TASK NAMES. 02248 M00S02209.libtask +++|* 02249 M00S02210.libtask +++|* DETERMINE IF EACH TASK, DEFINED IN EACH TRANSACTION ENTRY 02250 M00S02211.libtask +++|* WITHIN THE DIRECTORY, EXISTS. IF NOT, THE TRANSACTION NAME 02251 M00S02212.libtask +++|* IS ADDED TO A LIST TO BE PRINTED WITH THE NORMAL *LIBTASK* 02252 M00S02213.libtask +++|* OUTPUT. IN ADDITION, ANY ENTRY HAVING ITS LOGICALLY- 02253 M00S02214.libtask +++|* DELETED-BIT SET, WILL HAVE ITS NAME CHANGED TO ;;;. THIS 02254 M00S02215.libtask +++|* WILL INSURE THAT AFTER THE TRD IS SORTED, THOSE TRANSACTIONS 02255 M00S02216.libtask +++|* WILL BE PHYSICALLY DELETED FROM THE TRD. 02256 M00S02217.libtask +++|* 02257 M00S02218.libtask +++|* ENTRY (LATRD) = LWA OF TRD. 02258 M00S02219.libtask +++|* 02259 M00S02220.libtask +++|* EXIT (X5) = RESTORED. 02260 M00S02221.libtask +++|* 02261 M00S02222.libtask +++|* USES A - 1, 2, 5, 6. 02262 M00S02223.libtask +++|* X - 1, 2, 5, 6. 02263 M00S02224.libtask +++|* B - 2, 3, 5, 6, 7. 02264 M00S02225.libtask +++|* 02265 M00S02226.libtask +++|* CALLS STD. 02266 M00S02227.libtask +++|* 02267 M00S02228.libtask +++|* MACROS ADDWRD. 02268 M00S02229.libtask +++| 02269 M00S02230.libtask +++| 02270 M00S02231.libtask +++| STN SUBR ENTRY/EXIT 02271 M00S02232.libtask +++| BX6 X5 02272 M00S02233.libtask +++| SA6 STNC SAVE (X5) 02273 M00S02234.libtask +++| SB2 TRD-TRDLE1 02274 M00S02235.libtask +++| SB3 TLDLE LENGTH OF TLD ENTRY 02275 M00S02236.libtask +++| STN1 SX5 TRDLE1 02276 M00S02237.libtask +++| SA1 LATRD LWA OF TRD 02277 M00S02238.libtask +++| SB2 B2+X5 02278 M00S02239.libtask +++| SB7 X1 02279 M00S02240.libtask +++| GE B2,B7,STN4 IF ALL CHECKED 02280 M00S02241.libtask +++| SA2 B2+ NEXT TRANSACTION ENTRY 02281 M00S02242.libtask +++| BX6 X2 02282 M00S02243.libtask +++| SA6 STNB SAVE TRANSACTION NAME 02283 M00S02244.libtask +++| LX2 59-TDDLS 02284 M00S02245.libtask +++| PL X2,STN2 IF NOT LOGICALLY DELETED 02285 M00S02246.libtask +++| SA1 STNA 02286 M00S02247.libtask +++| BX6 X1 02287 M00S02248.libtask +++| SA6 A2 SET NAME TO ;;; 02288 M00S02249.libtask +++| EQ STN1 NEXT ENTRY 02289 M00S02250.libtask +++| 02290 M00S02251.libtask +++| STN2 SX5 X5-1 02291 M00S02252.libtask +++| ZR X5,STN1 IF ALL TASKS CHECKED 02292 M00S02253.libtask +++| SA2 A2+1 NEXT TASK NAME 02293 M00S02254.libtask +++| SA1 LWOLD 02294 M00S02255.libtask +++| SB5 TLD FWA OF TLD 02295 M00S02256.libtask +++| SB6 X1+ LWA OF TLD 02296 M00S02257.libtask +++| ZR X2,STN1 IF END OF LIST 02297 M00S02258.libtask +++| RJ STD SEARCH TASK DIRECTORY 02298 M00S02259.libtask +++| NZ X1,STN3 IF TASK NOT FOUND 02299 M00S02260.libtask +++| SA1 A1+TLDLW 02300 M00S02261.libtask +++| LX1 59-TLDLS 02301 M00S02262.libtask +++| PL X1,STN2 IF TASK NOT LOGICALLY DELETED 02302 M00S02263.libtask +++| STN3 SA1 STNB 02303 M00S02264.libtask +++| ADDWRD TTNE,X1 ADD TRANSACTION NAME TO LIST 02304 M00S02265.libtask +++| EQ STN1 NEXT ENTRY 02305 M00S02266.libtask +++| 02306 M00S02267.libtask +++| STN4 SA5 STNC RESTORE (X5) 02307 M00S02268.libtask +++| EQ STNX RETURN 02308 M00S02269.libtask +++| 02309 M00S02270.libtask +++| STNA VFD 60/3L;;; NAME FOR DELETED TRANSACTIONS 02310 M00S02271.libtask +++| STNB CON 0 TRANSACTION NAME 02311 M00S02272.libtask +++| STNC CON 0 (X5) 02312 M00S02273.libtask +++| STR SPACE 4,10 02313 M00S02274.libtask +++|** STR - SORT TRANSACTION DIRECTORY. 02314 M00S02275.libtask +++|* 02315 M00S02276.libtask +++|* ENTRY (TRD) = FWA OF TABLE. 02316 M00S02277.libtask +++|* (LATRD) = LWA OF TABLE. 02317 M00S02278.libtask +++|* 02318 M00S02279.libtask +++|* USES X - 0, 1, 2. 02319 M00S02280.libtask +++|* A - 1. 02320 M00S02281.libtask +++|* B - 2, 3, 6. 02321 M00S02282.libtask +++|* 02322 M00S02283.libtask +++|* CALLS SSR. 02323 M00S02284.libtask +++| 02324 M00S02285.libtask +++| 02325 M00S02286.libtask +++| STR SUBR ENTRY/EXIT 02326 M00S02287.libtask +++| SB2 TRDLE1 LENGTH PER ENTRY 02327 M00S02288.libtask +++| SA1 LATRD LWA OF TABLE 02328 M00S02289.libtask +++| SX2 TRD FWA OF TABLE 02329 M00S02290.libtask +++| SB3 STRA FWA OF TEMPORARY BUFFER 02330 M00S02291.libtask +++| IX1 X1-X2 TABLE LENGTH 02331 M00S02292.libtask +++| SB6 X2+ 02332 M00S02293.libtask +++| MX0 42 MASK FOR TRANSACTION NAME 02333 M00S02294.libtask +++| RJ SSR SHELL SORT 02334 M00S02295.libtask +++| EQ STRX RETURN 02335 M00S02296.libtask +++| 02336 M00S02297.libtask +++| STRA BSSZ TRDLE1 TEMPORARY BUFFER FOR SORT 02337 M00S02298.libtask +++| TOV SPACE 4,10 02338 M00S02299.libtask +++|** TOV - TABLE OVERLFOW PROCESSOR. 02339 M00S02300.libtask +++|* 02340 M00S02301.libtask +++|* THIS TAG IS REQUIRED BY THE MANAGED TABLE ROUTINES 02341 M00S02302.libtask +++|* IN CASE OF TABLE ERRORS. 02342 M00S02303.libtask +++|* 02343 M00S02304.libtask +++| 02344 M00S02305.libtask +++| 02345 M00S02306.libtask +++| TOV MESSAGE TOVA 02346 M00S02307.libtask +++| ABORT 02347 M00S02308.libtask +++| 02348 M00S02309.libtask +++| TOVA DATA C* TABLE OVERFLOW - TOO MANY TASKS.* 02349 M00S02310.libtask +++| MEML SPACE 4 02350 M00S02311.libtask +++|* RESERVED SPACE FOR THE MANAGED TABLES. 02351 M00S02312.libtask +++| 02352 M00S02313.libtask +++| RRECL EQU 50 INITIAL ALLOCATION FOR REPLACED RECORDS 02353 M00S02314.libtask +++| IRECL EQU 350 INITIAL ALLOCATION FOR INSERTIONS 02354 M00S02315.libtask +++| LRECL EQU 200 INITIAL ALLOCATION FOR TASK LIBRARY 02355 M00S02316.libtask +++| DRTCL EQU 200 ESTIMATED ALLOCATION FOR DIRECTIVES 02356 M00S02317.libtask +++| TTINL EQU 300 INITIAL ALLOCATION FOR INSERTIONS 02357 M00S02318.libtask +++| TTCNL EQU 20 INITIAL ALLOCATION FOR CHANGES 02358 M00S02319.libtask +++| TTNEL EQU 20 TRANSACTIONS WITH NONEXISTENT TASKS 02359 M00S02320.libtask +++| 02360 M00S02321.libtask +++|* MANAGED TABLES SPACE SIZE. 02361 M00S02322.libtask +++| 02362 M00S02323.libtask +++| TABLEN EQU RRECL+IRECL+LRECL+DRTCL+TTINL+TTCNL+TTNEL 02363 M00S02324.libtask +++| 02364 M00S02325.libtask +++| MEML BSSZ TABLEN SPACE FOR MANAGED TABLES 02365 M00S02326.libtask +++| TITLE COMMON DECKS. 02366 M00S02327.libtask +++|*CALL COMCARG 02367 M00S02328.libtask +++|*CALL COMCCDD 02368 M00S02329.libtask +++|*CALL COMCCIO 02369 M00S02330.libtask +++|*CALL COMCCOD 02370 M00S02331.libtask +++|*CALL COMCCPM 02371 M00S02332.libtask +++|*CALL COMCDXB 02372 M00S02333.libtask +++|*CALL COMCLFM 02373 M00S02334.libtask +++|*CALL COMCMTP 02374 M00S02335.libtask +++|*CALL COMCMVE 02375 M00S02336.libtask +++|*CALL COMCPFM 02376 M00S02337.libtask +++|*CALL COMCRDS 02377 M00S02338.libtask +++|*CALL COMCRDW 02378 M00S02339.libtask +++|*CALL COMCSFN 02379 M00S02340.libtask +++|*CALL COMCSNM 02380 M00S02341.libtask +++| QUAL COMCSST 02381 M00S02342.libtask +++|*CALL COMCSST 02382 M00S02343.libtask +++| QUAL * 02383 M00S02344.libtask +++|*CALL COMCSYS 02384 M00S02345.libtask +++|*CALL COMCUPC
| Line S02346 Modification History | |
|---|---|
M01 (Removed by) | ns2033 |
Seq # *Modification Id* Act ----------------------------+ 02385 M01S02346.ns2033 ---| QUAL COMCUSB 02386 M00S02347.libtask +++|*CALL COMCUSB
| Line S02348 Modification History | |
|---|---|
M01 (Removed by) | ns2033 |
Seq # *Modification Id* Act ----------------------------+ 02387 M01S02348.ns2033 ---| QUAL * 02388 M00S02349.libtask +++|*CALL COMCWTC 02389 M00S02350.libtask +++|*CALL COMCWTS 02390 M00S02351.libtask +++|*CALL COMCWTW 02391 M00S02352.libtask +++|*CALL COMCZAP 02392 M00S02353.libtask +++| TLD TITLE TASK AND TRANSACTION DIRECTORIES. 02393 M00S02354.libtask +++|*** TASK LIBRARY DIRECTORY. 02394 M00S02355.libtask +++|* 02395 M00S02356.libtask +++|* DEFAULT VALUES FOR DIRECTORY ARE - 02396 M00S02357.libtask +++|* 02397 M00S02358.libtask +++|* BEGINNING PRIORITY = 20B. 02398 M00S02359.libtask +++|* MAXIMUM PRIORITY = 40B. 02399 M00S02360.libtask +++|* QUEUE LIMIT = 3B. 02400 M00S02361.libtask +++|* TASK IS DISK RESIDENT. 02401 M00S02362.libtask +++|* TASK CODE IS NONDESTRUCTIVE. 02402 M00S02363.libtask +++|* TASK IS NOT A SYSTEM TASK. 02403 M00S02364.libtask +++|* TASK IS ON. 02404 M00S02365.libtask +++|* COMMUNICATION BLOCK IS DELIVERED TO THE TASK (UNSOLICITED). 02405 M00S02366.libtask +++|* QUEUING IS NOT FORCED FOR ADDITIONAL ACTIVE COPIES. 02406 M00S02367.libtask +++| SPACE 4,10 02407 M00S02368.libtask +++|*** TRANSACTION DIRECTORY. 02408 M00S02369.libtask +++|* 02409 M00S02370.libtask +++|* DEFAULT VALUES FOR TRANSACTIONS ARE - 02410 M00S02371.libtask +++|* 02411 M00S02372.libtask +++|* DATA MANAGER USED = NONE. 02412 M00S02373.libtask +++|* RECOVERABLE = NO. 02413 M00S02374.libtask +++| SPACE 4,10 02414 M00S02375.libtask +++| TSKDL EQU TLDLE*TLDMT+1 SIZE OF TASK DIRECTORY 02415 M00S02376.libtask +++| TRNDL EQU TRDLE1*TRDMT+1 SIZE OF TRANSACTION UNIT DIRECTORY 02416 M00S02377.libtask +++| 02417 M00S02378.libtask +++| TLDH VFD 12/7700B,12/3,36/0 02418 M00S02379.libtask +++| VFD 60/0LTLD 02419 M00S02380.libtask +++| TLDHD CON 10H 02420 M00S02381.libtask +++| TLDHT CON 10H 02421 M00S02382.libtask +++| TLD BSSZ TSKDL TASK LIBRARY DIRECTORY 02422 M00S02383.libtask +++| 02423 M00S02384.libtask +++| TRDH VFD 12/7700B,12/3,36/0 02424 M00S02385.libtask +++| VFD 60/0LTRD 02425 M00S02386.libtask +++| CON 10H 02426 M00S02387.libtask +++| CON 10H 02427 M00S02388.libtask +++| TRD BSSZ TRNDL TRANSACTION UNIT DIRECTORY
| Line S02389 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02428 M01S02389.v23l617 ---| PRS TITLE PRESET AND CRACK CONTROL CARD.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02429 M01S00022.v23l617 +++| PRS TITLE PRESET AND CRACK COMMAND. 02430 M00S02390.libtask +++|** PRS - PRESET ROUTINE. 02431 M00S02391.libtask +++|*
| Line S02392 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02432 M01S02392.v23l617 ---|* PRS CRACKS THE CONTROL CARD AND SETS UP FOR THE MAIN PROGRAM. 02433 M01S02393.v23l617 ---|* ERROR CHECKING IS PERFORMED ON CONTROL CARD PARAMETERS AND
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02394.libtask +++|* INPUT DIRECTIVES. IF THE CR OPTION IS PRESENT, PRS CHECKS 02437 M00S02395.libtask +++|* IF *TAF* IS UP. IF THE TT OPTION IS PRESENT, THE USERNUM IS 02438 M00S02396.libtask +++|* SENT TO *TAF* FOR VALIDATION. THE TASK LIBRARY FILE IS 02439 M00S02397.libtask +++|* ATTACHED IN MODIFY MODE IF THE DA OPTION IS NOT SPECIFIED. 02440 M00S02398.libtask +++|* THE MAIN LOOP IS THEN INITIATED. 02441 M00S02399.libtask +++|* NOTE THE FOLLOWING MEMORY IS USED FOR BUFFERS WHEN 02442 M00S02400.libtask +++|* *PRS* TERMINATES. 02443 M00S02401.libtask +++| 02444 M00S02402.libtask +++| 02445 M00S02403.libtask +++| PRS SUBR ENTRY/EXIT 02446 M00S02404.libtask +++| SB1 1
| Line S02405 Modification History | |
|---|---|
M01 (Removed by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02447 M01S02405.ns2523 ---| GETJO JOBORG
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02406.libtask +++| SA1 JOBORG 02457 M00S02407.libtask +++| SX6 X1-TXOT 02458 M00S02408.libtask +++| SA6 A1+ 02459 M00S02409.libtask +++| SB5 ARGA
| Line S02410 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02460 M01S02410.v23l617 ---| SA1 ACTR ARGUMENT COUNT OF CONTROL CARD
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02461 M01S00025.v23l617 +++| SA1 ACTR ARGUMENT COUNT OF COMMAND 02462 M00S02411.libtask +++| SB4 X1 02463 M00S02412.libtask +++| SA4 B1+B1 FIRST ARGUMENT
| Line S02413 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02464 M01S02413.v23l617 ---| RJ ARG PROCESS CONTROL CARD ARGUMENTS
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02465 M01S00026.v23l617 +++| RJ ARG PROCESS COMMAND ARGUMENTS 02466 M00S02414.libtask +++| ZR X1,PRS1 IF NO ARGUMENT ERRORS
| Line S02415 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02467 M01S02415.v23l617 ---| MESSAGE PRSB ILLEGAL CONTROL CARD
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02468 M01S00027.v23l617 +++| MESSAGE PRSB INCORRECT COMMAND 02469 M00S02416.libtask +++| ABORT 02470 M00S02417.libtask +++| 02471 M00S02418.libtask +++| PRS1 SX7 TLD 02472 M00S02419.libtask +++| SA7 LWTLD LAST WORD ADDRESS OF TLD 02473 M00S02420.libtask +++| SX6 TSKDL 02474 M00S02421.libtask +++| SA6 FSLT FREE SPACE LEFT IN TLD 02475 M00S02422.libtask +++| SA7 LATLD 02476 M00S02423.libtask +++| SA7 LWOLD 02477 M00S02424.libtask +++| SX7 TRD PRESET LWA OF TRD 02478 M00S02425.libtask +++| SA7 LWTRD 02479 M00S02426.libtask +++| SA7 LATRD 02480 M00S02427.libtask +++| SX7 TRNDL PRESET FREE SPACE IN TRD 02481 M00S02428.libtask +++| SA7 FSTR
| Line S02429 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02482 M01S02429.ns2786 ---| DATE STLAD PACKED DATE 02483 M01S02430.ns2786 ---| CLOCK STLAT PACKED TIME
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02484 M01S00003.ns2786 +++| DATE STLAD DATE 02485 M01S00004.ns2786 +++| CLOCK STLAT TIME 02486 M00S02431.libtask +++| RJ STL SET TITLE PAGE OF OUTPUT 02487 M00S02432.libtask +++| SX7 MEML+TABLEN 02488 M00S02433.libtask +++| SA7 F.TEND 02489 M00S02434.libtask +++| SX5 CMP DISPLAY CODE 02490 M00S02435.libtask +++| LX5 48 02491 M00S02436.libtask +++| SB7 B0 02492 M00S02437.libtask +++| RJ DXB CONVERT DEFAULT MAXIMUM PRIORITY 02493 M00S02438.libtask +++| SA6 LIBB SAVE TEMPORARILY 02494 M00S02439.libtask +++| SA6 LIBA 02495 M00S02440.libtask +++| SX5 CBP DISPLAY CODE 02496 M00S02441.libtask +++| LX5 48 02497 M00S02442.libtask +++| RJ DXB CONVERT DEFAULT BEGINNING PRIORITY 02498 M00S02443.libtask +++| LX6 TLBPS-TLBPN+1 02499 M00S02444.libtask +++| SA1 LIBB+1 02500 M00S02445.libtask +++| BX6 X1+X6 02501 M00S02446.libtask +++| SA6 LIBB+1 SAVE AS DEFAULT 02502 M00S02447.libtask +++| SA6 LIBA+1 SAVE AS CURRENT 02503 M00S02448.libtask +++| SX5 CQL DISPLAY CODE 02504 M00S02449.libtask +++| LX5 48 02505 M00S02450.libtask +++| RJ DXB CONVERT DEFAULT QUEUE LIMIT 02506 M00S02451.libtask +++| SA1 LIBB+1 02507 M00S02452.libtask +++| BX7 X6+X1 02508 M00S02453.libtask +++| SA7 A1 SAVE AS DEFAULT 02509 M00S02454.libtask +++| SA7 LIBA+1 SAVE AS CURRENT 02510 M00S02455.libtask +++| RJ ERC CHECK POSSIBLE ERRORS 02511 M00S02456.libtask +++| SB4 TLD 02512 M00S02457.libtask +++| SA1 LWTLD 02513 M00S02458.libtask +++| SB5 X1+ 02514 M00S02459.libtask +++| 02515 M00S02460.libtask +++|* GET NAMES OF PROGRAMS ON LIBRARY FILE. 02516 M00S02461.libtask +++| 02517 M00S02462.libtask +++| PRS2 EQ B4,B5,PRS3 IF DONE GATHERING TASK NAMES 02518 M00S02463.libtask +++| SA1 B4 02519 M00S02464.libtask +++| BX1 X1*X5 02520 M00S02465.libtask +++| ADDWRD LREC,X1 02521 M00S02466.libtask +++| SB4 B4+TLDLE 02522 M00S02467.libtask +++| EQ PRS2 GET NEXT TASK NAME 02523 M00S02468.libtask +++| 02524 M00S02469.libtask +++| PRS3 SA1 Z 02525 M00S02470.libtask +++| ZR X1,PRS4 IF *Z* ARGUMENT NOT SELECTED 02526 M00S02471.libtask +++| SX2 I SET INPUT FET ADDRESS 02527 M00S02472.libtask +++| RJ ZAP PROCESS *Z* ARGUMENT 02528 M00S02473.libtask +++| EQ PRS5 PROCESS DIRECTIVES 02529 M00S02474.libtask +++| 02530 M00S02475.libtask +++| PRS4 SA1 I 02531 M00S02476.libtask +++| ZR X1,PRS7 IF NO INPUT DIRECTIVES 02532 M00S02477.libtask +++| READ I INPUT FILE 02533 M00S02478.libtask +++| PRS5 RJ INP PROCESS INPUT FILE 02534 M00S02479.libtask +++| PRS7 SA2 CR 02535 M00S02480.libtask +++| NZ X2,PRSX IF CREATING A NEW LIBRARY 02536 M00S02481.libtask +++| SKIPEI P,R SKIP TO END OF INFORMATION 02537 M00S02482.libtask +++| SA1 TT 02538 M00S02483.libtask +++| ZR X1,PRSX IF NOT *TT* OPTION
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02484.libtask +++|
| Line S02485 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02545 M01S02485.v23l617 ---|* THE USER NUMBER OF THIS JOB IS SENT TO *TAF* FOR VALIDATION
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02546 M01S00028.v23l617 +++|* THE USER NAME OF THIS JOB IS SENT TO *TAF* FOR VALIDATION 02547 M00S02486.libtask +++|* PURPOSES. 02548 M00S02487.libtask +++|
| Line S02488 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02549 M01S02488.v23l617 ---| USERNUM PRSA GET USER NUMBER
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02550 M02S00029.ns2523 ---| USERNUM PRSA GET USER NAME
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02551 M01S00024.ns2523 +++| PRS7.1 USERNUM PRSA GET USER NAME 02552 M00S02489.libtask +++| SA1 PRSA 02553 M00S02490.libtask +++| MX6 42 02554 M00S02491.libtask +++| BX6 X6*X1 SET INTO *TAF* TRANSMISSION WORD 02555 M00S02492.libtask +++| SA6 LIBI+1
| Line S02493 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02556 M01S02493.v23l617 ---| NZ X6,PRS8 IF USER NUMBER NONZERO 02557 M01S02494.v23l617 ---| MESSAGE PRSF * USER NUMBER REQUIRED FOR *TT* OPTION.*
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02558 M01S00030.v23l617 +++| NZ X6,PRS8 IF USER NAME NONZERO 02559 M01S00031.v23l617 +++| MESSAGE PRSF * USER NAME REQUIRED FOR *TT* OPTION.* 02560 M00S02495.libtask +++| ABORT 02561 M00S02496.libtask +++| 02562 M00S02497.libtask +++| PRS8 MX0 42 02563 M00S02498.libtask +++| SA1 P SET TASK LIBRARY NAME INTO *SIC* BLOCK 02564 M00S02499.libtask +++| BX6 X0*X1 02565 M00S02500.libtask +++| SA6 A6+B1 02566 M00S02501.libtask +++| EQ PRSX RETURN 02567 M00S02502.libtask +++|
| Line S02503 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02568 M01S02503.v23l617 ---|* CONTROL CARD ARGUMENT TABLES.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02569 M01S00032.v23l617 +++|* COMMAND ARGUMENT TABLES. 02570 M00S02504.libtask +++| 02571 M00S02505.libtask +++| ARGA BSS 0 02572 M00S02506.libtask +++| B ARG ARGB,B 02573 M00S02507.libtask +++| L ARG O,O 02574 M00S02508.libtask +++| P ARG ARGB+1,P 02575 M00S02509.libtask +++| CR ARG -ARGB-2,CR 02576 M00S02510.libtask +++| I ARG ARGB+3,I 02577 M00S02511.libtask +++| TT ARG -ARGB-4,TT 02578 M00S02512.libtask +++| PR ARG -ARGB-5,PR 02579 M00S02513.libtask +++| N ARG ARGB+6,SF 02580 M00S02514.libtask +++| DA ARG -ARGB-7,DA 02581 M00S02515.libtask +++| Z ARG -ARGB-8,Z 02582 M00S02516.libtask +++| LO ARG ARGB+9,LO 02583 M00S02517.libtask +++| TN ARG ARGB+10,XTN 02584 M00S02518.libtask +++| ARG 02585 M00S02519.libtask +++| 02586 M00S02520.libtask +++| 02587 M00S02521.libtask +++| ARGB CON 0LLGO+3 02588 M00S02522.libtask +++| CON 0LTASKLIB+3 02589 M00S02523.libtask +++| CON 1 02590 M00S02524.libtask +++| CON 0LCOMPILE+3 02591 M00S02525.libtask +++| CON 1 02592 M00S02526.libtask +++| CON 1 02593 M00S02527.libtask +++| CON 0LTASKLIB+3 02594 M00S02528.libtask +++| CON 1 02595 M00S02529.libtask +++| CON 1 02596 M00S02530.libtask +++| CON 0LA 02597 M00S02531.libtask +++| CON 0 02598 M00S02532.libtask +++|
| Line S02533 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02599 M01S02533.v23l617 ---| PRSA CON 0 USER NUMBER 02600 M01S02534.v23l617 ---| PRSB DATA C* CONTROL CARD ARGUMENT ERRORS.*
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02601 M01S00033.v23l617 +++| PRSA CON 0 USER NAME 02602 M01S00034.v23l617 +++| PRSB DATA C* LIBTASK COMMAND ARGUMENT ERRORS.* 02603 M00S02535.libtask +++| PRSC DATA C* TASK LIBRARY DIRECTORY TOO LONG.* 02604 M00S02536.libtask +++| PRSD DATA C* TASK LIBRARY DIRECTORY EMPTY.* 02605 M00S02537.libtask +++| PRSE DATA C* TASK LIBRARY DIRECTORY ERROR.*
| Line S02538 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02606 M01S02538.v23l617 ---| PRSF DATA C* TT OPTION REQUIRES USER NUMBER.*
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02607 M01S00035.v23l617 +++| PRSF DATA C* TT OPTION REQUIRES USER NAME.* 02608 M00S02539.libtask +++| PRSG DATA C* TRANSACTION DIRECTORY EMPTY.* 02609 M00S02540.libtask +++| PRSH DATA C* TRANSACTION DIRECTORY TOO LONG.* 02610 M00S02541.libtask +++| PRSI DATA C* TRANSACTION DIRECTORY ERROR.*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02542.libtask +++| ATP SPACE 4,15 02618 M00S02543.libtask +++|** ATP - ATTACH LIBRARY FILE. 02619 M00S02544.libtask +++|* 02620 M00S02545.libtask +++|* RETURN THE LIBRARY FILE, READ THE REAL-TIME CLOCK, AND 02621 M00S02546.libtask +++|* TRY TO ATTACH THE FILE IN *MODIFY* MODE. 02622 M00S02547.libtask +++|* 02623 M00S02548.libtask +++|* ENTRY (X5) = FET ADDRESS. 02624 M00S02549.libtask +++|* 02625 M00S02550.libtask +++|* EXIT FILE ATTACHED. 02626 M00S02551.libtask +++|* 02627 M00S02552.libtask +++|* USES A - 1, 3, 7. 02628 M00S02553.libtask +++|* X - 1, 3, 4, 7. 02629 M00S02554.libtask +++|* 02630 M00S02555.libtask +++|* CALLS ATT. 02631 M00S02556.libtask +++|* 02632 M00S02557.libtask +++|* MACROS ATTACH, RECALL, RETURN, RTIME. 02633 M00S02558.libtask +++| 02634 M00S02559.libtask +++| 02635 M00S02560.libtask +++| ATP SUBR ENTRY/EXIT 02636 M00S02561.libtask +++| RETURN X5,R RETURN FILE IF PRESENT 02637 M00S02562.libtask +++| RTIME ATTA READ CLOCK 02638 M00S02563.libtask +++| RECALL X5 02639 M00S02564.libtask +++| SA3 X5+10 02640 M00S02565.libtask +++| MX4 -18 02641 M00S02566.libtask +++| BX3 X4*X3 02642 M00S02567.libtask +++| SX4 ARGB PHONY ADDRESS FOR ERROR MESSAGES 02643 M00S02568.libtask +++| BX7 X3+X4 02644 M00S02569.libtask +++| SA7 A3 SUPPRESS ERROR MESSAGES FROM *PFM*
| Line S02570 Modification History | |
|---|---|
M01 (Removed by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02645 M01S02570.libta1 ---| SA1 ERCJ 02646 M01S02571.libta1 ---| ZR X1,ATP2 IF TO ATTACH IN *WRITE* MODE 02647 M01S02572.libta1 ---| ATP1 ATTACH X5,,,,M ATTACH FILE IN *MODIFY* MODE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | libta1 |
M02 (Removed by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02648 M02S00006.ns2523 ---| ATP1 ATTACH X5,,,,W ATTACH IN *WRITE* MODE FIRST
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02649 M01S00031.ns2523 +++| ATP1 ATTACH X5,,,,W,,,,NF ATTACH IN *WRITE* MODE FIRST
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02650 M01S00007.libta1 +++| SX7 B1 02651 M01S00008.libta1 +++| SA7 AT INDICATE ATTACHED IN *WRITE* MODE 02652 M00S02573.libtask +++| RJ ATT 02653 M00S02574.libtask +++| ZR X2,ATPX IF ATTACH SUCCESSFUL
| Line S02575 Modification History | |
|---|---|
M01 (Removed by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02654 M01S02575.libta1 ---| EQ ATP1 TRY AGAIN 02655 M01S02576.libta1 ---| 02656 M01S02577.libta1 ---| ATP2 ATTACH X5,,,,W ATTACH FILE IN *WRITE* MODE
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02659 M02S00011.ns2523 ---| ATP2 ATTACH X5,,,,M ATTACH IN *MODIFY* MODE
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 02660 M01S00032.ns2523 +++| ATP2 ATTACH X5,,,,M,,,,NF ATTACH IN *MODIFY* MODE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02661 M01S00012.libta1 +++| BX7 X7-X7 02662 M01S00013.libta1 +++| SA7 AT INDICATE ATTACHED IN *MODIFY* MODE 02663 M00S02578.libtask +++| RJ ATT CHECK ATTACH STATUS 02664 M00S02579.libtask +++| ZR X2,ATP IF ATTACH SUCCESSFUL 02665 M00S02580.libtask +++| EQ ATP2 TRY AGAIN 02666 M00S02581.libtask +++| 02667 M00S02582.libtask +++| ATT SPACE 4,20 02668 M00S02583.libtask +++|** ATT - ATTACH CHECKING PROCEDURES. 02669 M00S02584.libtask +++|* 02670 M00S02585.libtask +++|* CHECK FOR A SUCCESSFUL OR UNSUCCESSFUL ATTACH. 02671 M00S02586.libtask +++|* 02672 M00S02587.libtask +++|* ENTRY ATTACH REQUEST HAS BEEN ISSUED. 02673 M00S02588.libtask +++|* (ATTA) = START TIME OF REQUEST. 02674 M00S02589.libtask +++|* (X5) = FET ADDRESS. 02675 M00S02590.libtask +++|* 02676 M00S02591.libtask +++|* EXIT (X2) = 0 IF ATTACH SUCCESSFUL. 02677 M00S02592.libtask +++|* (X2) .NE. 0 IF NEED TO TRY ATTACH AGAIN. 02678 M00S02593.libtask +++|* ABORT IF FILE TIMES OUT. 02679 M00S02594.libtask +++|* ABORT IF ATTACH ERROR. 02680 M00S02595.libtask +++|* 02681 M00S02596.libtask +++|* USES A - 1, 2. 02682 M00S02597.libtask +++|* X - 1, 2, 3, 4, 6, 7. 02683 M00S02598.libtask +++|* 02684 M00S02599.libtask +++|* MACROS ABORT, MESSAGE, RECALL, RTIME. 02685 M00S02600.libtask +++| 02686 M00S02601.libtask +++| 02687 M00S02602.libtask +++| ATT SUBR ENTRY/EXIT 02688 M00S02603.libtask +++| SA1 X5 02689 M00S02604.libtask +++| MX2 -4 02690 M00S02605.libtask +++| LX1 -10 02691 M00S02606.libtask +++| BX2 -X2*X1 STATUS OF ATTACH 02692 M00S02607.libtask +++| ZR X2,ATTX IF FILE ATTACHED 02693 M00S02608.libtask +++| SX3 X2-1 02694 M00S02609.libtask +++| NZ X3,ATT1 IF FILE NOT BUSY 02695 M00S02610.libtask +++| RECALL 02696 M00S02611.libtask +++| RTIME ATTB READ CLOCK 02697 M00S02612.libtask +++| SA1 ATTA START TIME 02698 M00S02613.libtask +++| SA2 ATTB CURRENT TIME 02699 M00S02614.libtask +++| SX4 ATTC LOOP TIME 02700 M00S02615.libtask +++| MX3 -36 02701 M00S02616.libtask +++| BX1 -X3*X1 02702 M00S02617.libtask +++| BX2 -X3*X2 02703 M00S02618.libtask +++| IX6 X2-X1 TIME IN LOOP 02704 M00S02619.libtask +++| IX7 X6-X4 02705 M00S02620.libtask +++| NG X7,ATTX IF TIME ELAPSED, TRY AGAIN 02706 M00S02621.libtask +++| MESSAGE ATTD,3 02707 M00S02622.libtask +++| ABORT TIMED OUT 02708 M00S02623.libtask +++| 02709 M00S02624.libtask +++| ATT1 MESSAGE ATTE 02710 M00S02625.libtask +++| ABORT 02711 M00S02626.libtask +++| 02712 M00S02627.libtask +++| ATTA BSS 1 START TIME OF REQUEST 02713 M00S02628.libtask +++| ATTB BSS 1 CURRENT TIME 02714 M00S02629.libtask +++| ATTC EQU 10000 TIME OUT ON ATTACH ATTEMPT 02715 M00S02630.libtask +++| ATTD DATA C* LIBRARY FILE TIME OUT.* 02716 M00S02631.libtask +++| ATTE DATA C* LIBTASK - PFM ERROR DETECTED.* 02717 M00S02632.libtask +++| ERC SPACE 4,20 02718 M00S02633.libtask +++|** ERC - ERROR CHECKING. 02719 M00S02634.libtask +++|* 02720 M00S02635.libtask +++|* 1. IF TASKLIB STARTS WITH THE LETTER Z , 02721 M00S02636.libtask +++|* PRINT OUT ERROR MESSAGE ON DAYFILE AND OUTPUT 02722 M00S02637.libtask +++|* FILE THEN ABORT. 02723 M00S02638.libtask +++|* 2. IF *DA* IS SPECIFIED AND FILE IS NOT A DIRECT ACCESS 02724 M00S02639.libtask +++|* FILE, ABORT. 02725 M00S02640.libtask +++|* 3. IF *DA* IS SPECIFIED GO TO STEP 5. 02726 M00S02641.libtask +++|* 4. ATTACH FILES SPECIFIED BY *N* AND *P* PARAMETERS, 02727 M00S02642.libtask +++|* IF ATTACH FAILS ABORT.
| Line S02643 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02728 M01S02643.v23l617 ---|* 5. IF ILLEGAL COMBINATION OF CONTROL STATEMENT PARAMETERS,
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02729 M01S00036.v23l617 +++|* 5. IF INCORRECT COMBINATION OF COMMAND PARAMETERS, 02730 M00S02644.libtask +++|* PRINT OUT ERROR MESSAGE ON DAYFILE AND OUTPUT THEN ABORT. 02731 M00S02645.libtask +++|* 6. RETURN TO CALLER. 02732 M00S02646.libtask +++|*
| Line S02647 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02733 M01S02647.v23l617 ---|* ENTRY CONTROL STATEMENT PARAMETERS UNPACKED.
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02734 M01S00037.v23l617 +++|* ENTRY COMMAND PARAMETERS UNPACKED. 02735 M00S02648.libtask +++|*
| Line S02649 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02736 M01S02649.v23l617 ---|* EXIT IF ERROR ON CONTROL CARD PARAMETERS ABORT.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02737 M01S00038.v23l617 +++|* EXIT IF ERROR ON COMMAND PARAMETERS ABORT. 02738 M00S02650.libtask +++|* (P) = 0 IF *CR* SPECIFIED. 02739 M00S02651.libtask +++|* 02740 M00S02652.libtask +++|* USES A - 1, 2, 3, 5, 6, 7. 02741 M00S02653.libtask +++|* B - 4, 5. 02742 M00S02654.libtask +++|* X - ALL. 02743 M00S02655.libtask +++|* 02744 M00S02656.libtask +++|* CALLS ATP. 02745 M00S02657.libtask +++|* 02746 M00S02658.libtask +++|* MACROS ABORT, MESSAGE, READ, READW, REWIND, SKIPB, SKIPEI, 02747 M00S02659.libtask +++|* STATUS, WRITER, WRITEW. 02748 M00S02660.libtask +++| 02749 M00S02661.libtask +++| 02750 M00S02662.libtask +++| ERC SUBR ENTRY/EXIT 02751 M00S02663.libtask +++| SX6 B0+ 02752 M00S02664.libtask +++| SA6 PN ASSUME *P* AND *N* ARE IDENTICAL 02753 M00S02665.libtask +++| SA6 AT ASSUME FILE NOT ATTACHED BY *TAF* 02754 M00S02666.libtask +++| SA1 N 02755 M00S02667.libtask +++| MX0 6
| Line S02668 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02756 M01S02668.v23l617 ---| SX4 1RZ INVALID TASK LIBRARY FILE NAME
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02757 M01S00039.v23l617 +++| SX4 1RZ INCORRECT TASK LIBRARY FILE NAME 02758 M00S02669.libtask +++| LX4 -6 02759 M00S02670.libtask +++| BX2 X0*X1 02760 M00S02671.libtask +++| BX7 X2-X4 02761 M00S02672.libtask +++| SA2 ERCG 02762 M00S02673.libtask +++| ZR X7,ERC1.1 IF *N* STARTS WITH THE LETTER Z 02763 M00S02674.libtask +++| SX7 B1 02764 M00S02675.libtask +++| IX3 X1-X2 02765 M00S02676.libtask +++| ZR X3,ERC1 IF *P* AND *N* ARE IDENTICAL 02766 M00S02677.libtask +++| SA2 P 02767 M00S02678.libtask +++| BX0 X0*X2 02768 M00S02679.libtask +++| BX4 X0-X4 02769 M00S02680.libtask +++| ZR X4,ERC1.1 IF *P* STARTS WITH THE LETTER Z 02770 M00S02681.libtask +++| IX3 X1-X2 02771 M00S02682.libtask +++| ZR X3,ERC1 IF *P* AND *N* ARE IDENTICAL 02772 M00S02683.libtask +++| SA2 DA 02773 M00S02684.libtask +++| SA7 PN *P* AND *N* ARE NOT IDENTICAL 02774 M00S02685.libtask +++| NZ X2,ERC3 IF *DA* SPECIFIED
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02775 M01S00014.libta1 +++| SX7 B1 02776 M01S00015.libta1 +++| SA7 ERCJ ATTACH *N* FILE IN *WRITE* MODE 02777 M00S02686.libtask +++| SX5 N 02778 M00S02687.libtask +++| RJ ATP ATTACH *N* FILE 02779 M00S02688.libtask +++| SA1 P 02780 M00S02689.libtask +++| ZR X1,ERC4 IF *P* = 0
| Line S02690 Modification History | |
|---|---|
M01 (Removed by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02781 M01S02690.libta1 ---| SX7 B1+
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02782 M01S00016.libta1 +++| SX7 B0+ 02783 M00S02691.libtask +++| SX5 P 02784 M00S02692.libtask +++| SA7 ERCJ 02785 M00S02693.libtask +++| RJ ATP ATTACH *P* FILE 02786 M00S02694.libtask +++| EQ ERC4 CONTINUE PROCESS 02787 M00S02695.libtask +++| 02788 M00S02696.libtask +++|* PROCESS *N* PARAMETER OMITTED. 02789 M00S02697.libtask +++| 02790 M00S02698.libtask +++| ERC1 SA1 P 02791 M00S02699.libtask +++| NZ X1,ERC2 IF *P* NOT EQUAL TO ZERO 02792 M00S02700.libtask +++| MESSAGE ERCF CONFLICTING *LIBTASK* OPTION 02793 M00S02701.libtask +++| WRITEW O,ERCF,ERCFL 02794 M00S02702.libtask +++| ABORT 02795 M00S02703.libtask +++| 02796 M00S02704.libtask +++| ERC1.1 MESSAGE ERCO 02797 M00S02705.libtask +++| WRITEW O,ERCO,ERCOL 02798 M00S02706.libtask +++| ABORT 02799 M00S02707.libtask +++| 02800 M00S02708.libtask +++| ERC2 SX5 P 02801 M00S02709.libtask +++| SA2 DA 02802 M00S02710.libtask +++| NZ X2,ERC3 IF *DA* SPECIFIED
| Line S02711 Modification History | |
|---|---|
M01 (Removed by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 02803 M01S02711.libta1 ---| SA1 TT 02804 M01S02712.libta1 ---| BX7 X1 02805 M01S02713.libta1 ---| SA7 ERCJ
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02714.libtask +++| RJ ATP ATTACH P FILE 02811 M00S02715.libtask +++| EQ ERC4 CHECK PARAMETERS 02812 M00S02716.libtask +++| 02813 M00S02717.libtask +++|* PROCESS *DA* PARAMETER. 02814 M00S02718.libtask +++| 02815 M00S02719.libtask +++| ERC3 ZR X3,ERC3.1 IF P AND N ARE IDENTICAL 02816 M00S02720.libtask +++| STATUS N,P 02817 M00S02721.libtask +++| SX2 PMFT DIRECT ACCESS CODE 02818 M00S02722.libtask +++| SA1 N+5 FNT ENTRY 02819 M00S02723.libtask +++| MX0 -6 02820 M00S02724.libtask +++| AX1 6 02821 M00S02725.libtask +++| BX1 -X0*X1 FILE TYPE 02822 M00S02726.libtask +++| IX2 X2-X1 02823 M00S02727.libtask +++| SX6 B0 02824 M00S02728.libtask +++| SA6 N+5 RESTORE FET+5 02825 M00S02729.libtask +++| SA6 A6+B1 RESTORE FET+6 02826 M00S02730.libtask +++| ZR X2,ERC3.1 IF DIRECT ACCESS FILE 02827 M00S02731.libtask +++| SA5 N 02828 M00S02732.libtask +++| MX0 42 02829 M00S02733.libtask +++| BX6 X0*X5 02830 M00S02734.libtask +++| SA6 LIBK+2 02831 M00S02735.libtask +++| MESSAGE LIBK * FILE NOT ATTACHED - FILNAME* 02832 M00S02736.libtask +++| ABORT 02833 M00S02737.libtask +++| 02834 M00S02738.libtask +++| ERC3.1 SA1 P 02835 M00S02739.libtask +++| ZR X1,ERC4 IF P=0 02836 M00S02740.libtask +++| STATUS P,P 02837 M00S02741.libtask +++| SX2 PMFT DIRECT ACCESS CODE 02838 M00S02742.libtask +++| SA1 P+5 FNT ENTRY 02839 M00S02743.libtask +++| MX0 -6 02840 M00S02744.libtask +++| AX1 6 02841 M00S02745.libtask +++| BX1 -X0*X1 FILE TYPE 02842 M00S02746.libtask +++| IX2 X2-X1 02843 M00S02747.libtask +++| SX6 B0 02844 M00S02748.libtask +++| SA6 P+5 RESTORE FET+5 02845 M00S02749.libtask +++| SA6 A6+B1 RESTORE FET+6 02846 M00S02750.libtask +++| ZR X2,ERC4 IF DIRECT ACCESS FILE 02847 M00S02751.libtask +++| SA5 P *P* FILE NAME 02848 M00S02752.libtask +++| MX0 42 02849 M00S02753.libtask +++| BX6 X0*X5 02850 M00S02754.libtask +++| SA6 LIBK+2 02851 M00S02755.libtask +++| MESSAGE LIBK * FILE NOT ATTACHED - FILNAME* 02852 M00S02756.libtask +++| ABORT 02853 M00S02757.libtask +++|
| Line S02758 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02854 M01S02758.v23l617 ---|* CHECK ILLEGAL COMBINATION OF PARAMETERS.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02855 M01S00040.v23l617 +++|* CHECK INCORRECT COMBINATION OF PARAMETERS. 02856 M00S02759.libtask +++| 02857 M00S02760.libtask +++| ERC4 SX4 B0+ 02858 M00S02761.libtask +++| SA1 XTN 02859 M00S02762.libtask +++| ZR X1,ERC4.1 IF NO *TN* 02860 M00S02763.libtask +++| SX4 X4+1 02861 M00S02764.libtask +++| ERC4.1 SA1 LO 02862 M00S02765.libtask +++| SX2 B0+ 02863 M00S02766.libtask +++| ZR X1,ERC4.2 IF NO *LO* 02864 M00S02767.libtask +++| SX3 1RA 02865 M00S02768.libtask +++| SX2 2 02866 M00S02769.libtask +++| LX1 6 02867 M00S02770.libtask +++| IX3 X1-X3 02868 M00S02771.libtask +++| ZR X3,ERC4.2 IF ALL TASKS TO BE REPORTED 02869 M00S02772.libtask +++| SX3 1RT 02870 M00S02773.libtask +++| IX2 X2+X2 02871 M00S02774.libtask +++| IX3 X1-X3 02872 M00S02775.libtask +++| ZR X3,ERC4.2 IF REPORT ONLY TASK NAMED 02873 M00S02776.libtask +++| SX2 6 02874 M00S02777.libtask +++| SX3 1RX 02875 M00S02778.libtask +++| IX3 X1-X3 02876 M00S02779.libtask +++| ZR X3,ERC4.2 IF REPORT ONY TRANSACTION NAMED 02877 M00S02780.libtask +++| SA2 ERCN *LO*, *LO=A*, *LO=T* OR *LO=X* 02878 M00S02781.libtask +++| SX4 X2 MESSAGE ADDRESS 02879 M00S02782.libtask +++| LX2 -18 02880 M00S02783.libtask +++| SX2 X2+ LENGTH OF MESSAGE 02881 M00S02784.libtask +++| EQ ERC8.1 PRINT OUT ERROR MESSAGE 02882 M00S02785.libtask +++| 02883 M00S02786.libtask +++| ERC4.2 IX4 X4+X2 02884 M00S02787.libtask +++| SA2 X4+TERCA ERROR FLAG 02885 M00S02788.libtask +++| SX4 X2 MESSAGE ADDRESS 02886 M00S02789.libtask +++| ZR X4,ERC4.3 IF NO ERROR 02887 M00S02790.libtask +++| LX2 -18 02888 M00S02791.libtask +++| SX2 X2 LENGTH OF MESSAGE 02889 M00S02792.libtask +++| EQ ERC8.1 PRINT OUT ERROR MESSAGE 02890 M00S02793.libtask +++| 02891 M00S02794.libtask +++| ERC4.3 SX4 B0+ 02892 M00S02795.libtask +++| SA1 CR 02893 M00S02796.libtask +++| ZR X1,ERC5 IF NOT *CR* 02894 M00S02797.libtask +++| SX1 B1+ 02895 M00S02798.libtask +++| ERC5 BX4 X4+X1 ADD *CR* FLAG 02896 M00S02799.libtask +++| SA2 PR 02897 M00S02800.libtask +++| ZR X2,ERC6 IF NOT *PR* 02898 M00S02801.libtask +++| SX2 2 02899 M00S02802.libtask +++| ERC6 BX4 X4+X2 ADD *PR* FLAG 02900 M00S02803.libtask +++| SA1 TT 02901 M00S02804.libtask +++| ZR X1,ERC7 IF NOT *TT* 02902 M00S02805.libtask +++| SX1 4 02903 M00S02806.libtask +++| ERC7 SA3 PN 02904 M00S02807.libtask +++| SA5 P 02905 M00S02808.libtask +++| BX4 X4+X1 02906 M00S02809.libtask +++| BX6 X5 SAVE FILE NAME 02907 M00S02810.libtask +++| ZR X3,ERC8 IF *P* IDENTICAL TO *N* 02908 M00S02811.libtask +++| SX3 8 02909 M00S02812.libtask +++| SA5 N 02910 M00S02813.libtask +++| ERC8 BX4 X4+X3 ADD *PN* FLAG
| Line S02814 Modification History | |
|---|---|
M01 (Removed by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 02911 M01S02814.libta2 ---| SA1 AT 02912 M01S02815.libta2 ---| BX4 X4+X1 ADD *AT* FLAG 02913 M00S02816.libtask +++| SA2 X4+TERC ERROR FLAG
| Line S02817 Modification History | |
|---|---|
M01 (Removed by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 02914 M01S02817.libta2 ---| SX4 X2+ MESSAGE ADDRESS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 02915 M01S00001.libta2 +++| SX4 X2 MESSAGE ADDRESS 02916 M00S02818.libtask +++| ZR X4,ERC9 IF NO ERROR 02917 M00S02819.libtask +++| LX2 -18 02918 M00S02820.libtask +++| SX2 X2 LENGTH OF MESSAGE 02919 M00S02821.libtask +++| ERC8.1 WRITEW O,X4,X2 PRINT OUT ERROR MESSAGE 02920 M00S02822.libtask +++| WRITER O 02921 M00S02823.libtask +++| LX4 30 02922 M00S02824.libtask +++| BX6 X4 02923 M00S02825.libtask +++| SA6 ERCA DAYFILE MESSAGE ADDRESS 02924 M00S02826.libtask +++| MESSAGE ERCA 02925 M00S02827.libtask +++| ABORT 02926 M00S02828.libtask +++| 02927 M00S02829.libtask +++|* SET UP OLD DIRECTORY FOR PROCESSING. 02928 M00S02830.libtask +++| 02929 M00S02831.libtask +++| ERC9 SA1 CR 02930 M00S02832.libtask +++| SA2 P 02931 M00S02833.libtask +++| MX0 42 MASK FILE NAME 02932 M00S02834.libtask +++| BX7 X0*X5 02933 M00S02835.libtask +++| SA7 LIBC+4 DISPLAY FILE NAME 02934 M00S02836.libtask +++| SA7 LIBD+4 02935 M00S02837.libtask +++| BX7 X0*X6 02936 M00S02838.libtask +++| SA7 LIBE+4 02937 M00S02839.libtask +++| NZ X1,ERCX IF CREATION RUN 02938 M00S02840.libtask +++| ZR X2,ERCX IF *P* IS EQUAL TO ZERO 02939 M00S02841.libtask +++| REWIND P 02940 M00S02842.libtask +++| SKIPEI P,R 02941 M00S02843.libtask +++| SKIPB P,2,R POSITION AT DIRECTORY 02942 M00S02844.libtask +++| READ P 02943 M00S02845.libtask +++| READW P,TLDH,TSKDL+4 DIRECTORY + HEADER 02944 M00S02846.libtask +++| NZ X1,ERC10 IF DIRECTORY NOT TOO LONG 02945 M00S02847.libtask +++| MESSAGE PRSC
| Line S02848 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02946 M01S02848.v23l617 ---| ABORT ILLEGAL DIRECTORY FORMAT
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02947 M01S00041.v23l617 +++| ABORT INCORRECT DIRECTORY FORMAT 02948 M00S02849.libtask +++| 02949 M00S02850.libtask +++| ERC10 PL X1,ERC11 IF DATA ON DIRECTORY 02950 M00S02851.libtask +++| MESSAGE PRSD DIRECTORY EMPTY 02951 M00S02852.libtask +++| ABORT 02952 M00S02853.libtask +++| 02953 M00S02854.libtask +++| ERC11 SX7 X1+ 02954 M00S02855.libtask +++| SX2 X1-TLD NUMBER OF WORDS IN TLD 02955 M00S02856.libtask +++| SA7 LWTLD LWA OF TLD 02956 M00S02857.libtask +++| SB4 TLD 02957 M00S02858.libtask +++| SB5 X7 02958 M00S02859.libtask +++| MX5 42 02959 M00S02860.libtask +++| SA1 TLDH+1 CHECK FOR NAME 02960 M00S02861.libtask +++| MX4 18 02961 M00S02862.libtask +++| BX6 -X2 02962 M00S02863.libtask +++| SX6 X6+TSKDL 02963 M00S02864.libtask +++| SA6 FSLT UNUSED SPACE LEFT IN TLD 02964 M00S02865.libtask +++| SA2 ERCI 02965 M00S02866.libtask +++| BX4 X4*X1 02966 M00S02867.libtask +++| MX7 -18 02967 M00S02868.libtask +++| IX3 X4-X2 02968 M00S02869.libtask +++| LX1 -18 02969 M00S02870.libtask +++| BX7 -X7*X1 LWA OF BASE TLD 02970 M00S02871.libtask +++| SX7 X7+TLD 02971 M00S02872.libtask +++| SA7 LWOLD 02972 M00S02873.libtask +++| ZR X3,ERC12 IF NAME WAS *TLD* 02973 M00S02874.libtask +++| MESSAGE PRSE * TASK LIBRARY DIRECTORY ERROR.* 02974 M00S02875.libtask +++| ABORT BAD LIBRARY FILE 02975 M00S02876.libtask +++| 02976 M00S02877.libtask +++| ERC12 SA1 TLDH 02977 M00S02878.libtask +++| MX0 30 02978 M00S02879.libtask +++| BX6 -X0*X1 EXTRACT PRU ADDRESS OF TRD 02979 M00S02880.libtask +++| ZR X6,ERCX IF NO TRD 02980 M00S02881.libtask +++| SA6 P+6 STORE IN FET 02981 M00S02882.libtask +++| READ P 02982 M00S02883.libtask +++| READW P,TRDH,TRNDL+4 DIRECTORY + HEADER 02983 M00S02884.libtask +++| NZ X1,ERC13 IF DIRECTORY NOT TOO LONG 02984 M00S02885.libtask +++| MESSAGE PRSH DIRECTORY TOO LONG 02985 M00S02886.libtask +++| ABORT 02986 M00S02887.libtask +++| 02987 M00S02888.libtask +++| ERC13 PL X1,ERC14 IF DATA IN DIRECTORY 02988 M00S02889.libtask +++| MESSAGE PRSG DIRECTORY EMPTY 02989 M00S02890.libtask +++| ABORT 02990 M00S02891.libtask +++| 02991 M00S02892.libtask +++| ERC14 SX7 X1 02992 M00S02893.libtask +++| SX2 X1-TRD WORDS IN TRD 02993 M00S02894.libtask +++| SA7 LWTRD 02994 M00S02895.libtask +++| SA7 LATRD 02995 M00S02896.libtask +++| SA1 TRDH+1 CHECK FOR NAME 02996 M00S02897.libtask +++| MX4 18 02997 M00S02898.libtask +++| BX6 -X2 02998 M00S02899.libtask +++| SX6 X6+TRNDL 02999 M00S02900.libtask +++| SA6 FSTR UNUSED SPACE LEFT IN TRD 03000 M00S02901.libtask +++| SA2 ERCK 03001 M00S02902.libtask +++| BX4 X4*X1 03002 M00S02903.libtask +++| BX4 X4-X2 03003 M00S02904.libtask +++| SX6 B1+ 03004 M00S02905.libtask +++| SA6 TRDE FLAG *TRD* EXISTS 03005 M00S02906.libtask +++| ZR X4,ERCX IF NAME WAS *TRD* 03006 M00S02907.libtask +++| MESSAGE PRSI DIRECTORY ERROR 03007 M00S02908.libtask +++| ABORT 03008 M00S02909.libtask +++| 03009 M00S02910.libtask +++| ERCA CON 0 03010 M00S02911.libtask +++| ERCB DATA C* CONFLICTING LIBTASK OPTIONS - CR, PR.* 03011 M00S02912.libtask +++| ERCBL EQU *-ERCB 03012 M00S02913.libtask +++| ERCC DATA C* CONFLICTING LIBTASK OPTIONS - CR, TT.* 03013 M00S02914.libtask +++| ERCCL EQU *-ERCC 03014 M00S02915.libtask +++| ERCD DATA C* CONFLICTING LIBTASK OPTIONS - PR, TT.* 03015 M00S02916.libtask +++| ERCDL EQU *-ERCD
| Line S02917 Modification History | |
|---|---|
M01 (Removed by) | libta2 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03016 M02S02917.v23l617 ---| ERCE DATA C* ILLEGAL PR OR CR WHEN FILE ATTACHED BY TAF.*
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03017 M01S00042.v23l617 +++| ERCE DATA C* INCORRECT PR OR CR WHEN FILE ATTACHED BY TAF.*
| Line S02918 Modification History | |
|---|---|
M01 (Removed by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03018 M01S02918.libta2 ---| ERCEL EQU *-ERCE 03019 M00S02919.libtask +++| ERCF DATA C* CONFLICTING LIBTASK OPTIONS - P=0, -N.* 03020 M00S02920.libtask +++| ERCFL EQU *-ERCF 03021 M00S02921.libtask +++| ERCG VFD 60/0LSCRATCH+3 DUMMY FILE TO CHECK IF N OMITTED 03022 M00S02922.libtask +++| ERCH DATA C* CONFLICTING LIBTASK OPTIONS - TT, N.* 03023 M00S02923.libtask +++| ERCHL EQU *-ERCH 03024 M00S02924.libtask +++| ERCI VFD 60/3LTLD HEADER WORD FOR TLD
| Line S02925 Modification History | |
|---|---|
M01 (Removed by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 03025 M01S02925.libta1 ---| ERCJ CON 0 ATTACH FLAG IF SET ATTACH IN MODIFY MODE
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 03026 M01S00021.libta1 +++| ERCJ BSSZ 1 ATTACH FLAG, IF SET ATTACH IN *WRITE* MODE 03027 M00S02926.libtask +++| ERCK VFD 60/0LTRD HEADER WORD FOR TRD 03028 M00S02927.libtask +++| ERCL DATA C* TN REQUIRES EITHER LO=T OR LO=X.* 03029 M00S02928.libtask +++| ERCLL EQU *-ERCL 03030 M00S02929.libtask +++| ERCM DATA C* VALID LO OPTIONS ARE LO, LO=A, LO=T OR LO=X.* 03031 M00S02930.libtask +++| ERCML EQU *-ERCM 03032 M00S02931.libtask +++| ERCN VFD 30/0,12/ERCML,18/ERCM *LO*, *LO=A*, *LO=T* OR *LO=X* 03033 M00S02932.libtask +++| ERCO DATA C* TASKLIB MUST NOT START WITH THE LETTER Z.* 03034 M00S02933.libtask +++| ERCOL EQU *-ERCO 03035 M00S02934.libtask +++|
| Line S02935 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03036 M01S02935.v23l617 ---| TERC BSS 0 TRUTH TABLE OF CONTROL CARD PARAMETERS
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03037 M01S00043.v23l617 +++| TERC BSS 0 TRUTH TABLE OF COMMAND PARAMETERS 03038 M00S02936.libtask +++| VFD 60/0 ADD (B) TO (P) 03039 M00S02937.libtask +++| VFD 60/0 CREATE P FROM B 03040 M00S02938.libtask +++| VFD 60/0 DELETE INACTIVE TASKS IN P 03041 M00S02939.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03042 M00S02940.libtask +++| VFD 60/0 TAF IS NOT UP SO *TT* HAS NO EFFECT
| Line S02941 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03043 M01S02941.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD 03044 M01S02942.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02943.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03048 M00S02944.libtask +++| VFD 60/0, COPY (P) TO N AND ADD (B) 03049 M00S02945.libtask +++| VFD 60/0 CREATE N FROM (P) AND (B) 03050 M00S02946.libtask +++| VFD 60/0 CREATE N FROM (P) AND (B) 03051 M00S02947.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03052 M00S02948.libtask +++| VFD 30/0,12/ERCHL,18/ERCH *TT* WITH N SPECIFIED
| Line S02949 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03053 M01S02949.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD 03054 M01S02950.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02951.libtask +++| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME
| Line S02952 Modification History | |
|---|---|
M01 (Removed by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03058 M01S02952.libta2 ---| VFD 60/0 ADD (B) TO (P) 03059 M01S02953.libta2 ---| VFD 30/0,12/ERCEL,18/ERCE P FILE ATTACHED BY TAF 03060 M01S02954.libta2 ---| VFD 30/0,12/ERCEL,18/ERCE *PR* WHEN P ATTACHED BY TAF 03061 M01S02955.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03062 M01S02956.libta2 ---| VFD 60/0 ADD (B) TO P AND TELL TAF
| Line S02957 Modification History | |
|---|---|
M01 (Removed by) | libta2 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03063 M02S02957.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD 03064 M02S02958.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03067 M01S02959.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03068 M01S02960.libta2 ---| VFD 60/0 COPY (P) TO (N) AND ADD (B) 03069 M01S02961.libta2 ---| VFD 60/0 CREATE N FROM B 03070 M01S02962.libta2 ---| VFD 60/0 CREATE N FROM P AND B 03071 M01S02963.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03072 M01S02964.libta2 ---| VFD 30/0,12/ERCHL,18/ERCH *TT* WITH N SPECIFIED
| Line S02965 Modification History | |
|---|---|
M01 (Removed by) | libta2 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03073 M02S02965.v23l617 ---| VFD 30/0,12/ERCCL,18/ERCC *CR* AND *TT* IN CONTROL CARD 03074 M02S02966.v23l617 ---| VFD 30/0,12/ERCDL,18/ERCD *PR* AND *TT* IN CONTROL CARD
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | libta2 |
Seq # *Modification Id* Act ----------------------------+ 03077 M01S02967.libta2 ---| VFD 30/0,12/ERCBL,18/ERCB *CR* AND *PR* AT SAME TIME 03078 M00S02968.libtask +++| 03079 M00S02969.libtask +++|* ERROR MESSAGE TABLE FOR *LO* AND *TN* PARAMETERS. 03080 M00S02970.libtask +++| TERCA BSS 0 TRUTH TABLE OF *LO* AND *TN* PARAMETERS 03081 M00S02971.libtask +++| CON 0 NEITHER OPTION 03082 M00S02972.libtask +++| VFD 30/0,12/ERCLL,18/ERCL *TN* REQUIRES *LO*=T OR *LO*=X 03083 M00S02973.libtask +++| CON 0 *LO* WITH DEFAULT 03084 M00S02974.libtask +++| VFD 30/0,12/ERCLL,18/ERCL *TN* REQUIRES *LO*=T OR *LO*=X 03085 M00S02975.libtask +++| CON 0 *LO=T* 03086 M00S02976.libtask +++| CON 0 *LO*=T AND *TN* 03087 M00S02977.libtask +++| CON 0 *LO=X* 03088 M00S02978.libtask +++| CON 0 *LO*=X AND *TN* 03089 M00S02979.libtask +++| INP SPACE 4,25 03090 M00S02980.libtask +++|** INP - PROCESS INPUT DIRECTIVES. 03091 M00S02981.libtask +++|* 03092 M00S02982.libtask +++|* PROCESS THE INPUT DIRECTIVES, CHECKING FOR ERRORS AND 03093 M00S02983.libtask +++|* SETTING UP MANAGED TABLES WITH THE DIRECTORY VALUES FOR EACH 03094 M00S02984.libtask +++|* TASK. ONE ENTRY IS ESTABLISHED FOR EACH DIRECTIVE, THEREFORE 03095 M00S02985.libtask +++|* ONLY ONE DIRECTIVE SHOULD BE USED FOR ANY TASK. SEVERAL 03096 M00S02986.libtask +++|* PARAMETERS MAY BE INCLUDED IN ONE DIRECTIVE HOWEVER. 03097 M00S02987.libtask +++|* 03098 M00S02988.libtask +++|* ENTRY (JOBORG) = 0 IF INTERACTIVE INPUT. 03099 M00S02989.libtask +++|* 03100 M00S02990.libtask +++|* EXIT INPUT DIRECTIVES PROCESSED. 03101 M00S02991.libtask +++|* 03102 M00S02992.libtask +++|* USES A - ALL. 03103 M00S02993.libtask +++|* X - ALL. 03104 M00S02994.libtask +++|* B - 2, 3, 4, 5, 6. 03105 M00S02995.libtask +++|* 03106 M00S02996.libtask +++|* CALLS ALC, ARG, DXB, ERR, SFN, STD, UPC. 03107 M00S02997.libtask +++|* 03108 M00S02998.libtask +++|* MACROS ABORT, ADDWRD, MESSAGE, READS, WRITEC, WRITER, 03109 M00S02999.libtask +++|* WRITES, WRITEW. 03110 M00S03000.libtask +++| 03111 M00S03001.libtask +++| 03112 M00S03002.libtask +++| INP SUBR ENTRY/EXIT 03113 M00S03003.libtask +++| SA1 O+1 OUTPUT FET 03114 M00S03004.libtask +++| SX2 B1 03115 M00S03005.libtask +++| LX2 36-0 POSITION FLUSH BIT 03116 M00S03006.libtask +++| BX6 X2+X1 03117 M00S03007.libtask +++| SA6 A1 SET FLUSH BIT 03118 M00S03008.libtask +++| SA1 JOBORG 03119 M00S03009.libtask +++| ZR X1,INP2 IF INTERACTIVE INPUT 03120 M00S03010.libtask +++| WRITEW O,INPG,INPGL 03121 M00S03011.libtask +++| SX2 2 03122 M00S03012.libtask +++| RJ ALC ADVANCE LINE COUNT 03123 M00S03013.libtask +++| EQ INP2 BYPASS FIRST WRITE 03124 M00S03014.libtask +++| 03125 M00S03015.libtask +++| INP1 SA1 JOBORG 03126 M00S03016.libtask +++| ZR X1,INP2 IF INTERACTIVE INPUT 03127 M00S03017.libtask +++| WRITEW O,INPK,1 03128 M00S03018.libtask +++| WRITES O,INPA,INPAL ECHO PRINT LINE TO OUTPUT FILE 03129 M00S03019.libtask +++| SX2 B1+ 03130 M00S03020.libtask +++| RJ ALC ADVANCE LINE COUNT 03131 M00S03021.libtask +++| INP2 READS I,INPA,INPAL READ A DIRECTIVE CARD 03132 M00S03022.libtask +++| NZ X1,INP20 IF EOR/EOF ENCOUNTERED ON FILE 03133 M00S03023.libtask +++| SA1 INPI 03134 M00S03024.libtask +++| SX7 X1+B1 ADVANCE NUMBER OF DIRECTIVES PROCESSED 03135 M00S03025.libtask +++| SA7 A1 03136 M00S03026.libtask +++| SA1 INPA FIRST CHARACTER 03137 M00S03027.libtask +++| SB2 7 MAXIMUM TASK NAME CHARACTER LENGTH 03138 M00S03028.libtask +++| SB6 A1+B1 START OF BUFFER 03139 M00S03029.libtask +++| BX6 X6-X6 03140 M00S03030.libtask +++| SB7 INPA+INPAL END OF BUFFER 03141 M00S03031.libtask +++| SX7 X1-1R* 03142 M00S03032.libtask +++| SB5 60 03143 M00S03033.libtask +++| SX0 55B HOLLERITH BLANK 03144 M00S03034.libtask +++| SX5 45B FIRST NON ALPHANUMERIC CHARACTER 03145 M00S03035.libtask +++| ZR X7,INP3 IF FIRST CHARACTER * 03146 M00S03036.libtask +++| SX7 X1-1R/ 03147 M00S03037.libtask +++| NZ X7,INP19 IF FIRST CHARACTER NOT / 03148 M00S03038.libtask +++| SX7 B1 03149 M00S03039.libtask +++| SA7 INPQ FLAG TRANSACTION DIRECTIVE
| Line S03040 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03150 M01S03040.v23l617 ---| INP3 EQ B6,B7,INP19 IF END OF CARD
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03151 M01S00052.v23l617 +++| INP3 EQ B6,B7,INP19 IF END OF COMMAND 03152 M00S03041.libtask +++| SA1 B6 03153 M00S03042.libtask +++| SB6 B6+B1 03154 M00S03043.libtask +++| BX2 X1-X0 03155 M00S03044.libtask +++| IX3 X1-X5 03156 M00S03045.libtask +++| ZR X2,INP4 IF END OF TASK NAME 03157 M00S03046.libtask +++| SX2 X0+B1 03158 M00S03047.libtask +++| BX2 X1-X2 03159 M00S03048.libtask +++| ZR X2,INP4 IF COMMA LEGAL SEPARATOR
| Line S03049 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03160 M01S03049.v23l617 ---| PL X3,INP19 IF ILLEGAL CHARACTER
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03161 M01S00053.v23l617 +++| PL X3,INP19 IF INCORRECT CHARACTER 03162 M00S03050.libtask +++| LX6 6 03163 M00S03051.libtask +++| BX6 X6+X1 ACCUMULATE CHARACTERS 03164 M00S03052.libtask +++| SB5 B5-6 03165 M00S03053.libtask +++| SB2 B2-B1 03166 M00S03054.libtask +++| LT B2,INP19 IF .GT. 7 CHARACTERS IN NAME 03167 M00S03055.libtask +++| EQ INP3 CHECK NEXT CHARACTER 03168 M00S03056.libtask +++| 03169 M00S03057.libtask +++| INP4 ZR X6,INP19 IF NO TASK NAME 03170 M00S03058.libtask +++| LX2 X6,B5 03171 M00S03059.libtask +++| SX5 B5 SAVE (B5) 03172 M00S03060.libtask +++| SX6 B6 SAVE (B6) 03173 M00S03061.libtask +++| SA1 LWOLD LWA OF BASE TLD 03174 M00S03062.libtask +++| SB6 X1 03175 M00S03063.libtask +++| SB5 TLD START OF TLD 03176 M00S03064.libtask +++| SB3 TLDLE TLD ENTRY LENGTH 03177 M00S03065.libtask +++| SA3 INPQ 03178 M00S03066.libtask +++| ZR X3,INP4.1 IF TASK DIRECTIVE 03179 M00S03067.libtask +++| SA1 LATRD LWA OF TRD 03180 M00S03068.libtask +++| SB6 X1 03181 M00S03069.libtask +++| SB5 TRD 03182 M00S03070.libtask +++| SB3 TRDLE1 TRD ENTRY LENGTH 03183 M00S03071.libtask +++| BX7 X2 03184 M00S03072.libtask +++| SA7 INPT SAVE TRANSACTION NAME 03185 M00S03073.libtask +++| INP4.1 RJ STD CHECK IF IN DIRECTORY 03186 M00S03074.libtask +++| SB5 X5 RESTORE (B5) 03187 M00S03075.libtask +++| SB6 X6 RESTORE (B6) 03188 M00S03076.libtask +++| SX0 55B 03189 M00S03077.libtask +++| SB7 INPA+INPAL RESTORE (B7) 03190 M00S03078.libtask +++| ZR X1,INP5 IF TASK/TRANSACTION FOUND 03191 M00S03079.libtask +++| SA1 INPQ 03192 M00S03080.libtask +++| NZ X1,INP6 IF TRANSACTION DIRECTIVE 03193 M00S03081.libtask +++| ADDWRD DRTC,X2 ADD TASK NAME TO DIRECTIVE LIST 03194 M00S03082.libtask +++| BX7 X7-X7 03195 M00S03083.libtask +++| SA7 INPN CLEAR FLAG TO INDICATE NEW DIRECTIVE 03196 M00S03084.libtask +++| EQ INP6 PROCESS DIRECTIVES 03197 M00S03085.libtask +++| 03198 M00S03086.libtask +++| INP5 SX7 A1 ADDRESS OF TASK IN DIRECTORY 03199 M00S03087.libtask +++| SA7 INPN 03200 M00S03088.libtask +++| SA1 INPQ 03201 M00S03089.libtask +++| NZ X1,INP6 IF TRANSACTION DIRECTIVE 03202 M00S03090.libtask +++| ADDWRD TDCH,X2 DIRECTIVE CHANGED TABLE
| Line S03091 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03203 M01S03091.v23l617 ---| INP6 EQ B6,B7,INP19 IF NO DIRECTIVES ON CARD
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03204 M01S00054.v23l617 +++| INP6 EQ B6,B7,INP19 IF NO DIRECTIVES ON COMMAND 03205 M00S03092.libtask +++| SA1 B6 03206 M00S03093.libtask +++| SB6 B6+B1 03207 M00S03094.libtask +++| BX2 X1-X0 03208 M00S03095.libtask +++| ZR X2,INP6 IF SKIP ALL BLANKS 03209 M00S03096.libtask +++| SX5 B6-B1 FIRST NON BLANK CHARACTER AFTER TASK NAME 03210 M00S03097.libtask +++| SA1 INPC+1 FIRST 03211 M00S03098.libtask +++| SX7 X1 03212 M00S03099.libtask +++| SA7 A1+B1 REWIND FET 03213 M00S03100.libtask +++| SX6 X7+8 03214 M00S03101.libtask +++| SA7 A7+B1 OUT 03215 M00S03102.libtask +++| SA6 A7+B1 LIMIT 03216 M00S03103.libtask +++| SB7 B7-B6 03217 M00S03104.libtask +++| WRITES INPC,X5,B7 PUT BACK INTO WORD FORMAT 03218 M00S03105.libtask +++| BX6 X6-X6 ADD LINE TERMINATOR 03219 M00S03106.libtask +++| SB4 60 03220 M00S03107.libtask +++| SB7 B1+B1 UNPACK INTO LOW CORE 03221 M00S03108.libtask +++| SA6 B3 03222 M00S03109.libtask +++| SA1 B3-B1 LAST CM WORD OF DIRECTIVE 03223 M00S03110.libtask +++| SX7 1R. 03224 M00S03111.libtask +++| SB6 6 03225 M00S03112.libtask +++| MX0 6 03226 M00S03113.libtask +++| LX7 -6 03227 M00S03114.libtask +++| INP7 BX3 X0*X1 MASK LEFT MOST CHARACTER 03228 M00S03115.libtask +++| IX2 X7-X3 03229 M00S03116.libtask +++| ZR X2,INP9 IF TERMINATOR 03230 M00S03117.libtask +++| ZR X3,INP8 IF END OF LINE 03231 M00S03118.libtask +++| LX1 X1,B6 LEFT SHIFT ONE CHARACTER 03232 M00S03119.libtask +++| SB4 B4-B6 03233 M00S03120.libtask +++| NZ B4,INP7 IF NOT AT WORD BOUNDARY 03234 M00S03121.libtask +++| SA1 A1+B1 NEXT WORD 03235 M00S03122.libtask +++| SB4 60 03236 M00S03123.libtask +++| EQ INP7 TRY AGAIN 03237 M00S03124.libtask +++| 03238 M00S03125.libtask +++| INP8 BX7 X7+X1 ADD TERMINATOR 03239 M00S03126.libtask +++| LX7 X7,B4 03240 M00S03127.libtask +++| SA7 A1+ 03241 M00S03128.libtask +++| INP9 SA5 INPCD FIRST WORD OF DIRECTIVES (DUMMY) 03242 M00S03129.libtask +++| RJ UPC UNPACK DIRECTIVES 03243 M00S03130.libtask +++| SB6 B6+B1 03244 M00S03131.libtask +++| ZR X7,INP10 IF END OF LINE 03245 M00S03132.libtask +++| SB6 B6-B1 03246 M00S03133.libtask +++| NZ X6,INP19 IF ERROR IN DIRECTIVE FORMAT 03247 M00S03134.libtask +++| INP10 SB4 B6-B1 ADJUST ARGUMENT COUNT 03248 M00S03135.libtask +++| SA4 B7+B1 FIRST ARGUMENT ADDRESS 03249 M00S03136.libtask +++| SX7 B4 03250 M00S03137.libtask +++| SA7 INPR SAVE ARGUMENT COUNT 03251 M00S03138.libtask +++| SA1 INPQ 03252 M00S03139.libtask +++| SB5 INPE ARGUMENT TABLE 03253 M00S03140.libtask +++| ZR X1,INP10.1 IF TASK DIRECTIVE 03254 M00S03141.libtask +++| SB5 INPO ARGUMENT TABLE 03255 M00S03142.libtask +++| INP10.1 RJ ARG PROCESS ARGUMENTS 03256 M00S03143.libtask +++| NZ X1,INP19 IF ERROR IN DIRECTIVE ARGUMENTS 03257 M00S03144.libtask +++| SA1 INPQ 03258 M00S03145.libtask +++| NZ X1,INP22 IF TRANSACTION DIRECTIVE 03259 M00S03146.libtask +++| 03260 M00S03147.libtask +++|* PROCESS DIRECTORY ARGUMENTS. 03261 M00S03148.libtask +++| 03262 M00S03149.libtask +++| SA1 IG 03263 M00S03150.libtask +++| SA2 INPN 03264 M00S03151.libtask +++| ZR X1,INP12 IF NOT IGNORE 03265 M00S03152.libtask +++| NZ X2,INP11 IF TASK IN DIRECTORY 03266 M00S03153.libtask +++| MX2 1 03267 M00S03154.libtask +++| ADDWRD DRTC,X2 03268 M00S03155.libtask +++| BX2 X2-X2 03269 M00S03156.libtask +++| ADDWRD DRTC,X2 03270 M00S03157.libtask +++| SB2 B0 03271 M00S03158.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03272 M00S03159.libtask +++| 03273 M00S03160.libtask +++| INP11 MX2 1 03274 M00S03161.libtask +++| ADDWRD TDCH,X2 03275 M00S03162.libtask +++| BX2 X2-X2 03276 M00S03163.libtask +++| ADDWRD TDCH,X2 03277 M00S03164.libtask +++| SB2 B0 03278 M00S03165.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03279 M00S03166.libtask +++| 03280 M00S03167.libtask +++|* PROCESS OTHER DIRECTIVES. 03281 M00S03168.libtask +++| 03282 M00S03169.libtask +++| INP12 SA5 BP 03283 M00S03170.libtask +++| SB7 B0+ SET OCTAL CONVERSION 03284 M00S03171.libtask +++| RJ DXB CONVERT BEGINNING PRIORITY TO OCTAL 03285 M00S03172.libtask +++| NZ X4,INP19 IF ERROR IN CONVERSION 03286 M00S03173.libtask +++| SA6 BP STORE NEW VALUE 03287 M00S03174.libtask +++| SA5 MP 03288 M00S03175.libtask +++| RJ DXB CONVERT MAXIMUM PRIORITY TO OCTAL 03289 M00S03176.libtask +++| NZ X4,INP19 IF CONVERSION ERROR 03290 M00S03177.libtask +++| SA6 MP STORE NEW VALUE 03291 M00S03178.libtask +++| SA5 QL 03292 M00S03179.libtask +++| RJ DXB CONVERT QUEUE LIMIT TO OCTAL 03293 M00S03180.libtask +++| NZ X4,INP19 IF CONVERSION ERROR 03294 M00S03181.libtask +++| SA6 QL STORE NEW VALUE 03295 M00S03182.libtask +++| SA5 EF EXPANDABLE FL 03296 M00S03183.libtask +++| RJ DXB CONVERT TO BINARY 03297 M00S03184.libtask +++| SX6 X6 03298 M00S03185.libtask +++| SX1 MAXEF+1 03299 M00S03186.libtask +++| IX2 X6-X1 03300 M00S03187.libtask +++| PL X2,INP19 IF MAXIMUM EXPANDABLE FL EXCEEDED 03301 M00S03188.libtask +++| NG X6,INP19 IF NEGATIVE VALUE 03302 M00S03189.libtask +++| NZ X4,INP19 IF CONVERSION ERROR 03303 M00S03190.libtask +++| SA6 EF 03304 M00S03191.libtask +++| 03305 M00S03192.libtask +++|* CHECK FOR PARAMETER VALUES OUT OF RANGE. 03306 M00S03193.libtask +++| 03307 M00S03194.libtask +++| SA1 BP BEGINNING PRIORITY 03308 M00S03195.libtask +++| SX2 X1-MXBP-1 03309 M00S03196.libtask +++| SA3 MP MAXIMUM PRIORITY 03310 M00S03197.libtask +++| SX4 X1-MNBP 03311 M00S03198.libtask +++| PL X2,INP19 IF BEGINNING PRIORITY IS TOO HIGH 03312 M00S03199.libtask +++| NG X4,INP19 IF BEGINNING PRIORITY IS TOO LOW 03313 M00S03200.libtask +++| SX2 X3-MNMP 03314 M00S03201.libtask +++| SX3 X3-MXMP-1 03315 M00S03202.libtask +++| NG X2,INP19 IF MAXIMUM PRIORITY IS TOO LOW 03316 M00S03203.libtask +++| SA1 QL QUEUE LIMIT 03317 M00S03204.libtask +++| PL X3,INP19 IF MAXIMUM PRIORITY IS TOO HIGH 03318 M00S03205.libtask +++| SX2 X1-MAXQL-1 03319 M00S03206.libtask +++| SX4 X1-MINQL 03320 M00S03207.libtask +++| PL X2,INP19 IF QUEUE LIMIT TOO HIGH 03321 M00S03208.libtask +++| NG X4,INP19 IF QUEUE LIMIT TOO LOW 03322 M00S03209.libtask +++| SA1 C
| Line S03210 Modification History | |
|---|---|
M01 (Removed by) | ns2327 |
Seq # *Modification Id* Act ----------------------------+ 03323 M01S03210.ns2327 ---| ZR X1,INP13 IF NOT A CORE RESIDENT TASK
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2327 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03211.libtask +++| SA1 CRES 03336 M00S03212.libtask +++| SX7 X1+1 BUMP CORE RESIDENT TASK COUNT 03337 M00S03213.libtask +++| SA7 A1+ 03338 M00S03214.libtask +++| INP13 SA1 D 03339 M00S03215.libtask +++| NZ X1,INP14 IF NOT A DESTRUCTIVE TASK 03340 M00S03216.libtask +++| SX7 1 03341 M00S03217.libtask +++| SA7 QL FORCE DESTRUCTIVE TASK QUEUE LIMIT TO 1 03342 M00S03218.libtask +++| INP14 SA1 MP MAXIMUM PRIORITY 03343 M00S03219.libtask +++| SA2 EF EXPANDABLE FIELD LENGTH 03344 M00S03220.libtask +++| SX2 X2+77B ROUND TO MULTIPLE OF 100B 03345 M00S03221.libtask +++| AX2 6 03346 M00S03222.libtask +++| LX2 TLEFS-TLEFN+1 03347 M00S03223.libtask +++| BX2 X2+X1 03348 M00S03224.libtask +++| SA1 INPN 03349 M00S03225.libtask +++| NZ X1,INP15 IF TASK IN DIRECTORY 03350 M00S03226.libtask +++| ADDWRD DRTC,X2 03351 M00S03227.libtask +++| EQ INP16 PROCESS NEW TASK 03352 M00S03228.libtask +++| 03353 M00S03229.libtask +++| INP15 SA1 X1+B1 SECOND WORD OF TLD 03354 M00S03230.libtask +++| MX7 TLDAN+TLFLN 03355 M00S03231.libtask +++| BX7 X7*X1 DA AND FL 03356 M00S03232.libtask +++| BX7 X7+X2 ADD *EF* AND *MP* 03357 M00S03233.libtask +++| SA7 A1 03358 M00S03234.libtask +++| ADDWRD TDCH,X7 SECOND WORD OF DIRECTORY 03359 M00S03235.libtask +++| INP16 SA1 S SYSTEM TASK 03360 M00S03236.libtask +++| SA2 D DESTRUCTIVE CODE 03361 M00S03237.libtask +++| SA3 C CORE RESIDENCE 03362 M00S03238.libtask +++| SA4 QL 03363 M00S03239.libtask +++| BX1 X1+X2 03364 M00S03240.libtask +++| SA2 OO ON/OFF 03365 M00S03241.libtask +++| BX3 X2+X3 03366 M00S03242.libtask +++| BX1 X1+X3
| Line S03243 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03367 M01S03243.v23l617 ---| SA2 E ECS RESIDENCE
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03368 M01S00055.v23l617 +++| SA2 E EXTENDED MEMORY RESIDENCE 03369 M00S03244.libtask +++| BX1 X2+X1 03370 M00S03245.libtask +++| SA3 DL DELETE TASK 03371 M00S03246.libtask +++| BX1 X1+X3 03372 M00S03247.libtask +++| LX1 TLSTS-5 03373 M00S03248.libtask +++| BX1 X1+X4 03374 M00S03249.libtask +++| SA2 SC 03375 M00S03250.libtask +++| BX1 X2+X1 03376 M00S03251.libtask +++| SA3 R REDUCE FL FLAG 03377 M00S03252.libtask +++| SA2 BP 03378 M00S03253.libtask +++| LX3 TLRES-TLREN+1 03379 M00S03254.libtask +++| LX2 TLBPS-TLBPN+1 03380 M00S03255.libtask +++| BX1 X1+X3 03381 M00S03256.libtask +++| BX1 X2+X1 03382 M00S03257.libtask +++| SA2 Q QUEUING CONTROL INDICATOR 03383 M00S03258.libtask +++| BX1 X1+X2 03384 M00S03259.libtask +++| SB2 B0 03385 M00S03260.libtask +++| SA2 INPN 03386 M00S03261.libtask +++| NZ X2,INP17 IF TASK ALREADY IN DIRECTORY 03387 M00S03262.libtask +++| ADDWRD DRTC,X1 ADD TO DIRECTIVE TABLE 03388 M00S03263.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03389 M00S03264.libtask +++| 03390 M00S03265.libtask +++| INP17 BX7 X1 03391 M00S03266.libtask +++| SA7 X2+2 STORE IN EXISTING DIRECTORY ENTRY 03392 M00S03267.libtask +++| ADDWRD TDCH,X7 THIRD WORD OF DIRECTORY 03393 M00S03268.libtask +++| SA2 INPN 03394 M00S03269.libtask +++| SA2 X2 03395 M00S03270.libtask +++| ADDWRD TDRC,X2 DIRECTIVES CHANGED LIST 03396 M00S03271.libtask +++| 03397 M00S03272.libtask +++|* RESET DEFAULT VALUES FOR NEXT TASK. 03398 M00S03273.libtask +++| 03399 M00S03274.libtask +++| INP18 SX7 CBP RESET BEGINNING PRIORITY 03400 M00S03275.libtask +++| SX6 CMP 03401 M00S03276.libtask +++| LX7 48 03402 M00S03277.libtask +++| SA7 BP BEGINNING TASK PRIORITY 03403 M00S03278.libtask +++| LX6 48 03404 M00S03279.libtask +++| SA6 MP MAXIMUM TASK PRIORITY 03405 M00S03280.libtask +++| SX7 CQL 03406 M00S03281.libtask +++| LX7 48 03407 M00S03282.libtask +++| SA7 QL QUEUE LIMIT 03408 M00S03283.libtask +++| SX6 CC*10B 03409 M00S03284.libtask +++| SA6 C CORE RESIDENCE BIT 03410 M00S03285.libtask +++| SX7 CD*20B 03411 M00S03286.libtask +++| SA7 D REUSABLE CODE BIT 03412 M00S03287.libtask +++| SX7 CS*40B 03413 M00S03288.libtask +++| SA7 S SYSTEM TASK BIT 03414 M00S03289.libtask +++| SX6 CO*02B 03415 M00S03290.libtask +++| SA6 OO TASK ON/OFF BIT 03416 M00S03291.libtask +++| SX7 CE*04B 03417 M00S03292.libtask +++| SX6 CDL*01B DELETE TASK 03418 M00S03293.libtask +++| SA6 DL
| Line S03294 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03419 M01S03294.v23l617 ---| SA7 E ECS RESIDENCE BIT
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03420 M01S00056.v23l617 +++| SA7 E EXTENDED MEMORY RESIDENCE BIT 03421 M00S03295.libtask +++| SX7 B0+ 03422 M00S03296.libtask +++| SA7 SC 03423 M00S03297.libtask +++| SX6 CRE DEFAULT REDUCE FL FLAG 03424 M00S03298.libtask +++| SX7 EFL EXPANDABLE FIELD LENGTH 03425 M00S03299.libtask +++| SA6 R 03426 M00S03300.libtask +++| SA7 EF 03427 M00S03301.libtask +++| SX6 CQ*MLQU QUEUING CONTROL BIT 03428 M00S03302.libtask +++| SA6 Q 03429 M00S03303.libtask +++| BX7 X7-X7 03430 M00S03304.libtask +++| SB7 TDL-TSK1 03431 M00S03305.libtask +++| SA7 TSK1 03432 M00S03306.libtask +++| INP18.1 SA7 A7+B1 ZERO OUT DEFAULT VALUES 03433 M00S03307.libtask +++| SB7 B7-B1 03434 M00S03308.libtask +++| NE B7,INP18.1 IF MORE TO GO 03435 M00S03309.libtask +++| SA7 INPN TRD ADDRESS 03436 M00S03310.libtask +++| SA7 INPT TRANSACTION NAME 03437 M00S03311.libtask +++| SA7 INPQ TRANSACTION DIRECTIVE FLAG 03438 M00S03312.libtask +++| NE B2,INP2 IF BAD DIRECTIVE 03439 M00S03313.libtask +++| EQ INP1 READ NEXT DIRECTIVE 03440 M00S03314.libtask +++| 03441 M00S03315.libtask +++|* WRITE ERROR MESSAGES. 03442 M00S03316.libtask +++| 03443 M00S03317.libtask +++| INP19 WRITEW O,INPJ,1 WRITE ERROR MESSAGE 03444 M00S03318.libtask +++| WRITES O,INPA,INPAL
| Line S03319 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03445 M01S03319.v23l617 ---| WRITEW O,INPH,INPHL ILLEGAL DIRECTIVE
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03446 M01S00057.v23l617 +++| WRITEW O,INPH,INPHL INCORRECT DIRECTIVE 03447 M00S03320.libtask +++| WRITEW O,BLINE,1 03448 M00S03321.libtask +++| SX2 3 03449 M00S03322.libtask +++| RJ ALC ADVANCE LINE COUNT 03450 M00S03323.libtask +++| SA1 INPL 03451 M00S03324.libtask +++| SX7 X1+B1 BUMP ERROR COUNT 03452 M00S03325.libtask +++| SA7 A1
| Line S03326 Modification History | |
|---|---|
M01 (Removed by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03453 M01S03326.libta4 ---| SB2 B1 FLAG BAD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03454 M01S00001.libta4 +++| SB2 B1+ FLAG BAD 03455 M00S03327.libtask +++| SA1 JOBORG
| Line S03328 Modification History | |
|---|---|
M01 (Removed by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03456 M01S03328.libta4 ---| ZR X7,INP18 IF NO ERROR 03457 M00S03329.libtask +++| NZ X1,INP18 IF NOT INTERACTIVE 03458 M00S03330.libtask +++| WRITER O FLUSH BUFFER
| Line S03331 Modification History | |
|---|---|
M01 (Removed by) | libta4 |
Seq # *Modification Id* Act ----------------------------+ 03459 M01S03331.libta4 ---| BX7 X7-X7 03460 M01S03332.libta4 ---| SB2 B0 03461 M01S03333.libta4 ---| SA7 INPL RESET ERROR COUNT 03462 M00S03334.libtask +++| EQ INP18 RESET DEFAULT VALUES 03463 M00S03335.libtask +++| 03464 M00S03336.libtask +++| INP20 SA1 INPI DIRECTIVE COUNT 03465 M00S03337.libtask +++| SA2 INPL 03466 M00S03338.libtask +++| NZ X2,INP21 IF ERRORS PRESENT 03467 M00S03339.libtask +++| ZR X1,INP20.1 IF NO DIRECTIVES 03468 M00S03340.libtask +++| WRITEW O,BLINE,1 03469 M00S03341.libtask +++| SX2 1 03470 M00S03342.libtask +++| RJ ALC ADVANCE LINE COUNT 03471 M00S03343.libtask +++| EQ INPX RETURN 03472 M00S03344.libtask +++| 03473 M00S03345.libtask +++| INP20.1 SA1 JOBORG 03474 M00S03346.libtask +++| ZR X1,INPX IF INTERACTIVE INPUT 03475 M00S03347.libtask +++| 03476 M00S03348.libtask +++|* WRITE *NONE* ON FILE. 03477 M00S03349.libtask +++| 03478 M00S03350.libtask +++| WRITEW O,LRLA,LRLAL 03479 M00S03351.libtask +++| SX2 B1+B1 03480 M00S03352.libtask +++| RJ ALC ADVANCE LINE COUNT 03481 M00S03353.libtask +++| EQ INPX RETURN 03482 M00S03354.libtask +++| 03483 M00S03355.libtask +++| INP21 WRITEW O,INPM,INPML * INPUT DIRECTIVE ERRORS.* 03484 M00S03356.libtask +++| WRITER O 03485 M00S03357.libtask +++| MESSAGE INPB * DIRECTIVE ERRORS.* 03486 M00S03358.libtask +++| ABORT 03487 M00S03359.libtask +++| 03488 M00S03360.libtask +++|* PROCESS TRANSACTION DIRECTIVE. 03489 M00S03361.libtask +++| 03490 M00S03362.libtask +++| INP22 SA1 TDL 03491 M00S03363.libtask +++| SA2 INPN TRANSACTION ENTRY ADDRESS 03492 M00S03364.libtask +++| SA4 INPT TRANSACTION UNIT NAME 03493 M00S03365.libtask +++| SB2 B1 PRESET ERROR 03494 M00S03366.libtask +++| ZR X1,INP24 IF NOT *DL* 03495 M00S03367.libtask +++| SA1 INPR 03496 M00S03368.libtask +++| SX1 X1-1 03497 M00S03369.libtask +++| NZ X1,INP31 IF MORE PARAMETERS 03498 M00S03370.libtask +++| NZ X2,INP23 IF TRANSACTION NAME EXISTS 03499 M00S03371.libtask +++| BX1 X4 03500 M00S03372.libtask +++| RJ SFN SPACE FILL NAME 03501 M00S03373.libtask +++| LX6 42 03502 M00S03374.libtask +++| SA6 INPS+4 STORE IN MESSAGE 03503 M00S03375.libtask +++| SX2 B1 03504 M00S03376.libtask +++| RJ ALC ADVANCE LINE COUNT 03505 M00S03377.libtask +++| WRITEC O,INPS ISSUE WARNING 03506 M00S03378.libtask +++| SB2 B0 SET NO ERROR 03507 M00S03379.libtask +++| EQ INP31 NEXT DIRECTIVE 03508 M00S03380.libtask +++| 03509 M00S03381.libtask +++| INP23 SA1 X2 03510 M00S03382.libtask +++| SX2 B1 03511 M00S03383.libtask +++| LX2 TDDLS LOGICALLY DELETED BIT 03512 M00S03384.libtask +++| BX6 X1+X2 03513 M00S03385.libtask +++| SA6 A1 03514 M00S03386.libtask +++| SA1 LWTRD 03515 M00S03387.libtask +++| SX6 X1-TRDLE1 DECREASE DIRECTORY LENGTH 03516 M00S03388.libtask +++| SA6 A1 03517 M00S03389.libtask +++| ADDWRD TTCN,X4 TRANSACTION CHANGED 03518 M00S03390.libtask +++| SB2 B0 SET NO ERROR 03519 M00S03391.libtask +++| EQ INP31 NEXT DIRECTIVE 03520 M00S03392.libtask +++| 03521 M00S03393.libtask +++| INP24 NZ X2,INP25 IF TRANSACTION NAME EXISTS 03522 M00S03394.libtask +++| SA2 LATRD 03523 M00S03395.libtask +++| SX6 X2+TRDLE1 03524 M00S03396.libtask +++| SA0 X2 NEXT FREE WORD IN TRD 03525 M00S03397.libtask +++| SA6 A2 UPDATE LWA OF TRD 03526 M00S03398.libtask +++| SA1 LWTRD UPDATE LWA OF TRD 03527 M00S03399.libtask +++| SX6 X1+TRDLE1 03528 M00S03400.libtask +++| SA6 LWTRD 03529 M00S03401.libtask +++| SA1 FSTR 03530 M00S03402.libtask +++| SX7 X1-TRDLE1 03531 M00S03403.libtask +++| SA7 A1+ FREE SPACE IN TRD 03532 M00S03404.libtask +++| SX6 6 03533 M00S03405.libtask +++| PL X7,INP26 IF TRD NOT FULL 03534 M00S03406.libtask +++| SA1 LWTRD DECREMENT LWA OF TRD 03535 M00S03407.libtask +++| SX7 X1-TRDLE1 03536 M00S03408.libtask +++| SA7 LWTRD 03537 M00S03409.libtask +++| SA1 LATRD DECREMENT LWA OF TRD BEFORE SORT 03538 M00S03410.libtask +++| SX7 X1-TRDLE1 03539 M00S03411.libtask +++| SA7 LATRD 03540 M00S03412.libtask +++| RJ ERR REPORT TRD FULL CONDITION 03541 M00S03413.libtask +++| WRITER O FLUSH BUFFER 03542 M00S03414.libtask +++| SA3 JOBORG 03543 M00S03415.libtask +++| ZR X3,INPX IF INTERACTIVE INPUT 03544 M00S03416.libtask +++| EQ INP21 ABORT 03545 M00S03417.libtask +++| 03546 M00S03418.libtask +++| INP25 SA2 INPN DIRECTORY ENTRY ADDRESS 03547 M00S03419.libtask +++| SA0 X2+ 03548 M00S03420.libtask +++| INP26 SB2 B1 PRESET ERROR 03549 M00S03421.libtask +++| SA1 TSK1 03550 M00S03422.libtask +++| ZR X1,INP31 IF NO TASKS SPECIFIED 03551 M00S03423.libtask +++| SA2 INPT TRANSACTION UNIT NAME 03552 M00S03424.libtask +++| SA3 DM DATA MANAGER(S) SPECIFIED 03553 M00S03425.libtask +++| BX5 X5-X5 03554 M00S03426.libtask +++| ZR X3,INP28 IF NO DATA MANAGER SPECIFIED 03555 M00S03427.libtask +++| SA4 INPU-1 03556 M00S03428.libtask +++| MX0 42 03557 M00S03429.libtask +++| INP27 SA4 A4+B1 NEXT DATA MANAGER 03558 M00S03430.libtask +++| ZR X4,INP31 IF END OF LIST 03559 M00S03431.libtask +++| BX6 X0*X4 03560 M00S03432.libtask +++| BX6 X6-X3 03561 M00S03433.libtask +++| NZ X6,INP27 IF NO MATCH 03562 M00S03434.libtask +++| SX5 X4 DATA MANAGER FLAGS 03563 M00S03435.libtask +++| INP28 BX6 X2+X5 03564 M00S03436.libtask +++| SA5 RC RECOVERABLE STATUS 03565 M00S03437.libtask +++| BX6 X6+X5 03566 M00S03438.libtask +++| SA6 A0 STORE IN DIRECTORY 03567 M00S03439.libtask +++| SB6 5 NUMBER OF TASKS TO CHECK FOR 03568 M00S03440.libtask +++| SB2 B0 SET NO ERROR 03569 M00S03441.libtask +++| INP29 BX6 X1 03570 M00S03442.libtask +++| SA6 A6+B1 STORE TASK NAMES 03571 M00S03443.libtask +++| SB6 B6-B1 03572 M00S03444.libtask +++| SA1 A1+B1 NEXT TASK NAME 03573 M00S03445.libtask +++| EQ B6,INP31 IF 5 TASK NAMES SPECIFIED 03574 M00S03446.libtask +++| NZ X1,INP29 IF MORE TASKS IN LIST 03575 M00S03447.libtask +++| SB2 B1 PRESET ERROR 03576 M00S03448.libtask +++| BX6 X6-X6 03577 M00S03449.libtask +++| SA1 A1-B1 03578 M00S03450.libtask +++| INP30 SA1 A1+B1 03579 M00S03451.libtask +++| NZ X1,INP31 IF MORE TASKS IN LIST 03580 M00S03452.libtask +++| SA6 A6+B1 ZERO REMAINING WORDS 03581 M00S03453.libtask +++| SB6 B6-B1 03582 M00S03454.libtask +++| NE B6,INP30 IF MORE TO GO 03583 M00S03455.libtask +++| SB2 B0 SET NO ERROR 03584 M00S03456.libtask +++| SA4 INPT 03585 M00S03457.libtask +++| SA2 INPN DIRECTORY ENTRY ADDRESS 03586 M00S03458.libtask +++| NZ X2,INP30.1 IF TRANSACTION NAME ALREADY EXISTS 03587 M00S03459.libtask +++| ADDWRD TTIN,X4 TRANSACTION ADDED 03588 M00S03460.libtask +++| EQ INP31 NEXT DIRECTIVE 03589 M00S03461.libtask +++| 03590 M00S03462.libtask +++| INP30.1 ADDWRD TTCN,X4 TRANSACTION CHANGED 03591 M00S03463.libtask +++| INP31 NE B2,INP19 IF DIRECTIVE ERROR 03592 M00S03464.libtask +++| SX6 B1 03593 M00S03465.libtask +++| SA6 MTRD FLAG TRD MODIFIED 03594 M00S03466.libtask +++| SA6 TRDE FLAG TRD EXISTS 03595 M00S03467.libtask +++| EQ INP18 PROCESS NEXT DIRECTIVE 03596 M00S03468.libtask +++| 03597 M00S03469.libtask +++| INPAL EQU 150 03598 M00S03470.libtask +++| INPA BSS INPAL STRING BUFFER FOR DIRECTIVE INPUT 03599 M00S03471.libtask +++| INPB DATA C* DIRECTIVE ERRORS.* 03600 M00S03472.libtask +++| INPC FILEC INPD,INPAL+1 BUFFER FOR *WTS* 03601 M00S03473.libtask +++| INPCD VFD 60/10LLIB, CONTROL WORD FOR *UPC* 03602 M00S03474.libtask +++| INPD BSSZ INPAL+1 MADE LARGE TO STOP A *CIO* WRITE BY *WTS* 03603 M00S03475.libtask +++|
| Line S03476 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03604 M01S03476.v23l617 ---|* DATA AREA FOR PROCESSING TASK DIRECTORY CONTROL STATEMENTS.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/libtask.001.txt · Last modified: by 127.0.0.1