cdc:nos2.source:opl.opl871:deck:1mt.014
Deck 1MT Part 014
92 Modifications
Listing Sections
- Deck 1MT Start
- Deck 1MT Part 1 (Line 1462)
- Deck 1MT Part 2 (Line 2674)
- Deck 1MT Part 3 (Line 4017)
- Deck 1MT Part 4 (Line 5073)
- Deck 1MT Part 5 (Line 6369)
- Deck 1MT Part 6 (Line 7796)
- Deck 1MT Part 7 (Line 9269)
- Deck 1MT Part 8 (Line 10478)
- Deck 1MT Part 9 (Line 11579)
- Deck 1MT Part 10 (Line 12640)
- Deck 1MT Part 11 (Line 13801)
- Deck 1MT Part 12 (Line 15216)
- Deck 1MT Part 13 (Line 16607)
- Deck 1MT Part 14 (Line 18062)
- Deck 1MT Part 15 (Line 19541)
- Deck 1MT Part 16 (Line 20933)
- Deck 1MT Part 17 (Line 22793)
- Deck 1MT Part 18 (Line 24082)
- Deck 1MT Part 19 (Line 25232)
- Deck 1MT Part 20 (Line 26664)
- Deck 1MT Part 21 (Line 28010)
- Deck 1MT Part 22 (Line 28907)
- Deck 1MT Part 23 (Line 30276)
- Deck 1MT Part 24 (Line 31850)
- Deck 1MT Part 25 (Line 33112)
- Deck 1MT Part 26 (Line 34430)
- Deck 1MT Part 27 (Line 35774)
- Deck 1MT Part 28 (Line 37108)
Source
Seq # *Modification Id* Act ----------------------------+ 18062 M00S10452.1mt +++| LDN 1 DO NOT SET EOF BIT 18063 M00S10453.1mt +++| STM EOFA 18064 M00S10454.1mt +++| EOF13 LDM CIOE RETURN CIO CODE 18065 M00S10455.1mt +++| LPC 774 18066 M00S10456.1mt +++| ADC 31 SET EOR AND EOF BITS 18067 M00S10457.1mt +++|* ADC 1031 (EOI ENCOUNTERED) 18068 M00S10458.1mt +++|* ADC 1 (POSITION BACKWARD) 18069 M00S10459.1mt +++| EOFA EQU *-1 18070 M00S10460.1mt +++| STD PB 18071 M00S10461.1mt +++| EOF14 LDN 74 SET LEVEL 17 18072 M00S10462.1mt +++| STD PA 18073 M00S10463.1mt +++| LDD FM
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18074 M01S00894.282l826 +++| SHN -6 18075 M00S10464.1mt +++| LMN /MTX/TFS 18076 M00S10465.1mt +++| ZJN EOF15 IF S FORMAT 18077 M00S10466.1mt +++| LMN /MTX/TFL&/MTX/TFS 18078 M00S10467.1mt +++| NJN EOF16 IF NOT L FORMAT 18079 M00S10468.1mt +++| EOF15 LDM CIOE 18080 M00S10469.1mt +++| LPC 774 18081 M00S10470.1mt +++| LMC 260 18082 M00S10471.1mt +++| NJN EOF16 IF NOT 260 READ CODE 18083 M00S10472.1mt +++| LDD PB 18084 M00S10473.1mt +++| LPC 1000 18085 M00S10474.1mt +++| LMC 271 18086 M00S10475.1mt +++| STD PB
| Line S10476 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18087 M01S10476.282l826 ---| EOF16 LDN /MTX/BEI 18088 M01S10477.282l826 ---| LJM RET3 RETURN ERROR CODE
| Line S00895 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18089 M01S00895.282l826 +++| EOF16 LJM RBE RETURN *BEI* ERROR 18090 M00S10478.1mt +++| EFO SPACE 4,10 18091 M00S10479.1mt +++|** EFO - PROCESS EOF2 - EOF9. 18092 M00S10480.1mt +++|* 18093 M00S10481.1mt +++|* CALLS CLA. 18094 M00S10482.1mt +++| 18095 M00S10483.1mt +++| 18096 M00S10484.1mt +++| EFO SUBR ENTRY/EXIT 18097 M00S10485.1mt +++| RJM CLA CHECK LABEL 18098 M00S10486.1mt +++| NJN EFO1 IF BAD LABEL 18099 M00S10487.1mt +++| LDM BUF 18100 M00S10488.1mt +++| LMC 2REO 18101 M00S10489.1mt +++| NJN EFO1 IF NOT *EO* 18102 M00S10490.1mt +++| LDC 2RF2 18103 M00S10491.1mt +++| ADD PA 18104 M00S10492.1mt +++| LMM BUF+1 18105 M00S10493.1mt +++| NJN EFO1 IF NOT *FN* 18106 M00S10494.1mt +++| AOD PA INCREMENT TO NEXT LABEL 18107 M00S10495.1mt +++| LMN 9D 18108 M00S10496.1mt +++| NJN EFOX IF NOT ALL POSSIBLE LABELS SKIPPED 18109 M00S10497.1mt +++| EFO1 LDN 0 18110 M00S10498.1mt +++| STD PA 18111 M00S10499.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18112 M00S10500.1mt +++| EOV SPACE 4,10 18113 M00S10501.1mt +++|** EOV - PROCESS *EOV1*. 18114 M00S10502.1mt +++|*
| Line S10503 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18115 M01S10503.282l826 ---|* CALLS CBC, CCM, CLA, UAD.
| Line S00896 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18116 M01S00896.282l826 +++|* CALLS CBC, CIF, CLA, UAD. 18117 M00S10504.1mt +++| 18118 M00S10505.1mt +++| 18119 M00S10506.1mt +++| EOV SUBR ENTRY/EXIT 18120 M00S10507.1mt +++| RJM CLA CHECK LABEL 18121 M00S10508.1mt +++| NJN EOV1 IF BAD LABEL 18122 M00S10509.1mt +++| LDM BUF 18123 M00S10510.1mt +++| LMC 2REO 18124 M00S10511.1mt +++| NJN EOV1 IF NOT *EO* 18125 M00S10512.1mt +++| LDM BUF+1 18126 M00S10513.1mt +++| LMC 2RV1 18127 M00S10514.1mt +++| ZJN EOV2 IF *EOV1*
| Line S10515 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18128 M01S10515.282l826 ---| EOV1 RJM CCM CHECK CONVERSION MODE 18129 M01S10516.282l826 ---| .EEOV BSS 0
| Line S10517 Modification History | |
|---|---|
M01 (Removed by) | 1mt16 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18130 M02S10517.282l826 ---| LDN /MTX/LCE LABEL CONTENT ERROR
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1mt16 |
M02 (Removed by) | 274l797 |
M03 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18131 M03S00002.282l826 ---| LDD FM CHECK TAPE FORMAT 18132 M03S00003.282l826 ---| SBN /MTX/TFSI+1 18133 M03S00004.282l826 ---| MJN EOV1.1 IF I/SI FORMAT
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1mt16 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18134 M02S00005.282l826 ---| LJM EOF0 PROCESS END OF FILE
| Line S04350 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18135 M02S04350.282l826 ---| EOVA EQU *-2 18136 M02S04351.282l826 ---|* UJN EOV1.1 (I, SI, LI FORMAT)
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1mt16 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18137 M02S00006.282l826 ---| 18138 M02S00007.282l826 ---| EOV1.1 LDN /MTX/LCE LABEL CONTENT ERROR
| Line S00897 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18139 M01S00897.282l826 +++| EOV1 RJM CIF CHECK INTERNAL TAPE FORMAT 18140 M01S00898.282l826 +++| NJP EOF0 IF NOT INTERNAL FORMAT 18141 M01S00899.282l826 +++| LDN /MTX/LCE LABEL CONTENT ERROR 18142 M00S10518.1mt +++| LJM RET3 RETURN ERROR CODE 18143 M00S10519.1mt +++| 18144 M00S10520.1mt +++| EOV2 LDD PB 18145 M00S10521.1mt +++| SHN -6
| Line S10522 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18146 M01S10522.282l826 ---| SBN 6
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18147 M01S00900.282l826 +++| SBN /MTX/RLCF/100 18148 M00S10523.1mt +++| NJN EOV3 IF NOT CLOSE 18149 M00S10524.1mt +++| LJM EOV7 INCREMENT TO NEXT SECTION 18150 M00S10525.1mt +++| 18151 M00S10526.1mt +++| EOV3 PJN EOV4 IF MULTI-FILE OPERATION 18152 M00S10527.1mt +++| RJM CBC CHECK BLOCK COUNT 18153 M00S10528.1mt +++| 18154 M00S10529.1mt +++|* ENTER HERE FOR UNLABELED END OF REEL. 18155 M00S10530.1mt +++| 18156 M00S10531.1mt +++| EOV4 LDM FETO 18157 M00S10532.1mt +++| SHN 21-11 18158 M00S10533.1mt +++| PJN EOV5 IF USER NOT PROCESSING END OF REEL 18159 M00S10534.1mt +++| LDM CIOE SET TO RETURN END OF REEL STATUS 18160 M00S10535.1mt +++| LPC 774 18161 M00S10536.1mt +++| LMC 2001 18162 M00S10537.1mt +++| STD PB 18163 M00S10538.1mt +++| LDN 0 18164 M00S10539.1mt +++| STD PA
| Line S10540 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18165 M01S10540.282l826 ---| LDN /MTX/BEI 18166 M01S10541.282l826 ---| LJM RET3 RETURN ERROR CODE
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18167 M01S00901.282l826 +++| LJM RBE RETURN *BEI* ERROR 18168 M00S10542.1mt +++| 18169 M00S10543.1mt +++| EOV5 LDD PB 18170 M00S10544.1mt +++| SHN -6
| Line S10545 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18171 M01S10545.282l826 ---| SBN 7
| Line S00902 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18172 M01S00902.282l826 +++| SBN /MTX/RLCM/100 18173 M00S10546.1mt +++| MJN EOV6 IF NOT *POSMF* 18174 M00S10547.1mt +++| LDC 4000 SET *EOV1* ENCOUNTERED DURING *POSMF* 18175 M00S10548.1mt +++| RAD PA 18176 M00S10549.1mt +++| EOV6 RJM UAD CHECK IF VSNS DECLARED 18177 M00S10550.1mt +++| ADN /MTX/UUFN 18178 M00S10551.1mt +++| CRD CM 18179 M00S10552.1mt +++| LDD FM
| Line S00903 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18180 M01S00903.282l826 +++| SHN -6
| Line S10553 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18181 M01S10553.274l797 ---| LMN /MTX/TFI
| Line S04352 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18182 M01S04352.274l797 +++| SBN /MTX/TFI 18183 M00S10554.1mt +++| ZJN EOV7 IF I FORMAT
| Line S04353 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18184 M01S04353.274l797 +++| SBN /MTX/TFLI-/MTX/TFI 18185 M01S04354.274l797 +++| ZJN EOV7 IF LI FORMAT 18186 M00S10555.1mt +++| LDD CM+4
| Line S10556 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 18187 M01S10556.ns22000 ---| SHN -6 18188 M00S10557.1mt +++| ZJN EOV8 IF NOT INTERNALLY WRITTEN TAPE
| Line S10558 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18189 M01S10558.282l826 ---| LDD UP 18190 M01S10559.282l826 ---| SHN -10 18191 M01S10560.282l826 ---| LMN 10
| Line S00904 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18192 M01S00904.282l826 +++| LDD LT 18193 M01S00905.282l826 +++| SHN -11 18194 M01S00906.282l826 +++| LPN 3 18195 M01S00907.282l826 +++| LMN 2 18196 M00S10561.1mt +++| NJN EOV8 IF NOT ANSI LABEL 18197 M00S10562.1mt +++| EOV7 AOD PB INCREMENT TO NEXT SECTION 18198 M00S10563.1mt +++| LJM EOVX RETURN 18199 M00S10564.1mt +++| 18200 M00S10565.1mt +++| EOV8 LJM EVO2 CLEAR VSN FIELD 18201 M00S10566.1mt +++| ETC SPACE 4,10 18202 M00S10567.1mt +++|** ETC - END OF TAPE CHECK.
| Line S00908 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18203 M01S00908.282l826 +++|* 18204 M01S00909.282l826 +++|* CALLS CIF. 18205 M00S10568.1mt +++| 18206 M00S10569.1mt +++| 18207 M00S10570.1mt +++| ETC3 AOD PB INCREMENT TO NEXT SECTION 18208 M00S10571.1mt +++| 18209 M00S10572.1mt +++| ETC SUBR ENTRY/EXIT
| Line S10573 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18210 M01S10573.282l826 ---| LDD UP 18211 M01S10574.282l826 ---| SHN -10 18212 M01S10575.282l826 ---| LPN 4 18213 M01S10576.282l826 ---| NJN ETC2 IF NON-STANDARD LABEL
| Line S00910 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18214 M01S00910.282l826 +++| LDD LT 18215 M01S00911.282l826 +++| SHN 21-11 18216 M01S00912.282l826 +++| MJN ETC2 IF NON-STANDARD LABEL 18217 M00S10577.1mt +++| LDD SP 18218 M00S10578.1mt +++| SHN -12 18219 M00S10579.1mt +++| NJN ETC1 IF NOT READ TO TRAILER LABEL
| Line S04355 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18220 M01S04355.274l797 +++| ETCA EQU *-1 18221 M01S04356.274l797 +++|* PSN 0 ALWAYS PO = S FOR CTS
| Line S10580 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18222 M01S10580.282l826 ---| LDD UP 18223 M01S10581.282l826 ---| SHN -10 18224 M01S10582.282l826 ---| NJN ETC3 IF LABELED 18225 M01S10583.282l826 ---| LDD FM 18226 M01S10584.282l826 ---| SBN /MTX/TFSI+1 18227 M01S10585.282l826 ---| MJN ETC3 IF INTERNAL FORMATS
| Line S04357 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18228 M02S04357.282l826 ---| SBN /MTX/TFLI-/MTX/TFSI-1 18229 M02S04358.282l826 ---| ZJN ETC3 IF LI FORMAT
| Line S00913 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18230 M01S00913.282l826 +++| LDD LT 18231 M01S00914.282l826 +++| SHN 21-12 18232 M01S00915.282l826 +++| MJN ETC3 IF LABELED 18233 M01S00916.282l826 +++| RJM CIF CHECK INTERNAL TAPE FORMAT 18234 M01S00917.282l826 +++| ZJN ETC3 IF INTERNAL FORMAT 18235 M00S10586.1mt +++| ETC1 LDM ETC SET EXIT ADDRESS 18236 M00S10587.1mt +++| STM EOV 18237 M00S10588.1mt +++| LJM EOV4 RETURN END OF REEL STATUS 18238 M00S10589.1mt +++| 18239 M00S10590.1mt +++| ETC2 LDD DS CHECK FOR END OF TAPE 18240 M00S10591.1mt +++| LPN 10 18241 M00S10592.1mt +++| NJN ETC1 IF END OF TAPE 18242 M00S10593.1mt +++| LJM EOF10 RETURN EOI 18243 M00S10594.1mt +++| EVO SPACE 4,10 18244 M00S10595.1mt +++|** EVO - PROCESS *EOV2*. 18245 M00S10596.1mt +++|*
| Line S10597 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18246 M01S10597.282l826 ---|* THE MOUNT FLAG IS SET ONLY IF AN *EOV2* LABEL IS 18247 M01S10598.282l826 ---|* PRESENT. THIS IS TO INDICATE WHETHER OR NOT THE 18248 M01S10599.282l826 ---|* VSN FILE IS TO BE SEARCHED FOR THE NEXT VSN.
| Line S00918 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18249 M01S00918.282l826 +++|* IF AN *EOV2* LABEL IS PRESENT, THE NEXT VSN WILL BE RETURNED 18250 M01S00919.282l826 +++|* TO THE UDT. 18251 M00S10600.1mt +++|*
| Line S10601 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18252 M01S10601.282l826 ---|* CALLS CCH, CLA, FCH, WUD.
| Line S00920 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18253 M01S00920.282l826 +++|* CALLS CLA, UAD, WUD. 18254 M00S10602.1mt +++| 18255 M00S10603.1mt +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18256 M01S00001.1mt43 +++| EVO5 AOD PB INCREMENT SECTION 18257 M01S00002.1mt43 +++| 18258 M00S10604.1mt +++| EVO SUBR ENTRY/EXIT 18259 M00S10605.1mt +++| RJM CLA CHECK LABEL 18260 M00S10606.1mt +++| LDM BUF 18261 M00S10607.1mt +++| LMC 2REO 18262 M00S10608.1mt +++| NJN EVO2 IF NOT *EO* 18263 M00S10609.1mt +++| LDM BUF+1 18264 M00S10610.1mt +++| LMC 2RV2 18265 M00S10611.1mt +++| NJN EVO2 IF NOT *EOV2*
| Line S10612 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18266 M01S10612.282l826 ---| LDN 5 SET POSITION OF VSN IN LABEL 18267 M01S10613.282l826 ---| STD T6 18268 M01S10614.282l826 ---| LDN 11D SET POSITION IN UDT BUFFER 18269 M01S10615.282l826 ---| STD T7 18270 M01S10616.282l826 ---| LDN 6 COPY VSN 18271 M01S10617.282l826 ---| RJM CCH 18272 M00S10618.1mt +++| LDD PB 18273 M00S10619.1mt +++| SHN -6
| Line S10620 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18274 M01S10620.282l826 ---| LMN 6
| Line S00921 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18275 M01S00921.282l826 +++| LMN /MTX/RLCF/100
| Line S10621 Modification History | |
|---|---|
M01 (Removed by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18276 M01S10621.1mt43 ---| ZJN EVO3 IF CLOSE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18277 M01S00003.1mt43 +++| ZJN EVO5 IF CLOSE
| Line S10622 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18278 M01S10622.282l826 ---| AOM UDTB+10 SET MOUNT FLAG
| Line S10623 Modification History | |
|---|---|
M01 (Removed by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18279 M01S10623.1mt43 ---| EVO1 RJM WUD UPDATE UDT INFORMATION 18280 M01S10624.1mt43 ---| LJM RET1 EXIT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18281 M01S00004.1mt43 +++| UJN EVO3 UPDATE UDT INFORMATION 18282 M00S10625.1mt +++|
| Line S10626 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18283 M01S10626.282l826 ---|* ENTER HERE TO CLEAR VSN FIELD.
| Line S00922 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18284 M01S00922.282l826 +++|* ENTER HERE IF NOT TO RETURN NEXT VSN. 18285 M00S10627.1mt +++|
| Line S10628 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18286 M01S10628.282l826 ---| EVO2 LDN 11D SET UP TO CLEAR VSN FIELD 18287 M01S10629.282l826 ---| STD T7 18288 M01S10630.282l826 ---| LDN 6 FILL VSN FIELD 18289 M01S10631.282l826 ---| RJM FCH 18290 M01S10632.282l826 ---| LDD PB
| Line S00923 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18291 M01S00923.282l826 +++| EVO2 LDD PB 18292 M00S10633.1mt +++| SHN -6
| Line S10634 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18293 M01S10634.282l826 ---| LMN 6
| Line S10635 Modification History | |
|---|---|
M01 (Removed by) | 1mt43 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18294 M02S10635.282l826 ---| NJN EVO1 IF NOT CLOSE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18295 M02S00005.282l826 ---| NJN EVO3 IF NOT CLOSE
| Line S00924 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18296 M01S00924.282l826 +++| LMN /MTX/RLCF/100 18297 M01S00925.282l826 +++| NJN EVO4 IF NOT CLOSE 18298 M00S10636.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18299 M00S10637.1mt +++|
| Line S10638 Modification History | |
|---|---|
M01 (Removed by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18300 M01S10638.1mt43 ---| EVO3 AOD PB INCREMENT SECTION 18301 M01S10639.1mt43 ---| LJM EVOX RETURN
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18302 M01S00006.1mt43 +++| EVO3 RJM WUD UPDATE UDT INFORMATION 18303 M01S00007.1mt43 +++| ZJN EVO4 IF NOT AT MAGNET CP
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18304 M02S00008.282l826 ---| SBK /MTX/UUDTL+/MTX/UUFN-/MTX/UESN GET EXTERNAL VSN
| Line S00926 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18305 M01S00926.282l826 +++| SBK /MTX/UUDTL+/MTX/UUFN-/MTX/UVRI
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18306 M01S00009.1mt43 +++| CRD CM
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
M02 (Removed by) | 1mt43a |
Seq # *Modification Id* Act ----------------------------+ 18307 M02S00010.1mt43a ---| ADK /MTX/UVSN-/MTX/UESN GET INTERNAL VSN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt43a |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18308 M02S00001.282l826 ---| ADK /MTX/UTMS-/MTX/UESN 18309 M02S00002.282l826 ---| CRD T1 18310 M02S00003.282l826 ---| ADK /MTX/UVSN-/MTX/UTMS GET INTERNAL VSN
| Line S00927 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18311 M01S00927.282l826 +++| ADK /MTX/UISN-/MTX/UVRI
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18312 M01S00011.1mt43 +++| CRD CN
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1mt43a |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18313 M02S00004.282l826 ---| LDD T1+4 18314 M02S00005.282l826 ---| SHN 21-13 18315 M02S00006.282l826 ---| MJN EVO4 IF TMS CONTROLLED TAPE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18316 M02S00012.282l826 ---| LDD CM+3 18317 M02S00013.282l826 ---| STD CN+3 18318 M02S00014.282l826 ---| LDD CM+4 18319 M02S00015.282l826 ---| STD CN+4 18320 M02S00016.282l826 ---| RJM UAD PRESET EXTERNAL VSN TO INTERNAL 18321 M02S00017.282l826 ---| ADK /MTX/UESN
| Line S00928 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18322 M01S00928.282l826 +++| LDM BUF+2 SET NEXT INTERNAL VSN 18323 M01S00929.282l826 +++| STD CN 18324 M01S00930.282l826 +++| LDM BUF+3 18325 M01S00931.282l826 +++| STD CN+1 18326 M01S00932.282l826 +++| LDM BUF+4 18327 M01S00933.282l826 +++| STD CN+2 18328 M01S00934.282l826 +++| LDD CM+4 SET VSN FROM *EOV2* LABEL FLAG 18329 M01S00935.282l826 +++| SCN 10 18330 M01S00936.282l826 +++| LMN 10 18331 M01S00937.282l826 +++| STD CM+4 18332 M01S00938.282l826 +++| RJM UAD UPDATE UDT 18333 M01S00939.282l826 +++| ADK /MTX/UVRI 18334 M01S00940.282l826 +++| CWD CM 18335 M01S00941.282l826 +++| ADK /MTX/UISN-/MTX/UVRI
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 1mt43 |
Seq # *Modification Id* Act ----------------------------+ 18336 M01S00018.1mt43 +++| CWD CN 18337 M01S00019.1mt43 +++| EVO4 LJM RET1 EXIT 18338 M00S10640.1mt +++| HDR SPACE 4,10 18339 M00S10641.1mt +++|** HDR - PROCESS *HDR1*. 18340 M00S10642.1mt +++|*
| Line S10643 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18341 M01S10643.282l826 ---|* CALLS CLA, CSC, GCD, GCH, /MFP/PHD, SCH, THL, VOL, WUD.
| Line S00942 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18342 M01S00942.282l826 +++|* CALLS CLA, CSC, GCD, GCH, /MFP/PHD, THL, VOL, WUD. 18343 M00S10644.1mt +++| 18344 M00S10645.1mt +++| 18345 M00S10646.1mt +++| HDR10 LDN /MTX/LAM LABEL MISSING 18346 M00S10647.1mt +++| LJM RET3 RETURN ERROR CODE 18347 M00S10648.1mt +++| 18348 M00S10649.1mt +++| HDR SUBR ENTRY/EXIT 18349 M00S10650.1mt +++| RJM CLA CHECK LABEL 18350 M00S10651.1mt +++| ZJN HDR2 IF GOOD LABEL 18351 M00S10652.1mt +++| HDR1 LDD PB 18352 M00S10653.1mt +++| SHN -6 18353 M00S10654.1mt +++| NJN HDR10 IF NOT INITIAL LABEL CHECK
| Line S00943 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18354 M01S00943.282l826 +++| ERRNZ /MTX/RLCL 18355 M00S10655.1mt +++| STD PB SET TO RESTART SEQUENCE 18356 M00S10656.1mt +++| STM BUF 18357 M00S10657.1mt +++| RJM VOL 18358 M00S10658.1mt +++| UJN HDRX RETURN 18359 M00S10659.1mt +++| 18360 M00S10660.1mt +++| HDR2 LDM BUF CHECK FOR *HDR1* 18361 M00S10661.1mt +++| LMC 2RHD 18362 M00S10662.1mt +++| NJN HDR1 IF NOT *HD* 18363 M00S10663.1mt +++| LDM BUF+1 18364 M00S10664.1mt +++| LMC 2RR1 18365 M00S10665.1mt +++| NJN HDR1 IF NOT *HDR1*
| Line S10666 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18366 M01S10666.282l826 ---| LDN 18D SET LABEL NOT EXPIRED AND CLEAR MOUNT FLAG 18367 M01S10667.282l826 ---| STD T7 18368 M01S10668.282l826 ---| LDN 0 18369 M01S10669.282l826 ---| RJM SCH
| Line S00944 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18370 M01S00944.282l826 +++| LDM UDTB+10 CLEAR LABEL EXPIRED 18371 M01S00945.282l826 +++| SCN 2 18372 M01S00946.282l826 +++| STM UDTB+10 18373 M00S10670.1mt +++| RJM WUD 18374 M00S10671.1mt +++| LDD PB CHECK IF MULTI FILE 18375 M00S10672.1mt +++| SHN -6
| Line S10673 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18376 M01S10673.282l826 ---| SBN 7
| Line S00947 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18377 M01S00947.282l826 +++| SBN /MTX/RLCM/100 18378 M00S10674.1mt +++| MJN HDR3 IF NOT MULTI FILE 18379 M00S10675.1mt +++| RJM /MFP/PHD 18380 M00S10676.1mt +++| UJN HDR4 CHECK SYSTEM CODE 18381 M00S10677.1mt +++| 18382 M00S10678.1mt +++| HDR3 ADN 7 DETERMINE WHETHER TO TRANSFER HEADER 18383 M00S10679.1mt +++| NJN HDR4 IF NOT INITIAL LABEL CHECK 18384 M00S10680.1mt +++| RJM THL TRANSFER HEADER LABEL 18385 M00S10681.1mt +++| HDR4 RJM CSC CHECK SYSTEM CODE 18386 M00S10682.1mt +++| ZJN HDR5 IF INTERNALLY WRITTEN TAPE 18387 M00S10683.1mt +++| LDN 0 CLEAR EST FIELD 18388 M00S10684.1mt +++| STD T3 18389 M00S10685.1mt +++| UJN HDR6 CLEAR EST WRITTEN ON FIELD IN UDT 18390 M00S10686.1mt +++| 18391 M00S10687.1mt +++| HDR5 LDC 71D CONVERT EST WRITTEN ON 18392 M00S10688.1mt +++| STD T6 18393 M00S10689.1mt +++| RJM GCH 18394 M00S10690.1mt +++| SBN 1R0
| Line S10691 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 18395 M01S10691.ns22000 ---| SHN 11
| Line S00248 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 18396 M01S00248.ns22000 +++| SHN 3 18397 M00S10692.1mt +++| STD T3 18398 M00S10693.1mt +++| RJM GCH 18399 M00S10694.1mt +++| SBN 1R0
| Line S10695 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 18400 M01S10695.ns22000 ---| SHN 6 18401 M00S10696.1mt +++| RAD T3
| Line S10697 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 18402 M01S10697.ns22000 ---| HDR6 LDM UDTB+4 SAVE EST WRITTEN ON 18403 M01S10698.ns22000 ---| LPN 77 18404 M01S10699.ns22000 ---| LMD T3
| Line S00249 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 18405 M01S00249.ns22000 +++| RJM GCH GET POSSIBLE THIRD CHARACTER 18406 M01S00250.ns22000 +++| SBN 1R0 18407 M01S00251.ns22000 +++| STD T6 18408 M01S00252.ns22000 +++| LMN 1R -1R0 18409 M01S00253.ns22000 +++| ZJN HDR6 IF TWO DIGIT EST ORDINAL 18410 M01S00254.ns22000 +++| LDD T3 18411 M01S00255.ns22000 +++| SHN 3 18412 M01S00256.ns22000 +++| LMD T6 18413 M01S00257.ns22000 +++| STD T3 18414 M01S00258.ns22000 +++| HDR6 LDD T3 SAVE EST WRITTEN ON
| Line S10700 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18415 M01S10700.282l826 ---| STM UDTB+4
| Line S00948 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18416 M01S00948.282l826 +++| STM UDTB+5*5+1 18417 M00S10701.1mt +++| LDN JDAL READ TODAYS DATE 18418 M00S10702.1mt +++| CRD CN 18419 M00S10703.1mt +++| LDN 49D SET POSITION IN SOURCE BUFFER 18420 M00S10704.1mt +++| STD T6 18421 M00S10705.1mt +++| LDN CN SET DESTINATION BUFFER ADDRESS 18422 M00S10706.1mt +++| STM DBUF 18423 M00S10707.1mt +++| LDN 6 18424 M00S10708.1mt +++| STD T7 18425 M00S10709.1mt +++| LDN 5 18426 M00S10710.1mt +++| STD T2
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 18427 M01S00001.ns2786 +++| LDN 1R7 SET CENTURY CROSSOVER 18428 M01S00002.ns2786 +++| STD T0 18429 M00S10711.1mt +++| HDR7 RJM GCH GET EXPIRATION DATE CHARACTER
| Line S10712 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 18430 M01S10712.ns2786 ---| STD T4
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 18431 M01S00003.ns2786 +++| SBD T0 CHECK CENTURY 18432 M01S00004.ns2786 +++| PJN HDR7.1 IF NOT 21ST CENTURY 18433 M01S00005.ns2786 +++| ADN 10D ADJUST DECADE FOR 21ST CENTURY 18434 M01S00006.ns2786 +++| HDR7.1 STD T4 18435 M00S10713.1mt +++| RJM GCD GET TODAYS DATE CHARACTER
| Line S10714 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 18436 M01S10714.ns2786 ---| SBD T4
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 18437 M01S00007.ns2786 +++| SBD T0 CHECK CENTURY 18438 M01S00008.ns2786 +++| PJN HDR7.2 IF NOT 21ST CENTURY 18439 M01S00009.ns2786 +++| ADN 10D ADJUST DECADE FOR 21ST CENTURY 18440 M01S00010.ns2786 +++| HDR7.2 SBD T4 18441 M00S10715.1mt +++| NJN HDR8 IF NO MORE COMPARES REQUIRED
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 18442 M01S00011.ns2786 +++| STD T0 CLEAR CENTURY CROSSOVER 18443 M00S10716.1mt +++| SOD T2 18444 M00S10717.1mt +++| NJN HDR7 IF MORE CHARACTERS TO COMPARE 18445 M00S10718.1mt +++| HDR8 MJN HDR9 IF NOT EXPIRED 18446 M00S10719.1mt +++| LDN 2 SET LABEL EXPIRED 18447 M00S10720.1mt +++| RAM UDTB+10 18448 M00S10721.1mt +++| HDR9 RJM WUD WRITE UDT INFORMATION 18449 M00S10722.1mt +++| LDN 0 INCREMENT TO NEXT SECTION 18450 M00S10723.1mt +++| STD PA 18451 M00S10724.1mt +++| AOD PB 18452 M00S10725.1mt +++| LJM HDRX RETURN 18453 M00S10726.1mt +++| OHD SPACE 4,10 18454 M00S10727.1mt +++|** OHD - PROCESS *HDR2 - HDR9* OPTIONAL VOLUME LABELS. 18455 M00S10728.1mt +++|* 18456 M00S10729.1mt +++|* CALLS CLA. 18457 M00S10730.1mt +++| 18458 M00S10731.1mt +++| 18459 M00S10732.1mt +++| OHD SUBR ENTRY/EXIT 18460 M00S10733.1mt +++| RJM CLA CHECK LABEL 18461 M00S10734.1mt +++| NJN OHD1 IF BAD LABEL 18462 M00S10735.1mt +++| LDM BUF 18463 M00S10736.1mt +++| LMC 2RHD 18464 M00S10737.1mt +++| NJN OHD1 IF NOT *HD* 18465 M00S10738.1mt +++| LDC 2RR2 18466 M00S10739.1mt +++| SBM BUF+1 18467 M00S10740.1mt +++| ADD PA 18468 M00S10741.1mt +++| NJN OHD1 IF NOT *RN* 18469 M00S10742.1mt +++| AOD PA INCREMENT TO NEXT USER VOLUME NUMBER 18470 M00S10743.1mt +++| LMN 9D 18471 M00S10744.1mt +++| NJN OHDX IF NOT ALL POSSIBLE USER LABELS SKIPPED 18472 M00S10745.1mt +++| OHD1 LDN 0 18473 M00S10746.1mt +++| STD PA 18474 M00S10747.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18475 M00S10748.1mt +++| PTM SPACE 4,10 18476 M00S10749.1mt +++|** PTM - PROCESS TAPE MARK. 18477 M00S10750.1mt +++|* 18478 M00S10751.1mt +++|* CALLS CLA. 18479 M00S10752.1mt +++| 18480 M00S10753.1mt +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18481 M01S00003.1mt22 +++| PTM3 LDD PA INCREMENT BACKSPACE COUNT 18482 M01S00004.1mt22 +++| ADC 100 18483 M01S00005.1mt22 +++| STD PA 18484 M01S00006.1mt22 +++| ADC -MXBS*100 18485 M01S00007.1mt22 +++| PJN PTM2 IF MAXIMUM NUMBER OF BACKSPACES ATTEMPTED 18486 M01S00008.1mt22 +++| 18487 M00S10754.1mt +++| PTM SUBR ENTRY/EXIT 18488 M00S10755.1mt +++| LDD PA 18489 M00S10756.1mt +++| ZJN PTMX IF ONLY BACK UP 1 BLOCK 18490 M00S10757.1mt +++| LDD DS CHECK LOAD POINT STATUS 18491 M00S10758.1mt +++| SHN 21-2
| Line S10759 Modification History | |
|---|---|
M01 (Removed by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18492 M01S10759.1mt22 ---| MJN PTM1 IF POSITIONED AT LOAD POINT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18493 M01S00009.1mt22 +++| MJN PTM2 IF POSITIONED AT LOAD POINT 18494 M00S10760.1mt +++| RJM CLA CHECK LABEL 18495 M00S10761.1mt +++| SBN 1
| Line S10762 Modification History | |
|---|---|
M01 (Removed by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18496 M01S10762.1mt22 ---| NJN PTMX IF NOT TAPE MARK 18497 M01S10763.1mt22 ---| SOD PA DECREMENT TAPE MARK COUNT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18498 M01S00010.1mt22 +++| NJN PTM1 IF NOT A TAPE MARK 18499 M01S00011.1mt22 +++| LDD PA 18500 M01S00012.1mt22 +++| LPN 77 18501 M01S00013.1mt22 +++| SBN 1 DECREMENT TAPE MARK COUNT 18502 M01S00014.1mt22 +++| ZJN PTMX IF ALL TAPE MARKS READ 18503 M01S00015.1mt22 +++| STM PTMA 18504 M01S00016.1mt22 +++| LDD PA UPDATE TAPE MARK COUNT 18505 M01S00017.1mt22 +++| LPC 7700 18506 M01S00018.1mt22 +++| ADM PTMA 18507 M01S00019.1mt22 +++| STD PA 18508 M01S00020.1mt22 +++| PTM1 LDD MD 18509 M01S00021.1mt22 +++| SHN 21-12 18510 M01S00022.1mt22 +++| MJP PTM3 IF BACKSPACING 18511 M01S00023.1mt22 +++| LDD PA 18512 M00S10764.1mt +++| UJN PTMX RETURN 18513 M00S10765.1mt +++|
| Line S10766 Modification History | |
|---|---|
M01 (Removed by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18514 M01S10766.1mt22 ---| PTM1 LDN /MTX/LAM LABEL MISSING
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18515 M01S00024.1mt22 +++| PTM2 LDN /MTX/LAM LABEL MISSING 18516 M00S10767.1mt +++| LJM RET3 RETURN ERROR CODE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 18517 M01S00025.1mt22 +++| 18518 M01S00026.1mt22 +++| PTMA CON 0 TEMPORARY STORAGE
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18519 M01S00949.282l826 +++| RBE SPACE 4,10 18520 M01S00950.282l826 +++|** RBE - RETURN *BEI* ERROR TO MAGNET. 18521 M01S00951.282l826 +++|* 18522 M01S00952.282l826 +++|* EXIT TO *RET3* WITH *BEI* ERROR. 18523 M01S00953.282l826 +++| 18524 M01S00954.282l826 +++| 18525 M01S00955.282l826 +++| RBE BSS 0 ENTRY 18526 M01S00956.282l826 +++| LDN /MTX/BEI SET *BEI* ERROR 18527 M01S00957.282l826 +++| LJM RET3 RETURN ERROR TO MAGNET 18528 M00S10768.1mt +++| SBL SPACE 4,10 18529 M00S10769.1mt +++|** SBL - SKIP BLOCK. 18530 M00S10770.1mt +++| 18531 M00S10771.1mt +++| 18532 M00S10772.1mt +++| SBL SUBR ENTRY/EXIT 18533 M00S10773.1mt +++| LDD EC 18534 M00S10774.1mt +++| LMN /MTX/BEI 18535 M00S10775.1mt +++| ZJN SBL1 IF TAPE MARK 18536 M00S10776.1mt +++| AOD PA INCREMENT BLOCK COUNT 18537 M00S10777.1mt +++| LMN 77 SKIP UP TO 64 BLOCKS 18538 M00S10778.1mt +++| NJN SBLX IF NOT MAXIMUM BLOCKS SKIPPED 18539 M00S10779.1mt +++| SBL1 STD PA 18540 M00S10780.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18541 M00S10781.1mt +++| SDE SPACE 4,10 18542 M00S10782.1mt +++|** SDE - SET ACTUAL DENSITY FOR 9 TRACK. 18543 M00S10783.1mt +++|*
| Line S10784 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18544 M01S10784.282l826 ---|* EXIT (DC, 6-13) = DENSITY RETURNED FROM STATUS.
| Line S00958 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18545 M01S00958.282l826 +++|* EXIT DENSITY SET FROM UNIT STATUS. 18546 M00S10785.1mt +++|* 18547 M00S10786.1mt +++|* CALLS DTS. 18548 M00S10787.1mt +++| 18549 M00S10788.1mt +++| 18550 M00S10789.1mt +++| SDE SUBR ENTRY/EXIT 18551 M00S10790.1mt +++| LDD HP
| Line S10791 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18552 M01S10791.274l797 ---| LPN 1 18553 M01S10792.274l797 ---| ZJN SDEX IF 7 TRACK
| Line S04359 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18554 M01S04359.274l797 +++| SHN 21-7 18555 M01S04360.274l797 +++| MJN SDEX IF CTS 18556 M01S04361.274l797 +++| SHN 21-0-21+7 18557 M01S04362.274l797 +++| PJN SDEX IF 7 TRACK
| Line S10793 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18558 M01S10793.282l826 ---| LDD DC CLEAR DENSITY 18559 M01S10794.282l826 ---| LPN 77 18560 M01S10795.282l826 ---| STD DC
| Line S00959 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18561 M01S00959.282l826 +++| LDM DNCV CLEAR DENSITY 18562 M01S00960.282l826 +++| SCN 70 18563 M01S00961.282l826 +++| STM DNCV 18564 M00S10796.1mt +++| RJM DTS GET DETAILED STATUS 18565 M00S10797.1mt +++| LDM MTDS+4 18566 M00S10798.1mt +++| SDEA EQU *-1 18567 M00S10799.1mt +++|* LDM ATUS (ATS UNIT) 18568 M00S10800.1mt +++| SDEB SHN -6 18569 M00S10801.1mt +++|* SHN -3 (ATS UNIT) 18570 M00S10802.1mt +++| LPN 3 18571 M00S10803.1mt +++| STD T1
| Line S10804 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18572 M01S10804.282l826 ---| LDM SDED,T1 GET EQUIVLENT DENSITY
| Line S00962 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18573 M01S00962.282l826 +++| LDM SDED,T1 GET EQUIVALENT DENSITY 18574 M00S10805.1mt +++| SDEC SHN 0
| Line S10806 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18575 M01S10806.282l826 ---|* SHN 6 (ATS UNIT) 18576 M01S10807.282l826 ---| SCN 77 18577 M01S10808.282l826 ---| ADD HN SET DENSITY 18578 M01S10809.282l826 ---| RAD DC PRESERVE CONVERSION MODE
| Line S00963 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18579 M01S00963.282l826 +++|* SHN 3 (ATS UNIT) 18580 M01S00964.282l826 +++| LPN 70 18581 M01S00965.282l826 +++| RAM DNCV SET DENSITY 18582 M00S10810.1mt +++| UJN SDEX RETURN 18583 M00S10811.1mt +++| 18584 M00S10812.1mt +++| 18585 M00S10813.1mt +++|** DENSITY TABLE. 18586 M00S10814.1mt +++|* TABLE IS INDEXED BY VALUES IN DETAILED STATUS. 18587 M00S10815.1mt +++|*
| Line S10816 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18588 M01S10816.282l826 ---|* 6/ MTS DENSITY, 6/ ATS DENSITY
| Line S00966 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18589 M01S00966.282l826 +++|* 6/0,3/ MTS DENSITY, 3/ ATS DENSITY 18590 M00S10817.1mt +++| 18591 M00S10818.1mt +++|
| Line S10819 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18592 M01S10819.282l826 ---| SDED VFD 6//MTX/D05-1,6//MTX/D16-1 18593 M01S10820.282l826 ---| VFD 6//MTX/D08-1,6//MTX/D16-1 18594 M01S10821.282l826 ---| VFD 6//MTX/D16-1,6//MTX/D08-1 18595 M01S10822.282l826 ---| VFD 6//MTX/D16-1,6//MTX/D62-1
| Line S00967 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18596 M01S00967.282l826 +++| SDED VFD 6/0,3//MTX/D05,3//MTX/D16 18597 M01S00968.282l826 +++| VFD 6/0,3//MTX/D08,3//MTX/D16 18598 M01S00969.282l826 +++| VFD 6/0,3//MTX/D16,3//MTX/D08 18599 M01S00970.282l826 +++| VFD 6/0,3//MTX/D16,3//MTX/D62 18600 M00S10823.1mt +++| SKR SPACE 4,10 18601 M00S10824.1mt +++|** SKR - SKIP BLOCK REVERSE. 18602 M00S10825.1mt +++|* 18603 M00S10826.1mt +++|* EXIT (WP) DECREMENTED IF TAPE MARK OR BLOCK WITHOUT 18604 M00S10827.1mt +++|* ERROR WAS READ. 18605 M00S10828.1mt +++| 18606 M00S10829.1mt +++| 18607 M00S10830.1mt +++| SKR SUBR ENTRY/EXIT 18608 M00S10831.1mt +++| LDD EC 18609 M00S10832.1mt +++| ZJN SKR1 IF NO ERROR
| Line S04363 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18610 M01S04363.274l797 +++| SKRA EQU *-1 18611 M01S04364.274l797 +++|* UJN SKR2 CTS 18612 M00S10833.1mt +++| LMN /MTX/BEI 18613 M00S10834.1mt +++| NJN SKR2 IF NOT TAPE MARK
| Line S10835 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 18614 M01S10835.v23l617 ---| SKR1 SOD WP BACK UP BID WINDOW 18615 M01S10836.v23l617 ---| PJN SKR2 IF NO UNDERFLOW 18616 M01S10837.v23l617 ---| LDN 7 RESET POINTER 18617 M01S10838.v23l617 ---| STD WP 18618 M01S10839.v23l617 ---| SKR2 LDC SKR3 SET TO RETURN HERE 18619 M01S10840.v23l617 ---| STM /READ/RDFC+1 18620 M01S10841.v23l617 ---| LDC 2000 SET REVERSE DIRECTION 18621 M01S10842.v23l617 ---| RAD MD 18622 M01S10843.v23l617 ---| LJM RLA5 READ TAPE 18623 M01S10844.v23l617 ---| 18624 M01S10845.v23l617 ---| SKR3 LDD MD RESET FORWARD DIRECTION 18625 M01S10846.v23l617 ---| LPC 5777 18626 M01S10847.v23l617 ---| STD MD 18627 M01S10848.v23l617 ---| LDC RLA6 RESET RETURN ADDRESS 18628 M01S10849.v23l617 ---| STM /READ/RDFC+1 18629 M01S10850.v23l617 ---| LDD EC 18630 M01S10851.v23l617 ---| NJN SKRX IF ERROR 18631 M01S10852.v23l617 ---| LDN 4 SET UNUSEABLE BID 18632 M01S10853.v23l617 ---| STM BIDW,WP 18633 M01S10854.v23l617 ---| SOD WP BACK UP BID WINDOW 18634 M01S10855.v23l617 ---| PJN SKR4 IF NO UNDERFLOW 18635 M01S10856.v23l617 ---| LDN 7 RESET POINTER 18636 M01S10857.v23l617 ---| STD WP 18637 M01S10858.v23l617 ---| SKR4 LJM SKRX RETURN
| Line S00310 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 18638 M01S00310.v23l617 +++| SKR1 LDN 4 SET UNUSABLE BID 18639 M01S00311.v23l617 +++| STM BIDW,WP 18640 M01S00312.v23l617 +++| SOD WP BACK UP BID WINDOW 18641 M01S00313.v23l617 +++| PJN SKR2 IF NO UNDERFLOW 18642 M01S00314.v23l617 +++| LDN 7 RESET POINTER 18643 M01S00315.v23l617 +++| STD WP 18644 M01S00316.v23l617 +++| SKR2 RJM BKS BACKSPACE TAPE 18645 M01S00317.v23l617 +++| UJN SKRX RETURN 18646 M01S00318.v23l617 +++| 18647 M01S00319.v23l617 +++| BKS SPACE 4,10 18648 M01S00320.v23l617 +++|** BKS - BACKSPACE TAPE. 18649 M01S00321.v23l617 +++|* WAIT BACKSPACE FUNCTION COMPLETE. 18650 M01S00322.v23l617 +++|* TIMES OUT AFTER APPROXIMATECY 25 FEET OF TAPE. 18651 M01S00323.v23l617 +++|* 18652 M01S00324.v23l617 +++|* EXIT (DS) = GENERAL STATUS. 18653 M01S00325.v23l617 +++|*
| Line S00326 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18654 M02S00326.274l797 ---|* CALLS FCN, STW.
| Line S04365 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18655 M01S04365.274l797 +++|* CALLS FCN, STW, WNB.
| Line S00327 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 18656 M01S00327.v23l617 +++| 18657 M01S00328.v23l617 +++| 18658 M01S00329.v23l617 +++| BKS2 CON 0 ENTERED VIA *RJM FROM //STW 18659 M01S00330.v23l617 +++| SOD T2 18660 M01S00331.v23l617 +++| NJN BKS1 IF NOT TIMEOUT 18661 M01S00332.v23l617 +++| LDC ERR RESET ERROR EXIT 18662 M01S00333.v23l617 +++| STM STWC 18663 M01S00334.v23l617 +++| UJN BKS1 ATTEMPT 1 MORE TIME 18664 M01S00335.v23l617 +++| 18665 M01S00336.v23l617 +++| BKS SUBR ENTRY/EXIT
| Line S04366 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18666 M01S04366.274l797 +++| LDD HP 18667 M01S04367.274l797 +++| SHN 21-7 18668 M01S04368.274l797 +++| MJN BKS1.2 IF CTS
| Line S00337 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 18669 M01S00337.v23l617 +++| LDN 2 WAIT NOT BUSY 18670 M01S00338.v23l617 +++| RJM STW
| Line S00339 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18671 M02S00339.274l797 ---| LDC 113 BACKSPACE
| Line S04369 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18672 M01S04369.274l797 +++| LDC F0113 BACKSPACE
| Line S00340 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 18673 M01S00340.v23l617 +++| RJM FCN 18674 M01S00341.v23l617 +++| LDN 27 18675 M01S00342.v23l617 +++| STD T2 18676 M01S00343.v23l617 +++| LDC BKS2 SET RETURNED TIMEOUT FROM //STW 18677 M01S00344.v23l617 +++| STM STWC 18678 M01S00345.v23l617 +++| BKS1 LDN 2 WAIT NOT BUSY 18679 M01S00346.v23l617 +++| RJM STW 18680 M01S00347.v23l617 +++| LDC ERR RESET ERROR EXIT 18681 M01S00348.v23l617 +++| STM STWC
| Line S00349 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18682 M02S00349.274l797 ---| UJN BKSX RETURN
| Line S04370 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18683 M01S04370.274l797 +++| BKS1.1 UJN BKSX RETURN
| Line S00350 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 18684 M01S00350.v23l617 +++|
| Line S04371 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18685 M01S04371.274l797 +++| BKS1.2 RJM WNB WAIT NOT BUSY 18686 M01S04372.274l797 +++| LDC F0113 BACKSPACE BLOCK 18687 M01S04373.274l797 +++| RJM FCN ISSUE FUNCTION 18688 M01S04374.274l797 +++| RJM WNB WAIT NOT BUSY 18689 M01S04375.274l797 +++| UJN BKS1.1 RETURN 18690 M00S10859.1mt +++| STM SPACE 4,10 18691 M00S10860.1mt +++|** STM - SKIP TAPE MARK. 18692 M00S10861.1mt +++|* 18693 M00S10862.1mt +++|* CALLS CLA, SKR. 18694 M00S10863.1mt +++| 18695 M00S10864.1mt +++| 18696 M00S10865.1mt +++| STM3 AOD PB ADVANCE SECTION 18697 M00S10866.1mt +++| 18698 M00S10867.1mt +++| STM SUBR ENTRY/EXIT 18699 M00S10868.1mt +++| LDD PB 18700 M00S10869.1mt +++| SHN -6
| Line S10870 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18701 M01S10870.282l826 ---| LMN 6
| Line S00971 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18702 M01S00971.282l826 +++| LMN /MTX/RLCF/100 18703 M00S10871.1mt +++| ZJN STM2 IF CLOSE 18704 M00S10872.1mt +++| RJM CLA CHECK LABELS 18705 M00S10873.1mt +++| SBN 1 18706 M00S10874.1mt +++| ZJN STM3 IF TAPE MARK 18707 M00S10875.1mt +++| LDN /MTX/LAM LABEL MISSING 18708 M00S10876.1mt +++| STM1 LJM RET3 RETURN ERROR CODE 18709 M00S10877.1mt +++| 18710 M00S10878.1mt +++| STM2 LDD EC 18711 M00S10879.1mt +++| LMN /MTX/BEI 18712 M00S10880.1mt +++| ZJN STM3 IF TAPE MARK 18713 M00S10881.1mt +++| RJM SKR SKIP BLOCK REVERSE 18714 M00S10882.1mt +++| LDN /MTX/BEI SET NOT TO SKIP TAPE MARKS REVERSE 18715 M00S10883.1mt +++| UJN STM1 RETURN ERROR CODE 18716 M00S10884.1mt +++| THL SPACE 4,10 18717 M00S10885.1mt +++|** THL - TRANSFER HEADER LABEL. 18718 M00S10886.1mt +++|* 18719 M00S10887.1mt +++|* CALLS CCH, DCV, GCH. 18720 M00S10888.1mt +++| 18721 M00S10889.1mt +++| 18722 M00S10890.1mt +++| THL SUBR ENTRY/EXIT 18723 M00S10891.1mt +++| LDN 5 FILE IDENTIIFER 18724 M00S10892.1mt +++| STD T6 18725 M00S10893.1mt +++| LDN 21D 18726 M00S10894.1mt +++| STD T7 18727 M00S10895.1mt +++| LDN 17D 18728 M00S10896.1mt +++| RJM CCH 18729 M00S10897.1mt +++| LDN 41D SET IDENTIFIER 18730 M00S10898.1mt +++| STD T7 18731 M00S10899.1mt +++| LDN 6 18732 M00S10900.1mt +++| RJM CCH 18733 M00S10901.1mt +++| LDN 38D FILE SECTION NUMBER 18734 M00S10902.1mt +++| STD T7 18735 M00S10903.1mt +++| LDC 30004 18736 M00S10904.1mt +++| RJM DCV 18737 M00S10905.1mt +++| LDN 48D FILE SEQUENCE NUMBER 18738 M00S10906.1mt +++| STD T7 18739 M00S10907.1mt +++| LDC 30004 18740 M00S10908.1mt +++| RJM DCV 18741 M00S10909.1mt +++| LDN 58D GENERATION NUMBER 18742 M00S10910.1mt +++| STD T7 18743 M00S10911.1mt +++| LDC 30004 18744 M00S10912.1mt +++| RJM DCV 18745 M00S10913.1mt +++| LDN 56D GENERATION VERSION NUMBER 18746 M00S10914.1mt +++| STD T7 18747 M00S10915.1mt +++| LDC 20002 18748 M00S10916.1mt +++| RJM DCV 18749 M00S10917.1mt +++| RJM GCH SKIP CHARACTER 18750 M00S10918.1mt +++| LDN 61D CREATION DATE 18751 M00S10919.1mt +++| STD T7 18752 M00S10920.1mt +++| LDN 5 18753 M00S10921.1mt +++| RJM CCH 18754 M00S10922.1mt +++| RJM GCH SKIP CHARACTER 18755 M00S10923.1mt +++| LDN 5 EXPIRATION DATE 18756 M00S10924.1mt +++| RJM CCH 18757 M00S10925.1mt +++| LDN 47D ACCESSIBILITY 18758 M00S10926.1mt +++| STD T7 18759 M00S10927.1mt +++| LDN 1 18760 M00S10928.1mt +++| RJM CCH 18761 M00S10929.1mt +++| LJM THLX RETURN 18762 M00S10930.1mt +++| TMS SPACE 4,10 18763 M00S10931.1mt +++|** TMS - TAPE MARK SENSE.
| Line S10932 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18764 M01S10932.274l797 ---|* IF INITIAL LABEL CHECK AN EVENT IS ISSUED BASED ON THE VSN. 18765 M00S10933.1mt +++|*
| Line S04376 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18766 M01S04376.274l797 +++|* USES PB, T7. 18767 M01S04377.274l797 +++|* 18768 M00S10934.1mt +++|* CALLS CLA, SCH, VOL, WUD.
| Line S10935 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18769 M01S10935.274l797 ---|* 18770 M01S10936.274l797 ---|* MACROS MONITOR. 18771 M00S10937.1mt +++| 18772 M00S10938.1mt +++| 18773 M00S10939.1mt +++| TMS SUBR ENTRY/EXIT 18774 M00S10940.1mt +++| RJM CLA 18775 M00S10941.1mt +++| SBN 1 18776 M00S10942.1mt +++| MJN TMS2 IF NOT TAPE MARK 18777 M00S10943.1mt +++| LDD PB 18778 M00S10944.1mt +++| SHN -6 18779 M00S10945.1mt +++| NJN TMS1 IF NOT INITIAL LABEL CHECK
| Line S00972 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18780 M01S00972.282l826 +++| ERRNZ /MTX/RLCL
| Line S10946 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18781 M01S10946.274l797 ---| STD CM+1 SET TO ENTER EVENT 18782 M00S10947.1mt +++| LDN 17D CLEAR LABEL CHECK IN PROGRESS 18783 M00S10948.1mt +++| STD T7 18784 M00S10949.1mt +++| LDN 0 18785 M00S10950.1mt +++| RJM SCH 18786 M00S10951.1mt +++| RJM WUD REWRITE UDT
| Line S10952 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18787 M01S10952.274l797 ---| LDN /EVENT/VSNE/10000 18788 M01S10953.274l797 ---| STD CM+3 18789 M01S10954.274l797 ---| LDM UDTB+5 GENERATE EVENT FROM VSN 18790 M01S10955.274l797 ---| ADM UDTB+6 18791 M01S10956.274l797 ---| ADM UDTB+7 18792 M01S10957.274l797 ---| STD CM+4 18793 M01S10958.274l797 ---| MONITOR EATM 18794 M00S10959.1mt +++| TMS1 LJM RET1 EXIT 18795 M00S10960.1mt +++| 18796 M00S10961.1mt +++| TMS2 LDD PB 18797 M00S10962.1mt +++| SHN -6 18798 M00S10963.1mt +++| ZJN TMS4 IF INITIAL LABEL CHECK SEQUENCE
| Line S00973 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18799 M01S00973.282l826 +++| ERRNZ /MTX/RLCL 18800 M00S10964.1mt +++| TMS3 LDN /MTX/LCE LABEL CONTENT ERROR 18801 M00S10965.1mt +++| LJM RET3 RETURN ERROR CODE 18802 M00S10966.1mt +++| 18803 M00S10967.1mt +++| TMS4 LDN 0 SET TO RESTART SEQUENCE 18804 M00S10968.1mt +++| STD PB 18805 M00S10969.1mt +++| STM BUF 18806 M00S10970.1mt +++| RJM VOL 18807 M00S10971.1mt +++| UJN TMS3 RETURN LABEL CONTENT ERROR 18808 M00S10972.1mt +++| UHL SPACE 4,10 18809 M00S10973.1mt +++|** UHL - PROCESS *UHLA* USER FILE HEADER LABELS. 18810 M00S10974.1mt +++|* 18811 M00S10975.1mt +++|* CALLS CLA. 18812 M00S10976.1mt +++| 18813 M00S10977.1mt +++| 18814 M00S10978.1mt +++| UHL SUBR ENTRY/EXIT 18815 M00S10979.1mt +++| RJM CLA CHECK LABEL 18816 M00S10980.1mt +++| NJN UHL1 IF BAD LABEL 18817 M00S10981.1mt +++| LDM BUF 18818 M00S10982.1mt +++| LMC 2RUH 18819 M00S10983.1mt +++| NJN UHL1 IF NOT *UH* 18820 M00S10984.1mt +++| LDM BUF+1 18821 M00S10985.1mt +++| SHN -6 18822 M00S10986.1mt +++| LMN 1RL 18823 M00S10987.1mt +++| NJN UHL1 IF NOT *UHLN* 18824 M00S10988.1mt +++| AOD PA INCREMENT TO NEXT USER VOLUME NUMBER 18825 M00S10989.1mt +++| LMC 64D+1 18826 M00S10990.1mt +++| NJN UHLX IF NOT ALL POSSIBLE USER LABELS SKIPPED 18827 M00S10991.1mt +++| LDN /MTX/LCE LABEL CONTENT ERROR 18828 M00S10992.1mt +++| LJM RET3 RETURN ERROR CODE 18829 M00S10993.1mt +++| 18830 M00S10994.1mt +++| UHL1 LDC 0 18831 M00S10995.1mt +++|* LDC 4000 (*VOL1* READ AND VALIDATE HEADER LABEL) 18832 M00S10996.1mt +++| UHLA EQU *-1 18833 M00S10997.1mt +++| STD PA 18834 M00S10998.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18835 M00S10999.1mt +++| UTL SPACE 4,10 18836 M00S11000.1mt +++|** UTL - PROCESS USER TRAILER LABELS. 18837 M00S11001.1mt +++|* 18838 M00S11002.1mt +++|* CALLS CLA. 18839 M00S11003.1mt +++| 18840 M00S11004.1mt +++| 18841 M00S11005.1mt +++| UTL SUBR ENTRY/EXIT 18842 M00S11006.1mt +++| RJM CLA CHECK LABEL 18843 M00S11007.1mt +++| NJN UTL1 IF BAD LABEL 18844 M00S11008.1mt +++| LDM BUF 18845 M00S11009.1mt +++| LMC 2RUT 18846 M00S11010.1mt +++| NJN UTL1 IF NOT *UT* 18847 M00S11011.1mt +++| LDM BUF+1 18848 M00S11012.1mt +++| SHN -6 18849 M00S11013.1mt +++| LMN 1RL 18850 M00S11014.1mt +++| NJN UTL1 IF NOT *UTLN* 18851 M00S11015.1mt +++| AOD PA 18852 M00S11016.1mt +++| LMC 64D+1 18853 M00S11017.1mt +++| NJN UTLX IF NOT ALL TRAILER LABELS SKIPPED 18854 M00S11018.1mt +++| LDN /MTX/LCE LABEL CONTENT ERROR 18855 M00S11019.1mt +++| LJM RET3 RETURN ERROR CODE 18856 M00S11020.1mt +++| 18857 M00S11021.1mt +++| UTL1 LDD PB 18858 M00S11022.1mt +++| SHN -6
| Line S11023 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18859 M01S11023.282l826 ---| LMN 6
| Line S00974 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18860 M01S00974.282l826 +++| LMN /MTX/RLCF/100 18861 M00S11024.1mt +++| NJN UTL2 IF NOT CLOSE 18862 M00S11025.1mt +++| LJM RET1 EXIT 18863 M00S11026.1mt +++| 18864 M00S11027.1mt +++| UTL2 LDN 0 18865 M00S11028.1mt +++| STD PA 18866 M00S11029.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18867 M00S11030.1mt +++| UVL SPACE 4,10 18868 M00S11031.1mt +++|** UVL - PROCESS *UVLN* USER VOLUME LABELS. 18869 M00S11032.1mt +++|* 18870 M00S11033.1mt +++|* CALLS CLA, VOL. 18871 M00S11034.1mt +++| 18872 M00S11035.1mt +++| 18873 M00S11036.1mt +++| UVL SUBR ENTRY/EXIT 18874 M00S11037.1mt +++| RJM CLA CHECK LABEL 18875 M00S11038.1mt +++| NJN UVL1 IF BAD LABEL 18876 M00S11039.1mt +++| LDM BUF 18877 M00S11040.1mt +++| LMC 2RUV 18878 M00S11041.1mt +++| NJN UVL3 IF NOT *UV* 18879 M00S11042.1mt +++| LDM BUF+1 18880 M00S11043.1mt +++| ADC -2RL1 18881 M00S11044.1mt +++| SBD PA 18882 M00S11045.1mt +++| NJN UVL3 IF NOT *LN* 18883 M00S11046.1mt +++| AOD PA INCREMENT TO NEXT USER VOLUME NUMBER 18884 M00S11047.1mt +++| LMN 9D+1 18885 M00S11048.1mt +++| NJN UVLX IF NOT ALL POSSIBLE USER LABELS SKIPPED 18886 M00S11049.1mt +++| UVL1 LDD PB 18887 M00S11050.1mt +++| SHN -6 18888 M00S11051.1mt +++| NJN UVL2 IF NOT INITIAL LABEL CHECK SEQUENCE
| Line S00975 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18889 M01S00975.282l826 +++| ERRNZ /MTX/RLCL 18890 M00S11052.1mt +++| STD PB RESTART LABEL CHECK SEQUENCE 18891 M00S11053.1mt +++| STM BUF 18892 M00S11054.1mt +++| RJM VOL 18893 M00S11055.1mt +++| UVL2 LMN 5 18894 M00S11056.1mt +++| ZJN UVL4 IF REEL CHECK 18895 M00S11057.1mt +++| LDN /MTX/LCE LABEL CONTENT ERROR 18896 M00S11058.1mt +++| LJM RET3 RETURN ERROR CODE 18897 M00S11059.1mt +++| 18898 M00S11060.1mt +++| UVL3 LDD PB CHECK IF HEADER VALIDATION 18899 M00S11061.1mt +++| SHN -6
| Line S11062 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18900 M01S11062.282l826 ---| LMN 10
| Line S00976 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18901 M01S00976.282l826 +++| LMN /MTX/RLVH/100 18902 M00S11063.1mt +++| NJN UVL4 IF NOT HEADER VALIDATION 18903 M00S11064.1mt +++| LDC 4000 SET *VOL1* LABEL READ 18904 M00S11065.1mt +++| STM UHLA 18905 M00S11066.1mt +++| LDN 4 ADVANCE TO HDR1 CHECK 18906 M00S11067.1mt +++| RAD PB 18907 M00S11068.1mt +++| UVL4 LJM RLAX ADVANCE TO NEXT LABEL TYPE 18908 M00S11069.1mt +++| VOL SPACE 4,10 18909 M00S11070.1mt +++|** VOL - PROCESS *VOL1* LABEL. 18910 M00S11071.1mt +++|*
| Line S11072 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18911 M01S11072.282l826 ---|* CALLS CCH, CFN, CLA, C2D, DBT, FCH, SCH, SDE, UAD, 18912 M01S11073.282l826 ---|* UDA, WUD.
| Line S00977 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18913 M01S00977.282l826 +++|* CALLS CCH, CLA, C2D, DBT, FCH, SCH, SDE, UAD, UDA, WUD. 18914 M00S11074.1mt +++| 18915 M00S11075.1mt +++| 18916 M00S11076.1mt +++| VOL SUBR ENTRY/EXIT 18917 M00S11077.1mt +++| LDC BUF SET UP BUFFER ADDRESSES 18918 M00S11078.1mt +++| STM IBUF 18919 M00S11079.1mt +++| LDC UDTB 18920 M00S11080.1mt +++| STM DBUF 18921 M00S11081.1mt +++| LDD PB 18922 M00S11082.1mt +++| SHN -6 18923 M00S11083.1mt +++| ZJN VOL1 IF INITIAL LABEL CHECK
| Line S11084 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18924 M01S11084.282l826 ---| LMN 10
| Line S00978 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18925 M01S00978.282l826 +++| ERRNZ /MTX/RLCL 18926 M01S00979.282l826 +++| LMN /MTX/RLVH/100 18927 M00S11085.1mt +++| NJN VOL3 IF NOT HEADER VALIDATION 18928 M00S11086.1mt +++| RJM DBT DETERMINE BLOCK TYPE 18929 M00S11087.1mt +++| NJN VOL3 IF GOOD BLOCK 18930 M00S11088.1mt +++| LJM VOL6 PROCESS TAPE MARK OR BAD BLOCK 18931 M00S11089.1mt +++| 18932 M00S11090.1mt +++| VOL1 RJM CLA CHECK LABEL 18933 M00S11091.1mt +++| ZJN VOL4 IF GOOD LABEL 18934 M00S11092.1mt +++| LDD EC 18935 M00S11093.1mt +++| LMN /MTX/BTA 18936 M00S11094.1mt +++| ZJN VOL2 IF BLANK TAPE 18937 M00S11095.1mt +++| LMN /MTX/BTL&/MTX/BTA 18938 M00S11096.1mt +++| NJN VOL6 IF NOT *BLOCK TOO LARGE* ERROR 18939 M00S11097.1mt +++| LDD HP
| Line S11098 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18940 M01S11098.274l797 ---| LPN 1 18941 M01S11099.274l797 ---| ZJN VOL6 IF 7 TRACK
| Line S04378 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18942 M01S04378.274l797 +++| SHN 21-7 18943 M01S04379.274l797 +++| MJN VOL2 IF CTS 18944 M01S04380.274l797 +++| SHN 21-0-21+7 18945 M01S04381.274l797 +++| PJN VOL6 IF 7 TRACK 18946 M00S11100.1mt +++| VOL2 LJM VOL12 PRESET *UDT* FOR UNLABELED TAPE 18947 M00S11101.1mt +++| 18948 M00S11102.1mt +++| VOL3 RJM CLA CHECK LABEL 18949 M00S11103.1mt +++| NJN VOL6 IF BAD LABEL 18950 M00S11104.1mt +++| VOL4 LDM BUF CHECK FOR *VOL1* 18951 M00S11105.1mt +++| LMC 2RVO 18952 M00S11106.1mt +++| NJN VOL6 IF NOT *VO* 18953 M00S11107.1mt +++| LDM BUF+1 18954 M00S11108.1mt +++| LMC 2RL1 18955 M00S11109.1mt +++| NJN VOL6 IF NOT *L1* 18956 M00S11110.1mt +++| LDD PB 18957 M00S11111.1mt +++| SHN -6 18958 M00S11112.1mt +++| ZJN VOL5 IF INITIAL LABEL CHECK
| Line S00980 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18959 M01S00980.282l826 +++| ERRNZ /MTX/RLCL 18960 M00S11113.1mt +++| LJM VOL22 INCREMENT TO NEXT SECTION 18961 M00S11114.1mt +++| 18962 M00S11115.1mt +++| VOL5 LJM VOL15 SET GOOD *VOL1* LABEL 18963 M00S11116.1mt +++| 18964 M00S11117.1mt +++| VOL6 LDD PB 18965 M00S11118.1mt +++| SHN -6 18966 M00S11119.1mt +++| ZJN VOL9 IF INITIAL LABEL SEQUENCE
| Line S11120 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18967 M01S11120.282l826 ---| LMN 10
| Line S00981 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18968 M01S00981.282l826 +++| ERRNZ /MTX/RLCL 18969 M01S00982.282l826 +++| LMN /MTX/RLVH/100 18970 M00S11121.1mt +++| NJN VOL7 IF NOT HEADER VALIDATION 18971 M00S11122.1mt +++| AOD PB ADVANCE SECTION 18972 M00S11123.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18973 M00S11124.1mt +++| 18974 M00S11125.1mt +++| VOL7 LMN 4&10 18975 M00S11126.1mt +++| NJN VOL8 IF NOT OPEN 18976 M00S11127.1mt +++| LDM CIOE 18977 M00S11128.1mt +++| LPC 1774 18978 M00S11129.1mt +++| LMC 110 18979 M00S11130.1mt +++| NJN VOL8 IF NOT *POSMF* 18980 M00S11131.1mt +++| LDN 1 ADVANCE TO *HDR1* CHECK 18981 M00S11132.1mt +++| RAD PB 18982 M00S11133.1mt +++| LJM RLAX ADVANCE TO NEXT LABEL TYPE 18983 M00S11134.1mt +++| 18984 M00S11135.1mt +++| VOL8 LDN /MTX/LAM LABEL MISSING 18985 M00S11136.1mt +++| LJM RET3 RETURN ERROR CODE 18986 M00S11137.1mt +++| 18987 M00S11138.1mt +++| VOL9 LDD HP
| Line S11139 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18988 M01S11139.274l797 ---| LPN 1 18989 M01S11140.274l797 ---| NJN VOL10 IF 9 TRACK
| Line S04382 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 18990 M01S04382.274l797 +++| SHN 21-7 18991 M01S04383.274l797 +++| MJN VOL10 IF CTS 18992 M01S04384.274l797 +++| SHN 21-0-21+7 18993 M01S04385.274l797 +++| MJN VOL10 IF 9 TRACK
| Line S11141 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18994 M01S11141.282l826 ---| LDC -100 TRY NEXT LOWER DENSITY 18995 M01S11142.282l826 ---| RAD DC 18996 M01S11143.282l826 ---| SHN -6
| Line S00983 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18997 M01S00983.282l826 +++| LCN 10 TRY NEXT LOWER DENSITY 18998 M01S00984.282l826 +++| RAM DNCV 18999 M01S00985.282l826 +++| LPN 70 19000 M00S11144.1mt +++| NJN VOL11 IF MORE DENSITIES TO TRY
| Line S11145 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19001 M01S11145.282l826 ---| LDC 300 SET DENSITY FOR DISPLAY 19002 M01S11146.282l826 ---| STD DC 19003 M00S11147.1mt +++| UJN VOL12 PRESET UDT FOR UNLABELED TAPE 19004 M00S11148.1mt +++|
| Line S11149 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19005 M01S11149.282l826 ---| VOL10 LDD DC 19006 M01S11150.282l826 ---| LPN 77
| Line S00986 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19007 M01S00986.282l826 +++| VOL10 LDM DNCV 19008 M01S00987.282l826 +++| LPN 7 19009 M00S11151.1mt +++| SBN /MTX/MCCO-1 19010 M00S11152.1mt +++| PJN VOL12 IF ALL CONVERSION MODES TRIED 19011 M00S11153.1mt +++| LDN 0 TRY ANOTHER CONVERSION MODE 19012 M00S11154.1mt +++| STD PA
| Line S11155 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19013 M01S11155.282l826 ---| AOD DC INCREMENT TO NEXT CONVERSION MODE
| Line S00988 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19014 M01S00988.282l826 +++| AOM DNCV INCREMENT TO NEXT CONVERSION MODE 19015 M00S11156.1mt +++| VOL11 LJM RET1 EXIT
| Line S11157 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19016 M01S11157.282l826 ---| 19017 M01S11158.282l826 ---|* UNLABELED TAPE. PRESET UDT LABEL INFORMATION TO DEFAULT. 19018 M00S11159.1mt +++| 19019 M00S11160.1mt +++| VOL12 LDD PB 19020 M00S11161.1mt +++| SHN -6
| Line S00989 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19021 M01S00989.282l826 +++| LMK /MTX/RLCL 19022 M00S11162.1mt +++| ZJN VOL13 IF INITIAL LABEL SEQUENCE 19023 M00S11163.1mt +++| LJM VOL6 ADVANCE SECTION COUNT 19024 M00S11164.1mt +++|
| Line S11165 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19025 M01S11165.282l826 ---| VOL13 STD UP CLEAR LABELED FLAG 19026 M01S11166.282l826 ---| LDD DC CLEAR CONVERSION MODE 19027 M01S11167.282l826 ---| SCN 77 19028 M01S11168.282l826 ---| STD DC
| Line S00990 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19029 M01S00990.282l826 +++|* SET UDT LABEL PARAMETERS FOR UNLABELED TAPE. 19030 M01S00991.282l826 +++| 19031 M01S00992.282l826 +++| VOL13 LDD LT 19032 M01S00993.282l826 +++| LPC 777 CLEAR LABELED FLAGS 19033 M01S00994.282l826 +++| STD LT 19034 M01S00995.282l826 +++| RJM UAD 19035 M01S00996.282l826 +++| ADK /MTX/UST4 19036 M01S00997.282l826 +++| CWD LT 19037 M01S00998.282l826 +++| LDM DNCV CLEAR CONVERSION MODE 19038 M01S00999.282l826 +++| SCN 7 19039 M01S01000.282l826 +++| STM DNCV UPDATE CONVERSION MODE 19040 M00S11169.1mt +++| RJM SDE SET DENSITY FOR 9 TRACK
| Line S11170 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19041 M01S11170.282l826 ---| RJM UAD GET EQUIPMENT NUBMER 19042 M01S11171.282l826 ---| ADN /MTX/UST4 19043 M01S11172.282l826 ---| CRD CM
| Line S11173 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19044 M02S11173.282l826 ---| LDD CM+3 19045 M02S11174.282l826 ---| SHN -6
| Line S00259 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19046 M02S00259.282l826 ---| LDD CM+2
| Line S01001 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19047 M01S01001.282l826 +++| LDD EO SET EST ORDINAL IN DEFAULT VSN
| Line S00260 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 19048 M01S00260.ns22000 +++| SHN -6 19049 M01S00261.ns22000 +++| RAM TDLP+6
| Line S00262 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19050 M02S00262.282l826 ---| LDD CM+2
| Line S01002 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19051 M01S01002.282l826 +++| LDD EO 19052 M00S11175.1mt +++| RJM C2D 19053 M00S11176.1mt +++| STM TDLP+7 19054 M00S11177.1mt +++| LDD HP 19055 M00S11178.1mt +++| LPN 20
| Line S11179 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 19056 M01S11179.274l797 ---| ZJN VOL14 IF NOT ATS UNIT
| Line S04386 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 19057 M01S04386.274l797 +++| ZJN VOL14 IF NOT ATS UNIT 19058 M00S11180.1mt +++| LDM MTDS 19059 M00S11181.1mt +++| LPC 177 19060 M00S11182.1mt +++| LMN 7 19061 M00S11183.1mt +++| NJN VOL14 IF UNIT CAPABLE OF TAPE DENSITY
| Line S01003 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19062 M01S01003.282l826 +++| LDC 400 SET DENSITY MISMATCH 19063 M01S01004.282l826 +++| RAM TDLP+1*5+3
| Line S11184 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 19064 M01S11184.252l678 ---| LDC 400 SET DENSITY MISMATCH 19065 M01S11185.252l678 ---| RAM TDLP+10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt7 |
Seq # *Modification Id* Act ----------------------------+ 19066 M01S00001.1mt7 +++| LDN 2 19067 M01S00002.1mt7 +++| STD T6 19068 M01S00003.1mt7 +++| LDD MA 19069 M01S00004.1mt7 +++| CWM VOLB,T6 *WRONG DENSITY* 19070 M01S00005.1mt7 +++| SBN 2 19071 M01S00006.1mt7 +++| CRM TDLP+2*5,T6 19072 M00S11186.1mt +++| VOL14 LDN JDAL READ JULIAN DATE 19073 M00S11187.1mt +++| CRM BUF,ON 19074 M00S11188.1mt +++| LDC OVLM RESET DESTINATION BUFFER 19075 M00S11189.1mt +++| STM DBUF 19076 M00S11190.1mt +++| LDN 6 SET UP CREATION DATE 19077 M00S11191.1mt +++| STD T6 19078 M00S11192.1mt +++| LDN 1 SET EXPIRATION DATE 19079 M00S11193.1mt +++| STD T7 19080 M00S11194.1mt +++| LDN 5 19081 M00S11195.1mt +++| RJM CCH 19082 M00S11196.1mt +++| LDN 6 19083 M00S11197.1mt +++| STD T6 19084 M00S11198.1mt +++| LDN 5 19085 M00S11199.1mt +++| RJM CCH 19086 M00S11200.1mt +++| RJM UDA 19087 M00S11201.1mt +++| CWM TDLP,T1
| Line S11202 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19088 M01S11202.282l826 ---| LJM RET1 EXIT
| Line S01005 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19089 M01S01005.282l826 +++| LJM VOL11 UPDATE CONVERSION MODE AND LABELED FLAGS 19090 M00S11203.1mt +++| 19091 M00S11204.1mt +++|* PROCESS GOOD *VOL1* LABEL. 19092 M00S11205.1mt +++| 19093 M00S11206.1mt +++| VOL15 RJM SDE SET DENSITY FOR 9 TRACK 19094 M00S11207.1mt +++| LDN 5 MOVE VSN TO UDT 19095 M00S11208.1mt +++| STD T6 19096 M00S11209.1mt +++| LDN 11D 19097 M00S11210.1mt +++| STD T7 19098 M00S11211.1mt +++| LDN 6 19099 M00S11212.1mt +++| RJM CCH 19100 M00S11213.1mt +++| LDN 40 SET LABEL CHECK IN PROGRESS FLAG 19101 M00S11214.1mt +++| RJM SCH STORE CHARACTER
| Line S11215 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 19102 M01S11215.ns22000 ---| LDN 3 FILL THREE CHARACTERS WITH ZERO.
| Line S00263 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 19103 M01S00263.ns22000 +++| LDN 3 FILL THREE CHARACTERS WITH ZERO 19104 M00S11216.1mt +++| RJM FCH
| Line S11217 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 19105 M01S11217.v23l617 ---| LDN 38D COPY FAMILY NAME TO USER NUMBER AREA
| Line S00351 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19106 M02S00351.282l826 ---| LDN 38D COPY FAMILY NAME TO USER NAME AREA
| Line S11218 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19107 M01S11218.282l826 ---| STD T6 19108 M01S11219.282l826 ---| LDN 1 19109 M01S11220.282l826 ---| STD T7 19110 M01S11221.282l826 ---| LDN 7 19111 M01S11222.282l826 ---| RJM CCH
| Line S11223 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19112 M02S11223.282l826 ---| 19113 M02S11224.282l826 ---|* DETERMINE FAMILY INDEX 19114 M02S11225.282l826 ---| 19115 M02S11226.282l826 ---| LDC PFNL CHECK DEFAULT FAMILY NAME 19116 M02S11227.282l826 ---| CRD CM 19117 M02S11228.282l826 ---| LDN ESTP GET EST POINTERS 19118 M02S11229.282l826 ---| CRD CN 19119 M02S11230.282l826 ---| LDD CM+3 19120 M02S11231.282l826 ---| LPN 77 19121 M02S11232.282l826 ---| STD T8 PRESET DEFAULT FAMILY INDEX 19122 M02S11233.282l826 ---| ADD CN 19123 M02S11234.282l826 ---| CRD CM 19124 M02S11235.282l826 ---| LDD CM+4 19125 M02S11236.282l826 ---| SHN 3 19126 M02S11237.282l826 ---| ADN PFGL 19127 M02S11238.282l826 ---| CRD CM 19128 M02S11239.282l826 ---| RJM CFN COMPARE FAMILY NAME 19129 M02S11240.282l826 ---| NJN VOL18 IF NOT DEFAULT FAMILY 19130 M02S11241.282l826 ---| VOL16 LJM VOL21 STORE FAMILY INDEX 19131 M02S11242.282l826 ---| 19132 M02S11243.282l826 ---| VOL17 LDD MA MOVE "ZFAM" FAMILY NAME TO BUFFER 19133 M02S11244.282l826 ---| CWM VOLA,ON 19134 M02S11245.282l826 ---| SBN 1 19135 M02S11246.282l826 ---| CRM UDTB,ON 19136 M02S11247.282l826 ---| UJN VOL19 CHECK FOR FAMILY EQUIPMENT 19137 M02S11248.282l826 ---| 19138 M02S11249.282l826 ---| VOL18 LDN ZERL CHECK FOR BINARY ZERO (BLANK) FAMILY NAME 19139 M02S11250.282l826 ---| CRD CM 19140 M02S11251.282l826 ---| RJM CFN COMPARE FAMILY NAME 19141 M02S11252.282l826 ---| ZFA IFC EQ,$"ZFAM"$$ 19142 M02S11253.282l826 ---| ZJN VOL16 IF BINARY ZERO FAMILY MAPS TO DEFAULT 19143 M02S11254.282l826 ---| ZFA ELSE 19144 M02S11255.282l826 ---| ZJN VOL17 IF BINARY ZERO FAMILY MAPS TO "ZFAM" 19145 M02S11256.282l826 ---| ZFA ENDIF 19146 M02S11257.282l826 ---| VOL19 LDN 77 FORCE FAMILY INDEX TO 77 19147 M02S11258.282l826 ---| STD T8 19148 M02S11259.282l826 ---| VOL20 SOD CN+2 19149 M02S11260.282l826 ---| CRD CM 19150 M02S11261.282l826 ---| SBD CN 19151 M02S11262.282l826 ---| MJN VOL21 IF END OF MASS STORAGE DEVICES 19152 M02S11263.282l826 ---| LDD CM 19153 M02S11264.282l826 ---| SHN -6 19154 M02S11265.282l826 ---| LPN 41 19155 M02S11266.282l826 ---| LMN 40 19156 M02S11267.282l826 ---| NJN VOL20 IF NOT MASS STORAGE DEVICE 19157 M02S11268.282l826 ---| LDD CM+4 19158 M02S11269.282l826 ---| SHN 3 19159 M02S11270.282l826 ---| ADN MDGL 19160 M02S11271.282l826 ---| CRD T1 19161 M02S11272.282l826 ---| ADN STLL-MDGL GET STATUS WORD 19162 M02S11273.282l826 ---| CRD T2 19163 M02S11274.282l826 ---| SBN STLL-PFGL READ PF DESCRIPTION 19164 M02S11275.282l826 ---| CRD CM 19165 M02S11276.282l826 ---| LDD T1 19166 M02S11277.282l826 ---| SHN 21-12 19167 M02S11278.282l826 ---| MJN VOL20 IF AUXILIARY DEVICE 19168 M02S11279.282l826 ---| LDD T2 19169 M02S11280.282l826 ---| LPC MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL 19170 M02S11281.282l826 ---| NJN VOL20 IF DEVICE UNAVAILABLE 19171 M02S11282.282l826 ---| RJM CFN COMPARE FAMILY NAME 19172 M02S11283.282l826 ---| NJN VOL20 IF NO MATCH 19173 M02S11284.282l826 ---| 19174 M02S11285.282l826 ---|* FAMILY FOUND STORE FAMILY INDEX. 19175 M02S11286.282l826 ---| 19176 M02S11287.282l826 ---| LDD CN+2 SET EQUIPMENT NUMBER 19177 M02S11288.282l826 ---| SBD CN 19178 M02S11289.282l826 ---| STD T8 19179 M02S11290.282l826 ---| 19180 M02S11291.282l826 ---|* (T7) = DESTINATION BUFFER CHARACTER POINTER, ADVANCED 19181 M02S11292.282l826 ---|* TO FAMILY INDEX FIELD. 19182 M02S11293.282l826 ---|* (T8) = FAMILY EQUIPMENT ORDINAL OR 77B IF FAMILY NOT FOUND. 19183 M02S11294.282l826 ---| 19184 M02S11295.282l826 ---| VOL21 LDD T8 ENTER FAMILY INDEX IN UDT
| Line S00264 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19185 M02S00264.282l826 ---| 19186 M02S00265.282l826 ---|* CHECK FOR NULL FAMILY. 19187 M02S00266.282l826 ---| 19188 M02S00267.282l826 ---| LDN ZERL CHECK FOR BINARY (BLANK) FAMILY NAME 19189 M02S00268.282l826 ---| CRD CM 19190 M02S00269.282l826 ---| RJM CFN COMPARE FAMILY NAMES 19191 M02S00270.282l826 ---| NJN VOL16 IF NOT BLANK FAMILY 19192 M02S00271.282l826 ---| 19193 M02S00272.282l826 ---| ZFA IFC EQ,$"ZFAM"$$ 19194 M02S00273.282l826 ---| LDN 1 SET DEFAULT FAMILY ORDINAL 19195 M02S00274.282l826 ---| UJN VOL18 STORE FAMILY ORDINAL IN *UUFN* WORD OF UDT 19196 M02S00275.282l826 ---| ZFA ELSE 19197 M02S00276.282l826 ---| LDD MA MOVE *ZFAM* FAMILY NAME TO BUFFER 19198 M02S00277.282l826 ---| CWM VOLA,ON 19199 M02S00278.282l826 ---| SBN 1 19200 M02S00279.282l826 ---| CRM UDTB,ON 19201 M02S00280.282l826 ---| ZFA ENDIF 19202 M02S00281.282l826 ---| 19203 M02S00282.282l826 ---|* DETERMINE FAMILY ORDINAL. 19204 M02S00283.282l826 ---| 19205 M02S00284.282l826 ---| VOL16 LDK FOTP READ FOT POINTERS 19206 M02S00285.282l826 ---| CRD CN 19207 M02S00286.282l826 ---| LDN 0 CLEAR FAMILY ORDINAL 19208 M02S00287.282l826 ---| STD T8 19209 M02S00288.282l826 ---| STD CN+3 INITIALIZE FOT ORDINAL FOR SEARCH 19210 M02S00289.282l826 ---| VOL17 AOD CN+3 ADVANCE FOT ORDINAL 19211 M02S00290.282l826 ---| LMD CN+2 19212 M02S00291.282l826 ---| ZJN VOL19 IF END OF FOT 19213 M02S00292.282l826 ---| LDD CN READ NEXT FOT ENTRY 19214 M02S00293.282l826 ---| SHN 14 19215 M02S00294.282l826 ---| ADD CN+1 19216 M02S00295.282l826 ---| ADD CN+3 19217 M02S00296.282l826 ---| CRD CM 19218 M02S00297.282l826 ---| RJM CFN COMPARE FAMILY NAMES 19219 M02S00298.282l826 ---| NJN VOL17 IF FAMILY NAMES DO NOT MATCH 19220 M02S00299.282l826 ---| LDD CN+3 SET FAMILY ORDINAL 19221 M02S00300.282l826 ---| VOL18 STD T8 19222 M02S00301.282l826 ---| VOL19 LDD T8 STORE FAMILY ORDINAL IN UDT
| Line S11296 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19223 M01S11296.282l826 ---| RJM SCH
| Line S11297 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 19224 M01S11297.ns22000 ---| LDN 10D COPY VOLUME ACCESSIBILITY CHARACTER
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 19225 M01S00302.ns22000 +++| LDN 11D COPY VOLUME ACCESSIBILITY TO *UGNU* 19226 M00S11298.1mt +++| STD T6
| Line S11299 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 19227 M01S11299.ns22000 ---| LDN 2
| Line S00303 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 19228 M01S00303.ns22000 +++| LDN 55D 19229 M01S00304.ns22000 +++| STD T7 19230 M01S00305.ns22000 +++| LDN 1 19231 M00S11300.1mt +++| RJM CCH
| Line S01006 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19232 M01S01006.282l826 +++| RJM WUD WRITE UDT LABEL AREA 19233 M00S11301.1mt +++|
| Line S11302 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 19234 M01S11302.v23l617 ---|* COPY USER NUMBER.
| Line S00352 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19235 M02S00352.282l826 ---|* COPY USER NAME.
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19236 M01S01007.282l826 +++|* SET TO PROCESS NEXT LABEL OPERATION. 19237 M00S11303.1mt +++|
| Line S11304 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19238 M01S11304.282l826 ---| LDN 45D 19239 M01S11305.282l826 ---| STD T6 19240 M01S11306.282l826 ---| LDN 1 19241 M01S11307.282l826 ---| STD T7 19242 M01S11308.282l826 ---| LDN 7 19243 M01S11309.282l826 ---| RJM CCH 19244 M01S11310.282l826 ---| RJM WUD WRITE UDT LABEL AREA 19245 M00S11311.1mt +++| VOL22 LDN 0 19246 M00S11312.1mt +++| STD PA 19247 M00S11313.1mt +++| AOD PB INCREMENT TO NEXT LABEL OPERATION 19248 M00S11314.1mt +++| LJM VOLX RETURN 19249 M00S11315.1mt +++| 19250 M00S11316.1mt +++|
| Line S11317 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19251 M01S11317.282l826 ---| VOLA DATA 7H"ZFAM"
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1mt7 |
Seq # *Modification Id* Act ----------------------------+ 19252 M01S00007.1mt7 +++| VOLB VFD 60/10LWRONG DENS 19253 M01S00008.1mt7 +++| VFD 42/7LITY ,18/1 19254 M00S11318.1mt +++| WEL SPACE 4,10 19255 M00S11319.1mt +++|** WEL - WRITE EXTENDED LABELS TO USER BUFFER. 19256 M00S11320.1mt +++|* 19257 M00S11321.1mt +++|* CALLS ELA. 19258 M00S11322.1mt +++| 19259 M00S11323.1mt +++| 19260 M00S11324.1mt +++| WEL2 LDN ZERL SET UP CONTROL WORD 19261 M00S11325.1mt +++| CRM BUFC,ON 19262 M00S11326.1mt +++| LDC 80D 19263 M00S11327.1mt +++| STM BUFC+4 19264 M00S11328.1mt +++| LDN ZERL SET TERMINATOR WORD 19265 M00S11329.1mt +++| CRM BUF+40D,ON 19266 M00S11330.1mt +++| LDN 12 RETURN LABEL TO USER BUFFER 19267 M00S11331.1mt +++| STD T5 19268 M00S11332.1mt +++| RJM ELA 19269 M00S11333.1mt +++| CWM BUFC,T5 19270 M00S11334.1mt +++| 19271 M00S11335.1mt +++| WEL SUBR ENTRY/EXIT 19272 M00S11336.1mt +++| WELA UJN WELX RETURN 19273 M00S11337.1mt +++|* PSN (EXTENDED LABELS) 19274 M00S11338.1mt +++| LDD BY 19275 M00S11339.1mt +++| ZJN WELX IF EOF READING LABEL 19276 M00S11340.1mt +++| LDN 0 19277 M00S11341.1mt +++| STD T6 19278 M00S11342.1mt +++| STD T7 19279 M00S11343.1mt +++| WEL1 RJM ELA GET LABEL BUFFER ADDRESS 19280 M00S11344.1mt +++| ZJN WELX IF END OF BUFFER 19281 M00S11345.1mt +++| CRD CM 19282 M00S11346.1mt +++| LDD CM+4 19283 M00S11347.1mt +++| ZJN WEL2 IF END OF LABELS IN BUFFER 19284 M00S11348.1mt +++| LDN 11 UPDATE POSITION IN BUFFER 19285 M00S11349.1mt +++| RAD T7 19286 M00S11350.1mt +++| SHN -14 19287 M00S11351.1mt +++| RAD T6 19288 M00S11352.1mt +++| UJN WEL1 LOOP
| Line S04387 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 19289 M01S04387.274l797 +++| WNB SPACE 4,10 19290 M01S04388.274l797 +++|** WNB - WAIT NOT BUSY. 19291 M01S04389.274l797 +++|* 19292 M01S04390.274l797 +++|* CALLS /PRESET/GPS. 19293 M01S04391.274l797 +++| 19294 M01S04392.274l797 +++| 19295 M01S04393.274l797 +++| WNB SUBR ENTRY/EXIT 19296 M01S04394.274l797 +++| WNB1 LDN 2 WAIT NOT BUSY 19297 M01S04395.274l797 +++| RJM /PRESET/GPS GET AND PROCESS GENERAL STATUS 19298 M01S04396.274l797 +++| MJN WNB1 IF COMMAND RETRY 19299 M01S04397.274l797 +++| UJN WNBX RETURN 19300 M00S11353.1mt +++| ZRO SPACE 4,10 19301 M00S11354.1mt +++|** ZRO - ZERO FIRST WORD OF XL BUFFER. 19302 M00S11355.1mt +++|* 19303 M00S11356.1mt +++|* CALLS ELA. 19304 M00S11357.1mt +++| 19305 M00S11358.1mt +++| 19306 M00S11359.1mt +++| ZRO SUBR ENTRY 19307 M00S11360.1mt +++| LDN 0 19308 M00S11361.1mt +++| STD T6 19309 M00S11362.1mt +++| STD T7 19310 M00S11363.1mt +++| LDN ZERL 19311 M00S11364.1mt +++| CRD CN 19312 M00S11365.1mt +++| RJM ELA GET XL BUFFER ADDRESS 19313 M00S11366.1mt +++| ZJN ZRO1 IF END OF BUFFER 19314 M00S11367.1mt +++| CWD CN PRESET BUFFER 19315 M00S11368.1mt +++| ZRO1 LJM RLAX ADVANCE TO NEXT LABEL TYPE 19316 M00S11369.1mt +++| TITLE CHARACTER PROCESSING SUBROUTINES. 19317 M00S11370.1mt +++| SPACE 4,10 19318 M00S11371.1mt +++|** DIRECT CELL USAGE IN FOLLOWING ROUTINES. 19319 M00S11372.1mt +++|* 19320 M00S11373.1mt +++|* ENTRY (T5) = NUMBER OF CHARACTERS. 19321 M00S11374.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 19322 M00S11375.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 19323 M00S11376.1mt +++|* 19324 M00S11377.1mt +++|* ALL CHARACTER POSITIONS ARE REFERENCED STARTING WITH *1*. 19325 M00S11378.1mt +++|* THUS, THE CHARACTER POSITION VALUES BEING USED TO ACCESS 19326 M00S11379.1mt +++|* *BUF* MAY BE REFERENCED DIRECTLY TO THE LABEL STANDARD. 19327 M00S11380.1mt +++| 19328 M00S11381.1mt +++| IBUF CON 0 FWA OF FETCH BUFFER 19329 M00S11382.1mt +++| DBUF CON 0 FWA OF DESTINATION BUFFER 19330 M00S11383.1mt +++| CAN SPACE 4,15 19331 M00S11384.1mt +++|** CAN - COMPARE ALPHANUMERIC FIELDS. 19332 M00S11385.1mt +++|* COMPARE WILL BE GOOD IF ALL OF INPUT CHARACTER STRING IS 19333 M00S11386.1mt +++|* BINARY ZERO. 19334 M00S11387.1mt +++|* 19335 M00S11388.1mt +++|* ENTRY (A) = NUMBER OF CHARACTERS TO COMPARE. 19336 M00S11389.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 19337 M00S11390.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 19338 M00S11391.1mt +++|* 19339 M00S11392.1mt +++|* EXIT (A) = 0, GOOD COMPARE. 19340 M00S11393.1mt +++|* (A) .NE. 0, (A) = CHARACTER POSITION AT START. 19341 M00S11394.1mt +++|* (T6), (T7) = UPDATED. 19342 M00S11395.1mt +++|* 19343 M00S11396.1mt +++|* USES T3, T4. 19344 M00S11397.1mt +++|* 19345 M00S11398.1mt +++|* CALLS GCD, GCH. 19346 M00S11399.1mt +++| 19347 M00S11400.1mt +++| 19348 M00S11401.1mt +++| CAN4 SOD T5 UPDATE TO SKIP REMAINDER OF FIELD 19349 M00S11402.1mt +++| RAD T6 19350 M00S11403.1mt +++| LDD T5 19351 M00S11404.1mt +++| RAD T7 19352 M00S11405.1mt +++| LDD T3 19353 M00S11406.1mt +++| 19354 M00S11407.1mt +++| CAN SUBR ENTRY/EXIT 19355 M00S11408.1mt +++| STD T5 19356 M00S11409.1mt +++| STD T4 19357 M00S11410.1mt +++| LDD T6 SAVE STARTING POSITION 19358 M00S11411.1mt +++| STD T3 19359 M00S11412.1mt +++| CAN1 RJM GCH GET CHARACTER 19360 M00S11413.1mt +++| NJN CAN2 IF SPECIFIED 19361 M00S11414.1mt +++| SOD T4 19362 M00S11415.1mt +++| NJN CAN1 IF MORE CHARACTERS TO CHECK 19363 M00S11416.1mt +++| LDD T5 19364 M00S11417.1mt +++| RAD T7 19365 M00S11418.1mt +++| LDN 0 GOOD COMPARE 19366 M00S11419.1mt +++| UJN CANX RETURN 19367 M00S11420.1mt +++| 19368 M00S11421.1mt +++| CAN2 LDD T3 RESET CHARACTER POSITION 19369 M00S11422.1mt +++| STD T6 19370 M00S11423.1mt +++| CAN3 RJM GCH GET CHARACTER 19371 M00S11424.1mt +++| STD T4 19372 M00S11425.1mt +++| RJM GCD GET CHARACTER FROM DESTINATION BUFFER 19373 M00S11426.1mt +++| LMD T4 19374 M00S11427.1mt +++| NJN CAN4 IF NO COMPARE 19375 M00S11428.1mt +++| SOD T5 19376 M00S11429.1mt +++| NJN CAN3 IF MORE CHARACTERS TO COMPARE 19377 M00S11430.1mt +++| UJN CANX RETURN 19378 M00S11431.1mt +++| CBC SPACE 4,10 19379 M00S11432.1mt +++|** CBC - CHECK BLOCK COUNT. 19380 M00S11433.1mt +++|* 19381 M00S11434.1mt +++|* CALLS DCV. 19382 M00S11435.1mt +++| 19383 M00S11436.1mt +++| 19384 M00S11437.1mt +++| CBC SUBR ENTRY/EXIT 19385 M00S11438.1mt +++| LDD SP 19386 M00S11439.1mt +++| SHN 21-1 19387 M00S11440.1mt +++| MJN CBCX IF IGNORE ERRORS 19388 M00S11441.1mt +++| LDN CN SET DESTINATION BUFFER 19389 M00S11442.1mt +++| STM DBUF 19390 M00S11443.1mt +++| LDN 0 19391 M00S11444.1mt +++| STD CN 19392 M00S11445.1mt +++| LDN 55D 19393 M00S11446.1mt +++| STD T6 19394 M00S11447.1mt +++| LDN 2 19395 M00S11448.1mt +++| STD T7 19396 M00S11449.1mt +++| LDC 30006 19397 M00S11450.1mt +++| RJM DCV 19398 M00S11451.1mt +++| LDC UDTB RESET DESTINATION BUFFER 19399 M00S11452.1mt +++| STM DBUF 19400 M00S11453.1mt +++| LDD CN 19401 M00S11454.1mt +++| LMD BL 19402 M00S11455.1mt +++| NJN CBC1 IF ERROR IN BLOCK NUMBER 19403 M00S11456.1mt +++| LDD CN+1 19404 M00S11457.1mt +++| LMD BL+1 19405 M00S11458.1mt +++| ZJN CBCX IF GOOD BLOCK COUNT 19406 M00S11459.1mt +++| CBC1 LDN /MTX/LBE LABEL BLOCK COUNT ERROR 19407 M00S11460.1mt +++| LJM RET3 RETURN ERROR CODE
| Line S11461 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19408 M01S11461.282l826 ---| CFR SPACE 4,10 19409 M01S11462.282l826 ---|** CFR - CHECK FOR FIRST REEL. 19410 M01S11463.282l826 ---|* 19411 M01S11464.282l826 ---|* EXIT (A) = 0 IF FIRST REEL AND FILE NOT OPENED YET. 19412 M01S11465.282l826 ---|* 19413 M01S11466.282l826 ---|* CALLS UAD. 19414 M01S11467.282l826 ---|* 19415 M01S11468.282l826 ---|* USES CM - CM+4. 19416 M01S11469.282l826 ---| 19417 M01S11470.282l826 ---| 19418 M01S11471.282l826 ---| CFR SUBR ENTRY/EXIT 19419 M01S11472.282l826 ---| RJM UAD READ UVSN 19420 M01S11473.282l826 ---| ADN /MTX/UVSN 19421 M01S11474.282l826 ---| CRD CM 19422 M01S11475.282l826 ---| LDD CM+3 CHECK OPEN BIT 19423 M01S11476.282l826 ---| LPC 1000 19424 M01S11477.282l826 ---| ADD CM+4 ADD REEL NUMBER 19425 M01S11478.282l826 ---| UJN CFRX RETURN 19426 M00S11479.1mt +++| CCH SPACE 4,15 19427 M00S11480.1mt +++|** CCH - COPY INPUT BUFFER TO DESTINATION BUFFER. 19428 M00S11481.1mt +++|* 19429 M00S11482.1mt +++|* ENTRY (A) = NUMBER OF CHARACTERS TO MOVE. 19430 M00S11483.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 19431 M00S11484.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 19432 M00S11485.1mt +++|* 19433 M00S11486.1mt +++|* EXIT (T6), (T7) = INCREMENTED. 19434 M00S11487.1mt +++|* 19435 M00S11488.1mt +++|* USES T5. 19436 M00S11489.1mt +++|* 19437 M00S11490.1mt +++|* CALLS GCH, SCH. 19438 M00S11491.1mt +++| 19439 M00S11492.1mt +++| 19440 M00S11493.1mt +++| CCH SUBR ENTRY/EXIT 19441 M00S11494.1mt +++| STD T5 19442 M00S11495.1mt +++| CCH1 RJM GCH GET LABEL CHARACTER 19443 M00S11496.1mt +++| RJM SCH STORE CHARACTER IN USER BUFFER 19444 M00S11497.1mt +++| SOD T5 19445 M00S11498.1mt +++| NJN CCH1 IF MORE CHARACTERS TO MOVE 19446 M00S11499.1mt +++| UJN CCHX RETURN
| Line S01008 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 19447 M01S01008.282l826 +++| CIF SPACE 4,10 19448 M01S01009.282l826 +++|** CIF - CHECK INTERNAL TAPE FORMAT. 19449 M01S01010.282l826 +++|* 19450 M01S01011.282l826 +++|* EXIT (A) = 0 IF I, SI, OR LI TAPE FORMAT. 19451 M01S01012.282l826 +++| 19452 M01S01013.282l826 +++| 19453 M01S01014.282l826 +++| CIF SUBR ENTRY/EXIT 19454 M01S01015.282l826 +++| LDD FM 19455 M01S01016.282l826 +++| SHN -6 19456 M01S01017.282l826 +++| LMN /MTX/TFI 19457 M01S01018.282l826 +++| ZJN CIFX IF I FORMAT 19458 M01S01019.282l826 +++| LMN /MTX/TFSI&/MTX/TFI 19459 M01S01020.282l826 +++| ZJN CIFX IF SI FORMAT 19460 M01S01021.282l826 +++| LMN /MTX/TFLI&/MTX/TFSI 19461 M01S01022.282l826 +++| UJN CIFX RETURN WITH STATUS 19462 M00S11500.1mt +++| CSC SPACE 4,10 19463 M00S11501.1mt +++|** CSC - CHECK SYSTEM CODE. 19464 M00S11502.1mt +++|* 19465 M00S11503.1mt +++|* EXIT (A) = 0, IF INTERNALLY WRITTEN TAPE (SYSTEM CODE 19466 M00S11504.1mt +++|* IN HDR1 LABEL = KRONOS 2.1 OR NOS). 19467 M00S11505.1mt +++|* 19468 M00S11506.1mt +++|* CALLS CAN, GCH. 19469 M00S11507.1mt +++| 19470 M00S11508.1mt +++| 19471 M00S11509.1mt +++| CSC1 LDN 1 19472 M00S11510.1mt +++| 19473 M00S11511.1mt +++| CSC SUBR ENTRY/EXIT 19474 M00S11512.1mt +++| LDN 61D 19475 M00S11513.1mt +++| STD T6 19476 M00S11514.1mt +++| LDC CSCA CHECK IF KRONOS 2.1 19477 M00S11515.1mt +++| STM DBUF 19478 M00S11516.1mt +++| LDN 1 19479 M00S11517.1mt +++| STD T7 19480 M00S11518.1mt +++| RJM GCH 19481 M00S11519.1mt +++| ZJN CSC1 IF FIELD NOT SPECIFIED 19482 M00S11520.1mt +++| SOD T6 19483 M00S11521.1mt +++| LDN 10D COMPARE FIELDS 19484 M00S11522.1mt +++| RJM CAN 19485 M00S11523.1mt +++| ZJN CSCX IF COMPARE 19486 M00S11524.1mt +++| LDN 61D CHECK FOR NOS SYSTEM CODE 19487 M00S11525.1mt +++| STD T6 19488 M00S11526.1mt +++| LDN 6 19489 M00S11527.1mt +++| RJM CAN COMPARE FIELDS 19490 M00S11528.1mt +++| UJN CSCX RETURN 19491 M00S11529.1mt +++| 19492 M00S11530.1mt +++| 19493 M00S11531.1mt +++| CSCA DATA H*KRONOS2.1-* 19494 M00S11532.1mt +++| DATA H*NOS * 19495 M00S11533.1mt +++| DCV SPACE 4,15 19496 M00S11534.1mt +++|** DCV - CONVERT DECIMAL FIELD TO BINARY. 19497 M00S11535.1mt +++|* 19498 M00S11536.1mt +++|* ENTRY (A, 13 - 12) = NUMBER OF CHARACTER POSITIONS IN RESULT. 19499 M00S11537.1mt +++|* (A, 11 - 0) = NUMBER OF CHARACTERS IN LABEL FIELD. 19500 M00S11538.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 19501 M00S11539.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 19502 M00S11540.1mt +++|* 19503 M00S11541.1mt +++|* EXIT (T6), (T7) = INCREMENTED. 19504 M00S11542.1mt +++|* 19505 M00S11543.1mt +++|* USES T2, T3, T4, T5. 19506 M00S11544.1mt +++|* 19507 M00S11545.1mt +++|* CALLS GCH, SCH. 19508 M00S11546.1mt +++| 19509 M00S11547.1mt +++| 19510 M00S11548.1mt +++| DCV SUBR ENTRY/EXIT 19511 M00S11549.1mt +++| STD T5 NUMBER OF CHARACTERS IN LABEL 19512 M00S11550.1mt +++| SHN -14 19513 M00S11551.1mt +++| STD T4 NUMBER OF CHARACTER POSITIONS IN UDT 19514 M00S11552.1mt +++| LDN 0 PRESET RESULT 19515 M00S11553.1mt +++| STD T2 19516 M00S11554.1mt +++| STD T3 19517 M00S11555.1mt +++| DCV1 RJM GCH GET CHARACTER 19518 M00S11556.1mt +++| SBN 1R0 19519 M00S11557.1mt +++| RAD T3 19520 M00S11558.1mt +++| SHN -14 19521 M00S11559.1mt +++| RAD T2 19522 M00S11560.1mt +++| SOD T5 19523 M00S11561.1mt +++| ZJN DCV2 IF ALL DIGITS PROCESSED
| Line S11562 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 19524 M01S11562.ns2786 ---| LDD T2 10D * ACCUMALATED RESULT
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 19525 M01S00012.ns2786 +++| LDD T2 10D * ACCUMULATED RESULT 19526 M00S11563.1mt +++| SHN 14 19527 M00S11564.1mt +++| ADD T3 19528 M00S11565.1mt +++| SHN 2+6 * 4 19529 M00S11566.1mt +++| ADD T2 * 5 19530 M00S11567.1mt +++| SHN 14 19531 M00S11568.1mt +++| ADD T3 19532 M00S11569.1mt +++| SHN 1 * 10D 19533 M00S11570.1mt +++| STD T3 19534 M00S11571.1mt +++| SHN -14 19535 M00S11572.1mt +++| STD T2 19536 M00S11573.1mt +++| UJN DCV1 LOOP 19537 M00S11574.1mt +++| 19538 M00S11575.1mt +++| DCV2 LDD T4 19539 M00S11576.1mt +++| LMN 3 19540 M00S11577.1mt +++| NJN DCV3 IF NOT 3 CHARACTER POSITIONS
Proceed to Part 15
cdc/nos2.source/opl.opl871/deck/1mt.014.txt · Last modified: by 127.0.0.1