Seq # *Modification Id* Act
----------------------------+
33112 M00S19209.1mt +++| ADN 1
33113 M00S19210.1mt +++| CRD CM
33114 M00S19211.1mt +++| LDD CN+4
33115 M00S19212.1mt +++| ZJN PSL4 IF END OF LABELS IN BUFFER
33116 M00S19213.1mt +++| LMC 80D
33117 M00S19214.1mt +++| NJN PSL3 IF NOT CORRECT LENGTH
33118 M00S19215.1mt +++| LDD CM
33119 M00S19216.1mt +++| LMC *
33120 M00S19217.1mt +++| PSLC EQU *-1
33121 M00S19218.1mt +++| NJN PSL2 IF NOT CORRECT LABEL
33122 M00S19219.1mt +++| LDD CM+1
33123 M00S19220.1mt +++| LMC *
33124 M00S19221.1mt +++| PSLD EQU *-1
33125 M00S19222.1mt +++| NJN PSL2 IF NOT CORRECT LABEL
33126 M00S19223.1mt +++| LDN 10 READ LABEL
33127 M00S19224.1mt +++| STD T5
33128 M00S19225.1mt +++| RJM ELA
33129 M00S19226.1mt +++| ADN 1
33130 M00S19227.1mt +++| CRM BUF,T5
33131 M00S19228.1mt +++| LCN 1 SET WRITE LABEL
33132 M00S19229.1mt +++| LJM PSLX RETURN
33133 M00S19230.1mt +++|
33134 M00S19231.1mt +++| PSL2 LDN 11 INCREMENT TO NEXT LABEL BLOCK
33135 M00S19232.1mt +++| RAD T7
33136 M00S19233.1mt +++| SHN -14
33137 M00S19234.1mt +++| RAD T6
33138 M00S19235.1mt +++| LJM PSL1 LOOP FOR NEXT LABEL
33139 M00S19236.1mt +++|
Line S19237 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
33140 M01S19237.v23l617 ---| PSL3 LDN /MTX/IXL ILLEGAL CHARACTER COUNT IN HEADER
Line S00529 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
33141 M01S00529.v23l617 +++| PSL3 LDN /MTX/IXL INCORRECT CHARACTER COUNT IN HEADER
33142 M00S19238.1mt +++| LJM RET3 RETURN ERROR CODE
33143 M00S19239.1mt +++| PUL SPACE 4,10
33144 M00S19240.1mt +++|** PUL - PROCESS USER LABELS.
33145 M00S19241.1mt +++|*
33146 M00S19242.1mt +++|* ENTRY (A) = 3 CHARACTER LABEL NAME TO SEARCH FOR.
33147 M00S19243.1mt +++|* (PA) = PARTICULAR LABEL OF TYPE TO TAKE.
33148 M00S19244.1mt +++|*
33149 M00S19245.1mt +++|* EXIT (PA) = (A) = 0, IF NO LABEL.
33150 M00S19246.1mt +++|*
33151 M00S19247.1mt +++|* CALLS ELA.
33152 M00S19248.1mt +++|
33153 M00S19249.1mt +++|
33154 M00S19250.1mt +++| PUL4 STD PA
33155 M00S19251.1mt +++|
33156 M00S19252.1mt +++| PUL SUBR ENTRY/EXIT
33157 M00S19253.1mt +++| SHN 14
33158 M00S19254.1mt +++| STM PULA
33159 M00S19255.1mt +++| SHN -14
33160 M00S19256.1mt +++| STM PULB
33161 M00S19257.1mt +++| LDN ZERL
33162 M00S19258.1mt +++| CRD T5
33163 M00S19259.1mt +++| LDD PA
33164 M00S19260.1mt +++| LMD HN
33165 M00S19261.1mt +++| ZJN PUL4 IF MAXIMUM NUMBER OF USER LABELS
33166 M00S19262.1mt +++| PUL1 RJM ELA
33167 M00S19263.1mt +++| ZJN PUL4 IF NO EXTENDED LABELS OR END OF BUFFER
33168 M00S19264.1mt +++| CRD CN
33169 M00S19265.1mt +++| ADN 1
33170 M00S19266.1mt +++| CRD CM
33171 M00S19267.1mt +++| LDD CN+4
33172 M00S19268.1mt +++| ZJN PUL4 IF END OF LABELS IN BUFFER
33173 M00S19269.1mt +++| LMC 80D
33174 M00S19270.1mt +++| NJN PUL3 IF NOT CORRECT LENGTH
33175 M00S19271.1mt +++| LDD CM
33176 M00S19272.1mt +++| LMC *
33177 M00S19273.1mt +++| PULA EQU *-1
33178 M00S19274.1mt +++| NJN PUL2 IF NOT CORRECT LABEL
33179 M00S19275.1mt +++| LDD CM+1
33180 M00S19276.1mt +++| SHN -6
33181 M00S19277.1mt +++| LMC *
33182 M00S19278.1mt +++| PULB EQU *-1
33183 M00S19279.1mt +++| NJN PUL2 IF NOT CORRECT LABEL
33184 M00S19280.1mt +++| AOD T5
33185 M00S19281.1mt +++| SBN 1
33186 M00S19282.1mt +++| LMD PA
33187 M00S19283.1mt +++| NJN PUL2 IF NOT CORRECT LABEL BLOCK
33188 M00S19284.1mt +++| LDN 10 READ LABEL
33189 M00S19285.1mt +++| STD T5
33190 M00S19286.1mt +++| RJM ELA
33191 M00S19287.1mt +++| ADN 1
33192 M00S19288.1mt +++| CRM BUF,T5
33193 M00S19289.1mt +++| LCN 1
33194 M00S19290.1mt +++| LJM PULX RETURN
33195 M00S19291.1mt +++|
33196 M00S19292.1mt +++| PUL2 LDN 11 INCREMENT TO NEXT BLOCK
33197 M00S19293.1mt +++| RAD T7
33198 M00S19294.1mt +++| SHN -14
33199 M00S19295.1mt +++| RAD T6
33200 M00S19296.1mt +++| LJM PUL1 LOOP
33201 M00S19297.1mt +++|
Line S19298 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
33202 M01S19298.v23l617 ---| PUL3 LDN /MTX/IXL ILLEGAL CHARACTER COUNT IN HEADER
Line S00530 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
33203 M01S00530.v23l617 +++| PUL3 LDN /MTX/IXL INCORRECT CHARACTER COUNT IN HEADER
33204 M00S19299.1mt +++| LJM RET3 RETURN ERROR CODE
33205 M00S19300.1mt +++| RUD SPACE 4,10
Line S19301 Modification History |
M01 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33206 M01S19301.1mt50 ---|** RUD - READ UNIT DESCRIPTOR TABLE LABEL INFORMATION.
Line S00006 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33207 M01S00006.1mt50 +++|** RUD - READ UDT VSN AND LABEL INFORMATION.
Line S19302 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33208 M01S19302.282l826 ---|* PERFORMED ONLY AT MAGNET CP.
33209 M00S19303.1mt +++|*
Line S19304 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33210 M01S19304.282l826 ---|* CALLS UAD.
Line S01487 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33211 M01S01487.282l826 +++|* EXIT (A) = 0 IF NOT AT MAGNET CP.
Line S01488 Modification History |
M01 (Added by) | 282l826 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33212 M02S01488.1mt50 ---|* LABEL INFORMATION READ TO *UDTB* IF AT MAGNET CP.
Line S00007 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33213 M01S00007.1mt50 +++|* UDT INFORMATION READ IF AT MAGNET CP.
Line S01489 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33214 M01S01489.282l826 +++|*
33215 M01S01490.282l826 +++|* CALLS UDA.
33216 M00S19305.1mt +++|
33217 M00S19306.1mt +++|
33218 M00S19307.1mt +++| RUD SUBR ENTRY/EXIT
Line S19308 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33219 M01S19308.274l797 ---| LDM //CECB
33220 M01S19309.274l797 ---| LPN 77
33221 M01S19310.274l797 ---| NJN RUDX IF NOT AT MAGNET CONTROL POINT
Line S07788 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33222 M02S07788.282l826 ---|* LDM //CECB
33223 M02S07789.282l826 ---|* LPN 77
33224 M02S07790.282l826 ---|* NJN RUDX IF NOT AT MAGNET CONTROL POINT
Line S19311 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33225 M01S19311.282l826 ---| LDN /MTX/UUDTL
33226 M01S19312.282l826 ---| STD T1
33227 M01S19313.282l826 ---| RJM UAD
33228 M01S19314.282l826 ---| ADN /MTX/UUFN
33229 M01S19315.282l826 ---| CRM UDTB,T1
Line S01491 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33230 M01S01491.282l826 +++| RJM UDA
33231 M01S01492.282l826 +++| ZJN RUDX IF NOT AT MAGNET CP
Line S01493 Modification History |
M01 (Added by) | 282l826 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33232 M02S01493.1mt50 ---| CRM UDTB,T1 READ LABEL INFORMATION
Line S00008 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33233 M01S00008.1mt50 +++| CRM EVSN,T1 READ VSN AND LABEL INFORMATION
33234 M00S19316.1mt +++| UJN RUDX RETURN
Line S01221 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2770 |
Seq # *Modification Id* Act
----------------------------+
33235 M02S01221.ns2770 ---| SBL SPACE 4,10
33236 M02S01222.ns2770 ---|** SBL - SETUP BLANK LABEL DATA AND ROUTINES.
33237 M02S01223.ns2770 ---|* PERFORM SETUP FOR AUTO BLANK LABELING.
33238 M02S01224.ns2770 ---|*
33239 M02S01225.ns2770 ---|* ENTRY UDT LABEL IN *UDTB*.
33240 M02S01226.ns2770 ---|*
33241 M02S01227.ns2770 ---|* EXIT (A) = 0.
33242 M02S01228.ns2770 ---|* VAC AND FAC FIELDS IN LABEL SET TO 0.
33243 M02S01229.ns2770 ---|* FORCED LABEL WRITE FOR EOF1 LABEL.
33244 M02S01230.ns2770 ---|*
33245 M02S01231.ns2770 ---|* CALLS WUD.
33246 M02S01232.ns2770 ---|
33247 M02S01233.ns2770 ---|
33248 M02S01234.ns2770 ---| SBL1 LDN 0
33249 M02S01235.ns2770 ---|
33250 M02S01236.ns2770 ---| SBL SUBR ENTRY/EXIT
33251 M02S01237.ns2770 ---| LDC UJNI+EOF1-EOFA
33252 M02S01238.ns2770 ---| STM EOFA
Line S01239 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 282l826 |
M03 (Removed by) | ns2770 |
Seq # *Modification Id* Act
----------------------------+
33253 M03S01239.ns2770 ---| LDM UDTB+5+4 REEL NUMBER
33254 M03S01240.ns2770 ---| NJN SBL1 IF NOT FIRST REEL
Line S01494 Modification History |
M01 (Added by) | 282l826 |
M02 (Removed by) | ns2770 |
Seq # *Modification Id* Act
----------------------------+
33255 M02S01494.ns2770 ---| LDD UP
33256 M02S01495.ns2770 ---| SHN 21-11
33257 M02S01496.ns2770 ---| MJN SBL1 IF NOT INITIAL REEL ASSIGNMENT
Line S01241 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2770 |
Seq # *Modification Id* Act
----------------------------+
33258 M02S01241.ns2770 ---| LDM UDTB+5*5+2 CLEAR VAC IN LABEL
33259 M02S01242.ns2770 ---| LPN 77
33260 M02S01243.ns2770 ---| LMC 5500 FORCE TO SPACE
33261 M02S01244.ns2770 ---| STM UDTB+5*5+2
33262 M02S01245.ns2770 ---| LDN 0 CLEAR FILE IDENTIFIER FIELD
33263 M02S01246.ns2770 ---| STM UDTB+10D
33264 M02S01247.ns2770 ---| STM UDTB+3*5+3 CLEAR SECTION NUMBER
33265 M02S01248.ns2770 ---| STM UDTB+4*5+3 CLEAR SEQUENCE NUMBER
33266 M02S01249.ns2770 ---| LDN 1
33267 M02S01250.ns2770 ---| STM UDTB+3*5+4
33268 M02S01251.ns2770 ---| STM UDTB+4*5+4
33269 M02S01252.ns2770 ---| LDM UDTB+23D CLEAR FAC IN LABEL
33270 M02S01253.ns2770 ---| LPN 77
33271 M02S01254.ns2770 ---| LMC 5500 FORCE TO SPACE
33272 M02S01255.ns2770 ---| STM UDTB+23D
33273 M02S01256.ns2770 ---| LDM UDTB+8D SET LABEL EXPIRED
33274 M02S01257.ns2770 ---| SCN 2
33275 M02S01258.ns2770 ---| LMN 2
33276 M02S01259.ns2770 ---| STM UDTB+8D
33277 M02S01260.ns2770 ---| RJM WUD COPY THE UDT BACK TO MAGNET-S FL
33278 M02S01261.ns2770 ---| LJM SBL1 RETURN
Line S01262 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33279 M01S01262.252l678 +++| UDA SPACE 4,10
Line S01263 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33280 M02S01263.1mt50 ---|** UDA - UDT ADDRESS OF LABEL PARAMETERS (UUFN).
33281 M02S01264.1mt50 ---|* COMPUTE BEGINNING ADDRESS OF LABEL INFORMATION IN UDT.
Line S00009 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33282 M01S00009.1mt50 +++|** UDA - SET UDT ADDRESS OF VSN AND LABEL PARAMETERS.
Line S01265 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33283 M01S01265.252l678 +++|*
Line S01266 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33284 M02S01266.1mt50 ---|* EXIT (A) = BEGINNING ADDRESS OF LABEL INFORMATION IN UDT.
33285 M02S01267.1mt50 ---|* (T1) = WORD COUNT TO WRITE.
Line S00010 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33286 M01S00010.1mt50 +++|* EXIT (A) = ADDRESS OF *UESN*.
33287 M01S00011.1mt50 +++|* (T1) = NUMBER OF UDT WORDS IN BLOCK.
Line S01268 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33288 M01S01268.252l678 +++|*
33289 M01S01269.252l678 +++|* CALLS UAD.
33290 M01S01270.252l678 +++|
33291 M01S01271.252l678 +++|
33292 M01S01272.252l678 +++| UDA1 LDN 0
33293 M01S01273.252l678 +++|
33294 M01S01274.252l678 +++| UDA SUBR ENTRY/EXIT
33295 M01S01275.252l678 +++| LDM CECB
33296 M01S01276.252l678 +++| LPN 77
33297 M01S01277.252l678 +++| NJN UDA1 IF NOT AT MAGNET CP
Line S01278 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33298 M02S01278.1mt50 ---| LDN /MTX/UUDTL
Line S00012 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33299 M01S00012.1mt50 +++| LDN /MTX/UUDTL+2
Line S01279 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33300 M01S01279.252l678 +++| STD T1
33301 M01S01280.252l678 +++| RJM UAD
Line S01281 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33302 M02S01281.1mt50 ---| ADN /MTX/UUFN
Line S00013 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33303 M01S00013.1mt50 +++| ADK /MTX/UESN
33304 M01S00014.1mt50 +++| ERRNZ /MTX/UISN-/MTX/UESN-1
33305 M01S00015.1mt50 +++| ERRNZ /MTX/UUFN-/MTX/UISN-1
Line S01282 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33306 M01S01282.252l678 +++| UJN UDAX RETURN
33307 M01S01283.252l678 +++| WUC SPACE 4,15
33308 M01S01284.252l678 +++|** WUC - WRITE UNIT DESCRIPTOR TABLE CONDITIONALLY.
33309 M01S01285.252l678 +++|* UPDATE UDT CREATION DATE FOR SYMBOLIC ACCESS TMS TAPES.
33310 M01S01286.252l678 +++|*
33311 M01S01287.252l678 +++|* EXIT CREATION DATE FROM LABEL WRITTEN INTO *UDT* IF TAPE IS
33312 M01S01288.252l678 +++|* SYMBOLIC ACCESS.
33313 M01S01289.252l678 +++|*
33314 M01S01290.252l678 +++|* NOTE (A) IS PRESERVED.
33315 M01S01291.252l678 +++|*
33316 M01S01292.252l678 +++|* USES CM - CM+4.
33317 M01S01293.252l678 +++|*
33318 M01S01294.252l678 +++|* CALLS UAD, WUD.
33319 M01S01295.252l678 +++|
33320 M01S01296.252l678 +++|
33321 M01S01297.252l678 +++| WUC SUBR ENTRY/EXIT
33322 M01S01298.252l678 +++| STM WUCA+1 SAVE (A)
33323 M01S01299.252l678 +++| SHN -14
33324 M01S01300.252l678 +++| ADC LDCI
33325 M01S01301.252l678 +++| STM WUCA
33326 M01S01302.252l678 +++| LDM CECB CHECK CONTROL POINT
33327 M01S01303.252l678 +++| LPN 77
33328 M01S01304.252l678 +++| NJN WUC1 IF NOT AT MAGNET CP
33329 M01S01305.252l678 +++| RJM UAD GET UDT ADDRESS
33330 M01S01306.252l678 +++| ADN /MTX/UTMS
33331 M01S01307.252l678 +++| CRD CM CHECK FOR TMS TAPE, SYMBOLIC ACCESS
33332 M01S01308.252l678 +++| LDD CM+4
33333 M01S01309.252l678 +++| SHN 21-10
33334 M01S01310.252l678 +++| PJN WUC1 IF NOT SYMBOLIC ACCESS
33335 M01S01311.252l678 +++| LDM WUCB+0 SET CREATION DATE
33336 M01S01312.252l678 +++| STM WUCC+0
33337 M01S01313.252l678 +++| LDM WUCB+1
33338 M01S01314.252l678 +++| STM WUCC+1
33339 M01S01315.252l678 +++| LDM WUCC+2
33340 M01S01316.252l678 +++| LPN 77
33341 M01S01317.252l678 +++| STM WUCC+2
33342 M01S01318.252l678 +++| LDM WUCB+2
33343 M01S01319.252l678 +++| SCN 77
33344 M01S01320.252l678 +++| RAM WUCC+2
33345 M01S01321.252l678 +++| RJM WUD WRITE UNIT DESCRIPTOR TABLE
33346 M01S01322.252l678 +++| WUC1 BSS 0
33347 M01S01323.252l678 +++| WUCA LDC * RESTORE (A)
33348 M01S01324.252l678 +++| LJM WUCX RETURN
33349 M01S01325.252l678 +++|
33350 M01S01326.252l678 +++| WUCB EQU BUF+42D/2 CREATION DATE IN LABEL BUFFER
33351 M01S01327.252l678 +++|*WUCC EQU UDTB+/MTX/UDAT*5-/MTX/UUFN*5 CREATION DATE IN UDT
33352 M01S01328.252l678 +++| WUD SPACE 4,10
Line S01329 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33353 M02S01329.1mt50 ---|** WUD - WRITE UNIT DESCRIPTOR TABLE.
33354 M02S01330.1mt50 ---|* OPERATION ONLY PERFORMED IF AT MAGNET CP.
Line S00016 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33355 M01S00016.1mt50 +++|** WUD - WRITE UDT VSN AND LABEL INFORMATION.
Line S01331 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33356 M01S01331.252l678 +++|*
33357 M01S01332.252l678 +++|* CALLS UDA.
33358 M01S01333.252l678 +++|
33359 M01S01334.252l678 +++|
33360 M01S01335.252l678 +++| WUD SUBR ENTRY/EXIT
33361 M01S01336.252l678 +++| RJM UDA GET UDT LABEL ADDRESS ADDRESS
33362 M01S01337.252l678 +++| ZJN WUDX IF NOT AT MAGNET CP
Line S01338 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33363 M02S01338.1mt50 ---| CWM UDTB,T1
Line S00017 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33364 M01S00017.1mt50 +++| CWM EVSN,T1
Line S01339 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33365 M01S01339.252l678 +++| UJN WUDX RETURN
Line S00106 Modification History |
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act
----------------------------+
33366 M01S00106.ns2786 +++| SCL SPACE 4,10
33367 M01S00107.ns2786 +++|** SCL - SET CENTURY IN LABEL.
33368 M01S00108.ns2786 +++|* GENERATES THE *ISO* STANDARD CENTURY CHARACTER, BASED ON THE
33369 M01S00109.ns2786 +++|* YEAR IN THE *UDT*, AND PLACES IT IN THE OUTPUT BUFFER.
33370 M01S00110.ns2786 +++|*
33371 M01S00111.ns2786 +++|* ENTRY (T7) = CHARACTER POSITION OF YEAR IN *UDT*.
33372 M01S00112.ns2786 +++|* (T6) = CHARACTER POSITION IN OUTPUT BUFFER.
33373 M01S00113.ns2786 +++|*
33374 M01S00114.ns2786 +++|* EXIT FILL CHARACTER PLACED IN OUTPUT BUFFER,
33375 M01S00115.ns2786 +++|* (* * FOR 19XX YEARS, *0* FOR 20XX YEARS).
33376 M01S00116.ns2786 +++|* (T7) = (A) = ORIGINAL (T7).
33377 M01S00117.ns2786 +++|* (T6) INCREMENTED.
33378 M01S00118.ns2786 +++|*
33379 M01S00119.ns2786 +++|* CALLS GUD, SLC.
33380 M01S00120.ns2786 +++|*
33381 M01S00121.ns2786 +++|* USES T7.
33382 M01S00122.ns2786 +++|
33383 M01S00123.ns2786 +++|
33384 M01S00124.ns2786 +++| SCL1 LDN 1R SPACE FILL
33385 M01S00125.ns2786 +++| SCL2 RJM SLC STORE LABEL CHARACTER
33386 M01S00126.ns2786 +++| SOD T7
33387 M01S00127.ns2786 +++|
33388 M01S00128.ns2786 +++| SCL SUBR ENTRY/EXIT
33389 M01S00129.ns2786 +++| RJM GUD GET TENS DIGIT OF YEAR
33390 M01S00130.ns2786 +++| SBN 1R7
33391 M01S00131.ns2786 +++| PJN SCL1 IF YEAR .LE. 1999
33392 M01S00132.ns2786 +++| LDN 1R0 ZERO FILL FOR NEXT CENTURY
33393 M01S00133.ns2786 +++| UJN SCL2 STORE CHARACTER AND RETURN
33394 M00S19317.1mt +++| SLC SPACE 4,10
33395 M00S19318.1mt +++|** SLC - STORE LABEL CHARACTER.
33396 M00S19319.1mt +++|*
33397 M00S19320.1mt +++|* ENTRY (T6) = CHARACTER POSITION IN *BUF*.
33398 M00S19321.1mt +++|* (A) = CHARACTER.
33399 M00S19322.1mt +++|*
33400 M00S19323.1mt +++|* EXIT (T6) = INCREMENTED.
33401 M00S19324.1mt +++|*
33402 M00S19325.1mt +++|* USES T1.
33403 M00S19326.1mt +++|
33404 M00S19327.1mt +++|
33405 M00S19328.1mt +++| SLC1 LDM BUF-1,T1
33406 M00S19329.1mt +++| SCN 77
33407 M00S19330.1mt +++| LMD T0
33408 M00S19331.1mt +++| SLC2 STM BUF-1,T1
33409 M00S19332.1mt +++|
33410 M00S19333.1mt +++| SLC SUBR ENTRY/EXIT
33411 M00S19334.1mt +++| STD T0 SAVE CHARACTER
33412 M00S19335.1mt +++| AOD T6 INCREMENT POSITION
33413 M00S19336.1mt +++| SHN 21
33414 M00S19337.1mt +++| STD T1
33415 M00S19338.1mt +++| SHN -21
33416 M00S19339.1mt +++| NJN SLC1 IF EVEN CHARACTER
33417 M00S19340.1mt +++| LDM BUF-1,T1
33418 M00S19341.1mt +++| LPN 77
33419 M00S19342.1mt +++| SHN 14
33420 M00S19343.1mt +++| LMD T0
33421 M00S19344.1mt +++| SHN 6
33422 M00S19345.1mt +++| UJN SLC2 STORE CHARACTER
33423 M00S19346.1mt +++| SFL SPACE 4,10
33424 M00S19347.1mt +++|** SFL - SPACE FILL LABEL.
33425 M00S19348.1mt +++|*
33426 M00S19349.1mt +++|* (A) = NUMBER OF SPACES.
33427 M00S19350.1mt +++|* (T6) = FIRST CHARACTER OF LABEL FIELD.
33428 M00S19351.1mt +++|*
33429 M00S19352.1mt +++|* CALLS SLC.
33430 M00S19353.1mt +++|
33431 M00S19354.1mt +++|
33432 M00S19355.1mt +++| SFL SUBR ENTRY/EXIT
33433 M00S19356.1mt +++| STD T5
33434 M00S19357.1mt +++| SFL1 LDN 1R
33435 M00S19358.1mt +++| RJM SLC STORE LABEL CHARACTER
33436 M00S19359.1mt +++| SOD T5
33437 M00S19360.1mt +++| NJN SFL1 IF STILL MORE CHARACTERS TO FILL
33438 M00S19361.1mt +++| UJN SFLX RETURN
33439 M00S19362.1mt +++| SPACE 4,10
33440 M00S19363.1mt +++|** COMMON DECKS.
33441 M00S19364.1mt +++|
33442 M00S19365.1mt +++|
33443 M00S19366.1mt +++|*CALL COMPC2D
33444 M00S19367.1mt +++| TITLE HARDWARE PROCESSING SUBROUTINES.
33445 M00S19368.1mt +++| WTM SPACE 4,10
33446 M00S19369.1mt +++|** WTM - WRITE TAPE MARKS.
33447 M00S19370.1mt +++|*
Line S00042 Modification History |
M01 (Added by) | 1mt27 |
M02 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33448 M02S00042.1mt27a ---|* EXIT TO *WTE0* IF NOT READY OR NO WRITE ENABLE.
33449 M02S00043.1mt27a ---|*
33450 M00S19371.1mt +++|* CALLS FCN, STW, WTE.
33451 M00S19372.1mt +++|
33452 M00S19373.1mt +++|
Line S19374 Modification History |
M01 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33453 M01S19374.1mt27a ---|* MTS WRITE TAPE MARK.
33454 M01S19375.1mt27a ---|
Line S19376 Modification History |
M01 (Removed by) | 1mt27 |
M02 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33455 M02S19376.1mt27a ---| WTM1 LDN 51
Line S00044 Modification History |
M01 (Added by) | 1mt27 |
M02 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33456 M02S00044.1mt27a ---| WTM1 AOM WTEB INCREMENT ERROR REPOSITIONING COUNTER
33457 M02S00045.1mt27a ---| LDN 51
Line S19377 Modification History |
M01 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33458 M01S19377.1mt27a ---| RJM FCN
33459 M01S19378.1mt27a ---| RJM WTE CHECK AND PROCESS ERRORS
Line S00046 Modification History |
M01 (Added by) | 1mt27 |
M02 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33460 M02S00046.1mt27a ---| LDN 0 CLEAR ERROR REPOSITIONING COUNTER
33461 M02S00047.1mt27a ---| STM WTEB
Line S19379 Modification History |
M01 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33462 M01S19379.1mt27a ---|
33463 M00S19380.1mt +++| WTM SUBR ENTRY/EXIT
Line S19381 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33464 M01S19381.274l797 ---| LDN 2 WAIT NOT BUSY
Line S07791 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33465 M01S07791.274l797 +++| WTM0 LDN 2 WAIT NOT BUSY
33466 M00S19382.1mt +++| RJM STW
Line S19383 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33467 M01S19383.274l797 ---| LDD DS CHECK FOR READY AND WRITE ENABLE
Line S07792 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33468 M01S07792.274l797 +++| WTMA EQU *-1
Line S07793 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33469 M02S07793.1mt44 ---|* RJM /PRESET/GPS
33470 M02S07794.1mt44 ---| PSN
33471 M02S07795.1mt44 ---| WTMB EQU *-1
Line S00043 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33472 M01S00043.1mt44 +++|* RJM /PRESET/GPS (IF CTS)
33473 M01S00044.1mt44 +++| WTMB PSN
Line S07796 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33474 M01S07796.274l797 +++|* MJN WTM2 IF COMMAND RETRY (CTS)
33475 M01S07797.274l797 +++|* LDD DS CHECK FOR READY AND WRITE ENABLE
33476 M00S19384.1mt +++| LPC 201
33477 M00S19385.1mt +++| LMC 201
Line S19386 Modification History |
M01 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33478 M01S19386.1mt27a ---| ZJN WTM1 IF READY AND WRITE ENABLE
Line S19387 Modification History |
M01 (Removed by) | 1mt27 |
M02 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33479 M02S19387.1mt27a ---| RJM WTE WRITE TAPE MARK ERROR
33480 M02S19388.1mt27a ---| UJN WTM1 WRITE TAPE MARK
Line S00048 Modification History |
M01 (Added by) | 1mt27 |
M02 (Removed by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33481 M02S00048.1mt27a ---| LJM WTE0 WRITE TAPE MARK ERROR
Line S00077 Modification History |
M01 (Added by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33482 M01S00077.1mt27a +++| NJN WTM1 IF NOT READY OR NO WRITE ENABLE
33483 M01S00078.1mt27a +++|
33484 M01S00079.1mt27a +++|* WRITE TAPE MARK.
33485 M01S00080.1mt27a +++|
Line S00081 Modification History |
M01 (Added by) | 1mt27a |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33486 M02S00081.274l797 ---| LDN 51
Line S07798 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33487 M01S07798.274l797 +++| LDN F0051
Line S00082 Modification History |
M01 (Added by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33488 M01S00082.1mt27a +++| RJM FCN
Line S07799 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33489 M01S07799.274l797 +++|* LDN 0
Line S00083 Modification History |
M01 (Added by) | 1mt27a |
Seq # *Modification Id* Act
----------------------------+
33490 M01S00083.1mt27a +++| WTM1 RJM WTE CHECK AND PROCESS ERRORS
33491 M01S00084.1mt27a +++| UJN WTMX RETURN
Line S07800 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33492 M01S07800.274l797 +++|
33493 M01S07801.274l797 +++| WTM2 LDN F0002
33494 M01S07802.274l797 +++| RJM /PRESET/ICF ISSUE CONTINUE FUNCTION
33495 M01S07803.274l797 +++| UJP WTM0 WAIT FOR END OF OPERATION
33496 M00S19389.1mt +++| SPACE 4,10
33497 M00S19390.1mt +++| TADD TSAD ADDRESS RELOCATION TABLE
33498 M00S19391.1mt +++|
33499 M00S19392.1mt +++| USE BUFFERS
33500 M00S19393.1mt +++|
33501 M00S19394.1mt +++| ERROVL
Line S00045 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33502 M01S00045.1mt44 +++|
Line S19395 Modification History |
M01 (Removed by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33503 M01S19395.1mt50 ---| UDTB EQU * UNIT DESCRIPTOR BUFFER
Line S00018 Modification History |
M01 (Added by) | 1mt50 |
Seq # *Modification Id* Act
----------------------------+
33504 M01S00018.1mt50 +++| EVSN EQU * *UESN*
33505 M01S00019.1mt50 +++| IVSN EQU EVSN+5 *UISN*
33506 M01S00020.1mt50 +++| UDTB EQU IVSN+5 UDT LABEL PARAMETERS (*UUFN* - *UDAT*)
Line S19396 Modification History |
M01 (Removed by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33507 M01S19396.1mt44 ---| DCB EQU UDTB+/MTX/UUDTL*5
Line S00046 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33508 M01S00046.1mt44 +++| DCB EQU UDTB+/MTX/UUDTL*5 DATA CONVERSION BUFFER
33509 M01S00047.1mt44 +++|
Line S01340 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33510 M01S01340.252l678 +++| WUCC EQU UDTB+/MTX/UDAT*5-/MTX/UUFN*5 CREATION DATE IN UDT
Line S00048 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33511 M01S00048.1mt44 +++| TITLE PRESET.
33512 M00S19397.1mt +++| PRS SPACE 4,10
33513 M00S19398.1mt +++|** PRS - PRESET.
33514 M00S19399.1mt +++|*
33515 M00S19400.1mt +++|* CALLS MCH.
33516 M00S19401.1mt +++|
33517 M00S19402.1mt +++|
33518 M00S19403.1mt +++| PRS LDC PRSA MODIFY CHANNELS
33519 M00S19404.1mt +++| RJM MCH
Line S07804 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33520 M01S07804.274l797 +++| LDD HP
33521 M01S07805.274l797 +++| SHN 21-7
33522 M01S07806.274l797 +++| PJP PRS2 IF NOT CTS
33523 M01S07807.274l797 +++| LDC LDNI+CCW/10000
33524 M01S07808.274l797 +++| STM /WRITE/WCTA DO CODE CONVERSION
33525 M01S07809.274l797 +++| LDN CLBL
33526 M01S07810.274l797 +++| STM LTYP+1 LENGTH OF LABEL
33527 M00S19405.1mt +++| LDC LDNI+0
Line S07811 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33528 M01S07811.274l797 +++| STM /WRITE/WCTD
33529 M01S07812.274l797 +++| STM /WRITE/WCTD+1
33530 M01S07813.274l797 +++| ISTORE /WRITE/WCTE,(UJN /WRITE/WCT5)
33531 M01S07814.274l797 +++| LDC 6321 BITS IN GENERAL STATUS TO CHECK
33532 M01S07815.274l797 +++| STM /PRESET/WFEA
33533 M01S07816.274l797 +++| LDC /PRESET/GPS
33534 M01S07817.274l797 +++| STM WTMA
33535 M01S07818.274l797 +++| ISTORE WTMB,(MJN WTM2)
33536 M01S07819.274l797 +++| LDK CPEL-1
33537 M01S07820.274l797 +++| STD T1
33538 M01S07821.274l797 +++| PRS1 LDM .CPE,T1 REPLACE *WTE* WITH *CPE*
33539 M01S07822.274l797 +++| STM WTEX,T1
33540 M01S07823.274l797 +++| SOD T1
33541 M01S07824.274l797 +++| PJN PRS1 IF MORE CODE TO MOVE
33542 M01S07825.274l797 +++| ISTORE ERAA,(UJN ERA1) SKIP ERASE GAP
33543 M01S07826.274l797 +++| ISTORE /WRITE/WCTJ,(UJN /WRITE/WRT7) SKIP READ CM BUFFER
33544 M01S07827.274l797 +++| LDC /WRITE/WCT2 SKIP CODE CONVERSION
33545 M01S07828.274l797 +++| STM /WRITE/WCTI
33546 M01S07829.274l797 +++| ISTORE /WRITE/WCTG,(UJN /WRITE/WCT7) SKIP READ OF CM BUFFER
Line S00024 Modification History |
M01 (Added by) | 1mt38 |
Seq # *Modification Id* Act
----------------------------+
33547 M01S00024.1mt38 +++| ISTORE /WRITE/WCTM,(UJN /WRITE/WRT7) SKIP BLOCK COUNT UPDATE
Line S07830 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33548 M01S07830.274l797 +++| UJN PRS3 SET SRU INCREMENT
33549 M01S07831.274l797 +++|
33550 M01S07832.274l797 +++| PRS2 LDC LDNI+0
Line S19406 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33551 M01S19406.251l664 ---| STM /WRITE/WRTF
33552 M01S19407.251l664 ---| STM /WRITE/WRTF+1
33553 M01S19408.251l664 ---| LDC UJNI+2
33554 M01S19409.251l664 ---| STM /WRITE/WRTG
Line S00155 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33555 M01S00155.251l664 +++| STM /WRITE/WRTC
33556 M01S00156.251l664 +++| STM /WRITE/WRTC+1
33557 M01S00157.251l664 +++| LDM PRSC
33558 M01S00158.251l664 +++| STM /WRITE/WRTD
33559 M01S00159.251l664 +++| LDM PRSD
33560 M01S00160.251l664 +++| STM /WRITE/WRTG
Line S07833 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33561 M01S07833.274l797 +++| LDC 4625
33562 M01S07834.274l797 +++| STM //WEOA
33563 M01S07835.274l797 +++| PRS3 LDC /SRU/ITCL*100 SET SRU INCREMENT
33564 M01S07836.274l797 +++| STM //CECA
33565 M00S19410.1mt +++| LDM PRSB
Line S19411 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33566 M01S19411.251l664 ---| STM /WRITE/WRTI
Line S00161 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33567 M01S00161.251l664 +++| STM /WRITE/WRTH
Line S19412 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33568 M01S19412.274l797 ---| LDC 4625
33569 M01S19413.274l797 ---| STM //WEOA
33570 M01S19414.274l797 ---| LDC /SRU/ITCL*100 SET SRU INCREMENT
33571 M01S19415.274l797 ---| STM //CECA
33572 M00S19416.1mt +++| LJM PRSX RETURN
33573 M00S19417.1mt +++|
33574 M00S19418.1mt +++|
33575 M00S19419.1mt +++| PRSA CHTB CHANNEL TABLE
33576 M00S19420.1mt +++|
33577 M00S19421.1mt +++| PRSB BSS 0
Line S19422 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33578 M01S19422.251l664 ---| LOC /WRITE/WRTI
Line S00162 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33579 M01S00162.251l664 +++| LOC /WRITE/WRTH
33580 M00S19423.1mt +++| UJN /WRITE/WRT7 CALCULATE DATA CHECKSUM
33581 M00S19424.1mt +++| LOC *O
Line S00163 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33582 M01S00163.251l664 +++|
33583 M01S00164.251l664 +++| PRSC BSS 0
33584 M01S00165.251l664 +++| LOC /WRITE/WRTD
33585 M01S00166.251l664 +++| UJN /WRITE/WRT3.1 WRITE LABELS
33586 M01S00167.251l664 +++| LOC *O
33587 M01S00168.251l664 +++|
33588 M01S00169.251l664 +++| PRSD BSS 0
33589 M01S00170.251l664 +++| LOC /WRITE/WRTG
33590 M01S00171.251l664 +++| UJN /WRITE/WRT5 WRITE LABELS
33591 M01S00172.251l664 +++| LOC *O
Line S00049 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33592 M01S00049.1mt44 +++| TITLE CTS-SPECIFIC ROUTINES.
Line S07837 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33593 M01S07837.274l797 +++| CPE SPACE 4,15
33594 M01S07838.274l797 +++|** CPE - CHECK AND PROCESS WRITE TAPE MARK ERRORS.
33595 M01S07839.274l797 +++|*
33596 M01S07840.274l797 +++|* THIS ROUTINE OVERLAYS *WTE* FOR CTS.
33597 M01S07841.274l797 +++|*
33598 M01S07842.274l797 +++|* ENTRY (A) .EQ. 0 IF STATUS SHOULD BE CHECKED.
33599 M01S07843.274l797 +++|* (A) .NE. 0 IF NOT READY OR NO WRITE ENABLE.
33600 M01S07844.274l797 +++|*
Line S07845 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33601 M02S07845.1mt44 ---|* CALLS *CWP*, *EMM*.
Line S00050 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33602 M01S00050.1mt44 +++|* CALLS *CEM*, *CWP*.
Line S07846 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33603 M01S07846.274l797 +++|*
33604 M01S07847.274l797 +++|* MACROS CALL.
33605 M01S07848.274l797 +++|
33606 M01S07849.274l797 +++|
33607 M01S07850.274l797 +++| .CPE BSS 0
33608 M01S07851.274l797 +++| LOC WTEX
33609 M01S07852.274l797 +++| CPE SUBR ENTRY/EXIT
33610 M01S07853.274l797 +++| ZJN CPE2 IF CHECK STATUS
33611 M01S07854.274l797 +++| LPN 1
33612 M01S07855.274l797 +++| NJN CPE1 IF NOT READY
33613 M01S07856.274l797 +++| LDN 3
33614 M01S07857.274l797 +++| STD EP SET SUB ERROR CODE
33615 M01S07858.274l797 +++| LDN /MTX/NWE
33616 M01S07859.274l797 +++| UJN CPE1.1 RETURN
33617 M01S07860.274l797 +++|
33618 M01S07861.274l797 +++| CPE1 LDN /MTX/RDR NOT READY
33619 M01S07862.274l797 +++| STD EC
Line S07863 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33620 M02S07863.1mt44 ---| CALL EMM CALL ERROR HANDLER
Line S00051 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33621 M01S00051.1mt44 +++| CALL CEM CALL ERROR HANDLER
Line S07864 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33622 M01S07864.274l797 +++| LDD EC
33623 M01S07865.274l797 +++| CPE1.1 LJM RET3 RETURN
33624 M01S07866.274l797 +++|
33625 M01S07867.274l797 +++| CPE2 STD EC
33626 M01S07868.274l797 +++| CPE3 RJM /PRESET/WFE WAIT FOR END OF OPERATION
33627 M01S07869.274l797 +++| MJN CPE5 IF COMMAND RETRY
33628 M01S07870.274l797 +++| LMN 20 EXPECT TAPE MARK STATUS
33629 M01S07871.274l797 +++| ZJN CPE4 IF NO ERROR
33630 M01S07872.274l797 +++| LDN /MTX/STE STATUS ERROR
33631 M01S07873.274l797 +++| CPE4 ADD EI
33632 M01S07874.274l797 +++| ZJN CPEX IF NO ERROR OR PREVIOUS ERROR
33633 M01S07875.274l797 +++| CALL CWP WRITE ERROR PROCESSOR
33634 M01S07876.274l797 +++| UJP CPEX RETURN
33635 M01S07877.274l797 +++|
33636 M01S07878.274l797 +++| CPE5 LDN F0002
33637 M01S07879.274l797 +++| RJM /PRESET/ICF ISSUE CONTINUE FUNCTION
33638 M01S07880.274l797 +++| UJN CPE3 WAIT FOR END OF OPERATION
Line S00052 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33639 M01S00052.1mt44 +++|
Line S07881 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33640 M01S07881.274l797 +++| CPEL EQU *-CPEX LENGTH OF *CPE*
Line S07882 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33641 M02S07882.1mt44 ---| ERRMI WTEB-* IF *CPE* OVERFLOWS
Line S00053 Modification History |
M01 (Added by) | 1mt44 |
Seq # *Modification Id* Act
----------------------------+
33642 M01S00053.1mt44 +++| ERRNG WTEB-* *CPE* LARGER THAN *WTE*
33643 M01S00054.1mt44 +++|
Line S07883 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33644 M01S07883.274l797 +++| LOC *O
33645 M01S07884.274l797 +++| OVERLAY (CODE CONVERT LABEL TO WRITE.),(ERLB+5),P
Line S07885 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33646 M02S07885.282l826 ---| CCW SPACE 4,15
Line S01497 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33647 M01S01497.282l826 +++| CCW SPACE 4,10
Line S07886 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33648 M01S07886.274l797 +++|** CCW - CODE CONVERT LABEL TO WRITE TO CTS.
33649 M01S07887.274l797 +++|*
33650 M01S07888.274l797 +++|* ENTRY (MD) = MODE FUNCTION.
Line S07889 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | ns2794 |
Seq # *Modification Id* Act
----------------------------+
33651 M02S07889.ns2794 ---|* (DC) = CONVERSION MODE.
Line S00050 Modification History |
M01 (Added by) | ns2794 |
Seq # *Modification Id* Act
----------------------------+
33652 M01S00050.ns2794 +++|* (DNCV) = CONVERSION MODE.
Line S07890 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33653 M01S07890.274l797 +++|* (CF) = 63/64 CHARACTER SET FLAG.
33654 M01S07891.274l797 +++|*
Line S07892 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33655 M02S07892.282l826 ---|* USES CM - CM+4, T1 - T1+3.
Line S01498 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33656 M01S01498.282l826 +++|* USES T1, T2, T3.
Line S07893 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33657 M01S07893.274l797 +++|*
33658 M01S07894.274l797 +++|* CALLS GCC, SCC.
33659 M01S07895.274l797 +++|
33660 M01S07896.274l797 +++|
33661 M01S07897.274l797 +++| ENTRY CCW
33662 M01S07898.274l797 +++| CCW SUBR ENTRY/EXIT
33663 M01S07899.274l797 +++| LDD MD
33664 M01S07900.274l797 +++| SHN 21-6
33665 M01S07901.274l797 +++| PJN CCW1 IF NOT CODED
Line S07902 Modification History |
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33666 M02S07902.282l826 ---| LDD DC
33667 M02S07903.282l826 ---| SHN 21-0
33668 M02S07904.282l826 ---| PJN CCW1 IF ANSI
Line S01499 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
33669 M01S01499.282l826 +++| LDM DNCV
33670 M01S01500.282l826 +++| LPN 7
33671 M01S01501.282l826 +++| LMN /MTX/ANS
33672 M01S01502.282l826 +++| ZJN CCW1 IF ASCII CONVERSION MODE
Line S07905 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33673 M01S07905.274l797 +++| LDC EBCI
33674 M01S07906.274l797 +++| STM GCCA CODE MODIFICATION FOR EBCDIC
33675 M01S07907.274l797 +++| CCW1 LDD CF
33676 M01S07908.274l797 +++| LPN 1
33677 M01S07909.274l797 +++| NJN CCW2 IF 64 CHARACTER SET
33678 M01S07910.274l797 +++| LDK 0#20
33679 M01S07911.274l797 +++| STM ANSI+ANSIA MODIFY TABLES FOR 63 CHARACTER SET
33680 M01S07912.274l797 +++| LDK 0#3A
33681 M01S07913.274l797 +++| STM ANSI+ANSIB
33682 M01S07914.274l797 +++| LDN 0
33683 M01S07915.274l797 +++| STM EBCI+EBCIA
33684 M01S07916.274l797 +++| LDK 0#7A
33685 M01S07917.274l797 +++| STM EBCI+EBCIB
33686 M01S07918.274l797 +++| CCW2 LDC 79D
33687 M01S07919.274l797 +++| STD T1 POINTER TO CHARACTER TO CONVERT
33688 M01S07920.274l797 +++| LDC 64
33689 M01S07921.274l797 +++| STD T2 POINTER TO STORE CONVERTED CHARACTER
33690 M01S07922.274l797 +++| LDN 1
33691 M01S07923.274l797 +++| STD T3 1 OF 3 POSITIONS OF 8-BIT BYTE
33692 M01S07924.274l797 +++| LDN 0
33693 M01S07925.274l797 +++| STM BUF+1,T2
33694 M01S07926.274l797 +++| CCW3 RJM GCC GET CONVERTED CHARACTER
33695 M01S07927.274l797 +++| RJM SCC STORE CONVERTED CHARACTER
33696 M01S07928.274l797 +++| SOD T1
33697 M01S07929.274l797 +++| PJN CCW3 IF MORE CHARACTERS TO CONVERT
33698 M01S07930.274l797 +++| LJM CCWX RETURN
33699 M01S07931.274l797 +++| GCC SPACE 4,15
33700 M01S07932.274l797 +++|** GCC - GET CONVERTED CHARACTER.
33701 M01S07933.274l797 +++|*
33702 M01S07934.274l797 +++|* ENTRY (T1) = POINTER TO CHARACTER TO CONVERT.
33703 M01S07935.274l797 +++|* (T5) = CHARACTER TO CONVERT IF (T1) HAS EVEN VALUE.
33704 M01S07936.274l797 +++|*
33705 M01S07937.274l797 +++|* EXIT (T6) = CONVERTED CHARACTER.
33706 M01S07938.274l797 +++|* (T5) = NEXT CHARACTER TO CONVERT IF (T1) HAS ODD VALUE.
33707 M01S07939.274l797 +++|
33708 M01S07940.274l797 +++|
33709 M01S07941.274l797 +++| GCC SUBR ENTRY/EXIT
33710 M01S07942.274l797 +++| LDD T1
33711 M01S07943.274l797 +++| SHN 21-0
33712 M01S07944.274l797 +++| STD T6
33713 M01S07945.274l797 +++| PJN GCC1 IF LEFT MOST CHARACTER OF WORD
33714 M01S07946.274l797 +++| LDM BUF,T6
33715 M01S07947.274l797 +++| STD T5
33716 M01S07948.274l797 +++| LPN 77
33717 M01S07949.274l797 +++| UJN GCC2 SAVE CHARACTER TO CONVERT
33718 M01S07950.274l797 +++|
33719 M01S07951.274l797 +++| GCC1 LDD T5
33720 M01S07952.274l797 +++| SHN -6
33721 M01S07953.274l797 +++| GCC2 STD T6 CHARACTER TO CONVERT
33722 M01S07954.274l797 +++| LDM ANSI,T6
33723 M01S07955.274l797 +++| GCCA EQU *-1
33724 M01S07956.274l797 +++|* LDM EBCI,T6 (EBCDIC)
33725 M01S07957.274l797 +++| STD T6
33726 M01S07958.274l797 +++| UJN GCCX RETURN
33727 M01S07959.274l797 +++| SCC SPACE 4,15
33728 M01S07960.274l797 +++|** SCC - STORE CONVERTED CHARACTER.
33729 M01S07961.274l797 +++|*
33730 M01S07962.274l797 +++|* THIS ROUTINE CONVERTS ONE OF THE 80 CHARACTERS OF THE
33731 M01S07963.274l797 +++|* LABEL FROM DISPLAY CODE TO ASCII OR EBCDIC AND STORES
33732 M01S07964.274l797 +++|* IT IN THE LABEL BUFFER.
33733 M01S07965.274l797 +++|*
33734 M01S07966.274l797 +++|* ENTRY (T6) = CONVERTED CHARACTER.
33735 M01S07967.274l797 +++|* (T2) = POINTER TO STORE CHARACTER.
33736 M01S07968.274l797 +++|* (T3) = 1 0F 3 POSITIONS TO STORE 8-BIT BYTE.
33737 M01S07969.274l797 +++|
33738 M01S07970.274l797 +++|
33739 M01S07971.274l797 +++| SCC3 SOD T3
33740 M01S07972.274l797 +++|
33741 M01S07973.274l797 +++| SCC SUBR ENTRY/EXIT
33742 M01S07974.274l797 +++| LDD T3
33743 M01S07975.274l797 +++| NJN SCC1 IF NOT BYTE 1 OF 3
33744 M01S07976.274l797 +++| LDD T6
33745 M01S07977.274l797 +++| SHN 4
33746 M01S07978.274l797 +++| RAM BUF,T2
33747 M01S07979.274l797 +++| LDN 2
33748 M01S07980.274l797 +++| STD T3
33749 M01S07981.274l797 +++| LCN 2
33750 M01S07982.274l797 +++| RAD T2
33751 M01S07983.274l797 +++| UJN SCCX RETURN
33752 M01S07984.274l797 +++|
33753 M01S07985.274l797 +++| SCC1 SBN 1
33754 M01S07986.274l797 +++| NJN SCC2 IF NOT BYTE 2 OF 3
33755 M01S07987.274l797 +++| LDD T6
33756 M01S07988.274l797 +++| SHN 10
33757 M01S07989.274l797 +++| RAM BUF+1,T2
33758 M01S07990.274l797 +++| SHN -14
33759 M01S07991.274l797 +++| STM BUF,T2
33760 M01S07992.274l797 +++| UJN SCC3 UPDATE POINTER
33761 M01S07993.274l797 +++|
33762 M01S07994.274l797 +++| SCC2 LDD T6
33763 M01S07995.274l797 +++| STM BUF+1,T2
33764 M01S07996.274l797 +++| UJP SCC3 UPDATE POINTER
33765 M01S07997.274l797 +++| ANSI SPACE 4,10
33766 M01S07998.274l797 +++|** ATANS - TABLE TO CONVERT DISPLAY TO ASCII.
33767 M01S07999.274l797 +++|
33768 M01S08000.274l797 +++|
33769 M01S08001.274l797 +++| ANSI BSS 0
33770 M01S08002.274l797 +++| LOC 0
33771 M01S08003.274l797 +++| CON 0#3A COLON
33772 M01S08004.274l797 +++| ANSIA EQU *-1
33773 M01S08005.274l797 +++|* CON 0#20 (63 CHARACTER SET - SPACE)
33774 M01S08006.274l797 +++| CON 0#41 A
33775 M01S08007.274l797 +++| CON 0#42 B
33776 M01S08008.274l797 +++| CON 0#43 C
33777 M01S08009.274l797 +++| CON 0#44 D
33778 M01S08010.274l797 +++| CON 0#45 E
33779 M01S08011.274l797 +++| CON 0#46 F
33780 M01S08012.274l797 +++| CON 0#47 G
33781 M01S08013.274l797 +++| CON 0#48 H
33782 M01S08014.274l797 +++| CON 0#49 I
33783 M01S08015.274l797 +++| CON 0#4A J
33784 M01S08016.274l797 +++| CON 0#4B K
33785 M01S08017.274l797 +++| CON 0#4C L
33786 M01S08018.274l797 +++| CON 0#4D M
33787 M01S08019.274l797 +++| CON 0#4E N
33788 M01S08020.274l797 +++| CON 0#4F O
33789 M01S08021.274l797 +++| CON 0#50 P
33790 M01S08022.274l797 +++| CON 0#51 Q
33791 M01S08023.274l797 +++| CON 0#52 R
33792 M01S08024.274l797 +++| CON 0#53 S
33793 M01S08025.274l797 +++| CON 0#54 T
33794 M01S08026.274l797 +++| CON 0#55 U
33795 M01S08027.274l797 +++| CON 0#56 V
33796 M01S08028.274l797 +++| CON 0#57 W
33797 M01S08029.274l797 +++| CON 0#58 X
33798 M01S08030.274l797 +++| CON 0#59 Y
33799 M01S08031.274l797 +++| CON 0#5A Z
33800 M01S08032.274l797 +++| CON 0#30 0
33801 M01S08033.274l797 +++| CON 0#31 1
33802 M01S08034.274l797 +++| CON 0#32 2
33803 M01S08035.274l797 +++| CON 0#33 3
33804 M01S08036.274l797 +++| CON 0#34 4
33805 M01S08037.274l797 +++| CON 0#35 5
33806 M01S08038.274l797 +++| CON 0#36 6
33807 M01S08039.274l797 +++| CON 0#37 7
33808 M01S08040.274l797 +++| CON 0#38 8
33809 M01S08041.274l797 +++| CON 0#39 9
33810 M01S08042.274l797 +++| CON 0#2B PLUS
33811 M01S08043.274l797 +++| CON 0#2D HYPHEN
33812 M01S08044.274l797 +++| CON 0#2A ASTERISK
33813 M01S08045.274l797 +++| CON 0#2F SLANT
33814 M01S08046.274l797 +++| CON 0#28 OPENING PAREN
33815 M01S08047.274l797 +++| CON 0#29 CLOSING PAREN
33816 M01S08048.274l797 +++| CON 0#24 DOLLAR SIGN
33817 M01S08049.274l797 +++| CON 0#3D EQUALS
33818 M01S08050.274l797 +++| CON 0#20 SPACE
33819 M01S08051.274l797 +++| CON 0#2C PERIOD
33820 M01S08052.274l797 +++| CON 0#2E COMMA
33821 M01S08053.274l797 +++| CON 0#23 NUMBER SIGN
33822 M01S08054.274l797 +++| CON 0#5B OPEN BRACKET
33823 M01S08055.274l797 +++| CON 0#5D CLOSING BRACKET
33824 M01S08056.274l797 +++| CON 0#25 PERCENT
33825 M01S08057.274l797 +++| ANSIB EQU *-1
33826 M01S08058.274l797 +++|* CON 0#3A (63 CHARACTER SET - PERCENT)
33827 M01S08059.274l797 +++| CON 0#22 QUOTATION MARKS
33828 M01S08060.274l797 +++| CON 0#5F UNDERLINE
33829 M01S08061.274l797 +++| CON 0#21 EXCLAMATION POINT
33830 M01S08062.274l797 +++| CON 0#26 AMPERSAND
33831 M01S08063.274l797 +++| CON 0#27 APOSTROPHE
33832 M01S08064.274l797 +++| CON 0#3F QUESTION MARK
33833 M01S08065.274l797 +++| CON 0#3C LESS THAN
33834 M01S08066.274l797 +++| CON 0#3E GREATER THAN
33835 M01S08067.274l797 +++| CON 0#40 COMMERCIAL AT
33836 M01S08068.274l797 +++| CON 0#5C REVERSE SLANT
33837 M01S08069.274l797 +++| CON 0#5E CIRCUMFLEX
33838 M01S08070.274l797 +++| CON 0#3B SEMICOLON
33839 M01S08071.274l797 +++| LOC *O
33840 M01S08072.274l797 +++| EBCI SPACE 4,10
33841 M01S08073.274l797 +++|** EBCI - TABLE TO CONVERT DISPLAY TO EBCDIC.
33842 M01S08074.274l797 +++|
33843 M01S08075.274l797 +++|
33844 M01S08076.274l797 +++| EBCI BSS 0
33845 M01S08077.274l797 +++| LOC 0
33846 M01S08078.274l797 +++|
33847 M01S08079.274l797 +++| CON 0#7A COLON
33848 M01S08080.274l797 +++| EBCIA EQU *-1
33849 M01S08081.274l797 +++|* CON 0 (63 CHARACTER SET - COLON)
33850 M01S08082.274l797 +++| CON 0#C1 A
33851 M01S08083.274l797 +++| CON 0#C2 B
33852 M01S08084.274l797 +++| CON 0#C3 C
33853 M01S08085.274l797 +++| CON 0#C4 D
33854 M01S08086.274l797 +++| CON 0#C5 E
33855 M01S08087.274l797 +++| CON 0#C6 F
33856 M01S08088.274l797 +++| CON 0#C7 G
33857 M01S08089.274l797 +++| CON 0#C8 H
33858 M01S08090.274l797 +++| CON 0#C9 I
33859 M01S08091.274l797 +++| CON 0#D1 J
33860 M01S08092.274l797 +++| CON 0#D2 K
33861 M01S08093.274l797 +++| CON 0#D3 L
33862 M01S08094.274l797 +++| CON 0#D4 M
33863 M01S08095.274l797 +++| CON 0#D5 N
33864 M01S08096.274l797 +++| CON 0#D6 O
33865 M01S08097.274l797 +++| CON 0#D7 P
33866 M01S08098.274l797 +++| CON 0#D8 Q
33867 M01S08099.274l797 +++| CON 0#D9 R
33868 M01S08100.274l797 +++| CON 0#E2 S
33869 M01S08101.274l797 +++| CON 0#E3 T
33870 M01S08102.274l797 +++| CON 0#E4 U
33871 M01S08103.274l797 +++| CON 0#E5 V
33872 M01S08104.274l797 +++| CON 0#E6 W
33873 M01S08105.274l797 +++| CON 0#E7 X
33874 M01S08106.274l797 +++| CON 0#E8 Y
33875 M01S08107.274l797 +++| CON 0#E9 Z
33876 M01S08108.274l797 +++| CON 0#F0 0
33877 M01S08109.274l797 +++| CON 0#F1 1
33878 M01S08110.274l797 +++| CON 0#F2 2
33879 M01S08111.274l797 +++| CON 0#F3 3
33880 M01S08112.274l797 +++| CON 0#F4 4
33881 M01S08113.274l797 +++| CON 0#F5 5
33882 M01S08114.274l797 +++| CON 0#F6 6
33883 M01S08115.274l797 +++| CON 0#F7 7
33884 M01S08116.274l797 +++| CON 0#F8 8
33885 M01S08117.274l797 +++| CON 0#F9 9
33886 M01S08118.274l797 +++| CON 0#4E PLUS
33887 M01S08119.274l797 +++| CON 0#60 HYPHEN
33888 M01S08120.274l797 +++| CON 0#5C ASTERISK
33889 M01S08121.274l797 +++| CON 0#61 SLANT
33890 M01S08122.274l797 +++| CON 0#4D OPENING PAREN
33891 M01S08123.274l797 +++| CON 0#5D CLOSING PAREN
33892 M01S08124.274l797 +++| CON 0#5B DOLLAR SIGN
33893 M01S08125.274l797 +++| CON 0#7E EQUALS
33894 M01S08126.274l797 +++| CON 0#40 SPACE
33895 M01S08127.274l797 +++| CON 0#6B PERIOD
33896 M01S08128.274l797 +++| CON 0#4B COMMA
33897 M01S08129.274l797 +++| CON 0#7B NUMBER SIGN
33898 M01S08130.274l797 +++| CON 0#4A OPEN BRACKET
33899 M01S08131.274l797 +++| CON 0#5A CLOSING BRACKET
33900 M01S08132.274l797 +++| CON 0#6C PERCENT
33901 M01S08133.274l797 +++| EBCIB EQU *-1
33902 M01S08134.274l797 +++|* CON 0#7A (63 CHARACTER SET - COLON)
33903 M01S08135.274l797 +++| CON 0#7F QUOTATION MARKS
33904 M01S08136.274l797 +++| CON 0#6D UNDERLINE
33905 M01S08137.274l797 +++| CON 0#4F EXCLAMATION POINT
33906 M01S08138.274l797 +++| CON 0#50 AMPERSAND
33907 M01S08139.274l797 +++| CON 0#7D APOSTROPHE
33908 M01S08140.274l797 +++| CON 0#6F QUESTION MARK
33909 M01S08141.274l797 +++| CON 0#4C LESS THAN
33910 M01S08142.274l797 +++| CON 0#6E GREATER THAN
33911 M01S08143.274l797 +++| CON 0#7C COMMERCIAL AT
33912 M01S08144.274l797 +++| CON 0#E0 REVERSE SLANT
33913 M01S08145.274l797 +++| CON 0#5F CIRCUMFLEX
33914 M01S08146.274l797 +++| CON 0#5E SEMICOLON
33915 M01S08147.274l797 +++| LOC *O
33916 M01S08148.274l797 +++| ERRNG 473+ERLB+5-* IF OVERLAY LONGER THAN ONE PRU
33917 M00S19425.1mt +++| OVERLAY (MTS/ATS WRITE ERROR PROCESSOR.),(BUFB+10),P
33918 M00S19426.1mt +++| WEM SPACE 4,10
33919 M00S19427.1mt +++|** WEM - WRITE ERROR PROCESSOR.
33920 M00S19428.1mt +++|*
Line S19429 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33921 M01S19429.252l678 ---|* ENTRY (EP, 13) = VERIFY IN PROGRESS.
33922 M01S19430.252l678 ---|* (EP, 12) = ERASE ERROR HAS OCCURRED.
Line S01341 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33923 M01S01341.252l678 +++|* ENTRY (EP, 11) = VERIFY IN PROGRESS.
33924 M01S01342.252l678 +++|* (EP, 10) = ERASE ERROR HAS OCCURRED.
33925 M01S01343.252l678 +++|* (EP, 9) = LOAD POINT ERROR FLAG.
33926 M01S01344.252l678 +++|* (EP, 8) = LOAD POINT RECOVERY FLAG.
33927 M00S19431.1mt +++|* (EP+1, 5 - 0) = NUMBER OF ERASES.
33928 M00S19432.1mt +++|*
33929 M00S19433.1mt +++|* CALLS /CPP/CAL, CFC, /WRITE/CNW, *CPP*, EBW, *EMM*, EOT,
Line S19434 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33930 M01S19434.252l678 ---|* /CPP/INM, MCH, POT, PRS, RCI, /CPP/SFP.
Line S01345 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33931 M01S01345.252l678 +++|* /CPP/INM, MCH, POT, PRS, RCI, /CPP/SFP, WLP.
33932 M00S19435.1mt +++|*
33933 M00S19436.1mt +++|* MACROS CALL.
33934 M00S19437.1mt +++|
33935 M00S19438.1mt +++|
33936 M00S19439.1mt +++| ENTRY WEM
33937 M00S19440.1mt +++| WEM SUBR ENTRY
33938 M00S19441.1mt +++| LDM //LOV SAVE CALLERS EXIT ADDRESS
33939 M00S19442.1mt +++| STM WEMH
33940 M00S19443.1mt +++| LDC WEM1 SET ADDRESS TO ENTER AT
33941 M00S19444.1mt +++| STM //LOV
33942 M00S19445.1mt +++| UJN WEMX RETURN
33943 M00S19446.1mt +++|
33944 M00S19447.1mt +++| WEM1 LDD MA SAVE OUT POINTER
33945 M00S19448.1mt +++| CWD CN
33946 M00S19449.1mt +++| CRM WEMI,ON
33947 M00S19450.1mt +++| LDC CTAB MODIFY CHANNELS
33948 M00S19451.1mt +++| RJM MCH
33949 M00S19452.1mt +++| RJM PRS
33950 M00S19453.1mt +++| RJM EBW EVALUATE BID WINDOW
33951 M00S19454.1mt +++| RJM CFC RECONNECT UNIT
33952 M00S19455.1mt +++| LDM //STER RESTORE STATUS
33953 M00S19456.1mt +++| STD DS
33954 M00S19457.1mt +++| LPN 1
Line S19458 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33955 M01S19458.252l678 ---| NJN WEM2 IF READY
Line S01346 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33956 M01S01346.252l678 +++| NJN WEM2 IF READY
33957 M00S19459.1mt +++| LDN /MTX/RDR
33958 M00S19460.1mt +++| STD EC
Line S19461 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33959 M01S19461.252l678 ---| WEM2 LDD FN
Line S01347 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
33960 M01S01347.252l678 +++| UJN WEM2.1 NO LOAD POINT RECOVERY IF NOT READY
33961 M01S01348.252l678 +++|
33962 M01S01349.252l678 +++| WEM2 RJM WLP CHECK FOR LOAD POINT RECOVERY
33963 M01S01350.252l678 +++|* UJN WEM2.1 (NOT ATS CONTROLLER)
33964 M01S01351.252l678 +++| WEML EQU *-2
33965 M01S01352.252l678 +++| MJN WEM2.1 IF NO LOAD POINT ERROR OR ERROR RECOVERED
33966 M01S01353.252l678 +++| CALL EMM ISSUE MESSAGE
33967 M01S01354.252l678 +++| LDN 0
33968 M01S01355.252l678 +++| STD EC
33969 M01S01356.252l678 +++| AOD EI
33970 M01S01357.252l678 +++| LJM RET2 RETRY ON *BFW* ERROR
33971 M01S01358.252l678 +++|
33972 M01S01359.252l678 +++| WEM2.1 LDD FN LOAD MAGNET FUNCTION CODE
33973 M00S19462.1mt +++| LMN /MTX/WLA
33974 M00S19463.1mt +++| NJN WEM3 IF NOT WRITE LABELS
33975 M00S19464.1mt +++| LDC RET2 FORCE REQUEUE AFTER WRITE IS GOOD
33976 M00S19465.1mt +++| STM /WLA/WLAG
33977 M00S19466.1mt +++| AOM POTD
Line S19467 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33978 M01S19467.251l664 ---| WEM3 LDM /WRITE/WTFA CHECK IF EOF REQUEST DETECTED AHEAD
Line S00173 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
33979 M01S00173.251l664 +++| WEM3 LDM /WRITE/WTFE CHECK IF EOF REQUEST DETECTED AHEAD
Line S08149 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
33980 M01S08149.274l797 +++| WEMK EQU *-1
33981 M01S08150.274l797 +++|* LDM /WLI/WLIA (LI FORMAT)
33982 M00S19468.1mt +++| LMN 1
33983 M00S19469.1mt +++| NJN WEM4 IF NOT EOF REQUEST
33984 M00S19470.1mt +++| LDD MD
33985 M00S19471.1mt +++| SCN 14
33986 M00S19472.1mt +++| STD MD
33987 M00S19473.1mt +++| WEM4 LDD EC
33988 M00S19474.1mt +++| ZJN WEM6 IF VERIFY OPERATION
33989 M00S19475.1mt +++| LMN /MTX/STE
33990 M00S19476.1mt +++| NJN WEM7 IF NOT STATUS ERROR
33991 M00S19477.1mt +++| LDD DS
33992 M00S19478.1mt +++| SHN 21-3
33993 M00S19479.1mt +++| PJN WEM7 IF NOT EOT
33994 M00S19480.1mt +++| SHN 12
33995 M00S19481.1mt +++| PJN WEM5 IF NO OTHER ERRORS
33996 M00S19482.1mt +++| LDM MTDS
33997 M00S19483.1mt +++| LPC 7077
33998 M00S19484.1mt +++| WEMA EQU *-1
33999 M00S19485.1mt +++|* LPC 7777 (ATS UNIT)
34000 M00S19486.1mt +++| NJN WEM7 IF OTHER ERRORS
34001 M00S19487.1mt +++| WEM5 RJM EOT
34002 M00S19488.1mt +++| WEM6 LJM WEM10 POSITION TAPE
34003 M00S19489.1mt +++|
34004 M00S19490.1mt +++| WEM7 LDD DS CHECK FOR NON-FATAL ERRORS
34005 M00S19491.1mt +++| SHN 21-13
34006 M00S19492.1mt +++| PJN WEM8 IF OTHER ERRORS
34007 M00S19493.1mt +++| LDM MTDS
34008 M00S19494.1mt +++| LPC 7077
34009 M00S19495.1mt +++| WEMB EQU *-1
34010 M00S19496.1mt +++|* LPC 7777 (ATS UNIT)
34011 M00S19497.1mt +++| NJN WEM8 IF FATAL ERRORS
34012 M00S19498.1mt +++| STD EC
Line S19499 Modification History |
M01 (Removed by) | 1mt2 |
Seq # *Modification Id* Act
----------------------------+
34013 M01S19499.1mt2 ---| WEMC UJN WEM6
Line S00001 Modification History |
M01 (Added by) | 1mt2 |
Seq # *Modification Id* Act
----------------------------+
34014 M01S00001.1mt2 +++| AOM WEME SET ACCEPT DATA FLAG
34015 M01S00002.1mt2 +++| WEMC UJN WEM8 PROCESS MTS DATA
34016 M00S19500.1mt +++|* LDM MTDS+1 (ATS UNIT)
34017 M00S19501.1mt +++| CON MTDS+1
34018 M00S19502.1mt +++| SHN -11
34019 M00S19503.1mt +++| LPN 3
Line S19504 Modification History |
M01 (Removed by) | 1mt2 |
Seq # *Modification Id* Act
----------------------------+
34020 M01S19504.1mt2 ---| ZJN WEM10 IF NOT ON-THE-FLY
34021 M01S19505.1mt2 ---| AOM WEME SET ACCEPT FLAG
Line S00003 Modification History |
M01 (Added by) | 1mt2 |
M02 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
34022 M02S00003.ns21000 ---| ZJN WEM8 IF NOT ON THE FLY
Line S00273 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
34023 M01S00273.ns21000 +++| ZJN WEM7.1 IF NOT ON-THE-FLY
34024 M00S19506.1mt +++| LDN /MTX/OTF
34025 M00S19507.1mt +++| STD EC
Line S00274 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
34026 M01S00274.ns21000 +++| UJN WEM8 PROCESS CORRECTED BLOCK
34027 M01S00275.ns21000 +++|
34028 M01S00276.ns21000 +++| WEM7.1 LDD HN
34029 M01S00277.ns21000 +++| RAM ECNT+1 INCREMENT LATE DATA COUNTER
34030 M01S00278.ns21000 +++| SHN -14
34031 M01S00279.ns21000 +++| RAM ECNT
34032 M00S19508.1mt +++| WEM8 LDD SP
34033 M00S19509.1mt +++| LPN 4
34034 M00S19510.1mt +++| RAM WEME SET ACCEPT WRITE FLAG
34035 M00S19511.1mt +++| LDD SP
34036 M00S19512.1mt +++| LPN 4
34037 M00S19513.1mt +++| NJN WEM9 IF ERROR PROCESSING INHIBITED
Line S19514 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34038 M01S19514.274l797 ---| LDM /WRITE/BYWR SET BYTE COUNT
Line S08151 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34039 M01S08151.274l797 +++| LDM /WRITE/BYWR SET BYTE COUNT
34040 M00S19515.1mt +++| STD BY
34041 M00S19516.1mt +++| LDC -0 RESTORE BID
34042 M00S19517.1mt +++| WEMD EQU *-1
34043 M00S19518.1mt +++| STM UBWB
34044 M00S19519.1mt +++| CALL EMM DIAGNOSE ERROR
34045 M00S19520.1mt +++| RJM CFC RECONNECT UNIT
34046 M00S19521.1mt +++| WEM9 LDD EC
34047 M00S19522.1mt +++| SBN /MTX/BFAT
34048 M00S19523.1mt +++| MJN WEM10 IF NOT FATAL ERROR
34049 M00S19524.1mt +++| SBN /MTX/MFAT-/MTX/BFAT
34050 M00S19525.1mt +++| PJN WEM10 IF NOT FATAL ERROR
34051 M00S19526.1mt +++| LJM RET4 RETURN FATAL ERROR
34052 M00S19527.1mt +++|
34053 M00S19528.1mt +++| WEM10 LDC 0 ACCEPT DATA FLAG
34054 M00S19529.1mt +++| WEME EQU *-1
34055 M00S19530.1mt +++| NJN WEM11 IF ACCEPT DATA
34056 M00S19531.1mt +++| RJM POT POSITION TAPE
34057 M00S19532.1mt +++| WEMF EQU *-2
34058 M00S19533.1mt +++|* UJN *+2 (DISCARD BLOCK AT EOT)
34059 M00S19534.1mt +++| WEM11 LDN 0 CLEAR ERROR CODE
34060 M00S19535.1mt +++| STD EC
Line S19536 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
34061 M01S19536.v23l617 ---| CALL CPP RELOAD ADDRESS RELOCATOR
Line S00531 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
34062 M01S00531.v23l617 +++| WEMJ LDN 1
34063 M01S00532.v23l617 +++|* LDN 0 (FORMAT CHANGE)
Line S00533 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34064 M02S00533.274l797 ---| NJN WEM11.1 IF FORMAT PARAMETERS NOT CHANGES
Line S08152 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34065 M01S08152.274l797 +++| NJN WEM11.1 IF FORMAT PARAMETERS NOT CHANGED
Line S00534 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
34066 M01S00534.v23l617 +++| STM //RELA
34067 M01S00535.v23l617 +++| WEM11.1 CALL CPP RELOAD ADDRESS RELOCATOR
Line S00001 Modification History |
M01 (Added by) | 1mt10 |
Seq # *Modification Id* Act
----------------------------+
34068 M01S00001.1mt10 +++| LDM WEMD RESTORE BLOCK ID
34069 M01S00002.1mt10 +++| STM UBWB
Line S19537 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34070 M01S19537.274l797 ---| LDM /WRITE/BYWR RESET BYTE COUNT
Line S08153 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34071 M01S08153.274l797 +++| LDM /WRITE/BYWR RESET BYTE COUNT
34072 M00S19538.1mt +++| STD BY
34073 M00S19539.1mt +++| LDD FN
34074 M00S19540.1mt +++| LMN /MTX/WLA
34075 M00S19541.1mt +++| NJN WEM12 IF NOT WRITE LABELS
34076 M00S19542.1mt +++| LJM WEM15 EXIT
34077 M00S19543.1mt +++|
34078 M00S19544.1mt +++| WEM12 RJM RCI READ UDT
34079 M00S19545.1mt +++| RJM /CPP/CAL CALCULATE PARAMETERS
34080 M00S19546.1mt +++| LDC ADDR MODIFY INSTRUCTIONS
34081 M00S19547.1mt +++| RJM /CPP/INM
34082 M00S19548.1mt +++| LDM WEME
34083 M00S19549.1mt +++| ZJN WEM13 IF REREAD DATA
34084 M00S19550.1mt +++| LDN 0 CLEAR ERROR PARAMATERS
34085 M00S19551.1mt +++| STD EP
34086 M00S19552.1mt +++| STD EP+1
34087 M00S19553.1mt +++| STD EI
34088 M00S19554.1mt +++| LDD MA RESTORE OUT POINTER
34089 M00S19555.1mt +++| CWM WEMI,ON
34090 M00S19556.1mt +++| SBN 1
34091 M00S19557.1mt +++| CRD CN
Line S19558 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
34092 M01S19558.251l664 ---| LDM /WRITE/WTFA CHECK IF EOF REQUEST DETECTED AHEAD
Line S00174 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
34093 M01S00174.251l664 +++| LDM /WRITE/WTFE CHECK IF EOF REQUEST DETECTED AHEAD
Line S08154 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34094 M01S08154.274l797 +++| WEMM EQU *-1
34095 M01S08155.274l797 +++|* LDM /WLI/WLIA (LI FORMAT)
34096 M00S19559.1mt +++| LMN 1
34097 M00S19560.1mt +++| NJN WEM14 IF NOT EOF REQUEST
34098 M00S19561.1mt +++| LDN 14 SET EOF STATUS
34099 M00S19562.1mt +++| RAD MD
34100 M00S19563.1mt +++| UJN WEM15 EXIT
34101 M00S19564.1mt +++|
34102 M00S19565.1mt +++| WEM13 LDN 3 READ OUT POINTER
34103 M00S19566.1mt +++| RJM /CPP/SFP
34104 M00S19567.1mt +++| WEM14 RJM /WRITE/CNW
34105 M00S19568.1mt +++| WEMG EQU *-2
34106 M00S19569.1mt +++|* UJN *+2 (DISCARD BLOCK AT EOT)
Line S08156 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34107 M01S08156.274l797 +++|* RJM /WLI/CNW (LI FORMAT)
34108 M00S19570.1mt +++| WEM15 LJM * EXIT
34109 M00S19571.1mt +++| WEMH EQU *-1
34110 M00S19572.1mt +++|
34111 M00S19573.1mt +++|
34112 M00S19574.1mt +++| WEMI EQU WEM
34113 M00S19575.1mt +++| TBDW EQU WEMI+5 TEMPORARY BID WINDOW
34114 M00S19576.1mt +++| ERRNG WEM1-TBDW BUFFER OVERFLOW
34115 M00S19577.1mt +++| EOT SPACE 4,10
34116 M00S19578.1mt +++|** EOT - END OF TAPE PROCESSOR.
34117 M00S19579.1mt +++|
34118 M00S19580.1mt +++|
Line S19581 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34119 M01S19581.252l678 ---| EOT4 LDC EOT3 SET TO RETURN HERE AFTER POINTER UPDATE
Line S01360 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34120 M01S01360.252l678 +++| EOT3 LDC EOTEXIT SET TO RETURN HERE AFTER POINTER UPDATE
Line S19582 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
34121 M01S19582.251l664 ---| STM /WRITE/WRTL
Line S00175 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
34122 M01S00175.251l664 +++| STM /WRITE/WRTK
Line S08157 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34123 M01S08157.274l797 +++| EOTA EQU *-1
34124 M01S08158.274l797 +++|* STM /WLI/WRTK (LI FORMAT)
34125 M00S19583.1mt +++| LDD EI
34126 M00S19584.1mt +++| ZJN EOTX IF RECOVERY NOT IN PROGRESS
34127 M00S19585.1mt +++| LDN 0 SET TO VERIFY REWRITE AND ISSUE MESSAGE
34128 M00S19586.1mt +++| STM WEME
34129 M00S19587.1mt +++| STD EC
34130 M00S19588.1mt +++|
34131 M00S19589.1mt +++| EOT SUBR ENTRY/EXIT
34132 M00S19590.1mt +++| AOM WEME SET ACCEPT DATA FLAG
34133 M00S19591.1mt +++| LDD SP
34134 M00S19592.1mt +++| SHN -12
Line S19593 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34135 M01S19593.252l678 ---| ZJN EOT4 IF TERMINATE WITH TAPE MARK
Line S01361 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34136 M01S01361.252l678 +++| ZJN EOT3 IF TERMINATE WITH TAPE MARK
34137 M00S19594.1mt +++| LMN 1
34138 M00S19595.1mt +++| NJN EOT1 IF NOT ACCEPT BLOCK AT EOT
34139 M00S19596.1mt +++| LDM /WRITE/STAT
34140 M00S19597.1mt +++| SHN 21-3
34141 M00S19598.1mt +++| PJN EOTX IF TAPE MARK ENCOUNTERED THIS BLOCK
34142 M00S19599.1mt +++| UJN EOT2 CLEAR ACCEPT DATA FLAG
34143 M00S19600.1mt +++|
34144 M00S19601.1mt +++| EOT1 LMN 2&1
34145 M00S19602.1mt +++| NJN EOTX IF NOT DISCARD BLOCK AT EOT
Line S19603 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34146 M01S19603.282l826 ---| LDD HP CLEAR EOR FLAG
34147 M01S19604.282l826 ---| LPC 5777
34148 M01S19605.282l826 ---| STD HP
Line S01503 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34149 M01S01503.282l826 +++| LDD UP CLEAR EOR FLAG
34150 M01S01504.282l826 +++| SCN 10
34151 M01S01505.282l826 +++| STD UP
34152 M00S19606.1mt +++| LDD MD CLEAR EOR/EOF THIS OPERATION
34153 M00S19607.1mt +++| LPC 7377
34154 M00S19608.1mt +++| STD MD
34155 M00S19609.1mt +++| EOT2 LDN 0
34156 M00S19610.1mt +++| STM WEME
34157 M00S19611.1mt +++| LDC UJNI+2
34158 M00S19612.1mt +++| STM WEMF
34159 M00S19613.1mt +++| STM WEMG
Line S19614 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34160 M01S19614.252l678 ---| LJM EOT4 SET RETURN ADDRESS
34161 M01S19615.252l678 ---|
34162 M01S19616.252l678 ---| EOT3 LDN /MTX/BEI RETURN END OF TAPE
34163 M01S19617.252l678 ---| LJM RET3 RETURN ERROR CODE
Line S01362 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34164 M01S01362.252l678 +++| LJM EOT3 SET RETURN ADDRESS
34165 M00S19618.1mt +++| POT SPACE 4,10
34166 M00S19619.1mt +++|** POT - POSITION AND VERIFY TAPE AFTER ERROR.
34167 M00S19620.1mt +++|*
Line S19621 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
34168 M01S19621.v23l617 ---|* CALLS BKS, CBS, CID, DTS, FCN, ISC, ISM, POS, RBL, RTR,
Line S00536 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34169 M02S00536.252l678 ---|* CALL BKS, CBS, CID, DTS, FCN, ISC, ISM, POS, RDA, RTR,
Line S19622 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34170 M01S19622.252l678 ---|* STW, WEO.
Line S01363 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34171 M02S01363.282l826 ---|* CALLS BKS, CID, DTS, FCN, IRC, ISC, POS, RDA, STW, WEO.
Line S01506 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34172 M01S01506.282l826 +++|* USES CM - CM+4.
34173 M01S01507.282l826 +++|*
34174 M01S01508.282l826 +++|* CALLS BKS, CID, CKR, FCN, IRC, ISC, POS, RDA, STW, WEO.
34175 M00S19623.1mt +++|
34176 M00S19624.1mt +++|
34177 M00S19625.1mt +++| POT SUBR ENTRY/EXIT
34178 M00S19626.1mt +++| LDD EC
34179 M00S19627.1mt +++| NJN POT1 IF ERROR
34180 M00S19628.1mt +++| RJM DTS GET DETAIL STATUS
Line S19629 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34181 M01S19629.252l678 ---| LJM POT28 VERIFY REWRITE
Line S01364 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34182 M01S01364.252l678 +++| LJM POT12 VERIFY BLOCK REWRITE
34183 M00S19630.1mt +++|
34184 M00S19631.1mt +++|* BACKSPACE OVER THE ERROR BLOCK.
34185 M00S19632.1mt +++|
Line S19633 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34186 M01S19633.252l678 ---|* USE CONTROLLED BACKSPACE IF -
34187 M01S19634.252l678 ---|*
34188 M01S19635.252l678 ---|* 1) FRAME COUNT ERROR 3 AND NOT LONG BLOCKS FOR MTS.
34189 M01S19636.252l678 ---|* 2) ATS UNIT AND NOT TAPE MARK.
34190 M01S19637.252l678 ---|
34191 M00S19638.1mt +++| POT1 AOD EI
Line S19639 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34192 M01S19639.252l678 ---| POTA LDD LG+1
34193 M01S19640.252l678 ---|* UJN POT4 (ATS UNIT)
34194 M01S19641.252l678 ---| NJN POT2 IF NOT TAPE MARK
34195 M01S19642.252l678 ---| LDC UJNI+CBS2-CBSC
34196 M01S19643.252l678 ---| STM CBSC
34197 M01S19644.252l678 ---| LDN 16
34198 M01S19645.252l678 ---| UJN POT3 STORE FUNCTION
34199 M01S19646.252l678 ---|
34200 M01S19647.252l678 ---| POT2 LDN 17
34201 M01S19648.252l678 ---| POT3 STM CBSB
34202 M01S19649.252l678 ---| LDM MTDS+1
34203 M01S19650.252l678 ---| LPC 1000
34204 M01S19651.252l678 ---| ZJN POT5 IF NOT FRAME COUNT ERROR 3
34205 M01S19652.252l678 ---| LDM /WRITE/BYWR
34206 M01S19653.252l678 ---| LMC 7777
34207 M01S19654.252l678 ---| ZJN POT5 IF LONG BLOCKS
34208 M01S19655.252l678 ---| LDC 217 WRITE REPOSITION USING CONTROLLED BACK
34209 M01S19656.252l678 ---| STM CBSB
34210 M01S19657.252l678 ---| POT4 LDM /WRITE/BYWR
34211 M01S19658.252l678 ---| SBM /WRITE/BYRM
34212 M01S19659.252l678 ---| POT5 RJM CBS ISSUE CONTROLLED BACKSPACE
Line S19660 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34213 M02S19660.252l678 ---|* RJM BKS (ATS TAPE MARK OR FSC ADAPTOR)
34214 M02S19661.252l678 ---| POTB EQU *-1
Line S19662 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34215 M01S19662.252l678 ---| POTC BSS 0
34216 M01S19663.252l678 ---| POT6 RJM POS
34217 M01S19664.252l678 ---|* UJN POT8 (NO BID RECOVERY)
34218 M01S19665.252l678 ---| LJM POT17 CHECK TAPE POSITION
34219 M01S19666.252l678 ---|
34220 M01S19667.252l678 ---| POT7 LDN 5 SET NUMBER OF BLOCKS TO TRY FOR LGB
34221 M01S19668.252l678 ---| STM POTI
34222 M01S19669.252l678 ---|
34223 M01S19670.252l678 ---|* POSITION THE TAPE TO THE LGB OR SNB.
34224 M01S19671.252l678 ---|
34225 M01S19672.252l678 ---| POT8 LDN 5 SET RETRY COUNT
34226 M01S19673.252l678 ---| STM POTJ
34227 M01S19674.252l678 ---| POT9 RJM BKS BACKSPACE TAPE
34228 M01S19675.252l678 ---| MJN POT12 IF BOT
34229 M01S19676.252l678 ---| RJM BKS BACKSPACE TAPE
34230 M01S19677.252l678 ---| MJN POT10 IF BOT
Line S19678 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34231 M02S19678.252l678 ---| RJM RBL READ BLOCK
Line S00537 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34232 M02S00537.252l678 ---| RJM RDA READ BLOCK
Line S19679 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34233 M01S19679.252l678 ---| POT10 LDN 5 SET ERROR REREAD COUNT
34234 M01S19680.252l678 ---| STM POTK
Line S19681 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34235 M02S19681.252l678 ---| POT11 RJM RBL READ BLOCK
Line S00538 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34236 M02S00538.252l678 ---| POT11 RJM RDA READ BLOCK
Line S19682 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34237 M01S19682.252l678 ---| NJN POT13 IF ERROR
34238 M01S19683.252l678 ---| LDD LG CHECK IF LAST GOOD BLOCK LOCATED
34239 M01S19684.252l678 ---| LMM RDAG
34240 M01S19685.252l678 ---| NJN POT14 IF LGB INFORMATION DOES NOT MATCH
34241 M01S19686.252l678 ---| LDN 1 CHECK I FORMAT TRAILER INFORMATION
34242 M01S19687.252l678 ---| RJM CID
34243 M01S19688.252l678 ---| NJN POT14 IF ERROR
34244 M01S19689.252l678 ---| POT12 UJN POT17 CHECK TAPE POSITION
34245 M01S19690.252l678 ---|
34246 M01S19691.252l678 ---|* RETRY TO GET TO LGB.
34247 M01S19692.252l678 ---|
34248 M01S19693.252l678 ---| POT13 SOM POTK PROCESS BAD BLOCK
34249 M01S19694.252l678 ---| ZJN POT14 IF REREADS EXHAUSTED
34250 M01S19695.252l678 ---| RJM BKS BACKSPACE TAPE
34251 M01S19696.252l678 ---| UJN POT11 READ BLOCK
34252 M01S19697.252l678 ---|
34253 M01S19698.252l678 ---| POT14 SOM POTJ
34254 M01S19699.252l678 ---| ZJN POT16 IF RETRYS EXHAUSTED
34255 M01S19700.252l678 ---| LJM POT9 BACKSPACE TAPE
34256 M01S19701.252l678 ---|
34257 M01S19702.252l678 ---| POT15 LDN /MTX/PLO POSITION LOST
34258 M01S19703.252l678 ---| STD EC
34259 M01S19704.252l678 ---| RJM ISC ISSUE MESSAGE AND RECONNECT UNIT
34260 M01S19705.252l678 ---| LJM POT41 FATAL ERROR
34261 M01S19706.252l678 ---|
34262 M01S19707.252l678 ---|* TRY THE FIVE PRECEDING BLOCKS FOR LGB.
34263 M01S19708.252l678 ---|
34264 M01S19709.252l678 ---| POT16 SOM POTI
34265 M01S19710.252l678 ---| ZJN POT15 IF LAST 5 BLOCKS NOT LGB
34266 M01S19711.252l678 ---| RJM BKS BACKSPACE TO TRY NEXT BLOCK
34267 M01S19712.252l678 ---| LJM POT8 REPOSITION TO LGB
Line S01365 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34268 M01S01365.252l678 +++| RJM BKS BACKSPACE OVER BAD BLOCK
34269 M01S01366.252l678 +++| LDD EI LOAD ERROR COUNTER
34270 M01S01367.252l678 +++| LPN 77 ERROR ITERATION
34271 M01S01368.252l678 +++| SBN 2
34272 M01S01369.252l678 +++| PJN POT3 IF SECOND ITERATION
34273 M01S01370.252l678 +++| POT2 RJM POS POSITION TO LAST GOOD RECORD
34274 M00S19713.1mt +++|
34275 M00S19714.1mt +++|* TAPE IS POSITIONED TO LGB.
34276 M00S19715.1mt +++|
Line S19716 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34277 M01S19716.252l678 ---| POT17 LDD DS CHECK POSITION
34278 M01S19717.252l678 ---| SHN 21-2
34279 M01S19718.252l678 ---| PJN POT18 IF NOT LOAD POINT
34280 M01S19719.252l678 ---| LDD BL
34281 M01S19720.252l678 ---| ADD BL+1
34282 M01S19721.252l678 ---| NJN POT15 IF NOT PERFORMING RECOVERY ON BLOCK ZERO
34283 M01S19722.252l678 ---| POT18 LDD EP
Line S01371 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34284 M01S01371.252l678 +++| LDD EP
34285 M00S19723.1mt +++| SHN 21-13
Line S19724 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34286 M01S19724.252l678 ---| PJN POT19 IF NOT VERIFY
34287 M01S19725.252l678 ---| LJM POT35 VERIFY BLOCK
Line S01372 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34288 M01S01372.252l678 +++| PJN POT3 IF NOT VERIFY
34289 M01S01373.252l678 +++| LJM POT12 VERIFY BLOCK REWRITE
34290 M00S19726.1mt +++|
34291 M00S19727.1mt +++|* ERASE TAPE.
34292 M00S19728.1mt +++|
Line S19729 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34293 M01S19729.252l678 ---| POT19 AOD EP+1 COUNT ERASE
Line S01374 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34294 M01S01374.252l678 +++| POT3 AOD EP+1 COUNT ERASE
34295 M00S19730.1mt +++| LPN 77
34296 M00S19731.1mt +++| SBN ERAL
Line S19732 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34297 M01S19732.252l678 ---| MJN POT20 IF NOT MAXIMUM ERASES
34298 M01S19733.252l678 ---| LDN /MTX/ERA ERASE LIMIT ERROR
Line S01375 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34299 M01S01375.252l678 +++| MJN POT4 IF NOT MAXIMUM ERASES
34300 M01S01376.252l678 +++| LDN /MTX/ERA ERASE LIMIT ERROR
34301 M00S19734.1mt +++| STD EC
Line S19735 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34302 M01S19735.252l678 ---| LJM POT40 FATAL ERROR
Line S01377 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34303 M01S01377.252l678 +++| LJM POT17 FATAL ERROR
34304 M00S19736.1mt +++|
Line S19737 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34305 M01S19737.252l678 ---| POT20 LDD EP+1 SET NUMBER OF ERASE TO PERFORM
34306 M01S19738.252l678 ---| LPN 77
34307 M01S19739.252l678 ---| STM POTL
Line S01378 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34308 M01S01378.252l678 +++| POT4 LDN 1 NUMBER OF ERASES TO PERFORM
34309 M01S01379.252l678 +++| STM POTK
34310 M00S19740.1mt +++| LDN 2 WAIT NOT BUSY
34311 M00S19741.1mt +++| RJM STW
34312 M00S19742.1mt +++| LDD CP CHECK ERROR FLAG
34313 M00S19743.1mt +++| ADN STSW
34314 M00S19744.1mt +++| CRD CM
34315 M00S19745.1mt +++| LDD CM+1
Line S01380 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34316 M01S01380.252l678 +++| LPN 37
34317 M00S19746.1mt +++| SBN SPET
Line S19747 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34318 M01S19747.252l678 ---| MJN POT21 IF NO ERROR *SPET* OR ABOVE
Line S01381 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34319 M01S01381.252l678 +++| MJN POT5 IF NO ERROR *SPET* OR ABOVE
34320 M00S19748.1mt +++| LDN /MTX/EFT SET ERROR FLAG TERMINATION
34321 M00S19749.1mt +++| STD EC
Line S19750 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34322 M01S19750.252l678 ---| LJM POT40 RETURN ERROR
Line S01382 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34323 M01S01382.252l678 +++| LJM POT17 RETURN ERROR
34324 M00S19751.1mt +++|
Line S19752 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34325 M01S19752.252l678 ---| POT21 LDN 52 SKIP BAD SPOT (ERASE)
Line S01383 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34326 M01S01383.252l678 +++| POT5 LDN 52 SKIP BAD SPOT (ERASE)
34327 M00S19753.1mt +++| RJM FCN
34328 M00S19754.1mt +++| LDN 2 WAIT NOT BUSY
34329 M00S19755.1mt +++| RJM STW
34330 M00S19756.1mt +++| SHN 21-3
Line S19757 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34331 M01S19757.252l678 ---| PJN POT22 IF NOT EOT
34332 M01S19758.252l678 ---| LJM POT43 SET ERASE AT EOT FLAG
Line S01384 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34333 M01S01384.252l678 +++| PJN POT6 IF NOT EOT
34334 M01S01385.252l678 +++| LJM POT19 SET ERASE AT EOT FLAG
34335 M00S19759.1mt +++|
Line S19760 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34336 M01S19760.252l678 ---| POT22 RJM WEO WAIT END OF OPERATION
Line S01386 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34337 M01S01386.252l678 +++| POT6 RJM WEO WAIT END OF OPERATION
34338 M00S19761.1mt +++| SCN 10 IGNORE EOT
Line S19762 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34339 M01S19762.252l678 ---| NJN POT23 IF ERASE ERROR
34340 M01S19763.252l678 ---| SOM POTL
34341 M01S19764.252l678 ---| NJN POT21 IF MORE ERASES TO PERFORM
34342 M01S19765.252l678 ---| LJM POT25 SET UP TO REWRITE BLOCK
Line S01387 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34343 M01S01387.252l678 +++| NJN POT7 IF ERASE ERROR
34344 M01S01388.252l678 +++| SOM POTK
34345 M01S01389.252l678 +++| NJN POT5 IF MORE ERASES TO PERFORM
34346 M01S01390.252l678 +++| LJM POT9 SET UP TO REWRITE BLOCK
34347 M00S19766.1mt +++|
Line S19767 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34348 M01S19767.252l678 ---| POT23 LDN /MTX/ERA DIAGNOSE ERASE ERROR
Line S01391 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34349 M01S01391.252l678 +++| POT7 LDN /MTX/STE DIAGNOSE ERASE ERROR
34350 M00S19768.1mt +++| STD EC
34351 M00S19769.1mt +++| LDD DS SET STATUS FOR MESSAGE
34352 M00S19770.1mt +++| STM //STER
34353 M00S19771.1mt +++| RJM ISC ISSUE MESSAGE AND RECONNECT UNIT
Line S00001 Modification History |
M01 (Added by) | 1mt5 |
Seq # *Modification Id* Act
----------------------------+
34354 M01S00001.1mt5 +++| AOD EI INCREMENT ERROR ITERATION COUNT
Line S19772 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34355 M01S19772.282l826 ---| LDD DC
34356 M01S19773.282l826 ---| SHN -6
34357 M01S19774.282l826 ---| LMN /MTX/D16
Line S01509 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34358 M01S01509.282l826 +++| LDM DNCV
34359 M01S01510.282l826 +++| LPN 70
34360 M01S01511.282l826 +++| LMN /MTX/D16*10
Line S19775 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34361 M01S19775.252l678 ---| ZJN POT24 IF 1600 BPI CONTINUE ERASE
Line S01392 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34362 M01S01392.252l678 +++| ZJN POT8 IF 1600 BPI CONTINUE ERASE
Line S00001 Modification History |
M01 (Added by) | 1mt3 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34363 M02S00001.282l826 ---| LMN /MTX/D62&/MTX/D16
Line S01512 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34364 M01S01512.282l826 +++| LMN /MTX/D62*10&/MTX/D16*10
Line S00002 Modification History |
M01 (Added by) | 1mt3 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34365 M02S00002.252l678 ---| ZJN POT24 IF 6250 CPI CONTINUE ERASE
Line S19776 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34366 M01S19776.252l678 ---| LJM POT29 SET UP TO REPOSITION TO LGB
Line S01393 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34367 M01S01393.252l678 +++| ZJN POT8 IF 6250 CPI CONTINUE ERASE
34368 M01S01394.252l678 +++| LJM POT2 REPOSITION TO LAST GOOD RECORD
34369 M00S19777.1mt +++|
Line S19778 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
34370 M01S19778.v23l617 ---| POT24 LJM POT19 ERASE TAPE
Line S00539 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34371 M02S00539.252l678 ---| POT24 RJM CKR CHECK READY
34372 M02S00540.252l678 ---| LJM POT19 ERASE TAPE
34373 M02S00541.252l678 ---|
Line S01395 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 1mt29 |
Seq # *Modification Id* Act
----------------------------+
34374 M02S01395.1mt29 ---| POT8 LJM POT5 REISSUE THE ERASE
Line S00001 Modification History |
M01 (Added by) | 1mt29 |
Seq # *Modification Id* Act
----------------------------+
34375 M01S00001.1mt29 +++| POT8 RJM CKR CHECK FOR UNIT READY
34376 M01S00002.1mt29 +++| LJM POT3 REISSUE THE ERASE
34377 M00S19779.1mt +++|
34378 M00S19780.1mt +++|* REWRITE THE BLOCK.
34379 M00S19781.1mt +++|
Line S19782 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34380 M01S19782.252l678 ---| POT25 LDD LG+1
34381 M01S19783.252l678 ---| ZJN POT27 IF TAPE MARK WRITE
Line S01396 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34382 M01S01396.252l678 +++| POT9 LDD LG+1
34383 M01S01397.252l678 +++| ZJN POT11 IF TAPE MARK WRITE
Line S19784 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34384 M01S19784.282l826 ---| LDD HP CLEAR EOR FLAG
34385 M01S19785.282l826 ---| LPC 5777
34386 M01S19786.282l826 ---| STD HP
Line S01513 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
34387 M01S01513.282l826 +++| LDD UP CLEAR EOR FLAG
34388 M01S01514.282l826 +++| SCN 10
34389 M01S01515.282l826 +++| STD UP
34390 M00S19787.1mt +++| LDD MD CLEAR EOR/EOF THIS OPERATION FLAG
34391 M00S19788.1mt +++| LPC 7377
34392 M00S19789.1mt +++| STD MD
34393 M00S19790.1mt +++| LDD EI
34394 M00S19791.1mt +++| LPN 7
Line S19792 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34395 M01S19792.252l678 ---| ZJN POT27 IF TIME TO REQUEUE
Line S01398 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34396 M01S01398.252l678 +++| ZJN POT11 IF TIME TO REQUEUE
34397 M00S19793.1mt +++| LDC 0
Line S19794 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34398 M01S19794.252l678 ---| POTD EQU *-1
34399 M01S19795.252l678 ---| ZJN POT26 IF NOT WRITE LABELS
Line S01399 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34400 M01S01399.252l678 +++| POTD EQU *-1 ADD ONE TO *POTD*
34401 M01S01400.252l678 +++| ZJN POT10 IF NOT WRITE LABELS
Line S19796 Modification History |
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
34402 M01S19796.251l664 ---| LDC /WLA/WLA8-/WRITE/PWR-1
34403 M01S19797.251l664 ---| POT26 ADC /WRITE/PWR+1
Line S00176 Modification History |
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
34404 M01S00176.251l664 +++| LDC /WLA/WLA8-/WRITE/WTF
Line S00177 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34405 M02S00177.252l678 ---| POT26 ADC /WRITE/WTF
Line S01401 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34406 M01S01401.252l678 +++| POT10 ADC /WRITE/WTF
Line S08159 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
34407 M01S08159.274l797 +++| ERRNZ /WRITE/WTF-/WLI/WLI ENTRY POINTS MUST BE THE SAME
34408 M00S19798.1mt +++| STM WEMH
34409 M00S19799.1mt +++| LJM POTX RETURN
34410 M00S19800.1mt +++|
Line S19801 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34411 M01S19801.252l678 ---| POT27 LJM RET2 REQUEUE
34412 M01S19802.252l678 ---|
34413 M01S19803.252l678 ---|* VERIFY THE BLOCK.
34414 M01S19804.252l678 ---|
Line S19805 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34415 M02S19805.252l678 ---| POT28 RJM RTR READ TAPE REVERSE
Line S00542 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34416 M02S00542.252l678 ---| POT28 RJM BKS BACKSPACE TAPE
Line S19806 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34417 M02S19806.252l678 ---| LDD T4
Line S00543 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34418 M02S00543.252l678 ---| LDD DS CHECK FOR ALERT BIT
34419 M02S00544.252l678 ---| SHN -13
Line S19807 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34420 M01S19807.252l678 ---| ZJN POT30 IF NO ERROR
34421 M01S19808.252l678 ---| RJM ISM ISSUE MESSAGE
34422 M01S19809.252l678 ---| POT29 LDN 5 SET BLOCKS TO TRY FOR LBG
34423 M01S19810.252l678 ---| STM POTI
34424 M01S19811.252l678 ---| LJM POT6 REPOSITION TAPE TO LGB
34425 M01S19812.252l678 ---| POTE EQU *-1
34426 M01S19813.252l678 ---|* LJM POT8 (NO BID RECOVERY)
34427 M01S19814.252l678 ---|
Line S19815 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34428 M02S19815.252l678 ---| POT30 RJM RBL READ BLOCK
Line S00545 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
34429 M02S00545.252l678 ---| POT30 RJM RDA READ BLOCK