cdc:nos2.source:opl.opl871:deck:tafrec.002
Deck TAFREC Part 002
13 Modifications
Listing Sections
- Deck TAFREC Start
- Deck TAFREC Part 1 (Line 1366)
- Deck TAFREC Part 2 (Line 3023)
Source
Seq # *Modification Id* Act ----------------------------+ 03023 M00S02652.tafrec +++|* (B5) = FWA OF ERROR MESSAGE. 03024 M00S02653.tafrec +++|* TO *ERR* IF NETWORK FILE NOT FOUND. 03025 M00S02654.tafrec +++|*
| Line S02655 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03026 M01S02655.ns22000 ---|* USES X - 1, 2, 3, 6.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03027 M01S00051.ns22000 +++|* USES X - 1, 2, 3, 5, 6. 03028 M00S02656.tafrec +++|* A - 1, 2, 3, 6. 03029 M00S02657.tafrec +++|* B - 2, 5. 03030 M00S02658.tafrec +++|* 03031 M00S02659.tafrec +++|* CALLS SNM. 03032 M00S02660.tafrec +++|*
| Line S02661 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03033 M01S02661.ns22000 ---|* MACROS ATTACH, ENFAM, MACHID, SETUI.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03034 M01S00052.ns22000 +++|* MACROS ATTACH, SETPFP. 03035 M00S02662.tafrec +++| 03036 M00S02663.tafrec +++| 03037 M00S02664.tafrec +++| ANF SUBR ENTRY/EXIT 03038 M00S02665.tafrec +++| SX2 1R0 03039 M00S02666.tafrec +++| SA1 CUID ID 03040 M00S02667.tafrec +++| IX2 X1+X2 BINARY TO DISPLAY 03041 M00S02668.tafrec +++| LX1 1 OFFSET INTO *TFAM* 03042 M00S02669.tafrec +++| SA1 TFAM+X1 FAMILY NAME 03043 M00S02670.tafrec +++| SA3 A1+B1 USER INDEX 03044 M00S02671.tafrec +++| BX6 X1 03045 M00S02672.tafrec +++| SA6 ANFG SAVE FAMILY NAME
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03046 M01S00053.ns22000 +++| SX5 13B *SETPFP* FLAGS 03047 M01S00054.ns22000 +++| BX6 X5+X6 03048 M01S00055.ns22000 +++| SA6 PFPA *SETPFP* CALL BLOCK 03049 M01S00056.ns22000 +++| BX6 X3 03050 M01S00057.ns22000 +++| SA6 PFPA+2 03051 M00S02673.tafrec +++| SA1 ANFA 03052 M00S02674.tafrec +++| LX2 35-5 03053 M00S02675.tafrec +++| BX6 X1+X2 NETWORK FILE NAME 03054 M00S02676.tafrec +++| SA6 ANFF 03055 M00S02677.tafrec +++| SX2 PTRD 03056 M00S02678.tafrec +++| BX6 X6+X2 03057 M00S02679.tafrec +++| SA6 N+CFPN SET NAME IN FET
| Line S02680 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03058 M01S02680.ns22000 ---| ENFAM ANFG ENTER FAMILY 03059 M01S02681.ns22000 ---| ANF2 SETUI X3 03060 M01S02682.ns22000 ---| ANF3 ATTACH N ATTACH NETWORK FILE
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03061 M01S00058.ns22000 +++| SETPFP PFPA SET PERMANENT FILE PARAMETERS 03062 M01S00059.ns22000 +++| ATTACH N ATTACH NETWORK FILE 03063 M00S02683.tafrec +++| SA1 N 03064 M00S02684.tafrec +++| MX2 8 03065 M00S02685.tafrec +++| LX1 59-17 03066 M00S02686.tafrec +++| BX2 X2*X1 03067 M00S02687.tafrec +++| SA1 ANFF GET NETWORK FILE NAME 03068 M00S02688.tafrec +++| ZR X2,ANFX IF FILE AVAILABLE
| Line S02689 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03069 M01S02689.ns22000 ---| ANF4 SB2 1RX
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03070 M01S00060.ns22000 +++| SB2 1RX 03071 M00S02690.tafrec +++| SB5 ANFE * NETWORK FILE NOT FOUND.* 03072 M00S02691.tafrec +++| RJ SNM SET NAME IN MESSAGE 03073 M00S02692.tafrec +++| EQ ERR PROCESS ERROR 03074 M00S02693.tafrec +++| 03075 M00S02694.tafrec +++| ANFA VFD 42/0LNCTF,18/0 03076 M00S02695.tafrec +++| ANFD CON 0 MACHINE ID 03077 M00S02696.tafrec +++| ANFE DATA C* NETWORK FILE NOT FOUND - XXXXXXX.* 03078 M00S02697.tafrec +++| ANFF BSS 1 NETWORK FILE BEING PROCESSED 03079 M00S02698.tafrec +++| ANFG BSS 1 FAMILY NAME OF CURRENT NETWORK FILE 03080 M00S02699.tafrec +++| RKD SPACE 4,15 03081 M00S02700.tafrec +++|** RKD - RESTART *K-DISPLAY*. 03082 M00S02701.tafrec +++|* 03083 M00S02702.tafrec +++|* RECOVER PARAMETERS ENTERED FROM THE *K-DISPLAY* AT 03084 M00S02703.tafrec +++|* *TAF* INITIALIZATION AND STORE THEM IN THE *K-DISPLAY* 03085 M00S02704.tafrec +++|* BUFFER AND REPORT FILE BUFFER. 03086 M00S02705.tafrec +++|* 03087 M00S02706.tafrec +++|* ENTRY LOW CM POINTERS AVAILABLE. 03088 M00S02707.tafrec +++|* 03089 M00S02708.tafrec +++|* USES X - ALL. 03090 M00S02709.tafrec +++|* A - 1, 6, 7. 03091 M00S02710.tafrec +++|* B - 2. 03092 M00S02711.tafrec +++|* 03093 M00S02712.tafrec +++|* CALLS CDD, COD, SFN. 03094 M00S02713.tafrec +++| 03095 M00S02714.tafrec +++| 03096 M00S02715.tafrec +++| RKD SUBR ENTRY/EXIT 03097 M00S02716.tafrec +++| SA1 VNSCP SUB CONTROL POINTS 03098 M00S02717.tafrec +++| LX1 -24 03099 M00S02718.tafrec +++| RJ CDD CONVERT TO DISPLAY 03100 M00S02719.tafrec +++| MX0 18 03101 M00S02720.tafrec +++| LX4 -18 03102 M00S02721.tafrec +++| SA1 RKDA 03103 M00S02722.tafrec +++| BX6 -X0*X4 03104 M00S02723.tafrec +++| BX6 X1+X6 03105 M00S02724.tafrec +++| SA6 KSCP+B1 03106 M00S02725.tafrec +++| SA6 DIS1+B1 03107 M00S02726.tafrec +++| SA1 VNCMB COMMUNICATION BLOCKS 03108 M00S02727.tafrec +++| LX1 -24 03109 M00S02728.tafrec +++| RJ CDD 03110 M00S02729.tafrec +++| LX4 -18 03111 M00S02730.tafrec +++| BX6 -X0*X4 03112 M00S02731.tafrec +++| SA1 RKDA 03113 M00S02732.tafrec +++| BX6 X1+X6 03114 M00S02733.tafrec +++| SA6 KCMB+B1 03115 M00S02734.tafrec +++| SA6 DIS2+B1 03116 M00S02735.tafrec +++| SA1 VREC USER RECOVERY 03117 M00S02736.tafrec +++| LX1 -24 03118 M00S02737.tafrec +++| SA1 RKDB+X1 03119 M00S02738.tafrec +++| BX6 X1 03120 M00S02739.tafrec +++| SA6 KREC+B1 03121 M00S02740.tafrec +++| SA6 DIS4+B1 03122 M00S02741.tafrec +++| SA1 VMFL MAXIMUM FL 03123 M00S02742.tafrec +++| RJ COD CONVERT TO OCTAL DISPLAY 03124 M00S02743.tafrec +++| MX3 -6 03125 M00S02744.tafrec +++| SB2 60 03126 M00S02745.tafrec +++| SX2 1R 03127 M00S02746.tafrec +++| SX1 1RB ADD -B- TO NUMBER 03128 M00S02747.tafrec +++| RKD1 LX4 6 03129 M00S02748.tafrec +++| SB2 B2-6 03130 M00S02749.tafrec +++| BX5 -X3*X4 03131 M00S02750.tafrec +++| IX5 X5-X2 03132 M00S02751.tafrec +++| NZ X5,RKD1 IF NOT BLANK 03133 M00S02752.tafrec +++| BX4 X3*X4 03134 M00S02753.tafrec +++| BX4 X4+X1 MERGE IN -B- 03135 M00S02754.tafrec +++| LX4 B2 REPOSITION 03136 M00S02755.tafrec +++| LX4 -18 03137 M00S02756.tafrec +++| BX6 -X0*X4 03138 M00S02757.tafrec +++| SA1 RKDA 03139 M00S02758.tafrec +++| BX6 X1+X6 03140 M00S02759.tafrec +++| SA6 KMFL+B1 03141 M00S02760.tafrec +++| SA6 DIS5+B1
| Line S02761 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03142 M01S02761.v23l617 ---| SA1 VECS MAXIMUM ECS
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03143 M01S00035.v23l617 +++| SA1 VECS MAXIMUM EXTENDED MEMORY 03144 M00S02762.tafrec +++| LX1 -9 03145 M00S02763.tafrec +++| RJ COD CONVERT TO OCTAL DISPLAY 03146 M00S02764.tafrec +++| MX3 -6 03147 M00S02765.tafrec +++| SB2 60 03148 M00S02766.tafrec +++| SX2 1R 03149 M00S02767.tafrec +++| SX1 1RK ADD -K- TO NUMBER 03150 M00S02768.tafrec +++| RKD2 LX4 6 03151 M00S02769.tafrec +++| SB2 B2-6 03152 M00S02770.tafrec +++| BX5 -X3*X4 03153 M00S02771.tafrec +++| IX5 X5-X2 03154 M00S02772.tafrec +++| NZ X5,RKD2 IF NOT BLANK 03155 M00S02773.tafrec +++| BX4 X3*X4 03156 M00S02774.tafrec +++| BX4 X4+X1 MERGE IN -K- 03157 M00S02775.tafrec +++| LX4 B2 REPOSITION 03158 M00S02776.tafrec +++| LX4 -18 03159 M00S02777.tafrec +++| SA1 RKDA 03160 M00S02778.tafrec +++| BX6 -X0*X4 03161 M00S02779.tafrec +++| BX6 X1+X6 03162 M00S02780.tafrec +++| SA6 KECS+B1 03163 M00S02781.tafrec +++| SA6 DIS6+B1 03164 M00S02782.tafrec +++| SA1 VTFL TASK LIBRARY FILE 03165 M00S02783.tafrec +++| MX2 -1 03166 M00S02784.tafrec +++| BX1 X2*X1 03167 M00S02785.tafrec +++| RJ SFN SPACE FILL NAME 03168 M00S02786.tafrec +++| LX6 -18 03169 M00S02787.tafrec +++| BX6 -X0*X6 03170 M00S02788.tafrec +++| SA1 RKDA 03171 M00S02789.tafrec +++| BX6 X1+X6 03172 M00S02790.tafrec +++| SA6 KTLF+B1 03173 M00S02791.tafrec +++| SA6 DIS7+B1 03174 M00S02792.tafrec +++| SA1 BLNK UPDATE REPORT FILE HEADER 03175 M00S02793.tafrec +++| SA2 RKDC 03176 M00S02794.tafrec +++| BX6 X1 03177 M00S02795.tafrec +++| BX7 X2 03178 M00S02796.tafrec +++| SA6 SKDE+1 03179 M00S02797.tafrec +++| SA7 A6+1 03180 M00S02798.tafrec +++| EQ RKDX RETURN 03181 M00S02799.tafrec +++| 03182 M00S02800.tafrec +++| RKDA VFD 60/3L = 03183 M00S02801.tafrec +++| RKDB DATA 10H = NO 03184 M00S02802.tafrec +++| DATA 10H = YES 03185 M00S02803.tafrec +++| RKDC DATA 10H RESTART 03186 M00S02804.tafrec +++| SRS SPACE 4,25 03187 M00S02805.tafrec +++|** SRS - SET RECOVERY STATUS. 03188 M00S02806.tafrec +++|*
| Line S02807 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03189 M01S02807.ns2023 ---|* ATTACH OR CREATE THE TRF-S FOR *TAFREC*. *SRS* WILL 03190 M01S02808.ns2023 ---|* ATTEMPT TO ATTACH THE TRF FROM THE FAMILY/USERNAME SPECIFIED 03191 M01S02809.ns2023 ---|* ON THE NETWORK DIRECTIVE. IF NOT FOUND, ATTEMPT TO ATTACH 03192 M01S02810.ns2023 ---|* THE ALTERNATE TRF (TRFAI). IF *TRFA1* FOUND, CHANGE ITS 03193 M01S02811.ns2023 ---|* NAME TO *TRFI*. IF NEITHER *TRFI* OR *TRFAI* ARE FOUND BUT 03194 M01S02812.ns2023 ---|* INITIALIZE STATUS WAS SET VIA THE *K.INT* COMMAND, THEN 03195 M01S02813.ns2023 ---|* DEFINE *TRFI*.
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03196 M01S00158.ns2023 +++|* ATTEMPT TO ATTACH THE *CRF* FROM THE FAMILY/USERNAME 03197 M01S00159.ns2023 +++|* SPECIFIED ON THE NETWORK DIRECTIVE. IF NOT FOUND, ATTEMPT 03198 M01S00160.ns2023 +++|* TO ATTACH THE ALTERNATE *CRF* (CRFAI). IF *CRFAI* FOUND, 03199 M01S00161.ns2023 +++|* CHANGE ITS NAME TO *CRFI*. IF NEITHER *CRFI* OR *CRFAI* ARE 03200 M01S00162.ns2023 +++|* FOUND BUT INITIALIZE STATUS WAS SET VIA THE *K.INT* COMMAND, 03201 M01S00163.ns2023 +++|* THEN DEFINE *CRFI*. 03202 M00S02814.tafrec +++|* 03203 M00S02815.tafrec +++|* ENTRY (CUID) = CURRENT ID. 03204 M00S02816.tafrec +++|*
| Line S02817 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03205 M01S02817.ns2023 ---|* EXIT TRF LOCAL.
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03206 M01S00164.ns2023 +++|* EXIT *CRF* LOCAL. 03207 M00S02818.tafrec +++|* (B5) = FWA OF ERROR MESSAGE.
| Line S02819 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03208 M01S02819.ns2023 ---|* TO *ERR* IF TRF NOT FOUND AND INITIALIZE FLAG NOT SET.
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03209 M01S00165.ns2023 +++|* TO *ERR* IF CRF NOT FOUND AND INITIALIZE FLAG NOT SET. 03210 M00S02820.tafrec +++|* 03211 M00S02821.tafrec +++|* USES X - 1, 2, 5, 6. 03212 M00S02822.tafrec +++|* A - 1, 6. 03213 M00S02823.tafrec +++|* B - 2, 5. 03214 M00S02824.tafrec +++|* 03215 M00S02825.tafrec +++|* CALLS SNM. 03216 M00S02826.tafrec +++|* 03217 M00S02827.tafrec +++|* MACROS ATTACH, CHANGE, DEFINE. 03218 M00S02828.tafrec +++| 03219 M00S02829.tafrec +++| 03220 M00S02830.tafrec +++| SRS SUBR ENTRY/EXIT 03221 M00S02831.tafrec +++| SA1 CUID CURRENT ID 03222 M00S02832.tafrec +++| SX2 1R0 03223 M00S02833.tafrec +++| IX5 X2+X1 BINARY TO DISPLAY 03224 M00S02834.tafrec +++| LX5 29-5 03225 M00S02835.tafrec +++| SA1 RFN 03226 M00S02836.tafrec +++| SX2 B1
| Line S02837 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03227 M01S02837.ns2023 ---| BX6 X1+X5 *TRFI* 03228 M01S02838.ns2023 ---| SA6 TRF+CFPN 03229 M01S02839.ns2023 ---| SA6 TRF+CFNF
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03230 M01S00166.ns2023 +++| BX6 X1+X5 *CRFI* 03231 M01S00167.ns2023 +++| SA6 CRF+CFPN 03232 M01S00168.ns2023 +++| SA6 CRF+CFNF 03233 M00S02840.tafrec +++| BX6 X6+X2 COMPLETE BIT
| Line S02841 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03234 M01S02841.ns2023 ---| SA6 TRF STORE IN FET 03235 M01S02842.ns2023 ---| ATTACH TRF ATTACH TRF 03236 M01S02843.ns2023 ---| SA1 TRF
| Line S00169 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03237 M01S00169.ns2023 +++| SA6 CRF STORE IN FET 03238 M01S00170.ns2023 +++| ATTACH CRF ATTACH *CRF* 03239 M01S00171.ns2023 +++| SA1 CRF 03240 M00S02844.tafrec +++| MX2 8 03241 M00S02845.tafrec +++| LX1 59-17 03242 M00S02846.tafrec +++| BX2 X2*X1 03243 M00S02847.tafrec +++| ZR X2,SRSX IF FILE FOUND 03244 M00S02848.tafrec +++| SA1 RFNA 03245 M00S02849.tafrec +++| LX5 35-41
| Line S02850 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03246 M01S02850.ns2023 ---| BX6 X1+X5 *TRFAI* 03247 M01S02851.ns2023 ---| SA6 TRF+CFPN 03248 M01S02852.ns2023 ---| ATTACH TRF ATTACH ALTERNATE TRF
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03249 M01S00172.ns2023 +++| BX6 X1+X5 *CRFAI* 03250 M01S00173.ns2023 +++| SA6 CRF+CFPN 03251 M01S00174.ns2023 +++| ATTACH CRF ATTACH ALTERNATE *CRF* 03252 M00S02853.tafrec +++| MX2 8
| Line S02854 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03253 M01S02854.ns2023 ---| SA1 TRF
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03254 M01S00175.ns2023 +++| SA1 CRF 03255 M00S02855.tafrec +++| LX1 59-17 03256 M00S02856.tafrec +++| BX2 X2*X1 03257 M00S02857.tafrec +++| NZ X2,SRS1 IF FILE NOT FOUND
| Line S02858 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03258 M01S02858.ns2023 ---| CHANGE TRF CHANGE NAME TO *TRFI*
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03259 M01S00176.ns2023 +++| CHANGE CRF CHANGE NAME TO *CRFI* 03260 M00S02859.tafrec +++| EQ SRSX RETURN 03261 M00S02860.tafrec +++| 03262 M00S02861.tafrec +++|* RECOVERY FILE WAS NOT FOUND. IF INITIALIZE WAS SPECIFIED 03263 M00S02862.tafrec +++|* DEFINE THE RECOVERY FILE. 03264 M00S02863.tafrec +++| 03265 M00S02864.tafrec +++| SRS1 SA1 CUID 03266 M00S02865.tafrec +++| SA1 TREC+X1 03267 M00S02866.tafrec +++| MX6 -3 03268 M00S02867.tafrec +++| BX6 -X6*X1 STATUS 03269 M00S02868.tafrec +++| SX6 X6-IST 03270 M00S02869.tafrec +++| NZ X6,SRS2 IF NOT INITIALIZE
| Line S02870 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03271 M01S02870.ns2023 ---| SA1 TRF+CFNF
| Line S00177 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03272 M01S00177.ns2023 +++| SA1 CRF+CFNF 03273 M00S02871.tafrec +++| BX6 X1 CORRECT FILE NAME
| Line S02872 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03274 M01S02872.ns2023 ---| SA6 TRF+CFPN 03275 M01S02873.ns2023 ---| DEFINE TRF
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03276 M01S00178.ns2023 +++| SA6 CRF+CFPN 03277 M01S00179.ns2023 +++| DEFINE CRF 03278 M00S02874.tafrec +++| EQ SRSX RETURN 03279 M00S02875.tafrec +++| 03280 M00S02876.tafrec +++|* ABORT *TAFREC* WHEN THE RECOVERY FILE NOT FOUND AND 03281 M00S02877.tafrec +++|* INITIALIZATION NOT SPECIFIED. 03282 M00S02878.tafrec +++|
| Line S02879 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03283 M01S02879.ns2023 ---| SRS2 SA1 TRF
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03284 M01S00180.ns2023 +++| SRS2 SA1 CRF 03285 M00S02880.tafrec +++| MX2 42 03286 M00S02881.tafrec +++| BX1 X2*X1 03287 M00S02882.tafrec +++| SB2 1RX
| Line S02883 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03288 M01S02883.ns2023 ---| SB5 SRSA * TAF RECOVERY FILE NOT FOUND.*
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03289 M01S00181.ns2023 +++| SB5 SRSA * COMMUNICATIONS RECOVERY FILE NOT FOUND.* 03290 M00S02884.tafrec +++| RJ SNM SET NAME IN MESSAGE 03291 M00S02885.tafrec +++| EQ ERR PROCESS ERROR 03292 M00S02886.tafrec +++| 03293 M00S02887.tafrec +++| SRSA DATA C* TAF COMM. RECOVERY FILE NOT FOUND - XXXXXXX.* 03294 M00S02888.tafrec +++| PKC SPACE 4,20 03295 M00S02889.tafrec +++| SKD SPACE 4,25 03296 M00S02890.tafrec +++|** SKD - SET *K-DISPLAY*. 03297 M00S02891.tafrec +++|* 03298 M00S02892.tafrec +++|* FORMAT AND DIPLAY THE INITIAL *K-DISPLAY* AND ACCEPT 03299 M00S02893.tafrec +++|* OPERATOR ENTERED CHANGES AND/OR COMMANDS AND *K.COMMANDS* 03300 M00S02894.tafrec +++|* FROM THE *TCF* FILE. 03301 M00S02895.tafrec +++|* 03302 M00S02896.tafrec +++|* COMMANDS ARE OF THE FORM - 03303 M00S02897.tafrec +++|* K.CMD = PARAMETERS. 03304 M00S02898.tafrec +++|* 03305 M00S02899.tafrec +++|* WHERE CMD = A THREE CHARACTER COMMAND. 03306 M00S02900.tafrec +++|* PARAMETERS = 1-15 CHARACTERS ( A-Z 0-9 , ) 03307 M00S02901.tafrec +++|* TERMINATED BY A PERIOD. 03308 M00S02902.tafrec +++|* 03309 M00S02903.tafrec +++|* IF A VALID COMMAND IS ENTERED, *SKD* JUMPS TO THE 03310 M00S02904.tafrec +++|* COMMAND PROCESSOR. 03311 M00S02905.tafrec +++|*
| Line S02906 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03312 M01S02906.241l630 ---|* ENTRY (A1) = FWA OF STATEMENT BUFFER
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03313 M01S00009.241l630 +++|* ENTRY (A1) = FWA OF STATEMENT BUFFER, IF (KCOF) .NE. 0. 03314 M00S02907.tafrec +++|* 03315 M00S02908.tafrec +++|* EXIT TO *PTF17* IF CONSOLE COMMAND. 03316 M00S02909.tafrec +++|* TO *PTF5* IF UNPACK ERRORS ON TCF FILE DATA. 03317 M00S02910.tafrec +++|* 03318 M00S02911.tafrec +++|* USES X - ALL. 03319 M00S02912.tafrec +++|* A - 0, 1, 2, 3, 5, 6, 7. 03320 M00S02913.tafrec +++|* B - 2, 3, 4, 5, 6, 7. 03321 M00S02914.tafrec +++|*
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03322 M01S00010.241l630 +++|* CALLS UPC, ZTB. 03323 M01S00011.241l630 +++|* 03324 M00S02915.tafrec +++|* MACROS CONSOLE, RECALL, WRITEW. 03325 M00S02916.tafrec +++| 03326 M00S02917.tafrec +++| 03327 M00S02918.tafrec +++| SKD SUBR ENTRY/EXIT 03328 M00S02919.tafrec +++| SA2 KCOF CHECK COMMAND ORIGIN 03329 M00S02920.tafrec +++| NZ X2,SKD4 IF NOT CONSOLE MODE 03330 M00S02921.tafrec +++| SX6 SKDE 03331 M00S02922.tafrec +++| SX7 SKDEL 03332 M00S02923.tafrec +++| SA6 SBHD SUB HEADING ADDRESS 03333 M00S02924.tafrec +++| SA7 A6+B1 LENGTH 03334 M00S02925.tafrec +++| SX6 B1+B1 SUBHEADING LINE COUNT 03335 M00S02926.tafrec +++| SA6 A7+B1 03336 M00S02927.tafrec +++| SX6 LINP 03337 M00S02928.tafrec +++| SA6 LCNT FORCE NEW PAGE 03338 M00S02929.tafrec +++| SB7 5 ASSUME DECIMAL BASE FOR DXB,ALSO CNSTNT 5 03339 M00S02930.tafrec +++| CONSOLE KCTRL SET *K-DISPLAY* REQUEST 03340 M00S02931.tafrec +++| SKD1 SA1 KCOF COMMAND ORIGIN 03341 M00S02932.tafrec +++| SX2 B0+ 03342 M00S02933.tafrec +++| NZ X1,PTF17 IF NOT CONSOLE COMMAND 03343 M00S02934.tafrec +++| SX6 B0+ 03344 M00S02935.tafrec +++| SA6 KBUF SET INPUT PROCESSED INDICATOR 03345 M00S02936.tafrec +++| SA6 KILL TURN OFF ERROR MESSAGE 03346 M00S02937.tafrec +++| SA6 KILL1
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03347 M02S00012.241l630 ---| SA6 KILL3 03348 M02S00013.241l630 ---| SA6 KILL4 03349 M00S02938.tafrec +++| SA6 SKDD 03350 M00S02939.tafrec +++| SKD2 SA1 KBUF 03351 M00S02940.tafrec +++| NZ X1,SKD3 IF INPUT TO PROCESS 03352 M00S02941.tafrec +++| RECALL 03353 M00S02942.tafrec +++| EQ SKD2 LOOP 03354 M00S02943.tafrec +++| 03355 M00S02944.tafrec +++|* PROCESS CONSOLE INPUT. 03356 M00S02945.tafrec +++|
| Line S02946 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03357 M01S02946.241l630 ---| SKD3 SA5 KBUF UNPACK STATEMENT
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03358 M01S00012.241l630 +++| SKD3 SB2 B0+ 03359 M01S00013.241l630 +++| SB3 5 03360 M01S00014.241l630 +++| SKD3.1 SA1 KBUF+B2 03361 M01S00015.241l630 +++| RJ ZTB CONVERT TRAILING ZEROES TO BLANKS 03362 M01S00016.241l630 +++| SB2 B2+B1 03363 M01S00017.241l630 +++| SA6 A1 ALLOW MISSING TERMINATOR TO BE LEGAL 03364 M01S00018.241l630 +++| SA6 KBUF1+B2 ECHO DSD INPUT TO K-DISPLAY 03365 M01S00019.241l630 +++| LT B2,B3,SKD3.1 IF NOT END OF INPUT BUFFER 03366 M01S00020.241l630 +++| SA5 KBUF UNPACK STATEMENT 03367 M00S02947.tafrec +++| SB7 PTFC 03368 M00S02948.tafrec +++| RJ UPC UNPACK 03369 M00S02949.tafrec +++| SA1 PTFC-1 03370 M00S02950.tafrec +++| ZR X6,SKD8 IF NO UNPACK ERRORS 03371 M00S02951.tafrec +++| EQ SKD14 UNPACK ERRORS 03372 M00S02952.tafrec +++| 03373 M00S02953.tafrec +++|* PROCESS *TCF* *K.COMMANDS* 03374 M00S02954.tafrec +++| 03375 M00S02955.tafrec +++| SKD4 MX4 6 03376 M00S02956.tafrec +++| SB3 B0 03377 M00S02957.tafrec +++| SX2 1R. SET *.* AS SEARCH CHARACTER 03378 M00S02958.tafrec +++| LX2 59-5
| Line S02959 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03379 M01S02959.v23l617 ---| SA0 PTFF *INVALID TCF ENTRIES.*
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03380 M01S00036.v23l617 +++| SA0 PTFF *INCORRECT TCF ENTRIES.* 03381 M00S02960.tafrec +++| SKD5 SA1 A1+B3 FETCH BUFFER BLOCK 03382 M00S02961.tafrec +++| SB3 B3+B1 INCREMENT WORD COUNT 03383 M00S02962.tafrec +++| SB4 B3-16 03384 M00S02963.tafrec +++| ZR B4,PTF5 IF NO PERIOD IN STATEMENT 03385 M00S02964.tafrec +++| SB5 B0+ CLEAR SHIFT COUNT 03386 M00S02965.tafrec +++| SKD6 BX3 X4*X1 CHECK FOR *.* 03387 M00S02966.tafrec +++| IX3 X3-X2 03388 M00S02967.tafrec +++| ZR X3,SKD7 IF FOUND 03389 M00S02968.tafrec +++| SB5 B5+6 SHIFT COUNT 03390 M00S02969.tafrec +++| SB4 B5-60 03391 M00S02970.tafrec +++| ZR B4,SKD5 IF NOT FOUND 03392 M00S02971.tafrec +++| LX1 6 03393 M00S02972.tafrec +++| EQ SKD6 CHECK NEXT CHARACTER 03394 M00S02973.tafrec +++| 03395 M00S02974.tafrec +++| SKD7 MX0 -54 MASK OUT THE *.* 03396 M00S02975.tafrec +++| BX1 -X0*X1 03397 M00S02976.tafrec +++| SX2 1R, *,* TO INSERT FOR UPC CALL 03398 M00S02977.tafrec +++| LX2 59-5 03399 M00S02978.tafrec +++| BX1 X1+X2 03400 M00S02979.tafrec +++| SB3 60 03401 M00S02980.tafrec +++| SB5 B3-B5 03402 M00S02981.tafrec +++| LX6 X1,B5 SHIFT BACK TO ORIGINAL POSITION 03403 M00S02982.tafrec +++| SA6 A1+ RESTORE WORD IN BUFFER 03404 M00S02983.tafrec +++| SA5 PTFB FIRST WORD TO UNPACK 03405 M00S02984.tafrec +++| SB7 PTFC FWA TO UNPACK INTO 03406 M00S02985.tafrec +++| RJ UPC UNPACK 03407 M00S02986.tafrec +++| SA1 PTFC 03408 M00S02987.tafrec +++| ZR X6,SKD8 IF NO UNPACK ERRORS
| Line S02988 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03409 M01S02988.v23l617 ---| SA0 PTFF *INVALID TCF ENTRIES*
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03410 M01S00037.v23l617 +++| SA0 PTFF *INCORRECT TCF ENTRIES* 03411 M00S02989.tafrec +++| EQ PTF5 REPORT ERROR 03412 M00S02990.tafrec +++|
| Line S02991 Modification History | |
|---|---|
M01 (Removed by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 03413 M01S02991.ns2157 ---| SKD8 MX0 42 MASK FOR PARAMETERS 03414 M01S02992.ns2157 ---| SA1 A1+1
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 03415 M01S00014.ns2157 +++| SKD8 SA1 A1+B1
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03416 M02S00015.241l630 ---| SA2 SKDF CHECK FOR PAGING 03417 M02S00016.241l630 ---| BX2 X1-X2 03418 M02S00017.241l630 ---| MX0 -18 MASK FOR PARAMETERS 03419 M02S00018.241l630 ---| BX2 -X0*X2 03420 M02S00019.241l630 ---| ZR X2,PAG IF NEXT PAGE REQUESTED
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03421 M01S00021.241l630 +++| MX0 42 03422 M00S02993.tafrec +++| BX1 X0*X1 MASK OUT THE SEPERATOR 03423 M00S02994.tafrec +++| SA2 SKDC-1 VALID COMMAND TABLE 03424 M00S02995.tafrec +++| SKD9 SA2 A2+B1 GET NEXT *K.COMMAND* 03425 M00S02996.tafrec +++| ZR X2,SKD14 IF END OF TABLE 03426 M00S02997.tafrec +++| BX3 X0*X2 03427 M00S02998.tafrec +++| IX4 X1-X3 03428 M00S02999.tafrec +++| NZ X4,SKD9 IF NO MATCH 03429 M00S03000.tafrec +++| SA3 A1+B1 GET SECOND PARAMETER 03430 M00S03001.tafrec +++| BX3 X0*X3 03431 M00S03002.tafrec +++| BX7 X3 03432 M00S03003.tafrec +++| ZR X3,SKD13 IF SECOND PARAMETER ZERO 03433 M00S03004.tafrec +++| SA1 A3+B1 GET THIRD PARAMETER 03434 M00S03005.tafrec +++| BX1 X0*X1 03435 M00S03006.tafrec +++| BX6 X1 03436 M00S03007.tafrec +++| MX0 6 03437 M00S03008.tafrec +++| ZR X6,SKD13 IF NEXT PARAMETER ZERO 03438 M00S03009.tafrec +++| SB2 B0 03439 M00S03010.tafrec +++| BX4 X7 03440 M00S03011.tafrec +++| SKD10 SB2 B2+6 COUNT CHARACTERS IN SECOND PARAMETER 03441 M00S03012.tafrec +++| ZR X4,SKD11 IF NEXT CHARACTER IS ZERO 03442 M00S03013.tafrec +++| LX7 6 03443 M00S03014.tafrec +++| BX4 X0*X7 03444 M00S03015.tafrec +++| EQ SKD10 CHECK NEXT CHARACTER 03445 M00S03016.tafrec +++| 03446 M00S03017.tafrec +++| SKD11 AX6 B2,X6 03447 M00S03018.tafrec +++| MX4 1 REMOVE SIGN EXTENSION 03448 M00S03019.tafrec +++| SB3 B2-1 03449 M00S03020.tafrec +++| AX4 X4,B3 VARIABLE MASK 03450 M00S03021.tafrec +++| PL X6,SKD12 IF SIGN EXTEND IS ZEROS 03451 M00S03022.tafrec +++| BX6 -X4*X6 03452 M00S03023.tafrec +++| SKD12 BX7 X6+X3 03453 M00S03024.tafrec +++| SB3 60 03454 M00S03025.tafrec +++| SB3 B3-B2 03455 M00S03026.tafrec +++| LX6 X1,B3 03456 M00S03027.tafrec +++| BX6 X4*X6 03457 M00S03028.tafrec +++| SX1 1R, ADD A *,* FOR RECEIVING ROUTINES 03458 M00S03029.tafrec +++| LX1 53-5 03459 M00S03030.tafrec +++| SB2 B2-12 03460 M00S03031.tafrec +++| AX1 X1,B2 03461 M00S03032.tafrec +++| IX7 X7+X1 03462 M00S03033.tafrec +++| SKD13 SB3 X2 03463 M00S03034.tafrec +++| JP B3 PROCESS THE *K.COMMAND* 03464 M00S03035.tafrec +++|
| Line S03036 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03465 M01S03036.v23l617 ---|* SET ILLEGAL INPUT MESSAGE ON SCREEN.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03466 M01S00038.v23l617 +++|* SET INCORRECT INPUT MESSAGE ON SCREEN. 03467 M00S03037.tafrec +++| 03468 M00S03038.tafrec +++| SKD14 SA2 KCOF 03469 M00S03039.tafrec +++| SA0 KCNV * K.COMMAND NOT VALID.* 03470 M00S03040.tafrec +++| NZ X2,PTF17 IF NOT CONSOLE COMMAND 03471 M00S03041.tafrec +++| SA1 KILL2 FIRST LINE OF ERROR MESSAGE 03472 M00S03042.tafrec +++| MX7 0 03473 M00S03043.tafrec +++| BX6 X1 03474 M00S03044.tafrec +++| SA6 KILL SET INTO ERROR LINE POSITION
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03475 M02S00020.241l630 ---| SA6 KILL3 03476 M00S03045.tafrec +++| SA7 KBUF 03477 M00S03046.tafrec +++| SA7 SKDD 03478 M00S03047.tafrec +++| EQ SKD2 WAIT FOR NEXT INPUT 03479 M00S03048.tafrec +++| 03480 M00S03049.tafrec +++|* IF END OF *K-DISPLAY* WRITE IT TO REPORT FILE. 03481 M00S03050.tafrec +++| 03482 M00S03051.tafrec +++| SKD15 SA1 KCOF 03483 M00S03052.tafrec +++| ZR X1,SKD16 IF CONSOLE ORIGIN 03484 M00S03053.tafrec +++| SX2 B0+ CLEAR ERROR FLAG 03485 M00S03054.tafrec +++| EQ SKDX RETURN 03486 M00S03055.tafrec +++| 03487 M00S03056.tafrec +++| SKD16 CONSOLE SKDB TURN OFF *K-DISPLAY* 03488 M00S03057.tafrec +++| SB2 30 03489 M00S03058.tafrec +++| RJ ALC ADVANCE LINE COUNT 03490 M00S03059.tafrec +++| WRITEW R,DISP,DISPL WRITE *K-DISPLAY* TO REPORT FILE 03491 M00S03060.tafrec +++| EQ SKDX RETURN 03492 M00S03061.tafrec +++| 03493 M00S03062.tafrec +++| 03494 M00S03063.tafrec +++| SKDA VFD 6/1R0,54/0 UPPER DISPLAY CODE LIMIT FOR COMMAND CHARS 03495 M00S03064.tafrec +++| 03496 M00S03065.tafrec +++| SKDB CON 0 ZERO WORD TO TURN OFF *K-DISPLAY* 03497 M00S03066.tafrec +++| 03498 M00S03067.tafrec +++|* TABLE OF VALID *K-DISPLAY* COMMANDS. 03499 M00S03068.tafrec +++| 03500 M00S03069.tafrec +++| SKDC VFD 42/0LSCP,18/SCP 03501 M00S03070.tafrec +++| VFD 42/0LCMB,18/CMB 03502 M00S03071.tafrec +++| VFD 42/0LREC,18/REC 03503 M00S03072.tafrec +++| VFD 42/0LMFL,18/MFL 03504 M00S03073.tafrec +++| VFD 42/0LECS,18/ECS 03505 M00S03074.tafrec +++| VFD 42/0LTLF,18/TLF 03506 M00S03075.tafrec +++| VFD 42/0LINT,18/INT 03507 M00S03076.tafrec +++| VFD 42/0LERO,18/ERO 03508 M00S03077.tafrec +++| VFD 42/0LBFL,18/BFL 03509 M00S03078.tafrec +++| VFD 42/0LEFL,18/EFL
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 03510 M01S00021.ns2157 +++| VFD 42/0LTFL,18/TFL 03511 M00S03079.tafrec +++| VFD 42/0LSTOP,18/STP 03512 M00S03080.tafrec +++| VFD 42/0LEND,18/SKD15 03513 M00S03081.tafrec +++| VFD 42/0LGO,18/SKD15 03514 M00S03082.tafrec +++| CON 0 TABLE TERMINATOR 03515 M00S03083.tafrec +++| 03516 M00S03084.tafrec +++| SKDD BSSZ 1 FIRST 10 CHARACTERS OF PARAMETER 03517 M00S03085.tafrec +++| 03518 M00S03086.tafrec +++| SKDE DATA 10H 03519 M00S03087.tafrec +++| DATA C* INITIALIZATION K-DISPLAY* 03520 M00S03088.tafrec +++| DATA 1L 03521 M00S03089.tafrec +++| SKDEL EQU *-SKDE
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03522 M02S00022.241l630 ---| SKDF VFD 60/1R+ PAGING COMMAND 03523 M00S03090.tafrec +++| SPACE 4,10 03524 M00S03091.tafrec +++|** INITIALIZATION *K-DISPLAY* COMMANDS. 03525 M00S03092.tafrec +++|* 03526 M00S03093.tafrec +++|* THE FOLLOWING COMMANDS CAN BE USED TO CHANGE PARAMETERS 03527 M00S03094.tafrec +++|* USED BY *TAF* AND THE DATA MANAGER FOR INITIALIZATION, AND 03528 M00S03095.tafrec +++|* TO INITIALIZE VARIOUS FILES USED BY *TAF*. 03529 M00S03096.tafrec +++| SCP SPACE 4,20 03530 M00S03097.tafrec +++|** K.SCP=N. 03531 M00S03098.tafrec +++|* 03532 M00S03099.tafrec +++|* CHANGE THE NUMBER OF SUBCONTROL POINTS. 03533 M00S03100.tafrec +++|* 03534 M00S03101.tafrec +++|* ENTRY (X7) = NUMBER OF SUBCONTROL POINTS IN DISPLAY CODE. 03535 M00S03102.tafrec +++|* 03536 M00S03103.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03537 M00S03104.tafrec +++|* TO *SKD14* IF ERROR IN PARAMETER. 03538 M00S03105.tafrec +++|* 03539 M00S03106.tafrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 03540 M00S03107.tafrec +++|* A - 2, 6, 7. 03541 M00S03108.tafrec +++|* B - 2. 03542 M00S03109.tafrec +++|* 03543 M00S03110.tafrec +++|* CALLS CDD, DXB, UKD. 03544 M00S03111.tafrec +++| 03545 M00S03112.tafrec +++| 03546 M00S03113.tafrec +++| SCP BSS 0 ENTRY 03547 M00S03114.tafrec +++| BX5 X7 03548 M00S03115.tafrec +++| RJ DXB CONVERT EQUIVALENCED FIELD TO NUMBER 03549 M00S03116.tafrec +++| NZ X5,SKD14 IF ERROR IN NUMBER 03550 M00S03117.tafrec +++| SX2 X6-MINSCP
| Line S03118 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03551 M01S03118.v23l617 ---| NG X2,SKD14 IF ILLEGAL SUBCP COUNT
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03552 M01S00039.v23l617 +++| NG X2,SKD14 IF INCORRECT SUBCP COUNT 03553 M00S03119.tafrec +++| SB2 X6-MAXSCP
| Line S03120 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03554 M01S03120.v23l617 ---| GT B2,SKD14 IF ILLEGAL SUBCP
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03555 M01S00040.v23l617 +++| GT B2,SKD14 IF INCORRECT SUBCP 03556 M00S03121.tafrec +++| BX1 X6 03557 M00S03122.tafrec +++| LX6 24 03558 M00S03123.tafrec +++| SA6 VNSCP RESET SUBCP COUNT FOR INITIALIZATION 03559 M00S03124.tafrec +++| RJ CDD CONVERT DECIMAL TO DISPLAY CODE 03560 M00S03125.tafrec +++| SA2 KSCP+1 *SCP* WORD IN DISPLAY 03561 M00S03126.tafrec +++| SB5 DIS1+1 UPDATE REPORT 03562 M00S03127.tafrec +++| SB6 B1 03563 M00S03128.tafrec +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 03564 M00S03129.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 03565 M00S03130.tafrec +++| CMB SPACE 4,20 03566 M00S03131.tafrec +++|** K.CMB=N. 03567 M00S03132.tafrec +++|* 03568 M00S03133.tafrec +++|* CHANGE THE NUMBER OF COMMUNICATION BLOCKS. 03569 M00S03134.tafrec +++|* 03570 M00S03135.tafrec +++|* ENTRY (X7) = NUMBER OF COMMUNICATION BLOCKS IN DISPLAY 03571 M00S03136.tafrec +++|* CODE. 03572 M00S03137.tafrec +++|* 03573 M00S03138.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03574 M00S03139.tafrec +++|* TO *SKD14* IF ERROR IN PARAMETER. 03575 M00S03140.tafrec +++|* 03576 M00S03141.tafrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 03577 M00S03142.tafrec +++|* A - 2, 6, 7. 03578 M00S03143.tafrec +++|* B - 2. 03579 M00S03144.tafrec +++|* 03580 M00S03145.tafrec +++|* CALLS CDD, DXB, UKD. 03581 M00S03146.tafrec +++| 03582 M00S03147.tafrec +++| 03583 M00S03148.tafrec +++| CMB BSS 0 ENTRY 03584 M00S03149.tafrec +++| BX5 X7 03585 M00S03150.tafrec +++| RJ DXB CONVERT DISPLAY CODE TO BINARY 03586 M00S03151.tafrec +++| NZ X4,SKD14 IF ERROR IN NUMBER 03587 M00S03152.tafrec +++| SX2 X6-MINCMB
| Line S03153 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03588 M01S03153.v23l617 ---| NG X2,SKD14 IF ILLEGAL C.B. COUNT
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03589 M01S00041.v23l617 +++| NG X2,SKD14 IF INCORRECT C.B. COUNT 03590 M00S03154.tafrec +++| SB2 X6-MAXCMB
| Line S03155 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03591 M01S03155.v23l617 ---| GT B2,SKD14 IF ILLEGAL C.B. COUNT
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03592 M01S00042.v23l617 +++| GT B2,SKD14 IF INCORRECT C.B. COUNT 03593 M00S03156.tafrec +++| BX1 X6 03594 M00S03157.tafrec +++| LX6 24 03595 M00S03158.tafrec +++| SA6 VNCMB RESET C.B. COUNT 03596 M00S03159.tafrec +++| RJ CDD LEFT JUSTIFY NUMBER 03597 M00S03160.tafrec +++| SA2 KCMB+1 *CMB* WORD IN DISPLAY 03598 M00S03161.tafrec +++| SB5 DIS2+1 UPDATE REPORT 03599 M00S03162.tafrec +++| SB6 B1 03600 M00S03163.tafrec +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 03601 M00S03164.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 03602 M00S03165.tafrec +++| REC SPACE 4,15 03603 M00S03166.tafrec +++|** K.REC=AA. 03604 M00S03167.tafrec +++|* 03605 M00S03168.tafrec +++|* SET USER RECOVERY, *CRM* RECOVERY, OR BOTH. 03606 M00S03169.tafrec +++|* 03607 M00S03170.tafrec +++|* ENTRY (X7) = USER RECOVERY OPTION. 03608 M00S03171.tafrec +++|* 03609 M00S03172.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03610 M00S03173.tafrec +++|* TO *SKD14* IR ERROR IN PARAMETER. 03611 M00S03174.tafrec +++|*
| Line S03175 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03612 M01S03175.241l630 ---|* USES X - 1, 2, 3, 4, 5, 6, 7. 03613 M01S03176.241l630 ---|* A - 1, 2, 5, 6, 7.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03614 M01S00022.241l630 +++|* USES X - 1, 2, 3, 7. 03615 M01S00023.241l630 +++|* A - 1, 2, 6, 7. 03616 M00S03177.tafrec +++|* 03617 M00S03178.tafrec +++|* CALLS SFN. 03618 M00S03179.tafrec +++| 03619 M00S03180.tafrec +++| 03620 M00S03181.tafrec +++| REC BSS 0 ENTRY 03621 M00S03182.tafrec +++| BX1 X7 03622 M00S03183.tafrec +++| RJ SFN SPACE FILL ANSWER 03623 M00S03184.tafrec +++| SA1 RECA *YES* 03624 M00S03185.tafrec +++| SA2 A1+B1 *NO* 03625 M00S03186.tafrec +++| BX3 X1-X6
| Line S03187 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03626 M01S03187.241l630 ---| SA1 RECD *CRM* 03627 M01S03188.241l630 ---| MX4 -42 03628 M01S03189.241l630 ---| LX6 -18 03629 M01S03190.241l630 ---| SA5 RECC 03630 M01S03191.241l630 ---| BX6 -X4*X6 MASK OFF 3 CHARACTERS 03631 M01S03192.241l630 ---| BX6 X6+X5 ADD = FOR DISPLAY PURPOSES
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03632 M01S00024.241l630 +++| SA1 RECB *CRM* 03633 M00S03193.tafrec +++| SX7 1 SET USER RECOVERY FLAG 03634 M00S03194.tafrec +++| ZR X3,REC1 IF *YES* 03635 M00S03195.tafrec +++| BX3 X2-X6 03636 M00S03196.tafrec +++| SX7 B0 TURN OFF USER RECOVERY FLAG 03637 M00S03197.tafrec +++| ZR X3,REC2 IF *NO* 03638 M00S03198.tafrec +++| BX3 X1-X6
| Line S03199 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03639 M01S03199.v23l617 ---| NZ X3,SKD14 IF ILLEGAL INPUT
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03640 M01S00043.v23l617 +++| NZ X3,SKD14 IF INCORRECT INPUT 03641 M00S03200.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 03642 M00S03201.tafrec +++| 03643 M00S03202.tafrec +++| REC1 SA1 VREC 03644 M00S03203.tafrec +++| BX7 X7+X1 03645 M00S03204.tafrec +++| REC2 SA6 KREC+1 03646 M00S03205.tafrec +++| SA7 VREC SET USER RECOVERY FLAG 03647 M00S03206.tafrec +++| SA6 DIS4+1 UPDATE REPORT 03648 M00S03207.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 03649 M00S03208.tafrec +++| 03650 M00S03209.tafrec +++| RECA DATA 10HYES
| Line S03210 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03651 M01S03210.241l630 ---| RECB DATA 10H = NO 03652 M01S03211.241l630 ---| RECC VFD 60/3L = 03653 M01S03212.241l630 ---| RECD DATA 10H = CRM
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03654 M01S00025.241l630 +++| DATA 10HNO 03655 M01S00026.241l630 +++| RECB DATA 10HCRM 03656 M00S03213.tafrec +++| MFL SPACE 4,20 03657 M00S03214.tafrec +++|** K.MFL=NNNNNN. 03658 M00S03215.tafrec +++|* 03659 M00S03216.tafrec +++|* CHANGE THE MAXIMUM FIELD LENGTH THAT *TAF* IS TO USE. THIS 03660 M00S03217.tafrec +++|* PARAMETER IS ALSO DYNAMICALLY CHANGEABLE WHILE *TAF* IS 03661 M00S03218.tafrec +++|* RUNNING. 03662 M00S03219.tafrec +++|* 03663 M00S03220.tafrec +++|* ENTRY (X7) = FIELD LENGTH IN DISPLAY CODE. 03664 M00S03221.tafrec +++|* 03665 M00S03222.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03666 M00S03223.tafrec +++|* TO *SKD14* IF ERROR IN PARAMETER. 03667 M00S03224.tafrec +++|* 03668 M00S03225.tafrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 03669 M00S03226.tafrec +++|* A - 2, 6, 7. 03670 M00S03227.tafrec +++|* B - 2, 3, 4, 7. 03671 M00S03228.tafrec +++|* 03672 M00S03229.tafrec +++|* CALLS COD, DXB, UKD. 03673 M00S03230.tafrec +++| 03674 M00S03231.tafrec +++| 03675 M00S03232.tafrec +++| MFL BSS 0 ENTRY 03676 M00S03233.tafrec +++| BX5 X7 03677 M00S03234.tafrec +++| SB7 B0 ASSUME OCTAL CONVERSION 03678 M00S03235.tafrec +++| RJ DXB CONVERT DISPLAY CODE TO BINARY 03679 M00S03236.tafrec +++| SB7 5 03680 M00S03237.tafrec +++| NZ X4,SKD14 IF ERROR IN NUMBER 03681 M00S03238.tafrec +++| SX3 MAXMFL+1 MAXIMUM FIELD LENGTH ALLOWED 03682 M00S03239.tafrec +++| NO 03683 M00S03240.tafrec +++| IX4 X6-X3
| Line S03241 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03684 M01S03241.v23l617 ---| PL X4,SKD14 IF ILLEGAL FILED LENGTH COUNT
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03685 M01S00044.v23l617 +++| PL X4,SKD14 IF INCORRECT FILED LENGTH COUNT 03686 M00S03242.tafrec +++| SX2 X6-MINMFL
| Line S03243 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03687 M01S03243.v23l617 ---| NG X2,SKD14 IF ILLEGAL FIELD LENGTH COUNT
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03688 M01S00045.v23l617 +++| NG X2,SKD14 IF INCORRECT FIELD LENGTH COUNT 03689 M00S03244.tafrec +++| SA6 VMFL RESET FIELD LENGTH VALUE 03690 M00S03245.tafrec +++| BX1 X6 03691 M00S03246.tafrec +++| RJ COD LEFT JUSTIFY NUMBER 03692 M00S03247.tafrec +++| SA2 KMFL+1 *MFL* WORD IN DISPLAY 03693 M00S03248.tafrec +++| SX3 1RB ADD *B* 03694 M00S03249.tafrec +++| SB5 DIS5+1 UPDATE REPORT 03695 M00S03250.tafrec +++| SB6 B0 03696 M00S03251.tafrec +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 03697 M00S03252.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 03698 M00S03253.tafrec +++| ECS SPACE 4,15 03699 M00S03254.tafrec +++|** K.ECS=NNNNN. 03700 M00S03255.tafrec +++|*
| Line S03256 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03701 M01S03256.v23l617 ---|* CHANGE THE ECS MEMORY LENGTH REQUIRED FOR *TAF*.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03702 M01S00046.v23l617 +++|* CHANGE THE EXTENDED MEMORY LENGTH REQUIRED FOR *TAF*. 03703 M00S03257.tafrec +++|*
| Line S03258 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03704 M01S03258.v23l617 ---|* ENTRY (X7) = ECS FIELD LENGTH IN DISPLAY CODE.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03705 M01S00047.v23l617 +++|* ENTRY (X7) = EXTENDED MEMORY FIELD LENGTH IN DISPLAY CODE. 03706 M00S03259.tafrec +++|* 03707 M00S03260.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03708 M00S03261.tafrec +++|* TO *SKD14* IF ERROR IN PARAMETER. 03709 M00S03262.tafrec +++|* 03710 M00S03263.tafrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 03711 M00S03264.tafrec +++|* A - 2, 6, 7. 03712 M00S03265.tafrec +++|* B - 2, 3, 4, 7. 03713 M00S03266.tafrec +++|* 03714 M00S03267.tafrec +++|* CALLS COD, DXB, UKD. 03715 M00S03268.tafrec +++| 03716 M00S03269.tafrec +++| 03717 M00S03270.tafrec +++| ECS BSS 0 ENTRY 03718 M00S03271.tafrec +++| BX5 X7 03719 M00S03272.tafrec +++| SB7 B0 ASSUME OCTAL CONVERSION 03720 M00S03273.tafrec +++| RJ DXB CONVERT DISPLAY TO BINARY 03721 M00S03274.tafrec +++| SB7 5 03722 M00S03275.tafrec +++| NZ X4,SKD14 IF ERROR IN NUMBER 03723 M00S03276.tafrec +++| SX3 MAXECS+1 MAXIMUM ECS FIELD LENGTH ALLOWED 03724 M00S03277.tafrec +++| IX4 X6-X3 03725 M00S03278.tafrec +++| PL X4,SKD14 IF MORE THAN MAXIMUM REQUESTED 03726 M00S03279.tafrec +++| SX2 X6-MINECS 03727 M00S03280.tafrec +++| NG X2,SKD14 IF LESS THAN MINIMUM REQUESTED 03728 M00S03281.tafrec +++| LX6 9
| Line S03282 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03729 M01S03282.v23l617 ---| SA6 VECS SET ECS FIELD LENGTH
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03730 M01S00048.v23l617 +++| SA6 VECS SET EXTENDED MEMORY FIELD LENGTH 03731 M00S03283.tafrec +++| LX6 -9 03732 M00S03284.tafrec +++| BX1 X6 03733 M00S03285.tafrec +++| RJ COD CONVERT OCTAL TO DISPLAY
| Line S03286 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03734 M01S03286.v23l617 ---| SA2 KECS+1 *ECS* WORD IN DISPLAY
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03735 M01S00049.v23l617 +++| SA2 KECS+1 *EXTENDED MEMORY* WORD IN DISPLAY 03736 M00S03287.tafrec +++| SX3 1RK ADD *K* 03737 M00S03288.tafrec +++| SB5 DIS6+1 UPDATE REPORT 03738 M00S03289.tafrec +++| SB6 B0 03739 M00S03290.tafrec +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 03740 M00S03291.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 03741 M00S03292.tafrec +++| TLF SPACE 4,15 03742 M00S03293.tafrec +++|** K.TLF=FILE NAME. 03743 M00S03294.tafrec +++|* 03744 M00S03295.tafrec +++|* CHANGE THE NAME OF THE TASK LIBRARY FILE. 03745 M00S03296.tafrec +++|* 03746 M00S03297.tafrec +++|* ENTRY (X7) = TASK LIBRARY FILE NAME. 03747 M00S03298.tafrec +++|* 03748 M00S03299.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03749 M00S03300.tafrec +++|* 03750 M00S03301.tafrec +++|* USES X - 1, 2, 3, 6, 7. 03751 M00S03302.tafrec +++|* A - 2, 6, 7. 03752 M00S03303.tafrec +++|* 03753 M00S03304.tafrec +++|* CALLS SFN, UKD. 03754 M00S03305.tafrec +++| 03755 M00S03306.tafrec +++| 03756 M00S03307.tafrec +++| TLF BSS 0 03757 M00S03308.tafrec +++| SX6 B1 03758 M00S03309.tafrec +++| BX6 X6+X7 SET STATUS OF ONE 03759 M00S03310.tafrec +++| SA6 VTFL 03760 M00S03311.tafrec +++| BX1 X7 03761 M00S03312.tafrec +++| RJ SFN SPACE FILL NAME 03762 M00S03313.tafrec +++| SA2 KTLF+1 FILE NAME IN DISPLAY 03763 M00S03314.tafrec +++| BX4 X6 03764 M00S03315.tafrec +++| SB5 DIS7+1 UPDATE REPORT 03765 M00S03316.tafrec +++| SB6 1 03766 M00S03317.tafrec +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 03767 M00S03318.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 03768 M00S03319.tafrec +++| INT SPACE 4,30 03769 M00S03320.tafrec +++|** K.INT=P1,P2. 03770 M00S03321.tafrec +++|* 03771 M00S03322.tafrec +++|* INITIALIZE FILE COMMAND. 03772 M00S03323.tafrec +++|*
| Line S03324 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03773 M01S03324.ns2023 ---|* P1 = TRF - *TAF* RECOVERY FILE.
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03774 M01S00182.ns2023 +++|* P1 = CRF - COMMUNICATIONS RECOVERY FILE. 03775 M00S03325.tafrec +++|* CRM - *CRM* RECOVERY FILES. 03776 M00S03326.tafrec +++|* 03777 M00S03327.tafrec +++|* P2 = ALL - INITIALIZE ALL. 03778 M00S03328.tafrec +++|* NONE - INITIALIZE NONE (RECOVER). 03779 M00S03329.tafrec +++|* IJKLMNO - INITIALIZE THOSE DEFINED BY THE 03780 M00S03330.tafrec +++|* OCTAL DIGITS IN *IJKLMNO*. 03781 M00S03331.tafrec +++|* THIS OPTION NOT VALID FOR P1=CRM. 03782 M00S03332.tafrec +++|* REPEATED USE OF THIS OPTION HAS 03783 M00S03333.tafrec +++|* CUMULATIVE AFFECT IF DIFFERENT 03784 M00S03334.tafrec +++|* DIGITS ARE USED. 03785 M00S03335.tafrec +++|* 03786 M00S03336.tafrec +++|* ENTRY (X7) = FIRST TEN CHARACTERS. 03787 M00S03337.tafrec +++|* (X6) = LAST CHARACTER. 03788 M00S03338.tafrec +++|* 03789 M00S03339.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03790 M00S03340.tafrec +++|* TO *SKD14* IF ERROR IN PARAMETER. 03791 M00S03341.tafrec +++|* 03792 M00S03342.tafrec +++|* USES X - ALL. 03793 M00S03343.tafrec +++|* A - 1, 2, 3, 4, 6, 7.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03794 M01S00027.241l630 +++|* B - 2, 3, 5, 6. 03795 M00S03344.tafrec +++|* 03796 M00S03345.tafrec +++|* CALLS SFN. 03797 M00S03346.tafrec +++| 03798 M00S03347.tafrec +++| 03799 M00S03348.tafrec +++| INT BSS 0 ENTRY 03800 M00S03349.tafrec +++| SA7 INTD SAVE PARAMETERS 03801 M00S03350.tafrec +++| SA6 INTE 03802 M00S03351.tafrec +++| MX0 24 03803 M00S03352.tafrec +++| BX4 X0*X7 EXTRACT FILE TYPE 03804 M00S03353.tafrec +++| SA1 INTA-1 03805 M00S03354.tafrec +++| INT1 SA1 A1+B1
| Line S03355 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03806 M01S03355.v23l617 ---| ZR X1,SKD14 IF INVALID FILE TYPE
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03807 M01S00050.v23l617 +++| ZR X1,SKD14 IF INCORRECT FILE TYPE 03808 M00S03356.tafrec +++| BX2 X0*X1 03809 M00S03357.tafrec +++| BX2 X4-X2 03810 M00S03358.tafrec +++| NZ X2,INT1 IF NO MATCH 03811 M00S03359.tafrec +++| SB3 X1 03812 M00S03360.tafrec +++| JP B3 JUMP TO PROCESSOR 03813 M00S03361.tafrec +++|
| Line S03362 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03814 M01S03362.ns2023 ---|* PROCESS TRF.
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03815 M01S00183.ns2023 +++|* PROCESS *CRF*. 03816 M00S03363.tafrec +++| 03817 M00S03364.tafrec +++| INT2 SX2 IPTAR 03818 M00S03365.tafrec +++| SB2 MAXRC-1 03819 M00S03366.tafrec +++| SB3 INTH 03820 M00S03367.tafrec +++| NZ X2,INT3 IF AUTOMATIC RECOVERY DEFINED 03821 M00S03368.tafrec +++| SA1 INTF 03822 M00S03369.tafrec +++| SA2 A1+B1 03823 M00S03370.tafrec +++| BX6 X1 03824 M00S03371.tafrec +++| BX7 X2 03825 M00S03372.tafrec +++| SA6 KILL1 ADD SPECIFIC ERROR MESSAGE 03826 M00S03373.tafrec +++| SA7 A6+B1
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03827 M02S00023.241l630 ---| SA6 KILL4 ADD ERROR MESSAGE 03828 M02S00024.241l630 ---| SA7 A6+1 03829 M00S03374.tafrec +++| EQ SKD14 DISPLAY ERROR MESSAGE 03830 M00S03375.tafrec +++| 03831 M00S03376.tafrec +++| INT3 LT B2,INT4 IF ALL ID-S DONE 03832 M00S03377.tafrec +++| SA4 TREC+B2 03833 M00S03378.tafrec +++| MX3 59 03834 M00S03379.tafrec +++| BX6 X3*X4 CLEAR RECOVERY BIT 03835 M00S03380.tafrec +++| SA6 B3+B2 03836 M00S03381.tafrec +++| SB2 B2-B1 03837 M00S03382.tafrec +++| EQ INT3 NEXT ID 03838 M00S03383.tafrec +++| 03839 M00S03384.tafrec +++| INT4 SA4 INTE 03840 M00S03385.tafrec +++| BX6 X4 03841 M00S03386.tafrec +++| BX4 -X0*X7 FIRST WORD OF PARAMETER 03842 M00S03387.tafrec +++| LX4 24 03843 M00S03388.tafrec +++| LX6 24 03844 M00S03389.tafrec +++| LX0 24 03845 M00S03390.tafrec +++| BX5 X0*X6 03846 M00S03391.tafrec +++| BX5 X4+X5 NEXT TWO CHARACTERS 03847 M00S03392.tafrec +++| SA1 INTB-1 03848 M00S03393.tafrec +++| BX6 X5 SAVE FOR DAYFILE MESSAGE 03849 M00S03394.tafrec +++| SA6 INTG 03850 M00S03395.tafrec +++| MX0 42 03851 M00S03396.tafrec +++| SB5 KINT+1 DISPLAY BUFFER ADDRESS TO ALTER 03852 M00S03397.tafrec +++| SB6 DIS8+1 REPORT FILE BUFFER ADDRESS TO ALTER 03853 M00S03398.tafrec +++| INT5 SA1 A1+B1 03854 M00S03399.tafrec +++| ZR X1,INT10 IF END OF LIST 03855 M00S03400.tafrec +++| BX2 X0*X1 03856 M00S03401.tafrec +++| BX2 X5-X2 03857 M00S03402.tafrec +++| NZ X2,INT5 IF NO MATCH 03858 M00S03403.tafrec +++| SX2 X1 STATUS (INITIALIZE OR RECOVER) 03859 M00S03404.tafrec +++| SB2 MAXRC-1 03860 M00S03405.tafrec +++| INT6 LT B2,INT7 IF ALL ID-S DONE 03861 M00S03406.tafrec +++| SA1 B3+B2 03862 M00S03407.tafrec +++| SB2 B2-B1
| Line S03408 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03863 M01S03408.ns2023 ---| ZR X1,INT6 IF NO TRF THIS ID
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03864 M01S00184.ns2023 +++| ZR X1,INT6 IF NO *CRF* THIS ID 03865 M00S03409.tafrec +++| BX6 X1+X2 SET STATUS 03866 M00S03410.tafrec +++| SA6 A1 03867 M00S03411.tafrec +++| EQ INT6 NEXT ID 03868 M00S03412.tafrec +++| 03869 M00S03413.tafrec +++| INT7 SB2 MAXRC-1 03870 M00S03414.tafrec +++| INT8 LT B2,INT9 IF END OF LIST 03871 M00S03415.tafrec +++| SA3 INTH+B2 03872 M00S03416.tafrec +++| BX6 X3 03873 M00S03417.tafrec +++| SA6 TREC+B2 03874 M00S03418.tafrec +++| SB2 B2-B1 03875 M00S03419.tafrec +++| EQ INT8 NEXT ENTRY 03876 M00S03420.tafrec +++|
| Line S03421 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03877 M01S03421.241l630 ---| INT9 SA1 INTC 03878 M01S03422.241l630 ---| BX6 X1 03879 M01S03423.241l630 ---| SA4 INTD 03880 M01S03424.241l630 ---| SA2 INTE 03881 M01S03425.241l630 ---| LX4 -18 03882 M01S03426.241l630 ---| MX0 18 03883 M01S03427.241l630 ---| BX5 -X0*X4 03884 M01S03428.241l630 ---| BX1 X1+X5
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03885 M01S00028.241l630 +++| INT9 SA1 INTD 03886 M00S03429.tafrec +++| RJ SFN SPACE FILL NAME 03887 M00S03430.tafrec +++| SA6 B5 UPDATE *K-DISPLAY* 03888 M00S03431.tafrec +++| SA6 B6 UPDATE REPORT
| Line S03432 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03889 M01S03432.241l630 ---| BX5 X0*X4 03890 M01S03433.241l630 ---| LX2 -18 03891 M01S03434.241l630 ---| BX6 -X0*X2 03892 M01S03435.241l630 ---| BX1 X5+X6 03893 M01S03436.241l630 ---| RJ SFN SPACE FILL NAME 03894 M01S03437.241l630 ---| SA6 B6+B1
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03895 M01S00029.241l630 +++| SA1 INTE SEVENTH CHARACTER OF PARAMETER STRING 03896 M01S00030.241l630 +++| ZR X1,INT9.1 IF STRING IS LESS THAN 7 CHARACTERS 03897 M01S00031.241l630 +++| SA2 B6+B1 *DIS8*+2 03898 M01S00032.241l630 +++| MX0 -54 03899 M01S00033.241l630 +++| BX2 -X0*X2 03900 M01S00034.241l630 +++| BX6 X1+X2 03901 M01S00035.241l630 +++| SA6 A2+ 03902 M01S00036.241l630 +++| INT9.1 RJ SFN SPACE FILL FILE NAME 03903 M00S03438.tafrec +++| SA6 B5+B1 03904 M00S03439.tafrec +++| EQ SKD1 PROCESS NEXT COMMAND 03905 M00S03440.tafrec +++| 03906 M00S03441.tafrec +++| INT10 MX0 -6 03907 M00S03442.tafrec +++| SB2 7 MAXIMUM DIGITS IN STRING 03908 M00S03443.tafrec +++| INT11 EQ B2,INT12 IF MAXIMUM DIGITS PROCESSED 03909 M00S03444.tafrec +++| LX5 6 03910 M00S03445.tafrec +++| BX2 -X0*X5 EXTRACT DIGIT 03911 M00S03446.tafrec +++| ZR X2,INT7 IF ALL DIGITS PROCESSED 03912 M00S03447.tafrec +++| SX3 X2-1R0 03913 M00S03448.tafrec +++| NG X3,SKD14 IF NOT NUMERIC 03914 M00S03449.tafrec +++| SX3 X2-1R8 03915 M00S03450.tafrec +++| PL X3,SKD14 IF NOT OCTAL OR NUMERIC 03916 M00S03451.tafrec +++| SX2 X2-1R0 DISPLAY TO BINARY 03917 M00S03452.tafrec +++| SB2 B2-B1 03918 M00S03453.tafrec +++| SA3 TREC+X2
| Line S03454 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03919 M01S03454.ns2023 ---| ZR X3,INT11 IF NO TRF FOR THIS ID
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03920 M01S00185.ns2023 +++| ZR X3,INT11 IF NO *CRF* FOR THIS ID 03921 M00S03455.tafrec +++| SX4 IST INITIALIZE STATUS 03922 M00S03456.tafrec +++| BX6 X3+X4 03923 M00S03457.tafrec +++| SA6 INTH+X2 03924 M00S03458.tafrec +++| EQ INT11 NEXT DIGIT 03925 M00S03459.tafrec +++| 03926 M00S03460.tafrec +++| INT12 LX5 6 03927 M00S03461.tafrec +++| BX2 -X0*X5 03928 M00S03462.tafrec +++| NZ X2,SKD14 IF GREATER THAN SEVEN DIGITS 03929 M00S03463.tafrec +++| EQ INT7 MOVE DATA TO BUFFER 03930 M00S03464.tafrec +++| 03931 M00S03465.tafrec +++|* PROCESS CRM. 03932 M00S03466.tafrec +++| 03933 M00S03467.tafrec +++| INT13 BX4 -X0*X7 03934 M00S03468.tafrec +++| LX4 24 NEXT PARAMETER 03935 M00S03469.tafrec +++| SA1 INTB-1 03936 M00S03470.tafrec +++| MX0 42 03937 M00S03471.tafrec +++| INT14 SA1 A1+B1 03938 M00S03472.tafrec +++| ZR X1,SKD14 IF END OF LIST 03939 M00S03473.tafrec +++| BX2 X0*X1 03940 M00S03474.tafrec +++| BX2 X4-X2 03941 M00S03475.tafrec +++| NZ X2,INT14 IF NO MATCH 03942 M00S03476.tafrec +++| SA2 PRSA FLAG WORD 03943 M00S03477.tafrec +++| SX1 X1 03944 M00S03478.tafrec +++| LX1 TICRS 03945 M00S03479.tafrec +++| MX3 59 03946 M00S03480.tafrec +++| LX3 TICRS 03947 M00S03481.tafrec +++| BX6 X3*X2 CLEAR CRM RECOVERY BIT 03948 M00S03482.tafrec +++| BX6 X6+X1 ADD NEW *CRM* RECOVERY STATUS 03949 M00S03483.tafrec +++| SA6 A2 03950 M00S03484.tafrec +++| SB5 KINC+1 *K-DISPLAY* BUFFER TO ALTER 03951 M00S03485.tafrec +++| SB6 DIS9+1 REPORT BUFFER ADDRESS TO ALTER 03952 M00S03486.tafrec +++| EQ INT9 UPDATE *K-DISPLAY* AND REPORT 03953 M00S03487.tafrec +++| 03954 M00S03488.tafrec +++|* TABLE OF VALID FIRST PARAMETERS. 03955 M00S03489.tafrec +++| 03956 M00S03490.tafrec +++| INTA VFD 42/4LCRF,,18/INT2 03957 M00S03491.tafrec +++| VFD 42/4LCRM,,18/INT13 03958 M00S03492.tafrec +++| CON 0 TABLE TERMINATOR 03959 M00S03493.tafrec +++| 03960 M00S03494.tafrec +++|* TABLE OF VALID STATIC SECOND PARAMETERS. 03961 M00S03495.tafrec +++| 03962 M00S03496.tafrec +++| INTB VFD 42/0LALL,18/IST 03963 M00S03497.tafrec +++| VFD 42/0LNONE,18/RST 03964 M00S03498.tafrec +++| CON 0 TABLE TERMINATOR 03965 M00S03499.tafrec +++|
| Line S03500 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03966 M01S03500.241l630 ---| INTC VFD 60/3L = 03967 M00S03501.tafrec +++| INTD CON 0 FIRST TEN CHARACTERS OF PARAMETER
| Line S03502 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03968 M01S03502.241l630 ---| INTE CON 0 NEXT TWO CHARACTERS OF PARAMETER
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03969 M01S00037.241l630 +++| INTE CON 0 LAST CHARACTER OF PARAMETER STRING 03970 M00S03503.tafrec +++| INTF DATA 20HRECOVERY DISABLED.
| Line S03504 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03971 M01S03504.ns2023 ---| INTG DATA 4LNONE P2 FOR P1=*TRF*
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03972 M01S00186.ns2023 +++| INTG DATA 4LNONE P2 FOR P1 = *CRF* 03973 M00S03505.tafrec +++| INTH BSSZ MAXRC TEMPORARY BUFFER 03974 M00S03506.tafrec +++| ERO SPACE 4,20 03975 M00S03507.tafrec +++|** K.ERO=P1,P2. 03976 M00S03508.tafrec +++|*
| Line S03509 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03977 M01S03509.ns2023 ---|* WHERE P1 = TRF COMMAND RELATES TO *TAF* RECOVERY FILE.
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03978 M01S00187.ns2023 +++|* WHERE P1 = CRF COMMAND RELATES TO COMMUNICATIONS RECOVERY 03979 M00S03510.tafrec +++|* P2 = YES OVERRIDE FILE ERRORS. 03980 M00S03511.tafrec +++|* = NO DO NOT OVERRIDE FILE ERRORS. 03981 M00S03512.tafrec +++|* 03982 M00S03513.tafrec +++|* THIS COMMAND PROVIDES THE CAPABILITY TO OVERRIDE I/O OR
| Line S03514 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03983 M01S03514.ns2023 ---|* LOGICAL ERRORS IN THE TRF RECOVERY UNITS.
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03984 M01S00188.ns2023 +++|* LOGICAL ERRORS IN THE *CRF* RECOVERY UNITS. 03985 M00S03515.tafrec +++|* 03986 M00S03516.tafrec +++|* ENTRY (X7) = OVERRIDE OPTION. 03987 M00S03517.tafrec +++|* 03988 M00S03518.tafrec +++|* EXIT TO *SKD1*. *K-DISPLAY* AND REPORT UPDATED. 03989 M00S03519.tafrec +++|* TO *SKD14* IF ERROR IN PARAMETER. 03990 M00S03520.tafrec +++|* 03991 M00S03521.tafrec +++|* USES X - 0, 1, 2, 4, 6, 7. 03992 M00S03522.tafrec +++|* A - 1, 2, 6, 7. 03993 M00S03523.tafrec +++|* B - 3, 5, 6. 03994 M00S03524.tafrec +++| 03995 M00S03525.tafrec +++| 03996 M00S03526.tafrec +++| ERO BSS 0 ENTRY 03997 M00S03527.tafrec +++| SA7 EROA SAVE COMMAND PARAMETERS 03998 M00S03528.tafrec +++| MX0 24 03999 M00S03529.tafrec +++| BX4 X0*X7 EXTRACT P1 04000 M00S03530.tafrec +++| SA1 EROB-1 04001 M00S03531.tafrec +++| ERO1 SA1 A1+B1 NEXT FILE TYPE 04002 M00S03532.tafrec +++| ZR X1,SKD14 IF END OF LIST 04003 M00S03533.tafrec +++| BX2 X0*X1 04004 M00S03534.tafrec +++| BX2 X4-X2 04005 M00S03535.tafrec +++| NZ X2,ERO1 IF NO MATCH 04006 M00S03536.tafrec +++| SB3 X1 04007 M00S03537.tafrec +++| JP B3 JUMP TO PROCESSOR 04008 M00S03538.tafrec +++|
| Line S03539 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04009 M01S03539.ns2023 ---|* PROCESS TRF.
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04010 M01S00189.ns2023 +++|* PROCESS *CRF*. 04011 M00S03540.tafrec +++| 04012 M00S03541.tafrec +++| ERO2 SX2 IPTAR 04013 M00S03542.tafrec +++| NZ X2,ERO3 IF AUTOMATIC RECOVERY ENABLED
| Line S03543 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04014 M01S03543.241l630 ---| SA1 EROE
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04015 M01S00038.241l630 +++| SA1 EROD 04016 M00S03544.tafrec +++| SA2 A1+B1 04017 M00S03545.tafrec +++| BX6 X1 04018 M00S03546.tafrec +++| BX7 X2 04019 M00S03547.tafrec +++| SA6 KILL1 ADD SPECIFIC ERROR MESSAGE 04020 M00S03548.tafrec +++| SA7 A6+B1
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04021 M02S00025.241l630 ---| SA6 KILL4 ADD ERROR MESSAGE 04022 M02S00026.241l630 ---| SA7 A6+1 04023 M00S03549.tafrec +++| EQ SKD14 DISPLAY SPECIFIC ERROR MESSAGE 04024 M00S03550.tafrec +++| 04025 M00S03551.tafrec +++| ERO3 BX4 -X0*X7 EXTRACT P2 04026 M00S03552.tafrec +++| LX4 24 04027 M00S03553.tafrec +++| SA1 EROC-1 04028 M00S03554.tafrec +++| ERO4 SA1 A1+B1 NEXT OPTION 04029 M00S03555.tafrec +++| ZR X1,SKD14 IF END OF LIST 04030 M00S03556.tafrec +++| BX2 X0*X1 04031 M00S03557.tafrec +++| BX2 X4-X2 04032 M00S03558.tafrec +++| NZ X2,ERO4 IF NO MATCH 04033 M00S03559.tafrec +++| SX6 X1 04034 M00S03560.tafrec +++| SA6 OVRD SET OVERRIDE FLAG 04035 M00S03561.tafrec +++| SB5 KERO+1 *K-DISPLAY* BUFFER ADDRESS TO ALTER 04036 M00S03562.tafrec +++| SB6 DIS10+1 REPORT FILE BUFFER ADDRESS TO ALTER 04037 M00S03563.tafrec +++| SA1 EROA GET COMMAND PARAMETERS
| Line S03564 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04038 M01S03564.241l630 ---| LX1 -18 04039 M01S03565.241l630 ---| SA2 EROD 04040 M01S03566.241l630 ---| BX6 X2+X1 04041 M01S03567.241l630 ---| SA6 B5 UPDATE *K-DISPLAY*
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04042 M01S00039.241l630 +++| BX6 X1 04043 M01S00040.241l630 +++| SA6 B5+ UPDATE *K-DISPLAY* 04044 M00S03568.tafrec +++| SA6 B6 UPDATE REPORT 04045 M00S03569.tafrec +++| EQ SKD1 PROCESS NEXT COMMAND 04046 M00S03570.tafrec +++| 04047 M00S03571.tafrec +++| EROA CON 0 COMMAND PARAMETERS 04048 M00S03572.tafrec +++| 04049 M00S03573.tafrec +++|* TABLE OF VALID FIRST PARAMETERS. 04050 M00S03574.tafrec +++| 04051 M00S03575.tafrec +++| EROB VFD 42/4LCRF,,18/ERO2 04052 M00S03576.tafrec +++| CON 0 TABLE TERMINATOR 04053 M00S03577.tafrec +++|
| Line S03578 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04054 M01S03578.ns2023 ---|* TABLE OF VALID SECOND PARAMETERS FOR P1=TRF.
| Line S00190 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04055 M01S00190.ns2023 +++|* TABLE OF VALID SECOND PARAMETERS FOR P1 = *CRF*. 04056 M00S03579.tafrec +++| 04057 M00S03580.tafrec +++| EROC VFD 42/0LYES,18/1 04058 M00S03581.tafrec +++| VFD 42/0LNO,18/0 04059 M00S03582.tafrec +++| CON 0 TABLE TERMINATOR 04060 M00S03583.tafrec +++|
| Line S03584 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04061 M01S03584.241l630 ---| EROD VFD 60/3L = 04062 M01S03585.241l630 ---| EROE DATA 20HRECOVERY DISABLED.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04063 M01S00041.241l630 +++| EROD DATA 20HRECOVERY DISABLED. 04064 M00S03586.tafrec +++| TITLE DISPLAY FORMATS. 04065 M00S03587.tafrec +++| BFL SPACE 4,15 04066 M00S03588.tafrec +++|*** K.BFL=N. 04067 M00S03589.tafrec +++|* 04068 M00S03590.tafrec +++|* CHANGE THE BASE FL FOR CMM. 04069 M00S03591.tafrec +++|*
| Line S03592 Modification History | |
|---|---|
M01 (Removed by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 04070 M01S03592.ns2157 ---|* EXIT (VCMM) = 24/0,18/CMM EFL,18/CMM BASE FL.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 04071 M01S00027.ns2157 +++|* EXIT (VCMM) = 6/0,18/CMMTFL,18/CMMEFL,18/CMMBFL. 04072 M01S00028.ns2157 +++|* TO *SKD1* TO PROCESS NEXT INPUT. 04073 M00S03593.tafrec +++|* 04074 M00S03594.tafrec +++|* USES A - 1, 2, 6, 7. 04075 M00S03595.tafrec +++|* B - 2, 3, 7. 04076 M00S03596.tafrec +++|* X - ALL. 04077 M00S03597.tafrec +++|* 04078 M00S03598.tafrec +++|* CALLS COD, DXB, UKD. 04079 M00S03599.tafrec +++| 04080 M00S03600.tafrec +++| 04081 M00S03601.tafrec +++| BFL BSS 0 ENTRY 04082 M00S03602.tafrec +++| BX5 X7 04083 M00S03603.tafrec +++| SB7 B0 ASSUME OCTAL CONVERSION 04084 M00S03604.tafrec +++| RJ DXB CONVERT TO BINARY 04085 M00S03605.tafrec +++| SB7 5 04086 M00S03606.tafrec +++| NZ X4,SKD14 IF ERROR IN NUMBER 04087 M00S03607.tafrec +++| SX2 X6-MINCMM 04088 M00S03608.tafrec +++| NG X2,SKD14 IF LESS THAN MINIMUM 04089 M00S03609.tafrec +++| SX4 MAXCMM 04090 M00S03610.tafrec +++| IX2 X4-X6 04091 M00S03611.tafrec +++| BX1 X6 04092 M00S03612.tafrec +++| NG X2,SKD14 IF GREATER THAN MAXIMUM 04093 M00S03613.tafrec +++| SA2 VCMM UPDATE BASE CMM FL 04094 M00S03614.tafrec +++| MX0 42 04095 M00S03615.tafrec +++| BX2 X0*X2 04096 M00S03616.tafrec +++| BX6 X2+X6 ADD NEW BASE CMM FL 04097 M00S03617.tafrec +++| SA6 A2 04098 M00S03618.tafrec +++| RJ COD CONVERT OCTAL TO DISPLAY 04099 M00S03619.tafrec +++| SA2 KBFL+1 *BFL* WORD IN DISPLAY 04100 M00S03620.tafrec +++| SB5 DIS11+1 UPDATE REPORT 04101 M00S03621.tafrec +++| SX3 1RB ADD *B* 04102 M00S03622.tafrec +++| SB6 B0 04103 M00S03623.tafrec +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 04104 M00S03624.tafrec +++| EQ SKD1 PROCESS NEXT INPUT 04105 M00S03625.tafrec +++| EFL SPACE 4,15 04106 M00S03626.tafrec +++|*** K.EFL=N. 04107 M00S03627.tafrec +++|* 04108 M00S03628.tafrec +++|* CHANGE THE EXPANDABLE FL FOR CMM. 04109 M00S03629.tafrec +++|*
| Line S03630 Modification History | |
|---|---|
M01 (Removed by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 04110 M01S03630.ns2157 ---|* EXIT (VCMM) = 24/0,18/CMM EFL,18/CMM BASE FL.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 04111 M01S00029.ns2157 +++|* EXIT (VCMM) = 6/0,18/CMMTFL,18/CMMEFL,18/CMMBFL. 04112 M01S00030.ns2157 +++|* TO *SKD1* TO PROCESS NEXT INPUT. 04113 M00S03631.tafrec +++|* 04114 M00S03632.tafrec +++|* USES A - 1, 2, 6, 7. 04115 M00S03633.tafrec +++|* B - 2, 3, 7. 04116 M00S03634.tafrec +++|* X - ALL. 04117 M00S03635.tafrec +++|* 04118 M00S03636.tafrec +++|* CALLS COD, DXB, UKD. 04119 M00S03637.tafrec +++| 04120 M00S03638.tafrec +++| 04121 M00S03639.tafrec +++| EFL BSS 0 ENTRY 04122 M00S03640.tafrec +++| BX5 X7 04123 M00S03641.tafrec +++| SB7 B0 ASSUME OCTAL CONVERSION 04124 M00S03642.tafrec +++| RJ DXB CONVERT TO BINARY 04125 M00S03643.tafrec +++| SB7 5 04126 M00S03644.tafrec +++| NZ X4,SKD14 IF ERROR IN NUMBER 04127 M00S03645.tafrec +++| NG X2,SKD14 IF LESS THAN MINIMUM 04128 M00S03646.tafrec +++| SX4 MAXCME 04129 M00S03647.tafrec +++| IX2 X4-X6 04130 M00S03648.tafrec +++| BX1 X6 04131 M00S03649.tafrec +++| NG X2,SKD14 IF GREATER THAN MAXIMUM 04132 M00S03650.tafrec +++| SA2 VCMM UPDATE BASE CMM FL
| Line S03651 Modification History | |
|---|---|
M01 (Removed by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 04133 M01S03651.ns2157 ---| SX0 X2
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 04134 M01S00031.ns2157 +++| MX0 42 04135 M01S00032.ns2157 +++| LX0 18 04136 M01S00033.ns2157 +++| BX0 X0*X2 04137 M00S03652.tafrec +++| LX6 18 04138 M00S03653.tafrec +++| BX6 X0+X6 ADD NEW EXPANDABLE CMM FL 04139 M00S03654.tafrec +++| SA6 A2 04140 M00S03655.tafrec +++| RJ COD CONVERT OCTAL TO DISPLAY 04141 M00S03656.tafrec +++| SA2 KEFL+1 *EFL* WORD IN DISPLAY 04142 M00S03657.tafrec +++| SX3 1RB ADD *B* 04143 M00S03658.tafrec +++| SB5 DIS12+1 UPDATE REPORT 04144 M00S03659.tafrec +++| SB6 B0 04145 M00S03660.tafrec +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 04146 M00S03661.tafrec +++| EQ SKD1 PROCESS NEXT INPUT
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act ----------------------------+ 04147 M01S00034.ns2157 +++| TFL SPACE 4,15 04148 M01S00035.ns2157 +++|*** K.TFL=N. 04149 M01S00036.ns2157 +++|* 04150 M01S00037.ns2157 +++|* CHANGE THE TARGET FL FOR CMM. 04151 M01S00038.ns2157 +++|* 04152 M01S00039.ns2157 +++|* EXIT (VCMM) = 6/0,18/CMMTFL,18/CMMEFL,18/CMMBFL. 04153 M01S00040.ns2157 +++|* TO *SKD1* TO PROCESS NEXT INPUT. 04154 M01S00041.ns2157 +++|* 04155 M01S00042.ns2157 +++|* USES X - ALL. 04156 M01S00043.ns2157 +++|* A - 1, 2, 6, 7. 04157 M01S00044.ns2157 +++|* B - 2, 3, 7. 04158 M01S00045.ns2157 +++|* 04159 M01S00046.ns2157 +++|* CALLS COD, DXB, UKD. 04160 M01S00047.ns2157 +++| 04161 M01S00048.ns2157 +++| 04162 M01S00049.ns2157 +++| TFL BSS 0 ENTRY 04163 M01S00050.ns2157 +++| BX5 X7 04164 M01S00051.ns2157 +++| SB7 B0 ASSUME OCTAL CONVERSION 04165 M01S00052.ns2157 +++| RJ DXB CONVERT TO BINARY 04166 M01S00053.ns2157 +++| SB7 5 04167 M01S00054.ns2157 +++| NZ X4,SKD14 IF ERROR IN NUMBER 04168 M01S00055.ns2157 +++| SX4 MINCMT 04169 M01S00056.ns2157 +++| IX2 X6-X4 04170 M01S00057.ns2157 +++| NG X2,SKD14 IF LESS THAN MINIMUM 04171 M01S00058.ns2157 +++| SX4 MAXCMT 04172 M01S00059.ns2157 +++| IX2 X4-X6 04173 M01S00060.ns2157 +++| BX1 X6 04174 M01S00061.ns2157 +++| NG X2,SKD14 IF GREATER THAN MAXIMUM 04175 M01S00062.ns2157 +++| SA2 VCMM UPDATE TARGET CMM FL 04176 M01S00063.ns2157 +++| MX0 -36 04177 M01S00064.ns2157 +++| LX6 36 04178 M01S00065.ns2157 +++| BX0 -X0*X2 04179 M01S00066.ns2157 +++| BX6 X0+X6 04180 M01S00067.ns2157 +++| SA6 A2 04181 M01S00068.ns2157 +++| RJ COD CONVERT OCTAL TO DISPLAY 04182 M01S00069.ns2157 +++| SA2 KTFL+1 *TFL* WORD IN DISPLAY 04183 M01S00070.ns2157 +++| SX3 1RB ADD *B* 04184 M01S00071.ns2157 +++| SB5 DIS13+1 UPDATE REPORT 04185 M01S00072.ns2157 +++| SB6 B0 04186 M01S00073.ns2157 +++| RJ UKD UPDATE THE *K-DISPLAY* AND REPORT 04187 M01S00074.ns2157 +++| EQ SKD1 PROCESS NEXT INPUT 04188 M00S03662.tafrec +++| STP SPACE 4,10 04189 M00S03663.tafrec +++|*** K.STOP. 04190 M00S03664.tafrec +++|* 04191 M00S03665.tafrec +++|* PROCESS *K.STOP* COMMAND. 04192 M00S03666.tafrec +++|* 04193 M00S03667.tafrec +++|* EXIT (B5) = ADDRESS OF MESSAGE. 04194 M00S03668.tafrec +++|* EXIT TO ERR SUBROUTINE TO ABORT *TAFREC*. 04195 M00S03669.tafrec +++|* 04196 M00S03670.tafrec +++|* USES B - 5. 04197 M00S03671.tafrec +++| 04198 M00S03672.tafrec +++| 04199 M00S03673.tafrec +++| STP BSS 0 ENTRY 04200 M00S03674.tafrec +++| SA2 KCOF COMMAND ORIGIN 04201 M00S03675.tafrec +++| NZ X2,STP1 IF NOT CONSOLE ORIGIN 04202 M00S03676.tafrec +++| CONSOLE SKDB TURN OFF *K-DISPLAY* 04203 M00S03677.tafrec +++| STP1 SB5 STPA *OPERATOR TERMINATION.* 04204 M00S03678.tafrec +++| EQ ERR ABORT 04205 M00S03679.tafrec +++| 04206 M00S03680.tafrec +++| STPA DATA C* OPERATOR TERMINATION.*
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04207 M02S00075.241l630 ---| PAG SPACE 4,10 04208 M02S00076.241l630 ---|*** K.+. 04209 M02S00077.241l630 ---|* 04210 M02S00078.241l630 ---|* PAGE THE K-DISPLAY. 04211 M02S00079.241l630 ---|* 04212 M02S00080.241l630 ---|* EXIT - *K-DISPLAY* ADVANCED TO NEXT PAGE. 04213 M02S00081.241l630 ---|* 04214 M02S00082.241l630 ---|* USES X - 0, 1, 3, 6. 04215 M02S00083.241l630 ---|* A - 1, 3, 6. 04216 M02S00084.241l630 ---|* 04217 M02S00085.241l630 ---|* MACRO CONSOLE. 04218 M02S00086.241l630 ---| 04219 M02S00087.241l630 ---| 04220 M02S00088.241l630 ---| PAG BSS 0 ENTRY 04221 M02S00089.241l630 ---| SA1 KCOF COMMAND ORIGIN 04222 M02S00090.241l630 ---| NZ X1,SKD1 IF NOT CONSOLE ORIGIN, RETURN 04223 M02S00091.241l630 ---| MX0 42 04224 M02S00092.241l630 ---| SA3 KCTRL 04225 M02S00093.241l630 ---| BX6 X0*X3 04226 M02S00094.241l630 ---| BX0 -X0*X3 CURRENT PAGE 04227 M02S00095.241l630 ---| SA1 PAGA 04228 M02S00096.241l630 ---| BX3 X1-X0 04229 M02S00097.241l630 ---| NZ X3,PAG1 IF NOT INITIAL PAGE 04230 M02S00098.241l630 ---| SA1 A1+1 04231 M02S00099.241l630 ---| PAG1 BX6 X6+X1 04232 M02S00100.241l630 ---| SA6 A3 04233 M02S00101.241l630 ---| CONSOLE KCTRL PAGE K-DISPLAY 04234 M02S00102.241l630 ---| EQ SKD1 RETURN 04235 M02S00103.241l630 ---| 04236 M02S00104.241l630 ---| 04237 M02S00105.241l630 ---| PAGA CON KDIS PAGE 1 04238 M02S00106.241l630 ---| CON SDIS PAGE 2 04239 M00S03681.tafrec +++| UKD SPACE 4,15 04240 M00S03682.tafrec +++|** UKD UPDATE THE *K-DISPLAY* AND REPORT. 04241 M00S03683.tafrec +++|* 04242 M00S03684.tafrec +++|* ENTRY (X2) = DISPLAY WORD. 04243 M00S03685.tafrec +++|* (X3) = INSERT CHARACTER, IF (B6).EQ.0. 04244 M00S03686.tafrec +++|* (X4) = DISPLAY CODE CONVERSION LEFT JUSTIFIED. 04245 M00S03687.tafrec +++|* (A2) = ADDRESS OF WORD IN DISPLAY. 04246 M00S03688.tafrec +++|* (B2) = 6*COUNT OF DIGITS CONVERTED. 04247 M00S03689.tafrec +++|* (B5) = ADDRESS OF THE DISPLAY WORD. 04248 M00S03690.tafrec +++|* (B6) = 1 IF WORD ALREADY PARTIALLY FORMATTED. 04249 M00S03691.tafrec +++|* = 0 IF WORD NOT FORMATTED. 04250 M00S03692.tafrec +++|* 04251 M00S03693.tafrec +++|* EXIT *K-DISPLAY* AND REPORT UPDATED. 04252 M00S03694.tafrec +++|* 04253 M00S03695.tafrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
| Line S03696 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04254 M01S03696.241l630 ---|* A - 2, 7.
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04255 M01S00042.241l630 +++|* A - 7. 04256 M00S03697.tafrec +++|* B - 2, 3, 4. 04257 M00S03698.tafrec +++| 04258 M00S03699.tafrec +++| 04259 M00S03700.tafrec +++| UKD SUBR 04260 M00S03701.tafrec +++| NZ B6,UKD1 IF PARTIALLY FORMATTED 04261 M00S03702.tafrec +++| MX5 1 04262 M00S03703.tafrec +++| SB3 B2-B1 04263 M00S03704.tafrec +++| SB4 B3+6 04264 M00S03705.tafrec +++| AX6 X5,B3 MASK FOR NUMBER 04265 M00S03706.tafrec +++| AX5 X5,B4 MASK FOR BLANKS LESS ONE 04266 M00S03707.tafrec +++| SB2 -B2 04267 M00S03708.tafrec +++| SB4 54+B2 SHIFT COUNT TO POSITION THE CHARACTER 04268 M00S03709.tafrec +++| LX3 X3,B4 04269 M00S03710.tafrec +++| BX1 X6*X4 NUMBER 04270 M00S03711.tafrec +++| IX1 X1+X3 ADD CHARACTER 04271 M00S03712.tafrec +++| BX2 -X5*X4 04272 M00S03713.tafrec +++| BX4 X1+X2 ADD IN BLANKS
| Line S03714 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04273 M01S03714.241l630 ---| UKD1 MX3 18 04274 M01S03715.241l630 ---| SA2 A2 04275 M01S03716.241l630 ---| BX2 X3*X2 04276 M01S03717.241l630 ---| LX4 -18 POSITION NUMBER THREE RIGHT 04277 M01S03718.241l630 ---| BX7 -X3*X4 MASK OUT UPPER THREE CHARACTERS 04278 M01S03719.241l630 ---| IX7 X7+X2
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04279 M01S00043.241l630 +++| UKD1 BX7 X4 04280 M00S03720.tafrec +++| SA7 A2 UPDATE *K-DISPLAY*
| Line S03721 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04281 M01S03721.241l630 ---| SA7 B5 UPDATE REPORT
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04282 M01S00044.241l630 +++| SA7 B5+ UPDATE REPORT 04283 M00S03722.tafrec +++| EQ UKDX RETURN 04284 M00S03723.tafrec +++| SPACE 4,10 04285 M00S03724.tafrec +++|* DEFINE INITIAL *K-DISPLAY* BY MICROS. 04286 M00S03725.tafrec +++| 04287 M00S03726.tafrec +++| 04288 M00S03727.tafrec +++| HHED MICRO 1,,*TRANSACTION EXECUTIVE INITIALIZATION OPTIONS*
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04289 M02S00107.241l630 ---| HHEC MICRO 1,,*TAF INITIALIZATION OPTIONS. PAGE 1 OF 2.*
| Line S03728 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04290 M01S03728.241l630 ---| HSCP MICRO 1,,*SUB CONTROL POINTS RANGE IS "MINSCPM" - "MA 04291 M01S03729.241l630 ---|,XSCPM"* 04292 M01S03730.241l630 ---| MSCP MICRO 1,,* SCP = "NSCPM" * 04293 M01S03731.241l630 ---| HCMB MICRO 1,,*COMMUNICATION BLOCKS RANGE IS "MINCMBM" - "MA 04294 M01S03732.241l630 ---|,XCMBM"* 04295 M01S03733.241l630 ---| MCMB MICRO 1,,* CMB = "NCMBM" * 04296 M01S03734.241l630 ---| HREC MICRO 1,,*RECOVERY MODE VALUE IS YES OR NO* 04297 M01S03735.241l630 ---| MREC MICRO 1,,* REC = NO * 04298 M01S03736.241l630 ---| HMFL MICRO 1,,*MAXIMUM FIELD LENGTH RANGE IS "MINMFLM"B - "M 04299 M01S03737.241l630 ---|,AXMFLM"B* 04300 M01S03738.241l630 ---| MMFL MICRO 1,,* MFL = "SCMFLM"B * 04301 M01S03739.241l630 ---| HECS MICRO 1,,*ECS FIELD LENGTH RANGE IS "MINECSM"K - "M 04302 M01S03740.241l630 ---|,AXECSM"K* 04303 M01S03741.241l630 ---| MECS MICRO 1,,* ECS = "ECSFLM"K * 04304 M01S03742.241l630 ---| HTLF MICRO 1,,*TASK LIBRARY FILE ANY LEGAL FILE NAME* 04305 M01S03743.241l630 ---| MTLF MICRO 1,,* TLF = "TLFM"* 04306 M01S03744.241l630 ---| HINT MICRO 1,,*INITIALIZE FILE VALUE IS NONE,ALL OR 1-7 04307 M01S03745.241l630 ---|, DIGITS* 04308 M01S03746.241l630 ---| MINT MICRO 1,,* INT = CRF,NONE * 04309 M01S03747.241l630 ---| MINC MICRO 1,,* = CRM,NONE * 04310 M01S03748.241l630 ---| HERO MICRO 1,,*ERROR OVERRIDE VALUE IS YES OR NO* 04311 M01S03749.241l630 ---| MERO MICRO 1,,* ERO = CRF,NO *
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04312 M02S00108.241l630 ---| HHEF MICRO 1,,*TAF INITIALIZATION OPTIONS. PAGE 2 OF 2.*
| Line S03750 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04313 M01S03750.241l630 ---| HBFL MICRO 1,,*CMM BASE FL RANGE IS "MINCMMM"B 04314 M01S03751.241l630 ---|,- "MAXCMMM"B* 04315 M01S03752.241l630 ---| MBFL MICRO 1,,* BFL = "CMMBFLM"B* 04316 M01S03753.241l630 ---| HEFL MICRO 1,,*CMM EXPANDABLE FL RANGE IS 0 - "MAXCMEM"B* 04317 M01S03754.241l630 ---| MEFL MICRO 1,,* EFL = "CMMEFLM"B*
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04318 M02S00109.241l630 ---| HTFL MICRO 1,,*CMM TARGET FL RANGE IS "MINTMEM" - "MA 04319 M02S00110.241l630 ---|,XTMEM"B* 04320 M02S00111.241l630 ---| MTFL MICRO 1,,* TFL = "CMMTFLM"B*
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04321 M01S00045.241l630 +++| HHEC MICRO 1,,*TAF INITIALIZATION OPTIONS*
04322 M01S00046.241l630 +++| HOPD MICRO 1,,*OPTION DESCRIPTION*
04323 M01S00047.241l630 +++| MSCP MICRO 1,17,*SCP = "NSCPM" *
04324 M01S00048.241l630 +++| HSCP MICRO 1,,*SUB CONTROL POINTS ("MINSCPM" - "MAXSCPM").*
04325 M01S00049.241l630 +++| MCMB MICRO 1,17,*CMB = "NCMBM" *
04326 M01S00050.241l630 +++| HCMB MICRO 1,,*COMMUNICATION BLOCKS ("MINCMBM" - "MAXCMBM").*
04327 M01S00051.241l630 +++| MREC MICRO 1,,*REC = NO *
04328 M01S00052.241l630 +++| HREC MICRO 1,,*RECOVERY MODE (YES OR NO).*
04329 M01S00053.241l630 +++| MMFL MICRO 1,17,*MFL = "SCMFLM"B *
04330 M01S00054.241l630 +++| HMFL MICRO 1,,*MAXIMUM FIELD LENGTH ("MINMFLM"B - "MAXMFLM"B).*
04331 M01S00055.241l630 +++| MECS MICRO 1,17,*ECS = "ECSFLM"K *
04332 M01S00056.241l630 +++| HECS MICRO 1,,*EXTENDED MEMORY FIELD LENGTH ("MINECSM"K - "MAXECSM
04333 M01S00057.241l630 +++|,"K).*
04334 M01S00058.241l630 +++| MTLF MICRO 1,17,*TLF = "TLFM" *
04335 M01S00059.241l630 +++| HTLF MICRO 1,,*TASK LIBRARY FILE (1-7 CHARACTERS).*
04336 M01S00060.241l630 +++| MINT MICRO 1,,*INT = CRF,NONE *
04337 M01S00061.241l630 +++| HINT MICRO 1,,*INITIALIZE CRF RECOVERY FILES [NONE,ALL OR*
04338 M01S00062.241l630 +++| AINT MICRO 1,,*1-7 DIGITS].*
04339 M01S00063.241l630 +++| MINC MICRO 1,,*INT = CRM,NONE *
04340 M01S00064.241l630 +++| HINC MICRO 1,,*INITIALIZE CRM RECOVERY FILES (NONE OR ALL).*
04341 M01S00065.241l630 +++| MERO MICRO 1,,*ERO = CRF,NO *
04342 M01S00066.241l630 +++| HERO MICRO 1,,*ERROR OVERRIDE (YES OR NO).*
04343 M01S00067.241l630 +++| MBFL MICRO 1,17,*BFL = "CMMBFLM"B *
04344 M01S00068.241l630 +++| HBFL MICRO 1,,*CMM BASE FL ("MINCMMM"B - "MAXCMMM"B).*
04345 M01S00069.241l630 +++| MEFL MICRO 1,17,*EFL = "CMMEFLM"B *
04346 M01S00070.241l630 +++| HEFL MICRO 1,,*CMM EXPANDABLE FL (0 - "MAXCMEM"B).*
04347 M01S00071.241l630 +++| MTFL MICRO 1,17,*TFL = "CMMTFLM"B *
04348 M01S00072.241l630 +++| HTFL MICRO 1,,*CMM TARGET FL ("MINTMEM"B - "MAXTMEM"B).*
04349 M00S03755.tafrec +++| SPACE 4,10
04350 M00S03756.tafrec +++|* *K-DISPLAY* BUFFER FOR THE OPERATOR CONSOLE.
04351 M00S03757.tafrec +++|
04352 M00S03758.tafrec +++|
04353 M00S03759.tafrec +++| KCTRL VFD 24/KBUF,18/0,18/KDIS
| Line S03760 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04354 M01S03760.241l630 ---| KBUF BSS 8 KEYBOARD BUFFER
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04355 M01S00073.241l630 +++| KBUF BSS 5 KEYBOARD BUFFER 04356 M01S00074.241l630 +++| DATA 1L. ALLOW COMMANDS WITHOUT TERMINATOR 04357 M00S03761.tafrec +++| KDIS VFD 12/0,36/0,12/2
| Line S03762 Modification History | |
|---|---|
M01 (Removed by) | ns2157 |
Seq # *Modification Id* Act
----------------------------+
04358 M01S03762.ns2157 ---| DSL 5,6,("HHED")
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04359 M02S00112.241l630 ---| DSL 5,6,("HHEC")
| Line S03763 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04360 M01S03763.241l630 ---| DSL 0,10,("HSCP")
04361 M01S03764.241l630 ---| KSCP DSL 0,11,("MSCP")
04362 M01S03765.241l630 ---| DSL 0,13,("HCMB")
04363 M01S03766.241l630 ---| KCMB DSL 0,14,("MCMB")
04364 M01S03767.241l630 ---| DSL 0,16,("HREC")
04365 M01S03768.241l630 ---| KREC DSL 0,17,("MREC")
04366 M01S03769.241l630 ---| DSL 0,19,("HMFL")
04367 M01S03770.241l630 ---| KMFL DSL 0,20,("MMFL")
04368 M01S03771.241l630 ---| DSL 0,22,("HECS")
04369 M01S03772.241l630 ---| KECS DSL 0,23,("MECS")
04370 M01S03773.241l630 ---| DSL 0,25,("HTLF")
04371 M01S03774.241l630 ---| KTLF DSL 0,26,("MTLF")
04372 M01S03775.241l630 ---| DSL 0,28,("HINT")
04373 M01S03776.241l630 ---| KINT DSL 0,29,("MINT")
04374 M01S03777.241l630 ---| KINC DSL 0,30,("MINC")
04375 M01S03778.241l630 ---| DSL 0,32,("HERO")
04376 M01S03779.241l630 ---| KERO DSL 0,33,("MERO")
| Line S03780 Modification History | |
|---|---|
M01 (Removed by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04377 M02S03780.241l630 ---| DSL 0,35,("HBFL")
04378 M02S03781.241l630 ---| KBFL DSL 0,36,("MBFL")
04379 M02S03782.241l630 ---| DSL 0,39,("HEFL")
04380 M02S03783.241l630 ---| KEFL DSL 0,40,("MEFL")
| Line S03784 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04381 M01S03784.241l630 ---| KILL DSL 0,42,(FORMAT ERROR. )
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04382 M01S00075.241l630 +++| KDL 20,T,("HHEC")
04383 M01S00076.241l630 +++| KDL 6,H,("HOPD")
04384 M01S00077.241l630 +++| KSCP KDL 1,,("MSCP")
04385 M01S00078.241l630 +++| KDL 21,K,("HSCP")
04386 M01S00079.241l630 +++| KCMB KDL 1,,("MCMB")
04387 M01S00080.241l630 +++| KDL 21,K,("HCMB")
04388 M01S00081.241l630 +++| KREC KDL 1,,("MREC")
04389 M01S00082.241l630 +++| KDL 21,K,("HREC")
04390 M01S00083.241l630 +++| KMFL KDL 1,,("MMFL")
04391 M01S00084.241l630 +++| KDL 21,K,("HMFL")
04392 M01S00085.241l630 +++| KECS KDL 1,,("MECS")
04393 M01S00086.241l630 +++| KDL 21,K,("HECS")
04394 M01S00087.241l630 +++| KTLF KDL 1,,("MTLF")
04395 M01S00088.241l630 +++| KDL 21,H,("HTLF")
04396 M01S00089.241l630 +++| KINT KDL 1,,("MINT")
04397 M01S00090.241l630 +++| CHAR 1R[,1R(
04398 M01S00091.241l630 +++| CHAR 1R],1R)
04399 M01S00092.241l630 +++| CODE O
04400 M01S00093.241l630 +++| KDL 21,K,("HINT")
04401 M01S00094.241l630 +++| KDL 21,K,("AINT")
04402 M01S00095.241l630 +++| CODE *
04403 M01S00096.241l630 +++| KINC KDL 1,,("MINC")
04404 M01S00097.241l630 +++| KDL 21,K,("HINC")
04405 M01S00098.241l630 +++| KERO KDL 1,,("MERO")
04406 M01S00099.241l630 +++| KDL 21,H,("HERO")
04407 M01S00100.241l630 +++| KBFL KDL 1,,("MBFL")
04408 M01S00101.241l630 +++| KDL 21,K,("HBFL")
04409 M01S00102.241l630 +++| KEFL KDL 1,,("MEFL")
04410 M01S00103.241l630 +++| KDL 21,K,("HEFL")
04411 M01S00104.241l630 +++| KTFL KDL 1,,("MTFL")
04412 M01S00105.241l630 +++| KDL 21,K,("HTFL")
04413 M01S00106.241l630 +++| KBUF1 KDL 1,I,(
04414 M01S00107.241l630 +++|, )
04415 M01S00108.241l630 +++| KILL KDL 7,M,(FORMAT ERROR. )
04416 M00S03785.tafrec +++| KILL1 BSSZ 2 SPECIFIC ERROR MESSAGE
04417 M00S03786.tafrec +++| BSSZ 1
| Line S03787 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04418 M01S03787.v23l617 ---| KILL2 DSL 0,45,(FORMAT ) DUPLICATE FIRST LINE OF ERROR MESSAGE
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04419 M02S00051.241l630 ---| KILL2 DSL 0,44,(FORMAT ) DUPLICATE FIRST LINE OF ERROR MESSAGE
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04420 M02S00113.241l630 ---|
04421 M02S00114.241l630 ---|* *K-DISPLAY* PAGE 2 OF 2.
04422 M02S00115.241l630 ---|
04423 M02S00116.241l630 ---| SDIS VFD 12/0,36/0,12/2
04424 M02S00117.241l630 ---| DSL 5,6,("HHEF")
04425 M02S00118.241l630 ---| DSL 0,10,("HBFL")
04426 M02S00119.241l630 ---| KBFL DSL 0,11,("MBFL")
04427 M02S00120.241l630 ---| DSL 0,14,("HEFL")
04428 M02S00121.241l630 ---| KEFL DSL 0,15,("MEFL")
04429 M02S00122.241l630 ---| DSL 0,18,("HTFL")
04430 M02S00123.241l630 ---| KTFL DSL 0,19,("MTFL")
04431 M02S00124.241l630 ---| KILL3 DSL 0,42,(FORMAT ERROR. )
04432 M02S00125.241l630 ---| KILL4 BSSZ 2 SPECIFIC ERROR MESSAGE
04433 M02S00126.241l630 ---| BSSZ 1
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04434 M01S00109.241l630 +++| KILL2 KDL 7,M,(FORMAT ) DUPLICATE FIRST LINE OF ERROR MESSAGE 04435 M01S00110.241l630 +++| 04436 M01S00111.241l630 +++|* Y-COORDINATE TABLE. 04437 M01S00112.241l630 +++| 04438 M01S00113.241l630 +++| KPRS KDL * 04439 M00S03788.tafrec +++| SPACE 4,10
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04440 M01S00114.241l630 +++| PRK HERE REMOTE BLOCK FROM *COMCDCP* 04441 M01S00115.241l630 +++| SPACE 4,10 04442 M00S03789.tafrec +++|* *K-DISPLAY* BUFFER FOR REPORT FILE. 04443 M00S03790.tafrec +++|
| Line S03791 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04444 M01S03791.241l630 ---| DISP DATA C* "HHED"* 04445 M01S03792.241l630 ---| DATA 1L 04446 M01S03793.241l630 ---| DATA 1L 04447 M01S03794.241l630 ---| DATA 1L 04448 M01S03795.241l630 ---| DATA C* "HSCP"* 04449 M01S03796.241l630 ---| DIS1 DATA C* "MSCP"* 04450 M01S03797.241l630 ---| DATA 1L 04451 M01S03798.241l630 ---| DATA C* "HCMB"* 04452 M01S03799.241l630 ---| DIS2 DATA C* "MCMB"* 04453 M01S03800.241l630 ---| DATA 1L 04454 M01S03801.241l630 ---| DATA C* "HREC"* 04455 M01S03802.241l630 ---| DIS4 DATA C* "MREC"* 04456 M01S03803.241l630 ---| DATA 1L 04457 M01S03804.241l630 ---| DATA C* "HMFL"* 04458 M01S03805.241l630 ---| DIS5 DATA C* "MMFL"* 04459 M01S03806.241l630 ---| DATA 1L 04460 M01S03807.241l630 ---| DATA C* "HECS"* 04461 M01S03808.241l630 ---| DIS6 DATA C* "MECS"* 04462 M01S03809.241l630 ---| DATA 1L 04463 M01S03810.241l630 ---| DATA C* "HTLF"* 04464 M01S03811.241l630 ---| DIS7 DATA C* "MTLF"* 04465 M01S03812.241l630 ---| DATA 1L 04466 M01S03813.241l630 ---| DATA C* "HINT"* 04467 M01S03814.241l630 ---| DIS8 DATA C* "MINT"* 04468 M01S03815.241l630 ---| DIS9 DATA C* "MINC"* 04469 M01S03816.241l630 ---| DATA 1L 04470 M01S03817.241l630 ---| DATA C* "HERO"* 04471 M01S03818.241l630 ---| DIS10 DATA C* "MERO"* 04472 M01S03819.241l630 ---| DATA 1L 04473 M01S03820.241l630 ---| DATA C* "HBFL"* 04474 M01S03821.241l630 ---| DIS11 DATA C* "MBFL"* 04475 M01S03822.241l630 ---| DATA 1L 04476 M01S03823.241l630 ---| DATA C* "HEFL"* 04477 M01S03824.241l630 ---| DIS12 DATA C* "MEFL"* 04478 M01S03825.241l630 ---| DATA 1L
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | ns2157 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04479 M02S00127.241l630 ---| DATA C* "HTFL"* 04480 M02S00128.241l630 ---| DIS13 DATA C* "MTFL"*
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 04481 M01S00116.241l630 +++| CHAR 1R[,1R( 04482 M01S00117.241l630 +++| CHAR 1R],1R) 04483 M01S00118.241l630 +++| CODE O 04484 M01S00119.241l630 +++| DISP DATA C* "HHEC"* 04485 M01S00120.241l630 +++| DATA 1L 04486 M01S00121.241l630 +++| DATA C* "HOPD"* 04487 M01S00122.241l630 +++| DATA 1L 04488 M01S00123.241l630 +++| DIS1 DATA C* "MSCP" "HSCP"* 04489 M01S00124.241l630 +++| DIS2 DATA C* "MCMB" "HCMB"* 04490 M01S00125.241l630 +++| DIS4 DATA C* "MREC" "HREC"* 04491 M01S00126.241l630 +++| DIS5 DATA C* "MMFL" "HMFL"* 04492 M01S00127.241l630 +++| DIS6 DATA C* "MECS" "HECS"* 04493 M01S00128.241l630 +++| DIS7 DATA C* "MTLF" "HTLF"* 04494 M01S00129.241l630 +++| DATA 1L 04495 M01S00130.241l630 +++| CHAR 1R[,1R( 04496 M01S00131.241l630 +++| CHAR 1R],1R) 04497 M01S00132.241l630 +++| CODE O 04498 M01S00133.241l630 +++| DIS8 DATA C* "MINT" "HINT"* 04499 M01S00134.241l630 +++| DATA C* "AINT"* 04500 M01S00135.241l630 +++| CODE * 04501 M01S00136.241l630 +++| DIS9 DATA C* "MINC" "HINC"* 04502 M01S00137.241l630 +++| DIS10 DATA C* "MERO" "HERO"* 04503 M01S00138.241l630 +++| DATA 1L 04504 M01S00139.241l630 +++| DIS11 DATA C* "MBFL" "HBFL"* 04505 M01S00140.241l630 +++| DIS12 DATA C* "MEFL" "HEFL"* 04506 M01S00141.241l630 +++| DIS13 DATA C* "MTFL" "HTFL"* 04507 M00S03826.tafrec +++| DISPL EQU *-DISP 04508 M00S03827.tafrec +++| TITLE FETS AND COMMON DECKS. 04509 M00S03828.tafrec +++|* FETS USED IN *PRESET*. 04510 M00S03829.tafrec +++| 04511 M00S03830.tafrec +++| TCF BSS 0 *TAF* CONFIGURATION FILE 04512 M00S03831.tafrec +++| TCF FILEB TCBUF,TCBUFL,EPR,FET=13 04513 M00S03832.tafrec +++| 04514 M00S03833.tafrec +++| N BSS 0 NETWORK FILE 04515 M00S03834.tafrec +++| NETWORK FILEB NBUF,NBUFL,EPR,FET=12 04516 M00S03835.tafrec +++| 04517 M00S03836.tafrec +++| 04518 M00S03837.tafrec +++|* TAGS NEEDED FOR ASSEMBLY OF *COMCRTN*. 04519 M00S03838.tafrec +++| 04520 M00S03839.tafrec +++| VBPT EQU 3 ADDITIONAL PLT WORDS FOR HIGH SPEED LINES 04521 M00S03840.tafrec +++| ABMA CON 0 NUMBER OF ADDITIONAL HIGH SPEED LINES 04522 M00S03841.tafrec +++| SPACE 4,10 04523 M00S03842.tafrec +++|* COMMON DECKS USED IN *PRESET*. 04524 M00S03843.tafrec +++| 04525 M00S03844.tafrec +++|*CALL COMSNET 04526 M00S03845.tafrec +++|*CALL COMCARG 04527 M00S03846.tafrec +++|*CALL COMCRDC 04528 M00S03847.tafrec +++|*CALL COMCRDS 04529 M00S03848.tafrec +++|*CALL COMCRTN 04530 M00S03849.tafrec +++|*CALL COMCUPC 04531 M00S03850.tafrec +++| SPACE 4,10 04532 M00S03851.tafrec +++| ENDP EQU * END OF PRESET CODE 04533 M00S03852.tafrec +++| BUFFERS TITLE BUFFERS. 04534 M00S03853.tafrec +++|* BUFFERS. 04535 M00S03854.tafrec +++|
| Line S03855 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04536 M01S03855.ns2023 ---| TRBUF EQU PRS *TAF* RECOVERY FILE
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04537 M01S00191.ns2023 +++| TRBUF EQU PRS COMMUNICATIONS RECOVERY FILE 04538 M00S03856.tafrec +++| TRBUFL EQU 7*64+2 04539 M00S03857.tafrec +++|
| Line S03858 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04540 M01S03858.ns2023 ---| TABUF EQU TRBUF+TRBUFL ALTERNATE *TAF* RECOVERY FILE
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04541 M01S00192.ns2023 +++| TABUF EQU TRBUF+TRBUFL ALTERNATE RECOVERY FILE 04542 M00S03859.tafrec +++| TABUFL EQU 7*64+1 04543 M00S03860.tafrec +++| 04544 M00S03861.tafrec +++| PBUF EQU TABUF+TABUFL PRU BUFFER 04545 M00S03862.tafrec +++| PBUFL EQU 7*64 04546 M00S03863.tafrec +++| 04547 M00S03864.tafrec +++| DIR EQU PBUF+PBUFL DIRECTORY OF RECOVERY UNITS 04548 M00S03865.tafrec +++| DIRL EQU RUDL*IPTST 04549 M00S03866.tafrec +++| 04550 M00S03867.tafrec +++| TCBUF EQU ENDP *TAF* CONFIGURATION FILE 04551 M00S03868.tafrec +++| TCBUFL EQU 2*64+1 04552 M00S03869.tafrec +++| 04553 M00S03870.tafrec +++| NBUF EQU TCBUF+TCBUFL NETWORK FILE 04554 M00S03871.tafrec +++| NBUFL EQU 4*64+1 04555 M00S03872.tafrec +++| 04556 M00S03873.tafrec +++| BRTN EQU NBUF+NBUFL SCRATCH AREA FOR *COMCRTN* 04557 M00S03874.tafrec +++| BRTNL EQU IPTST 04558 M00S03875.tafrec +++| 04559 M00S03876.tafrec +++| TBUF EQU BRTN+BRTNL TAF INITIALIZATION FILE 04560 M00S03877.tafrec +++| TBUFL EQU 3*64+1 04561 M00S03878.tafrec +++| 04562 M00S03879.tafrec +++| RBUF EQU TBUF+TBUFL RECOVERY REPORT FILE 04563 M00S03880.tafrec +++| RBUFL EQU 4*64+1 04564 M00S03881.tafrec +++| 04565 M00S03882.tafrec +++| RWSA EQU RBUF+RBUFL *WSA* FOR REPORT FILE 04566 M00S03883.tafrec +++| RWSAL EQU 8 04567 M00S03884.tafrec +++| 04568 M00S03885.tafrec +++| TSTLW EQU RWSA+RWSAL TERMINAL STATUS TABLE LENGTH WORD 04569 M00S03886.tafrec +++| TSTHD EQU TSTLW+1 TST HEADER 04570 M00S03887.tafrec +++| TST EQU TSTHD+TTFTL START OF TST 04571 M00S03888.tafrec +++| TSTL EQU TSTLLE*IPTST STORAGE FOR TST 04572 M00S03889.tafrec +++| 04573 M00S03890.tafrec +++| RFL= EQU TST+TSTL 04574 M00S03891.tafrec +++| 04575 M00S03892.tafrec +++| END
cdc/nos2.source/opl.opl871/deck/tafrec.002.txt · Last modified: by 127.0.0.1