cdc:nos2.source:opl.opl871:deck:1mt.026
Deck 1MT Part 026
92 Modifications
Listing Sections
- Deck 1MT Start
- Deck 1MT Part 1 (Line 1462)
- Deck 1MT Part 2 (Line 2674)
- Deck 1MT Part 3 (Line 4017)
- Deck 1MT Part 4 (Line 5073)
- Deck 1MT Part 5 (Line 6369)
- Deck 1MT Part 6 (Line 7796)
- Deck 1MT Part 7 (Line 9269)
- Deck 1MT Part 8 (Line 10478)
- Deck 1MT Part 9 (Line 11579)
- Deck 1MT Part 10 (Line 12640)
- Deck 1MT Part 11 (Line 13801)
- Deck 1MT Part 12 (Line 15216)
- Deck 1MT Part 13 (Line 16607)
- Deck 1MT Part 14 (Line 18062)
- Deck 1MT Part 15 (Line 19541)
- Deck 1MT Part 16 (Line 20933)
- Deck 1MT Part 17 (Line 22793)
- Deck 1MT Part 18 (Line 24082)
- Deck 1MT Part 19 (Line 25232)
- Deck 1MT Part 20 (Line 26664)
- Deck 1MT Part 21 (Line 28010)
- Deck 1MT Part 22 (Line 28907)
- Deck 1MT Part 23 (Line 30276)
- Deck 1MT Part 24 (Line 31850)
- Deck 1MT Part 25 (Line 33112)
- Deck 1MT Part 26 (Line 34430)
- Deck 1MT Part 27 (Line 35774)
- Deck 1MT Part 28 (Line 37108)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S19816 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34430 M01S19816.252l678 ---| LDD T4 34431 M01S19817.252l678 ---| ZJN POT31 IF NO ERROR 34432 M01S19818.252l678 ---| RJM ISM ISSUE MESSAGE 34433 M01S19819.252l678 ---| RJM BKS BACKSPACE OVER BLOCK 34434 M01S19820.252l678 ---| LJM POT6 POSITION TO LGB 34435 M01S19821.252l678 ---| POTF EQU *-1 34436 M01S19822.252l678 ---|* LJM POT7 (NO BID RECOVERY) 34437 M01S19823.252l678 ---| 34438 M01S19824.252l678 ---|* POSITION BACK TO LGB. 34439 M01S19825.252l678 ---| 34440 M01S19826.252l678 ---| POT31 RJM BKS BACKSPACE TAPE 34441 M01S19827.252l678 ---| POT32 UJN POT33 SET VERIFY FLAG
| Line S19828 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34442 M02S19828.252l678 ---|* RJM RTR (NO BID RECOVERY) 34443 M02S19829.252l678 ---| CON RTR
| Line S00546 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34444 M02S00546.252l678 ---|* RJM BKS (NO BID RECOVERY) 34445 M02S00547.252l678 ---| CON BKS
| Line S19830 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34446 M01S19830.252l678 ---| POT33 LDD EP SET VERIFY IN PROGRESS
| Line S01402 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34447 M01S01402.252l678 +++| POT11 LJM RET2 REQUEUE 34448 M01S01403.252l678 +++| 34449 M01S01404.252l678 +++|* WRITE VERIFY OPERATION. 34450 M01S01405.252l678 +++| 34451 M01S01406.252l678 +++| POT12 RJM BKS BACKSPACE OVER CURRENT BLOCK 34452 M01S01407.252l678 +++| LDD EP CHECK FOR LOAD POINT RECOVERY FLAG 34453 M01S01408.252l678 +++| SHN 21-10 34454 M01S01409.252l678 +++| MJN POT13 IF NOT LOAD POINT RECOVERY 34455 M01S01410.252l678 +++| LDD EP SET VERIFY IN PROGRESS 34456 M00S19831.1mt +++| LPC 3777 34457 M00S19832.1mt +++| LMC 4000 34458 M00S19833.1mt +++| STD EP
| Line S19834 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34459 M01S19834.252l678 ---| LDN 1 SET TO MAKE NO ADDITIONAL TRIES FOR LGB 34460 M01S19835.252l678 ---| STM POTI 34461 M01S19836.252l678 ---| LDN 5 34462 M01S19837.252l678 ---| STM POTJ 34463 M01S19838.252l678 ---| LDD DS 34464 M01S19839.252l678 ---| SHN 21-2 34465 M01S19840.252l678 ---| MJN POT34 IF BOT 34466 M01S19841.252l678 ---| LJM POT6 REPOSITION TAPE TO LGB 34467 M01S19842.252l678 ---| POTG EQU *-1 34468 M01S19843.252l678 ---|* LJM POT10 (NO BID RECOVERY) 34469 M01S19844.252l678 ---| 34470 M01S19845.252l678 ---| POT34 LDD BL 34471 M01S19846.252l678 ---| ADD BL+1 34472 M01S19847.252l678 ---| NJN POT36 IF NOT FIRST BLOCK 34473 M01S19848.252l678 ---|* UJN POT35 TAPE IS POSITIONED AT LGB
| Line S01411 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34474 M01S01411.252l678 +++| RJM POS INSURE CORRECT TAPE POSITION 34475 M00S19849.1mt +++| 34476 M00S19850.1mt +++|* VERIFY THE ENTIRE SEQUENCE. 34477 M00S19851.1mt +++|
| Line S19852 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34478 M01S19852.v23l617 ---| POT35 RJM RBL READ BLOCK
| Line S00548 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34479 M02S00548.252l678 ---| POT35 RJM RDA READ BLOCK
| Line S01412 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34480 M01S01412.252l678 +++| POT13 RJM RDA READ BLOCK 34481 M00S19853.1mt +++| LDD T4
| Line S19854 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34482 M01S19854.252l678 ---| NJN POT37 IF ERROR 34483 M01S19855.252l678 ---| LDD T7 34484 M01S19856.252l678 ---| NJN POT36 IF LGB INFORMATION DOESNT MATCH LAST BLOCK
| Line S01413 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34485 M01S01413.252l678 +++| NJN POT14 IF ERROR 34486 M00S19857.1mt +++| RJM CID CHECK I FORMAT TRAILER INFORMATION
| Line S19858 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34487 M01S19858.252l678 ---| ZJN POT38 IF GOOD COMPARE 34488 M01S19859.252l678 ---| POT36 LJM POT15 POSITION LOST ERROR 34489 M01S19860.252l678 ---| 34490 M01S19861.252l678 ---| POT37 RJM ISM ISSUE MESSAGE AND START OVER 34491 M01S19862.252l678 ---| LDD EP START OVER AGAIN 34492 M01S19863.252l678 ---| LPC 1777 34493 M01S19864.252l678 ---| STD EP 34494 M01S19865.252l678 ---| RJM BKS BACKSPACE OVER BLOCK 34495 M01S19866.252l678 ---| LJM POT6 POSITION TO LGB 34496 M01S19867.252l678 ---| POTH EQU *-1 34497 M01S19868.252l678 ---|* LJM POT7 (NO BID RECOVERY)
| Line S01414 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34498 M01S01414.252l678 +++| ZJN POT15 IF NO ERROR 34499 M01S01415.252l678 +++| LCN 0 SET BLOCK ID TO IMPOSSIBLE 34500 M01S01416.252l678 +++| STM WEMD 34501 M01S01417.252l678 +++| LJM POS6 ISSUE POSITION LOST MESSAGE, NO RETURN 34502 M01S01418.252l678 +++| 34503 M01S01419.252l678 +++| POT14 LDN /MTX/WVF 34504 M01S01420.252l678 +++| STD EC 34505 M01S01421.252l678 +++| RJM ISC ISSUE POSITION LOST MESSAGE 34506 M01S01422.252l678 +++| UJN POT17 RETURN FATAL ERROR 34507 M00S19869.1mt +++|
| Line S19870 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34508 M01S19870.252l678 ---| POT38 AOM WEME SET TO ACCEPT WRITE
| Line S01423 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34509 M01S01423.252l678 +++| POT15 AOM WEME SET TO ACCEPT WRITE 34510 M00S19871.1mt +++| RJM ISC ISSUE RECOVERED MESSAGE AND CONNECT UNIT
| Line S01424 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34511 M01S01424.252l678 +++| RJM IRC INCREASE RECOVERED ERROR COUNTER 34512 M00S19872.1mt +++| LDD FN 34513 M00S19873.1mt +++| LMN /MTX/WLA
| Line S19874 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34514 M01S19874.252l678 ---| NJN POT39 IF NOT WRITE LABELS
| Line S01425 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34515 M01S01425.252l678 +++| NJN POT16 IF NOT WRITE LABELS 34516 M00S19875.1mt +++| STD EP+1 CLEAR ERROR PARAMETERS 34517 M00S19876.1mt +++| STD EP 34518 M00S19877.1mt +++| STD EI
| Line S19878 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34519 M01S19878.252l678 ---| POT39 LJM POTX RETURN
| Line S01426 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34520 M01S01426.252l678 +++| POT16 LJM POTX RETURN 34521 M00S19879.1mt +++| 34522 M00S19880.1mt +++|* CANNOT RECOVER ERROR. 34523 M00S19881.1mt +++|
| Line S19882 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34524 M01S19882.252l678 ---| POT40 LDD FN
| Line S01427 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34525 M01S01427.252l678 +++| POT17 LDD FN 34526 M00S19883.1mt +++| LMN /MTX/WLA
| Line S19884 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34527 M01S19884.252l678 ---| NJN POT42 IF NOT WRITE LABELS 34528 M01S19885.252l678 ---| POT41 LDD HP CLEAR WRITE FLAGS
| Line S01428 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34529 M01S01428.252l678 +++| NJN POT18 IF NOT WRITE LABELS
| Line S01429 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34530 M02S01429.282l826 ---| LDD HP CLEAR WRITE FLAGS
| Line S19886 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34531 M01S19886.282l826 ---| LPC 1777 34532 M01S19887.282l826 ---| STD HP
| Line S01516 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34533 M01S01516.282l826 +++| LDD UP 34534 M01S01517.282l826 +++| SCN 30 CLEAR WRITE OPERATION AND EOR/EOF FLAGS 34535 M01S01518.282l826 +++| STD UP
| Line S19888 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34536 M01S19888.252l678 ---| POT42 LJM RET4 RETURN FATAL ERROR
| Line S01430 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34537 M01S01430.252l678 +++| POT18 LJM RET4 RETURN FATAL ERROR 34538 M00S19889.1mt +++| 34539 M00S19890.1mt +++|* ERASE AT EOT. 34540 M00S19891.1mt +++|
| Line S19892 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34541 M01S19892.252l678 ---| POT43 LDD EP
| Line S01431 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34542 M01S01431.252l678 +++| POT19 LDD EP 34543 M00S19893.1mt +++| SHN 21-12
| Line S19894 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34544 M01S19894.252l678 ---| MJN POT40 IF IRRECOVERABLE ERROR
| Line S01432 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34545 M01S01432.252l678 +++| MJN POT17 IF IRRECOVERABLE ERROR 34546 M00S19895.1mt +++| LDC 2000 SET ERASE OCCURRED AT EOT FLAG 34547 M00S19896.1mt +++| RAD EP
| Line S19897 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34548 M01S19897.252l678 ---| LJM POT22 RETRY
| Line S01433 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34549 M01S01433.252l678 +++| LJM POT6 RETRY 34550 M00S19898.1mt +++|
| Line S19899 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34551 M01S19899.252l678 ---| POTI CON 5 NUMBER OF BLOCKS TO TRY FOR LGB (J) 34552 M01S19900.252l678 ---| POTJ CON 5 NUMBER OF TIMES TO TRY FOR LGB (K) 34553 M01S19901.252l678 ---| POTK CON 5 REREAD COUNT WHILE FINDING LGB (I) 34554 M01S19902.252l678 ---| POTL CON 0 NUMBER OF ERASES TO PERFORM
| Line S01434 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34555 M01S01434.252l678 +++| POTK CON 0 NUMBER OF ERASES TO PERFORM 34556 M00S19903.1mt +++| TITLE SUBROUTINES.
| Line S19904 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34557 M01S19904.282l826 ---| ABC SPACE 4,10
| Line S01519 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34558 M01S01519.282l826 +++| ABC SPACE 4,15 34559 M00S19905.1mt +++|** ABC - ADJUST BYTE COUNT FOR 9 TRACK TAPES. 34560 M00S19906.1mt +++|* 34561 M00S19907.1mt +++|* ENTRY (BY) = BYTE COUNT. 34562 M00S19908.1mt +++|* (T4) = BUFFER SIZE. 34563 M00S19909.1mt +++|* (DS) = DEVICE STATUS. 34564 M00S19910.1mt +++|* 34565 M00S19911.1mt +++|* EXIT (A) = 0 IF NO BYTE ADJUSTMENT. 34566 M00S19912.1mt +++|* (ES) = 40 IF FILL STATUS. 34567 M00S19913.1mt +++|* = 0 IF NO FILL STATUS.
| Line S01520 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34568 M01S01520.282l826 +++|* 34569 M01S01521.282l826 +++|* USES T2, T4. 34570 M00S19914.1mt +++| 34571 M00S19915.1mt +++| 34572 M00S19916.1mt +++| ABC SUBR ENTRY/EXIT 34573 M00S19917.1mt +++| LDD HP 34574 M00S19918.1mt +++| LPN 1 34575 M00S19919.1mt +++| ZJN ABCX IF 7 TRACK 34576 M00S19920.1mt +++| 34577 M00S19921.1mt +++|* SET FILL STATUS. 34578 M00S19922.1mt +++| 34579 M00S19923.1mt +++| LDD DS 34580 M00S19924.1mt +++| ABCA SHN 0-5 34581 M00S19925.1mt +++|* UJN ABC2 (ATS UNIT) 34582 M00S19926.1mt +++| LPN 1 34583 M00S19927.1mt +++| ADD BY 34584 M00S19928.1mt +++| LPN 3 34585 M00S19929.1mt +++| ZJN ABC1 IF NO FILL STATUS 34586 M00S19930.1mt +++| LDN 40 34587 M00S19931.1mt +++|* LPN 40 (ATS UNIT) 34588 M00S19932.1mt +++| ABCB EQU *-1 34589 M00S19933.1mt +++| ABC1 STD ES 34590 M00S19934.1mt +++| 34591 M00S19935.1mt +++|* CORRECT 9 TRACK BYTE COUNT. 34592 M00S19936.1mt +++| 34593 M00S19937.1mt +++| LDD DS 34594 M00S19938.1mt +++| LPN 40 34595 M00S19939.1mt +++| ZJN ABC2 IF NO ODD COUNT 34596 M00S19940.1mt +++| LDD BY 34597 M00S19941.1mt +++| LPN 2 34598 M00S19942.1mt +++| ZJN ABC2 IF NOT MODULO 4, 2 OR 3 34599 M00S19943.1mt +++| SOD BY 34600 M00S19944.1mt +++| SOD T4 34601 M00S19945.1mt +++| 34602 M00S19946.1mt +++|* ADJUST BUFFER LENGTH FOR I FORMAT. 34603 M00S19947.1mt +++| 34604 M00S19948.1mt +++| ABC2 LDD FM
| Line S01522 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34605 M01S01522.282l826 +++| SHN -6 34606 M00S19949.1mt +++| LMN /MTX/TFI 34607 M00S19950.1mt +++| ZJN ABC3 IF I FORMAT 34608 M00S19951.1mt +++| LDN 0 34609 M00S19952.1mt +++| UJN ABC4 RETURN 34610 M00S19953.1mt +++| 34611 M00S19954.1mt +++| ABC3 LDD BY 34612 M00S19955.1mt +++| ZJN ABC4 IF NO DATA READ 34613 M00S19956.1mt +++| SBN 1 34614 M00S19957.1mt +++| ZJN ABC4 IF POSSIBLE TAPE MARK 34615 M00S19958.1mt +++| STD T2 CALCULATE WORD COUNT 34616 M00S19959.1mt +++| SHN 1 13*BYTES 34617 M00S19960.1mt +++| ADD T2 34618 M00S19961.1mt +++| SHN 2 34619 M00S19962.1mt +++| ADD T2 34620 M00S19963.1mt +++| SHN 14 (-6) (13*BYTES)/64 34621 M00S19964.1mt +++| STD T0 34622 M00S19965.1mt +++| SHN 6+2 4*13*BYTES (52*BYTES) 34623 M00S19966.1mt +++| SBD T2 51*BYTES 34624 M00S19967.1mt +++| ADD T0 (51*BYTES)+((13*BYTES)/64) 34625 M00S19968.1mt +++| SHN -8D WORDS = ((51*BYTES)+((13*BYTES)/64))/256 34626 M00S19969.1mt +++| LPN 1 34627 M00S19970.1mt +++| ABC4 STM ABCC 34628 M00S19971.1mt +++| LJM ABCX RETURN 34629 M00S19972.1mt +++| 34630 M00S19973.1mt +++| 34631 M00S19974.1mt +++| ABCC CON 0 34632 M00S19975.1mt +++| BKS SPACE 4,10 34633 M00S19976.1mt +++|** BKS - BACKSPACE TAPE. 34634 M00S19977.1mt +++|* 34635 M00S19978.1mt +++|* EXIT (A) = NEGATIVE IF BOT.
| Line S00549 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34636 M01S00549.v23l617 +++|* (DS) = GENERAL STATUS. 34637 M00S19979.1mt +++|*
| Line S19980 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34638 M01S19980.v23l617 ---|* CALLS CKR, FCN, RTR, STW, WFC.
| Line S00550 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34639 M01S00550.v23l617 +++|* CALLS CKR, FCN, STW, WFC. 34640 M00S19981.1mt +++| 34641 M00S19982.1mt +++|
| Line S19983 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34642 M01S19983.v23l617 ---| BKS1 RJM RTR READ TAPE REVERSE 34643 M01S19984.v23l617 ---| 34644 M00S19985.1mt +++| BKS SUBR ENTRY/EXIT
| Line S19986 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34645 M01S19986.v23l617 ---| LDM /WRITE/CNWA 34646 M01S19987.v23l617 ---| LMC LJMI 34647 M01S19988.v23l617 ---| ZJN BKS1 IF LONG BLOCKS 34648 M00S19989.1mt +++| RJM CKR CHECK READY 34649 M00S19990.1mt +++| LDN 2 WAIT NOT BUSY 34650 M00S19991.1mt +++| RJM STW
| Line S19992 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 34651 M01S19992.274l797 ---| LDC 113 BACKSPACE
| Line S08160 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 34652 M01S08160.274l797 +++| LDC F0113 BACKSPACE 34653 M00S19993.1mt +++| RJM FCN 34654 M00S19994.1mt +++| RJM WFC WAIT FUNCTION COMPLETE 34655 M00S19995.1mt +++| LDD DS RETURN LOAD POINT STATUS 34656 M00S19996.1mt +++| SHN 21-2 34657 M00S19997.1mt +++| UJN BKSX RETURN 34658 M00S19998.1mt +++| BTW SPACE 4,10 34659 M00S19999.1mt +++|** BTW - BUILD TEMPORARY WINDOW. 34660 M00S20000.1mt +++|* 34661 M00S20001.1mt +++|* ENTRY (A) = NUMBER OF BLOCKS TO MOVE BACK. 34662 M00S20002.1mt +++|*
| Line S20003 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34663 M01S20003.252l678 ---|* EXIT (TBDW) = TEMPORARY BID WINDOW.
| Line S01435 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34664 M01S01435.252l678 +++|* EXIT (TBDW) = TEMPORARY BLOCK ID WINDOW IF FIRST BKSP NOT 34665 M01S01436.252l678 +++|* AT LOAD POINT. 34666 M00S20004.1mt +++|* 34667 M00S20005.1mt +++|* USES T8, T9. 34668 M00S20006.1mt +++|*
| Line S20007 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34669 M01S20007.252l678 ---|* CALLS BKS, SOB.
| Line S01437 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34670 M01S01437.252l678 +++|* CALLS BKS, DTS, ISC, SOB. 34671 M00S20008.1mt +++| 34672 M00S20009.1mt +++| 34673 M00S20010.1mt +++| BTW SUBR ENTRY/EXIT 34674 M00S20011.1mt +++| STD T8 34675 M00S20012.1mt +++| LDN 4 SETUP FIRST BID BYTE 34676 M00S20013.1mt +++| STM TBDW 34677 M00S20014.1mt +++| BTW1 RJM BKS BACKSPACE 34678 M00S20015.1mt +++| MJN BTW2 IF BOT 34679 M00S20016.1mt +++| SOD T8 34680 M00S20017.1mt +++| NJN BTW1 LOOP FOR NEXT BLOCK
| Line S20018 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34681 M01S20018.252l678 ---| BTW2 LDN 0 34682 M01S20019.252l678 ---| STD T8 34683 M01S20020.252l678 ---| LDM POSB SET BID POINTER
| Line S01438 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34684 M01S01438.252l678 +++| BTW2 LDM POSB SET BID POINTER 34685 M00S20021.1mt +++| STD T9
| Line S01439 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34686 M01S01439.252l678 +++| LDM POSA CHECK FOR LOAD POINT ON FIRST BKSP 34687 M01S01440.252l678 +++| SBD T8 34688 M01S01441.252l678 +++| ZJN BTWX IF FIRST BKSP AT LOAD POINT 34689 M01S01442.252l678 +++| LDN 0 CLEAR PRU COUNTER 34690 M01S01443.252l678 +++| STD T8 34691 M00S20022.1mt +++| BTW3 RJM SOB SET UP AND READ ONE BLOCK 34692 M00S20023.1mt +++| LDM UBWB 34693 M00S20024.1mt +++| STM TBDW+1,T8 34694 M00S20025.1mt +++| AOD T9 INCREMENT POINTER 34695 M00S20026.1mt +++| LPN 7 RESET POINTER FOR POSSIBLE WRAP AROUND 34696 M00S20027.1mt +++| STD T9 34697 M00S20028.1mt +++| AOD T8 34698 M00S20029.1mt +++| LMM POSA
| Line S20030 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34699 M01S20030.252l678 ---| NJN BTW3 LOOP FOR NEXT BLOCK 34700 M01S20031.252l678 ---| UJN BTWX RETURN
| Line S01444 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34701 M01S01444.252l678 +++| NJN BTW4 IF LOOP FOR NEXT BLOCK 34702 M01S01445.252l678 +++| LJM BTWX RETURN 34703 M01S01446.252l678 +++| 34704 M01S01447.252l678 +++| BTW4 RJM DTS GET DETAILED STATUS 34705 M01S01448.252l678 +++| BTWA UJN BTW3 MTS 34706 M01S01449.252l678 +++|* LDM MTDS+1 (ATS) LOAD ERROR CORRECTION FLAGS 34707 M01S01450.252l678 +++| CON MTDS+1 34708 M01S01451.252l678 +++| SHN -11 34709 M01S01452.252l678 +++| LPN 3 SINGLE/DOUBLE TRACK CORRECTED FLAGS 34710 M01S01453.252l678 +++| ZJN BTW3 IF NO CORRECTABLE ERRORS 34711 M01S01454.252l678 +++| LDD DS CHECK FOR ALERT 34712 M01S01455.252l678 +++| SHN 21-13 34713 M01S01456.252l678 +++| MJN BTW3 IF ALERT STATUS SET 34714 M01S01457.252l678 +++| LDD T8 SAVE TEMPORARIES 34715 M01S01458.252l678 +++| STM BTWB 34716 M01S01459.252l678 +++| LDD T9 34717 M01S01460.252l678 +++| STM BTWC 34718 M01S01461.252l678 +++| LDN /MTX/RCE ISSUE REPOSITION CORRECTION MESSAGE 34719 M01S01462.252l678 +++| STD EC 34720 M01S01463.252l678 +++| LDD DS SAVE STATUS 34721 M01S01464.252l678 +++| STM //STER 34722 M01S01465.252l678 +++| RJM ISC ISSUE MESSAGE AND RECONNECT 34723 M01S01466.252l678 +++| LDN 0 CLEAR ERROR CODE 34724 M01S01467.252l678 +++| STD EC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt15 |
Seq # *Modification Id* Act ----------------------------+ 34725 M01S00001.1mt15 +++| AOD EI
| Line S01468 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34726 M01S01468.252l678 +++| LDM BTWB RESTORE TEMPORARIES 34727 M01S01469.252l678 +++| STD T8 34728 M01S01470.252l678 +++| LDM BTWC 34729 M01S01471.252l678 +++| STD T9 34730 M01S01472.252l678 +++| LJM BTW3 CONTINUE FORESPACES 34731 M01S01473.252l678 +++| 34732 M01S01474.252l678 +++| 34733 M01S01475.252l678 +++| BTWB CON 0 SAVE T8 34734 M01S01476.252l678 +++| BTWC CON 0 SAVE T9 34735 M00S20032.1mt +++| CFC SPACE 4,10 34736 M00S20033.1mt +++|** CFC - CHECK FOR CONNECT. 34737 M00S20034.1mt +++|* 34738 M00S20035.1mt +++|* ENTRY (RELA) = CONNECT FLAG. 34739 M00S20036.1mt +++|* (DS) = DEVICE STATUS. 34740 M00S20037.1mt +++|* 34741 M00S20038.1mt +++|* USES T1. 34742 M00S20039.1mt +++|* 34743 M00S20040.1mt +++|* CALLS CUI. 34744 M00S20041.1mt +++| 34745 M00S20042.1mt +++| 34746 M00S20043.1mt +++| CFC SUBR ENTRY/EXIT
| Line S20044 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34747 M01S20044.v23l617 ---| LDM //RELA
| Line S00551 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34748 M01S00551.v23l617 +++| LDM MTSF+2 SAVE CURRENT ERROR CORRECTION CODE 34749 M01S00552.v23l617 +++| STM CFCB 34750 M01S00553.v23l617 +++| LPC 2000 34751 M01S00554.v23l617 +++| ZJN CFC0 IF ERROR CORRECTION ENABLED 34752 M01S00555.v23l617 +++| LDC 4000 ENABLE ERROR CORRECTION FOR RECOVERY 34753 M01S00556.v23l617 +++| STM MTSF+2 34754 M01S00557.v23l617 +++| LDN 0 34755 M01S00558.v23l617 +++| STM //RELA CLEAR CONNECTED FLAG 34756 M01S00559.v23l617 +++| LDC LDNI+0 SET FORMAT ALTERED FLAG 34757 M01S00560.v23l617 +++| STM WEMJ 34758 M01S00561.v23l617 +++| CFC0 LDM //RELA 34759 M00S20045.1mt +++| ZJN CFC1 IF UNIT NOT CONNECTED 34760 M00S20046.1mt +++| LDD DS 34761 M00S20047.1mt +++| SHN 21-11 34762 M00S20048.1mt +++| PJN CFCX RETURN IF UNIT CONNECTED 34763 M00S20049.1mt +++| LDN 0 34764 M00S20050.1mt +++| STM //RELA 34765 M00S20051.1mt +++| CFC1 STD T1 34766 M00S20052.1mt +++| CFC2 LDM MTDS,T1 SAVE DETAILED STATUS 34767 M00S20053.1mt +++| STM CFCA,T1 34768 M00S20054.1mt +++| AOD T1 34769 M00S20055.1mt +++| LMN 10 34770 M00S20056.1mt +++| NJN CFC2 IF MORE TO SAVE 34771 M00S20057.1mt +++| RJM CUI CONNECT UNIT 34772 M00S20058.1mt +++| LDN 0 34773 M00S20059.1mt +++| STD T1 34774 M00S20060.1mt +++| CFC3 LDM CFCA,T1 RESTORE DETAILED STATUS 34775 M00S20061.1mt +++| STM MTDS,T1 34776 M00S20062.1mt +++| AOD T1 34777 M00S20063.1mt +++| LMN 10 34778 M00S20064.1mt +++| NJN CFC3 IF MORE TO MOVE
| Line S20065 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34779 M01S20065.v23l617 ---| UJN CFCX RETURN
| Line S00562 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34780 M01S00562.v23l617 +++| LDM CFCB RESET ORIGINAL ERROR CORRECTION CODE 34781 M01S00563.v23l617 +++| STM MTSF+2 34782 M01S00564.v23l617 +++| LJM CFCX RETURN 34783 M00S20066.1mt +++| 34784 M00S20067.1mt +++| 34785 M00S20068.1mt +++| CFCA BSS 10 SAVE AREA FOR DETAILED STATUS
| Line S00565 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 34786 M01S00565.v23l617 +++| CFCB BSS 1 ORIGINAL ERROR CORRECTION CODE
| Line S20069 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34787 M01S20069.252l678 ---| CBS SPACE 4,10 34788 M01S20070.252l678 ---|** CBS - CONTROLLED BACKSPACE. 34789 M01S20071.252l678 ---|* 34790 M01S20072.252l678 ---|* ENTRY (A) = NUMBER OF BYTES TO BACKSPACE. 34791 M01S20073.252l678 ---|* 34792 M01S20074.252l678 ---|* CALLS CKR, FCN, STW, WNB. 34793 M01S20075.252l678 ---| 34794 M01S20076.252l678 ---|
| Line S00566 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34795 M02S00566.252l678 ---| CBS4.1 LDD HP CLEAR WRITE FLAGS 34796 M02S00567.252l678 ---| LPC 1777 34797 M02S00568.252l678 ---| STD HP 34798 M02S00569.252l678 ---| LDN /MTX/STE SET STATUS ERROR 34799 M02S00570.252l678 ---| LJM RET3 RETURN ERROR CODE 34800 M02S00571.252l678 ---|
| Line S20077 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34801 M01S20077.252l678 ---| CBS5 STM CBSD SET BYTE COUNT FOR ATS UNIT 34802 M01S20078.252l678 ---| SHN -4 34803 M01S20079.252l678 ---| LMC -0 34804 M01S20080.252l678 ---| RAM CBSD
| Line S20081 Modification History | |
|---|---|
M01 (Removed by) | 1mt1 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34805 M02S20081.252l678 ---| NJN CBS1 IF NOT ZERO BYTES
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt1 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34806 M02S00001.252l678 ---| NJN CBS6 IF NOT ZERO BYTES
| Line S20082 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34807 M01S20082.252l678 ---| AOM CBSD OUTPUT AT LEAST 1 BYTE
| Line S20083 Modification History | |
|---|---|
M01 (Removed by) | 1mt1 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34808 M02S20083.252l678 ---| UJN CBS1 OUTPUT DATA
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1mt1 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34809 M02S00002.252l678 ---| CBS6 LDM MTDS CHECK FOR *ID* BURST ERROR 34810 M02S00003.252l678 ---| LPC 177 34811 M02S00004.252l678 ---| LMN 12
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1mt1 |
M02 (Removed by) | v23l617 |
M03 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34812 M03S00005.252l678 ---| NJN CBS1 IF NOT *ID BURST DEFECTIVE* 34813 M03S00006.252l678 ---| LDN /MTX/STE FORCE *ID BURST DEFECTIVE* ERROR 34814 M03S00007.252l678 ---| LJM RET3 RETURN ERROR CODE
| Line S00572 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34815 M02S00572.252l678 ---| ZJN CBS4.1 IF ARA BURST DEFECTIVE 34816 M02S00573.252l678 ---| UJN CBS1 ISSUE CONTROLLER BACKSPACE 34817 M02S00574.252l678 ---|* RJM BKS (ATS TAPE MARK OR FSC/ISMT UNIT) 34818 M02S00575.252l678 ---| CBSG EQU *-1 34819 M02S00576.252l678 ---| CON BKS
| Line S20084 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34820 M01S20084.252l678 ---| 34821 M01S20085.252l678 ---| CBS SUBR ENTRY/EXIT 34822 M01S20086.252l678 ---| STM CBSF+1 SAVE BYTE COUNT 34823 M01S20087.252l678 ---|* UJN CBS5 (ATS UNIT) 34824 M01S20088.252l678 ---| CBSA EQU *-2 34825 M01S20089.252l678 ---| CBS1 RJM CKR CHECK READY 34826 M01S20090.252l678 ---| LDN 2 WAIT NOT BUSY 34827 M01S20091.252l678 ---| RJM STW 34828 M01S20092.252l678 ---| LDC 114 CONTROL BACKSPACE 34829 M01S20093.252l678 ---|* LDC 17 (MTS - WRITE REPOSITION) 34830 M01S20094.252l678 ---|* LDC 217 (FRAME COUNT ERROR 3) 34831 M01S20095.252l678 ---|* LDC 16 (TAPE MARK PARITY ERROR) 34832 M01S20096.252l678 ---| CBSB EQU *-1 34833 M01S20097.252l678 ---| RJM FCN 34834 M01S20098.252l678 ---| CBSC ACN CH 34835 M01S20099.252l678 ---|* UJN CBS2 (MTS FUNCTION 16) 34836 M01S20100.252l678 ---| LDC 2 OUTPUT LENGTH 34837 M01S20101.252l678 ---| CBSD EQU *-1 34838 M01S20102.252l678 ---| OAM CBSF,CH 34839 M01S20103.252l678 ---| FJM *,CH 34840 M01S20104.252l678 ---| NJN CBS2 IF INCOMPLETE TRANSFER 34841 M01S20105.252l678 ---| DCN CH+40 34842 M01S20106.252l678 ---| CBS2 STD T5 34843 M01S20107.252l678 ---| RJM WNB WAIT NOT BUSY 34844 M01S20108.252l678 ---| LDD DS 34845 M01S20109.252l678 ---| LPC 4000 34846 M01S20110.252l678 ---| ZJN CBS3 IF NO ALERT 34847 M01S20111.252l678 ---| LDM MTDS CONSIDER WARNING MESSAGES 34848 M01S20112.252l678 ---| LPC 77 34849 M01S20113.252l678 ---| CBSE EQU *-1 34850 M01S20114.252l678 ---|* LPC 177 (ATS UNIT) 34851 M01S20115.252l678 ---| CBS3 RAD T5 34852 M01S20116.252l678 ---| NJN CBS4 IF ERRORS 34853 M01S20117.252l678 ---| LJM CBSX RETURN 34854 M01S20118.252l678 ---| 34855 M01S20119.252l678 ---| CBS4 LDN /MTX/CBS CONTROLLED BACKSPACE ERROR 34856 M01S20120.252l678 ---| STD EC 34857 M01S20121.252l678 ---| LJM RET3 RETURN ERROR CODE 34858 M01S20122.252l678 ---| 34859 M01S20123.252l678 ---| 34860 M01S20124.252l678 ---| CBSF CON 0,0 CONTROLLED BACKSPACE LENGTH 34861 M00S20125.1mt +++| CBW SPACE 4,15 34862 M00S20126.1mt +++|** CBW - COMPARE BID WINDOWS. 34863 M00S20127.1mt +++|* 34864 M00S20128.1mt +++|* COMPARE THE PERMANENT WINDOW (BIDW) TO THE TEMPORARY 34865 M00S20129.1mt +++|* WINDOW (TBDW). 34866 M00S20130.1mt +++|* 34867 M00S20131.1mt +++|* ENTRY (T1) = FIRST BYTE IN BIDW TO COMPARE. 34868 M00S20132.1mt +++|* (T2) = FIRST BYTE IN TBDW TO COMPARE. 34869 M00S20133.1mt +++|*
| Line S20134 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34870 M01S20134.252l678 ---|* EXIT (A) = 0 IF MATCH. 34871 M01S20135.252l678 ---|* (A, 17-14) .NE. 0 IF .GT. 1 BID SKIPPED DURING COMPARE. 34872 M01S20136.252l678 ---|* (A, 13-0) .NE. 0 IF LAST BID FAILED TO COMPARE.
| Line S01477 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34873 M01S01477.252l678 +++|* EXIT (A) = 0 IF MATCH OR NOT BLOCK ID EQUIPMENT. 34874 M01S01478.252l678 +++|* (A, 13-6) = NUMBER OF INVALID BLOCK ID-S. 34875 M01S01479.252l678 +++|* (A, 5-0) = NUMBER OF VALID BLOCK ID MISMATCHES. 34876 M00S20137.1mt +++|* 34877 M00S20138.1mt +++|* USES T1 - T4. 34878 M00S20139.1mt +++| 34879 M00S20140.1mt +++|
| Line S20141 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34880 M01S20141.252l678 ---| CBW4 LCN 0 34881 M01S20142.252l678 ---| 34882 M00S20143.1mt +++| CBW SUBR ENTRY/EXIT
| Line S01480 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34883 M01S01480.252l678 +++| LDD CF CHECK IF BLOCK ID EQUIPMENT 34884 M01S01481.252l678 +++| LPC 300 34885 M01S01482.252l678 +++| LMC 300 34886 M01S01483.252l678 +++| ZJN CBWX IF NO BLOCK ID 34887 M00S20144.1mt +++| LDN 0 34888 M00S20145.1mt +++| STD T4
| Line S20146 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34889 M01S20146.252l678 ---| CBW1 LDM TBDW,T2 CHECK IF GOOD BLOCK
| Line S01484 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34890 M01S01484.252l678 +++| STD T3 34891 M01S01485.252l678 +++| LDD T1 SAVE (T1) 34892 M01S01486.252l678 +++| STM CBWA 34893 M01S01487.252l678 +++| CBW1 LDM BIDW,T1 LOAD HISTORY BLOCK ID 34894 M00S20147.1mt +++| LMN 4
| Line S20148 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34895 M01S20148.252l678 ---| NJN CBW2 IF GOOD BLOCK
| Line S01488 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34896 M01S01488.252l678 +++| ZJN CBW3 IF INVALID BID IN HISTORY 34897 M01S01489.252l678 +++| LDM TBDW,T2 LOAD BID FROM TEMP WINDOW 34898 M01S01490.252l678 +++| LMN 4 INVALID CHECK 34899 M01S01491.252l678 +++| NJN CBW2 IF NOT INVALID BID IN TEMP WINDOW 34900 M01S01492.252l678 +++| AOD T3 CHECK NEXT BID 34901 M01S01493.252l678 +++| UJN CBW3 CONTINUE 34902 M01S01494.252l678 +++| 34903 M01S01495.252l678 +++| CBW2 LDM BIDW,T1 LOAD BID FROM HISTORY 34904 M01S01496.252l678 +++| LMM TBDW,T2 34905 M01S01497.252l678 +++| ZJN CBW3 IF NO ERROR 34906 M00S20149.1mt +++| AOD T4
| Line S20150 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34907 M01S20150.252l678 ---| UJN CBW3 SKIP OVER BLOCK 34908 M01S20151.252l678 ---| 34909 M01S20152.252l678 ---| CBW2 LMN 4 34910 M01S20153.252l678 ---| LMM BIDW,T1 34911 M01S20154.252l678 ---| NJN CBW4 IF ERROR 34912 M01S20155.252l678 ---| CBW3 AOD T2
| Line S01498 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34913 M01S01498.252l678 +++| CBW3 LDD WP 34914 M01S01499.252l678 +++| SBM CBWA 34915 M01S01500.252l678 +++| ZJN CBW4 IF ONLY ONE BLOCK ID 34916 M01S01501.252l678 +++| AOD T2 34917 M00S20156.1mt +++| AOD T1 INCREMENT POINTER 34918 M00S20157.1mt +++| LPN 7 RESET POINTER FOR POSSIBLE WRAP AROUND 34919 M00S20158.1mt +++| STD T1 34920 M00S20159.1mt +++| LMD WP 34921 M00S20160.1mt +++| NJN CBW1 IF NOT END OF COMPARE
| Line S20161 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34922 M01S20161.252l678 ---| LDD T4 ALLOW ONLY ONE SKIPPED BLOCK 34923 M01S20162.252l678 ---| SCN 1 34924 M01S20163.252l678 ---| SHN 14 34925 M01S20164.252l678 ---| LMM TBDW,T2 LAST BID BYTE MUST COMPARE 34926 M01S20165.252l678 ---| LMM BIDW,T1 34927 M01S20166.252l678 ---| UJN CBWX RETURN
| Line S01502 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 34928 M01S01502.252l678 +++| CBW4 LDD T3 FORM BID COMPARE RESULTS AND EXIT 34929 M01S01503.252l678 +++| SHN 6 34930 M01S01504.252l678 +++| ADD T4 34931 M01S01505.252l678 +++| LJM CBWX RETURN 34932 M01S01506.252l678 +++| 34933 M01S01507.252l678 +++| 34934 M01S01508.252l678 +++| CBWA CON 0 STORAGE FOR (T1) 34935 M00S20167.1mt +++| CKR SPACE 4,10 34936 M00S20168.1mt +++|** CKR - CHECK READY. 34937 M00S20169.1mt +++|* IF UNIT NOT READY, A TIME OUT WILL BE PERFORMED WAITING FOR 34938 M00S20170.1mt +++|* UNIT TO BECOME READY BEFORE GIVING A FATAL ERROR. THIS 34939 M00S20171.1mt +++|* SHOULD ALLOW RECOVERY FROM MOMENTARY NOT READY CONDITIONS. 34940 M00S20172.1mt +++|* 34941 M00S20173.1mt +++|* CALLS CUI, FCN.
| Line S20174 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34942 M01S20174.282l826 ---|* 34943 M01S20175.282l826 ---|* MACROS CMOT. 34944 M00S20176.1mt +++| 34945 M00S20177.1mt +++| 34946 M00S20178.1mt +++| CKR SUBR ENTRY/EXIT 34947 M00S20179.1mt +++| LCN 0 PRESET TIME OUT 34948 M00S20180.1mt +++| STM CKRA 34949 M00S20181.1mt +++| CKR1 LDN 12 STATUS UNIT 34950 M00S20182.1mt +++| RJM FCN
| Line S20183 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34951 M01S20183.282l826 ---| CMOT * 34952 M00S20184.1mt +++| ACN CH
| Line S20185 Modification History | |
|---|---|
M01 (Removed by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34953 M01S20185.1mt19 ---| CMOT *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34954 M01S00001.1mt19 +++| LDC SBNI+1 RETRY FOR TWO MS 34955 M01S00002.1mt19 +++| CKR2 EQU *-1 34956 M01S00003.1mt19 +++| FJM CKR3,CH IF DATA 34957 M01S00004.1mt19 +++| NJN CKR2 IF RETRY NOT COMPLETE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1mt19 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34958 M02S00005.282l826 ---| CMOT *
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34959 M01S00006.1mt19 +++| DCN CH+40 34960 M01S00007.1mt19 +++| UJN CKR5 EXIT WITH ERROR 34961 M01S00008.1mt19 +++|
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1mt19 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34962 M02S00009.282l826 ---| CKR3 CMOT *
| Line S20186 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34963 M01S20186.282l826 ---| IAN CH 34964 M01S20187.282l826 ---| CMOT *
| Line S01523 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34965 M01S01523.282l826 +++| CKR3 IAN CH 34966 M00S20188.1mt +++| DCN CH+40 34967 M00S20189.1mt +++| LPC 1001 34968 M00S20190.1mt +++| LMN 1 34969 M00S20191.1mt +++| ZJN CKRX IF READY 34970 M00S20192.1mt +++| SHN 21-11
| Line S20193 Modification History | |
|---|---|
M01 (Removed by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34971 M01S20193.1mt19 ---| PJN CKR2 IF UNIT CONNECTED
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34972 M01S00010.1mt19 +++| PJN CKR4 IF UNIT CONNECTED 34973 M00S20194.1mt +++| LDN 0 34974 M00S20195.1mt +++| STM RELA CLEAR CONNECTED FLAG 34975 M00S20196.1mt +++| RJM CUI CONNECT UNIT
| Line S20197 Modification History | |
|---|---|
M01 (Removed by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34976 M01S20197.1mt19 ---| CKR2 SOM CKRA
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34977 M01S00011.1mt19 +++| CKR4 SOM CKRA 34978 M00S20198.1mt +++| NJN CKR1 IF TIME OUT
| Line S20199 Modification History | |
|---|---|
M01 (Removed by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34979 M01S20199.1mt19 ---| LDN /MTX/RDR READY DROP
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 1mt19 |
Seq # *Modification Id* Act ----------------------------+ 34980 M01S00012.1mt19 +++| CKR5 LDN /MTX/RDR READY DROP 34981 M00S20200.1mt +++| LJM RET3 RETURN ERROR CODE 34982 M00S20201.1mt +++| 34983 M00S20202.1mt +++| 34984 M00S20203.1mt +++| CKRA CON 7777 TIME OUT COUNTER
| Line S20204 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34985 M01S20204.282l826 ---| CID SPACE 4,10
| Line S01524 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34986 M01S01524.282l826 +++| CID SPACE 4,15 34987 M00S20205.1mt +++|** CID - CHECK I FORMAT TRAILER BYTES.
| Line S08161 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 34988 M01S08161.274l797 +++|* IF LI FORMAT, CHECK THE BLOCK NUMBER IN THE PREFIX. 34989 M00S20206.1mt +++|* 34990 M00S20207.1mt +++|* ENTRY (A) = AMOUNT TO ADJUST BLOCK NUMBER BY. 34991 M00S20208.1mt +++|* (BY) = BYTES IN BLOCK LAST READ.
| Line S08162 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 34992 M01S08162.274l797 +++|* (EBUF - EBUF+3) = I FORMAT TRAILER BYTES. 34993 M01S08163.274l797 +++|* (EBUF-1 - EBUF+3) = LI FORMAT PREFIX. 34994 M00S20209.1mt +++|* 34995 M00S20210.1mt +++|* EXIT (A) = 0, GOOD BLOCK.
| Line S01525 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 34996 M01S01525.282l826 +++|* 34997 M01S01526.282l826 +++|* USES T1. 34998 M00S20211.1mt +++| 34999 M00S20212.1mt +++|
| Line S20213 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35000 M01S20213.274l797 ---| CID1 LDN 0 INDICATE GOOD COMPARE
| Line S08164 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35001 M01S08164.274l797 +++| CID3 LDN 0 INDICATE GOOD COMPARE 35002 M00S20214.1mt +++| 35003 M00S20215.1mt +++| CID SUBR ENTRY/EXIT 35004 M00S20216.1mt +++| STD T1 SAVE BLOCK NUMBER ADJUSTMENT 35005 M00S20217.1mt +++| LDD FM
| Line S01527 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35006 M01S01527.282l826 +++| SHN -6 35007 M00S20218.1mt +++| LMN /MTX/TFI
| Line S20219 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35008 M01S20219.274l797 ---| NJN CID1 IF NOT I FORMAT
| Line S08165 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35009 M01S08165.274l797 +++| NJN CID3 IF NOT I FORMAT 35010 M01S08166.274l797 +++| CIDA EQU *-1 35011 M01S08167.274l797 +++|* UJN CID1 (LI FORMAT) 35012 M00S20220.1mt +++| LDD FN 35013 M00S20221.1mt +++| LMN /MTX/WTF
| Line S20222 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35014 M01S20222.274l797 ---| NJN CID1 IF NOT WRITE DATA 35015 M01S20223.274l797 ---| LDD BY
| Line S08168 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35016 M01S08168.274l797 +++| NJN CID3 IF NOT WRITE DATA 35017 M01S08169.274l797 +++| CID1 LDD BY 35018 M00S20224.1mt +++| SBN 4
| Line S20225 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35019 M01S20225.274l797 ---| MJN CID1 IF TAPE MARK OR SNB BLOCK
| Line S08170 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35020 M01S08170.274l797 +++| MJN CID3 IF TAPE MARK OR SNB BLOCK 35021 M00S20226.1mt +++| LDD BY 35022 M00S20227.1mt +++| LMN 40D 35023 M00S20228.1mt +++| ZJN CIDX IF LABEL BLOCK
| Line S20229 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35024 M01S20229.252l678 ---| LDM XBUF+1 STORE DATA FOR MESSAGE
| Line S01509 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35025 M01S01509.252l678 +++| LDM EBUF+1 STORE DATA FOR MESSAGE 35026 M00S20230.1mt +++| SHN 14
| Line S20231 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35027 M01S20231.252l678 ---| LMM XBUF+2
| Line S01510 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35028 M01S01510.252l678 +++| LMM EBUF+2 35029 M00S20232.1mt +++| ADD T1 35030 M00S20233.1mt +++| STM //BNEI+2 35031 M00S20234.1mt +++| SHN -14 35032 M00S20235.1mt +++| STM //BNEI+1
| Line S20236 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35033 M01S20236.252l678 ---| LDM XBUF
| Line S01511 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35034 M01S01511.252l678 +++| LDM EBUF 35035 M00S20237.1mt +++| STM //BNEI 35036 M00S20238.1mt +++| LMD BY
| Line S20239 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35037 M01S20239.282l826 ---| NJN CIDX IF LENGTHS DON,T COMPARE
| Line S01528 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35038 M01S01528.282l826 +++| NJN CID2 IF LENGTHS DON,T COMPARE
| Line S08171 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35039 M01S08171.274l797 +++| CIDB EQU *-1 35040 M01S08172.274l797 +++|* PSN (LI FORMAT)
| Line S20240 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35041 M01S20240.252l678 ---| LDM XBUF+1 COMPARE BLOCK NUMBERS
| Line S01512 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35042 M01S01512.252l678 +++| LDM EBUF+1 COMPARE BLOCK NUMBERS 35043 M00S20241.1mt +++| SBD BL 35044 M00S20242.1mt +++| SHN 14
| Line S20243 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35045 M01S20243.252l678 ---| ADM XBUF+2
| Line S01513 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35046 M01S01513.252l678 +++| ADM EBUF+2 35047 M00S20244.1mt +++| SBD BL+1 35048 M00S20245.1mt +++| ADD T1
| Line S20246 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35049 M01S20246.282l826 ---| LJM CIDX RETURN
| Line S01529 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35050 M01S01529.282l826 +++| CID2 LJM CIDX RETURN
| Line S01514 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35051 M01S01514.252l678 +++| IRC SPACE 4,10 35052 M01S01515.252l678 +++|*** IRC - INCREASE RECOVERED ERROR COUNTER. 35053 M01S01516.252l678 +++|* RECOVERED ERROR COUNT IN UDT INCREASED. 35054 M01S01517.252l678 +++|* 35055 M01S01518.252l678 +++|* ENTRY NONE. 35056 M01S01519.252l678 +++|* 35057 M01S01520.252l678 +++|* EXIT RECOVERED ERROR COUNTER INCREASED. 35058 M01S01521.252l678 +++|* 35059 M01S01522.252l678 +++|* USES CM - CM+4, CN - CN+4. 35060 M01S01523.252l678 +++|* 35061 M01S01524.252l678 +++|* MACROS DELAY, MONITOR, PAUSE. 35062 M01S01525.252l678 +++| 35063 M01S01526.252l678 +++| 35064 M01S01527.252l678 +++| IRC SUBR ENTRY/EXIT 35065 M01S01528.252l678 +++| LDN /MTX/UTMS 35066 M01S01529.252l678 +++| STD T1 35067 M01S01530.252l678 +++| IRC1 LDM UADA 35068 M01S01531.252l678 +++| ADD T1 35069 M01S01532.252l678 +++| STD CM+4 35070 M01S01533.252l678 +++| LDD HN REQUEST 1 WORD 35071 M01S01534.252l678 +++| STD CM+3 35072 M01S01535.252l678 +++| LDN 0 REQUEST READ FROM MAGNET 35073 M01S01536.252l678 +++| STD CM+1 35074 M01S01537.252l678 +++| LCN 7777-/SSD/MTSI SET MAGNET SUBSYSTEM IDENTIFICATION 35075 M01S01538.252l678 +++| STD CM+2 35076 M01S01539.252l678 +++| MONITOR TDAM 35077 M01S01540.252l678 +++| LDD CM+1 35078 M01S01541.252l678 +++| LMN 1 35079 M01S01542.252l678 +++| NJN IRC2 IF MOVE NOT IN PROGRESS 35080 M01S01543.252l678 +++| PAUSE NE 35081 M01S01544.252l678 +++| DELAY 35082 M01S01545.252l678 +++| UJN IRC1 REISSUE REQUEST 35083 M01S01546.252l678 +++| 35084 M01S01547.252l678 +++| IRC2 LDD MA 35085 M01S01548.252l678 +++| CRD CN 35086 M01S01549.252l678 +++| LDD CN+1 CHECK RECOVERED ERROR COUNTER 35087 M01S01550.252l678 +++| LMC 7777 35088 M01S01551.252l678 +++| NJN IRC4 IF NOT MATCH MAX THRESHOLD 35089 M01S01552.252l678 +++| IRC3 LJM IRCX IF MATCH MAX THRESHOLD 35090 M01S01553.252l678 +++| 35091 M01S01554.252l678 +++| IRC4 AOD CN+1 35092 M01S01555.252l678 +++| IRC5 LDN /MTX/RUU SET MAGNET FUNCTION 35093 M01S01556.252l678 +++| STD CM 35094 M01S01557.252l678 +++| LDN /MTX/UTMS SET UDT WORD 35095 M01S01558.252l678 +++| STD CM+2 35096 M01S01559.252l678 +++| LDD HN SET WORD COUNT 35097 M01S01560.252l678 +++| STD CM+3 35098 M01S01561.252l678 +++| LDM UADA SET UDT ADDRESS 35099 M01S01562.252l678 +++| STD CM+4 35100 M01S01563.252l678 +++| LDD MA WRITE MAGNET REQUEST 35101 M01S01564.252l678 +++| CWD CM 35102 M01S01565.252l678 +++| ADN 1 WRITE NEW UDT WORD 35103 M01S01566.252l678 +++| CWD CN
| Line S01567 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35104 M02S01567.282l826 ---| LDN /MTX/RCAL SET MAGNET REQUEST WORD
| Line S01530 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35105 M01S01530.282l826 +++| LDK /MTX/RCAL SET MAGNET REQUEST WORD
| Line S01568 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35106 M01S01568.252l678 +++| STD CM+4 35107 M01S01569.252l678 +++| LDC 200 SET WORD COUNT 35108 M01S01570.252l678 +++| STD CM+3 35109 M01S01571.252l678 +++| LCN 7777-/SSD/MTSI SET *MAGNET* SUBSYSTEM IDENTIFICATION 35110 M01S01572.252l678 +++| STD CM+2 35111 M01S01573.252l678 +++| LDN 1 SET WRITE 35112 M01S01574.252l678 +++| STD CM+1 35113 M01S01575.252l678 +++| MONITOR TDAM 35114 M01S01576.252l678 +++| LDD CM+1 35115 M01S01577.252l678 +++| ZJN IRC3 IF REQUEST COMPLETE 35116 M01S01578.252l678 +++| SBN 4 35117 M01S01579.252l678 +++| PJN IRC6 IF NOT REJECT 35118 M01S01580.252l678 +++| PAUSE NE 35119 M01S01581.252l678 +++| DELAY 35120 M01S01582.252l678 +++| LJM IRC5 REISSUE REQUEST 35121 M01S01583.252l678 +++| 35122 M01S01584.252l678 +++| IRC6 LJM //PNR5 DROP PP 35123 M01S01585.252l678 +++| SPACE 4,10 35124 M01S01586.252l678 +++|** END OF TAPE RETURN FOR EXIT. 35125 M01S01587.252l678 +++|* 35126 M01S01588.252l678 +++|* NOTE - THIS CODE MUST BE BEFORE BUFFERS. 35127 M01S01589.252l678 +++| 35128 M01S01590.252l678 +++| 35129 M01S01591.252l678 +++| EOTEXIT LDN /MTX/BEI RETURN END OF TAPE 35130 M01S01592.252l678 +++| LJM RET3 RETURN ERROR CODE 35131 M01S01593.252l678 +++| SPACE 4,10 35132 M00S20247.1mt +++| ISC SPACE 4,10 35133 M00S20248.1mt +++|** ISC - ISSUE MESSAGE AND RECONNECT UNIT. 35134 M00S20249.1mt +++|* 35135 M00S20250.1mt +++|* ENTRY (EC) = ERROR CODE. 35136 M00S20251.1mt +++|* 35137 M00S20252.1mt +++|* CALLS CFC, *EMM*. 35138 M00S20253.1mt +++|* 35139 M00S20254.1mt +++|* MACROS CALL. 35140 M00S20255.1mt +++| 35141 M00S20256.1mt +++| 35142 M00S20257.1mt +++| ISC SUBR ENTRY/EXIT 35143 M00S20258.1mt +++| LDM WEMD RESTORE BID FOR MESSAGE 35144 M00S20259.1mt +++| STM UBWB 35145 M00S20260.1mt +++| CALL EMM ISSUE MESSAGE 35146 M00S20261.1mt +++| RJM CFC RECONNECT UNIT IF NEEDED 35147 M00S20262.1mt +++| UJN ISCX RETURN
| Line S20263 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35148 M01S20263.274l797 ---| ISM SPACE 4,10 35149 M01S20264.274l797 ---|** ISM - ISSUE STATUS ERROR MESSAGE. 35150 M01S20265.274l797 ---|* 35151 M01S20266.274l797 ---|* CALLS ISC. 35152 M01S20267.274l797 ---| 35153 M01S20268.274l797 ---| 35154 M01S20269.274l797 ---| ISM SUBR ENTRY/EXIT 35155 M01S20270.274l797 ---| LDD T4 35156 M01S20271.274l797 ---| ZJN ISM1 IF NO HARDWARE ERROR 35157 M01S20272.274l797 ---| LDN /MTX/STE&/MTX/BNE 35158 M01S20273.274l797 ---| ISM1 LMN /MTX/BNE 35159 M01S20274.274l797 ---| STD EC 35160 M01S20275.274l797 ---| LDD DS 35161 M01S20276.274l797 ---| STM //STER 35162 M01S20277.274l797 ---| RJM ISC ISSUE MESSAGE AND RECONNECT UNIT 35163 M01S20278.274l797 ---| AOD EI INCREMENT ERROR ITERATION 35164 M01S20279.274l797 ---| UJN ISMX RETURN 35165 M00S20280.1mt +++| POS SPACE 4,15 35166 M00S20281.1mt +++|** POS - POSITION TAPE. 35167 M00S20282.1mt +++|* 35168 M00S20283.1mt +++|* ENTRY (POSA) = NUMBER OF BLOCKS TO BACKUP. 35169 M00S20284.1mt +++|* TAPE POSITIONED BEFORE BAD BLOCK. 35170 M00S20285.1mt +++|* 35171 M00S20286.1mt +++|* EXIT POSITION VERIFIED. 35172 M00S20287.1mt +++|* SINGLE BLOCK MISPOSTION MESSAGES ISSUED AS NEEDED. 35173 M00S20288.1mt +++|* 35174 M00S20289.1mt +++|* USES T1, T2. 35175 M00S20290.1mt +++|* 35176 M00S20291.1mt +++|* CALLS BKS, BTW, CBW, ISC, SOB. 35177 M00S20292.1mt +++| 35178 M00S20293.1mt +++|
| Line S20294 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35179 M01S20294.252l678 ---| POS4 SHN 14
| Line S01594 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35180 M01S01594.252l678 +++| POS11 SHN 14 35181 M00S20295.1mt +++| LMD EC 35182 M00S20296.1mt +++| STM POSC SAVE EC 35183 M00S20297.1mt +++| SHN -14 35184 M00S20298.1mt +++| STD EC 35185 M00S20299.1mt +++| RJM ISC ISSUE MESSAGE AND RECONNECT UNIT 35186 M00S20300.1mt +++| LDC * RESTORE EC 35187 M00S20301.1mt +++| POSC EQU *-1 35188 M00S20302.1mt +++| STD EC 35189 M00S20303.1mt +++| 35190 M00S20304.1mt +++| POS SUBR ENTRY/EXIT 35191 M00S20305.1mt +++| LDD WP 35192 M00S20306.1mt +++| SBM POSA 35193 M00S20307.1mt +++| ADN 1 35194 M00S20308.1mt +++| PJN POS1 IF NO WRAP AROUND 35195 M00S20309.1mt +++| ADN 10 35196 M00S20310.1mt +++| POS1 STM POSB STORE STARTING POINTER 35197 M00S20311.1mt +++| LDC 0 35198 M00S20312.1mt +++| POSA EQU *-1 35199 M00S20313.1mt +++| RJM BTW BUILD TEMPORARY WINDOW 35200 M00S20314.1mt +++| LDN 1 35201 M00S20315.1mt +++| STD T2 35202 M00S20316.1mt +++| LDC * 35203 M00S20317.1mt +++| POSB EQU *-1 35204 M00S20318.1mt +++| STD T1 35205 M00S20319.1mt +++| RJM CBW COMPARE WINDOWS 35206 M00S20320.1mt +++| ZJN POSX RETURN IF GOOD COMPARE
| Line S01595 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35207 M01S01595.252l678 +++| SHN -6 CHECK FOR INVALID BID IN TEMP WINDOW 35208 M01S01596.252l678 +++| ZJN POS2 IF NO INVALID BLOCK ID-S 35209 M01S01597.252l678 +++| LJM POS8 INVALID BLOCK ID-S EXIST 35210 M01S01598.252l678 +++| 35211 M01S01599.252l678 +++| POS2 LDD WP CHECK FOR LAST GOOD RECORD VALID BID 35212 M01S01600.252l678 +++| STD T3 35213 M01S01601.252l678 +++| LDM BIDW,T3 35214 M01S01602.252l678 +++| STD T4 35215 M01S01603.252l678 +++| LMN 4 35216 M01S01604.252l678 +++| ZJN POS4 IF CANNOT TRY REPOSITION 35217 M01S01605.252l678 +++| SOD T3 CHECK LRG-1 NOT SAME 35218 M01S01606.252l678 +++| PJN POS3 IF NO OVERFLOW 35219 M01S01607.252l678 +++| LDN 7 35220 M01S01608.252l678 +++| STD T3 35221 M01S01609.252l678 +++| POS3 LDM BIDW,T3 35222 M01S01610.252l678 +++| LMD T4 35223 M01S01611.252l678 +++| NJN POS5 IF LAST TWO BID-S NOT THE SAME 35224 M01S01612.252l678 +++| POS4 LJM POS6 CANNOT TRY REPOSITION 35225 M01S01613.252l678 +++|
| Line S20321 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35226 M01S20321.252l678 ---| LDN 2 CHECK FOR TOO FAR BACKWARD
| Line S01614 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35227 M01S01614.252l678 +++| POS5 LDN 2 CHECK FOR TOO FAR BACKWARD 35228 M00S20322.1mt +++| STD T2
| Line S01615 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35229 M01S01615.252l678 +++| RAM POSA INCREASE REPOSITION COUNT BY TWO 35230 M00S20323.1mt +++| LDM POSB 35231 M00S20324.1mt +++| STD T1
| Line S20325 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35232 M01S20325.252l678 ---| RJM CBW 35233 M01S20326.252l678 ---| SHN -14 35234 M01S20327.252l678 ---| NJN POS3 IF NOT TOO FAR BACKWARD
| Line S01616 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35235 M01S01616.252l678 +++| LDM BIDW,T1 35236 M01S01617.252l678 +++| SBM TBDW,T2 35237 M01S01618.252l678 +++| NJN POS9 IF NOT TOO FAR BACKWARD 35238 M00S20328.1mt +++| LDD WP 35239 M00S20329.1mt +++| STD T9 35240 M00S20330.1mt +++| RJM SOB SET UP AND READ ONE BLOCK
| Line S20331 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35241 M01S20331.252l678 ---| LDM UBWB 35242 M01S20332.252l678 ---| LMM BIDW,WP 35243 M01S20333.252l678 ---| NJN POS2 IF POSITION LOST
| Line S01619 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35244 M01S01619.252l678 +++| LDM POSA 35245 M01S01620.252l678 +++| RJM BTW REBUILD BLOCK ID WINDOW 35246 M01S01621.252l678 +++| LDN 1 35247 M01S01622.252l678 +++| STD T2 35248 M01S01623.252l678 +++| LDM POSB 35249 M01S01624.252l678 +++| STD T1 35250 M01S01625.252l678 +++| RJM CBW RECOMPARE THE BID WINDOWS 35251 M01S01626.252l678 +++| NJN POS6 IF POSITION LOST 35252 M00S20334.1mt +++| LDN /MTX/SMB ISSUE SINGLE BLOCK MISPOSITION MESSAGE
| Line S20335 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35253 M01S20335.252l678 ---| LJM POS4 ISSUE ERROR MESSAGE
| Line S01627 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35254 M01S01627.252l678 +++| LJM POS11 ISSUE ERROR MESSAGE 35255 M00S20336.1mt +++|
| Line S20337 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35256 M01S20337.252l678 ---| POS2 LDN /MTX/PLO ISSUE POSITION LOST MESSAGE 35257 M01S20338.252l678 ---| STD EC
| Line S01628 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35258 M01S01628.252l678 +++| POS6 LDN /MTX/PLO ISSUE POSITION LOST MESSAGE 35259 M01S01629.252l678 +++| POS7 STD EC SAVE ERROR CODE 35260 M00S20339.1mt +++| RJM ISC ISSUE MESSAGE AND RECONNECT UNIT 35261 M00S20340.1mt +++| LJM RET4 RETURN FATAL ERROR 35262 M00S20341.1mt +++|
| Line S20342 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35263 M01S20342.252l678 ---| POS3 LDN 0 CHECK FOR TOO FAR FORWARD
| Line S01630 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35264 M01S01630.252l678 +++| POS8 LDN /MTX/MWT 35265 M01S01631.252l678 +++| UJN POS7 ISSUE MARGINALLY WRITTEN TAPE 35266 M01S01632.252l678 +++| 35267 M01S01633.252l678 +++| POS9 LDN 0 CHECK FOR TOO FAR FORWARD 35268 M00S20343.1mt +++| STD T2 35269 M00S20344.1mt +++| LDM POSB 35270 M00S20345.1mt +++| STD T1
| Line S20346 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35271 M01S20346.252l678 ---| RJM CBW
| Line S20347 Modification History | |
|---|---|
M01 (Removed by) | ns2466 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35272 M02S20347.252l678 ---| NJN POS2 IF POSISTION LOST
| Line S00287 Modification History | |
|---|---|
M01 (Added by) | ns2466 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35273 M02S00287.252l678 ---| NJN POS2 IF POSITION LOST
| Line S01634 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35274 M01S01634.252l678 +++| LDM BIDW,T1 35275 M01S01635.252l678 +++| SBM TBDW,T2 35276 M01S01636.252l678 +++| NJN POS6 IF POSITION LOST 35277 M00S20348.1mt +++| RJM BKS CORRECT FOR TOO FAR FORWARD AND RETRY 35278 M00S20349.1mt +++| LDM POSA 35279 M00S20350.1mt +++| RJM BTW 35280 M00S20351.1mt +++| LDN 1 35281 M00S20352.1mt +++| STD T2 35282 M00S20353.1mt +++| LDM POSB 35283 M00S20354.1mt +++| STD T1 35284 M00S20355.1mt +++| RJM CBW
| Line S20356 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35285 M01S20356.252l678 ---| NJN POS2 IF POSITION LOST 35286 M01S20357.252l678 ---| LDN /MTX/SMF ISSUE SINGLE BLOCK MISPOSTION MESSAGE 35287 M01S20358.252l678 ---| LJM POS4 ISSUE ERROR MESSAGE
| Line S01637 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35288 M01S01637.252l678 +++| ZJN POS10 IF POSITION NOT LOST 35289 M01S01638.252l678 +++| LJM POS6 POSITION LOST 35290 M01S01639.252l678 +++| 35291 M01S01640.252l678 +++| POS10 LDN /MTX/SMF ISSUE SINGLE BLOCK MISPOSITION MESSAGE 35292 M01S01641.252l678 +++| LJM POS11 ISSUE ERROR MESSAGE
| Line S20359 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35293 M01S20359.v23l617 ---| RBL SPACE 4,10 35294 M01S20360.v23l617 ---|** RBL - READ BLOCK. 35295 M01S20361.v23l617 ---|* 35296 M01S20362.v23l617 ---|* EXIT (A) = (T4) = 0, NO ERROR. 35297 M01S20363.v23l617 ---|* (T7) = 0, IF LGB INFORMATION MATCHES BLOCK WRITTEN. 35298 M01S20364.v23l617 ---|* 35299 M01S20365.v23l617 ---|* CALLS CKR, RDA. 35300 M01S20366.v23l617 ---| 35301 M01S20367.v23l617 ---| 35302 M01S20368.v23l617 ---| RBL SUBR ENTRY/EXIT 35303 M01S20369.v23l617 ---| RJM CKR CHECK FOR READY 35304 M01S20370.v23l617 ---| LDN 40 35305 M01S20371.v23l617 ---| RJM RDA READ DATA 35306 M01S20372.v23l617 ---| UJN RBLX RETURN 35307 M00S20373.1mt +++| RCI SPACE 4,10 35308 M00S20374.1mt +++|** RCI - READ *CIO* INFORMATION FROM *MAGNET,S FL. 35309 M00S20375.1mt +++|* 35310 M00S20376.1mt +++|* EXIT (T6 - T7) = FET ADDRESS. 35311 M00S20377.1mt +++|* (T1 - T5) = UCIC WORD. 35312 M00S20378.1mt +++|* 35313 M00S20379.1mt +++|* USES CM - CM+4. 35314 M00S20380.1mt +++|* 35315 M00S20381.1mt +++|* CALLS HNG. 35316 M00S20382.1mt +++|* 35317 M00S20383.1mt +++|* MACROS DELAY, MONITOR, PAUSE. 35318 M00S20384.1mt +++| 35319 M00S20385.1mt +++| 35320 M00S20386.1mt +++| RCI3 LDD MA READ WORDS 35321 M00S20387.1mt +++| CRD T6-3 35322 M00S20388.1mt +++| ADN 2 35323 M00S20389.1mt +++| CRD T1 35324 M00S20390.1mt +++| 35325 M00S20391.1mt +++| RCI SUBR ENTRY/EXIT 35326 M00S20392.1mt +++| RCI1 LDM UADA SET FWA OF DESIRED UDT WORDS 35327 M00S20393.1mt +++| ADN /MTX/UCIA 35328 M00S20394.1mt +++| STD CM+4 35329 M00S20395.1mt +++| LDC 300 REQUEST THREE WORDS 35330 M00S20396.1mt +++| STD CM+3 35331 M00S20397.1mt +++| LDN 0 REQUEST READ FROM *MAGNET* 35332 M00S20398.1mt +++| STD CM+1 35333 M00S20399.1mt +++| LCN 7777-/SSD/MTSI SET *MAGNET* SUBSYSTEM IDENTIFICATION 35334 M00S20400.1mt +++| STD CM+2 35335 M00S20401.1mt +++| MONITOR TDAM 35336 M00S20402.1mt +++| LDD CM+1 35337 M00S20403.1mt +++| ZJN RCI3 IF DONE 35338 M00S20404.1mt +++| SBN 2 35339 M00S20405.1mt +++| PJN RCI2 IF MOVE NOT IN PROGRESS 35340 M00S20406.1mt +++| PAUSE NE 35341 M00S20407.1mt +++| DELAY 35342 M00S20408.1mt +++| UJN RCI1 REISSUE REQUEST 35343 M00S20409.1mt +++| 35344 M00S20410.1mt +++| RCI2 RJM HNG HANG PP 35345 M00S20411.1mt +++| RDA SPACE 4,15 35346 M00S20412.1mt +++|** RDA - READ DATA. 35347 M00S20413.1mt +++|*
| Line S20414 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35348 M01S20414.v23l617 ---|* ENTRY (A) = READ FUNCTION CODE. 35349 M01S20415.v23l617 ---|* = 40 FOR FORWARD READ. 35350 M01S20416.v23l617 ---|* = 140 FOR REVERSE READ. 35351 M01S20417.v23l617 ---|* 35352 M00S20418.1mt +++|* EXIT (A) = (T4) = 0, NO ERROR.
| Line S20419 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35353 M01S20419.252l678 ---|* (T7) = 0, IF LGB INFORMATION MATCHES BLOCK WRITTEN. 35354 M00S20420.1mt +++|* (BY) = BYTE COUNT OF BLOCK.
| Line S20421 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35355 M01S20421.252l678 ---|* (XBUF - XBUF+3) = TRAILER BYTES FOR I FORMAT. 35356 M01S20422.252l678 ---|* (RDAF) = LGB INFORMATION FOR BLOCK JUST READ.
| Line S01642 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35357 M01S01642.252l678 +++|* (EBUF - EBUF+3) = TRAILER BYTES FOR I FORMAT.
| Line S08173 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35358 M01S08173.274l797 +++|* (EBUF-1 - EBUF+3) = PREFIX BYTES FOR LI FORMAT. 35359 M00S20423.1mt +++|* (UBWB) SET TO 1 IF TAPE MARK. 35360 M00S20424.1mt +++|*
| Line S01643 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35361 M01S01643.252l678 +++|* USES T3, T4. 35362 M01S01644.252l678 +++|*
| Line S20425 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35363 M01S20425.v23l617 ---|* CALLS ABC, /WRITE/CKS, FCN, MCC, WEO.
| Line S00577 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35364 M02S00577.274l797 ---|* CALLS ABC, /WRITE/CKS, CKR, FCN, MCC, WEO.
| Line S08174 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35365 M01S08174.274l797 +++|* CALLS ABC, CKR, FCN, WEO. 35366 M00S20426.1mt +++| 35367 M00S20427.1mt +++| 35368 M00S20428.1mt +++| RDA SUBR ENTRY/EXIT
| Line S20429 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35369 M01S20429.v23l617 ---| RJM FCN ISSUE READ FUNCTION
| Line S00578 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35370 M01S00578.v23l617 +++| RJM CKR CHECK READY
| Line S00579 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35371 M02S00579.274l797 ---| LDN 40 ISSUE READ FUNCTION
| Line S08175 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35372 M01S08175.274l797 +++| LDN F0040 ISSUE READ FUNCTION
| Line S00580 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35373 M01S00580.v23l617 +++| RJM FCN 35374 M00S20430.1mt +++| ACN CH
| Line S20431 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35375 M01S20431.252l678 ---| RDA1 LCN 0 SET DATA PARAMETERS 35376 M01S20432.252l678 ---| STD T3 35377 M01S20433.252l678 ---| LDN 20 35378 M01S20434.252l678 ---| STD T2 35379 M01S20435.252l678 ---| LDC EBUF-1 PRESET BUFFER ADDRESS 35380 M01S20436.252l678 ---| STM RDAC 35381 M01S20437.252l678 ---| LDN 0 35382 M01S20438.252l678 ---| STM RDAD 35383 M01S20439.252l678 ---| LDC 1010 SET BUFFER SIZE 35384 M01S20440.252l678 ---| 35385 M01S20441.252l678 ---|* INPUT DATA. 35386 M01S20442.252l678 ---| 35387 M01S20443.252l678 ---| STD BY INPUT FIRST 1010 BYTES (104D CM WORDS) 35388 M01S20444.252l678 ---| IAM EBUF,CH 35389 M01S20445.252l678 ---| ZJN RDA2 IF NOT END OF DATA 35390 M01S20446.252l678 ---| LMC -0 35391 M01S20447.252l678 ---| RAD BY 35392 M01S20448.252l678 ---| STD T4 35393 M01S20449.252l678 ---| LJM RDA7 CHECK FOR ERRORS 35394 M01S20450.252l678 ---| 35395 M01S20451.252l678 ---| RDA2 LDN 50 35396 M01S20452.252l678 ---| IAM XBUF,CH 35397 M01S20453.252l678 ---| NJN RDA3 IF END OF DATA 35398 M01S20454.252l678 ---| SOD T3 35399 M01S20455.252l678 ---| NJN RDA2 IF NOT END OF INPUT 35400 M01S20456.252l678 ---| LDN 50 35401 M01S20457.252l678 ---| IAM XBUF,CH 35402 M01S20458.252l678 ---| NJN RDA3 IF END OF DATA 35403 M01S20459.252l678 ---| SOD T2 35404 M01S20460.252l678 ---| NJN RDA2 IF NOT TIME OUT 35405 M01S20461.252l678 ---| RJM MCC 35406 M01S20462.252l678 ---| LCN 0 35407 M01S20463.252l678 ---| STD BY 35408 M01S20464.252l678 ---| AOM RDAD SET BLOCK LENGTH .GT. 7777 BYTES 35409 M01S20465.252l678 ---| LJM RDA7 CHECK FOR ERRORS 35410 M01S20466.252l678 ---| 35411 M01S20467.252l678 ---| RDA3 LMC -0 35412 M01S20468.252l678 ---| ADN 50 35413 M01S20469.252l678 ---| STD T4 35414 M01S20470.252l678 ---| RAD BY 35415 M01S20471.252l678 ---| LDD T4 35416 M01S20472.252l678 ---| NJN RDA4 IF REMAINDER 35417 M01S20473.252l678 ---| LDN 50 35418 M01S20474.252l678 ---| STD T4 35419 M01S20475.252l678 ---| RDA4 AOD T3 35420 M01S20476.252l678 ---| SHN -14 35421 M01S20477.252l678 ---| NJN RDA5 IF ROLLOVER 35422 M01S20478.252l678 ---| LDN 50 35423 M01S20479.252l678 ---| RAD BY 35424 M01S20480.252l678 ---| SHN -14 35425 M01S20481.252l678 ---| ZJN RDA4 IF BLOCK .LE. 7777 BYTES 35426 M01S20482.252l678 ---| AOM RDAD SET BLOCK LENGTH .GT. 7777 35427 M01S20483.252l678 ---| UJN RDA4 LOOP 35428 M01S20484.252l678 ---| 35429 M01S20485.252l678 ---| RDA5 AOD T2 35430 M01S20486.252l678 ---| LMN 21 35431 M01S20487.252l678 ---| ZJN RDA6 IF ALL BYTES COUNTED 35432 M01S20488.252l678 ---| LCN 0 SET BYTE COUNT TO 7777 35433 M01S20489.252l678 ---| STD BY 35434 M01S20490.252l678 ---| RDA6 LDC XBUF-1 35435 M01S20491.252l678 ---| STM RDAC
| Line S01645 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35436 M01S01645.252l678 +++| RDA1 LDN 0 35437 M01S01646.252l678 +++| STD T3 CLEAR LOOP COUNTER 35438 M01S01647.252l678 +++| STD BY 35439 M01S01648.252l678 +++|
| Line S01649 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35440 M02S01649.274l797 ---|* FLUSH DATA BUT COUNT BYTES AND SAVE LAST CHUNK.
| Line S08176 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35441 M01S08176.274l797 +++|* FLUSH DATA, COUNT BYTES, SAVE TRAILER (I FORMAT), SAVE 35442 M01S08177.274l797 +++|* PREFIX (LI FORMAT).
| Line S01650 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35443 M01S01650.252l678 +++| 35444 M01S01651.252l678 +++| RDA2 LDC 500 INPUT DATA IN 500B WORD CHUNKS 35445 M01S01652.252l678 +++| IAM EBUF,CH
| Line S08178 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35446 M01S08178.274l797 +++| RDAD EQU *-1 35447 M01S08179.274l797 +++|* IAM EBUF-1,CH (LI FORMAT)
| Line S01653 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35448 M01S01653.252l678 +++| NJN RDA3 IF END OF DATA
| Line S01654 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35449 M02S01654.274l797 ---| AOD T3 INCREMENT LOOP COUNTER
| Line S08180 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35450 M01S08180.274l797 +++| RDA2.1 AOD T3 INCREMENT LOOP COUNTER
| Line S01655 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35451 M01S01655.252l678 +++| UJN RDA2 LOOP UNTIL END OF DATA
| Line S01656 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35452 M02S01656.274l797 ---|
| Line S08181 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35453 M01S08181.274l797 +++| RDAE EQU *-1 35454 M01S08182.274l797 +++|* LDC 500 (LI FORMAT) 35455 M01S08183.274l797 +++| DATA 500 35456 M01S08184.274l797 +++| IAM EBUF+4,CH 35457 M01S08185.274l797 +++| ZJN RDA2.1 IF ALL WORDS TRANSFERRED
| Line S01657 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35458 M01S01657.252l678 +++| RDA3 STD T4 SAVE REMAINDER 35459 M01S01658.252l678 +++| LDC 500 35460 M01S01659.252l678 +++| SBD T4 35461 M01S01660.252l678 +++| STD T4
| Line S01661 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35462 M02S01661.274l797 ---| RDA4 LDD T3 LOAD LOOP COUNT
| Line S08186 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35463 M01S08186.274l797 +++| LDD T3 LOAD LOOP COUNT
| Line S01662 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35464 M01S01662.252l678 +++| ZJN RDA5 IF NOT GREATER THAN 500 WORDS
| Line S01663 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35465 M02S01663.274l797 ---| RDA4.1 LDC 500
| Line S08187 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35466 M01S08187.274l797 +++| RDA4 LDC 500
| Line S01664 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35467 M01S01664.252l678 +++| RAD BY 35468 M01S01665.252l678 +++| SHN -12D 35469 M01S01666.252l678 +++| NJN RDA6 IF GREATER THAN 7777 WORDS 35470 M01S01667.252l678 +++| SOD T3 DECREMENT LOOP COUNT
| Line S01668 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35471 M02S01668.274l797 ---| NJN RDA4.1 IF NOT LAST CHUNK
| Line S08188 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35472 M01S08188.274l797 +++| NJN RDA4 IF NOT LAST CHUNK
| Line S01669 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35473 M01S01669.252l678 +++| RDA5 LDD T4 LOAD REMAINDER 35474 M01S01670.252l678 +++| NJN RDA5.1 IF NOT EVEN CHUNK 35475 M01S01671.252l678 +++| LDC 500 SET TO LAST ADDRESS OF CHUNK 35476 M01S01672.252l678 +++| STD T4 35477 M01S01673.252l678 +++| UJN RDA7 EXIT 35478 M01S01674.252l678 +++| 35479 M01S01675.252l678 +++| RDA5.1 RAD BY 35480 M01S01676.252l678 +++| SHN -12D 35481 M01S01677.252l678 +++| ZJN RDA7 IF NO BORROW 35482 M01S01678.252l678 +++| RDA6 LCN 0 35483 M01S01679.252l678 +++| STD BY SET BYTE COUNT TO 7777 35484 M00S20492.1mt +++| RDA7 RJM WEO WAIT END OF OPERATION 35485 M00S20493.1mt +++| SCN 74 35486 M00S20494.1mt +++| ZJN RDA9 IF NO ERRORS 35487 M00S20495.1mt +++| SHN 21-10 35488 M00S20496.1mt +++| RDAA PJN RDA8 IF NOT NOISE 35489 M00S20497.1mt +++|* UJN RDA8 (ATS UNIT) 35490 M00S20498.1mt +++| LDN 42 ISSUE REPEAT READ 35491 M00S20499.1mt +++| RJM FCN 35492 M00S20500.1mt +++| ACN CH 35493 M00S20501.1mt +++| LJM RDA1 REINITIATE READ 35494 M00S20502.1mt +++| 35495 M00S20503.1mt +++| RDA8 LDM MTDS 35496 M00S20504.1mt +++| LPC 7077 35497 M00S20505.1mt +++| RDAB EQU *-1 35498 M00S20506.1mt +++|* LPC 7777 (ATS UNIT) 35499 M00S20507.1mt +++| ZJN RDA9 IF ONLY WARNING STATUS 35500 M00S20508.1mt +++| LCN 0
| Line S20509 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35501 M01S20509.252l678 ---| RDA9 STM RDAF
| Line S01680 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35502 M01S01680.252l678 +++| RDA9 STM RDAC 35503 M00S20510.1mt +++| RJM ABC 35504 M00S20511.1mt +++| ZJN RDA10 IF NO BYTE ADJUSTMENT 35505 M00S20512.1mt +++| SOD T4 35506 M00S20513.1mt +++| 35507 M00S20514.1mt +++|* MOVE I FORMAT TRAILOR INFORMATION. 35508 M00S20515.1mt +++| 35509 M00S20516.1mt +++| RDA10 LDN 3
| Line S08189 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35510 M01S08189.274l797 +++| RDAF EQU *-1 35511 M01S08190.274l797 +++|* UJN RDA15 (LI FORMAT) 35512 M00S20517.1mt +++| STD T5 35513 M00S20518.1mt +++| RDA11 LDM EBUF-1,T4
| Line S20519 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35514 M01S20519.252l678 ---|* LDM XBUF-1,T4 (BUFFER OVERFLOW) 35515 M01S20520.252l678 ---| RDAC EQU *-1 35516 M01S20521.252l678 ---| STM XBUF,T5
| Line S01681 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35517 M01S01681.252l678 +++| STM EBUF,T5 35518 M00S20522.1mt +++| SOD T4 35519 M00S20523.1mt +++| SOD T5 35520 M00S20524.1mt +++| PJN RDA11 IF MORE DATA TO MOVE
| Line S20525 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35521 M01S20525.252l678 ---| 35522 M01S20526.252l678 ---|* CHECKSUM DATA. 35523 M01S20527.252l678 ---| 35524 M01S20528.252l678 ---| LDD LG+1 GENERATE BLOCK CHECKSUM FOR BLOCK READ 35525 M01S20529.252l678 ---| STD T7 35526 M01S20530.252l678 ---| LDD BY 35527 M01S20531.252l678 ---| STD T6
| Line S20532 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35528 M02S20532.252l678 ---| LDM /WRITE/CKSC SAVE BUFFER ADDRESS 35529 M02S20533.252l678 ---| STM RDAE
| Line S20534 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35530 M01S20534.252l678 ---| LDD FM 35531 M01S20535.252l678 ---| LMN /MTX/TFL 35532 M01S20536.252l678 ---| ZJN RDA12 IF L FORMAT 35533 M01S20537.252l678 ---| LMN /MTX/TFF&/MTX/TFL 35534 M01S20538.252l678 ---| NJN RDA14 IF NOT F FORMAT 35535 M01S20539.252l678 ---| RDA12 LDC 0 35536 M01S20540.252l678 ---| RDAD EQU *-1 35537 M01S20541.252l678 ---| NJN RDA13 IF BLOCK .GT. 7777 BYTES 35538 M01S20542.252l678 ---| LDD BY 35539 M01S20543.252l678 ---| ADC -LCKS 35540 M01S20544.252l678 ---| MJN RDA14 IF BLOCK .LT. 5000 BYTES 35541 M01S20545.252l678 ---| RDA13 LCN 0 RESET BYTE COUNT 35542 M01S20546.252l678 ---| STD T6
| Line S20547 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35543 M02S20547.252l678 ---| LDC LCKS SET BYTE COUNT FOR CHECKSUM 35544 M02S20548.252l678 ---| STD BY 35545 M02S20549.252l678 ---| RDA14 LDC EBUF 35546 M02S20550.252l678 ---| STM /WRITE/CKSC 35547 M02S20551.252l678 ---| RJM /WRITE/CKS 35548 M02S20552.252l678 ---| LDC * RESTORE BUFFER ADDRESS 35549 M02S20553.252l678 ---| RDAE EQU *-1 35550 M02S20554.252l678 ---| STM /WRITE/CKSC 35551 M02S20555.252l678 ---| LDD T6 RESTORE BYTE COUNT
| Line S00280 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35552 M02S00280.252l678 ---| RDA14 LDM UBWB USE HARDWARE CHECKSUM 35553 M02S00281.252l678 ---| STD LG+1 35554 M02S00282.252l678 ---| NJN RDA14.1 IF NOT INCREMENT LAST BLOCK COUNT 35555 M02S00283.252l678 ---| AOD LG+1 35556 M02S00284.252l678 ---| RDA14.1 LDD T6 RESTORE BYTE COUNT
| Line S20556 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35557 M01S20556.252l678 ---| STD BY 35558 M01S20557.252l678 ---| LDD LG+1 SAVE CHECKSUM FOR THIS BLOCK 35559 M01S20558.252l678 ---| STM RDAG 35560 M01S20559.252l678 ---| LDD T7 RESTORE PREVIOUS CHECKSUM 35561 M01S20560.252l678 ---| STD LG+1 35562 M01S20561.252l678 ---| 35563 M01S20562.252l678 ---|* SET STATUSES. 35564 M01S20563.252l678 ---| 35565 M01S20564.252l678 ---| LDC * SET EXIT CONDITION 35566 M01S20565.252l678 ---| RDAF EQU *-1 35567 M01S20566.252l678 ---| STD T4 35568 M01S20567.252l678 ---| LDD LG+1 SET CHECKSUM COMPARE FLAG 35569 M01S20568.252l678 ---| LMM RDAG 35570 M01S20569.252l678 ---| STD T7 35571 M00S20570.1mt +++| LDM ABCC 35572 M00S20571.1mt +++| ZJN RDA15 IF NO ADJUSTMENT 35573 M00S20572.1mt +++| SOD BY 35574 M00S20573.1mt +++| RDA15 LDD DS CHECK FOR TAPE MARK 35575 M00S20574.1mt +++| LPN 20 35576 M00S20575.1mt +++| LMN 20 35577 M00S20576.1mt +++| NJN RDA17 IF NOT TAPE MARK 35578 M00S20577.1mt +++| STD BY
| Line S20578 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35579 M01S20578.252l678 ---| STM RDAG 35580 M00S20579.1mt +++| LDN 1 SET TAPE MARK INDICATION 35581 M00S20580.1mt +++| STM UBWB
| Line S20581 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35582 M01S20581.252l678 ---| LDD LG+1 35583 M01S20582.252l678 ---| NJN RDA16 IF LGB NOT TAPE MARK 35584 M01S20583.252l678 ---| STD T7
| Line S20584 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35585 M01S20584.274l797 ---| RDA16 LDD HP
| Line S08191 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 35586 M01S08191.274l797 +++| LDD HP 35587 M00S20585.1mt +++| LPN 1 35588 M00S20586.1mt +++| NJN RDA17 IF 9 TRACK 35589 M00S20587.1mt +++| LDD MD 35590 M00S20588.1mt +++| SHN 21-6 35591 M00S20589.1mt +++| MJN RDA17 IF 7 TRACK CODED 35592 M00S20590.1mt +++| LDN 0 CLEAR ERROR INDICATION
| Line S20591 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35593 M01S20591.252l678 ---| STD T4 35594 M01S20592.252l678 ---| RDA17 LDD T4
| Line S01682 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35595 M01S01682.252l678 +++| STM RDAC 35596 M01S01683.252l678 +++| RDA17 LDM RDAC LOAD EXIT FLAG 35597 M01S01684.252l678 +++| STD T4 35598 M00S20593.1mt +++| LJM RDAX RETURN 35599 M00S20594.1mt +++|
| Line S20595 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35600 M01S20595.252l678 ---| 35601 M01S20596.252l678 ---| RDAG CON 0 CHECKSUM FOR BLOCK READ
| Line S01685 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35602 M01S01685.252l678 +++| 35603 M01S01686.252l678 +++| RDAC CON 0 EXIT FLAG
| Line S20597 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35604 M01S20597.v23l617 ---| RTR SPACE 4,10 35605 M01S20598.v23l617 ---|** RTR - READ TAPE REVERSE. 35606 M01S20599.v23l617 ---|* 35607 M01S20600.v23l617 ---|* EXIT (A) = NEGATIVE, IF BOT. 35608 M01S20601.v23l617 ---|* 35609 M01S20602.v23l617 ---|* CALLS CKR, RDA, STW. 35610 M01S20603.v23l617 ---| 35611 M01S20604.v23l617 ---| 35612 M01S20605.v23l617 ---| RTR SUBR ENTRY/EXIT 35613 M01S20606.v23l617 ---| RJM CKR CHECK FOR READY 35614 M01S20607.v23l617 ---| LDN 2 WAIT NOT BUSY 35615 M01S20608.v23l617 ---| RJM STW 35616 M01S20609.v23l617 ---| LDC 140 35617 M01S20610.v23l617 ---| RJM RDA READ DATA 35618 M01S20611.v23l617 ---| LDN 2 WAIT NOT BUSY 35619 M01S20612.v23l617 ---| RJM STW 35620 M01S20613.v23l617 ---| SHN 21-2 35621 M01S20614.v23l617 ---| UJN RTRX RETURN 35622 M00S20615.1mt +++| SOB SPACE 4,10 35623 M00S20616.1mt +++|** SOB - SET UP AND READ ONE BLOCK. 35624 M00S20617.1mt +++|* 35625 M00S20618.1mt +++|* ENTRY (T9) = POINTER TO BID WINDOW. 35626 M00S20619.1mt +++|* 35627 M00S20620.1mt +++|* EXIT (UBWB) = BID OF READ CORRECTED FOR CLIPPING LEVEL AND 35628 M00S20621.1mt +++|* READ ERRORS. 35629 M00S20622.1mt +++|* 35630 M00S20623.1mt +++|* USES T0. 35631 M00S20624.1mt +++|*
| Line S20625 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35632 M01S20625.v23l617 ---|* CALLS FCN, RBL.
| Line S00581 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35633 M01S00581.v23l617 +++|* CALLS FCN, RDA. 35634 M00S20626.1mt +++| 35635 M00S20627.1mt +++|
| Line S20628 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35636 M01S20628.v23l617 ---| SOB2 RJM RBL READ A BLOCK
| Line S00582 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35637 M01S00582.v23l617 +++| SOB2 RJM RDA READ BLOCK 35638 M00S20629.1mt +++| ZJN SOBX IF GOOD READ 35639 M00S20630.1mt +++| SOB3 LDN 4 SET UNUSABLE BID 35640 M00S20631.1mt +++| STM UBWB 35641 M00S20632.1mt +++| 35642 M00S20633.1mt +++| SOB SUBR ENTRY/EXIT 35643 M00S20634.1mt +++| LDD MD CHECK IF PARITY CHANGE NEEDED 35644 M00S20635.1mt +++| SHN -5 35645 M00S20636.1mt +++| LMM BIDW,T9 35646 M00S20637.1mt +++| LPN 2 35647 M00S20638.1mt +++| ZJN SOB1 IF NO CHANGE NEEDED 35648 M00S20639.1mt +++| LDD HP 35649 M00S20640.1mt +++| LPN 1 35650 M00S20641.1mt +++| NJN SOB1 IF 9 TRACK 35651 M00S20642.1mt +++| LDN 5 TOGGLE TO OPPOSITE PARITY 35652 M00S20643.1mt +++| RJM FCN 35653 M00S20644.1mt +++| SOB1 LDM BIDW,T9 CHECK IF CHANGE IN CLIPPING LEVEL NEEDED 35654 M00S20645.1mt +++| SHN 21-2 35655 M00S20646.1mt +++| PJN SOB2 IF NO CHANGE NEEDED 35656 M00S20647.1mt +++| LPN 7 SET CLIPPING LEVEL 35657 M00S20648.1mt +++| SHN 6 35658 M00S20649.1mt +++| ADN 6 35659 M00S20650.1mt +++| RJM FCN
| Line S20651 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35660 M01S20651.v23l617 ---| RJM RBL READ A BLOCK
| Line S00583 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 35661 M01S00583.v23l617 +++| RJM RDA READ BLOCK 35662 M00S20652.1mt +++| NJN SOB3 IF ERROR 35663 M00S20653.1mt +++| LDM BIDW,T9 ADD CLIPPING LEVEL TO LAST BID 35664 M00S20654.1mt +++| LPN 74 35665 M00S20655.1mt +++| STD T0 35666 M00S20656.1mt +++| LDM UBWB 35667 M00S20657.1mt +++| SCN 74 35668 M00S20658.1mt +++| LMD T0 35669 M00S20659.1mt +++| STM UBWB 35670 M00S20660.1mt +++| LJM SOBX RETURN 35671 M00S20661.1mt +++| WFC SPACE 4,10 35672 M00S20662.1mt +++|** WFC - WAIT BACKSPACE FUNCTION COMPLETE. 35673 M00S20663.1mt +++|* TIMES OUT APPROXIMATELY 25 FEET OF TAPE. 35674 M00S20664.1mt +++|* 35675 M00S20665.1mt +++|* EXIT (DS) = UNIT STATUS. 35676 M00S20666.1mt +++|* 35677 M00S20667.1mt +++|* USES T2. 35678 M00S20668.1mt +++|* 35679 M00S20669.1mt +++|* CALLS //STW. 35680 M00S20670.1mt +++| 35681 M00S20671.1mt +++| 35682 M00S20672.1mt +++| WFC2 CON 0 ENTERED VIA *RJM* FROM //STW 35683 M00S20673.1mt +++| SOD T2 35684 M00S20674.1mt +++| NJN WFC1 IF NOT TIMEOUT 35685 M00S20675.1mt +++| LDC //ERR RESET ERROR EXIT 35686 M00S20676.1mt +++| STM //STWC 35687 M00S20677.1mt +++| UJN WFC1 ATTEMPT 1 MORE WAIT 35688 M00S20678.1mt +++| 35689 M00S20679.1mt +++| WFC SUBR ENTRY/EXIT
| Line S20680 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35690 M01S20680.252l678 ---| WFCA LDN ** SET DELAY ACCORDING TO UNIT SPEED
| Line S00584 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35691 M02S00584.252l678 ---|* LDN 34 (25 IPS ISMT UNIT)
| Line S20681 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35692 M01S20681.252l678 ---|* LDN 27 (75 IPS UNIT) 35693 M01S20682.252l678 ---|* LDN 21 (100 IPS UNIT) 35694 M01S20683.252l678 ---|* LDN 17 (125 IPS UNIT) 35695 M01S20684.252l678 ---|* LDN 15 (150 IPS UNIT) 35696 M01S20685.252l678 ---|* LDN 10 (200 IPS UNIT)
| Line S01687 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 35697 M01S01687.252l678 +++| LDC 2000 SET TIME OUT 35698 M00S20686.1mt +++| STD T2 35699 M00S20687.1mt +++| LDC WFC2 SET RETURN ON TIMEOUT IN //STW 35700 M00S20688.1mt +++| STM //STWC 35701 M00S20689.1mt +++| WFC1 LDN 2 WAIT NOT BUSY 35702 M00S20690.1mt +++| RJM //STW 35703 M00S20691.1mt +++| LDC //ERR RESET ERROR EXIT 35704 M00S20692.1mt +++| STM //STWC 35705 M00S20693.1mt +++| UJN WFCX RETURN
| Line S20694 Modification History | |
|---|---|
M01 (Removed by) | 1mt36 |
Seq # *Modification Id* Act ----------------------------+ 35706 M01S20694.1mt36 ---| WNB SPACE 4,10 35707 M01S20695.1mt36 ---|** WNB - WAIT NOT BUSY. 35708 M01S20696.1mt36 ---|* 35709 M01S20697.1mt36 ---|* CALLS STW. 35710 M01S20698.1mt36 ---|* 35711 M01S20699.1mt36 ---|* USES T2. 35712 M01S20700.1mt36 ---| 35713 M01S20701.1mt36 ---| 35714 M01S20702.1mt36 ---| WNB2 CON 0 ENTERED VIA *RJM* FROM //STW 35715 M01S20703.1mt36 ---| SOD T2 35716 M01S20704.1mt36 ---| NJN WNB1 IF NOT TIMEOUT 35717 M01S20705.1mt36 ---| LDC //ERR RESET ERROR EXIT 35718 M01S20706.1mt36 ---| STM //STWC 35719 M01S20707.1mt36 ---| UJN WNB1 ATTEMPT 1 MORE WAIT 35720 M01S20708.1mt36 ---| 35721 M01S20709.1mt36 ---| WNB SUBR ENTRY/EXIT 35722 M01S20710.1mt36 ---| LDM /WRITE/CNWA 35723 M01S20711.1mt36 ---| LMC LJMI 35724 M01S20712.1mt36 ---| NJN WNB1 IF NOT LONG BLOCKS 35725 M01S20713.1mt36 ---| LDC WNB2 SET RETURN ON TIMEOUT FROM //STW 35726 M01S20714.1mt36 ---| STM //STWC 35727 M01S20715.1mt36 ---| LDD OV SET TIMEOUT ACCORDING TO BLOCK LENGTH 35728 M01S20716.1mt36 ---| SHN -2 35729 M01S20717.1mt36 ---| ADN 1 INSURE NON-ZERO 35730 M01S20718.1mt36 ---| STD T2 35731 M01S20719.1mt36 ---| WNB1 LDN 2 WAIT NOT BUSY 35732 M01S20720.1mt36 ---| RJM //STW 35733 M01S20721.1mt36 ---| LDC //ERR RESET ERROR EXIT 35734 M01S20722.1mt36 ---| STM //STWC 35735 M01S20723.1mt36 ---| UJN WNBX RETURN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt36 |
Seq # *Modification Id* Act ----------------------------+ 35736 M01S00001.1mt36 +++| WNB SPACE 4,10 35737 M01S00002.1mt36 +++|** WNB - WAIT NOT BUSY ON *CMTS* OR *FSC* CONTROLLER. 35738 M01S00003.1mt36 +++|*
| Line S01531 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35739 M01S01531.282l826 +++|* USES T2, CM - CM+4. 35740 M01S01532.282l826 +++|*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1mt36 |
Seq # *Modification Id* Act ----------------------------+ 35741 M01S00004.1mt36 +++|* CALLS ERR, FCN, STW. 35742 M01S00005.1mt36 +++|*
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1mt36 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35743 M02S00006.282l826 ---|* USES T2.
| Line S01533 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35744 M01S01533.282l826 +++|* MACROS SFA.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1mt36 |
Seq # *Modification Id* Act ----------------------------+ 35745 M01S00007.1mt36 +++| 35746 M01S00008.1mt36 +++| 35747 M01S00009.1mt36 +++| WNB SUBR ENTRY/EXIT 35748 M01S00010.1mt36 +++| LDC 2000 35749 M01S00011.1mt36 +++| STD T2 35750 M01S00012.1mt36 +++| WNB1 LDN 0 35751 M01S00013.1mt36 +++| RJM //STW WAIT FOR END OF OPERATION 35752 M01S00014.1mt36 +++| LPN 2 35753 M01S00015.1mt36 +++| ZJN WNBX IF UNIT NOT BUSY 35754 M01S00016.1mt36 +++| SOD T2 35755 M01S00017.1mt36 +++| ZJN WNB2 IF TIMEOUT 35756 M01S00018.1mt36 +++| LDN 1 35757 M01S00019.1mt36 +++| RJM FCN RELEASE UNIT
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 1mt36 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35758 M02S00020.282l826 ---| LDD ED
| Line S01534 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 35759 M01S01534.282l826 +++| SFA EST,EO 35760 M01S01535.282l826 +++| ADK EQDE 35761 M01S01536.282l826 +++| CRD CM 35762 M01S01537.282l826 +++| LDD CM+4
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 1mt36 |
Seq # *Modification Id* Act ----------------------------+ 35763 M01S00021.1mt36 +++| LPN 17 GET UNIT NUMBER 35764 M01S00022.1mt36 +++| LMN 20 35765 M01S00023.1mt36 +++| RJM FCN CONNECT UNIT 35766 M01S00024.1mt36 +++| UJN WNB1 CONTINUE WAITING 35767 M01S00025.1mt36 +++| 35768 M01S00026.1mt36 +++| WNB2 LDN /MTX/WEO 35769 M01S00027.1mt36 +++| RJM ERR ISSUE ERROR MESSAGE 35770 M00S20724.1mt +++| SPACE 4,10 35771 M00S20725.1mt +++| ADDR TSAD SMER 35772 M00S20726.1mt +++| SPACE 4,10 35773 M00S20727.1mt +++|** BUFFERS FOR READING DURING WRITE RECOVERY.
Proceed to Part 27
cdc/nos2.source/opl.opl871/deck/1mt.026.txt · Last modified: by 127.0.0.1