Seq # *Modification Id* Act
----------------------------+
15216 M01S00002.1mt48 +++| CON /SKP/IDFE
Line S00013 Modification History
M01 (Added by) 1mt41
Seq # *Modification Id* Act
----------------------------+
15217 M01S00013.1mt41 +++| RCT6.1 ACN CH
Line S02936 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15218 M01S02936.274l797 +++| LJM RCT1 READ THE DATA AGAIN
15219 M01S02937.274l797 +++|
15220 M01S02938.274l797 +++| RCT7 RJM /RLB/CRA READ *1LT* INTERFACE WORD
15221 M01S02939.274l797 +++| NJN RCT7 IF *1LT* TRANSFER TO CM NOT COMPLETE
15222 M01S02940.274l797 +++| ACN CH
15223 M01S02941.274l797 +++| LDM /RLB/BCWC BACK UP POINTERS
15224 M01S02942.274l797 +++| STD CN+3
15225 M01S02943.274l797 +++| LDM /RLB/BCWD
15226 M01S02944.274l797 +++| STD CN+4
15227 M01S02945.274l797 +++| LJM /RLB/CLB1 RESEND THE DATA
15228 M01S02946.274l797 +++|
15229 M01S02947.274l797 +++| RCT8 STM RCTH
15230 M01S02948.274l797 +++| LDD FN
15231 M01S02949.274l797 +++| LMN /MTX/RDF
15232 M01S02950.274l797 +++| NJN RCT10 IF NOT READ
15233 M01S02951.274l797 +++| LDD MD
15234 M01S02952.274l797 +++| SHN 21-6
15235 M01S02953.274l797 +++| PJN RCT10 IF NOT CODED
15236 M01S02954.274l797 +++| LDD BY
15237 M01S02955.274l797 +++| ZJN RCT10 IF NO DATA READ
15238 M01S02956.274l797 +++| LMN CLBL
15239 M01S02957.274l797 +++| NJN RCT9 IF BLOCK TOO SHORT
15240 M01S02958.274l797 +++| LDC LPNI
15241 M01S02959.274l797 +++| STM RCTI TO INDICATE NO FILL STATUS
15242 M01S02960.274l797 +++| CALL CCL CODE CONVERT LABEL
15243 M01S02961.274l797 +++| LDN LABL LABEL LENGTH AFTER CONVERSION
15244 M01S02962.274l797 +++| STD BY
15245 M01S02963.274l797 +++| LDD DS
15246 M01S02964.274l797 +++| LPN 40
15247 M01S02965.274l797 +++| NJN RCT10 IF FILL STATUS
15248 M01S02966.274l797 +++| RCT9 LDN /MTX/BTL BLOCK LENGTH ERROR
15249 M01S02967.274l797 +++| STD EC
15250 M01S02968.274l797 +++| RCT10 LDD BY
15251 M01S02969.274l797 +++| ZJN RCT11 IF NO DATA READ
15252 M01S02970.274l797 +++| SBN 2 I FORMAT
15253 M01S02971.274l797 +++| RCTE EQU *-1
15254 M01S02972.274l797 +++|* PSN (SI FORMAT)
15255 M01S02973.274l797 +++|* ADN 4 (ALL OTHER FORMATS)
15256 M01S02974.274l797 +++| STD T2
15257 M01S02975.274l797 +++|
15258 M01S02976.274l797 +++|* CALCULATE WORD COUNT.
15259 M01S02977.274l797 +++|
15260 M01S02978.274l797 +++| SHN 1 13*BYTES
15261 M01S02979.274l797 +++| ADD T2
15262 M01S02980.274l797 +++| SHN 2
15263 M01S02981.274l797 +++| ADD T2
15264 M01S02982.274l797 +++| SHN 14 (-6) (13*BYTES)/64
15265 M01S02983.274l797 +++| STD T0
15266 M01S02984.274l797 +++| SHN 6+2 4*13*BYTES (52*BYTES)
15267 M01S02985.274l797 +++| SBD T2 51*BYTES
15268 M01S02986.274l797 +++| ADD T0 (51*BYTES)+((13*BYTES)/64)
15269 M01S02987.274l797 +++| SHN -8D WORDS = ((51*BYTES)+((13*BYTES)/64))/256
15270 M01S02988.274l797 +++| RCT11 STD WC
15271 M01S02989.274l797 +++| LPN 1
15272 M01S02990.274l797 +++| UJN RCT12 CHECK AND CONVERT DATA (CODED)
15273 M01S02991.274l797 +++| RCTF EQU *-1
15274 M01S02992.274l797 +++|* ZJN RCT12 (I FORMAT)
15275 M01S02993.274l797 +++| SOD BY
15276 M01S02994.274l797 +++|
15277 M01S02995.274l797 +++|* CHECK AND CONVERT DATA.
15278 M01S02996.274l797 +++|
15279 M01S02997.274l797 +++| RCT12 RJM VDA VALIDATE DATA (I FORMAT)
15280 M01S02998.274l797 +++| RCTG EQU *-2
15281 M01S02999.274l797 +++|* UJN *+2 ALL OTHER FORMATS
15282 M01S03000.274l797 +++| RJM CDO CHECK DROP OUT FLAG
15283 M01S03001.274l797 +++| LDC * ERROR STATUS FROM *WFE*
15284 M01S03002.274l797 +++| RCTH EQU *-1
15285 M01S03003.274l797 +++| RCT13 ZJN RCT15 IF NO ERROR
15286 M01S03004.274l797 +++| SHN 21-4
15287 M01S03005.274l797 +++| PJN RCT14 IF NOT TAPE MARK
15288 M01S03006.274l797 +++| LDN 3 SET STOP TO EOI
15289 M01S03007.274l797 +++| STD TB
15290 M01S03008.274l797 +++| LDN 17 SET LEVEL NUMBER
15291 M01S03009.274l797 +++| STM LNUM
15292 M01S03010.274l797 +++| LDN 0 CLEAR WORD AND BYTE COUNTS
15293 M01S03011.274l797 +++| STD ES
15294 M01S03012.274l797 +++| STD WC
15295 M01S03013.274l797 +++| STD BY
15296 M01S03014.274l797 +++| LDN /MTX/BEI SET EOI
15297 M01S03015.274l797 +++| STD EC
15298 M01S03016.274l797 +++| UJN RCT16 PROCESS DATA
15299 M01S03017.274l797 +++|
15300 M01S03018.274l797 +++| RCT14 LDN /MTX/STE
15301 M01S03019.274l797 +++| STD EC STATUS ERROR
15302 M01S03020.274l797 +++| RCT15 LDD DS
15303 M01S03021.274l797 +++| LPN 40
15304 M01S03022.274l797 +++| RCTI EQU *-1
15305 M01S03023.274l797 +++|* LPN 0 S FORMAT READ
15306 M01S03024.274l797 +++| STD ES
15307 M01S03025.274l797 +++| UJN RCT16 SET FET+6 ADDRESS
15308 M01S03026.274l797 +++| RCTJ EQU *-1
15309 M01S03027.274l797 +++|* ZJN RCT16 IF NO FILL STATUS (I FORMAT)
15310 M01S03028.274l797 +++| LDN /MTX/STE
15311 M01S03029.274l797 +++| STD EC STATUS ERROR
15312 M01S03030.274l797 +++|* SADT .FE,,6,A
15313 M01S03031.274l797 +++| RCT16 LDC * SET FET+6 ADDRESS (FOR BCW)
15314 M01S03032.274l797 +++| RCTK EQU *-2
15315 M01S03033.274l797 +++| RJM PDA PROCESS DATA (I AND SI FORMAT)
15316 M01S03034.274l797 +++| RCTL EQU *-2
15317 M01S03035.274l797 +++|* RJM BCW BUILD CONTROL WORD (S AND SOME F)
15318 M01S03036.274l797 +++|* RJM /3M /BCW (L FORMAT AND LONG BLOCKS IN F FORMAT)
15319 M01S03037.274l797 +++|* UJN RCT17 (NOT READ DATA)
15320 M01S03038.274l797 +++| ERRNZ MRD18-MRDO-RCT17+RCTL IF MODIFYING WRONG ADDRESS
15321 M01S03039.274l797 +++| RCT17 LJM RCTX RETURN
15322 M01S03040.274l797 +++| ERRMI OVLS-*
15323 M01S03041.274l797 +++| LOC *O
15324 M01S03042.274l797 +++| .RCTL EQU *-.RCT LENGTH OF *RCT*
15325 M01S03043.274l797 +++|
15326 M01S03044.274l797 +++|.RCTA CHTB CHANNEL TABLE
15327 M01S03045.274l797 +++| OVERLAY (READ LONG BLOCK PROCESSOR.),(BUFC+5),,RLB
15328 M00S09351.1mt +++| .IM SET 1 SET FOR ADDRESS MODIFICATION ON ERRORS
15329 M00S09352.1mt +++| RLB SPACE 4,10
15330 M00S09353.1mt +++|** RLB - READ LONG BLOCK.
15331 M00S09354.1mt +++|*
15332 M00S09355.1mt +++|* CALLS ADP, /READ/CIB, CRA, FCN, ITM, /READ/MRD, SRQ,
15333 M00S09356.1mt +++|* /READ/TDA, WDA.
15334 M00S09357.1mt +++|*
15335 M00S09358.1mt +++|* MACROS SADT.
15336 M00S09359.1mt +++|
15337 M00S09360.1mt +++|
15338 M00S09361.1mt +++| ENTRY RLB
Line S09362 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15339 M01S09362.274l797 ---|
15340 M00S09363.1mt +++| RLB RJM /READ/CIB CHECK INPUT BUFFER
15341 M00S09364.1mt +++| SADT .BS,C
15342 M00S09365.1mt +++| ADC -* (-MAXIMUM BLOCK SIZE)
15343 M00S09366.1mt +++| RLBA PJN RLB1 IF ENOUGH ROOM IN BUFFER
15344 M00S09367.1mt +++|* UJN RLB1 READ SKIP
15345 M00S09368.1mt +++| LDN 1
15346 M00S09369.1mt +++| LJM RET SET FET COMPLETE
15347 M00S09370.1mt +++|
Line S09371 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15348 M01S09371.274l797 ---| RLB1 LDD CN+3 SAVE STARTING POINTER IN POINTER
Line S03046 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15349 M01S03046.274l797 +++| RLB1 LDD CN+3 SAVE STARTING IN POINTER
15350 M00S09372.1mt +++| STM BCWC
15351 M00S09373.1mt +++| LDD CN+4
15352 M00S09374.1mt +++| STM BCWD
Line S03047 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15353 M01S03047.274l797 +++|
15354 M01S03048.274l797 +++|* THE FOLLOWING CODE IS OVERLAYED WITH *CLB* FOR CTS.
15355 M01S03049.274l797 +++|
15356 M00S09375.1mt +++| RLBB LDN 0 ALLOW FOR CONTROL WORDS
15357 M00S09376.1mt +++|* LDN 1 (200/260 READ CODE)
15358 M00S09377.1mt +++| RJM ADP
15359 M00S09378.1mt +++| LDN 0
15360 M00S09379.1mt +++| STM RLBH CLEAR SHUTDOWN ENABLED FLAG
15361 M00S09380.1mt +++| STM BCWA
15362 M00S09381.1mt +++| STM .BYC
15363 M00S09382.1mt +++| STD EC CLEAR ERROR CODE AND TERMINATION STATUS
15364 M00S09383.1mt +++| STD TB
Line S09384 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15365 M01S09384.1mt51 ---| LDD HP
15366 M01S09385.1mt51 ---| SHN 21-5
15367 M01S09386.1mt51 ---| MJN RLB2 IF MTS CONTROLLER
15368 M01S09387.1mt51 ---| LDC NJNI+.RLB12-.RLBB
Line S00002 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15369 M01S00002.1mt51 +++| UJN RLB2 SET PCL
15370 M01S00003.1mt51 +++|* PSN (ATS NON-CYBER 180)
15371 M01S00004.1mt51 +++| RLBJ EQU *-1
15372 M01S00005.1mt51 +++| LDC NJNI+.RLB12-.RLBB RESET END-OF-BLOCK CHECK
15373 M00S09388.1mt +++| STM .RLBB
15374 M00S09389.1mt +++| RLB2 LDM /READ/RDFA SET PCL
15375 M00S09390.1mt +++| RLBC RJM FCN
Line S09391 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15376 M01S09391.274l797 ---|* UJN *-2 (NORMAL CLIP LEVEL)
Line S03050 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15377 M01S03050.274l797 +++|* UJN *+2 (NORMAL CLIP LEVEL)
15378 M00S09392.1mt +++| RJM ITM INITIATE TAPE MOTION
15379 M00S09393.1mt +++| LDN 0 SET UP POINTERS FOR *1LT*
15380 M00S09394.1mt +++| RJM ADP
15381 M00S09395.1mt +++| LDN 1 SEND REQUEST TO *1LT*
15382 M00S09396.1mt +++| RJM SRQ
15383 M00S09397.1mt +++| LDD DS SAVE DEVICE STATUS
15384 M00S09398.1mt +++| STM /READ/STAP
Line S09399 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15385 M01S09399.1mt51 ---| LDC LBBY
Line S00006 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15386 M01S00006.1mt51 +++| LDC RLB5 SET EXIT ON END OF INPUT
15387 M01S00007.1mt51 +++|* LDC RLB4 (CYBER 180 IOU)
15388 M01S00008.1mt51 +++| RLBD EQU *-1
15389 M01S00009.1mt51 +++| STM /READ/MRDC
15390 M01S00010.1mt51 +++| LDC LBBY SET BYTE COUNT
15391 M00S09400.1mt +++| STM /READ/MRDA
Line S09401 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15392 M01S09401.1mt51 ---| LDC RLB5 SET EXIT ON END OF INPUT
Line S09402 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15393 M02S09402.1mt51 ---|* LDC RLB4 (CYBER 170-8X5)
Line S00171 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15394 M02S00171.1mt51 ---|* LDC RLB4 (CYBER 170-815/825/835/855)
Line S09403 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15395 M01S09403.1mt51 ---|* LJM .RLB11 (ATS CONTROLLER - INITIATE INPUT)
15396 M01S09404.1mt51 ---| RLBD EQU *-2
15397 M01S09405.1mt51 ---| STM /READ/MRDC
15398 M01S09406.1mt51 ---| RJM /READ/MRD READ TAPE
Line S00011 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15399 M01S00011.1mt51 +++| LJM RLB2.1 READ TAPE
15400 M01S00012.1mt51 +++|* LJM /READ/MRD3 (CYBER 180 - INITIATE INPUT)
15401 M01S00013.1mt51 +++|* LJM .RLB11 (ATS NON-CYBER 180 - INITIATE INPUT)
15402 M01S00014.1mt51 +++| RLBI EQU *-1
15403 M01S00015.1mt51 +++|
15404 M01S00016.1mt51 +++| RLB2.1 RJM /READ/MRD READ TAPE
15405 M01S00017.1mt51 +++|
15406 M01S00018.1mt51 +++|* RETURN FROM */READ/MRD*.
15407 M01S00019.1mt51 +++|
15408 M00S09407.1mt +++| RLB3 LDN 77 DELAY
15409 M00S09408.1mt +++| SBN 1
15410 M00S09409.1mt +++| NJN *-1
15411 M00S09410.1mt +++| RJM CRA SEE IF *1LT* PASSED CHUNK LENGTH
Line S09411 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15412 M01S09411.274l797 ---| LMN 2
15413 M00S09412.1mt +++| NJN RLB3 IF *1LT* NOT DONE
15414 M00S09413.1mt +++| LJM RLB15 ACKNOWLEDGE *1LT*
15415 M00S09414.1mt +++|
Line S09415 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15416 M01S09415.1mt51 ---|* ENTER HERE AT END OF INPUT OF A CHUNK OF DATA.
Line S00020 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15417 M01S00020.1mt51 +++|* CYBER 180 - ENTER HERE AT END OF INPUT OF A CHUNK OF DATA.
15418 M00S09416.1mt +++|
15419 M00S09417.1mt +++| RLB4 IJM RLB18,CH IF *1MT* FINISHED INPUT
15420 M00S09418.1mt +++| EJM RLB4,CH IF *1LT* NOT TAKING DATA YET
15421 M00S09419.1mt +++| CCF *,CH CLEAR CHANNEL FLAG
Line S09420 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15422 M01S09420.274l797 ---| UJN RLB6 COUNT DATA TRANSFERED
Line S03051 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15423 M01S03051.274l797 +++| UJN RLB6 COUNT DATA TRANSFERRED
Line S00021 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15424 M01S00021.1mt51 +++|
15425 M01S00022.1mt51 +++|* ATS NON-CYBER 180 - ENTER HERE AT END OF INPUT OF A CHUNK.
15426 M00S09421.1mt +++|
15427 M00S09422.1mt +++| RLB5 IJM RLB18,CH IF *1MT* FINISHED INPUT
15428 M00S09423.1mt +++| EJM RLB5,CH IF *1LT* NOT TAKING DATA YET
15429 M00S09424.1mt +++| RLB6 AOM .BYC COUNT CHUNK
15430 M00S09425.1mt +++| LMN 1
15431 M00S09426.1mt +++| ZJN RLB7 IF FIRST CHUNK
15432 M00S09427.1mt +++| LDC /MTX/LBWD ADVANCE FOR *1LT* DATA
15433 M00S09428.1mt +++| RJM ADP
15434 M00S09429.1mt +++| AOM .BYC COUNT CHUNK
15435 M00S09430.1mt +++| RLB7 LDC /MTX/LBWD ADVANCE FET POINTER
15436 M00S09431.1mt +++| RJM ADP
15437 M00S09432.1mt +++| RJM WDA WRITE DATA
15438 M00S09433.1mt +++| LDM .BYC
15439 M00S09434.1mt +++| ADN 1
15440 M00S09435.1mt +++| SBD OV
15441 M00S09436.1mt +++| MJN RLB9 IF MORE FULL CHUNKS TO INPUT
15442 M00S09437.1mt +++| STM RLBH SET SHUTDOWN ENABLED IF ODD CHUNK COUNT
15443 M00S09438.1mt +++| NJN RLB8 IF ODD CHUNK COUNT
15444 M00S09439.1mt +++| LDD WC
15445 M00S09440.1mt +++| SHN 2
15446 M00S09441.1mt +++| ADD WC
15447 M00S09442.1mt +++| RLB8 ADN 1 SET AMOUNT TO INPUT
15448 M00S09443.1mt +++| STM /READ/MRDA
15449 M00S09444.1mt +++| RLBE LDC /READ/MRDC+1 REENABLE SHUT DOWN
Line S09445 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15450 M01S09445.1mt51 ---|* LDC UJNI+.RLB14-.RLBB (ATS CONTROLLER)
Line S00023 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15451 M01S00023.1mt51 +++|* LDC UJNI+.RLB14-.RLBB (ATS NON-CYBER 180)
15452 M00S09446.1mt +++| RLBF STM /READ/MRDC
Line S09447 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15453 M01S09447.1mt51 ---|* STM .RLBB (ATS CONTROLLER)
Line S00024 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15454 M01S00024.1mt51 +++|* STM .RLBB (ATS NON-CYBER 180)
15455 M00S09448.1mt +++| RLBG LDM RLBH
Line S09449 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15456 M01S09449.1mt51 ---|* UJN .RLB9 (ATS CONTROLLER)
Line S00025 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15457 M01S00025.1mt51 +++|* UJN .RLB9 (ATS NON-CYBER 180)
15458 M00S09450.1mt +++| NJN RLB12 IF *1LT* WILL FINISH INPUT
15459 M00S09451.1mt +++| LDM /READ/MRDA
15460 M00S09452.1mt +++| UJN RLB10 INPUT DATA
15461 M00S09453.1mt +++|
Line S09454 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15462 M01S09454.1mt51 ---|* THE FOLLOWING CODE GETS OVERLAID BY ATS
15463 M01S09455.1mt51 ---|* INPUT LOOP IF ATS CONTROLLER.
Line S09456 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15464 M02S09456.1mt51 ---|* OVERLAYED BY IOU CODE IF CYBER 170-8X5.
Line S00172 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15465 M02S00172.1mt51 ---|* OVERLAYED BY IOU CODE IF CYBER 170-815/825/835/855.
Line S00026 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15466 M01S00026.1mt51 +++|* THE FOLLOWING CODE IS OVERLAID BY THE ATS INPUT LOOP IF ATS
15467 M01S00027.1mt51 +++|* ON A NON-CYBER 180, OR BY THE IOU INPUT LOOP ON A CYBER 180.
15468 M00S09457.1mt +++|
15469 M00S09458.1mt +++| .RLBA EQU * BEGINNING OF OVERLAID CODE
15470 M00S09459.1mt +++|
15471 M00S09460.1mt +++| RLB9 LDC LBBY SET TO INPUT FULL CHUNK
15472 M00S09461.1mt +++| RLB10 IJM RLB12,CH IF *1LT* FINISHED INPUT
15473 M00S09462.1mt +++| RLB11 EJM RLB10,CH IF *1LT* TAKING DATA
15474 M00S09463.1mt +++| EJM RLB10,CH IF *1LT* TAKING DATA
15475 M00S09464.1mt +++| EJM RLB10,CH IF *1LT* TAKING DATA
15476 M00S09465.1mt +++| EJM RLB10,CH IF *1LT* TAKING DATA
15477 M00S09466.1mt +++| FJM /READ/MRD3,CH IF TIME FOR *1MT* TO TAKE DATA
15478 M00S09467.1mt +++| UJN RLB11 WAIT FOR *1LT* TO COMPLETE
15479 M00S09468.1mt +++| BSS 7 PAD TO MAKE SAME LENGTH AS ATS INPUT LOOP
15480 M00S09469.1mt +++|
15481 M00S09470.1mt +++| .RLBAL EQU *-.RLBA LENGTH OF OVERLAID AREA
15482 M00S09471.1mt +++|
15483 M00S09472.1mt +++| RLB12 LDN 77 DELAY
15484 M00S09473.1mt +++| SBN 1
15485 M00S09474.1mt +++| NJN *-1
15486 M00S09475.1mt +++| RJM CRA SEE IF *1LT* PASSED CHUNK LENGTH
Line S09476 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15487 M01S09476.274l797 ---| LMN 2
15488 M00S09477.1mt +++| NJN RLB12 IF *1LT* NOT DONE
15489 M00S09478.1mt +++| AOM BCWA SKIP UPDATE IN BCW
15490 M00S09479.1mt +++| LDC LBBY CALCULATE BYTES IN LAST CHUNK
15491 M00S09480.1mt +++| STM /READ/MRDA
15492 M00S09481.1mt +++| SBD CM+1
15493 M00S09482.1mt +++| STD T1
15494 M00S09483.1mt +++| LMC LBBY
15495 M00S09484.1mt +++| ZJN RLB13 IF *1LT* ENDED ON CHUNK BOUNDARY
15496 M00S09485.1mt +++| LDC 0
15497 M00S09486.1mt +++| RLBH EQU *-1
15498 M00S09487.1mt +++| ZJN RLB14 IF SHUTDOWN NOT ENABLED
15499 M00S09488.1mt +++| LDD WC SET BYTE COUNT ATTEMPTED TO READ
15500 M00S09489.1mt +++| SHN 2
15501 M00S09490.1mt +++| ADD WC
15502 M00S09491.1mt +++| ADN 1
15503 M00S09492.1mt +++| STM /READ/MRDA
15504 M00S09493.1mt +++| SBD CM+1
15505 M00S09494.1mt +++| LJM /READ/MRD4 DETERMINE IF BLOCK TOO LARGE
15506 M00S09495.1mt +++|
15507 M00S09496.1mt +++| RLB13 STD T1
15508 M00S09497.1mt +++| RLB14 LJM /READ/MRD6 EXIT
15509 M00S09498.1mt +++|
Line S09499 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15510 M01S09499.274l797 ---|* PROCESSING CONTINUES HERE AFTER EXIT FROM RDT.
Line S03052 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15511 M01S03052.274l797 +++|* PROCESSING CONTINUES HERE AFTER EXIT FROM MRD.
15512 M00S09500.1mt +++|
15513 M00S09501.1mt +++| RLB15 LDD MD
15514 M00S09502.1mt +++| LPN 40
15515 M00S09503.1mt +++| ZJN RLB16 IF NOT 200 READ CODE
15516 M00S09504.1mt +++| LDN 0 SET TRAILER CONTROL WORD
15517 M00S09505.1mt +++| STM BUFB
15518 M00S09506.1mt +++| LDN 1
15519 M00S09507.1mt +++| RJM ADP
15520 M00S09508.1mt +++| RJM WDA WRITE TRAILER CONTROL WORD
15521 M00S09509.1mt +++| RLB16 LDN 0 SET WORD COUNT
15522 M00S09510.1mt +++| STD WC
15523 M00S09511.1mt +++| STD CM ACKNOWLEDGE *1LT*
15524 M00S09512.1mt +++| LDM CPDA
15525 M00S09513.1mt +++| ADN 2
15526 M00S09514.1mt +++| CWD CM
15527 M00S09515.1mt +++| LDD TB
15528 M00S09516.1mt +++| LMN 3
15529 M00S09517.1mt +++| NJN RLB17 IF NOT TAPE MARK
15530 M00S09518.1mt +++| LDM BCWC BACK UP POINTERS
15531 M00S09519.1mt +++| STD CN+3
15532 M00S09520.1mt +++| LDM BCWD
15533 M00S09521.1mt +++| STD CN+4
15534 M00S09522.1mt +++| RLB17 RJM /READ/TDA
15535 M00S09523.1mt +++| LDM SRQB RESTORE STARTING WORD COUNT
15536 M00S09524.1mt +++| STD WC
15537 M00S09525.1mt +++| LJM RLB LOOP
15538 M00S09526.1mt +++|
15539 M00S09527.1mt +++| RLB18 LDN 20 DELAY
15540 M00S09528.1mt +++| SBN 1
15541 M00S09529.1mt +++| NJN *-1 IF MORE DELAY
15542 M00S09530.1mt +++| RJM CRA CHECK *1LT* COMPLETE
Line S09531 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15543 M01S09531.274l797 ---| LMN 2
15544 M00S09532.1mt +++| NJN RLB18 IF *1LT* NOT COMPLETE
15545 M00S09533.1mt +++| LJM /READ/MRD6 PROCESS READ COMPLETION
15546 M00S09534.1mt +++|
15547 M00S09535.1mt +++|
15548 M00S09536.1mt +++| .BYC CON 0 CHUNKS INPUT OF *LBBY* BYTES
15549 M00S09537.1mt +++| TITLE SUBROUTINES.
15550 M00S09538.1mt +++| ADP SPACE 4,15
15551 M00S09539.1mt +++|** ADP - ADVANCE POINTER.
15552 M00S09540.1mt +++|*
15553 M00S09541.1mt +++|* ENTRY (CN+3 - CN+4) = IN POINTER.
15554 M00S09542.1mt +++|* (A) = WORDS TO INCREMENT IN BY.
15555 M00S09543.1mt +++|*
15556 M00S09544.1mt +++|* EXIT (T4 - T5) = STARTING IN POINTER.
15557 M00S09545.1mt +++|* (CN+3 - CN+4) = UPDATED IN POINTER.
15558 M00S09546.1mt +++|* (T6) = FIRST PART WORD COUNT.
15559 M00S09547.1mt +++|* (T7) = SECOND PART WORD COUNT.
15560 M00S09548.1mt +++|*
15561 M00S09549.1mt +++|* CALLS /READ/CIB.
15562 M00S09550.1mt +++|*
15563 M00S09551.1mt +++|* MACROS SADT.
15564 M00S09552.1mt +++|
15565 M00S09553.1mt +++|
15566 M00S09554.1mt +++| ADP SUBR ENTRY/EXIT
15567 M00S09555.1mt +++| STD T6
15568 M00S09556.1mt +++| RJM /READ/CIB CHECK INPUT BUFFER
15569 M00S09557.1mt +++| SBD T6
15570 M00S09558.1mt +++| PJN ADP1 IF ROOM IN BUFFER FOR BLOCK
15571 M00S09559.1mt +++| RAD T6 ADJUST WORD COUNT
15572 M00S09560.1mt +++| ADP1 LDD CN+3 SAVE IN
15573 M00S09561.1mt +++| STD T4
15574 M00S09562.1mt +++| LDD CN+4
15575 M00S09563.1mt +++| STD T5
15576 M00S09564.1mt +++| LDN 0 PRESET SECOND PART WORD COUNT
15577 M00S09565.1mt +++| STD T7
15578 M00S09566.1mt +++| LDD T6 UPDATE IN
15579 M00S09567.1mt +++| RAD CN+4
15580 M00S09568.1mt +++| SHN -14
15581 M00S09569.1mt +++| RAD CN+3
15582 M00S09570.1mt +++| SHN 14
15583 M00S09571.1mt +++| LMD CN+4
15584 M00S09572.1mt +++| SADT .LM,C
15585 M00S09573.1mt +++| ADC -* (-LIMIT)
15586 M00S09574.1mt +++| MJN ADPX IF NO WRAP AROUND
15587 M00S09575.1mt +++| STD T7 SET SECOND PART WORD COUNT
15588 M00S09576.1mt +++| SADT .FT
15589 M00S09577.1mt +++| ADC * (FIRST)
15590 M00S09578.1mt +++| STD CN+4
15591 M00S09579.1mt +++| SHN -14
15592 M00S09580.1mt +++| STD CN+3
15593 M00S09581.1mt +++| LDD T6 RESET FIRST PART WORD COUNT
15594 M00S09582.1mt +++| SBD T7
15595 M00S09583.1mt +++| STD T6
15596 M00S09584.1mt +++| LJM ADPX RETURN
15597 M00S09585.1mt +++| BCW SPACE 4,10
15598 M00S09586.1mt +++|** BCW - BUILD CONTROL WORD.
15599 M00S09587.1mt +++|*
15600 M00S09588.1mt +++|* ENTRY (BCWA) = 0 IF *1MT* FINISHED INPUT.
15601 M00S09589.1mt +++|*
Line S09590 Modification History
M01 (Removed by) 1mt47
Seq # *Modification Id* Act
----------------------------+
15602 M01S09590.1mt47 ---|* USES CM - CM+4.
Line S00002 Modification History
M01 (Added by) 1mt47
Seq # *Modification Id* Act
----------------------------+
15603 M01S00002.1mt47 +++|* USES TB, T1, CM - CM+4.
15604 M00S09591.1mt +++|*
15605 M00S09592.1mt +++|* CALLS ADP, WDA.
15606 M00S09593.1mt +++|*
15607 M00S09594.1mt +++|* MACROS SADT.
15608 M00S09595.1mt +++|
15609 M00S09596.1mt +++|
15610 M00S09597.1mt +++| BCW SUBR ENTRY/EXIT
15611 M00S09598.1mt +++| LDC *
15612 M00S09599.1mt +++| BCWA EQU *-1
15613 M00S09600.1mt +++| NJN BCW2 IF *1LT* FINISHED INPUT
15614 M00S09601.1mt +++| LDM .BYC
15615 M00S09602.1mt +++| ZJN BCW1 IF FIRST PASS
15616 M00S09603.1mt +++| AOM .BYC COUNT *1LT* BLOCK
15617 M00S09604.1mt +++| LDC /MTX/LBWD
15618 M00S09605.1mt +++| RJM ADP
15619 M00S09606.1mt +++| BCW1 LDD WC TRANSFER LAST PART OF DATA
15620 M00S09607.1mt +++| RJM ADP
15621 M00S09608.1mt +++| RJM WDA WRITE DATA
15622 M00S09609.1mt +++| UJN BCW3 CHECK FOR TAPE MARK
15623 M00S09610.1mt +++|
15624 M00S09611.1mt +++| BCW2 LDD WC ADVANCE POINTER FOR *1LT*
15625 M00S09612.1mt +++| RJM ADP
15626 M00S09613.1mt +++| BCW3 LDD EC
15627 M00S09614.1mt +++| LMN /MTX/BEI
15628 M00S09615.1mt +++| ZJN BCW4 IF TAPE MARK
15629 M00S09616.1mt +++| LDM /READ/BCWA
15630 M00S09617.1mt +++| LPN 77
15631 M00S09618.1mt +++| STD TB
15632 M00S09619.1mt +++| LDN 0
15633 M00S09620.1mt +++| STM LNUM
15634 M00S09621.1mt +++| BCW4 STD T1
15635 M00S09622.1mt +++| LDD MD
15636 M00S09623.1mt +++| LPN 40
15637 M00S09624.1mt +++| NJN BCW5 IF 200 READ
15638 M00S09625.1mt +++| LDD WC 12 * UNUSED BYTES
15639 M00S09626.1mt +++| SHN 2
15640 M00S09627.1mt +++| ADD WC
15641 M00S09628.1mt +++| SBD BY
15642 M00S09629.1mt +++| SHN 2
15643 M00S09630.1mt +++| STD T1
15644 M00S09631.1mt +++| SHN 1
15645 M00S09632.1mt +++| RAD T1
15646 M00S09633.1mt +++| BCW5 LDD ES
15647 M00S09634.1mt +++| LPN 40
15648 M00S09635.1mt +++| BCWB ZJN BCW7 IF NO FILL STATUS
15649 M00S09636.1mt +++|* ZJN BCW6 (9 TRACK BINARY - IF NO FILL STATUS)
15650 M00S09637.1mt +++| LDD WC
15651 M00S09638.1mt +++| ADM .BYC
15652 M00S09639.1mt +++| ZJN BCW7 IF NO DATA READ
15653 M00S09640.1mt +++| LDM /READ/BCWE
15654 M00S09641.1mt +++| LPN 77
15655 M00S09642.1mt +++| UJN BCW7 ADJUST UNUSED BIT COUNT
15656 M00S09643.1mt +++|
15657 M00S09644.1mt +++| BCW6 LDD BY ADJUST UBC FOR ODD BYTE COUNT
15658 M00S09645.1mt +++| LPN 1
15659 M00S09646.1mt +++| SHN 2
15660 M00S09647.1mt +++| BCW7 RAD T1
15661 M00S09648.1mt +++| STM BUFC+2
15662 M00S09649.1mt +++| LDC LBBY
15663 M00S09650.1mt +++| STD T1
15664 M00S09651.1mt +++| LDD BY
15665 M00S09652.1mt +++| STM BUFC+4
15666 M00S09653.1mt +++| LDD MD
15667 M00S09654.1mt +++| LPN 60
15668 M00S09655.1mt +++| NJN BCW9 IF CONTROL WORD READ
15669 M00S09656.1mt +++| LDM BUFC+2
15670 M00S09657.1mt +++| STD T1
15671 M00S09658.1mt +++| LDD FM
Line S00873 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
15672 M01S00873.282l826 +++| SHN -6
15673 M00S09659.1mt +++| LMN /MTX/TFL
15674 M00S09660.1mt +++| NJN BCW8 IF NOT L FORMAT
15675 M00S09661.1mt +++| SADT .FE,,6,A
15676 M00S09662.1mt +++| LDC * RETURN UBC TO FET
15677 M00S09663.1mt +++| CRD CM
15678 M00S09664.1mt +++| LDD T1 SET UBC
15679 M00S09665.1mt +++| STD CM+2
15680 M00S09666.1mt +++| SADT .FE,,6,A
15681 M00S09667.1mt +++| LDC *
15682 M00S09668.1mt +++| CWD CM
15683 M00S09669.1mt +++| BCW8 LJM BCWX RETURN
15684 M00S09670.1mt +++|
15685 M00S09671.1mt +++| BCW9 LPN 40
15686 M00S09672.1mt +++| NJN BCW10 IF 200 READ
15687 M00S09673.1mt +++| LDC /MTX/LBWD
15688 M00S09674.1mt +++| STD T1
15689 M00S09675.1mt +++| LDD WC
15690 M00S09676.1mt +++| STM BUFC+4
15691 M00S09677.1mt +++| BCW10 LDN 0
15692 M00S09678.1mt +++| STM BUFC+3
15693 M00S09679.1mt +++| LDM .BYC
15694 M00S09680.1mt +++| STD T0
15695 M00S09681.1mt +++| ZJN BCW12 IF NO PARTIAL BLOCKS
15696 M00S09682.1mt +++| BCW11 LDD T1 COUNT BYTES OR WORDS FOR EACH BUFFER FULL
15697 M00S09683.1mt +++| RAM BUFC+4
15698 M00S09684.1mt +++| SHN -14
15699 M00S09685.1mt +++| RAM BUFC+3
15700 M00S09686.1mt +++| SOD T0
15701 M00S09687.1mt +++| NJN BCW11 IF MORE BLOCKS TO COUNT
15702 M00S09688.1mt +++| BCW12 LDC * PUT CONTROL WORD IN BUFFER
15703 M00S09689.1mt +++| BCWC EQU *-1
15704 M00S09690.1mt +++| SHN 6
15705 M00S09691.1mt +++| ADD RA
15706 M00S09692.1mt +++| SHN 6
15707 M00S09693.1mt +++| ADC *
15708 M00S09694.1mt +++| BCWD EQU *-1
15709 M00S09695.1mt +++| CWM BUFC,ON
15710 M00S09696.1mt +++| LJM BCWX RETURN
15711 M00S09697.1mt +++| CPD SPACE 4,10
15712 M00S09698.1mt +++|** CPD - CHECK PP (1LT) DROP OUT.
15713 M00S09699.1mt +++|*
15714 M00S09700.1mt +++|* ENTRY (CPDA) = PP INPUT REGISTER ADDRESS.
15715 M00S09701.1mt +++|*
15716 M00S09702.1mt +++|* EXIT (A) = 0, IF *1LT* STILL AROUND.
15717 M00S09703.1mt +++|*
15718 M00S09704.1mt +++|* MACROS CHTE.
15719 M00S09705.1mt +++|
15720 M00S09706.1mt +++|
15721 M00S09707.1mt +++| CPD SUBR ENTRY/EXIT
15722 M00S09708.1mt +++| LDC *
15723 M00S09709.1mt +++| CPDA EQU *-1
15724 M00S09710.1mt +++| CRD CM
15725 M00S09711.1mt +++| LDD CM+1
15726 M00S09712.1mt +++| SCN 77
15727 M00S09713.1mt +++| SHN 6
15728 M00S09714.1mt +++| LMD CM
15729 M00S09715.1mt +++| LMC 3RT1L
15730 M00S09716.1mt +++| ZJN CPD1 IF *1LT*
15731 M00S09717.1mt +++| SHN 14
15732 M00S09718.1mt +++| LMN 1R1
15733 M00S09719.1mt +++| NJN CPDX IF NOT *1LT* LOADING
15734 M00S09720.1mt +++| CPD1 LDD CM+3
15735 M00S09721.1mt +++| CHTE *
15736 M00S09722.1mt +++| LMN CH
15737 M00S09723.1mt +++| LPN 77
15738 M00S09724.1mt +++| UJN CPDX RETURN
15739 M00S09725.1mt +++| CRA SPACE 4,10
15740 M00S09726.1mt +++|** CRA - CHECK REQUEST ACCEPTANCE FROM *1LT*.
15741 M00S09727.1mt +++|*
Line S09728 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15742 M01S09728.274l797 ---|* EXIT (A) = REQUEST BYTE.
Line S03053 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15743 M01S03053.274l797 +++|* EXIT (A) = 0 IF *1LT* COMPLETE.
15744 M00S09729.1mt +++|* (CM - CM+4) = REQUEST/RETURN WORD.
15745 M00S09730.1mt +++|
15746 M00S09731.1mt +++|
15747 M00S09732.1mt +++| CRA SUBR ENTRY/EXIT
15748 M00S09733.1mt +++| LDM CPDA
15749 M00S09734.1mt +++| ADN 2
15750 M00S09735.1mt +++| CRD CM
15751 M00S09736.1mt +++| LDD CM
Line S03054 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15752 M01S03054.274l797 +++| LMN 2
15753 M00S09737.1mt +++| UJN CRAX RETURN
Line S00028 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15754 M01S00028.1mt51 +++| ITS SPACE 4,10
15755 M01S00029.1mt51 +++|** ITS - INDICATE *1MT* TRANSFER STARTED.
15756 M01S00030.1mt51 +++|*
15757 M01S00031.1mt51 +++|* ENTRY (A) = BYTE COUNT.
15758 M01S00032.1mt51 +++|*
15759 M01S00033.1mt51 +++|* EXIT (A) = BYTE COUNT.
15760 M01S00034.1mt51 +++|
15761 M01S00035.1mt51 +++|
15762 M01S00036.1mt51 +++| ITS SUBR ENTRY/EXIT
15763 M01S00037.1mt51 +++| STD T0 SAVE BYTE COUNT
15764 M01S00038.1mt51 +++| LDM CPDA INDICATE *1MT* TRANSFER STARTED
15765 M01S00039.1mt51 +++| ADN 3
15766 M01S00040.1mt51 +++| CWD ON
15767 M01S00041.1mt51 +++| LDD T0 RESTORE (A)
15768 M01S00042.1mt51 +++| UJN ITSX RETURN
15769 M00S09738.1mt +++| SRQ SPACE 4,10
15770 M00S09739.1mt +++|** SRQ - SEND REQUEST TO *1LT* TO START BLOCK.
15771 M00S09740.1mt +++|*
15772 M00S09741.1mt +++|* ENTRY (A) = REQUEST CODE.
15773 M00S09742.1mt +++|* (T4 - T5) = POINTER.
15774 M00S09743.1mt +++|* (SRQB) = STARTING WORD COUNT.
15775 M00S09744.1mt +++|* (SRQC) = STARTING OV CONTENTS.
15776 M00S09745.1mt +++|*
15777 M00S09746.1mt +++|* USES T1, T2, T3, CM - CM+4.
15778 M00S09747.1mt +++|*
Line S09748 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15779 M01S09748.1mt51 ---|* CALLS CPD, CRA, HNG.
Line S00043 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15780 M01S00043.1mt51 +++|* CALLS CPD, HNG.
15781 M00S09749.1mt +++|
15782 M00S09750.1mt +++|
15783 M00S09751.1mt +++| SRQ SUBR ENTRY/EXIT
15784 M00S09752.1mt +++| STD T1
15785 M00S09753.1mt +++| SRQA UJN SRQ1 NO CHANNEL FLAG PRESENT
Line S09754 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
15786 M01S09754.ns21000 ---|* PSN (CYBER 170-8X5)
Line S00173 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15787 M02S00173.1mt51 ---|* PSN (CYBER 170-815/825/835/855)
Line S00044 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15788 M01S00044.1mt51 +++|* PSN (CYBER 180)
Line S09755 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15789 M01S09755.274l797 ---| CCF *,CH CLEAR CHANNEL FLAG
15790 M01S09756.274l797 ---| SCF *,CH SET CHANNEL FLAG
15791 M01S09757.274l797 ---| SRQ1 RJM CRA CHECK *1LT* ACCEPT
15792 M01S09758.274l797 ---| NJN SRQ2 IF *1LT* OUT OF SYNC
15793 M01S09759.274l797 ---| LDM CPDA CHECK *1LT* FUNCTION
Line S03055 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15794 M01S03055.274l797 +++| SCF *+2,CH SET CHANNEL FLAG
Line S00045 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15795 M01S00045.1mt51 +++| LDM CPDA INDICATE *1MT* TRANSFER STARTED
15796 M01S00046.1mt51 +++| ADN 3
15797 M01S00047.1mt51 +++| CWD ON
Line S03056 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15798 M01S03056.274l797 +++| SRQ1 LDM CPDA CHECK *1LT* FUNCTION
15799 M00S09760.1mt +++| ADN 1
15800 M00S09761.1mt +++| CRD CM
15801 M00S09762.1mt +++| LDD CM
15802 M00S09763.1mt +++| LMN PRLM
15803 M00S09764.1mt +++| ZJN SRQ3 IF *1LT* PAUSING
15804 M00S09765.1mt +++| LDC * WORD COUNT
15805 M00S09766.1mt +++| SRQB EQU *-1
15806 M00S09767.1mt +++| STD T2
15807 M00S09768.1mt +++| LDC * CHUNK COUNT
15808 M00S09769.1mt +++| SRQC EQU *-1
15809 M00S09770.1mt +++| STD T3
15810 M00S09771.1mt +++| LDM CPDA ENTER REQUEST
15811 M00S09772.1mt +++| ADN 2
15812 M00S09773.1mt +++| CWD T1
Line S09774 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15813 M01S09774.1mt51 ---| RJM CPD
15814 M01S09775.1mt51 ---| ZJN SRQX IF *1LT* STILL AROUND
Line S00048 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15815 M01S00048.1mt51 +++| RJM CPD CHECK IF PP *L1T* DROPPED OUT
15816 M01S00049.1mt51 +++| ZJP SRQX IF *1LT* STILL AROUND
Line S09776 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15817 M01S09776.274l797 ---| SRQ2 RJM HNG HANG PP
Line S03057 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15818 M01S03057.274l797 +++| RJM HNG HANG PP
15819 M00S09777.1mt +++|
15820 M00S09778.1mt +++| SRQ3 LJM RET2 REQUEUE REQUEST
15821 M00S09779.1mt +++| WDA SPACE 4,10
15822 M00S09780.1mt +++|** WDA - WRITE DATA TO CENTRAL.
15823 M00S09781.1mt +++|*
15824 M00S09782.1mt +++|* ENTRY (T4 - T5) = IN POINTER.
15825 M00S09783.1mt +++|* (T6) = FIRST PART WORD COUNT.
15826 M00S09784.1mt +++|* (T7) = SECOND PART WORD COUNT.
15827 M00S09785.1mt +++|*
15828 M00S09786.1mt +++|* MACROS SADT.
15829 M00S09787.1mt +++|
15830 M00S09788.1mt +++|
15831 M00S09789.1mt +++| WDA SUBR ENTRY/EXIT
15832 M00S09790.1mt +++| LDD T6
15833 M00S09791.1mt +++| ZJN WDAX IF NO FIRST PART
15834 M00S09792.1mt +++| SHN 2
15835 M00S09793.1mt +++| ADD T6
15836 M00S09794.1mt +++| ADC BUFB
15837 M00S09795.1mt +++| STM WDAA
15838 M00S09796.1mt +++| LDD T4 TRANSFER FIRST PART
15839 M00S09797.1mt +++| SHN 6
15840 M00S09798.1mt +++| ADD RA
15841 M00S09799.1mt +++| SHN 6
15842 M00S09800.1mt +++| ADD T5
15843 M00S09801.1mt +++| CWM BUFB,T6
15844 M00S09802.1mt +++| LDD T7
15845 M00S09803.1mt +++| ZJN WDAX IF NO SECOND PART
15846 M00S09804.1mt +++| SADT .FT,,,A
15847 M00S09805.1mt +++| LDC * TRANSFER SECOND PART
15848 M00S09806.1mt +++| CWM *,T7
15849 M00S09807.1mt +++| WDAA EQU *-1
15850 M00S09808.1mt +++| UJN WDAX RETURN
Line S00050 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15851 M01S00050.1mt51 +++| WTS SPACE 4,10
15852 M01S00051.1mt51 +++|** WTS - WAIT FOR *1LT* TRANSFER TO START.
15853 M01S00052.1mt51 +++|*
15854 M01S00053.1mt51 +++|* ENTRY (A) = BYTE COUNT.
15855 M01S00054.1mt51 +++|*
15856 M01S00055.1mt51 +++|* EXIT (A) = BYTE COUNT.
15857 M01S00056.1mt51 +++|*
15858 M01S00057.1mt51 +++|* USES CM - CM+4.
15859 M01S00058.1mt51 +++|
15860 M01S00059.1mt51 +++|
15861 M01S00060.1mt51 +++| WTS3 LDD T0 RESTORE (A)
15862 M01S00061.1mt51 +++|
15863 M01S00062.1mt51 +++| WTS SUBR ENTRY/EXIT
15864 M01S00063.1mt51 +++| STD T0 SAVE BYTE COUNT
15865 M01S00064.1mt51 +++| WTS1 LDM CPDA CHECK *1MT*/*1LT* INTERLOCK
15866 M01S00065.1mt51 +++| ADN 3
15867 M01S00066.1mt51 +++| CRD CM
15868 M01S00067.1mt51 +++| LDD CM
15869 M01S00068.1mt51 +++| ZJN WTS3 IF *1LT* TRANSFER STARTED
15870 M01S00069.1mt51 +++| LDN 24 DELAY 10 MICROSECONDS
15871 M01S00070.1mt51 +++| WTS2 SBN 1
15872 M01S00071.1mt51 +++| NJN WTS2 IF NOT DONE
15873 M01S00072.1mt51 +++| UJN WTS1 CHECK INTERLOCK
15874 M00S09809.1mt +++| BUFFER SPACE 4,10
15875 M00S09810.1mt +++| BUFFER BUFB
15876 M00S09811.1mt +++| CALL SPACE 4,10
15877 M00S09812.1mt +++| .IM SET 0 DISABLE ADDRESS MODIFICATION ON ERRORS
15878 M00S09813.1mt +++|
15879 M00S09814.1mt +++|** *1LT* CALL BLOCK.
15880 M00S09815.1mt +++|*
15881 M00S09816.1mt +++|*T 18/ 1LT,6/ CP,12/ 0,12/ CHANNEL,12/ PPIA
Figure
0 11 12 23 24 29 PPIA CHANNEL 0 30 35 36 41 42 59 0 CP 1LT
15882 M00S09817.1mt +++|*T, 12/ -0,24/ FIRST,24/ LIMIT
Figure
0 23 24 29 LIMIT FIRST 30 47 48 59 FIRST -0
15883 M00S09818.1mt +++|
15884 M00S09819.1mt +++|
15885 M00S09820.1mt +++| CALL VFD 18/3R1LT,6/0
15886 M00S09821.1mt +++| CON 0 READ
15887 M00S09822.1mt +++| CHTE *
15888 M00S09823.1mt +++| CON CH CHANNEL
15889 M00S09824.1mt +++| CON 0 *1MT* INPUT REGISTER ADDRESS
15890 M00S09825.1mt +++| CON -0
15891 M00S09826.1mt +++| SADT .FT,,,,SE
15892 M00S09827.1mt +++| CON 0,0
15893 M00S09828.1mt +++| SADT .LM,,,,SE
15894 M00S09829.1mt +++| CON 0,0
Line S00073 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15895 M01S00073.1mt51 +++| TITLE PRESET.
15896 M00S09830.1mt +++| PRS SPACE 4,10
15897 M00S09831.1mt +++|** PRS - PRESET.
15898 M00S09832.1mt +++|*
Line S09833 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15899 M01S09833.274l797 ---|* CALLS CEC, /READ/CIB, CPD, CRA, MCH, SRQ.
Line S03058 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15900 M01S03058.274l797 +++|* ENTRY AT *PRS10* AFTER OVERLAY *CPP* HAS BEEN LOADED AND
15901 M01S03059.274l797 +++|* EXECUTED.
15902 M01S03060.274l797 +++|*
15903 M01S03061.274l797 +++|* EXIT TO *RLB* WHEN PRESET COMPLETE.
15904 M01S03062.274l797 +++|*
15905 M01S03063.274l797 +++|* USES T1, T4, T5.
15906 M01S03064.274l797 +++|*
15907 M01S03065.274l797 +++|* CALLS CEC, CPD, CRA, MCH, SRQ.
15908 M00S09834.1mt +++|*
15909 M00S09835.1mt +++|* MACROS MONITOR, PAUSE.
15910 M00S09836.1mt +++|
15911 M00S09837.1mt +++|
Line S09838 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15912 M01S09838.274l797 ---| PRS LDC BUFB
Line S03066 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15913 M01S03066.274l797 +++| PRS LDC UJNI+2 DISABLE READ AHEAD
15914 M01S03067.274l797 +++| STM /READ/TDAF
15915 M01S03068.274l797 +++| LDN 0 DISABLE ALLOWANCE FOR CONTROL WORDS
15916 M01S03069.274l797 +++| STM /READ/TDAA
15917 M01S03070.274l797 +++| LDC PRSC MODIFY CHANNELS
15918 M01S03071.274l797 +++| RJM MCH
15919 M01S03072.274l797 +++| LDD MD
15920 M01S03073.274l797 +++| LPN 60
15921 M01S03074.274l797 +++| ZJN PRS1 IF NO CONTROL WORDS
15922 M01S03075.274l797 +++| AOM RLBB ALLOW FOR CONTROL WORD
15923 M01S03076.274l797 +++| AOM .CLB+CLBA-CLB ALLOW FOR CONTROL WORD
15924 M01S03077.274l797 +++| PRS1 LDD HP
15925 M01S03078.274l797 +++| SHN 21-7
15926 M01S03079.274l797 +++| PJN PRS3 IF NOT CTS
15927 M01S03080.274l797 +++| ISTORE /READ/RCTD,(UJN /READ/RCT7) SET FOR COMMAND RETRY
15928 M01S03081.274l797 +++| LDC BUFB
15929 M01S03082.274l797 +++| STM /READ/RCTB
15930 M01S03083.274l797 +++| LDC CLB14
15931 M01S03084.274l797 +++| STM /READ/RCT RETURN ADDRESS FROM *RCT*
15932 M01S03085.274l797 +++| LDC BCW
15933 M01S03086.274l797 +++| STM /READ/RCTL+1
15934 M01S03087.274l797 +++| LDC .CLBL-1 LENGTH OF CODE TO MOVE
15935 M01S03088.274l797 +++| STD T1
15936 M01S03089.274l797 +++| PRS2 LDM .CLB,T1
15937 M01S03090.274l797 +++| STM CLB,T1
15938 M01S03091.274l797 +++| SOD T1
15939 M01S03092.274l797 +++| PJN PRS2 IF MORE CODE TO MOVE
15940 M01S03093.274l797 +++| LDC .CLBA MODIFY CHANNELS
15941 M01S03094.274l797 +++| UJP PRS5 CONTINUE PRESET
15942 M01S03095.274l797 +++|
15943 M01S03096.274l797 +++| PRS3 LDC BUFB
15944 M00S09839.1mt +++| STM /READ/MRDB
Line S09840 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15945 M01S09840.274l797 ---| LDC UJNI+2 DISABLE READ AHEAD
15946 M01S09841.274l797 ---| STM /READ/TDAF
15947 M00S09842.1mt +++| LDC BCW
15948 M00S09843.1mt +++| STM /READ/MRDO+1
15949 M00S09844.1mt +++| LDM /READ/RDFB DISABLE PCL IF NORMAL CLIP LEVEL
15950 M00S09845.1mt +++| STM RLBC
Line S09846 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15951 M01S09846.274l797 ---| LDN 0 DISABLE ALLOWANCE FOR CONTROL WORDS
15952 M01S09847.274l797 ---| STM /READ/TDAA
15953 M01S09848.274l797 ---| LDD MD
15954 M01S09849.274l797 ---| LPN 60
15955 M01S09850.274l797 ---| ZJN PRS1 IF NO CONTROL WORDS
15956 M01S09851.274l797 ---| AOM RLBB ALLOW FOR CONTROL WORD
15957 M01S09852.274l797 ---| PRS1 LDC PRSC MODIFY CHANNELS
15958 M01S09853.274l797 ---| RJM MCH
15959 M00S09854.1mt +++| LDD HP
15960 M00S09855.1mt +++| LPN 60
15961 M00S09856.1mt +++| SHN 6
15962 M00S09857.1mt +++| RAM CALL+3 SET MTS/ATS FLAGS FOR *1LT*
Line S09858 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
15963 M01S09858.ns21000 ---| LDN CPUL
15964 M01S09859.ns21000 ---| CRD CM
15965 M01S09860.ns21000 ---| LDD CM+3
15966 M01S09861.ns21000 ---| SHN 21-10
15967 M01S09862.ns21000 ---| PJN PRS4 IF NOT CYBER 170-8X5 IOU
Line S00174 Modification History
M01 (Added by) ns21000
Seq # *Modification Id* Act
----------------------------+
15968 M01S00174.ns21000 +++| LDK MABL CHECK MAINFRAME TYPE
15969 M01S00175.ns21000 +++| CRD CM
15970 M01S00176.ns21000 +++| LDD CM+1
15971 M01S00177.ns21000 +++| SHN -6
15972 M01S00178.ns21000 +++| LPN 41
15973 M01S00179.ns21000 +++| LMN 1
Line S00180 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15974 M02S00180.274l797 ---| NJN PRS4 IF NOT CYBER 170-815/825/835/855 IOU
Line S03097 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15975 M02S03097.1mt51 ---| NJN PRS7 IF NOT CYBER 170-815/825/835/855 IOU
Line S00074 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15976 M01S00074.1mt51 +++| NJN PRS7 IF NOT CYBER 180 IOU
15977 M00S09863.1mt +++|
Line S09864 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
15978 M01S09864.ns21000 ---|* PRESET FOR CYBER 170-8X5 IOU.
Line S00181 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15979 M02S00181.1mt51 ---|* PRESET FOR CYBER 170-815/825/835/855 IOU.
Line S00075 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15980 M01S00075.1mt51 +++|* PRESET FOR CYBER 180 IOU.
15981 M00S09865.1mt +++|
Line S00076 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15982 M01S00076.1mt51 +++| LDC RLB3 SET EXIT FROM /READ/MRD
15983 M01S00077.1mt51 +++| STM /READ/MRD
15984 M00S09866.1mt +++| LDC RLB4 SET EXIT FROM READ
Line S09867 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15985 M01S09867.1mt51 ---| STM RLBD+1
Line S00078 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
15986 M01S00078.1mt51 +++| STM RLBD
15987 M01S00079.1mt51 +++| LDC /READ/MRD3 SET ENTRY ON INITIAL READ
15988 M01S00080.1mt51 +++| STM RLBI
Line S09868 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15989 M01S09868.274l797 ---| LDN PSNI
15990 M01S09869.274l797 ---| STM SRQA
15991 M00S09870.1mt +++| LDN RLBRL.-1 MOVE IOU LOOP
15992 M00S09871.1mt +++| STD T1
Line S09872 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15993 M01S09872.274l797 ---| PRS2 LDM RLBR.,T1
Line S03098 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15994 M01S03098.274l797 +++| PRS4 LDM RLBR.,T1
15995 M00S09873.1mt +++| STM .RLBA,T1
15996 M00S09874.1mt +++| SOD T1
Line S09875 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
15997 M01S09875.274l797 ---| PJN PRS2 IF MORE CODE TO MOVE
Line S03099 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
15998 M01S03099.274l797 +++| PJN PRS4 IF MORE CODE TO MOVE
15999 M00S09876.1mt +++| LDC RLBC. MODIFY CHANNELS
Line S09877 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16000 M01S09877.274l797 ---| RJM MCH
Line S03100 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16001 M01S03100.274l797 +++| PRS5 RJM MCH
16002 M01S03101.274l797 +++| LDN PSNI
16003 M01S03102.274l797 +++| STM SRQA
Line S09878 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16004 M01S09878.274l797 ---| PRS3 LJM PRS6 CONTINUE PRESET
Line S03103 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16005 M01S03103.274l797 +++| PRS6 LJM PRS9 CONTINUE PRESET
16006 M00S09879.1mt +++|
Line S09880 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16007 M01S09880.274l797 ---| PRS4 LDD HP
Line S03104 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16008 M01S03104.274l797 +++| PRS7 LDD HP
16009 M00S09881.1mt +++| SHN 21-4
Line S09882 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16010 M01S09882.274l797 ---| PJN PRS3 IF MTS CONTROLLER
Line S03105 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16011 M01S03105.274l797 +++| PJN PRS6 IF MTS CONTROLLER
16012 M00S09883.1mt +++|
Line S09884 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16013 M01S09884.1mt51 ---|* INITIALIZE DRIVER FOR ATS CONTROLLER.
Line S00081 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16014 M01S00081.1mt51 +++|* INITIALIZE DRIVER FOR ATS (NON-CYBER 180).
16015 M00S09885.1mt +++|
16016 M00S09886.1mt +++| LDC RLB3 SET EXIT FROM /READ/MRD
16017 M00S09887.1mt +++| STM /READ/MRD
Line S09888 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16018 M01S09888.1mt51 ---| LDC LJMI MODIFY INSTRUCTIONS
16019 M01S09889.1mt51 ---| STM RLBD
16020 M01S09890.1mt51 ---| LDC .RLB11
16021 M01S09891.1mt51 ---| STM RLBD+1
Line S00082 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16022 M01S00082.1mt51 +++| LDC .RLB11 MODIFY INSTRUCTIONS
16023 M01S00083.1mt51 +++| STM RLBI
16024 M00S09892.1mt +++| LDM PRSA
16025 M00S09893.1mt +++| STM RLBG
16026 M00S09894.1mt +++| LDC UJNI+.RLB14-.RLBB
16027 M00S09895.1mt +++| STM RLBE+1
16028 M00S09896.1mt +++| LDC .RLBB
16029 M00S09897.1mt +++| STM RLBF+1
Line S00084 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16030 M01S00084.1mt51 +++| LDN PSNI
16031 M01S00085.1mt51 +++| STM RLBJ
16032 M00S09898.1mt +++| LDN .RLBRL-1 MOVE ATS INPUT LOOP
16033 M00S09899.1mt +++| STD T1
Line S09900 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16034 M01S09900.274l797 ---| PRS5 LDM .RLBR,T1
Line S03106 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16035 M01S03106.274l797 +++| PRS8 LDM .RLBR,T1
16036 M00S09901.1mt +++| STM .RLBA,T1
16037 M00S09902.1mt +++| SOD T1
Line S09903 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16038 M01S09903.274l797 ---| PJN PRS5 IF NOT END OF MOVE
Line S03107 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16039 M01S03107.274l797 +++| PJN PRS8 IF NOT END OF MOVE
16040 M00S09904.1mt +++| LDC .RLBC MODIFY CHANNELS
16041 M00S09905.1mt +++| RJM MCH
Line S09906 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16042 M01S09906.274l797 ---| PRS6 LDC PRSB SET FOR INSTRUCTION MODIFICATION
Line S03108 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16043 M01S03108.274l797 +++| PRS9 LDC PRSB SET FOR INSTRUCTION MODIFICATION
16044 M00S09907.1mt +++| STD CN
Line S09908 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16045 M01S09908.274l797 ---| LDC PRS7 SET TO RETURN CONTROL HERE AFTER LOAD
Line S03109 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16046 M01S03109.274l797 +++| LDC PRS10 SET TO RETURN CONTROL HERE AFTER LOAD
16047 M00S09909.1mt +++| STD BT
16048 M00S09910.1mt +++| LJM PRSX RETURN
16049 M00S09911.1mt +++|
16050 M00S09912.1mt +++|* RETURN HERE AFTER ALL ROUTINES LOADED.
16051 M00S09913.1mt +++|* BUILD CALL TO *1LT*.
16052 M00S09914.1mt +++|
Line S09915 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16053 M01S09915.274l797 ---| PRS7 LDD CP MERGE CP NUMBER
Line S03110 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16054 M01S03110.274l797 +++| PRS10 LDD CP MERGE CP NUMBER
16055 M00S09916.1mt +++| SHN -7
16056 M00S09917.1mt +++| RAM CALL+1
Line S00001 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16057 M01S00001.ncccts +++| LDD HP
16058 M01S00002.ncccts +++| LPC 7700 ALLOW *1LT* TO TEST FOR CTS
16059 M01S00003.ncccts +++| RAM CALL+2
16060 M00S09918.1mt +++| LDD IA SET INPUT REGISTER ADDRESS IN CALL
16061 M00S09919.1mt +++| STM CALL+4
16062 M00S09920.1mt +++| LDN CMCL CHECK MOVE FLAG
16063 M00S09921.1mt +++| CRD CM
16064 M00S09922.1mt +++| LDD CM
Line S00002 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
16065 M01S00002.271l716 +++| SHN 7
16066 M00S09923.1mt +++| LMD CP
Line S09924 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16067 M01S09924.274l797 ---| ZJN PRS8 IF MOVE FLAG
Line S03111 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16068 M01S03111.274l797 +++| ZJN PRS11 IF MOVE FLAG
Line S09925 Modification History
M01 (Removed by) ns2027
Seq # *Modification Id* Act
----------------------------+
16069 M01S09925.ns2027 ---| LDN PPAL CHECK IF PP AVAILABLE
16070 M01S09926.ns2027 ---| CRD CM
16071 M01S09927.ns2027 ---| LDD CM+4
16072 M01S09928.ns2027 ---| ZJN PRS8 IF NO PP AVAILABLE
16073 M00S09929.1mt +++| LDD MA WRITE REQUEST BLOCK
16074 M00S09930.1mt +++| CWM CALL,TR
16075 M00S09931.1mt +++| LDN 1 SET TO NOT QUEUE REQUEST
16076 M00S09932.1mt +++| STD CM+1
16077 M00S09933.1mt +++| MONITOR RPPM REQUEST PP
16078 M00S09934.1mt +++| LDD CM+1
Line S09935 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16079 M01S09935.274l797 ---| NJN PRS9 IF PP ASSIGNED
16080 M01S09936.274l797 ---| PRS8 LJM RET2 REQUEUE
Line S03112 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16081 M01S03112.274l797 +++| NJN PRS12 IF PP ASSIGNED
16082 M01S03113.274l797 +++| PRS11 LJM RET2 REQUEUE
16083 M00S09937.1mt +++|
Line S09938 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16084 M01S09938.274l797 ---| PRS9 STM CPDA SAVE PP INPUT REGISTER ADDRESS
16085 M01S09939.274l797 ---| PRS10 LDN 77 DELAY
Line S03114 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16086 M01S03114.274l797 +++| PRS12 STM CPDA SAVE PP INPUT REGISTER ADDRESS
16087 M01S03115.274l797 +++| PRS13 LDN 77 DELAY
16088 M00S09940.1mt +++| SBN 1
16089 M00S09941.1mt +++| NJN *-1
16090 M00S09942.1mt +++| LDD MA CHECK FOR *1LT* ACKNOWLEDGE
16091 M00S09943.1mt +++| ADN 1
16092 M00S09944.1mt +++| CRD CM
16093 M00S09945.1mt +++| LDD CM
Line S09946 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16094 M01S09946.274l797 ---| ZJN PRS12 IF *1LT* READY
Line S03116 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16095 M01S03116.274l797 +++| ZJN PRS15 IF *1LT* READY
16096 M00S09947.1mt +++| RJM CPD CHECK FOR *1LT* DROP
Line S09948 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16097 M01S09948.274l797 ---| NJN PRS8 IF *1LT* GONE
Line S03117 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16098 M01S03117.274l797 +++| NJN PRS11 IF *1LT* GONE
16099 M00S09949.1mt +++| LDN CMCL CHECK MOVE FLAG
16100 M00S09950.1mt +++| CRD CM
16101 M00S09951.1mt +++| LDD CM
Line S00003 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
16102 M01S00003.271l716 +++| SHN 7
16103 M00S09952.1mt +++| LMD CP
Line S09953 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16104 M01S09953.274l797 ---| NJN PRS10 IF NO MOVE FLAG FOR THIS CP
Line S03118 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16105 M01S03118.274l797 +++| NJN PRS13 IF NO MOVE FLAG FOR THIS CP
16106 M00S09954.1mt +++| RJM CEC CHANGE BACK TO MAGNET CP
Line S09955 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16107 M01S09955.274l797 ---| PRS11 RJM CPD CHECK PP DROP
16108 M01S09956.274l797 ---| NJN PRS8 IF *1LT* GONE
Line S03119 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16109 M01S03119.274l797 +++| PRS14 RJM CPD CHECK PP DROP
16110 M01S03120.274l797 +++| NJN PRS11 IF *1LT* GONE
16111 M00S09957.1mt +++| PAUSE NE
Line S09958 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16112 M01S09958.274l797 ---| UJN PRS11 LOOP
Line S03121 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16113 M01S03121.274l797 +++| UJN PRS14 LOOP
16114 M00S09959.1mt +++|
Line S09960 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16115 M01S09960.274l797 ---| PRS12 LDD HP
Line S03122 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16116 M01S03122.274l797 +++| PRS15 LDD HP
Line S09961 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16117 M01S09961.274l797 ---| LPN 1
Line S03123 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16118 M01S03123.274l797 +++| LPC 201
Line S09962 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16119 M01S09962.274l797 ---| ZJN PRS13 IF 7 TRACK
Line S03124 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16120 M01S03124.274l797 +++| ZJN PRS16 IF 7 TRACK
16121 M00S09963.1mt +++| LDD MD
16122 M00S09964.1mt +++| SHN 21-6
Line S09965 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16123 M01S09965.274l797 ---| MJN PRS13 IF CODED
Line S03125 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16124 M01S03125.274l797 +++| MJN PRS16 IF CODED
16125 M00S09966.1mt +++| LCN BCW7-BCW6 SET TO ADJUST UBC IF ODD BYTE COUNT
16126 M00S09967.1mt +++| RAM BCWB
Line S09968 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16127 M01S09968.274l797 ---| PRS13 LDD WC SET WORD AND CHUNK COUNT FOR *1LT*
Line S03126 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16128 M01S03126.274l797 +++| PRS16 LDD WC SET WORD AND CHUNK COUNT FOR *1LT*
16129 M00S09969.1mt +++| STM SRQB
16130 M00S09970.1mt +++| LDD OV
16131 M00S09971.1mt +++| STM SRQC
16132 M00S09972.1mt +++| LDM CIOE
16133 M00S09973.1mt +++| LPC 774
16134 M00S09974.1mt +++| LMN 20
Line S09975 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16135 M01S09975.274l797 ---| NJN PRS14 IF NOT READ SKIP
Line S03127 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16136 M01S03127.274l797 +++| NJN PRS17 IF NOT READ SKIP
16137 M00S09976.1mt +++| LDC UJNI-PJNI
16138 M00S09977.1mt +++| RAM RLBA
16139 M00S09978.1mt +++| RJM /READ/CIB
Line S09979 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16140 M01S09979.274l797 ---| MJN PRS15 IF BUFFER ARGUMENT ERROR
Line S03128 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16141 M01S03128.274l797 +++| MJN PRS18 IF BUFFER ARGUMENT ERROR
16142 M00S09980.1mt +++| STD T5
16143 M00S09981.1mt +++| SHN -14
16144 M00S09982.1mt +++| STD T4
16145 M00S09983.1mt +++| LDN 3 SET REQUEST TO *1LT*
16146 M00S09984.1mt +++| RJM SRQ
Line S09985 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16147 M01S09985.274l797 ---| PRS14 LDN 77 DELAY
Line S03129 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16148 M01S03129.274l797 +++| PRS17 LDN 77 DELAY
16149 M00S09986.1mt +++| SBN 1
16150 M00S09987.1mt +++| NJN *-1
16151 M00S09988.1mt +++| RJM CRA SEE IF *1LT* ACCEPTED READ SKIP
Line S03130 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16152 M01S03130.274l797 +++| LMN 2
Line S09989 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
16153 M01S09989.274l797 ---| NJN PRS14 IF *1LT* NOT DONE
16154 M01S09990.274l797 ---| PRS15 LDC /SRU/ITRL*100 SET SRU INCREMENT
Line S03131 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16155 M01S03131.274l797 +++| NJN PRS17 IF *1LT* NOT DONE
16156 M01S03132.274l797 +++| PRS18 LDC /SRU/ITRL*100 SET SRU INCREMENT
16157 M00S09991.1mt +++| STM //CECA
16158 M00S09992.1mt +++| LJM RLB ENTER READ TAPE
16159 M00S09993.1mt +++|
16160 M00S09994.1mt +++|* SEE *1LT* FOR FORMAT OF CALL BLOCK.
16161 M00S09995.1mt +++|
16162 M00S09996.1mt +++| PRSA BSS 0
16163 M00S09997.1mt +++| LOC RLBG
16164 M00S09998.1mt +++| UJN .RLB9 WAIT FOR *1LT* TO COMPLETE
16165 M00S09999.1mt +++| LOC *O
16166 M00S10000.1mt +++|
16167 M00S10001.1mt +++| PRSB TSAD SLBP
16168 M00S10002.1mt +++| PRSC CHTB
Line S00086 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16169 M01S00086.1mt51 +++| TITLE PRESET SUBROUTINES.
16170 M00S10003.1mt +++| RLB SPACE 4,10
Line S10004 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16171 M01S10004.1mt51 ---|** ATS INPUT LOOP.
Line S00087 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16172 M01S00087.1mt51 +++|** ATS INPUT LOOP (NON-CYBER 180).
16173 M00S10005.1mt +++|
16174 M00S10006.1mt +++|
16175 M00S10007.1mt +++| .RLBR BSS 0
16176 M00S10008.1mt +++| LOC .RLBA
16177 M00S10009.1mt +++|
16178 M00S10010.1mt +++| .RLB9 AJM *,CH IF WAITING FOR *1LT* TO DCN CHANNEL
16179 M00S10011.1mt +++| LDM /READ/MRDA SET NUMBER OF BYTES TO INPUT
16180 M00S10012.1mt +++| .RLB10 IJM RLB12,CH IF *1LT* FINISHED INPUT
16181 M00S10013.1mt +++| EJM .RLB10,CH IF DATA NOT AVAILABLE
16182 M00S10014.1mt +++| .RLB11 IAM BUFB,CH INPUT DATA
16183 M00S10015.1mt +++| DCN CH+40 INDICATE TO *1LT* TO CONTINUE READ
16184 M00S10016.1mt +++| .RLBB NJN .RLB12 IF END OF BLOCK
16185 M00S10017.1mt +++|* UJN .RLB14 (SHUTDOWN ENABLED)
16186 M00S10018.1mt +++| ACN CH
16187 M00S10019.1mt +++| .RLB12 STD T1 SAVE BYTES REMAINING
16188 M00S10020.1mt +++| .RLB13 IJM RLB18,CH IF *1MT* FINISHED INPUT
16189 M00S10021.1mt +++| EJM .RLB13,CH IF *1LT* NOT TAKING DATA YET
16190 M00S10022.1mt +++| LJM RLB6 SETUP FOR NEXT CHUNK
16191 M00S10023.1mt +++|
16192 M00S10024.1mt +++| .RLB14 LJM /READ/MRD4 CHECK FOR BLOCK TOO LARGE
16193 M00S10025.1mt +++|
16194 M00S10026.1mt +++| LOC *O
16195 M00S10027.1mt +++| .RLBRL EQU *-.RLBR LENGTH OF ATS INPUT LOOP
16196 M00S10028.1mt +++|
Line S10029 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16197 M01S10029.1mt51 ---| ERRMI .RLBAL-.RLBRL OVERLAID CODE OVERFLOWED
Line S00088 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16198 M01S00088.1mt51 +++| ERRNG .RLBAL-.RLBRL OVERLAID CODE OVERFLOWED
16199 M00S10030.1mt +++|
16200 M00S10031.1mt +++| .RLBC CHTB CHANNEL TABLE FOR ATS INPUT LOOP
16201 M00S10032.1mt +++|
16202 M00S10033.1mt +++|
Line S10034 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
16203 M01S10034.ns21000 ---|* READ LOOP FOR AN CYBER 170-8X5 IOU.
Line S00182 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16204 M02S00182.1mt51 ---|* READ LOOP FOR CYBER 170-815/825/835/855 IOU.
Line S00089 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16205 M01S00089.1mt51 +++|* READ LOOP FOR CYBER 180 IOU.
16206 M00S10035.1mt +++|
16207 M00S10036.1mt +++| RLBR. BSS 0
16208 M00S10037.1mt +++| LOC .RLBA
16209 M00S10038.1mt +++|
16210 M00S10039.1mt +++| RLB9. LDC LBBY BYTES TO INPUT
Line S10040 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16211 M01S10040.1mt51 ---| RLB10. IJM RLB12,CH IF 1LT COMPLETED READ
16212 M01S10041.1mt51 ---| SCF RLB10.,CH WAIT UNTIL FLAG IS CLEARED BY 1LT
Line S00090 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16213 M01S00090.1mt51 +++| ERRNZ RLB9.-RLB9 CODE DEPENDS ON VALUE
16214 M01S00091.1mt51 +++| RLB10. RJM WTS WAIT FOR *1LT* TRANSFER TO START
16215 M01S00092.1mt51 +++| ERRNZ RLB10.-RLB10 CODE DEPENDS ON VALUE
16216 M01S00093.1mt51 +++| RLB11. IJM RLB12,CH IF 1LT COMPLETED READ
16217 M01S00094.1mt51 +++| SCF RLB11.,CH WAIT UNTIL FLAG IS CLEARED BY 1LT
16218 M01S00095.1mt51 +++| RJM ITS INDICATE *1MT* TRANSFER STARTED
16219 M00S10042.1mt +++| LJM /READ/MRD3 PROCESS DATA
16220 M00S10043.1mt +++|
16221 M00S10044.1mt +++| LOC *O
16222 M00S10045.1mt +++| RLBRL. EQU *-RLBR. LENGTH OF IOU INPUT CODE
16223 M00S10046.1mt +++|
Line S10047 Modification History
M01 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16224 M01S10047.1mt51 ---| ERRMI .RLBAL-RLBRL. IOU INPUT CODE TOO LONG
Line S00096 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16225 M01S00096.1mt51 +++| ERRNG .RLBAL-RLBRL. IOU INPUT CODE TOO LONG
16226 M00S10048.1mt +++|
16227 M00S10049.1mt +++| RLBC. CHTB TABLE OF CHANNELS FOR IOU CODE
Line S03133 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16228 M01S03133.274l797 +++| CLB SPACE 4,15
16229 M01S03134.274l797 +++|** CLB - CTS LONG BLOCK READ.
16230 M01S03135.274l797 +++|*
16231 M01S03136.274l797 +++|* THIS ROUTINE OVERLAYS *RLB* STARTING AT *RLBB*.
16232 M01S03137.274l797 +++|
16233 M01S03138.274l797 +++|
16234 M01S03139.274l797 +++| .CLB BSS 0
16235 M01S03140.274l797 +++| LOC RLBB
16236 M01S03141.274l797 +++| CLB LDD DS
16237 M01S03142.274l797 +++| STM /READ/STAP SAVE GENERAL STATUS
16238 M01S03143.274l797 +++| RJM ITM INITIATE TAPE MOTION
16239 M01S03144.274l797 +++| CLB1 LDN 0 ALLOW FOR CONTROL WORD
16240 M01S03145.274l797 +++| CLBA EQU *-1
16241 M01S03146.274l797 +++|* LDN 1 200/260 READ CODE
16242 M01S03147.274l797 +++| RJM ADP ADVANCE IN POINTER
16243 M01S03148.274l797 +++| LDN 0
16244 M01S03149.274l797 +++| STM BCWA
16245 M01S03150.274l797 +++| STM .BYC CLEAR CHUNK COUNT
16246 M01S03151.274l797 +++| STD EC CLEAR ERROR CODE
16247 M01S03152.274l797 +++| STD TB CLEAR TERMINATION STATUS
16248 M01S03153.274l797 +++|* LDN 0
16249 M01S03154.274l797 +++| RJM ADP SET UP POINTERS FOR *1LT*
16250 M01S03155.274l797 +++| LDN 1
16251 M01S03156.274l797 +++| RJM SRQ SEND START BLOCK REQUEST TO *1LT*
16252 M01S03157.274l797 +++| LDC LBBY
16253 M01S03158.274l797 +++| STM /READ/RCTA
16254 M01S03159.274l797 +++| IAM BUFB,CH
16255 M01S03160.274l797 +++| UJN CLB4 CHECK IF ALL WORDS TRANSFERRED
16256 M01S03161.274l797 +++|
16257 M01S03162.274l797 +++| CLB2 LDC LBBY
16258 M01S03163.274l797 +++| STM /READ/RCTA
Line S00097 Modification History
M01 (Added by) 1mt51
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16259 M02S00097.ncccts ---| RJM WTS WAIT FOR *1LT* TRANSFER TO START
Line S03164 Modification History
M01 (Added by) 274l797
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16260 M02S03164.ncccts ---| CLB3 IJM CLB8,CH IF TRANSFER COMPLETE
16261 M02S03165.ncccts ---| SCF CLB3,CH IF *1LT* NOT FINISHED
Line S00098 Modification History
M01 (Added by) 1mt51
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16262 M02S00098.ncccts ---| RJM ITS INDICATE *1MT* TRANSFER STARTED
Line S00004 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16263 M01S00004.ncccts +++| AJM *,CH WAIT FOR *1LT* TO DCN CHANNEL
16264 M01S00005.ncccts +++| PSN
16265 M01S00006.ncccts +++| PSN
16266 M01S00007.ncccts +++| CLB3 IJM CLB8,CH IF TRANSFER COMPLETE
16267 M01S00008.ncccts +++| EJM CLB3,CH IF DATA NOT AVAILABLE
Line S03166 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16268 M01S03166.274l797 +++| IAM BUFB,CH
Line S03167 Modification History
M01 (Added by) 274l797
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16269 M02S03167.ncccts ---| CLB4 NJN CLB6 IF TRANSFER COMPLETE
16270 M02S03168.ncccts ---| CLB5 FJM CLB9,CH IF A WORD IS PRESENT FOR *1LT* TO TRANSFER
16271 M02S03169.ncccts ---| AJM CLB5,CH IF TRANSFER NOT COMPLETE
Line S00009 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16272 M01S00009.ncccts +++| CLB4 DCN CH+40 INDICATE TO *1LT* TO CONTINUE READ
16273 M01S00010.ncccts +++| ZJN CLB9 IF TRANSFER NOT COMPLETE
Line S03170 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16274 M01S03170.274l797 +++|
16275 M01S03171.274l797 +++|* *1MT* FINISHED THE CHANNEL TRANSFER.
16276 M01S03172.274l797 +++|
16277 M01S03173.274l797 +++| CLB6 STD T1 SAVE WORDS NOT TRANSFERRED
16278 M01S03174.274l797 +++| CLB7 RJM CRA READ *1LT* INTERFACE WORD
16279 M01S03175.274l797 +++| NJN CLB7 IF *1LT* NOT COMPLETE
16280 M01S03176.274l797 +++| LJM /READ/RCT6 CALCULATE REMAINDER OF CM WORD COUNT
16281 M01S03177.274l797 +++|
16282 M01S03178.274l797 +++|* *1LT* FINISHED THE CHANNEL TRANSFER.
16283 M01S03179.274l797 +++|
16284 M01S03180.274l797 +++| CLB8 RJM CRA READ *1LT* INTERFACE WORD
16285 M01S03181.274l797 +++| NJN CLB8 IF *1LT* TRANSFER TO CM NOT COMPLETE
16286 M01S03182.274l797 +++| AOM BCWA SKIP UPDATE IN *BCW*
16287 M01S03183.274l797 +++| LDC LBBY
16288 M01S03184.274l797 +++| SBD CM+1
16289 M01S03185.274l797 +++| LJM /READ/RCT5 CALCULATE REMAINDER OF CM WORD COUNT
16290 M01S03186.274l797 +++|
Line S03187 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16291 M02S03187.1mt51 ---| CLB9 CCF *+2,CH CLEAR CHANNEL FLAG (TELLS *1LT* TO START)
Line S00099 Modification History
M01 (Added by) 1mt51
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16292 M02S00099.ncccts ---| CLB9 CCF *,CH CLEAR CHANNEL FLAG (TELL *1LT* TO START)
Line S00011 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16293 M01S00011.ncccts +++| CLB9 ACN CH
Line S03188 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16294 M01S03188.274l797 +++| AOM .BYC COUNT CHUNK
16295 M01S03189.274l797 +++| LMN 1
16296 M01S03190.274l797 +++| ZJN CLB10 IF FIRST CHUNK
16297 M01S03191.274l797 +++| LDC /MTX/LBWD
16298 M01S03192.274l797 +++| RJM ADP ADVANCE POINTER FOR *1LT* DATA
16299 M01S03193.274l797 +++| AOM .BYC COUNT CHUNK
16300 M01S03194.274l797 +++| CLB10 LDC /MTX/LBWD
16301 M01S03195.274l797 +++| RJM ADP ADVANCE POINTER
16302 M01S03196.274l797 +++| RJM WDA WRITE DATA TO CM
16303 M01S03197.274l797 +++| LDM .BYC
16304 M01S03198.274l797 +++| ADN 1
16305 M01S03199.274l797 +++| SBD OV
16306 M01S03200.274l797 +++| MJP CLB2 IF MORE CHUNKS TO INPUT
16307 M01S03201.274l797 +++| NJN CLB12 IF *1LT* IS READING LAST CHUNK
16308 M01S03202.274l797 +++| LDD WC
16309 M01S03203.274l797 +++| SHN 2
16310 M01S03204.274l797 +++| ADD WC
16311 M01S03205.274l797 +++| ADN 1
16312 M01S03206.274l797 +++| STM /READ/RCTA LENGTH TO READ + 1
16313 M01S03207.274l797 +++| CLB11 IJM CLB8,CH IF *1LT* FINISHED TRANSFER
Line S03208 Modification History
M01 (Added by) 274l797
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16314 M02S03208.ncccts ---| SCF CLB11,CH IF *1LT* STILL READING
Line S03209 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16315 M01S03209.274l797 +++| LJM /READ/RCT2 INPUT LAST CHUNK
16316 M01S03210.274l797 +++|
16317 M01S03211.274l797 +++| CLB12 RJM CRA READ *1LT* INTERFACE WORD
16318 M01S03212.274l797 +++| NJN CLB12 IF *1LT* NOT DONE
16319 M01S03213.274l797 +++| AOM BCWA SKIP UPDATE IN *BCW*
16320 M01S03214.274l797 +++| LDD WC
16321 M01S03215.274l797 +++| SHN 2
16322 M01S03216.274l797 +++| ADD WC
16323 M01S03217.274l797 +++| ADN 1
16324 M01S03218.274l797 +++| STM /READ/RCTA
16325 M01S03219.274l797 +++| SBD CM+1
16326 M01S03220.274l797 +++| LJM /READ/RCT3 SAVE BYTES NOT TRANSFERRED
16327 M01S03221.274l797 +++|
16328 M01S03222.274l797 +++|* *RCT* RETURNS HERE AFTER LAST CHUNK IS TRANSFERRED.
16329 M01S03223.274l797 +++|
16330 M01S03224.274l797 +++| CLB14 LDD MD
16331 M01S03225.274l797 +++| LPN 40
16332 M01S03226.274l797 +++| ZJN CLB15 IF NOT 200 READ CODE
16333 M01S03227.274l797 +++| LDN 0 SET TRAILER CONTROL WORD
16334 M01S03228.274l797 +++| STM BUFB
16335 M01S03229.274l797 +++| LDN 1
16336 M01S03230.274l797 +++| RJM ADP
16337 M01S03231.274l797 +++| RJM WDA WRITE TRAILER CONTROL WORD
16338 M01S03232.274l797 +++| CLB15 LDN 0 SET WORD COUNT
16339 M01S03233.274l797 +++| STD WC
16340 M01S03234.274l797 +++| STD CM ACKNOWLEDGE *1LT*
16341 M01S03235.274l797 +++| LDM CPDA
16342 M01S03236.274l797 +++| ADN 2
16343 M01S03237.274l797 +++| CWD CM
16344 M01S03238.274l797 +++| LDD TB
16345 M01S03239.274l797 +++| LMN 3
16346 M01S03240.274l797 +++| NJN CLB16 IF NOT TAPE MARK
16347 M01S03241.274l797 +++| LDM BCWC BACK UP POINTERS
16348 M01S03242.274l797 +++| STD CN+3
16349 M01S03243.274l797 +++| LDM BCWD
16350 M01S03244.274l797 +++| STD CN+4
16351 M01S03245.274l797 +++| CLB16 RJM /READ/TDA
16352 M01S03246.274l797 +++| LDM SRQB RESTORE STARTING WORD COUNT
16353 M01S03247.274l797 +++| STD WC
16354 M01S03248.274l797 +++| LJM RLB LOOP
16355 M01S03249.274l797 +++|
16356 M01S03250.274l797 +++| ERRMI .BYC-* IF CODE OVERFLOWS
16357 M01S03251.274l797 +++|
16358 M01S03252.274l797 +++| LOC *O
16359 M01S03253.274l797 +++| .CLBL EQU *-.CLB LENGTH OF *CLB*
16360 M01S03254.274l797 +++|
16361 M01S03255.274l797 +++| .CLBA CHTB CHANNEL TABLE
16362 M01S03256.274l797 +++| OVERLAY (READ LI FORMAT.),,,RLI
16363 M01S03257.274l797 +++| .IM SET 0 GENERATE ADDRESSES FOR OVERLAY
16364 M01S03258.274l797 +++| RLI SPACE 4,20
16365 M01S03259.274l797 +++|** RLI - READ LI FORMAT.
16366 M01S03260.274l797 +++|* THIS ROUTINE READS CONSECUTIVE BLOCKS AS LONG AS THERE IS
16367 M01S03261.274l797 +++|* ROOM IN THE BUFFER. ROUTINE *EBP* WILL STOP THE READ OF
16368 M01S03262.274l797 +++|* CONSECUTIVE BLOCKS IF THE TERMINATION CONDITION HAS BEEN
16369 M01S03263.274l797 +++|* MET, AN UNRECOVERABLE ERROR HAS OCCURRED, OR THE DROP OUT
16370 M01S03264.274l797 +++|* BLOCK COUNT HAS BEEN MET. *WDA* TRANSFERS ALL DATA READ
16371 M01S03265.274l797 +++|* IN THE 1ST, 3RD, ... CHUNKS. *UIP* UPDATES THE IN POINTER
16372 M01S03266.274l797 +++|* IN THE FET. FOR A 200 READ *VDA* WRITES THE INITIAL CONTROL
16373 M01S03267.274l797 +++|* WORD AND THE TRAILER CONTROL WORD IS WRITTEN IN *RLI*. IF
16374 M01S03268.274l797 +++|* THE TAPE IS ATS, MOST OF THIS ROUTINE IS OVERLAYED BY *ALI*.
16375 M01S03269.274l797 +++|*
16376 M01S03270.274l797 +++|* ENTRY (CN+3,CN+4) = STARTING IN POINTER.
16377 M01S03271.274l797 +++|*
16378 M01S03272.274l797 +++|* EXIT TO *RET* IF NOT ENOUGH ROOM IN BUFFER.
16379 M01S03273.274l797 +++|*
Line S03274 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt47
Seq # *Modification Id* Act
----------------------------+
16380 M02S03274.1mt47 ---|* USES CM, T1.
Line S00003 Modification History
M01 (Added by) 1mt47
Seq # *Modification Id* Act
----------------------------+
16381 M01S00003.1mt47 +++|* USES CM, CN+3, CN+4, EC, T1.
Line S03275 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16382 M01S03275.274l797 +++|*
Line S03276 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16383 M02S03276.1mt51 ---|* CALLS ADP, CDO, CIB, CRA, EBP, ITM, SRQ, UCP, VDA, WDA,
16384 M02S03277.1mt51 ---|* /PRESET/WFE.
Line S00100 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16385 M01S00100.1mt51 +++|* CALLS ADP, CDO, CIB, CRA, EBP, ITM, ITS, SRQ, UCP, VDA,
16386 M01S00101.1mt51 +++|* WDA, WTS, /PRESET/WFE.
Line S03278 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16387 M01S03278.274l797 +++|*
16388 M01S03279.274l797 +++|* MACROS SADT.
16389 M01S03280.274l797 +++|
16390 M01S03281.274l797 +++|
16391 M01S03282.274l797 +++| RLI RJM CIB CHECK INPUT BUFFER
16392 M01S03283.274l797 +++| SADT .BS,C
16393 M01S03284.274l797 +++| ADC -* (-MAXIMUM BLOCK SIZE)
Line S03285 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt48
Seq # *Modification Id* Act
----------------------------+
16394 M02S03285.1mt48 ---| PJN RLI1 IF ENOUGH ROOM IN BUFFER
Line S00003 Modification History
M01 (Added by) 1mt48
Seq # *Modification Id* Act
----------------------------+
16395 M01S00003.1mt48 +++| RLIB PJN RLI1 IF ENOUGH ROOM IN BUFFER
16396 M01S00004.1mt48 +++|* UJN RLI1 (READSKP)
Line S03286 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16397 M01S03286.274l797 +++| LDN 1
16398 M01S03287.274l797 +++| LJM RET SET FET COMPLETE
16399 M01S03288.274l797 +++|
16400 M01S03289.274l797 +++| RLI1 LDD CN+3 SAVE STARTING IN POINTER
16401 M01S03290.274l797 +++| STM VDAB
16402 M01S03291.274l797 +++| LDD CN+4
16403 M01S03292.274l797 +++| STM VDAC
16404 M01S03293.274l797 +++|
16405 M01S03294.274l797 +++|* THE FOLLOWING CODE IS OVERLAYED WITH *ALI* FOR ATS.
16406 M01S03295.274l797 +++|
16407 M01S03296.274l797 +++| .RLIA BSS 0 START OF OVERLAYED CODE
16408 M01S03297.274l797 +++| RJM ITM INITIATE TAPE MOTION
Line S03298 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt48
Seq # *Modification Id* Act
----------------------------+
16409 M02S03298.1mt48 ---| RLI2 RJM SRQ SEND START BLOCK REQUEST TO *1LT*
Line S00005 Modification History
M01 (Added by) 1mt48
Seq # *Modification Id* Act
----------------------------+
16410 M01S00005.1mt48 +++| RLI2 LDN 1
16411 M01S00006.1mt48 +++| RJM SRQ SEND READ BLOCK REQUEST TO *1LT*
Line S03299 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16412 M01S03299.274l797 +++| LDC LBBY+5 BYTE COUNT FOR FIRST CHUNK
16413 M01S03300.274l797 +++| STM RLIA
16414 M01S03301.274l797 +++| IAM BUFB-5,CH
16415 M01S03302.274l797 +++| UJN RLI5 CHECK IF ALL WORDS TRANSFERRED
16416 M01S03303.274l797 +++|
Line S03304 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16417 M02S03304.1mt51 ---| RLI3 LDC LBBY
Line S00102 Modification History
M01 (Added by) 1mt51
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16418 M02S00102.ncccts ---| RLI3 RJM WTS WAIT FOR *1LT* TRANSFER TO START
Line S00012 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16419 M01S00012.ncccts +++| RLI3 AJM *,CH WAIT FOR *1LT* TO DCN CHANNEL
Line S00103 Modification History
M01 (Added by) 1mt51
Seq # *Modification Id* Act
----------------------------+
16420 M01S00103.1mt51 +++| LDC LBBY
Line S03305 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16421 M01S03305.274l797 +++| STM RLIA
16422 M01S03306.274l797 +++| RLI4 IJM RLI17,CH IF *1LT* FINISHED THE TRANSFER
Line S03307 Modification History
M01 (Added by) 274l797
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16423 M02S03307.ncccts ---| SCF RLI4,CH IF *1LT* NOT FINISHED
Line S00104 Modification History
M01 (Added by) 1mt51
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16424 M02S00104.ncccts ---| RJM ITS INDICATE *1MT* TRANSFER STARTED
Line S00013 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16425 M01S00013.ncccts +++| EJM RLI4,CH IF DATA NOT AVAILABLE
Line S03308 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16426 M01S03308.274l797 +++| IAM BUFB,CH
Line S03309 Modification History
M01 (Added by) 274l797
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16427 M02S03309.ncccts ---| RLI5 IJM RLI9,CH IF *1MT* FINISHED THE CHANNEL TRANSFER
16428 M02S03310.ncccts ---| EJM RLI5,CH IF *1LT* NOT TAKING DATA YET
16429 M02S03311.ncccts ---| CCF *,CH TELL *1LT* TO START
Line S00014 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16430 M01S00014.ncccts +++| RLI5 DCN CH+40 TELL *1LT* TO START
16431 M01S00015.ncccts +++| ZJN RLI5.1 IF *1MT* DID NOT FINISH THE TRANSFER
16432 M01S00016.ncccts +++| LJM RLI9
16433 M01S00017.ncccts +++|
16434 M01S00018.ncccts +++| RLI5.1 ACN CH
16435 M01S00019.ncccts +++| RLI5.2 IJM RLI9,CH IF *1MT* FINISHED THE CHANNEL TRANSFER
16436 M01S00020.ncccts +++| EJM RLI5.2,CH IF *1LT* NOT TAKING DATA YET
Line S03312 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16437 M01S03312.274l797 +++| RJM UCP UPDATE COUNTERS AND POINTER
16438 M01S03313.274l797 +++| LMN 1
16439 M01S03314.274l797 +++| ZJN RLI6 IF FIRST CHUNK
16440 M01S03315.274l797 +++| RJM UCP UPDATE COUNTERS AND POINTER
16441 M01S03316.274l797 +++| RLI6 RJM WDA WRITE DATA TO CENTRAL MEMORY
16442 M01S03317.274l797 +++| LDM .BYC
16443 M01S03318.274l797 +++| SBN LICH-1 FULL CHUNKS PER BLOCK - 1
16444 M01S03319.274l797 +++| MJP RLI3 IF MORE FULL CHUNKS TO INPUT
Line S00105 Modification History
M01 (Added by) 1mt51
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16445 M02S00105.ncccts ---| RJM WTS WAIT FOR *1LT* TRANSFER TO START
Line S03320 Modification History
M01 (Added by) 274l797
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16446 M02S03320.ncccts ---| RLI7 IJM RLI17,CH IF *1LT* FINISHED THE CHANNEL TRANSFER
16447 M02S03321.ncccts ---| SCF RLI7,CH IF *1LT* STILL READING
Line S00106 Modification History
M01 (Added by) 1mt51
M02 (Removed by) ncccts
Seq # *Modification Id* Act
----------------------------+
16448 M02S00106.ncccts ---| RJM ITS INDICATE *1MT* TRANSFER STARTED
Line S00021 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16449 M01S00021.ncccts +++| AJM *,CH WAIT FOR *1LT* TO DCN CHANNEL
Line S03322 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16450 M01S03322.274l797 +++| LDC LIRW*5+1+1 BYTES IN REMAINDER + PAD + 1
16451 M01S03323.274l797 +++| STM RLIA LENGTH TO READ + 1
Line S00022 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16452 M01S00022.ncccts +++| RLI7 IJM RLI17,CH IF *1LT* FINISHED THE TRANSFER
16453 M01S00023.ncccts +++| EJM RLI7,CH IF DATA NOT AVAILABLE
Line S03324 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16454 M01S03324.274l797 +++| IAM BUFB,CH
Line S00024 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16455 M01S00024.ncccts +++| DCN CH+40
Line S03325 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16456 M01S03325.274l797 +++| NJN RLI9 IF NOT EXCESS BLOCK LENGTH
16457 M01S03326.274l797 +++|
16458 M01S03327.274l797 +++|* THROW AWAY DATA WHEN THE BLOCK IS TOO LONG. IF THE DATA
16459 M01S03328.274l797 +++|* IS NOT TAKEN, OVERRUN ERRORS COULD OCCUR. ALSO, WITH A
16460 M01S03329.274l797 +++|* CROSS-COUPLED CONTROLLER, THE CONTROLLER HUNG WITH CHLA
16461 M01S03330.274l797 +++|* 030F FLASHING ON ITS ERROR DISPLAY.
16462 M01S03331.274l797 +++|
16463 M01S03332.274l797 +++| RLI8 LDC 500
Line S00025 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16464 M01S00025.ncccts +++| ACN CH
Line S03333 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16465 M01S03333.274l797 +++| IAM ERLB,CH
Line S00026 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16466 M01S00026.ncccts +++| DCN CH+40
Line S03334 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16467 M01S03334.274l797 +++| ZJN RLI8 IF THERE MAY BE MORE DATA
16468 M01S03335.274l797 +++| LDN /MTX/BTL SET BLOCK TOO LONG
16469 M01S03336.274l797 +++| STD EC
16470 M01S03337.274l797 +++| LDN 1 SET TO COMPUTE WORD COUNT
16471 M01S03338.274l797 +++| RLI9 STD T1
16472 M01S03339.274l797 +++| LDC LBBY+5 BYTE COUNT FOR FIRST CHUNK
16473 M01S03340.274l797 +++| RLIA EQU *-1
16474 M01S03341.274l797 +++|* LDC LBBY (MIDDLE CHUNK)
16475 M01S03342.274l797 +++|* LDC LIRW*5+1+1 (LAST CHUNK)
16476 M01S03343.274l797 +++| RJM VDA PROCESS DATA
16477 M01S03344.274l797 +++| RJM CDO CHECK DROP OUT FLAG
16478 M01S03345.274l797 +++| RLI10 RJM CRA READ *1LT* INTERFACE WORD
16479 M01S03346.274l797 +++| NJN RLI10 IF *1LT* TRANSFER TO CM NOT COMPLETE
16480 M01S03347.274l797 +++|
16481 M01S03348.274l797 +++|* PROCESS STATUS.
16482 M01S03349.274l797 +++|
16483 M01S03350.274l797 +++| RJM /PRESET/WFE WAIT FOR END OF OPERATION
16484 M01S03351.274l797 +++| PJN RLI11 IF NOT COMMAND RETRY
16485 M01S03352.274l797 +++| ACN CH
16486 M01S03353.274l797 +++| LDM VDAB BACK UP POINTERS
16487 M01S03354.274l797 +++| STD CN+3
16488 M01S03355.274l797 +++| LDM VDAC
16489 M01S03356.274l797 +++| STD CN+4
16490 M01S03357.274l797 +++| LJM RLI2 RESEND THE DATA
16491 M01S03358.274l797 +++|
16492 M01S03359.274l797 +++| RLI11 ZJN RLI12 IF NO ERROR
16493 M01S03360.274l797 +++| SHN 21-4
16494 M01S03361.274l797 +++| PJN RLI13 IF NOT TAPE MARK
16495 M01S03362.274l797 +++| LDN 3 SET STOP TO EOI
16496 M01S03363.274l797 +++| STD TB
16497 M01S03364.274l797 +++| LDN 17 SET LEVEL NUMBER
16498 M01S03365.274l797 +++| STM LNUM
16499 M01S03366.274l797 +++| LDM VDAB BACK UP POINTERS
16500 M01S03367.274l797 +++| STD CN+3
16501 M01S03368.274l797 +++| LDM VDAC
16502 M01S03369.274l797 +++| STD CN+4
16503 M01S03370.274l797 +++| LDN /MTX/BEI SET EOI
16504 M01S03371.274l797 +++| UJN RLI14 SAVE ERROR CODE
16505 M01S03372.274l797 +++|
16506 M01S03373.274l797 +++| RLI12 LDD DS
16507 M01S03374.274l797 +++| LPN 40
16508 M01S03375.274l797 +++| ZJN RLI15 IF NO FILL STATUS
16509 M01S03376.274l797 +++| RLI13 LDN /MTX/STE STATUS ERROR
16510 M01S03377.274l797 +++| RLI14 STD EC
16511 M01S03378.274l797 +++| RLI15 LDD MD
16512 M01S03379.274l797 +++| LPN 40
16513 M01S03380.274l797 +++| ZJN RLI16 IF NOT 200 READ CODE
16514 M01S03381.274l797 +++| LDN 1
16515 M01S03382.274l797 +++| RJM ADP
16516 M01S03383.274l797 +++| RJM WDA WRITE TRAILER CONTROL WORD
16517 M01S03384.274l797 +++| RLI16 LDN 0
16518 M01S03385.274l797 +++| STD CM ACKNOWLEDGE *1LT*
16519 M01S03386.274l797 +++| LDM CPDA
16520 M01S03387.274l797 +++| ADN 2
16521 M01S03388.274l797 +++| CWD CM
16522 M01S03389.274l797 +++| RJM EBP END OF BLOCK PROCESSING
16523 M01S03390.274l797 +++| LJM RLI READ NEXT BLOCK
16524 M01S03391.274l797 +++|
16525 M01S03392.274l797 +++|* *1LT* FINISHED THE CHANNEL TRANSFER.
16526 M01S03393.274l797 +++|
16527 M01S03394.274l797 +++| RLI17 RJM CRA READ *1LT* INTERFACE WORD
16528 M01S03395.274l797 +++| NJN RLI17 IF *1LT* TRANSFER TO CM NOT COMPLETE
16529 M01S03396.274l797 +++| AOM VDAA INDICATE *1LT* FINISHED THE TRANSFER
16530 M01S03397.274l797 +++| LDC LBBY
Line S00027 Modification History
M01 (Added by) ncccts
Seq # *Modification Id* Act
----------------------------+
16531 M01S00027.ncccts +++| STM RLIA
Line S03398 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
16532 M01S03398.274l797 +++| SBD CM+1
16533 M01S03399.274l797 +++| LJM RLI9 SAVE BYTES TRANSFERRED
16534 M01S03400.274l797 +++|
16535 M01S03401.274l797 +++| BSS 70 MAKE ROOM FOR *ALI*
16536 M01S03402.274l797 +++| .RLIAL EQU *-.RLIA LENGTH OF *RLI*
16537 M01S03403.274l797 +++| .BYC CON 0 CHUNKS INPUT OF *LBBY* BYTES
16538 M01S03404.274l797 +++| ADP SPACE 4,15
16539 M01S03405.274l797 +++|** ADP - ADVANCE POINTER.
16540 M01S03406.274l797 +++|* THIS ROUTINE ADVANCES THE IN POINTER FOR WRITES INTO THE
16541 M01S03407.274l797 +++|* BUFFER. ROUTINE *UIP* UPDATES THE IN POINTER FOR THE FET.
16542 M01S03408.274l797 +++|*
16543 M01S03409.274l797 +++|* ENTRY (CN+3 - CN+4) = IN POINTER.
16544 M01S03410.274l797 +++|* (A) = WORDS TO INCREMENT IN BY.
16545 M01S03411.274l797 +++|*
16546 M01S03412.274l797 +++|* EXIT (T4 - T5) = STARTING IN POINTER.
16547 M01S03413.274l797 +++|* (CN+3 - CN+4) = UPDATED IN POINTER.
16548 M01S03414.274l797 +++|* (T6) = FIRST PART WORD COUNT.
16549 M01S03415.274l797 +++|* (T7) = SECOND PART WORD COUNT.
16550 M01S03416.274l797 +++|*
16551 M01S03417.274l797 +++|* CALLS CIB.
16552 M01S03418.274l797 +++|*
16553 M01S03419.274l797 +++|* MACROS SADT.
16554 M01S03420.274l797 +++|
16555 M01S03421.274l797 +++|
16556 M01S03422.274l797 +++| ADP SUBR ENTRY/EXIT
16557 M01S03423.274l797 +++| STD T6
16558 M01S03424.274l797 +++| RJM CIB CHECK INPUT BUFFER
16559 M01S03425.274l797 +++| SBD T6
16560 M01S03426.274l797 +++| PJN ADP1 IF ROOM IN BUFFER FOR BLOCK
16561 M01S03427.274l797 +++| RAD T6 ADJUST WORD COUNT
16562 M01S03428.274l797 +++| ADP1 LDD CN+3 SAVE IN
16563 M01S03429.274l797 +++| STD T4
16564 M01S03430.274l797 +++| LDD CN+4
16565 M01S03431.274l797 +++| STD T5
16566 M01S03432.274l797 +++| LDN 0 PRESET SECOND PART WORD COUNT
16567 M01S03433.274l797 +++| STD T7
16568 M01S03434.274l797 +++| LDD T6 UPDATE IN
16569 M01S03435.274l797 +++| RAD CN+4
16570 M01S03436.274l797 +++| SHN -14
16571 M01S03437.274l797 +++| RAD CN+3
16572 M01S03438.274l797 +++| SHN 14
16573 M01S03439.274l797 +++| LMD CN+4
16574 M01S03440.274l797 +++| SADT .LM,C
16575 M01S03441.274l797 +++| ADC -* (-LIMIT)
16576 M01S03442.274l797 +++| MJN ADPX IF NO WRAP AROUND
16577 M01S03443.274l797 +++| STD T7 SET SECOND PART WORD COUNT
16578 M01S03444.274l797 +++| SADT .FT
16579 M01S03445.274l797 +++| ADC * (FIRST)
16580 M01S03446.274l797 +++| STD CN+4
16581 M01S03447.274l797 +++| SHN -14
16582 M01S03448.274l797 +++| STD CN+3
16583 M01S03449.274l797 +++| LDD T6 RESET FIRST PART WORD COUNT
16584 M01S03450.274l797 +++| SBD T7
16585 M01S03451.274l797 +++| STD T6
16586 M01S03452.274l797 +++| LJM ADPX RETURN
16587 M01S03453.274l797 +++| CIB SPACE 4,10
16588 M01S03454.274l797 +++|** CIB - CHECK INPUT BUFFER.
16589 M01S03455.274l797 +++|*
16590 M01S03456.274l797 +++|* ENTRY (CN+3 - CN+4) = IN POINTER.
16591 M01S03457.274l797 +++|*
16592 M01S03458.274l797 +++|* EXIT (A) = WORD COUNT OF AVAILABLE BUFFER SPACE.
16593 M01S03459.274l797 +++|* TO *RET3* IF ERROR.
16594 M01S03460.274l797 +++|*
16595 M01S03461.274l797 +++|* USES CM - CM+4.
16596 M01S03462.274l797 +++|*
16597 M01S03463.274l797 +++|* MACROS SADT.
16598 M01S03464.274l797 +++|
16599 M01S03465.274l797 +++|
16600 M01S03466.274l797 +++| CIB1 LDD CM+3 LENGTH = OUT - IN - 1
16601 M01S03467.274l797 +++| SBD CN+3
16602 M01S03468.274l797 +++| SHN 14
16603 M01S03469.274l797 +++| ADD CM+4
16604 M01S03470.274l797 +++| SBD CN+4
16605 M01S03471.274l797 +++| SBN 1
16606 M01S03472.274l797 +++| PJN CIBX IF (IN + 1) .LT OUT