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.