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.