User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1mt.027

Deck 1MT Part 027

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
35774  M00S20728.1mt     +++|
35775  M00S20729.1mt     +++|
35776  M00S20730.1mt     +++| EBUF     BSS    0
Line S20731 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35777  M01S20731.252l678 ---| XBUF     EQU    EBUF+1012
35778  M01S20732.252l678 ---|          ERRNG  7777-XBUF-50 WRAPPED AROUND
Line S01688 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35779  M02S01688.274l797 ---|          ERRNG  7777-EBUF-510  BUFFER DOES NOT FIT WITHIN PP
Line S08192 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35780  M01S08192.274l797 +++|          ERRNG  7777-EBUF-4-510  BUFFER DOES NOT FIT WITHIN PP
Line S20733 Modification History
M01 (Removed by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35781  M01S20733.1mt36   ---| ERROVL   SPACE  4,10
35782  M01S20734.1mt36   ---|          ERROVL
35783  M01S20735.1mt36   ---| CTAB     SPACE  4,10
Line S01689 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35784  M02S01689.1mt36   ---|**        NOTE - CODE AFTER THIS POINT WILL BE DESTROYED WHEN CALLING
35785  M02S01690.1mt36   ---|*         THE ERROR PROCESSOR *EMM* OR WHEN THE TAPE IS POSITIONED.
35786  M02S01691.1mt36   ---|*         ALL CALLS TO THIS CODE MUST BE DONE PRIOR TO THAT POINT.
Line S01692 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35787  M01S01692.252l678 +++| WLP      SPACE  4,15
35788  M01S01693.252l678 +++|**        WLP - LOAD POINT RECOVERY.
35789  M01S01694.252l678 +++|*
35790  M01S01695.252l678 +++|*         ENTRY  DETAIL STATUS BUFFERS SET UP.
35791  M01S01696.252l678 +++|*
35792  M01S01697.252l678 +++|*         EXIT   (A) .LT. 0 IF NOT *TCF* OR *BFW* ERROR OR
35793  M01S01698.252l678 +++|*                           IF *TCF* OR *BFW* ERROR WAS RECOVERED.
35794  M01S01699.252l678 +++|*                (A) = 0 IF RETRY ON *BFW* ERROR.
35795  M01S01700.252l678 +++|*
35796  M01S01701.252l678 +++|*         ERROR  TO *RET4* IF LOAD POINT PROBLEM.
35797  M01S01702.252l678 +++|*                (EC) = *TCF* OR *BFW*.
35798  M01S01703.252l678 +++|*
Line S01704 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35799  M02S01704.1mt36   ---|*         CALLS  *EMM*, FCN, WFC.
Line S00028 Modification History
M01 (Added by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35800  M01S00028.1mt36   +++|*         USES   T1.
35801  M01S00029.1mt36   +++|*
Line S00030 Modification History
M01 (Added by) 1mt36
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35802  M02S00030.282l826 ---|*         CALLS  *EMM*, FCN, WFC, WNB.
Line S01538 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35803  M01S01538.282l826 +++|*         CALLS  DTS, *EMM*, FCN, WFC, WNB.
Line S01705 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35804  M01S01705.252l678 +++|*
35805  M01S01706.252l678 +++|*         MACROS CALL.
35806  M01S01707.252l678 +++|
35807  M01S01708.252l678 +++|
35808  M01S01709.252l678 +++| WLP      SUBR               ENTRY/EXIT
35809  M01S01710.252l678 +++|          LDD    EC
35810  M01S01711.252l678 +++|          NJN    WLP0        IF ERROR
35811  M01S01712.252l678 +++|          RJM    DTS         GET DETAILED STATUS
35812  M01S01713.252l678 +++|
35813  M01S01714.252l678 +++|*         SAVE CURRENT EQUIPMENT STATUS.
35814  M01S01715.252l678 +++|
35815  M01S01716.252l678 +++| WLP0     LDD    DS          SAVE GENERAL STATUS
Line S01717 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35816  M02S01717.282l826 ---|          STM    WLPSB
Line S01539 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35817  M01S01539.282l826 +++|          STM    WLPA
Line S01718 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35818  M01S01718.252l678 +++|          LDM    UBWB        SAVE BLOCK ID
Line S01719 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35819  M02S01719.282l826 ---|          STM    WLPSB+1
Line S01540 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35820  M01S01540.282l826 +++|          STM    WLPB
Line S01720 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35821  M01S01720.252l678 +++|          LDN    0           SAVE DETAIL STATUS
35822  M01S01721.252l678 +++|          STD    T1
35823  M01S01722.252l678 +++| WLP1     LDM    MTDS,T1     MOVE ALL DETAIL STATUS WORDS
Line S01723 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35824  M02S01723.282l826 ---|          STM    WLPSB+2,T1
Line S01541 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35825  M01S01541.282l826 +++|          STM    WLPC,T1
Line S01724 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35826  M01S01724.252l678 +++|          AOD    T1          INCREMENT STATUS WORD COUNTER
Line S01725 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35827  M02S01725.282l826 ---|          SBN    BIDW-MTDS+1 MAXIMUM NUMBER OF WORDS TO MOVE
Line S01542 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35828  M01S01542.282l826 +++|          SBN    16
Line S01726 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35829  M01S01726.252l678 +++|          NJN    WLP1        IF NOT ALL STATUS WORDS MOVED
35830  M01S01727.252l678 +++|          LDM    ATUS+2      GET DETAIL STATUS WORD 13
35831  M01S01728.252l678 +++|          SHN    21-2        POSITION CLEANER ACTIVE BIT
35832  M01S01729.252l678 +++|          PJN    WLP2        IF CLEANER PARKED
35833  M01S01730.252l678 +++|          LDD    EP          SET LOAD POINT ERROR FLAG
35834  M01S01731.252l678 +++|          LPC    6777
35835  M01S01732.252l678 +++|          ADC    1000
35836  M01S01733.252l678 +++|          STD    EP
35837  M01S01734.252l678 +++|          LDN    /MTX/TCF    CLEANER ACTIVE
35838  M01S01735.252l678 +++|          LJM    WLP10       ISSUE ERROR MESSAGE AND UNLOAD TAPE
35839  M01S01736.252l678 +++|
35840  M01S01737.252l678 +++| WLP2     LDM    MTDS        LOAD DETAIL STATUS WORD 3
35841  M01S01738.252l678 +++|          LPC    177         MASK ERROR CODES
35842  M01S01739.252l678 +++|          SBN    7
Line S01740 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35843  M02S01740.1mt26   ---|          ZJN    WLP3        IF ERROR CODE 7
Line S00001 Modification History
M01 (Added by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35844  M01S00001.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 7
Line S01741 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35845  M01S01741.252l678 +++|          SBN    3
Line S01742 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35846  M02S01742.1mt26   ---|          ZJN    WLP3        IF ERROR CODE 12
Line S00002 Modification History
M01 (Added by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35847  M01S00002.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 12
Line S01743 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35848  M01S01743.252l678 +++|          SBN    1
Line S01744 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35849  M02S01744.1mt26   ---|          ZJN    WLP3        IF ERROR CODE 13
Line S00003 Modification History
M01 (Added by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35850  M01S00003.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 13
Line S01745 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35851  M01S01745.252l678 +++|          SBN    3
Line S01746 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35852  M02S01746.1mt26   ---|          NJN    WLP4        IF NO LOAD POINT ERROR
35853  M02S01747.1mt26   ---| WLP3     LJM    WLP8        ERROR CODE 7, 12, 13, OR 16
Line S00004 Modification History
M01 (Added by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35854  M01S00004.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 16
Line S01748 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35855  M02S01748.1mt26   ---|
35856  M02S01749.1mt26   ---|*         CHECK FOR WRITING LABELS FROM LOAD POINT
35857  M02S01750.1mt26   ---|
35858  M02S01751.1mt26   ---| WLP4     LDD    FN          CHECK FOR WRITE LABEL FUNCTION
35859  M02S01752.1mt26   ---|          LMN    /MTX/WLA
35860  M02S01753.1mt26   ---|          NJN    WLP5        IF NOT LABEL FUNCTION
35861  M02S01754.1mt26   ---|          LDD    PB
35862  M02S01755.1mt26   ---|          SHN    -6
35863  M02S01756.1mt26   ---|          ZJN    WLP7        IF INITIAL LABEL
35864  M02S01757.1mt26   ---|          SBN    3           WRITE VOL1 ON LABEL
35865  M02S01758.1mt26   ---|          ZJN    WLP7        IF WRITE VOL1 LABEL
35866  M02S01759.1mt26   ---|          SBN    2           WRITE VOL1 ON REEL SWAP
35867  M02S01760.1mt26   ---|          ZJN    WLP7        IF WRITE VOL1 FROM REEL SWAP
35868  M02S01761.1mt26   ---| WLP5     LDD    EC
Line S00005 Modification History
M01 (Added by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35869  M01S00005.1mt26   +++|          LDD    EC
Line S01762 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35870  M01S01762.252l678 +++|          NJN    WLP6        IF NON-LOAD POINT ERROR
35871  M01S01763.252l678 +++|          LDD    EP
35872  M01S01764.252l678 +++|          SHN    21-11
35873  M01S01765.252l678 +++|          PJN    WLP6        IF NO PREVIOUS LOAD POINT ERROR
35874  M01S01766.252l678 +++|          LDN    0           CLEAR ERROR CODE
35875  M01S01767.252l678 +++|          STD    EC
35876  M01S01768.252l678 +++|          LDD    EP          CLEAR LOAD POINT ERROR FLAG
35877  M01S01769.252l678 +++|          LPC    6777
35878  M01S01770.252l678 +++|          STD    EP
35879  M01S01771.252l678 +++| WLP6     LDD    EP          CLEAR LOAD POINT RECOVERY FLAG
35880  M01S01772.252l678 +++|          LPC    7377
35881  M01S01773.252l678 +++|          STD    EP
35882  M01S01774.252l678 +++|          LCN    0
35883  M01S01775.252l678 +++|          LJM    WLPX        RETURN NO LOAD POINT ERROR OR RECOVERED
35884  M01S01776.252l678 +++|
Line S01777 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35885  M02S01777.1mt26   ---| WLP7     LDD    PA          CLEAR SECTION FLAGS FOR LABEL REWRITE
35886  M02S01778.1mt26   ---|          LPC    7700
35887  M02S01779.1mt26   ---|          STD    PA
35888  M02S01780.1mt26   ---|          LDD    PB
35889  M02S01781.1mt26   ---|          LPC    7700
35890  M02S01782.1mt26   ---|          STD    PB
35891  M02S01783.1mt26   ---|          UJN    WLP5        CONTINUE
35892  M02S01784.1mt26   ---|
Line S01785 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35893  M01S01785.252l678 +++| WLP8     LDD    EP          SET LOAD POINT ERROR AND RECOVERY FLAGS
35894  M01S01786.252l678 +++|          LPC    6377
35895  M01S01787.252l678 +++|          LMC    1400
35896  M01S01788.252l678 +++|          STD    EP
35897  M01S01789.252l678 +++|          LDD    EI
35898  M01S01790.252l678 +++|          LPN    77          ERROR ITERATION
35899  M01S01791.252l678 +++|          ZJN    WLP11       IF FIRST TRY ON BAD HEADER
35900  M01S01792.252l678 +++|          LPN    7
35901  M01S01793.252l678 +++|          ZJN    WLP9        IF ITERATION IS A MULTIPLE OF 4
35902  M01S01794.252l678 +++|          SBN    4
35903  M01S01795.252l678 +++|          NJN    WLP11       IF NOT A MULTIPLE OF 4
35904  M01S01796.252l678 +++| WLP9     LDN    /MTX/BFW    BAD PHASE/GCR HEADERS
35905  M01S01797.252l678 +++| WLP10    STD    EC
35906  M01S01798.252l678 +++|          CALL   EMM         ISSUE MESSAGE TO ERROR LOG
35907  M01S01799.252l678 +++|          AOD    EI
35908  M01S01800.252l678 +++|          LDC    110         UNLOAD THE TAPE
35909  M01S01801.252l678 +++|          RJM    FCN
Line S00031 Modification History
M01 (Added by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35910  M01S00031.1mt36   +++|          LDD    HP
35911  M01S00032.1mt36   +++|          SHN    21-6
35912  M01S00033.1mt36   +++|          MJN    WLP10.2     IF *CMTS* OR *FSC* CONTROLLER
Line S01802 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35913  M01S01802.252l678 +++|          RJM    WFC         WAIT END OF OPERATION
Line S01803 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35914  M02S01803.1mt36   ---|          LJM    RET4        RETURN ERROR CODE
Line S00034 Modification History
M01 (Added by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35915  M01S00034.1mt36   +++| WLP10.1  LJM    RET4        RETURN ERROR CODE
35916  M01S00035.1mt36   +++|
35917  M01S00036.1mt36   +++| WLP10.2  RJM    WNB         WAIT END OF OPERATION
35918  M01S00037.1mt36   +++|          UJN    WLP10.1     RETURN ERROR CODE
Line S01804 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35919  M01S01804.252l678 +++|
35920  M01S01805.252l678 +++|*         REWIND TO LOAD POINT AND ATTEMPT REWRITE.
35921  M01S01806.252l678 +++|
Line S01807 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35922  M02S01807.274l797 ---| WLP11    LDN    10          REWIND TAPE TO LOAD POINT
Line S08193 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35923  M01S08193.274l797 +++| WLP11    LDN    F0010       REWIND TAPE TO LOAD POINT
Line S01808 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35924  M01S01808.252l678 +++|          RJM    FCN
35925  M01S01809.252l678 +++|          RJM    WFC
35926  M01S01810.252l678 +++|
35927  M01S01811.252l678 +++|*         RESTORE EQUIPMENT ERROR STATUS BEFORE EXIT.
35928  M01S01812.252l678 +++|
35929  M01S01813.252l678 +++|          LDN    0
35930  M01S01814.252l678 +++|          STD    T1
Line S01815 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35931  M02S01815.282l826 ---|          LDM    WLPSB       RESTORE GENERAL STATUS
Line S01543 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35932  M01S01543.282l826 +++|          LDM    WLPA        RESTORE GENERAL STATUS
Line S01816 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35933  M01S01816.252l678 +++|          STD    DS
Line S01817 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35934  M02S01817.282l826 ---|          LDM    WLPSB+1     RESTORE BLOCK ID
Line S01544 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35935  M01S01544.282l826 +++|          LDM    WLPB        RESTORE BLOCK ID
Line S01818 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35936  M01S01818.252l678 +++|          STM    UBWB
Line S01819 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35937  M02S01819.282l826 ---| WLP12    LDM    WLPSB+2,T1  RESTORE ERROR STATUS
Line S01545 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35938  M01S01545.282l826 +++| WLP12    LDM    WLPC,T1     RESTORE ERROR STATUS
Line S01820 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35939  M01S01820.252l678 +++|          STM    MTDS,T1
35940  M01S01821.252l678 +++|          AOD    T1          INCREMENT COUNTER
Line S01822 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35941  M02S01822.282l826 ---|          SBN    BIDW-MTDS+1 MAXIMUM NUMBER OF WORDS TO MOVE
Line S01546 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35942  M01S01546.282l826 +++|          SBN    16
Line S01823 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35943  M01S01823.252l678 +++|          NJN    WLP12       IF NOT ALL STATUS WORDS MOVED
Line S01824 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35944  M02S01824.282l826 ---|          LDN    0
Line S01547 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35945  M01S01547.282l826 +++|*         LDN    0
Line S01825 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35946  M01S01825.252l678 +++|          LJM    WLPX        TRY TO REWRITE FROM LOAD POINT
35947  M01S01826.252l678 +++|
35948  M01S01827.252l678 +++|
Line S01828 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35949  M02S01828.282l826 ---| WLPSB    BSSZ   BIDW-MTDS+3 DETAIL STATUS SAVE BUFFER
Line S01548 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35950  M01S01548.282l826 +++| WLPA     CON    0           GENERAL STATUS
35951  M01S01549.282l826 +++| WLPB     CON    0           BLOCK ID
35952  M01S01550.282l826 +++| WLPC     BSSZ   16          DETAILED STATUS
Line S00038 Modification History
M01 (Added by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35953  M01S00038.1mt36   +++|          SPACE  4,10
35954  M00S20736.1mt     +++|**        CTAB - CHANNEL TABLE.
35955  M00S20737.1mt     +++|
35956  M00S20738.1mt     +++|
35957  M00S20739.1mt     +++| CTAB     CHTB
Line S00039 Modification History
M01 (Added by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35958  M01S00039.1mt36   +++|          TITLE  OVERLAYABLE SUBROUTINES.
35959  M01S00040.1mt36   +++|          SPACE  4,10
35960  M01S00041.1mt36   +++|**        NOTE - CODE AFTER THIS POINT WILL BE DESTROYED WHEN
35961  M01S00042.1mt36   +++|*         CALLING THE ERROR PROCESSOR *EMM*.  ALL CALLS TO CODE
35962  M01S00043.1mt36   +++|*         LOCATED AFTER THIS POINT MUST BE DONE PRIOR TO CALLING
35963  M01S00044.1mt36   +++|*         *EMM*.
35964  M01S00045.1mt36   +++|
35965  M01S00046.1mt36   +++|
35966  M01S00047.1mt36   +++|          ERROVL
35967  M00S20740.1mt     +++| EBW      SPACE  4,15
35968  M00S20741.1mt     +++|**        EBW - EVALUATE BID WINDOW.
35969  M00S20742.1mt     +++|*
35970  M00S20743.1mt     +++|*         ENTRY  (BIDW) = BID WINDOW.
35971  M00S20744.1mt     +++|*
35972  M00S20745.1mt     +++|*         EXIT   (POSA) = NUMBER OF BLOCKS TO BACKSPACE.
Line S01829 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35973  M01S01829.252l678 +++|*                NUMBER OF BLOCKS TO BACKSPACE = 2 IF
35974  M01S01830.252l678 +++|*                   1) NO BID PRESENT.
35975  M01S01831.252l678 +++|*                   2) INVALID HISTORY BLOCK ID ENCOUNTERED.
35976  M01S01832.252l678 +++|*                   3) .GT. 5 BLOCK ID-S ENCOUNTERED.
35977  M01S01833.252l678 +++|*                   4) END OF BLOCK ID WINDOW ENCOUNTERED.
35978  M00S20746.1mt     +++|*                (WEMD) = BID FROM LAST WRITE.
Line S20747 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35979  M01S20747.252l678 ---|*                BID DISABLED IF -
35980  M01S20748.252l678 ---|*                            1) NO BID PRESENT.
35981  M01S20749.252l678 ---|*                            2) BID WINDOW NOT USEABLE. (I.E. .LT. 3
35982  M01S20750.252l678 ---|*                               BID-S OR ALL BID-S IDENTICAL.)
Line S01834 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35983  M01S01834.252l678 +++|*                (T2) = NUMBER OF DIFFERENT BLOCK ID-S.
35984  M01S01835.252l678 +++|*                (T4) = NUMBER OF SAME BLOCK ID-S.
35985  M00S20751.1mt     +++|*
35986  M00S20752.1mt     +++|*         USES   T1 - T4.
35987  M00S20753.1mt     +++|
35988  M00S20754.1mt     +++|
Line S20755 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35989  M01S20755.252l678 ---| EBW8     LDD    T2          SET NUMBER OF BLOCKS TO BACKSPACE
35990  M01S20756.252l678 ---|          STM    POSA
35991  M01S20757.252l678 ---|
35992  M00S20758.1mt     +++| EBW      SUBR               ENTRY/EXIT
35993  M00S20759.1mt     +++|          LDD    CF          CHECK IF BID PRESENT
35994  M00S20760.1mt     +++|          LPC    300
35995  M00S20761.1mt     +++|          LMC    300
Line S20762 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35996  M01S20762.252l678 ---|          NJN    EBW1        IF BID PRESENT
35997  M01S20763.252l678 ---|          LJM    EBW7        DISABLE BID PROCESSING
Line S01836 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35998  M01S01836.252l678 +++|          NJN    EBW2        IF BID PRESENT
35999  M01S01837.252l678 +++| EBW1     LJM    EBW9        FORCE BACKSPACE OF TWO BLOCKS
36000  M00S20764.1mt     +++|
Line S20765 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36001  M01S20765.252l678 ---| EBW1     LDM    UBWB        SAVE CURRENT BID
Line S01838 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36002  M01S01838.252l678 +++| EBW2     LDM    UBWB        SAVE CURRENT BID
36003  M00S20766.1mt     +++|          STM    WEMD
36004  M00S20767.1mt     +++|          LDD    WP          SET UP DIRECTS
36005  M00S20768.1mt     +++|          STD    T1
36006  M00S20769.1mt     +++|          LDN    0
36007  M00S20770.1mt     +++|          STD    T2
36008  M00S20771.1mt     +++|          STD    T4
Line S20772 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36009  M01S20772.252l678 ---|          UJN    EBW3        ENTER LOOP
36010  M01S20773.252l678 ---|
36011  M01S20774.252l678 ---| EBW2     LDM    BIDW,T1     COMPARE WITH PREVIOUS BLOCK
36012  M01S20775.252l678 ---|          LMD    T3
36013  M01S20776.252l678 ---|          ZJN    EBW3        IF SAME
36014  M01S20777.252l678 ---|          AOD    T4          COUNT DIFFERENCES
36015  M01S20778.252l678 ---| EBW3     LDM    BIDW,T1     CHECK FOR UNUSEABLE OR TAPE MARK
36016  M01S20779.252l678 ---|          STD    T3
36017  M01S20780.252l678 ---|          LMN    4
36018  M01S20781.252l678 ---|          ZJN    EBW7        IF UNUSABLE BID BYTE
36019  M01S20782.252l678 ---|          LPN    1
36020  M01S20783.252l678 ---|          ZJN    EBW4        IF NOT TAPE MARK
36021  M01S20784.252l678 ---|          LDD    WP          FORCE EXIT
36022  M01S20785.252l678 ---|          ADN    1
36023  M01S20786.252l678 ---|          STD    T1
36024  M01S20787.252l678 ---| EBW4     AOD    T2
36025  M01S20788.252l678 ---|          SBN    3
36026  M01S20789.252l678 ---|          MJN    EBW5        IF NOT MINIMUM BLOCKS
36027  M01S20790.252l678 ---|          LDD    T4
36028  M01S20791.252l678 ---|          ZJN    EBW5        IF NO UNIQUENESS FOUND
36029  M01S20792.252l678 ---|          LJM    EBW8        SET NUMBER OF BLOCKS TO BACKSPACE
36030  M01S20793.252l678 ---|
36031  M01S20794.252l678 ---| EBW5     SOD    T1
36032  M01S20795.252l678 ---|          PJN    EBW6        IF NO UNDER FLOW
36033  M01S20796.252l678 ---|          LDN    7
36034  M01S20797.252l678 ---|          STD    T1
36035  M01S20798.252l678 ---| EBW6     LMD    WP
36036  M01S20799.252l678 ---|          NJN    EBW2        IF NOT END OF WINDOW
36037  M01S20800.252l678 ---| EBW7     LDC    POT8        DISABLE BID PROCESSING
36038  M01S20801.252l678 ---|          STM    POTE
36039  M01S20802.252l678 ---|          LDC    POT7
36040  M01S20803.252l678 ---|          STM    POTF
36041  M01S20804.252l678 ---|          STM    POTH
36042  M01S20805.252l678 ---|          LDC    POT10
36043  M01S20806.252l678 ---|          STM    POTG
36044  M01S20807.252l678 ---|          LDC    RJMI
36045  M01S20808.252l678 ---|          STM    POT32
36046  M01S20809.252l678 ---|          LDM    EBWA
36047  M01S20810.252l678 ---|          STM    POTC
36048  M01S20811.252l678 ---|          LJM    EBWX        RETURN
36049  M01S20812.252l678 ---|
36050  M01S20813.252l678 ---|
36051  M01S20814.252l678 ---| EBWA     BSS    0
36052  M01S20815.252l678 ---|          LOC    POTC
36053  M01S20816.252l678 ---|          UJN    POT8        IF NO BID RECOVERY
36054  M01S20817.252l678 ---|          LOC    *O
Line S01839 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36055  M01S01839.252l678 +++|          LCN    0
36056  M01S01840.252l678 +++|          STD    T3
36057  M01S01841.252l678 +++| EBW3     LDD    T2          CHECK FOR MAX COUNT OF 5
36058  M01S01842.252l678 +++|          ADD    T4
36059  M01S01843.252l678 +++|          SBN    5
36060  M01S01844.252l678 +++|          PJN    EBW1        IF MAX COUNT REACHED, FORCE SET 2
36061  M01S01845.252l678 +++|          LDM    BIDW,T1
36062  M01S01846.252l678 +++|          LMN    4
36063  M01S01847.252l678 +++|          ZJN    EBW10       IF INVALID, STOP SCAN
36064  M01S01848.252l678 +++|          LPN    1
36065  M01S01849.252l678 +++|          ZJN    EBW5        IF NOT TAPE MARK
36066  M01S01850.252l678 +++|          AOD    T2          FORCE BACKSPACE OVER TAPE MARK
36067  M01S01851.252l678 +++| EBW4     STM    POSA        SET BACKSPACE COUNT
36068  M01S01852.252l678 +++|          LJM    EBWX        RETURN
36069  M01S01853.252l678 +++|
36070  M01S01854.252l678 +++| EBW5     LDM    BIDW,T1
36071  M01S01855.252l678 +++|          SBD    T3
36072  M01S01856.252l678 +++|          NJN    EBW6        IF NOT SAME
36073  M01S01857.252l678 +++|          AOD    T4          INCREMENT SAME BID COUNT
36074  M01S01858.252l678 +++|          UJN    EBW7        CONTINUE BID SCAN
36075  M01S01859.252l678 +++|
36076  M01S01860.252l678 +++| EBW6     AOD    T2          INCREMENT DIFFERENT COUNT
36077  M01S01861.252l678 +++|          SBN    2
36078  M01S01862.252l678 +++|          MJN    EBW7        IF NOT TWO DIFFERENT BID-S
36079  M01S01863.252l678 +++|          LDD    T2
36080  M01S01864.252l678 +++|          ADD    T4
36081  M01S01865.252l678 +++|          UJN    EBW4        STORE BACKSPACE COUNT AND EXIT
36082  M01S01866.252l678 +++|
36083  M01S01867.252l678 +++| EBW7     LDM    BIDW,T1
36084  M01S01868.252l678 +++|          STD    T3          SAVE LAST BID
36085  M01S01869.252l678 +++|          SOD    T1          REDUCE POINTER
36086  M01S01870.252l678 +++|          PJN    EBW8        IF NO OVERFLOW
36087  M01S01871.252l678 +++|          LPN    7
36088  M01S01872.252l678 +++|          STD    T1
36089  M01S01873.252l678 +++| EBW8     LMD    WP          CHECK FOR END OF WINDOW
36090  M01S01874.252l678 +++|          NJN    EBW11       IF NOT END OF WINDOW
36091  M01S01875.252l678 +++| EBW9     LDN    2           FORCE BACKSPACE OF TWO BLOCKS
36092  M01S01876.252l678 +++|          UJN    EBW4        STORE BACKSPACE COUNT AND EXIT
36093  M01S01877.252l678 +++|
36094  M01S01878.252l678 +++| EBW10    LDD    T2
36095  M01S01879.252l678 +++|          ADD    T4
36096  M01S01880.252l678 +++|          ZJN    EBW9        IF END OF WINDOW
36097  M01S01881.252l678 +++|          UJN    EBW4        STORE BACKSPACE COUNT AND EXIT
36098  M01S01882.252l678 +++|
36099  M01S01883.252l678 +++| EBW11    LJM    EBW3        CHECK NEXT BID
36100  M00S20818.1mt     +++| PRS      SPACE  4,10
36101  M00S20819.1mt     +++|**        PRS - PRESET.
36102  M00S20820.1mt     +++|*
36103  M00S20821.1mt     +++|*         CALLS  DME.
36104  M00S20822.1mt     +++|
36105  M00S20823.1mt     +++|
36106  M00S20824.1mt     +++|
36107  M00S20825.1mt     +++| PRS      SUBR               ENTRY/EXIT
Line S20826 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36108  M01S20826.282l826 ---|          RJM    DME         DETERMINE IF MONITORING ENABLED
Line S20827 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36109  M01S20827.252l678 ---|          LDD    HP          SET BACKSPACE DELAY
36110  M01S20828.252l678 ---|          SHN    -2
36111  M01S20829.252l678 ---|          LPN    3
36112  M01S20830.252l678 ---|          STD    T1
36113  M01S20831.252l678 ---|          LDM    PRSC,T1
36114  M01S20832.252l678 ---|          STM    WFCA
36115  M00S20833.1mt     +++|          LDD    HP
36116  M00S20834.1mt     +++|          LPN    20
Line S20835 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
36117  M01S20835.v23l617 ---|          ZJN    PRSX        IF NOT ATS CONTROLLER
Line S00585 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36118  M02S00585.ns2466  ---|          ZJN    PRSX        IF NOT ATS/FSC/ISMT CONTROLLER
Line S20836 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36119  M01S20836.ns2466  ---|
Line S20837 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36120  M02S20837.ns2466  ---|*         MODIFY INSTRUCTIONS FOR ATS CONTROLLER.
Line S00586 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36121  M02S00586.ns2466  ---|*         MODIFY INSTRUCTIONS FOR ATS/FSC/ISMT CONTROLLER.
Line S00288 Modification History
M01 (Added by) ns2466
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36122  M02S00288.252l678 ---|          ZJN    PRSX        IF NOT ATS-TYPE CONTROLLER
Line S01884 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36123  M01S01884.252l678 +++|          NJN    PRS1        IF ATS-TYPE CONTROLLER
36124  M01S01885.252l678 +++|          LDM    PRSF        DISABLE LOAD POINT RECOVERY
36125  M01S01886.252l678 +++|          STM    WEML
36126  M01S01887.252l678 +++|          UJN    PRSX        EXIT PRESET
Line S00289 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36127  M01S00289.ns2466  +++|
36128  M01S00290.ns2466  +++|*         MODIFY INSTRUCTIONS FOR ATS-TYPE CONTROLLER.
36129  M00S20838.1mt     +++|
Line S20839 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36130  M01S20839.252l678 ---|          LDM    /WRITE/BYWR
36131  M01S20840.252l678 ---|          LMC    7777
36132  M01S20841.252l678 ---|          ZJN    PRS1        IF LONG BLOCKS
36133  M01S20842.252l678 ---|          LDM    PRSD
36134  M01S20843.252l678 ---|          STM    CBSA
36135  M01S20844.252l678 ---| PRS1     LDC    177
36136  M01S20845.252l678 ---|          STM    CBSE
36137  M01S20846.252l678 ---|          LDM    PRSA
Line S01888 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36138  M01S01888.252l678 +++| PRS1     LDM    PRSA
36139  M00S20847.1mt     +++|          STM    ABCA
36140  M00S20848.1mt     +++|          LDC    LPNI-LDNI
36141  M00S20849.1mt     +++|          RAM    ABCB
Line S20850 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36142  M01S20850.252l678 ---|          LDM    PRSB
36143  M01S20851.252l678 ---|          STM    POTA
Line S01889 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36144  M01S01889.252l678 +++|          LDC    5000        FUNCTION CODE FOR *LDM*
36145  M01S01890.252l678 +++|          STM    BTWA
36146  M00S20852.1mt     +++|          LCN    0
36147  M00S20853.1mt     +++|          STM    WEMA
36148  M00S20854.1mt     +++|          STM    WEMB
36149  M00S20855.1mt     +++|          STM    RDAB
36150  M00S20856.1mt     +++|          LDC    UJNI-PJNI
36151  M00S20857.1mt     +++|          RAM    RDAA
36152  M00S20858.1mt     +++|          LDC    LDMI
36153  M00S20859.1mt     +++|          STM    WEMC
Line S20860 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36154  M01S20860.252l678 ---|          LDD    HP
Line S20861 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36155  M02S20861.252l678 ---|          SHN    21-6
36156  M02S20862.252l678 ---|          PJN    PRS2        IF NOT FSC ADAPTOR
Line S00587 Modification History
M01 (Added by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36157  M02S00587.252l678 ---|          LPC    500
Line S00588 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36158  M03S00588.252l678 ---|          ZJN    PRS2        IF NOT FSC OR ISMT ADAPTOR
Line S00291 Modification History
M01 (Added by) ns2466
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36159  M02S00291.252l678 ---|          ZJN    PRS2        IF NOT FSC/CMTS/ISMT ADAPTOR
Line S20863 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36160  M01S20863.252l678 ---|          LDM    PRSE,T1     SET BACKSPACE DELAY
36161  M01S20864.252l678 ---|          STM    WFCA
36162  M01S20865.252l678 ---|          UJN    PRS3        CHANGE TO BACKSPACE FUNCTION
36163  M01S20866.252l678 ---|
36164  M01S20867.252l678 ---| PRS2     LDM    /WRITE/BYWR CHECK LENGTH OF LAST BLOCK WRITTEN
36165  M01S20868.252l678 ---|          NJN    PRS4        IF LAST BLOCK NOT TAPE MARK
Line S20869 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36166  M02S20869.252l678 ---| PRS3     LDC    BKS         CHANGE CONTROLLED BACKSPACE TO BACKSPACE
36167  M02S20870.252l678 ---|          STM    POTB
Line S00589 Modification History
M01 (Added by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36168  M02S00589.252l678 ---| PRS3     LDC    RJMI        CHANGE CONTROLLED BACKSPACE TO BACKSPACE
36169  M02S00590.252l678 ---|          STM    CBSG
36170  M02S00591.252l678 ---|          LDM    PRSD
36171  M02S00592.252l678 ---|          STM    CBSA
Line S20871 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36172  M01S20871.252l678 ---| PRS4     LJM    PRSX        RETURN
Line S01891 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36173  M02S01891.274l797 ---|          LJM    PRSX        EXIT PRESET
Line S08194 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36174  M01S08194.274l797 +++|          LDD    FN
36175  M01S08195.274l797 +++|          LMN    /MTX/WTF
36176  M01S08196.274l797 +++|          NJP    PRS2        IF NOT WRITE FUNCTION
36177  M01S08197.274l797 +++|          LDD    FM
Line S01551 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36178  M01S01551.282l826 +++|          SHN    -6
Line S08198 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36179  M01S08198.274l797 +++|          LMN    /MTX/TFLI
36180  M01S08199.274l797 +++|          NJP    PRS2        IF NOT LI FORMAT
36181  M01S08200.274l797 +++|*         LDN    0
36182  M01S08201.274l797 +++|          STM    ADDR        NO INSTRUCTION MODIFICATION
36183  M01S08202.274l797 +++|          STM    CIDB        NO BLOCK LENGTH CHECK
36184  M01S08203.274l797 +++|          ISTORE CIDA,(UJN CID1)
36185  M01S08204.274l797 +++|          LDC    /WLI/WLIA
36186  M01S08205.274l797 +++|          STM    WEMK        DROP OUT FLAG
36187  M01S08206.274l797 +++|          STM    WEMM
36188  M01S08207.274l797 +++|          LDC    /WLI/CNW
36189  M01S08208.274l797 +++|          STM    WEMG+1      SET ADDRESS OF *CNW*
36190  M01S08209.274l797 +++|          LDC    /WLI/WRTK
36191  M01S08210.274l797 +++|          STM    EOTA        END OF TAPE EXIT ADDRESS
36192  M01S08211.274l797 +++|          SOM    RDAD        LOCATION FOR PREFIX
36193  M01S08212.274l797 +++|          LDC    LDCI
36194  M01S08213.274l797 +++|          STM    RDAE
36195  M01S08214.274l797 +++|          ISTORE RDAF,(UJN RDA15)
36196  M01S08215.274l797 +++| PRS2     LJM    PRSX        EXIT PRESET
36197  M00S20872.1mt     +++|
36198  M00S20873.1mt     +++|
36199  M00S20874.1mt     +++| PRSA     BSS    0
36200  M00S20875.1mt     +++|          LOC    ABCA
36201  M00S20876.1mt     +++|          UJN    ABC2        ADJUST BUFFER LENGTH
36202  M00S20877.1mt     +++|          LOC    *O
36203  M00S20878.1mt     +++|
Line S20879 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36204  M01S20879.252l678 ---| PRSB     BSS    0
36205  M01S20880.252l678 ---|          LOC    POTA
36206  M01S20881.252l678 ---|          UJN    POT4        SET UP FOR CONTROLLED BACKSPACE
36207  M01S20882.252l678 ---|          LOC    *O
36208  M01S20883.252l678 ---|
36209  M01S20884.252l678 ---| PRSC     BSS    0
36210  M01S20885.252l678 ---|          LOC    0
36211  M01S20886.252l678 ---|          CON    LDNI+21     100 IPS UNIT
36212  M01S20887.252l678 ---|          CON    LDNI+15     150 IPS UNIT
36213  M01S20888.252l678 ---|          CON    LDNI+10     200 IPS UNIT
36214  M01S20889.252l678 ---|          LOC    *O
36215  M01S20890.252l678 ---|
36216  M01S20891.252l678 ---| PRSD     BSS    0
36217  M01S20892.252l678 ---|          LOC    CBSA
36218  M01S20893.252l678 ---|          UJN    CBS5        SET BYTE COUNT
36219  M01S20894.252l678 ---|          LOC    *O
36220  M01S20895.252l678 ---|
Line S20896 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
36221  M01S20896.v23l617 ---| PRSE     BSS    0           BACKSPACE DELAY FOR FSC
36222  M01S20897.v23l617 ---|          LOC    0
36223  M01S20898.v23l617 ---|          CON    LDNI+27     75 IPS UNIT
36224  M01S20899.v23l617 ---|          CON    LDNI+17     125 IPS UNIT
36225  M01S20900.v23l617 ---|          CON    LDNI+10     200 IPS UNIT
Line S00593 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36226  M02S00593.ns2466  ---| PRSE     BSS    0           BACKSPACE DELAY FOR FSC OR ISMT
Line S00292 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36227  M01S00292.ns2466  +++| PRSE     BSS    0           BACKSPACE DELAYS FOR FSC, CMTS OR ISMT
Line S00594 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
36228  M01S00594.v23l617 +++|          LOC    0
36229  M01S00595.v23l617 +++|          CON    LDNI+27     75 IPS UNIT (FSC)
36230  M01S00596.v23l617 +++|          CON    LDNI+17     125 IPS UNIT (FSC)
Line S00597 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36231  M02S00597.ns2466  ---|          CON    LDNI+10     200 IPS UNIT (FSC)
Line S00293 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36232  M01S00293.ns2466  +++|          CON    LDNI+10     200 IPS UNIT (FSC OR CMTS)
Line S00598 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
36233  M01S00598.v23l617 +++|          CON    LDNI+34     25 IPS UNIT (ISMT)
36234  M00S20901.1mt     +++|          LOC    *O
Line S01892 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36235  M01S01892.252l678 +++|
36236  M01S01893.252l678 +++| PRSF     BSS    0
36237  M01S01894.252l678 +++|          LOC    WEML
36238  M01S01895.252l678 +++|          UJN    WEM2.1      DISABLE LOAD POINT RECOVERY
36239  M01S01896.252l678 +++|          LOC    *O
Line S20902 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36240  M01S20902.282l826 ---| DME      SPACE  4,10
36241  M01S20903.282l826 ---|**        DME - DETERMINE IF MONITORING ENABLED.
36242  M01S20904.282l826 ---|*
36243  M01S20905.282l826 ---|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED TO USE MONITORING
36244  M01S20906.282l826 ---|*                CHANNEL, IF MONITORING IN PROGRESS.
36245  M01S20907.282l826 ---|*
36246  M01S20908.282l826 ---|*         USES   CM, T1, T2.
36247  M01S20909.282l826 ---|
36248  M01S20910.282l826 ---|
36249  M01S20911.282l826 ---| DME      SUBR               ENTRY/EXIT
36250  M01S20912.282l826 ---|          LDD    CF          CHECK FOR MONITORING IN PROGRESS
36251  M01S20913.282l826 ---|          SHN    21-2
36252  M01S20914.282l826 ---|          PJN    DMEX        IF MONITORING NOT ENABLED
36253  M01S20915.282l826 ---|          LDM    FCNA+1      SET CHANNEL
36254  M01S20916.282l826 ---|          LPN    37
36255  M01S20917.282l826 ---|          STD    CM
36256  M01S20918.282l826 ---|          LDC    DMEA        MODIFY CHANNELS
36257  M01S20919.282l826 ---|          STD    T1
36258  M01S20920.282l826 ---| DME1     LDI    T1
36259  M01S20921.282l826 ---|          ZJN    DMEX        IF END OF TABLE
36260  M01S20922.282l826 ---|          STD    T2
36261  M01S20923.282l826 ---|          LDI    T2
36262  M01S20924.282l826 ---|          SCN    37
36263  M01S20925.282l826 ---|          LMD    CM
36264  M01S20926.282l826 ---|          STI    T2
36265  M01S20927.282l826 ---|          AOD    T1
36266  M01S20928.282l826 ---|          UJN    DME1        LOOP
36267  M01S20929.282l826 ---|
36268  M01S20930.282l826 ---|
36269  M01S20931.282l826 ---| DMEA     TMOT               CHANNEL TABLE FOR MONITORING
Line S08216 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36270  M01S08216.274l797 +++|          OVERLAY (CTS WRITE ERROR PROCESSOR.),(BUFB+10),P,CWP
36271  M01S08217.274l797 +++| CWP      SPACE  4,15
36272  M01S08218.274l797 +++|**        CWP - CTS WRITE ERROR PROCESSOR.
36273  M01S08219.274l797 +++|*
36274  M01S08220.274l797 +++|*         EXIT   TO CALLER IF EOT, RECOVERED ERROR OR ERROR PROCESSING
36275  M01S08221.274l797 +++|*                          INHIBITED.
36276  M01S08222.274l797 +++|*                TO *WRA* IF ERROR.
36277  M01S08223.274l797 +++|*                (CN+3, CN+4) = OUT POINTER IF WRITE.
36278  M01S08224.274l797 +++|*
36279  M01S08225.274l797 +++|*         USES   CN - CN+4.
36280  M01S08226.274l797 +++|*
36281  M01S08227.274l797 +++|*         CALLS  /WLI/CNW, /WRITE/CNW, *CEM*, EOT, MCH, PRS, WRA.
36282  M01S08228.274l797 +++|*
36283  M01S08229.274l797 +++|*         MACROS CALL.
36284  M01S08230.274l797 +++|
36285  M01S08231.274l797 +++|
36286  M01S08232.274l797 +++|          ENTRY  CWP
36287  M01S08233.274l797 +++| CWP      SUBR               ENTRY/EXIT
36288  M01S08234.274l797 +++|
36289  M01S08235.274l797 +++|*         THE FOLLOWING CODE IS OVERLAYED BY THE OUT POINTER.
36290  M01S08236.274l797 +++|
36291  M01S08237.274l797 +++| CWPA     EQU    *
36292  M01S08238.274l797 +++| CWPB     EQU    *+5
36293  M01S08239.274l797 +++|          LDM    //LOV       SAVE CALLERS EXIT ADDRESS
36294  M01S08240.274l797 +++|          STM    CWP
36295  M01S08241.274l797 +++|          LDD    MA          SAVE OUT POINTER
36296  M01S08242.274l797 +++|          CWD    CN
36297  M01S08243.274l797 +++|          CRM    CWPA,ON
36298  M01S08244.274l797 +++|          LDC    CTAB        MODIFY CHANNELS
36299  M01S08245.274l797 +++|          RJM    MCH
36300  M01S08246.274l797 +++|          RJM    PRS         PRESET
36301  M01S08247.274l797 +++|          LDD    DS
36302  M01S08248.274l797 +++|          LPN    1
36303  M01S08249.274l797 +++|          NJN    CWP1        IF READY
36304  M01S08250.274l797 +++|          LDN    /MTX/RDR
36305  M01S08251.274l797 +++|          STD    EC
36306  M01S08252.274l797 +++| CWP1     LDD    FN          LOAD MAGNET FUNCTION CODE
36307  M01S08253.274l797 +++|          LMN    /MTX/WLA
36308  M01S08254.274l797 +++|          NJN    CWP2        IF NOT WRITE LABELS
36309  M01S08255.274l797 +++|          LDC    RET2        FORCE REQUEUE AFTER WRITE IS GOOD
36310  M01S08256.274l797 +++|          STM    /WLA/WLAG
36311  M01S08257.274l797 +++| CWP2     LDM    /WRITE/WTFE CHECK IF EOF REQUEST DETECTED AHEAD
36312  M01S08258.274l797 +++| CWPC     EQU    *-1
36313  M01S08259.274l797 +++|*         LDM    /WLI/WLIA   (LI FORMAT)
36314  M01S08260.274l797 +++|          LMN    1
36315  M01S08261.274l797 +++|          NJN    CWP3        IF NOT EOF REQUEST
36316  M01S08262.274l797 +++|          LDD    MD
36317  M01S08263.274l797 +++|          SCN    14
36318  M01S08264.274l797 +++|          STD    MD
36319  M01S08265.274l797 +++| CWP3     LDD    EC
36320  M01S08266.274l797 +++|          NJN    CWP4        IF NOT RECOVERED ERROR
36321  M01S08267.274l797 +++|          CALL   CEM         ISSUE RECOVERED MESSAGE
36322  M01S08268.274l797 +++|          LDD    FN
36323  M01S08269.274l797 +++|          LMN    /MTX/WLA
36324  M01S08270.274l797 +++|          NJN    CWP6        IF NOT WRITE LABELS
36325  M01S08271.274l797 +++|          STD    EP          CLEAR ERROR PARAMETERS
36326  M01S08272.274l797 +++|          STD    EI          CLEAR RETRY COUNT
36327  M01S08273.274l797 +++|          UJN    CWP6        CLEAR ERROR CODE
36328  M01S08274.274l797 +++|
36329  M01S08275.274l797 +++| CWP4     LMN    /MTX/STE
36330  M01S08276.274l797 +++|          NJN    CWP5        IF NOT STATUS ERROR
36331  M01S08277.274l797 +++|          LDD    DS
36332  M01S08278.274l797 +++|          SHN    21-3
36333  M01S08279.274l797 +++|          PJN    CWP5        IF NOT EOT
36334  M01S08280.274l797 +++|          SHN    21-13-21+3+22
36335  M01S08281.274l797 +++|          MJN    CWP5        IF OTHER ERRORS
36336  M01S08282.274l797 +++|          RJM    EOT
36337  M01S08283.274l797 +++|          UJN    CWP6        CLEAR ERROR CODE
36338  M01S08284.274l797 +++|
36339  M01S08285.274l797 +++| CWP5     LDD    SP
36340  M01S08286.274l797 +++|          LPN    4
36341  M01S08287.274l797 +++|          NJN    CWP6        IF ERROR PROCESSING INHIBITED
36342  M01S08288.274l797 +++|          RJM    WRA         WRITE RECOVERY ALGORITHM (NO RETURN)
36343  M01S08289.274l797 +++|
36344  M01S08290.274l797 +++| CWP6     LDN    0           CLEAR ERROR CODE
36345  M01S08291.274l797 +++|          STD    EC
36346  M01S08292.274l797 +++|          LDD    FN
36347  M01S08293.274l797 +++|          LMN    /MTX/WLA
36348  M01S08294.274l797 +++|          ZJN    CWP8        IF WRITE LABELS
36349  M01S08295.274l797 +++|          LDN    0           CLEAR ERROR PARAMATERS
36350  M01S08296.274l797 +++|          STD    EP
36351  M01S08297.274l797 +++|          STD    EI
36352  M01S08298.274l797 +++|          LDD    MA          RESTORE OUT POINTER
36353  M01S08299.274l797 +++|          CWM    CWPA,ON
36354  M01S08300.274l797 +++|          SBN    1
36355  M01S08301.274l797 +++|          CRD    CN
36356  M01S08302.274l797 +++|          LDM    /WRITE/WTFE CHECK IF EOF REQUEST DETECTED AHEAD
36357  M01S08303.274l797 +++| CWPD     EQU    *-1
36358  M01S08304.274l797 +++|*         LDM    /WLI/WLIA   (LI FORMAT)
36359  M01S08305.274l797 +++|          LMN    1
36360  M01S08306.274l797 +++|          NJN    CWP7        IF NOT EOF REQUEST
36361  M01S08307.274l797 +++|          LDN    14          SET EOF STATUS
36362  M01S08308.274l797 +++|          RAD    MD
36363  M01S08309.274l797 +++|          UJN    CWP8        RESTORE MA BACK TO OLD OUT POINTER
36364  M01S08310.274l797 +++|
36365  M01S08311.274l797 +++| CWP7     RJM    /WRITE/CNW
36366  M01S08312.274l797 +++| CWPE     EQU    *-1
36367  M01S08313.274l797 +++|*         RJM    /WLI/CNW    (LI FORMAT)
36368  M01S08314.274l797 +++| CWP8     LJM    CWPX        RETURN
36369  M01S08315.274l797 +++| EOT      SPACE  4,10
36370  M01S08316.274l797 +++|**        EOT - END OF TAPE PROCESSOR.
36371  M01S08317.274l797 +++|
36372  M01S08318.274l797 +++|
36373  M01S08319.274l797 +++| EOT      SUBR               ENTRY/EXIT
36374  M01S08320.274l797 +++|          LDC    EOT1        SET TO RETURN HERE AFTER POINTER UPDATE
36375  M01S08321.274l797 +++|          STM    /WRITE/WRTK
36376  M01S08322.274l797 +++| EOTA     EQU    *-1
36377  M01S08323.274l797 +++|*         STM    /WLI/WRTK   (LI FORMAT)
36378  M01S08324.274l797 +++|          UJN    EOTX        RETURN
36379  M01S08325.274l797 +++|
36380  M01S08326.274l797 +++| EOT1     LDN    /MTX/BEI    RETURN END OF TAPE
36381  M01S08327.274l797 +++|          LJM    RET3        RETURN ERROR CODE
36382  M01S08328.274l797 +++| POS      SPACE  4,15
36383  M01S08329.274l797 +++|**        POS - POSITION TAPE.
36384  M01S08330.274l797 +++|*         THIS ROUTINE USES THE LOCATE BLOCK COMMAND TO POSITION
36385  M01S08331.274l797 +++|*         THE TAPE TO THE EXPECTED BLOCK POSITION.
36386  M01S08332.274l797 +++|*
36387  M01S08333.274l797 +++|*         ENTRY  (BL, BL+1) = NOS BLOCK POSITION.
36388  M01S08334.274l797 +++|*                (WP, EP+1) = PHYSICAL BLOCK ID WHEN (BL,BL+1) = 0.
36389  M01S08335.274l797 +++|*
36390  M01S08336.274l797 +++|*         EXIT   (A) = 0 IF NO ERROR.
36391  M01S08337.274l797 +++|*                TO *ERR* IF CHANNEL MALFUNCTION.
36392  M01S08338.274l797 +++|*
36393  M01S08339.274l797 +++|*         USES   T3.
36394  M01S08340.274l797 +++|*
36395  M01S08341.274l797 +++|*         CALLS  /PRESET/GPS, /PRESET/ICF, /PRESET/RBI.
36396  M01S08342.274l797 +++|
36397  M01S08343.274l797 +++|
36398  M01S08344.274l797 +++| POS      SUBR               ENTRY/EXIT
36399  M01S08345.274l797 +++|          RJM    /PRESET/RBI READ BLOCK ID
36400  M01S08346.274l797 +++|          LDM    BIDW
36401  M01S08347.274l797 +++|          STM    POSA
36402  M01S08348.274l797 +++|          SBN    20
36403  M01S08349.274l797 +++|          ZJN    POS1        IF FIRST SEGMENT
36404  M01S08350.274l797 +++|          STM    POSA        SET PHYSICAL REFERENCE BLOCK ID
36405  M01S08351.274l797 +++| POS1     LDD    BL+1
36406  M01S08352.274l797 +++|          SHN    4
36407  M01S08353.274l797 +++|          ADD    EP+1
36408  M01S08354.274l797 +++|          STM    POSA+2      MOVE BLOCK NUMBER TO PARAMETERS
36409  M01S08355.274l797 +++|          SHN    -14
36410  M01S08356.274l797 +++|          STM    POSA+1
36411  M01S08357.274l797 +++|          LDD    BL
36412  M01S08358.274l797 +++|          SHN    4
36413  M01S08359.274l797 +++|          ADD    WP
36414  M01S08360.274l797 +++|          RAM    POSA+1
36415  M01S08361.274l797 +++|          LDN    F0016       LOCATE BLOCK
36416  M01S08362.274l797 +++|          RJM    /PRESET/ICF ISSUE FUNCTION
36417  M01S08363.274l797 +++|          ACN    CH
36418  M01S08364.274l797 +++|          LDN    3
36419  M01S08365.274l797 +++|          OAM    POSA,CH     OUTPUT THE 3 PARAMETER WORDS
36420  M01S08366.274l797 +++|          STD    T3          WORDS NOT TRANSFERRED
36421  M01S08367.274l797 +++|          FJM    *,CH        WAIT FOR DATA TO BE TAKEN
36422  M01S08368.274l797 +++| POS2     LDN    0           WAIT FOR END OF OPERATION
36423  M01S08369.274l797 +++|          RJM    /PRESET/GPS GET AND PROCESS GENERAL STATUS
36424  M01S08370.274l797 +++|          MJN    POS2        IF COMMAND RETRY
36425  M01S08371.274l797 +++|          SHN    21-13
36426  M01S08372.274l797 +++|          MJN    POS3        IF ERROR
36427  M01S08373.274l797 +++|          LDD    T3
36428  M01S08374.274l797 +++|          ZJN    POS4        IF ALL WORDS TRANSFERRED
36429  M01S08375.274l797 +++|          LDN    /MTX/CMF    CHANNEL MALFUNCTION
36430  M01S08376.274l797 +++|          RJM    ERR         REPORT ERROR (NO RETURN)
36431  M01S08377.274l797 +++|
36432  M01S08378.274l797 +++| POS3     LDN    /MTX/STE    STATUS ERROR
36433  M01S08379.274l797 +++|          STD    EC
36434  M01S08380.274l797 +++| POS4     LJM    POSX        RETURN
36435  M01S08381.274l797 +++|
36436  M01S08382.274l797 +++|
36437  M01S08383.274l797 +++| POSA     DATA   0           LOCATE BLOCK PARAMETERS
36438  M01S08384.274l797 +++|          DATA   0           UPPER 12 BITS OF BLOCK NUMBER
36439  M01S08385.274l797 +++|          DATA   0           8/LOWER BITS OF BLOCK NUMBER / 4 UNUSED
Line S08386 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36440  M02S08386.1mt46   ---| WNB      SPACE  4,10
36441  M02S08387.1mt46   ---|**        WNB - WAIT NOT BUSY.
Line S00039 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36442  M01S00039.1mt46   +++| WFC      SPACE  4,10
36443  M01S00040.1mt46   +++|**        WFC - WAIT FOR COMPLETION.
Line S08388 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36444  M01S08388.274l797 +++|*
36445  M01S08389.274l797 +++|*         CALLS  /PRESET/GPS.
36446  M01S08390.274l797 +++|
36447  M01S08391.274l797 +++|
Line S08392 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36448  M02S08392.1mt46   ---| WNB      SUBR               ENTRY/EXIT
36449  M02S08393.1mt46   ---| WNB1     LDN    2           WAIT NOT BUSY
Line S00041 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36450  M01S00041.1mt46   +++| WFC      SUBR               ENTRY/EXIT
36451  M01S00042.1mt46   +++| WFC1     LDN    0           WAIT FOR END OF OPERATION
Line S08394 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36452  M01S08394.274l797 +++|          RJM    /PRESET/GPS
Line S08395 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36453  M02S08395.1mt46   ---|          MJN    WNB1        IF COMMAND RETRY
36454  M02S08396.1mt46   ---|          UJN    WNBX        RETURN
36455  M02S08397.1mt46   ---| WRA      SPACE  4,15
Line S00043 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36456  M01S00043.1mt46   +++|          MJN    WFC1        IF COMMAND RETRY
36457  M01S00044.1mt46   +++|          UJN    WFCX        RETURN
36458  M01S00045.1mt46   +++| WRA      SPACE  4,20
Line S08398 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36459  M01S08398.274l797 +++|**        WRA - WRITE RECOVERY ALGORITHM.
Line S08399 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36460  M02S08399.282l826 ---|*         THIS ROUTINE DOES ERROR RECOVERY AS FOLLOWS.
36461  M02S08400.282l826 ---|*         IF (EI) = 0 LOG ERROR, POSITION TAPE, AND REQUEUE.
36462  M02S08401.282l826 ---|*         IF (EI) = 1 LOG ERROR, LOAD CCC MICROCODE, POSITION TAPE,
36463  M02S08402.282l826 ---|*                     AND REQUEUE.
36464  M02S08403.282l826 ---|*         IF (EI) = 2 LOG UNRECOVERED ERROR, POSITION TAPE, RETURN
36465  M02S08404.282l826 ---|*                     FATAL CODE.
Line S08405 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36466  M01S08405.274l797 +++|*
36467  M01S08406.274l797 +++|*         ENTRY  (EI) = RETRY COUNT.
36468  M01S08407.274l797 +++|*
36469  M01S08408.274l797 +++|*         EXIT   TO *RET2* TO REQUEUE.
36470  M01S08409.274l797 +++|*                TO *RET4* TO RETURN A FATAL ERROR.
36471  M01S08410.274l797 +++|*                TO *ERR* IF MICROCODE LOAD FAILED.
36472  M01S08411.274l797 +++|*                (EI) = (EI) + 1.
36473  M01S08412.274l797 +++|*
Line S08413 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36474  M02S08413.1mt46   ---|*         USES   CN.
Line S00046 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36475  M01S00046.1mt46   +++|*         USES   CN, CN+1, EC, HP, MD.
Line S08414 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36476  M01S08414.274l797 +++|*
Line S08415 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36477  M02S08415.1mt46   ---|*         CALLS  *CEM*, /PRESET/ICF, POS, /PRESET/RCU, WNB, *0CT*.
Line S00047 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36478  M01S00047.1mt46   +++|*         CALLS  *CEM*, /PRESET/ICF, POS, /PRESET/RCU, WFC, *0CT*.
Line S08416 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36479  M01S08416.274l797 +++|*
36480  M01S08417.274l797 +++|*         MACROS CALL, EXECUTE.
36481  M01S08418.274l797 +++|
Line S01552 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36482  M01S01552.282l826 +++|
36483  M01S01553.282l826 +++|*         THIS ROUTINE DOES ERROR RECOVERY AS FOLLOWS -
36484  M01S01554.282l826 +++|*
36485  M01S01555.282l826 +++|*         IF (EI) = 0 LOG ERROR, POSITION TAPE, AND REQUEUE.
36486  M01S01556.282l826 +++|*         IF (EI) = 1 LOG ERROR, LOAD CCC MICROCODE, POSITION TAPE,
36487  M01S01557.282l826 +++|*                     AND REQUEUE.
36488  M01S01558.282l826 +++|*         IF (EI) = 2 LOG UNRECOVERED ERROR, POSITION TAPE, RETURN
36489  M01S01559.282l826 +++|*                     FATAL CODE.
36490  M01S01560.282l826 +++|*
Line S08419 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36491  M01S08419.274l797 +++|
36492  M01S08420.274l797 +++| WRA      CON    0           ENTRY
36493  M01S08421.274l797 +++|          LDC    LDNI+F0002
36494  M01S08422.274l797 +++|          STM    /PRESET/GPSC  SEND CONTINUE IF COMMAND RETRY
36495  M01S08423.274l797 +++| WRA1     CALL   CEM         LOG ERROR
36496  M01S08424.274l797 +++|          LDC    LDNI
36497  M01S08425.274l797 +++|          STM    //PNRC      FORCE DROP OUT
36498  M01S08426.274l797 +++|          AOD    EI          INCREMENT RETRY COUNT
36499  M01S08427.274l797 +++|          SBN    1
36500  M01S08428.274l797 +++|          ZJP    WRA4        IF FIRST ERROR
36501  M01S08429.274l797 +++|          SBN    1
36502  M01S08430.274l797 +++|          NJP    WRA5        IF RETRIES FAILED
36503  M01S08431.274l797 +++|          CHTE   *
36504  M01S08432.274l797 +++|          LDN    CH          SET CHANNEL NUMBER
36505  M01S08433.274l797 +++|          STD    CN
36506  M01S08434.274l797 +++|          LDC    ERLB        SET BUFFER ADDRESS
36507  M01S08435.274l797 +++|          STD    CN+1
36508  M01S08436.274l797 +++|          EXECUTE  0CT,ERLA+5  LOAD CTS/CCC MICROCODE
36509  M01S08437.274l797 +++|          LDD    CN
36510  M01S08438.274l797 +++|          ZJN    WRA3        IF MICROCODE LOADED
36511  M01S08439.274l797 +++|          STD    EC
36512  M01S08440.274l797 +++|          SHN    0-13
36513  M01S08441.274l797 +++|          PJN    WRA2        IF ERROR CODE ALREADY SAVED
36514  M01S08442.274l797 +++|          LDN    /MTX/CMF
36515  M01S08443.274l797 +++|          STD    EC
36516  M01S08444.274l797 +++| WRA2     LDM    CN+1        SAVE FUNCTION
36517  M01S08445.274l797 +++|          STM    /PRESET/ICFA
36518  M01S08446.274l797 +++|          RJM    ERR         REPORT ERROR (NO RETURN)
36519  M01S08447.274l797 +++|
36520  M01S08448.274l797 +++| WRA3     RJM    /PRESET/RCU RECONNECT UNIT
36521  M01S08449.274l797 +++| WRA4     RJM    POS         POSITION TAPE
36522  M01S08450.274l797 +++|          NJP    WRA1        IF LOCATE BLOCK FAILED
36523  M01S08451.274l797 +++|          STD    EC          CLEAR ERROR CODE
Line S00025 Modification History
M01 (Added by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
36524  M01S00025.1mt38   +++|          LDD    HP          CLEAR EOR FLAG
36525  M01S00026.1mt38   +++|          LPC    5777
36526  M01S00027.1mt38   +++|          STD    HP
36527  M01S00028.1mt38   +++|          LDD    MD          CLEAR EOR/EOF THIS OPERATION FLAG
36528  M01S00029.1mt38   +++|          LPC    7377
36529  M01S00030.1mt38   +++|          STD    MD
Line S08452 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36530  M01S08452.274l797 +++|          LJM    RET2        REQUEUE THE REQUEST
36531  M01S08453.274l797 +++|
36532  M01S08454.274l797 +++| WRA5     LDD    FN
36533  M01S08455.274l797 +++|          LMN    /MTX/WLA
36534  M01S08456.274l797 +++|          NJN    WRA7        IF NOT WRITE LABELS
36535  M01S08457.274l797 +++|          LDD    EC
36536  M01S08458.274l797 +++|          LMN    /MTX/STE
36537  M01S08459.274l797 +++|          NJN    WRA7        IF NOT STATUS ERROR
Line S08460 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
36538  M02S08460.ns2794  ---|          LDM    /PRESET/GPSA
Line S00051 Modification History
M01 (Added by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
36539  M01S00051.ns2794  +++|          LDM    CTGS
Line S08461 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36540  M01S08461.274l797 +++|          LPC    177
Line S08462 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
36541  M02S08462.ns2794  ---|          SBN    7
Line S00052 Modification History
M01 (Added by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
36542  M01S00052.ns2794  +++|          SBN    CE007
Line S08463 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36543  M01S08463.274l797 +++|          ZJN    WRA6        IF LOAD POINT ERROR
Line S08464 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
36544  M02S08464.ns2794  ---|          SBN    3
Line S00053 Modification History
M01 (Added by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
36545  M01S00053.ns2794  +++|          SBN    CE012-CE007
Line S08465 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36546  M01S08465.274l797 +++|          NJN    WRA7        IF NOT LOAD POINT ERROR
36547  M01S08466.274l797 +++| WRA6     LDN    /MTX/BFW    LOAD POINT ERROR
36548  M01S08467.274l797 +++|          STD    EC
Line S00048 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36549  M01S00048.1mt46   +++|          CALL   CEM         LOG THE ERROR
Line S08468 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36550  M01S08468.274l797 +++|          LDC    F0110       UNLOAD TAPE
36551  M01S08469.274l797 +++|          RJM    /PRESET/ICF ISSUE CTS FUNCTION
Line S08470 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36552  M02S08470.1mt46   ---|          RJM    WNB         WAIT NOT BUSY
Line S00049 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
36553  M01S00049.1mt46   +++|          RJM    WFC         WAIT FOR COMPLETION
Line S08471 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36554  M01S08471.274l797 +++|          UJN    WRA8        RETURN FATAL ERROR
36555  M01S08472.274l797 +++|
36556  M01S08473.274l797 +++| WRA7     LDD    FN
36557  M01S08474.274l797 +++|          LMN    /MTX/WLA
36558  M01S08475.274l797 +++|          NJN    WRA8        IF NOT WRITE LABELS
Line S08476 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36559  M02S08476.282l826 ---|          LDD    HP          CLEAR WRITE FLAGS
36560  M02S08477.282l826 ---|          LPC    1777
36561  M02S08478.282l826 ---|          STD    HP
Line S01561 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36562  M01S01561.282l826 +++|          LDD    UP
36563  M01S01562.282l826 +++|          SCN    30          CLEAR WRITE OPERATION AND EOR/EOF FLAGS
36564  M01S01563.282l826 +++|          STD    UP
Line S08479 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36565  M01S08479.274l797 +++| WRA8     LJM    RET4        RETURN FATAL ERROR
36566  M01S08480.274l797 +++|          SPACE  4,10
36567  M01S08481.274l797 +++|          ERRNG  ERLA-*      CODE OVERFLOWS HELPER OVERLAY
36568  M01S08482.274l797 +++|          ERRPL  ERLA+5+ZCTL-ERLB  *0CT* OVERFLOWS INTO BUFFER
36569  M01S08483.274l797 +++|          SPACE  4,10
36570  M01S08484.274l797 +++|**        CTAB - CHANNEL TABLE.
36571  M01S08485.274l797 +++|
36572  M01S08486.274l797 +++|
36573  M01S08487.274l797 +++| CTAB     CHTB
36574  M01S08488.274l797 +++| PRS      SPACE  4,10
36575  M01S08489.274l797 +++|**        PRS - PRESET.
36576  M01S08490.274l797 +++|
36577  M01S08491.274l797 +++|
36578  M01S08492.274l797 +++| PRS      SUBR               ENTRY/EXIT
36579  M01S08493.274l797 +++|          LDD    FN
36580  M01S08494.274l797 +++|          LMN    /MTX/WTF
36581  M01S08495.274l797 +++|          NJN    PRSX        IF NOT WRITE FUNCTION
36582  M01S08496.274l797 +++|          LDD    FM
Line S01564 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36583  M01S01564.282l826 +++|          SHN    -6
Line S08497 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36584  M01S08497.274l797 +++|          LMN    /MTX/TFLI
36585  M01S08498.274l797 +++|          NJN    PRSX        IF NOT LI FORMAT
36586  M01S08499.274l797 +++|          LDC    /WLI/WLIA
36587  M01S08500.274l797 +++|          STM    CWPC        DROP OUT FLAG
36588  M01S08501.274l797 +++|          STM    CWPD
36589  M01S08502.274l797 +++|          LDC    /WLI/CNW
36590  M01S08503.274l797 +++|          STM    CWPE        SET ADDRESS OF *CNW*
36591  M01S08504.274l797 +++|          LDC    /WLI/WRTK
36592  M01S08505.274l797 +++|          STM    EOTA        END OF TAPE EXIT ADDRESS
36593  M01S08506.274l797 +++|          LJM    PRSX        EXIT PRESET
Line S00055 Modification History
M01 (Added by) 1mt44
Seq #  *Modification Id* Act 
----------------------------+
36594  M01S00055.1mt44   +++|          SPACE  4,10
36595  M01S00056.1mt44   +++|          OVERFLOW  BUFB+10,/WLA/WTMX  OVERFLOW INTO CALLING ROUTINE
Line S08507 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36596  M01S08507.274l797 +++|          OVERLAY (CTS ERPA CODES.),(ERLB+5),P,ERP
36597  M01S08508.274l797 +++|**        ERP - ERROR RECOVERY PROCEDURE ACTION TEXT MESSAGES.
36598  M01S08509.274l797 +++|
36599  M01S08510.274l797 +++|
36600  M01S08511.274l797 +++|          ENTRY  ERP
36601  M01S08512.274l797 +++| ERP      SUBR               ENTRY/EXIT
36602  M01S08513.274l797 +++|          UJN    ERPX        RETURN
36603  M01S08514.274l797 +++|
36604  M01S08515.274l797 +++|*         THE FOLLOWING TABLE CONTAINS POINTERS TO TEXT MESSAGES
36605  M01S08516.274l797 +++|*         FOR ERPA CODES 21 THROUGH 4C.
36606  M01S08517.274l797 +++|
36607  M01S08518.274l797 +++| ERPA     CON    ERP21
36608  M01S08519.274l797 +++|          CON    ERP22
36609  M01S08520.274l797 +++|          CON    ERP23
36610  M01S08521.274l797 +++|          CON    ERP24
36611  M01S08522.274l797 +++|          CON    ERP23
36612  M01S08523.274l797 +++|          CON    ERP23
36613  M01S08524.274l797 +++|          CON    ERP27
36614  M01S08525.274l797 +++|          CON    ERP28
36615  M01S08526.274l797 +++|          CON    0,0,0
36616  M01S08527.274l797 +++|          CON    ERP2C
36617  M01S08528.274l797 +++|          CON    0
36618  M01S08529.274l797 +++|          CON    ERP2E
36619  M01S08530.274l797 +++|          CON    0
36620  M01S08531.274l797 +++|          CON    ERP30
36621  M01S08532.274l797 +++|          CON    ERP31
36622  M01S08533.274l797 +++|          CON    ERP32
36623  M01S08534.274l797 +++|          CON    ERP33
36624  M01S08535.274l797 +++|          CON    ERP34
36625  M01S08536.274l797 +++|          CON    ERP35
36626  M01S08537.274l797 +++|          CON    0
36627  M01S08538.274l797 +++|          CON    ERP37
36628  M01S08539.274l797 +++|          CON    ERP38
36629  M01S08540.274l797 +++|          CON    ERP39
36630  M01S08541.274l797 +++|          CON    ERP3A
36631  M01S08542.274l797 +++|          CON    ERP3B
36632  M01S08543.274l797 +++|          CON    0,0,0,0,0
36633  M01S08544.274l797 +++|          CON    ERP41
36634  M01S08545.274l797 +++|          CON    ERP42
36635  M01S08546.274l797 +++|          CON    ERP3A
36636  M01S08547.274l797 +++|          CON    ERP44
36637  M01S08548.274l797 +++|          CON    ERP45
36638  M01S08549.274l797 +++|          CON    ERP46
36639  M01S08550.274l797 +++|          CON    ERP47
36640  M01S08551.274l797 +++|          CON    0
36641  M01S08552.274l797 +++|          CON    ERP49
36642  M01S08553.274l797 +++|          CON    ERP4A
36643  M01S08554.274l797 +++|          CON    0
36644  M01S08555.274l797 +++|          CON    ERP4C
36645  M01S08556.274l797 +++|
36646  M01S08557.274l797 +++|*         THE FOLLOWING ARE ERPA TEXT MESSAGES.
36647  M01S08558.274l797 +++|
36648  M01S08559.274l797 +++| ERP21    DATA   C*DATA STREAMING ERROR.*
36649  M01S08560.274l797 +++| ERP22    DATA   C*PATH EQUIPMENT CHECK.*
36650  M01S08561.274l797 +++| ERP23    DATA   C*DATA CHECK.*
36651  M01S08562.274l797 +++| ERP24    DATA   C*LOAD DISPLAY CHECK.*
36652  M01S08563.274l797 +++| ERP27    DATA   C*COMMAND REJECT.*
36653  M01S08564.274l797 +++| ERP28    DATA   C*WRITE ID CHECK.*
36654  M01S08565.274l797 +++| ERP2C    DATA   C*CU EQUIPMENT CHECK.*
36655  M01S08566.274l797 +++| ERP2E    DATA   C*NOT CAPABLE.*
36656  M01S08567.274l797 +++| ERP30    DATA   C*FILE PROTECTED.*
36657  M01S08568.274l797 +++| ERP31    DATA   C*TAPE VOID.*
36658  M01S08569.274l797 +++| ERP32    DATA   C*TENSION LOSS.*
36659  M01S08570.274l797 +++| ERP33    DATA   C*LOAD FAILURE.*
36660  M01S08571.274l797 +++| ERP34    DATA   C*UNLOAD FAILURE.*
36661  M01S08572.274l797 +++| ERP35    DATA   C*DRIVE EQUIPMENT CHECK.*
36662  M01S08573.274l797 +++| ERP37    DATA   C*TAPE LENGTH ERROR.*
36663  M01S08574.274l797 +++| ERP38    DATA   C*PHYSICAL END OF TAPE.*
36664  M01S08575.274l797 +++| ERP39    DATA   C*BACKWARD AT BOT.*
36665  M01S08576.274l797 +++| ERP3A    DATA   C*DRIVE NOT READY.*
36666  M01S08577.274l797 +++| ERP3B    DATA   C*UNLOAD ERROR.*
36667  M01S08578.274l797 +++| ERP41    DATA   C*BLOCK ID SEQUENCE ERROR.*
36668  M01S08579.274l797 +++| ERP42    DATA   C*DEGRADED MODE.*
36669  M01S08580.274l797 +++| ERP44    DATA   C*LOCATE BLOCK UNSUCCESSFUL.*
36670  M01S08581.274l797 +++| ERP45    DATA   C*DRIVE ASSIGNED ELSEWHERE*
36671  M01S08582.274l797 +++| ERP46    DATA   C*DRIVE OFFLINE.*
36672  M01S08583.274l797 +++| ERP47    DATA   C*CU ERROR*
36673  M01S08584.274l797 +++| ERP49    DATA   C*BUS OUT PARITY*
36674  M01S08585.274l797 +++| ERP4A    DATA   C*CU ERP FAILED.*
36675  M01S08586.274l797 +++| ERP4C    DATA   C*CU CHECK ONE ERROR*
36676  M01S08587.274l797 +++|          ERRNG  1*473+ERLB+5-*
Line S20932 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36677  M01S20932.282l826 ---|          OVERLAY (TAPE MONITORING PRESET.),(/DPP/OVLA),NOPRS,TMP
36678  M01S20933.282l826 ---| TMP      SPACE  4,10
36679  M01S20934.282l826 ---|**        TMP - TAPE MONITORING PRESET.
36680  M01S20935.282l826 ---|*
36681  M01S20936.282l826 ---|*         EXIT   TO *//PNR6* TO PROCESS MONITORED UNIT, IF MONITORING
36682  M01S20937.282l826 ---|*                     IS IN EFFECT.  MAIN CODE CHANNEL INSTRUCTIONS
36683  M01S20938.282l826 ---|*                     ARE MODIFIED TO USE MONITORING CHANNEL, STATUS
36684  M01S20939.282l826 ---|*                     RESPONSE TIMEOUT IS DISABLED, FUNCTION TIMEOUT
36685  M01S20940.282l826 ---|*                     IS INCREASED, DOWN FLAG IS CLEARED ON MONITORED
36686  M01S20941.282l826 ---|*                     UNIT, CF BIT 1 IS CLEARED, CF BIT 2 IS SET.
36687  M01S20942.282l826 ---|*                     *1MT* INPUT REGISTER ADDRESS IS SET IN THE TAPE
36688  M01S20943.282l826 ---|*                     MONITORING FLAG WORD.
36689  M01S20944.282l826 ---|*                TO CALLER, IF DROP OUT IS REQUIRED.
36690  M01S20945.282l826 ---|
36691  M01S20946.282l826 ---|
36692  M01S20947.282l826 ---|          ENTRY  TMP
36693  M01S20948.282l826 ---| TMP      SUBR               ENTRY/EXIT
36694  M01S20949.282l826 ---|          LDM    //LOV       SAVE CALLERS EXIT ADDRESS
36695  M01S20950.282l826 ---|          STM    TMPA
36696  M01S20951.282l826 ---|          LDC    TMP1        SET ADDRESS TO EXIT TO
36697  M01S20952.282l826 ---|          STM    //LOV
36698  M01S20953.282l826 ---|          UJN    TMPX        RETURN
36699  M01S20954.282l826 ---|
36700  M01S20955.282l826 ---| TMP1     LDD    RA          READ TAPE MONITORING FLAG WORD
36701  M01S20956.282l826 ---|          SHN    6
36702  M01S20957.282l826 ---|          ADN    /MTX/TMGF
36703  M01S20958.282l826 ---|          CRD    CM
36704  M01S20959.282l826 ---|          LDD    RA          CLEAR DOWN FLAG IN MONITORED UNIT UDT
36705  M01S20960.282l826 ---|          SHN    6
36706  M01S20961.282l826 ---|          ADD    CM+4
36707  M01S20962.282l826 ---|          ADN    /MTX/UST1
36708  M01S20963.282l826 ---|          CRD    CN
36709  M01S20964.282l826 ---|          LDD    CN
36710  M01S20965.282l826 ---|          LPC    7377
36711  M01S20966.282l826 ---|          STD    CN
36712  M01S20967.282l826 ---|          LDD    RA
36713  M01S20968.282l826 ---|          SHN    6
36714  M01S20969.282l826 ---|          ADD    CM+4
36715  M01S20970.282l826 ---|          ADN    /MTX/UST1
36716  M01S20971.282l826 ---|          CWD    CN
36717  M01S20972.282l826 ---|          LDM    //PNRC      CHECK FOR FORCED DROP OUT
36718  M01S20973.282l826 ---|          LPN    77
36719  M01S20974.282l826 ---|          NJN    TMP2        IF NOT FORCED DROP OUT
36720  M01S20975.282l826 ---|          LJM    *           EXIT TO CALLER
36721  M01S20976.282l826 ---| TMPA     EQU    *-1
36722  M01S20977.282l826 ---|
36723  M01S20978.282l826 ---| TMP2     LDD    CF          CLEAR INITIATE MONITORING FLAG
36724  M01S20979.282l826 ---|          LMN    6           SET MONITORING IN PROGRESS FLAG
36725  M01S20980.282l826 ---|          STD    CF
36726  M01S20981.282l826 ---|          LDD    CM+4        SET MONITORED UNIT UDT ADDRESS
36727  M01S20982.282l826 ---|          STM    //UADA
36728  M01S20983.282l826 ---|          LDD    IA
36729  M01S20984.282l826 ---|          STD    CM+2        SET *1MT* INPUT REGISTER ADDRESS
36730  M01S20985.282l826 ---|          LDD    RA
36731  M01S20986.282l826 ---|          SHN    6
36732  M01S20987.282l826 ---|          ADN    /MTX/TMGF   WRITE MONITORING FLAG WORD
36733  M01S20988.282l826 ---|          CWD    CM
36734  M01S20989.282l826 ---|          LDC    TMPC        MODIFY MAIN CODE CHANNEL INSTRUCTIONS
36735  M01S20990.282l826 ---|          STD    T1
36736  M01S20991.282l826 ---| TMP3     LDI    T1
36737  M01S20992.282l826 ---|          ZJN    TMP4        IF END OF TABLE
36738  M01S20993.282l826 ---|          STD    T2
36739  M01S20994.282l826 ---|          LDI    T2
36740  M01S20995.282l826 ---|          SCN    37
36741  M01S20996.282l826 ---|          LMD    CM
36742  M01S20997.282l826 ---|          STI    T2
36743  M01S20998.282l826 ---|          AOD    T1
36744  M01S20999.282l826 ---|          UJN    TMP3        LOOP
36745  M01S21000.282l826 ---|
Line S21001 Modification History
M01 (Removed by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36746  M02S21001.282l826 ---| TMP4     LDC    LDNI+6      INCREASE FUNCTION TIMEOUT
36747  M02S21002.282l826 ---|          STM    //STCA
36748  M02S21003.282l826 ---|          SBN    6
36749  M02S21004.282l826 ---|          STM    //PNRC      FORCE DROP OUT AFTER THIS UNIT
Line S00294 Modification History
M01 (Added by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36750  M02S00294.282l826 ---| TMP4     LDC    LDNI        FORCE DROP OUT AFTER THIS UNIT
36751  M02S00295.282l826 ---|          STM    //PNRC
Line S21005 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36752  M01S21005.282l826 ---|          LCN    0           INCREASE INITIAL CONNECT TIMEOUT
36753  M01S21006.282l826 ---|          STM    //CONA+1
Line S21007 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36754  M02S21007.282l826 ---|          LDN    77
36755  M02S21008.282l826 ---|          RAM    //CONA
Line S00599 Modification History
M01 (Added by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36756  M02S00599.282l826 ---|          LDC    LDCI+77
36757  M02S00600.282l826 ---|          STM    //CONA
Line S21009 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36758  M01S21009.282l826 ---|          LDM    TMPB        DISABLE STATUS RESPONSE TIMEOUT
36759  M01S21010.282l826 ---|          STM    //STWB
36760  M01S21011.282l826 ---|          LDN    0           EXIT WITH (A) = 0
36761  M01S21012.282l826 ---|          LJM    //PNR6      PROCESS MONITORED UNIT
36762  M01S21013.282l826 ---|
36763  M01S21014.282l826 ---|
36764  M01S21015.282l826 ---| TMPB     BSS    0
36765  M01S21016.282l826 ---|          LOC    //STWB
36766  M01S21017.282l826 ---|          UJN    STW2        DISABLE STATUS RESPONSE TIMEOUT
36767  M01S21018.282l826 ---|          LOC    *O
36768  M01S21019.282l826 ---|
36769  M01S21020.282l826 ---|
36770  M01S21021.282l826 ---| TMPC     BSS    0           MAIN CODE CHANNEL TABLE FOR MONITORING
36771  M01S21022.282l826 ---| CMMT     HERE
36772  M01S21023.282l826 ---|          CON    0           TERMINATE TABLE
36773  M01S21024.282l826 ---|          TITLE
36774  M01S21025.282l826 ---|          USE    OVERLAY
36775  M01S21026.282l826 ---|          QUAL
36776  M00S21027.1mt     +++|          QUAL   1LT
36777  M00S21028.1mt     +++| .QNAM    MICRO  1,, 1LT
36778  M00S21029.1mt     +++| .IM      SET    0
36779  M00S21030.1mt     +++|          TTL    1MT/1LT - LONG BLOCK PROCESSOR.
36780  M00S21031.1mt     +++|          TITLE
36781  M00S21032.1mt     +++|          IDENT  1LT,LTP     LONG BLOCK HELPER PROCESSOR.
36782  M00S21033.1mt     +++|*COMMENT  1MT - LONG BLOCK HELPER PROCESSOR.
36783  M00S21034.1mt     +++|          SPACE  4,10
Line S00422 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36784  M01S00422.1mt51   +++|**        *1LT* CALL FORMAT.
36785  M01S00423.1mt51   +++|*
36786  M01S00424.1mt51   +++|*         INPUT REGISTER -
36787  M01S00425.1mt51   +++|*
36788  M01S00426.1mt51   +++|*T,       18/  1LT,6/ CP,6/ HP,6/ FUNC,2/ CF,10/ CH,12/ PPIA
Figure

011122122232429 PPIA CH CF FUNC303536414259 HP CP 1LT

36789  M01S00427.1mt51   +++|*
36790  M01S00428.1mt51   +++|*         MESSAGE BUFFER + 1 (*1MT*) -
36791  M01S00429.1mt51   +++|*
36792  M01S00430.1mt51   +++|*T,       12/  -0,24/  FIRST,24/  LIMIT
Figure

0232429 LIMIT FIRST30474859 FIRST -0

36793  M01S00431.1mt51   +++|*
36794  M01S00432.1mt51   +++|*         CP     CONTROL POINT NUMBER.
36795  M01S00433.1mt51   +++|*         HP     UNIT HARDWARE PARAMETERS (UPPER 6 BITS ONLY).
36796  M01S00434.1mt51   +++|*         FUNC   FUNCTION (0 = READ, 1 = WRITE, 2 = WRITE *LI* FORMAT).
36797  M01S00435.1mt51   +++|*         CF     MTS/ATS CONTROLLER FLAG.
36798  M01S00436.1mt51   +++|*         CH     TAPE CHANNEL.
36799  M01S00437.1mt51   +++|*         PPIA   *1MT* PP INPUT REGISTER ADDRESS.
36800  M01S00438.1mt51   +++|*         FIRST  *FIRST* POINTER FROM FET.
36801  M01S00439.1mt51   +++|*         LIMIT  *LIMIT* POINTER FROM FET.
36802  M01S00440.1mt51   +++|          SPACE  4,10
36803  M01S00441.1mt51   +++|**        *1LT* REQUEST/REPLY FORMAT.
36804  M01S00442.1mt51   +++|*
36805  M01S00443.1mt51   +++|*         REQUESTS AND REPLYS ARE PASSED IN THE MESSAGE BUFFER OF *1LT*.
36806  M01S00444.1mt51   +++|*
36807  M01S00445.1mt51   +++|*         REQUEST (*1MT*) -
36808  M01S00446.1mt51   +++|*
36809  M01S00447.1mt51   +++|*T,       12/ CC,12/ WC,12/ OV,24/ PT
Figure

0232429 PT OV303536474859 OV WC CC

36810  M01S00448.1mt51   +++|*
36811  M01S00449.1mt51   +++|*         CC     COMMAND CODE (1 = START OF BLOCK, 3 = READ SKIP).
36812  M01S00450.1mt51   +++|*         WC     NUMBER OF WORDS IN LAST CHUNK (READ).
36813  M01S00451.1mt51   +++|*         WC     NUMBER OF BYTES IN LAST CHUNK (WRITE).
36814  M01S00452.1mt51   +++|*         OV     OVERFLOW CHUNK COUNT.
36815  M01S00453.1mt51   +++|*         PT     POINTER TO START TRANSFER AT.
36816  M01S00454.1mt51   +++|*
36817  M01S00455.1mt51   +++|*         REPLY (*1LT*) -
36818  M01S00456.1mt51   +++|*
36819  M01S00457.1mt51   +++|*T,       12/ CR,12/ BT,12/ WT,24/ 0
Figure

0232429 0 WT303536474859 WT BT CR

36820  M01S00458.1mt51   +++|*
36821  M01S00459.1mt51   +++|*         CR     COMMAND RESPONSE CODE (0 = ACKNOWLEDGE, 2 = COMPLETE).
36822  M01S00460.1mt51   +++|*         BT     BYTES TRANSFERRED.
36823  M01S00461.1mt51   +++|*         WT     WORDS TRANSFERRED.
36824  M01S00462.1mt51   +++|          SPACE  4,15
36825  M01S00463.1mt51   +++|**        *1MT*/*1LT* INTERLOCK (CYBER 180 ONLY).
36826  M01S00464.1mt51   +++|*
36827  M01S00465.1mt51   +++|*         FOR CYBER 180 MAINFRAMES, AN INTERLOCK IS MAINTAINED
36828  M01S00466.1mt51   +++|*         IN MESSAGE BUFFER + 1 (*1LT*).  THIS INTERLOCK IS USED
36829  M01S00467.1mt51   +++|*         TOGETHER WITH THE CHANNEL FLAG TO ENSURE THAT CHUNKS
36830  M01S00468.1mt51   +++|*         ARE SEQUENCED CORRECTLY.
36831  M01S00469.1mt51   +++|*
36832  M01S00470.1mt51   +++|*T,       12/ IN,48/ RESERVED
Figure

029 RESERVED30474859 RESERVED IN

36833  M01S00471.1mt51   +++|*
36834  M01S00472.1mt51   +++|*         IN     INTERLOCK
36835  M01S00473.1mt51   +++|*                (0 = *1MT* MAY TRY TO SET THE CHANNEL FLAG,
36836  M01S00474.1mt51   +++|*                 1 = *1LT* MAY TRY TO SET THE CHANNEL FLAG).
36837  M01S00475.1mt51   +++|          SPACE  4,10
36838  M00S21035.1mt     +++|**        DIRECT CELL DEFINITIONS.
36839  M00S21036.1mt     +++|
36840  M00S21037.1mt     +++|
36841  M00S21038.1mt     +++|          LOC    20
36842  M00S21039.1mt     +++| CC       BSS    1           COMMAND CODE
36843  M00S21040.1mt     +++| WC       BSS    1           NUMBER WORDS IN LAST CHUNK (READ)
36844  M00S21041.1mt     +++|*                            NUMBER BYTES IN LAST CHUNK (WRITE)
36845  M00S21042.1mt     +++| OV       BSS    1           OVERFLOW CHUNK COUNT
36846  M00S21043.1mt     +++| PT       BSS    2           POINTER TO START TRANSFER AT
36847  M00S21044.1mt     +++| CR       BSS    1           COMMAND RESPONSE CODE
36848  M00S21045.1mt     +++| BT       BSS    1           BYTES TRANSFERRED
36849  M00S21046.1mt     +++| WT       BSS    1           WORDS TRANSFERRED
36850  M00S21047.1mt     +++| ZR       BSS    5           (5 BYTES OF ZEROES)
36851  M00S21048.1mt     +++| BI       BSS    1           BYTES TO INPUT/OUTPUT
36852  M00S21049.1mt     +++| RS       BSS    2           AMOUNT OF SPACE IN BUFFER - READ SKIP
36853  M00S21050.1mt     +++|          LOC    *O
36854  M00S21051.1mt     +++| LTP      SPACE  4,10
36855  M00S21052.1mt     +++|**        LTP - LONG BLOCK PROCESSOR.
36856  M00S21053.1mt     +++|*
Line S08588 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36857  M01S08588.274l797 +++|*         ENTRY  (IR+2) = 6/X, 6/Y WHERE
36858  M01S08589.274l797 +++|*                         X = UPPER 6 BITS OF (HP).
36859  M01S08590.274l797 +++|*                         Y = 2  IF WRITE LI FORMAT.
36860  M01S08591.274l797 +++|*                         Y = 1  IF WRITE AND NOT LI FORMAT.
36861  M01S08592.274l797 +++|*                         Y = 0  IF READ.
36862  M01S08593.274l797 +++|*
36863  M00S21054.1mt     +++|*         CALLS  PRS.
36864  M00S21055.1mt     +++|*
36865  M00S21056.1mt     +++|*         MACROS MONITOR.
36866  M00S21057.1mt     +++|
36867  M00S21058.1mt     +++|
36868  M00S21059.1mt     +++|          ORG    PPFW
36869  M00S21060.1mt     +++| LTP      RJM    PRS         PRESET
36870  M00S21061.1mt     +++|          LDD    IR+2
Line S08594 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36871  M01S08594.274l797 +++|          LPN    77
36872  M00S21062.1mt     +++|          NJN    LTP1        IF WRITE
36873  M00S21063.1mt     +++|          LJM    RED         PROCESS READ
36874  M00S21064.1mt     +++|
Line S21065 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36875  M01S21065.274l797 ---| LTP1     LJM    WRT         PROCESS WRITE
Line S08595 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36876  M01S08595.274l797 +++| LTP1     SBN    2
36877  M01S08596.274l797 +++|          ZJN    LTP2        IF WRITE LI FORMAT
36878  M01S08597.274l797 +++|          LDC    UJNI+WRT8.1-WRTE
36879  M01S08598.274l797 +++|          STM    WRTE        DO NOT ADJUST BYTE COUNT
36880  M01S08599.274l797 +++| LTP2     LJM    WRT         PROCESS WRITE
36881  M00S21066.1mt     +++|
36882  M00S21067.1mt     +++| DPP      MONITOR DPPM       DROP PPU
36883  M00S21068.1mt     +++|          LJM    PPR         EXIT TO PP RESIDENT
36884  M00S21069.1mt     +++| RED      SPACE  4,10
36885  M00S21070.1mt     +++|**        RED - READ DATA FROM TAPE.
Line S08600 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
36886  M01S08600.274l797 +++|*         THIS ROUTINE TRANSFERS CHUNKS 2, 4, 6, ... OF A LONG BLOCK.
36887  M01S08601.274l797 +++|*         IT EXITS TO *WSB* AND RETURNS WITH TRANSFER INFORMATION
36888  M01S08602.274l797 +++|*         IN *OV* AND *WC* IF IT IS NEEDED TO HELP TRANSFER A BLOCK.
36889  M00S21071.1mt     +++|*
36890  M00S21072.1mt     +++|*         CALLS  ADP, WDA, WSB.
36891  M00S21073.1mt     +++|
36892  M00S21074.1mt     +++|
36893  M00S21075.1mt     +++| RED      RJM    WSB         WAIT FOR *1MT* TO START BLOCK
36894  M00S21076.1mt     +++|
36895  M00S21077.1mt     +++|*         INSURE *1MT* GETS FIRST PORTION OF DATA.
36896  M00S21078.1mt     +++|
36897  M00S21079.1mt     +++|          LDC    UJNI+RED10-REDE  SET START OF BLOCK
Line S21080 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36898  M01S21080.1mt51   ---|*         LDC    NJNI+.RED8-.REDB  (ATS CONTROLLER)
Line S21081 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36899  M02S21081.1mt51   ---|*         LDC    NJNI+RED8.-REDB.  (CYBER 170-8X5 IOU)
Line S00285 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36900  M02S00285.1mt51   ---|*         LDC    NJNI+RED8.-REDB.  (CYBER 170-815/825/835/855 IOU)
Line S00476 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36901  M01S00476.1mt51   +++|*         LDC    NJNI+.RED8-.REDB  (ATS NON-CYBER 180)
36902  M01S00477.1mt51   +++|*         LDC    NJNI+RED8.-REDB.  (CYBER 180 IOU)
36903  M00S21082.1mt     +++| REDA     EQU    *-1
36904  M00S21083.1mt     +++|          STM    REDE
Line S21084 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36905  M01S21084.1mt51   ---|*         STM    .REDB       (ATS CONTROLLER)
Line S21085 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36906  M02S21085.1mt51   ---|*         STM    REDB.       (CYBER 170-8X5 IOU)
Line S00286 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36907  M02S00286.1mt51   ---|*         STM    REDB.       (CYBER 170-815/825/835/855 IOU)
Line S00478 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36908  M01S00478.1mt51   +++|*         STM    .REDB       (ATS NON-CYBER 180)
36909  M01S00479.1mt51   +++|*         STM    REDB.       (CYBER 180 IOU)
36910  M01S00480.1mt51   +++| REDF     EQU    *-1
36911  M00S21086.1mt     +++| RED1     IJM    RED12,CH    IF *1MT* COMPLETE
Line S21087 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36912  M01S21087.1mt51   ---|*         UJN    RED3        (ATS CONTROLLER)
Line S21088 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36913  M02S21088.1mt51   ---|*         UJN    RED3        (CYBER 170-8X5 IOU)
Line S00287 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36914  M02S00287.1mt51   ---|*         UJN    RED3        (CYBER 170-815/825/835/855 IOU)
Line S00481 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36915  M01S00481.1mt51   +++|*         UJN    RED3        (ATS NON-CYBER 180)
36916  M01S00482.1mt51   +++|*         UJN    RED3        (CYBER 180 IOU)
36917  M00S21089.1mt     +++| REDB     EQU    *-2
36918  M00S21090.1mt     +++|          FJM    RED2,CH     IF DATA TRANSFER STARTED
36919  M00S21091.1mt     +++|          EJM    RED1,CH     IF *1MT* NOT STARTED
36920  M00S21092.1mt     +++| RED2     LDN    40          DELAY TO INSURE *1MT* INTO BLOCK TRANSFER
36921  M00S21093.1mt     +++|*         LDN    77          (2X PPU SPEED)
36922  M00S21094.1mt     +++| REDC     EQU    *-1
36923  M00S21095.1mt     +++|          SBN    1
36924  M00S21096.1mt     +++|          NJN    *-1
36925  M00S21097.1mt     +++| RED3     LCN    2
36926  M00S21098.1mt     +++|          RAD    OV
36927  M00S21099.1mt     +++|          PJN    RED5        IF INPUT FULL BLOCK
36928  M00S21100.1mt     +++|          ADN    1
36929  M00S21101.1mt     +++|          PJN    RED4        IF NOT DONE
36930  M00S21102.1mt     +++|          LJM    RED12       SEND RESPONSE TO *1MT*
36931  M00S21103.1mt     +++|
36932  M00S21104.1mt     +++| RED4     LDC    NJNI+RED10-REDE
36933  M00S21105.1mt     +++|*         LDC    UJNI+.RED8-.REDB  (ATS CONTROLLER)
Line S21106 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
36934  M01S21106.ns21000 ---|*         LDC    UJNI+RED8.-REDB.  (CYBER 170-8X5 IOU)
Line S00288 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36935  M02S00288.1mt51   ---|*         LDC    UJNI+RED8.-REDB.  (CYBER 170-815/825/835/855 IOU)
Line S00483 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36936  M01S00483.1mt51   +++|*         LDC    UJNI+RED8.-REDB.  (CYBER 180)
36937  M00S21107.1mt     +++| REDD     EQU    *-1
36938  M00S21108.1mt     +++|          STM    REDE
Line S21109 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36939  M01S21109.1mt51   ---|*         STM    .REDB       (ATS CONTROLLER)
Line S21110 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36940  M02S21110.1mt51   ---|*         STM    REDB.       (CYBER 170-8X5 IOU)
Line S00289 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36941  M02S00289.1mt51   ---|*         STM    REDB.       (CYBER 170-815/825/835/855 IOU)
Line S00484 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36942  M01S00484.1mt51   +++|*         STM    .REDB       (ATS NON-CYBER 180)
36943  M01S00485.1mt51   +++|*         STM    REDB.       (CYBER 180)
36944  M01S00486.1mt51   +++| REDG     EQU    *-1
36945  M00S21111.1mt     +++|          LDD    WC
36946  M00S21112.1mt     +++|          SHN    2
36947  M00S21113.1mt     +++|          ADD    WC
36948  M00S21114.1mt     +++|          ADN    1
36949  M00S21115.1mt     +++|          UJN    RED6        SET UP TO INPUT DATA
36950  M00S21116.1mt     +++|          ERRNZ  RED6-.RED6  IF TAGS OUT OF SYNC
36951  M00S21117.1mt     +++|
36952  M00S21118.1mt     +++| RED5     LDC    LBBY
36953  M00S21119.1mt     +++|
Line S21120 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36954  M01S21120.1mt51   ---|*         THE FOLLOWING CODE GETS OVERLAID BY ATS
36955  M01S21121.1mt51   ---|*         INPUT LOOP IF ATS CONTROLLER.
Line S00487 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
36956  M01S00487.1mt51   +++|*         THE FOLLOWING CODE IS OVERLAID BY THE ATS INPUT LOOP IF ATS
36957  M01S00488.1mt51   +++|*         ON A NON-CYBER 180, OR BY THE IOU INPUT LOOP ON A CYBER 180.
36958  M00S21122.1mt     +++|
36959  M00S21123.1mt     +++| .REDA    EQU    *           BEGINNING OF OVERLAID CODE
36960  M00S21124.1mt     +++|
36961  M00S21125.1mt     +++| RED6     STD    BI
36962  M00S21126.1mt     +++|          STD    T1          PRESET BYTES REMAINING
36963  M00S21127.1mt     +++| RED7     IJM    RED10,CH    IF *1MT* FINISHED INPUT
36964  M00S21128.1mt     +++| RED8     EJM    RED7,CH     IF *1MT* TAKING DATA
36965  M00S21129.1mt     +++|          EJM    RED7,CH     IF *1MT* TAKING DATA
36966  M00S21130.1mt     +++|          EJM    RED7,CH     IF *1MT* TAKING DATA
36967  M00S21131.1mt     +++|          EJM    RED7,CH     IF *1MT* TAKING DATA
36968  M00S21132.1mt     +++|          FJM    RED9,CH     IF TIME FOR *1LT* TO TAKE DATA
36969  M00S21133.1mt     +++|          UJN    RED8        LOOP
36970  M00S21134.1mt     +++|
36971  M00S21135.1mt     +++| RED9     IAM    BUFB,CH     INPUT THIS PP,S DATA
36972  M00S21136.1mt     +++|          STD    T1
36973  M00S21137.1mt     +++|          UJN    RED10       NOT LAST PARTIAL BLOCK
36974  M00S21138.1mt     +++|*         NJN    RED10       (IF NOT BLOCK TOO LARGE)
36975  M00S21139.1mt     +++| REDE     EQU    *-1
36976  M00S21140.1mt     +++|          DCN    CH+40       TERMINATE TRANSFER
36977  M00S21141.1mt     +++|
36978  M00S21142.1mt     +++| .REDAL   EQU    *-.REDA     LENGTH OF OVERLAID AREA
36979  M00S21143.1mt     +++|
36980  M00S21144.1mt     +++| RED10    LDD    BI          CALCULATE BYTES INPUT
36981  M00S21145.1mt     +++|          SBD    T1
36982  M00S21146.1mt     +++|          STD    BT
36983  M00S21147.1mt     +++|          ADN    4
36984  M00S21148.1mt     +++|          STD    T2
36985  M00S21149.1mt     +++|          SHN    1           13*BYTES
36986  M00S21150.1mt     +++|          ADD    T2
36987  M00S21151.1mt     +++|          SHN    2
36988  M00S21152.1mt     +++|          ADD    T2
36989  M00S21153.1mt     +++|          SHN    14  (-6)    (13*BYTES)/64
36990  M00S21154.1mt     +++|          STD    T0
36991  M00S21155.1mt     +++|          SHN    6+2         4*13*BYTES  (52*BYTES)
36992  M00S21156.1mt     +++|          SBD    T2          51*BYTES
36993  M00S21157.1mt     +++|          ADD    T0          (51*BYTES)+((13*BYTES)/64)
36994  M00S21158.1mt     +++|          SHN    -8D         WORDS = ((51*BYTES)+((13*BYTES)/64))/256
36995  M00S21159.1mt     +++|          STD    WT          WORDS TO TRANSFER
36996  M00S21160.1mt     +++|          LDC    /MTX/LBWD   ADVANCE POINTER OVER DATA *1MT* PUT IN
36997  M00S21161.1mt     +++|          RJM    ADP
36998  M00S21162.1mt     +++|          LDD    WT          ADVANCE POINTER FOR THIS TRANSFER
36999  M00S21163.1mt     +++|          RJM    ADP
37000  M00S21164.1mt     +++|          RJM    WDA         WRITE DATA
37001  M00S21165.1mt     +++|          LDD    BT
37002  M00S21166.1mt     +++|          LMC    LBBY
37003  M00S21167.1mt     +++|          NJN    RED12       IF NOT FULL BLOCK
37004  M00S21168.1mt     +++|          LJM    RED3        LOOP
37005  M00S21169.1mt     +++|
37006  M00S21170.1mt     +++| RED11    LDN    0           SET NO DATA READ
37007  M00S21171.1mt     +++|          STD    BT
37008  M00S21172.1mt     +++|          STD    WT
Line S21173 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37009  M01S21173.1mt51   ---| RED12    LDD    MA          SEND RESPONSE TO *1LT*
Line S00489 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37010  M01S00489.1mt51   +++| RED12    LDD    MA          SEND RESPONSE TO *1MT*
37011  M00S21174.1mt     +++|          CWD    CR
37012  M00S21175.1mt     +++|          LJM    RED         WAIT FOR *1MT* TO INDICATE WHAT TO DO
37013  M00S21176.1mt     +++| WRT      SPACE  4,10
37014  M00S21177.1mt     +++|**        WRT - WRITE TAPE.
Line S08603 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37015  M01S08603.274l797 +++|*         THIS ROUTINE TRANSFERS CHUNKS 2, 4, 6, ... OF THE BLOCK.
37016  M01S08604.274l797 +++|*         IT EXITS TO *WSB* AND RETURNS WITH TRANSFER INFORMATION
37017  M01S08605.274l797 +++|*         IN *OV* AND *WC* IF IT IS NEEDED TO HELP TRANSFER A BLOCK.
37018  M00S21178.1mt     +++|*
37019  M00S21179.1mt     +++|*         CALLS  ADP, OPA, OPD, OPE, OPI, OPL, RDA, WSB.
37020  M00S21180.1mt     +++|
37021  M00S21181.1mt     +++|
37022  M00S21182.1mt     +++| WRT      RJM    WSB         WAIT FOR *1MT* START INDICATION
37023  M00S21183.1mt     +++|          LDD    WC          SET BYTES IN LAST BLOCK
37024  M00S21184.1mt     +++|          STD    BI
37025  M00S21185.1mt     +++|          ADN    4
37026  M00S21186.1mt     +++|          STD    T2
37027  M00S21187.1mt     +++|          SHN    1           13*BYTES
37028  M00S21188.1mt     +++|          ADD    T2
37029  M00S21189.1mt     +++|          SHN    2
37030  M00S21190.1mt     +++|          ADD    T2
37031  M00S21191.1mt     +++|          SHN    14  (-6)    (13*BYTES)/64
37032  M00S21192.1mt     +++|          STD    T0
37033  M00S21193.1mt     +++|          SHN    6+2         4*13*BYTES  (52*BYTES)
37034  M00S21194.1mt     +++|          SBD    T2          51*BYTES
37035  M00S21195.1mt     +++|          ADD    T0          (51*BYTES)+((13*BYTES)/64)
37036  M00S21196.1mt     +++|          SHN    -8D         WORDS = ((51*BYTES)+((13*BYTES)/64))/256
37037  M00S21197.1mt     +++|          STD    WC
37038  M00S21198.1mt     +++|          LDN    0
37039  M00S21199.1mt     +++| WRT1     IJM    WRT9,CH     IF ERROR
37040  M00S21200.1mt     +++|          EJM    WRT1,CH     IF DATA TRANSFER NOT STARTED
Line S00296 Modification History
M01 (Added by) ns2466
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37041  M02S00296.1mt51   ---|*         UJN    WRT2        (CYBER 180-CLASS IOU)
Line S00490 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37042  M01S00490.1mt51   +++|*         UJN    WRT2        (CYBER 180)
Line S00297 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37043  M01S00297.ns2466  +++| WRTA     EQU    *-2
37044  M00S21201.1mt     +++|
37045  M00S21202.1mt     +++|*         PREPARE TO OUTPUT NEXT CHUNK.
37046  M00S21203.1mt     +++|
37047  M00S21204.1mt     +++| WRT2     LDC    /MTX/LBWD   SKIP CHUNK WRITTEN BY *1MT*
37048  M00S21205.1mt     +++|          RJM    ADP
37049  M00S21206.1mt     +++|          LDD    OV
37050  M00S21207.1mt     +++|          ZJN    WRT5        IF 1LT WILL FINISH
37051  M00S21208.1mt     +++|          LCN    2           DECREMENT CHUNK COUNT
37052  M00S21209.1mt     +++|          RAD    OV
37053  M00S21210.1mt     +++|          NJN    WRT3        IF NOT EVEN MULTIPLE OR NOT DONE
37054  M00S21211.1mt     +++|          LDD    BI
37055  M00S21212.1mt     +++|          NJN    WRT6        IF NOT FULL CHUNK
37056  M00S21213.1mt     +++|          LJM    WRT7        FULL CHUNK WITH TERMINATION
37057  M00S21214.1mt     +++|
37058  M00S21215.1mt     +++| WRT3     SBN    1
37059  M00S21216.1mt     +++|          PJN    WRT6        IF NOT COMPLETE
37060  M00S21217.1mt     +++|          ADN    1
37061  M00S21218.1mt     +++|          MJN    WRT4        IF POSSIBLE PARTIAL BLOCK
37062  M00S21219.1mt     +++|          LDD    BI
37063  M00S21220.1mt     +++|          ZJN    WRT7        IF TERMINATION BLOCK
37064  M00S21221.1mt     +++|          UJN    WRT6        SET UP POINTERS
37065  M00S21222.1mt     +++|
37066  M00S21223.1mt     +++| WRT4     LDD    WC
37067  M00S21224.1mt     +++|          NJN    WRT8        IF *1LT* WILL FINISH WRITE
37068  M00S21225.1mt     +++| WRT5     LJM    WRT9        SEND RESPONSE TO *1MT*
37069  M00S21226.1mt     +++|
37070  M00S21227.1mt     +++| WRT6     LDC    /MTX/LBWD   SET UP POINTERS
37071  M00S21228.1mt     +++|          RJM    ADP
37072  M00S21229.1mt     +++|          RJM    RDA         READ DATA
37073  M00S21230.1mt     +++|          LDC    LBBY        OUTPUT DATA
37074  M00S21231.1mt     +++|          STD    BT
37075  M00S21232.1mt     +++|          RJM    OPD         OUTPUT DATA
Line S21233 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37076  M01S21233.1mt51   ---|*         RJM    OPA         (ATS CONTROLLER - OUTPUT DATA)
Line S21234 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37077  M02S21234.1mt51   ---|*         RJM    OPI         (CYBER 170-8X5 IOU)
Line S00290 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37078  M02S00290.1mt51   ---|*         RJM    OPI         (CYBER 170-815/825/835/855 IOU)
Line S00491 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37079  M01S00491.1mt51   +++|*         RJM    OPA         (ATS NON-CYBER 180)
37080  M01S00492.1mt51   +++|*         RJM    OPI         (CYBER 180)
Line S21235 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37081  M01S21235.ns2466  ---| WRTA     EQU    *-1
Line S00298 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37082  M01S00298.ns2466  +++| WRTB     EQU    *-1
37083  M00S21236.1mt     +++|          NJN    WRT9        IF TRANSFER INCOMPLETE
37084  M00S21237.1mt     +++|          LJM    WRT2        SET UP TO OUTPUT NEXT CHUNK
37085  M00S21238.1mt     +++|
37086  M00S21239.1mt     +++| WRT7     LDC    LBBY
37087  M00S21240.1mt     +++|          STD    BI
37088  M00S21241.1mt     +++|          LDC    /MTX/LBWD
37089  M00S21242.1mt     +++| WRT8     RJM    ADP
37090  M00S21243.1mt     +++|          RJM    RDA         READ DATA
37091  M00S21244.1mt     +++|          LDD    BI
Line S21245 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37092  M01S21245.274l797 ---|          RJM    OPD         OUTPUT DATA
Line S08606 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37093  M01S08606.274l797 +++|          LPC    7776        WRITE EVEN BYTE COUNT
37094  M01S08607.274l797 +++| WRTE     EQU    *-2
37095  M01S08608.274l797 +++|*         UJN    WRT8.1      (NOT LI FORMAT)
37096  M01S08609.274l797 +++|          ADN    1
37097  M01S08610.274l797 +++| WRT8.1   RJM    OPD         OUTPUT DATA
Line S21246 Modification History
M01 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37098  M01S21246.1mt51   ---|*         RJM    OPL         (ATS CONTROLLER - OUTPUT PARTIAL CHUNK)
Line S21247 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37099  M02S21247.1mt51   ---|*         RJM    OPE         (CYBER 170-8X5 IOU)
Line S00291 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37100  M02S00291.1mt51   ---|*         RJM    OPE         (CYBER 170-815/825/835/855 IOU)
Line S00493 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
37101  M01S00493.1mt51   +++|*         RJM    OPL         (ATS NON-CYBER 180 - OUTPUT LAST CHUNK)
37102  M01S00494.1mt51   +++|*         RJM    OPE         (CYBER 180 - OUTPUT LAST CHUNK
Line S21248 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37103  M01S21248.ns2466  ---| WRTB     EQU    *-1
Line S00299 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
37104  M01S00299.ns2466  +++| WRTC     EQU    *-1
37105  M00S21249.1mt     +++|          FJM    *,CH
37106  M00S21250.1mt     +++|          NJN    WRT9        IF INCOMPLETE TRANSFER
Line S21251 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
37107  M01S21251.274l797 ---|          DCN    CH+40
Proceed to Part 28
cdc/nos2.source/opl.opl871/deck/1mt.027.txt ยท Last modified: by 127.0.0.1