Deck 1MT Part 010

92 Modifications

Seq #  *Modification Id* Act 
----------------------------+
12640  M01S07659.282l826 ---|          LDD    UP          SET MESSAGE ASSIGNED FLAG
12641  M01S07660.282l826 ---|          LMC    200
12642  M01S07661.282l826 ---|          STD    UP
12643  M01S07662.282l826 ---|          LDC    IAMA        PLACE JOB SEQUENCE NUMBER INTO MESSAGE
12644  M01S07663.282l826 ---|          RJM    PJM

Seq #  *Modification Id* Act 
----------------------------+
12645  M02S07664.282l826 ---|          STM    IAMB+3      STORE EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
12646  M02S00192.282l826 ---|          STM    IAMB+4      STORE LOWER DIGITS OF EST ORDINAL
12647  M02S00193.282l826 ---|          LDD    EO
12648  M02S00194.282l826 ---|          SHN    -6
12649  M02S00195.282l826 ---|          RAM    IAMB+3      INSERT UPPER DIGIT OF EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
12650  M01S07665.282l826 ---|          RJM    UAD         STORE VSN
12651  M01S07666.282l826 ---|          ADN    /MTX/UVSN
12652  M01S07667.282l826 ---|          CRD    CM
12653  M01S07668.282l826 ---|          LDD    CM+3
12654  M01S07669.282l826 ---|          SHN    21-2
12655  M01S07670.282l826 ---|          MJN    IAM1        IF DEFAULT LABEL
12656  M01S07671.282l826 ---|          LDD    CM
12657  M01S07672.282l826 ---|          ADD    CM+1
12658  M01S07673.282l826 ---|          ADD    CM+2
12659  M01S07674.282l826 ---|          ZJN    IAM1        IF NO VSN
12660  M01S07675.282l826 ---|          LDD    CM

Seq #  *Modification Id* Act 
----------------------------+
12661  M02S07676.282l826 ---|          STM    IAMB+5

Seq #  *Modification Id* Act 
----------------------------+
12662  M02S00196.282l826 ---|          STM    IAMB+6

Seq #  *Modification Id* Act 
----------------------------+
12663  M01S07677.282l826 ---|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
12664  M02S07678.282l826 ---|          STM    IAMB+6

Seq #  *Modification Id* Act 
----------------------------+
12665  M02S00197.282l826 ---|          STM    IAMB+7

Seq #  *Modification Id* Act 
----------------------------+
12666  M01S07679.282l826 ---|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
12667  M02S07680.282l826 ---|          STM    IAMB+7

Seq #  *Modification Id* Act 
----------------------------+
12668  M02S00198.282l826 ---|          STM    IAMB+10

Seq #  *Modification Id* Act 
----------------------------+
12669  M01S07681.282l826 ---|          UJN    IAM2        ISSUE MESSAGE
12670  M01S07682.282l826 ---|
12671  M01S07683.282l826 ---| IAM1     LDC    2R.         ALTER MESSAGE FOR INDICATING NO VSN

Seq #  *Modification Id* Act 
----------------------------+
12672  M02S07684.282l826 ---|          STM    IAMB+4

Seq #  *Modification Id* Act 
----------------------------+
12673  M02S00199.282l826 ---|          STM    IAMB+5

Seq #  *Modification Id* Act 
----------------------------+
12674  M01S07685.282l826 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
12675  M02S07686.282l826 ---|          STM    IAMB+5

Seq #  *Modification Id* Act 
----------------------------+
12676  M02S00200.282l826 ---|          STM    IAMB+6

Seq #  *Modification Id* Act 
----------------------------+
12677  M01S07687.282l826 ---| IAM2     LDC    IAMA+AJNN   ISSUE MESSAGE
12678  M01S07688.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
12679  M02S00058.282l826 ---|          LDC    IAMA+EJNN   ISSUE MESSAGE TO ERRORLOG
12680  M02S00059.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
12681  M01S07689.282l826 ---|          LJM    IAMX        RETURN
12682  M01S07690.282l826 ---|
12683  M01S07691.282l826 ---|
12684  M01S07692.282l826 ---| IAMA     VFD    60/-0       JOB SEQUENCE NUMBER AND SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
12685  M02S07693.282l826 ---| IAMB     DATA   C*AMAS, 00,       .*

Seq #  *Modification Id* Act 
----------------------------+
12686  M02S00201.282l826 ---| IAMB     DATA   C*AMAS,  000,       .*

Seq #  *Modification Id* Act 
----------------------------+
12687  M01S07694.282l826 ---| IDM      SPACE  4,10
12688  M01S07695.282l826 ---|**        IDM - ISSUE DAYFILE MESSAGE.
12689  M01S07696.282l826 ---|*         DROP CHANNEL BEFORE ISSUING MESSAGE IF NOT DEDICATED.
12690  M01S07697.282l826 ---|*
12691  M01S07698.282l826 ---|*         ENTRY  (A) = ADDRESS OF MESSAGE.
12692  M01S07699.282l826 ---|*
12693  M01S07700.282l826 ---|*         CALLS  CUI, DFM, REL.
12694  M01S07701.282l826 ---|*
12695  M01S07702.282l826 ---|*         USES   T4 - T6.
12696  M01S07703.282l826 ---|*
12697  M01S07704.282l826 ---|*         MACROS CHTE, DCHAN, RCHAN.
12698  M01S07705.282l826 ---|
12699  M01S07706.282l826 ---|
12700  M01S07707.282l826 ---| IDM      SUBR               ENTRY/EXIT
12701  M01S07708.282l826 ---|          STD    T4
12702  M01S07709.282l826 ---|          SHN    -14
12703  M01S07710.282l826 ---|          STD    T5
12704  M01S07711.282l826 ---|          LDM    //LOVA      CHECK CHANNEL
12705  M01S07712.282l826 ---|          LMC    RJMI
12706  M01S07713.282l826 ---|          STD    T6
12707  M01S07714.282l826 ---|          NJN    IDM1        IF DEDICATED CHANNEL
12708  M01S07715.282l826 ---|          RJM    REL         RELEASE UNIT
12709  M01S07716.282l826 ---|          CHTE   *
12710  M01S07717.282l826 ---|          LDN    CH          DROP CHANNEL
12711  M01S07718.282l826 ---|          DCHAN
12712  M01S07719.282l826 ---| IDM1     LDD    T5          ISSUE MESSAGE
12713  M01S07720.282l826 ---|          SHN    14
12714  M01S07721.282l826 ---|          ADD    T4
12715  M01S07722.282l826 ---|          RJM    DFM
12716  M01S07723.282l826 ---|          LDD    T6
12717  M01S07724.282l826 ---|          NJN    IDMX        IF DEDICATED CHANNEL
12718  M01S07725.282l826 ---|          CHTE   *
12719  M01S07726.282l826 ---|          LDN    CH          REQUEST TAPE CHANNEL
12720  M01S07727.282l826 ---|          RCHAN
12721  M01S07728.282l826 ---|          LDN    0           RECONNECT UNIT
12722  M01S07729.282l826 ---|          RJM    CUI
12723  M01S07730.282l826 ---|          LJM    IDMX        RETURN
12724  M01S07731.282l826 ---| IPT      SPACE  4,10
12725  M01S07732.282l826 ---|**        IPT - ISSUE PRU,S TRANSFERRED TO ACCOUNT FILE.
12726  M01S07733.282l826 ---|*
12727  M01S07734.282l826 ---|*         CALLS  CDN, IDM, PJM, UAD.
12728  M01S07735.282l826 ---|*
12729  M01S07736.282l826 ---|*         USES   T1, CM - CM+4, CN - CN+4.
12730  M01S07737.282l826 ---|
12731  M01S07738.282l826 ---|
12732  M01S07739.282l826 ---| IPT3     LDD    CN+2
12733  M01S07740.282l826 ---|          ADD    CN+3
12734  M01S07741.282l826 ---|          ZJN    IPTX        IF NO BLOCKS WRITTEN
12735  M01S07742.282l826 ---|          LDN    2           SET TO ISSUE MESSAGE
12736  M01S07743.282l826 ---|          RAM    IPTA
12737  M01S07744.282l826 ---|          LDC    IPTX        SET TO EXIT
12738  M01S07745.282l826 ---|          STM    IPTB

Seq #  *Modification Id* Act 
----------------------------+
12739  M02S07746.282l826 ---|          LDN    1RW-1RR     SET *W* IN MESSAGE
12740  M02S07747.282l826 ---|          SHN    6
12741  M02S07748.282l826 ---|          RAM    IPTE+12

Seq #  *Modification Id* Act 
----------------------------+
12742  M02S00202.282l826 ---|          LDC    2RW.        SET *W.* IN MESSAGE
12743  M02S00203.282l826 ---|          STM    IPTE+13

Seq #  *Modification Id* Act 
----------------------------+
12744  M01S07749.282l826 ---| IPTC     LDN    0
12745  M01S07750.282l826 ---|*         LDN    1           (JOBNAME AND EQUIPMENT IN MESSAGE)
12746  M01S07751.282l826 ---|          ZJN    IPT1        IF MESSAGE NOT BUILT YET
12747  M01S07752.282l826 ---|          UJN    IPT2        ISSUE MESSAGE
12748  M01S07753.282l826 ---|
12749  M01S07754.282l826 ---| IPT      SUBR               ENTRY/EXIT
12750  M01S07755.282l826 ---|          RJM    UAD         READ BLOCK ACCUMULATOR
12751  M01S07756.282l826 ---|          ADN    /MTX/UBLC
12752  M01S07757.282l826 ---|          CRD    CN
12753  M01S07758.282l826 ---|          LDD    CN
12754  M01S07759.282l826 ---|          ADD    CN+1
12755  M01S07760.282l826 ---|          ZJN    IPT3        IF NO BLOCKS READ
12756  M01S07761.282l826 ---|          AOM    IPTC        SET MESSAGE BUILT
12757  M01S07762.282l826 ---| IPT1     LDN    ZERL        CLEAR ACCUMULATOR WORD
12758  M01S07763.282l826 ---|          CRD    CM
12759  M01S07764.282l826 ---|          RJM    UAD
12760  M01S07765.282l826 ---|          ADN    /MTX/UBLC
12761  M01S07766.282l826 ---|          CWD    CM
12762  M01S07767.282l826 ---|          LDC    IPTD        PLACE JOB SEQUENCE NUMBER INTO MESSAGE
12763  M01S07768.282l826 ---|          RJM    PJM

Seq #  *Modification Id* Act 
----------------------------+
12764  M02S07769.282l826 ---|          STM    IPTE+3      STORE EST ORDINAL
12765  M02S07770.282l826 ---| IPT2     LDC    IPTE+5      SET ADDRESS FOR DATA

Seq #  *Modification Id* Act 
----------------------------+
12766  M02S00204.282l826 ---|          STM    IPTE+4      STORE LOWER TWO DIGITS OF EST ORDINAL
12767  M02S00205.282l826 ---|          LDD    EO
12768  M02S00206.282l826 ---|          SHN    -6
12769  M02S00207.282l826 ---|          RAM    IPTE+3      INSERT UPPER DIGIT OF EST ORDINAL
12770  M02S00208.282l826 ---| IPT2     LDC    IPTE+6      SET ADDRESS FOR PRU COUNT

Seq #  *Modification Id* Act 
----------------------------+
12771  M01S07771.282l826 ---|          STD    T1
12772  M01S07772.282l826 ---|          LDC    2*10000+CN
12773  M01S07773.282l826 ---|*         LDC    2*10000+CN+2  (WRITE BLOCKS TRANSFERRED)
12774  M01S07774.282l826 ---| IPTA     EQU    *-1
12775  M01S07775.282l826 ---|          RJM    CDN

Seq #  *Modification Id* Act 
----------------------------+
12776  M02S07776.282l826 ---|          LDC    IPTD+AJNN   ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
12777  M02S00209.282l826 ---|          LDC    IPTD+AJNN   ISSUE MESSAGE TO ACCOUNT FILE

Seq #  *Modification Id* Act 
----------------------------+
12778  M01S07777.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
12779  M03S00060.282l826 ---|          LDC    IPTD+EJNN   ISSUE MESSAGE TO ERRORLOG

Seq #  *Modification Id* Act 
----------------------------+
12780  M02S00210.282l826 ---|          LDC    IPTD+EJNN   ISSUE MESSAGE TO ERRLOG

Seq #  *Modification Id* Act 
----------------------------+
12781  M02S00061.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
12782  M01S07778.282l826 ---|          LJM    IPT3        PROCESS WRITE BLOCK COUNT
12783  M01S07779.282l826 ---|*         LJM    IPTX        (BOTH MESSAGES PROCESSED)
12784  M01S07780.282l826 ---| IPTB     EQU    *-1
12785  M01S07781.282l826 ---|
12786  M01S07782.282l826 ---| IPTD     VFD    60/-0       JOB SEQUENCE NUMBER AND SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
12787  M02S07783.282l826 ---| IPTE     DATA   C*SCMT, 00, 00000000, R.*

Seq #  *Modification Id* Act 
----------------------------+
12788  M02S00211.282l826 ---| IPTE     DATA   C*SCMT,  000, 00000000, R.*

Seq #  *Modification Id* Act 
----------------------------+
12789  M01S07784.282l826 ---| IRM      SPACE  4,10
12790  M01S07785.282l826 ---|**        IRM - ISSUE TAPE RETURNED MESSAGE TO ACCOUNT FILE.
12791  M01S07786.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
12792  M02S00207.282l826 ---|*         USES   CM - CM+4.
12793  M02S00208.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
12794  M01S07787.282l826 ---|*         CALLS  IDM, IPT, PJM.

Seq #  *Modification Id* Act 
----------------------------+
12795  M02S00209.282l826 ---|*
12796  M02S00210.282l826 ---|*         MACROS SFA.

Seq #  *Modification Id* Act 
----------------------------+
12797  M01S07788.282l826 ---|
12798  M01S07789.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
12799  M02S07790.282l826 ---| IRM1     LDD    HP          CHECK UNIT TYPE

Seq #  *Modification Id* Act 
----------------------------+
12800  M03S07791.282l826 ---|          SHN    21-5
12801  M03S07792.282l826 ---|          MJN    IRM2        IF 66X TAPE UNIT

Seq #  *Modification Id* Act 
----------------------------+
12802  M03S00255.282l826 ---|          SHN    21-10

Seq #  *Modification Id* Act 
----------------------------+
12803  M02S02510.282l826 ---| IRM1     LDD    HP
12804  M02S02511.282l826 ---|          SHN    21-7
12805  M02S02512.282l826 ---|          PJN    IRM1.1      IF NOT CTS
12806  M02S02513.282l826 ---|          LDC    2R56
12807  M02S02514.282l826 ---|          STM    IRMB+6
12808  M02S02515.282l826 ---|          LDC    2R82        CHANGE TYPE TO *5682*
12809  M02S02516.282l826 ---|          STM    IRMB+7
12810  M02S02517.282l826 ---|          LDC    2R.
12811  M02S02518.282l826 ---|          STM    IRMB+10
12812  M02S02519.282l826 ---|          UJN    IRM4        ISSUE MESSAGE
12813  M02S02520.282l826 ---|
12814  M02S02521.282l826 ---| IRM1.1   SHN    21-10-21+7

Seq #  *Modification Id* Act 
----------------------------+
12815  M03S00256.282l826 ---|          PJN    IRM1.1      IF NOT 639 TAPE UNIT

Seq #  *Modification Id* Act 
----------------------------+
12816  M02S00211.282l826 ---|          PJN    IRM2        IF NOT 639 TAPE UNIT

Seq #  *Modification Id* Act 
----------------------------+
12817  M02S00257.282l826 ---|          LDC    2R63
12818  M02S00258.282l826 ---|          STM    IRMB+6
12819  M02S00259.282l826 ---|          LDC    2R9.
12820  M02S00260.282l826 ---|          STM    IRMB+7

Seq #  *Modification Id* Act 
----------------------------+
12821  M03S00261.282l826 ---|          UJN    IRM2        ISSUE MESSAGE
12822  M03S00262.282l826 ---|
12823  M03S00263.282l826 ---| IRM1.1   SHN    21-5+10-21
12824  M03S00264.282l826 ---|          MJN    IRM2        IF MTS TAPE UNIT

Seq #  *Modification Id* Act 
----------------------------+
12825  M03S07793.282l826 ---|          AOM    IRMB+5

Seq #  *Modification Id* Act 
----------------------------+
12826  M03S00212.282l826 ---|          AOM    IRMB+6      CHANGE TYPE TO *67X*

Seq #  *Modification Id* Act 
----------------------------+
12827  M02S07794.282l826 ---| IRM2     LDC    IRMA+AJNN   ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
12828  M02S00212.282l826 ---|          UJN    IRM4        ISSUE MESSAGE
12829  M02S00213.282l826 ---|
12830  M02S00214.282l826 ---| IRM2     SHN    21-5+10-21
12831  M02S00215.282l826 ---|          MJN    IRM4        IF MTS TAPE UNIT
12832  M02S00216.282l826 ---|          SFA    EST,EO      CHECK FOR CMTS
12833  M02S00217.282l826 ---|          ADK    EQDE
12834  M02S00218.282l826 ---|          CRD    CM
12835  M02S00219.282l826 ---|          LDD    CM
12836  M02S00220.282l826 ---|          LPN    4
12837  M02S00221.282l826 ---|          ZJN    IRM3        IF NOT CMTS
12838  M02S00222.282l826 ---|          LDC    2R8.        CHANGE TYPE TO *698*
12839  M02S00223.282l826 ---|          STM    IRMB+7
12840  M02S00224.282l826 ---|          LDN    2
12841  M02S00225.282l826 ---|          RAM    IRMB+6
12842  M02S00226.282l826 ---| IRM3     AOM    IRMB+6      CHANGE TYPE TO *67X* (OR *698*)
12843  M02S00227.282l826 ---| IRM4     LDC    IRMA+AJNN   ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
12844  M01S07795.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
12845  M02S00062.282l826 ---|          LDC    IRMA+EJNN   ISSUE MESSAGE TO ERRORLOG
12846  M02S00063.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
12847  M01S07796.282l826 ---|
12848  M01S07797.282l826 ---| IRM      SUBR               ENTRY/EXIT
12849  M01S07798.282l826 ---|          LDD    UP
12850  M01S07799.282l826 ---|          SHN    21-7
12851  M01S07800.282l826 ---|          PJN    IRMX        IF NO ASSIGNED MESSAGE FOR THIS UNIT
12852  M01S07801.282l826 ---|          RJM    IPT         ISSUE PRU-S TRANSFERRED MESSAGE
12853  M01S07802.282l826 ---|          LDD    UP          CLEAR MESSAGE ASSIGNED FLAG
12854  M01S07803.282l826 ---|          LPC    7577
12855  M01S07804.282l826 ---|          STD    UP
12856  M01S07805.282l826 ---|          LDC    IRMA        PLACE JOB SEQUENCE NUMBER INTO MESSAGE
12857  M01S07806.282l826 ---|          RJM    PJM

Seq #  *Modification Id* Act 
----------------------------+
12858  M02S07807.282l826 ---|          STM    IRMB+3      STORE EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
12859  M02S00213.282l826 ---|          STM    IRMB+4      STORE LOWER TWO DIGITS OF EST ORDINAL
12860  M02S00214.282l826 ---|          LDD    EO
12861  M02S00215.282l826 ---|          SHN    -6
12862  M02S00216.282l826 ---|          RAM    IRMB+3      INSERT UPPER DIGIT OF EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
12863  M02S07808.282l826 ---|          UJN    IRM1        ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
12864  M02S00064.282l826 ---|          LJM    IRM1        ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
12865  M01S07809.282l826 ---|
12866  M01S07810.282l826 ---|
12867  M01S07811.282l826 ---| IRMA     VFD    60/-0       JOB SEQUENCE NUMBER AND SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
12868  M02S07812.282l826 ---| IRMB     DATA   C*AMRT, 00, 66X.*

Seq #  *Modification Id* Act 
----------------------------+
12869  M03S00217.282l826 ---| IRMB     DATA   C*AMRT,  000, 66X.*

Seq #  *Modification Id* Act 
----------------------------+
12870  M02S02522.282l826 ---| IRMB     DATA   C*AMRT,  000, 66X.  *
12871  M02S02523.282l826 ---| IVE      SPACE  4,10
12872  M02S02524.282l826 ---|**        IVE - ISSUE VSN MOUNTED EVENT.
12873  M02S02525.282l826 ---|*
12874  M02S02526.282l826 ---|*         EXIT   VSN EVENT ISSUED.
12875  M02S02527.282l826 ---|*
12876  M02S02528.282l826 ---|*         USES   CM - CM+4, CN - CN+4.
12877  M02S02529.282l826 ---|*
12878  M02S02530.282l826 ---|*         CALLS  UAD.
12879  M02S02531.282l826 ---|*
12880  M02S02532.282l826 ---|*         MACROS MONITOR.
12881  M02S02533.282l826 ---|
12882  M02S02534.282l826 ---|
12883  M02S02535.282l826 ---| IVE      SUBR               ENTRY/EXIT
12884  M02S02536.282l826 ---|          RJM    UAD
12885  M02S02537.282l826 ---|          ADN    /MTX/UJID
12886  M02S02538.282l826 ---|          CRD    CM
12887  M02S02539.282l826 ---|          ADN    /MTX/UVSN-/MTX/UJID
12888  M02S02540.282l826 ---|          CRD    CN
12889  M02S02541.282l826 ---|          LDD    CM
12890  M02S02542.282l826 ---|          LPN    77
12891  M02S02543.282l826 ---|          ADD    CM+1
12892  M02S02544.282l826 ---|          ZJN    IVE1        IF NOT ACS UNIT
12893  M02S02545.282l826 ---|          RJM    UAD
12894  M02S02546.282l826 ---|          ADN    /MTX/UESN   USE EXTERNAL VSN
12895  M02S02547.282l826 ---|          CRD    CN
12896  M02S02548.282l826 ---| IVE1     LDN    /CPS/EEVS   SET ENTER EVENT
12897  M02S02549.282l826 ---|          STD    CM+1
12898  M02S02550.282l826 ---|          LDN    /EVENT/VSNE/10000  SET VSN EVENT
12899  M02S02551.282l826 ---|          STD    CM+3
12900  M02S02552.282l826 ---|          LDD    CN
12901  M02S02553.282l826 ---|          ADD    CN+1
12902  M02S02554.282l826 ---|          ADD    CN+2
12903  M02S02555.282l826 ---|          STD    CM+4
12904  M02S02556.282l826 ---|          MONITOR  EATM
12905  M02S02557.282l826 ---|          UJN    IVEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
12906  M01S07813.282l826 ---| LPW      SPACE  4,15
12907  M01S07814.282l826 ---|**        LPW - LOCATE POINTER WORD.
12908  M01S07815.282l826 ---|*
12909  M01S07816.282l826 ---|*         ENTRY  (A) = UDT ADDRESS WHOSE POINTER IS TO BE LOCATED.
12910  M01S07817.282l826 ---|*
12911  M01S07818.282l826 ---|*         EXIT   (T1) = ADDRESS OF WORD CONTAINING REQUESTED POINTER.
12912  M01S07819.282l826 ---|*                (T2) = UDT ADDRESS WHOSE POINTER WAS REQUESTED.
12913  M01S07820.282l826 ---|*                (T3) = BYTE OFFSET FOR POINTER.
12914  M01S07821.282l826 ---|*                (CM - CM+4) = POINTER WORD.
12915  M01S07822.282l826 ---|*
12916  M01S07823.282l826 ---|*         USES   T1 - T4, CM - CM+4.
12917  M01S07824.282l826 ---|*
12918  M01S07825.282l826 ---|*         CALLS  HNG.
12919  M01S07826.282l826 ---|
12920  M01S07827.282l826 ---|
12921  M01S07828.282l826 ---| LPW2     LDN    4           SET BYTE OFFSET
12922  M01S07829.282l826 ---| LPW3     STD    T3
12923  M01S07830.282l826 ---|
12924  M01S07831.282l826 ---| LPW      SUBR               ENTRY/EXIT
12925  M01S07832.282l826 ---|          STD    T2          SAVE UDT ADDRESS
12926  M01S07833.282l826 ---|          LDN    /MTX/UBUF   READ INITIAL UDT POINTER
12927  M01S07834.282l826 ---|          STD    T1
12928  M01S07835.282l826 ---|          LDD    RA          READ WORD CONTAINING POINTER
12929  M01S07836.282l826 ---|          SHN    6
12930  M01S07837.282l826 ---|          ADD    T1
12931  M01S07838.282l826 ---|          CRD    CM
12932  M01S07839.282l826 ---|          LDD    CM          CHECK IF CORRECT POINTER
12933  M01S07840.282l826 ---|          LMD    T2
12934  M01S07841.282l826 ---|          ZJN    LPW3        IF *UBUF* CONTAINS CORRECT POINTER
12935  M01S07842.282l826 ---|          LDD    CM+2        SET LWA+1 OF UDT,S
12936  M01S07843.282l826 ---|          STD    T4
12937  M01S07844.282l826 ---|          LDD    CM+4        SET FWA OF UDT,S
12938  M01S07845.282l826 ---|          ADN    /MTX/UVRI
12939  M01S07846.282l826 ---|          STD    T1
12940  M01S07847.282l826 ---| LPW1     LDD    RA          READ UDT POINTER WORD
12941  M01S07848.282l826 ---|          SHN    6
12942  M01S07849.282l826 ---|          ADD    T1
12943  M01S07850.282l826 ---|          CRD    CM
12944  M01S07851.282l826 ---|          LDD    CM+4        CHECK FOR POINTER MATCH
12945  M01S07852.282l826 ---|          LMD    T2
12946  M01S07853.282l826 ---|          ZJN    LPW2        IF THIS UDT CONTAINS REQUESTED POINTER
12947  M01S07854.282l826 ---|          LDN    /MTX/UNITL  ADVANCE TO NEXT UDT
12948  M01S07855.282l826 ---|          RAD    T1
12949  M01S07856.282l826 ---|          SBD    T4
12950  M01S07857.282l826 ---|          MJN    LPW1        IF MORE UDT,S TO CHECK
12951  M01S07858.282l826 ---|          RJM    HNG         HANG PP
12952  M00S07859.1mt     +++| LWR      SPACE  4,15
12953  M00S07860.1mt     +++|**        LWR - TEST WRITE/READ PATH TO ATS UNIT.
12954  M00S07861.1mt     +++|*
12955  M00S07862.1mt     +++|*         ENTRY  (DS) = GENERAL STATUS.
12956  M00S07863.1mt     +++|*                (ATUS - ATUS+5) = UNIT STATUS.
12957  M00S07864.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
12958  M01S07865.282l826 ---|*         EXIT   TAPE UNLOADED AND UNIT TURNED *OFF* IF
12959  M01S07866.282l826 ---|*                LOOP WRITE TO READ FUNCTION FAILS.

Seq #  *Modification Id* Act 
----------------------------+
12960  M01S00786.282l826 +++|*         EXIT   TAPE UNLOADED AND UNIT DOWNED IF LOOP WRITE/READ TEST
12961  M01S00787.282l826 +++|*                  FAILURE.
12962  M01S00788.282l826 +++|*
12963  M01S00789.282l826 +++|*         USES   CM+1, CM+2.
12964  M00S07867.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
12965  M01S07868.252l678 ---|*         CALLS  CUI, DTS, ERR, FCR, REU, STW, UAD.

Seq #  *Modification Id* Act 
----------------------------+
12966  M01S00315.252l678 +++|*         CALLS  CUI, DTS, *EMM*, ERR, FCR, REU, STW, UAD.
12967  M00S07869.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
12968  M01S07870.252l678 ---|*         MACROS MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
12969  M01S00316.252l678 +++|*         MACROS CALL, MONITOR.
12970  M00S07871.1mt     +++|
12971  M00S07872.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
12972  M01S07873.252l678 ---| LWR6     LCN    /MTX/MOF-/MTX/CRJ  ALTER ERROR FOR CONNECT REJECT

Seq #  *Modification Id* Act 
----------------------------+
12973  M01S00317.252l678 +++| LWR7     LCN    /MTX/MOF-/MTX/CRJ  ALTER ERROR FOR CONNECT REJECT
12974  M00S07874.1mt     +++|          RAM    LWRA
12975  M00S07875.1mt     +++|          LJM    LWR5        *OFF* UNIT
12976  M00S07876.1mt     +++|
12977  M00S07877.1mt     +++| LWR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
12978  M01S07878.282l826 ---|          LDD    HP
12979  M01S07879.282l826 ---|          LPN    20
12980  M01S07880.282l826 ---|          ZJN    LWRX        IF NOT ATS UNIT
12981  M00S07881.1mt     +++|          LDD    DS          SAVE STATUS FOR POSSIBLE MESSAGE
12982  M00S07882.1mt     +++|          STM    //STER
12983  M00S07883.1mt     +++|          LPN    3
12984  M00S07884.1mt     +++|          LMN    1
12985  M00S07885.1mt     +++|          NJN    LWRX        IF UNIT NOT READY
12986  M00S07886.1mt     +++|
12987  M00S07887.1mt     +++|*         RECHECK UNIT STATUS FOR MDI ERRORS. THESE ERRORS
12988  M00S07888.1mt     +++|*         MAY HAVE BEEN IGNORED AT INITIAL CONNECT TIME.
12989  M00S07889.1mt     +++|*         IF ANY ERRORS ARE PRESENT, PROCESS AS IF CONNECT REJECT.
12990  M00S07890.1mt     +++|
12991  M00S07891.1mt     +++|          RJM    DTS         GET UNIT STATUS
12992  M00S07892.1mt     +++|          LDM    MTDS        CHECK STATUS
12993  M00S07893.1mt     +++|          SHN    21-12
12994  M00S07894.1mt     +++|          PJN    LWR2        IF NO UNIT CHECK
12995  M00S07895.1mt     +++|          LDM    ATUS+1

Seq #  *Modification Id* Act 
----------------------------+
12996  M01S07896.252l678 ---|          LPC    7756
12997  M01S07897.252l678 ---|          NJN    LWR6        IF ERRORS OHER THAN RESET OR LOAD CHECK

Seq #  *Modification Id* Act 
----------------------------+
12998  M01S00318.252l678 +++|          LPC    216         LAMP,DSE,ERASE CURRENT,AIR PRESS. FAILURE
12999  M01S00319.252l678 +++|          NJN    LWR7        IF ERRORS OTHER THAN RESET OR LOAD CHECK
13000  M00S07898.1mt     +++|          LDM    ATUS+2

Seq #  *Modification Id* Act 
----------------------------+
13001  M01S07899.252l678 ---|          LPC    7230

Seq #  *Modification Id* Act 
----------------------------+
13002  M01S00320.252l678 +++|          LPN    30          AIR FLOW,THERMAL FAILURE
13003  M00S07900.1mt     +++|          NJN    LWR1        IF MDI ERRORS
13004  M00S07901.1mt     +++|          LDM    ATUS

Seq #  *Modification Id* Act 
----------------------------+
13005  M01S07902.252l678 ---|          LPN    40
13006  M01S07903.252l678 ---|          ZJN    LWR2        IF NO WRITE CURRENT FAILURE
13007  M01S07904.252l678 ---| LWR1     LJM    LWR6        PROCESS CONNECT REJECT

Seq #  *Modification Id* Act 
----------------------------+
13008  M01S00321.252l678 +++|          SHN    21-6
13009  M01S00322.252l678 +++|          PJN    LWR2        IF NO WRITE CURRENT FAILURE
13010  M01S00323.252l678 +++| LWR1     LJM    LWR7        PROCESS CONNECT REJECT
13011  M00S07905.1mt     +++|
13012  M00S07906.1mt     +++|*         ISSUE LOOP WRITE TO READ FUNCTION TO UNIT.
13013  M00S07907.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
13014  M01S07908.252l678 ---| LWR2     LDN    0           CLEAR CONNECTED FLAG

Seq #  *Modification Id* Act 
----------------------------+
13015  M01S00324.252l678 +++| LWR2     LDM    ATUS+2      GET DETAIL STATUS WORD 13
13016  M01S00325.252l678 +++|          LPN    34          AIR FLOW,THERMAL,CLEANER NOT PARKED
13017  M01S00326.252l678 +++|          ZJN    LWR2.1      IF NO PROBLEM
13018  M01S00327.252l678 +++|          LPN    30          AIR FLOW,THERMAL FAILURE
13019  M01S00328.252l678 +++|          NJN    LWR1        IF MDI PROBLEM
13020  M01S00329.252l678 +++|          LDN    /MTX/TCF-/MTX/MOF  ALTER ERROR FOR TAPE CLEANER FAULT
13021  M01S00330.252l678 +++|          RAM    LWRA
13022  M01S00331.252l678 +++|          LJM    LWR4        PROCESS CLEANER NOT PARKED
13023  M01S00332.252l678 +++|
13024  M01S00333.252l678 +++| LWR2.1   LDN    0
13025  M00S07909.1mt     +++|          STM    //RELA
13026  M00S07910.1mt     +++|          RJM    CUI         INSURE UNIT FORMATED
13027  M00S07911.1mt     +++|          LDM    MTDS+5
13028  M00S07912.1mt     +++|          SHN    21-7
13029  M00S07913.1mt     +++|          MJN    LWR4        IF WRITE CURRENT ON
13030  M00S07914.1mt     +++|          LDC    175         SET LOOP WRITE TO READ (LWR) MODE
13031  M00S07915.1mt     +++|          RJM    FCR
13032  M00S07916.1mt     +++|          NJN    LWR4        IF FUNCTION REJECT
13033  M00S07917.1mt     +++|          LDN    50          ISSUE WRITE FUNCTION
13034  M00S07918.1mt     +++|          RJM    FCR
13035  M00S07919.1mt     +++|          NJN    LWR4        IF FUNCTION REJECT
13036  M00S07920.1mt     +++|          ACN    CH          OUTPUT DATA
13037  M00S07921.1mt     +++|          LDD    HN
13038  M00S07922.1mt     +++|          OAM    BFMS,CH
13039  M00S07923.1mt     +++|          FJM    *,CH
13040  M00S07924.1mt     +++|          NJN    LWR3        IF ABNORMAL TERMINATION
13041  M00S07925.1mt     +++|          DCN    CH+40
13042  M00S07926.1mt     +++| LWR3     LDN    0           GET STATUS
13043  M00S07927.1mt     +++|          RJM    STW
13044  M00S07928.1mt     +++|          STM    //STER      SAVE STATUS FOR POSSIBLE MESSAGE
13045  M00S07929.1mt     +++|          SHN    21-13
13046  M00S07930.1mt     +++|          MJN    LWR4        IF ALERT SET
13047  M00S07931.1mt     +++|          LJM    LWRX        RETURN
13048  M00S07932.1mt     +++|
13049  M00S07933.1mt     +++| LWR4     LDN    1           UNLOAD TAPE
13050  M00S07934.1mt     +++|          RJM    REU

Seq #  *Modification Id* Act 
----------------------------+
13051  M01S07935.282l826 ---| LWR5     LDD    EO          *OFF* UNIT

Seq #  *Modification Id* Act 
----------------------------+
13052  M01S00790.282l826 +++| LWR5     LDD    EO

Seq #  *Modification Id* Act 
----------------------------+
13053  M01S07936.ns22000 ---|          SHN    -6
13054  M00S07937.1mt     +++|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
13055  M01S07938.282l826 ---|          LDN    /CPS/OFES   SET OFF STATUS

Seq #  *Modification Id* Act 
----------------------------+
13056  M01S00791.282l826 +++|          LDN    /CPS/DWES   SET DOWN STATUS
13057  M00S07939.1mt     +++|          STD    CM+2
13058  M00S07940.1mt     +++|          MONITOR SEQM       SET EQUIPMENT PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
13059  M01S07941.282l826 ---|          LDC    400         SET DOWN FLAG
13060  M01S07942.282l826 ---|          RAD    ED
13061  M01S07943.282l826 ---|          RJM    UAD         REWRITE *UST1*
13062  M01S07944.282l826 ---|          ADN    /MTX/UST1
13063  M01S07945.282l826 ---|          CWD    ED
13064  M00S07946.1mt     +++| LWRA     LDN    /MTX/MOF    ISSUE MESSAGE AND ABORT
13065  M00S07947.1mt     +++|*         LDN    /MTX/CRJ    (CONNECT REJECT)

Seq #  *Modification Id* Act 
----------------------------+
13066  M01S00334.252l678 +++|*         LDN    /MTX/TCF    (TAPE CLEANER FAULT)
13067  M00S07948.1mt     +++|          RJM    ERR

Seq #  *Modification Id* Act 
----------------------------+
13068  M01S07949.282l826 ---| PJM      SPACE  4,10
13069  M01S07950.282l826 ---|**        PJM - PLACE JOB SEQUENCE NUMBER INTO MESSAGE.
13070  M01S07951.282l826 ---|*         MUST BE AT MAGNET,S CP TO USE THIS ROUTINE.

Seq #  *Modification Id* Act 
----------------------------+
13071  M01S00792.282l826 +++| RLB      SPACE  4,15
13072  M01S00793.282l826 +++|**        RBL - READ BUFFERED LOG.
13073  M00S07952.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13074  M01S07953.282l826 ---|*         ENTRY  (A) = ADDRESS OF MESSAGE.
13075  M01S07954.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
13076  M02S07955.282l826 ---|*         EXIT   (A) = EST ORDINAL IN DISPLAY CODE.

Seq #  *Modification Id* Act 
----------------------------+
13077  M02S00218.282l826 ---|*         EXIT   (A) = LOWER TWO DIGITS OF EST ORDINAL IN DISPLAY CODE.

Seq #  *Modification Id* Act 
----------------------------+
13078  M01S07956.282l826 ---|*
13079  M01S07957.282l826 ---|*         CALLS  C2D, UAD.
13080  M01S07958.282l826 ---|*
13081  M01S07959.282l826 ---|*         USES   T1, CM - CM+4.
13082  M01S07960.282l826 ---|
13083  M01S07961.282l826 ---|
13084  M01S07962.282l826 ---| PJM      SUBR               ENTRY/EXIT
13085  M01S07963.282l826 ---|          STD    T1
13086  M01S07964.282l826 ---|          RJM    UAD         GET JOB IDENTIFICATION
13087  M01S07965.282l826 ---|          ADN    /MTX/UJID
13088  M01S07966.282l826 ---|          CRD    CM
13089  M01S07967.282l826 ---|          LDD    CM+2        GET EJT ENTRY ABSOLUTE ADDRESS
13090  M01S07968.282l826 ---|          LPN    37
13091  M01S07969.282l826 ---|          SHN    14
13092  M01S07970.282l826 ---|          ADD    CM+3
13093  M01S07971.282l826 ---|          ADN    SCLE
13094  M01S07972.282l826 ---|          CRD    CM
13095  M01S07973.282l826 ---|          SBN    SCLE-JSNE
13096  M01S07974.282l826 ---|          CRD    CM+1
13097  M01S07975.282l826 ---|          LDD    CM+1        ENTER JOB SEQUENCE NUMBER INTO MESSAGE
13098  M01S07976.282l826 ---|          STI    T1
13099  M01S07977.282l826 ---|          LDD    CM+2
13100  M01S07978.282l826 ---|          STM    1,T1
13101  M01S07979.282l826 ---|          LDD    CM          GET JOB SERVICE CLASS
13102  M01S07980.282l826 ---|          SHN    -6
13103  M01S07981.282l826 ---|          STM    4,T1
13104  M01S07982.282l826 ---|          LDD    EO

Seq #  *Modification Id* Act 
----------------------------+
13105  M02S07983.282l826 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
13106  M01S07984.282l826 ---|          RJM    C2D
13107  M01S07985.282l826 ---|          UJN    PJMX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13108  M03S02558.282l826 ---| RLB      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
13109  M02S00001.282l826 ---| RBL      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
13110  M02S02559.282l826 ---|**        RBL - READ BUFFERED LOG.
13111  M02S02560.282l826 ---|*         IF THE EQUIPMENT IS CTS AND THE PREVIOUS FUNCTION WAS UNLOAD,
13112  M02S02561.282l826 ---|*         THIS ROUTINE READS THE CONTROLLER BUFFERED LOG AND UPDATES
13113  M02S02562.282l826 ---|*         RECOVERED READ AND WRITE ERROR COUNTERS.
13114  M02S02563.282l826 ---|*
13115  M02S02564.282l826 ---|*         ENTRY  (HP) = HARDWARE OPTIONS.
13116  M02S02565.282l826 ---|*                (PB) = 0 IF REWIND, 1 IF UNLOAD.

Seq #  *Modification Id* Act 
----------------------------+
13117  M01S00794.282l826 +++|*         EXIT   RECOVERED ERROR COUNTS UPDATED.

Seq #  *Modification Id* Act 
----------------------------+
13118  M01S02566.274l797 +++|*
13119  M01S02567.274l797 +++|*         USES   T1, T3.
13120  M01S02568.274l797 +++|*
13121  M01S02569.274l797 +++|*         CALLS  ERR, /PRESET/GPS, /PRESET/ICF.
13122  M01S02570.274l797 +++|
13123  M01S02571.274l797 +++|
13124  M01S02572.274l797 +++| RBL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
13125  M02S02573.282l826 ---|          LDD    HP
13126  M02S02574.282l826 ---|          SHN    21-7
13127  M02S02575.282l826 ---|          PJN    RBLX        IF NOT CTS
13128  M02S02576.282l826 ---|          LDD    PB
13129  M02S02577.282l826 ---|          ZJN    RBLX        IF REWIND WAS PREVIOUS FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
13130  M01S02578.274l797 +++|          LDK    F0312
13131  M01S02579.274l797 +++|          RJM    /PRESET/ICF ISSUE READ BUFFERED LOG FUNCTION
13132  M01S02580.274l797 +++| RBL1     ACN    CH
13133  M01S02581.274l797 +++|          LDN    32D

Seq #  *Modification Id* Act 
----------------------------+
13134  M02S02582.282l826 ---|          IAM    PFN2,CH

Seq #  *Modification Id* Act 
----------------------------+
13135  M01S00795.282l826 +++|          IAM    RBLA,CH

Seq #  *Modification Id* Act 
----------------------------+
13136  M01S02583.274l797 +++|          STD    T3          WORDS NOT TRANSFERRED
13137  M01S02584.274l797 +++|          SFM    RBL3,CH     IF CHANNEL PARITY ERROR
13138  M01S02585.274l797 +++| RBL2     LDN    0
13139  M01S02586.274l797 +++|          RJM    /PRESET/GPS GET AND PROCESS GENERAL STATUS
13140  M01S02587.274l797 +++|          MJN    RBL1        IF COMMAND RETRY
13141  M01S02588.274l797 +++|          LDD    T3
13142  M01S02589.274l797 +++|          ZJN    RBL4        IF ALL BUFFERED LOG DATA RECEIVED
13143  M01S02590.274l797 +++| RBL3     LDN    /MTX/CMF
13144  M01S02591.274l797 +++|          RJM    ERR         PROCESS ERROR (NO RETURN)
13145  M01S02592.274l797 +++|
13146  M01S02593.274l797 +++|*         INCREMENT WRITE ERROR COUNTER.
13147  M01S02594.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
13148  M02S02595.282l826 ---| RBL4     LDM    PFN2+2

Seq #  *Modification Id* Act 
----------------------------+
13149  M01S00796.282l826 +++| RBL4     LDM    RBLA+2

Seq #  *Modification Id* Act 
----------------------------+
13150  M01S02596.274l797 +++|          LPN    17
13151  M01S02597.274l797 +++|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
13152  M02S02598.282l826 ---|          ADM    PFN2+3      TEMPORARY WRITE DATA CHECKS

Seq #  *Modification Id* Act 
----------------------------+
13153  M01S00797.282l826 +++|          ADM    RBLA+3      TEMPORARY WRITE DATA CHECKS

Seq #  *Modification Id* Act 
----------------------------+
13154  M01S02599.274l797 +++|          RAM    ECNT+2
13155  M01S02600.274l797 +++|          SHN    -14
13156  M01S02601.274l797 +++|          RAM    ECNT+1

Seq #  *Modification Id* Act 
----------------------------+
13157  M02S02602.282l826 ---|          LDM    PFN2+6

Seq #  *Modification Id* Act 
----------------------------+
13158  M01S00798.282l826 +++|          LDM    RBLA+6

Seq #  *Modification Id* Act 
----------------------------+
13159  M01S02603.274l797 +++|          SHN    -4
13160  M01S02604.274l797 +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
13161  M02S02605.282l826 ---|          LDM    PFN2+5

Seq #  *Modification Id* Act 
----------------------------+
13162  M01S00799.282l826 +++|          LDM    RBLA+5

Seq #  *Modification Id* Act 
----------------------------+
13163  M01S02606.274l797 +++|          LPC    377
13164  M01S02607.274l797 +++|          SHN    10
13165  M01S02608.274l797 +++|          ADD    T1          WRITE BLOCKS CORRECTED WITHOUT ERPA
13166  M01S02609.274l797 +++|          RAM    ECNT+2
13167  M01S02610.274l797 +++|          SHN    -14
13168  M01S02611.274l797 +++|          RAM    ECNT+1
13169  M01S02612.274l797 +++|
13170  M01S02613.274l797 +++|*         INCREMENT READ ERROR COUNTER.
13171  M01S02614.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
13172  M02S02615.282l826 ---|          LDM    PFN2+1

Seq #  *Modification Id* Act 
----------------------------+
13173  M01S00800.282l826 +++|          LDM    RBLA+1

Seq #  *Modification Id* Act 
----------------------------+
13174  M01S02616.274l797 +++|          SHN    -10
13175  M01S02617.274l797 +++|          SHN    16

Seq #  *Modification Id* Act 
----------------------------+
13176  M02S02618.282l826 ---|          ADM    PFN2

Seq #  *Modification Id* Act 
----------------------------+
13177  M01S00801.282l826 +++|          ADM    RBLA

Seq #  *Modification Id* Act 
----------------------------+
13178  M01S02619.274l797 +++|          SHN    4           TEMPORARY READ DATA CHECKS
13179  M01S02620.274l797 +++|          RAM    ECNT+4
13180  M01S02621.274l797 +++|          SHN    -14
13181  M01S02622.274l797 +++|          RAM    ECNT+3

Seq #  *Modification Id* Act 
----------------------------+
13182  M02S02623.282l826 ---|          LDM    PFN2+5

Seq #  *Modification Id* Act 
----------------------------+
13183  M01S00802.282l826 +++|          LDM    RBLA+5

Seq #  *Modification Id* Act 
----------------------------+
13184  M01S02624.274l797 +++|          SHN    -10
13185  M01S02625.274l797 +++|          SHN    16

Seq #  *Modification Id* Act 
----------------------------+
13186  M02S02626.282l826 ---|          ADM    PFN2+4

Seq #  *Modification Id* Act 
----------------------------+
13187  M01S00803.282l826 +++|          ADM    RBLA+4

Seq #  *Modification Id* Act 
----------------------------+
13188  M01S02627.274l797 +++|          SHN    4           READ BLOCKS CORRECTED WITHOUT ERPA
13189  M01S02628.274l797 +++|          RAM    ECNT+4
13190  M01S02629.274l797 +++|          SHN    -14
13191  M01S02630.274l797 +++|          RAM    ECNT+3
13192  M01S02631.274l797 +++|          LJM    RBLX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13193  M01S07986.282l826 ---| SFB      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
13194  M02S07987.282l826 ---|**        SFB - CHANGE EQUIPMENT NUMBER IN FST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
13195  M02S00219.282l826 ---|**        SFB - CHANGE EST ORDINAL IN FST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
13196  M01S07988.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
13197  M02S07989.282l826 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER TO PLACE IN FNT.

Seq #  *Modification Id* Act 
----------------------------+
13198  M02S00220.282l826 ---|*         ENTRY  (T5) = EST ORDINAL TO PLACE IN FST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
13199  M01S07990.282l826 ---|*                (FA) = FNT ADDRESS IN NFL.
13200  M01S07991.282l826 ---|*
13201  M01S07992.282l826 ---|*         EXIT   (A) = 0 IF OPERATION COMPLETE.
13202  M01S07993.282l826 ---|*                (A) .NE. 0 IF ERROR FLAG SET.
13203  M01S07994.282l826 ---|*
13204  M01S07995.282l826 ---|*         ERROR  EXIT TO *HNG* IF FILE NAME COMPARISON FAILED.
13205  M01S07996.282l826 ---|*
13206  M01S07997.282l826 ---|*         USES   CM - CM+4.
13207  M01S07998.282l826 ---|*
13208  M01S07999.282l826 ---|*         CALLS  HNG.
13209  M01S08000.282l826 ---|*
13210  M01S08001.282l826 ---|*         MACROS DELAY, MONITOR, PAUSE.
13211  M00S08002.1mt     +++|
13212  M00S08003.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
13213  M01S08004.282l826 ---| SFB3     LDD    T5          DROP NEW EQUIPMENT
13214  M01S08005.282l826 ---|          STD    CM+1
13215  M01S08006.282l826 ---|          MONITOR  DEQM
13216  M01S08007.282l826 ---|
13217  M01S08008.282l826 ---| SFB      SUBR               ENTRY/EXIT
13218  M01S08009.282l826 ---| SFB1     LDD    FA          SET FST ADDRESS
13219  M01S08010.282l826 ---|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
13220  M02S08011.282l826 ---|          LDD    T5          SET EQUIPMENT NUMBER
13221  M02S08012.282l826 ---|          SHN    6
13222  M02S08013.282l826 ---|          STD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
13223  M02S00221.282l826 ---|          LDN    0
13224  M02S00222.282l826 ---|          STD    CM+3
13225  M02S00223.282l826 ---|          LDD    T5          SET EST ORDINAL IN REQUEST
13226  M02S00224.282l826 ---|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
13227  M01S08014.282l826 ---|          MONITOR SFBM       SET FILE BUSY
13228  M01S08015.282l826 ---|          LDD    CM+1
13229  M01S08016.282l826 ---|          ZJN    SFBX        IF OPERATION COMPLETE
13230  M01S08017.282l826 ---|          LMN    1
13231  M01S08018.282l826 ---|          ZJN    SFB2        IF NOT NAME REJECT
13232  M01S08019.282l826 ---|          RJM    HNG         HANG PP
13233  M01S08020.282l826 ---|
13234  M01S08021.282l826 ---| SFB2     PAUSE
13235  M01S08022.282l826 ---|          LDD    CM+1
13236  M01S08023.282l826 ---|          NJN    SFB3        IF ERROR FLAG SET
13237  M01S08024.282l826 ---|          DELAY
13238  M01S08025.282l826 ---|          UJN    SFB1        RETRY
13239  M01S08026.282l826 ---| SFF      SPACE  4,10
13240  M01S08027.282l826 ---|**        SFF - SEARCH FOR FILE.
13241  M01S08028.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
13242  M02S08029.282l826 ---|*         ENTRY  (A) = EQUIPMENT NUMBER TO MATCH ON.

Seq #  *Modification Id* Act 
----------------------------+
13243  M02S00225.282l826 ---|*         ENTRY  (A) = EST ORDINAL TO MATCH.

Seq #  *Modification Id* Act 
----------------------------+
13244  M01S08030.282l826 ---|*
13245  M01S08031.282l826 ---|*         EXIT   (A) = (FA) = FNT ADDRESS.
13246  M01S08032.282l826 ---|*                (A) = 0 IF FILE NOT FOUND.
13247  M01S08033.282l826 ---|*
13248  M01S08034.282l826 ---|*         USES   CN, CN+1, FA, CM - CM+4.
13249  M01S08035.282l826 ---|*
13250  M01S08036.282l826 ---|*         MACROS NFA.
13251  M01S08037.282l826 ---|
13252  M01S08038.282l826 ---|
13253  M01S08039.282l826 ---| SFF2     LDN    0           SET FILE NOT FOUND
13254  M01S08040.282l826 ---|
13255  M01S08041.282l826 ---| SFF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
13256  M02S08042.282l826 ---|          STD    CN          SAVE EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
13257  M02S00226.282l826 ---|          STD    CN          SAVE EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
13258  M01S08043.282l826 ---|          LDD    CP
13259  M01S08044.282l826 ---|          ADN    FLSW
13260  M01S08045.282l826 ---|          CRD    CM
13261  M01S08046.282l826 ---|          LDD    CM          SET NFL SIZE
13262  M01S08047.282l826 ---|          SHN    6
13263  M01S08048.282l826 ---|          ADN    1           LWA + 1 OF NFL
13264  M01S08049.282l826 ---|          STD    CN+1
13265  M01S08050.282l826 ---|          LDC    FNTN        START OF FNT ENTRIES
13266  M01S08051.282l826 ---|          STD    FA
13267  M01S08052.282l826 ---| SFF1     LDN    LENF        INCREMENT TO NEXT ENTRY
13268  M01S08053.282l826 ---|          RAD    FA
13269  M01S08054.282l826 ---|          SBD    CN+1
13270  M01S08055.282l826 ---|          PJN    SFF2        IF END OF NFL
13271  M01S08056.282l826 ---|          NFA    FA,R        READ FST
13272  M01S08057.282l826 ---|          ADN    FSTL
13273  M01S08058.282l826 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
13274  M02S08059.282l826 ---|          LDD    CM          CHECK EQUIPMENT NUMBER
13275  M02S08060.282l826 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
13276  M02S00227.282l826 ---|          LDD    CM          CHECK EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
13277  M01S08061.282l826 ---|          LMD    CN

Seq #  *Modification Id* Act 
----------------------------+
13278  M02S08062.282l826 ---|          NJN    SFF1        IF NO MATCH ON EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
13279  M02S00228.282l826 ---|          NJN    SFF1        IF NO MATCH ON EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
13280  M01S08063.282l826 ---|          LDD    FA          SET FNT ADDRESS
13281  M01S08064.282l826 ---|          UJN    SFFX        RETURN
13282  M01S08065.282l826 ---| SIF      SPACE  4,15
13283  M01S08066.282l826 ---|**        SIF - SET INTERLOCK ON FILE IN SYSTEM FNT.
13284  M01S08067.282l826 ---|*
13285  M01S08068.282l826 ---|*         ENTRY  (FA) = FNT ORDINAL OF FILE TO INTERLOCK.
13286  M01S08069.282l826 ---|*                FILE NAME TO COMPARE IN MESSAGE BUFFER.
13287  M01S08070.282l826 ---|*
13288  M01S08071.282l826 ---|*         EXIT   (A) = 0 IF FILE INTERLOCKED.
13289  M01S08072.282l826 ---|*                (A) .NE. 0 IF ERROR FLAG SET.
13290  M01S08073.282l826 ---|*
13291  M01S08074.282l826 ---|*         ERROR  EXIT TO *HNG* IF NO COMPARE ON FILE NAME.
13292  M01S08075.282l826 ---|*
13293  M01S08076.282l826 ---|*         USES   T1, CM - CM+4.
13294  M01S08077.282l826 ---|*
13295  M01S08078.282l826 ---|*         CALLS  HNG, SFI.
13296  M01S08079.282l826 ---|*
13297  M01S08080.282l826 ---|*         MACROS DELAY, MONITOR, PAUSE, SFA.
13298  M01S08081.282l826 ---|
13299  M01S08082.282l826 ---|
13300  M01S08083.282l826 ---| SIF      SUBR               ENTRY/EXIT
13301  M01S08084.282l826 ---|          LDN    /CPS/VFIN   VERIFY FILE NAME AND SET INTERLOCK OPTION
13302  M01S08085.282l826 ---|          STD    T1
13303  M01S08086.282l826 ---| SIF1     SFA    FNT,FA      ABSOLUTE ADDRESS OF FNT ENTRY
13304  M01S08087.282l826 ---|          RJM    SFI         VERIFY FILE NAME AND INTERLOCK FILE
13305  M01S08088.282l826 ---|          ZJN    SIFX        IF OPERATION COMPLETE
13306  M01S08089.282l826 ---|          LMN    1
13307  M01S08090.282l826 ---|          ZJN    SIF2        IF NOT FILE NAME REJECT
13308  M01S08091.282l826 ---|          RJM    HNG         HANG PP
13309  M01S08092.282l826 ---|
13310  M01S08093.282l826 ---| SIF2     PAUSE
13311  M01S08094.282l826 ---|          LDD    CM+1
13312  M01S08095.282l826 ---|          NJN    SIFX        IF ERROR FLAG SET
13313  M01S08096.282l826 ---|          DELAY
13314  M01S08097.282l826 ---|          UJN    SIF1        RETRY TO SET INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
13315  M02S00265.282l826 ---| STA      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
13316  M03S00266.282l826 ---|**        STA - STATUS CHANNEL.

Seq #  *Modification Id* Act 
----------------------------+
13317  M02S02632.282l826 ---|**        STA - ISSUE FUNCTION.

Seq #  *Modification Id* Act 
----------------------------+
13318  M02S00267.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
13319  M03S00268.282l826 ---|*         EXIT   (A) = 0 IF FUNCTION REJECT.
13320  M03S00269.282l826 ---|*                (A) .NE. 0 IF FUNCTION ACCEPTED.

Seq #  *Modification Id* Act 
----------------------------+
13321  M02S02633.282l826 ---|*         ENTRY  (A) = FUNCTION TO ISSUE.
13322  M02S02634.282l826 ---|*
13323  M02S02635.282l826 ---|*         EXIT   TO *PFN34* IF ERROR.

Seq #  *Modification Id* Act 
----------------------------+
13324  M02S00270.282l826 ---|
13325  M02S00271.282l826 ---|
13326  M02S00272.282l826 ---| STA      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
13327  M03S00273.282l826 ---|          LCN    1           SET DELAY
13328  M03S00274.282l826 ---| STA1     IJM    STAX,CH     IF FUNCTION ACCEPTED
13329  M03S00275.282l826 ---| STAA     EQU    *-2

Seq #  *Modification Id* Act 
----------------------------+
13330  M02S02636.282l826 ---|          FAN    CH
13331  M02S02637.282l826 ---| STAA     EQU    *-1
13332  M02S02638.282l826 ---|          LDN    13
13333  M02S02639.282l826 ---|          STD    T0
13334  M02S02640.282l826 ---| STA1     LCN    0
13335  M02S02641.282l826 ---| STA2     IJM    STAX,CH     IF FUNCTION ACCEPTED
13336  M02S02642.282l826 ---| STAB     EQU    *-2

Seq #  *Modification Id* Act 
----------------------------+
13337  M02S00276.282l826 ---|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
13338  M03S00277.282l826 ---|          NJN    STA1        IF NOT TIMEOUT
13339  M03S00278.282l826 ---|          DCN    CH+40
13340  M03S00279.282l826 ---| STAB     EQU    *-1
13341  M03S00280.282l826 ---|*         LDN    0
13342  M03S00281.282l826 ---|          UJN    STAX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13343  M02S02643.282l826 ---|          NJN    STA2        IF TIMEOUT NOT EXPIRED
13344  M02S02644.282l826 ---|          SOD    T1
13345  M02S02645.282l826 ---|          NJN    STA1        IF 3 SECOND TIMEOUT (4X PP) NOT EXPIRED
13346  M02S02646.282l826 ---|          LJM    PFN34       ERROR EXIT

Seq #  *Modification Id* Act 
----------------------------+
13347  M01S08098.282l826 ---| SUP      SPACE  4,15
13348  M01S08099.282l826 ---|**        SUP - SWAP UDT POINTERS.
13349  M01S08100.282l826 ---|*
13350  M01S08101.282l826 ---|*         ENTRY  (//UADA) = UDT ADDRESS OF CURRENT UNIT.
13351  M01S08102.282l826 ---|*                (CN+4) = UDT ADDRESS OF NEW UNIT.
13352  M01S08103.282l826 ---|*
13353  M01S08104.282l826 ---|*         EXIT   UDT POINTERS UPDATED TO REFLECT UNIT SWAP.
13354  M01S08105.282l826 ---|*                *DSD* PAGE POINTERS UPDATED.
13355  M01S08106.282l826 ---|*
13356  M01S08107.282l826 ---|*         USES   T3 - T7, CM - CM+4.
13357  M01S08108.282l826 ---|*
13358  M01S08109.282l826 ---|*         CALLS  LPW, UDP.
13359  M01S08110.282l826 ---|
13360  M01S08111.282l826 ---|
13361  M01S08112.282l826 ---| SUP      SUBR               ENTRY/EXIT
13362  M01S08113.282l826 ---|          LDD    CN+4        LOCATE POINTER TO NEW UNIT
13363  M01S08114.282l826 ---|          RJM    LPW
13364  M01S08115.282l826 ---|          LDD    T1          SAVE POINTER WORD ADDRESS
13365  M01S08116.282l826 ---|          STD    T5
13366  M01S08117.282l826 ---|          LDD    T3          SAVE BYTE OFFSET
13367  M01S08118.282l826 ---|          STD    T6
13368  M01S08119.282l826 ---|          LDM    UADA        LOCATE POINTER TO CURRENT UDT
13369  M01S08120.282l826 ---|          RJM    LPW
13370  M01S08121.282l826 ---|          LDD    CN+4        EXCHANGE POINTERS TO CURRENT AND NEW UDT
13371  M01S08122.282l826 ---|          STM    CM,T3
13372  M01S08123.282l826 ---|          LDD    RA          REWRITE UDT WORDS
13373  M01S08124.282l826 ---|          SHN    6
13374  M01S08125.282l826 ---|          ADD    T1
13375  M01S08126.282l826 ---|          CWD    CM
13376  M01S08127.282l826 ---|          SBD    T1
13377  M01S08128.282l826 ---|          ADD    T5
13378  M01S08129.282l826 ---|          CRD    CM          READ WORD CONTAINING POINTER TO NEW UNIT
13379  M01S08130.282l826 ---|          LDD    T2
13380  M01S08131.282l826 ---|          STM    CM,T6
13381  M01S08132.282l826 ---|          LDD    RA
13382  M01S08133.282l826 ---|          SHN    6
13383  M01S08134.282l826 ---|          ADD    T5
13384  M01S08135.282l826 ---|          CWD    CM
13385  M01S08136.282l826 ---|          SBD    T5
13386  M01S08137.282l826 ---|          ADD    T2          EXCHANGE POINTERS IN CURRENT AND NEW UDT,S
13387  M01S08138.282l826 ---|          ADN    /MTX/UVRI
13388  M01S08139.282l826 ---|          CRD    CM
13389  M01S08140.282l826 ---|          SBD    T2
13390  M01S08141.282l826 ---|          ADD    CN+4
13391  M01S08142.282l826 ---|          CRD    T3
13392  M01S08143.282l826 ---|          LDD    CM+4
13393  M01S08144.282l826 ---|          STD    T1
13394  M01S08145.282l826 ---|          LDD    T7
13395  M01S08146.282l826 ---|          STD    CM+4
13396  M01S08147.282l826 ---|          LDD    T1
13397  M01S08148.282l826 ---|          STD    T7
13398  M01S08149.282l826 ---|          LDD    RA          REWRITE BOTH WORDS
13399  M01S08150.282l826 ---|          SHN    6
13400  M01S08151.282l826 ---|          ADN    /MTX/UVRI
13401  M01S08152.282l826 ---|          ADD    T2
13402  M01S08153.282l826 ---|          CWD    CM
13403  M01S08154.282l826 ---|          SBD    T2
13404  M01S08155.282l826 ---|          ADD    CN+4
13405  M01S08156.282l826 ---|          CWD    T3
13406  M01S08157.282l826 ---|          RJM    UDP         UPDATE DSD PAGE POINTERS
13407  M01S08158.282l826 ---|          LJM    SUPX        RETURN
13408  M01S08159.282l826 ---| UDP      SPACE  4,10
13409  M01S08160.282l826 ---|**        UDP - UPDATE DSD PAGE POINTERS.
13410  M01S08161.282l826 ---|*
13411  M01S08162.282l826 ---|*         USES   CM - CM+4, T1 - T7.
13412  M01S08163.282l826 ---|
13413  M01S08164.282l826 ---|
13414  M01S08165.282l826 ---| UDP      SUBR               ENTRY/EXIT
13415  M01S08166.282l826 ---|          LDD    RA          GET BASE OF UDT-S
13416  M01S08167.282l826 ---|          SHN    6
13417  M01S08168.282l826 ---|          ADN    /MTX/UBUF
13418  M01S08169.282l826 ---|          CRD    CM
13419  M01S08170.282l826 ---|          ADN    /MTX/UQUE-/MTX/UBUF  READ PAGE POINTER WORD
13420  M01S08171.282l826 ---|          CRD    T1
13421  M01S08172.282l826 ---|          LDN    0
13422  M01S08173.282l826 ---|          STD    T6
13423  M01S08174.282l826 ---|          LDD    CM          SAVE BASE INDEX
13424  M01S08175.282l826 ---|          STD    CM+4
13425  M01S08176.282l826 ---| UDP1     LDN    /MTX/PGSZ   NUMBER OF ENTRIES PER PAGE
13426  M01S08177.282l826 ---|          STD    T7
13427  M01S08178.282l826 ---| UDP2     LDD    RA          READ IN NEXT UDT
13428  M01S08179.282l826 ---|          SHN    6
13429  M01S08180.282l826 ---|          ADD    CM+4
13430  M01S08181.282l826 ---|          ADN    /MTX/UVRI
13431  M01S08182.282l826 ---|          CRD    CM
13432  M01S08183.282l826 ---|          LDD    CM+4        GET NEXT UDT THREAD
13433  M01S08184.282l826 ---|          ZJN    UDP3        IF END OF UDT-S
13434  M01S08185.282l826 ---|          SOD    T7
13435  M01S08186.282l826 ---|          NJN    UDP2        IF NOT END OF CURRENT PAGE
13436  M01S08187.282l826 ---|          LDD    CM+4        SAVE INDEX OF NEW PAGE
13437  M01S08188.282l826 ---|          STM    T1+1,T6
13438  M01S08189.282l826 ---|          AOD    T6
13439  M01S08190.282l826 ---|          LMN    2
13440  M01S08191.282l826 ---|          NJN    UDP1        IF ALL PAGES NOT CHECKED
13441  M01S08192.282l826 ---| UDP3     LDD    RA          REWRITE POINTER WORD
13442  M01S08193.282l826 ---|          SHN    6
13443  M01S08194.282l826 ---|          ADN    /MTX/UQUE
13444  M01S08195.282l826 ---|          CWD    T1
13445  M01S08196.282l826 ---|          LJM    UDPX        RETURN
13446  M01S08197.282l826 ---| VSN      SPACE  4,10
13447  M01S08198.282l826 ---|**        VSN - ISSUE NEXT VSN MESSAGE AND CHANGE TO MAGNET,S CP.
13448  M01S08199.282l826 ---|*
13449  M01S08200.282l826 ---|*         ENTRY  (BFMS+6*5 - BFMS+6*5+4) = VSN TO PLACE IN MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
13450  M02S08201.282l826 ---|*                (A) = EQUIPMENT NUMBER OF NEXT UNIT.

Seq #  *Modification Id* Act 
----------------------------+
13451  M02S00229.282l826 ---|*                (A) = (EO) = EST ORDINAL OF NEXT UNIT.

Seq #  *Modification Id* Act 
----------------------------+
13452  M01S08202.282l826 ---|*
13453  M01S08203.282l826 ---|*         USES   CM - CM+4.
13454  M01S08204.282l826 ---|*
13455  M01S08205.282l826 ---|*         CALLS  CEC, C2D, IDM.
13456  M01S08206.282l826 ---|
13457  M01S08207.282l826 ---|
13458  M01S08208.282l826 ---| VSN      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
13459  M02S08209.282l826 ---|          RJM    C2D         CONVERT EQUIPMENT NUMBER
13460  M02S08210.282l826 ---|          STM    VSNA+5

Seq #  *Modification Id* Act 
----------------------------+
13461  M02S00230.282l826 ---|          SHN    -6          CONVERT UPPER DIGIT OF EST ORDINAL
13462  M02S00231.282l826 ---|          ADC    2R 0
13463  M02S00232.282l826 ---|          STM    VSNA+5
13464  M02S00233.282l826 ---|          LDD    EO          CONVERT LOWER TWO DIGITS OF EST ORDINAL
13465  M02S00234.282l826 ---|          RJM    C2D
13466  M02S00235.282l826 ---|          STM    VSNA+6

Seq #  *Modification Id* Act 
----------------------------+
13467  M01S08211.282l826 ---|          LDD    HN          SET NEXT VSN MESSAGE ISSUED FLAG
13468  M01S08212.282l826 ---|          RAD    UP
13469  M01S08213.282l826 ---|          LDD    MA          READ VSN
13470  M01S08214.282l826 ---|          CWM    BFMS+6*5,ON
13471  M01S08215.282l826 ---|          SBN    1
13472  M01S08216.282l826 ---|          CRD    CM
13473  M01S08217.282l826 ---|          LDD    CM
13474  M01S08218.282l826 ---|          ZJN    VSN2        IF NO VSN
13475  M01S08219.282l826 ---|          LMC    2R
13476  M01S08220.282l826 ---|          NJN    VSN1        IF NOT SCRATCH VSN
13477  M01S08221.282l826 ---|          LDD    CM+1
13478  M01S08222.282l826 ---|          LMC    2R
13479  M01S08223.282l826 ---|          NJN    VSN1        IF NOT SCRATCH VSN
13480  M01S08224.282l826 ---|          LDD    CM+2
13481  M01S08225.282l826 ---|          LMC    2R
13482  M01S08226.282l826 ---|          ZJN    VSN4        IF SCRATCH VSN
13483  M01S08227.282l826 ---| VSN1     LDD    CM+3
13484  M01S08228.282l826 ---|          SHN    21-2
13485  M01S08229.282l826 ---|          PJN    VSN3        IF LABELED TAPE
13486  M01S08230.282l826 ---|          SHN    21-12-21+2+22
13487  M01S08231.282l826 ---|          MJN    VSN4        IF SCRATCH BIT SET
13488  M01S08232.282l826 ---| VSN2     LDC    2R .

Seq #  *Modification Id* Act 
----------------------------+
13489  M02S08233.282l826 ---|          STM    VSNA+6

Seq #  *Modification Id* Act 
----------------------------+
13490  M02S00236.282l826 ---|          STM    VSNA+7

Seq #  *Modification Id* Act 
----------------------------+
13491  M01S08234.282l826 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
13492  M02S08235.282l826 ---|          STM    VSNA+7

Seq #  *Modification Id* Act 
----------------------------+
13493  M02S00237.282l826 ---|          STM    VSNA+10

Seq #  *Modification Id* Act 
----------------------------+
13494  M01S08236.282l826 ---|          UJN    VSN4        ISSUE MESSAGE
13495  M01S08237.282l826 ---|
13496  M01S08238.282l826 ---| VSN3     LDD    CM          SET VSN IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
13497  M02S08239.282l826 ---|          STM    VSNA+7

Seq #  *Modification Id* Act 
----------------------------+
13498  M02S00238.282l826 ---|          STM    VSNA+10

Seq #  *Modification Id* Act 
----------------------------+
13499  M01S08240.282l826 ---|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
13500  M02S08241.282l826 ---|          STM    VSNA+10

Seq #  *Modification Id* Act 
----------------------------+
13501  M02S00239.282l826 ---|          STM    VSNA+11

Seq #  *Modification Id* Act 
----------------------------+
13502  M01S08242.282l826 ---|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
13503  M02S08243.282l826 ---|          STM    VSNA+11
13504  M02S08244.282l826 ---|          LDC    1R.*100
13505  M02S08245.282l826 ---|          STM    VSNA+12
13506  M02S08246.282l826 ---| VSN4     LDC    NMSN+VSNA

Seq #  *Modification Id* Act 
----------------------------+
13507  M02S00240.282l826 ---|          STM    VSNA+12
13508  M02S00241.282l826 ---|          LDC    2R.
13509  M02S00242.282l826 ---|          STM    VSNA+13
13510  M02S00243.282l826 ---| VSN4     LDC    VSNA        * NEXT VSN, NNN, XXXXXX.*

Seq #  *Modification Id* Act 
----------------------------+
13511  M01S08247.282l826 ---|          RJM    IDM         ISSUE MESSAGE
13512  M01S08248.282l826 ---|          LDN    0           CHANGE BACK TO MAGNET,S CP
13513  M01S08249.282l826 ---|          RJM    CEC
13514  M01S08250.282l826 ---|          LJM    VSNX        RETURN
13515  M01S08251.282l826 ---|
13516  M01S08252.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
13517  M02S08253.282l826 ---| VSNA     DATA   C*NEXT VSN, 00, SCRATCH.*

Seq #  *Modification Id* Act 
----------------------------+
13518  M02S00244.282l826 ---| VSNA     DATA   C* NEXT VSN, 000, SCRATCH.*

Seq #  *Modification Id* Act 
----------------------------+
13519  M01S00804.282l826 +++| RBLA     BSS    32D         BUFFERED LOG DATA
13520  M00S08254.1mt     +++| WNB      SPACE  4,10
13521  M00S08255.1mt     +++|**        WNB - WAIT NOT BUSY AND CHECK READY.
13522  M00S08256.1mt     +++|*         IF UNIT IS BUSY, THE REQUEST IS REQUEUED.
13523  M00S08257.1mt     +++|*         IF UNIT NOT READY AFTER TIMEOUT, EXIT WITH READY DROP.
13524  M00S08258.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13525  M01S08259.274l797 ---|*         USES   T1.

Seq #  *Modification Id* Act 
----------------------------+
13526  M01S02647.274l797 +++|*         ENTRY  (DS) = GENERAL STATUS.
13527  M00S08260.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13528  M01S08261.274l797 ---|*         CALLS  STW.

Seq #  *Modification Id* Act 
----------------------------+
13529  M01S02648.274l797 +++|*         CALLS  /PRESET/GPS, STW.
13530  M00S08262.1mt     +++|
13531  M00S08263.1mt     +++|
13532  M00S08264.1mt     +++| WNB1     LDD    HN          SET DELAY
13533  M00S08265.1mt     +++|          STM    WNBA
13534  M00S08266.1mt     +++| WNB2     LDD    DS
13535  M00S08267.1mt     +++|          LPN    1
13536  M00S08268.1mt     +++|          NJN    WNBX        IF UNIT READY

Seq #  *Modification Id* Act 
----------------------------+
13537  M01S08269.274l797 ---|*         LDN    0

Seq #  *Modification Id* Act 
----------------------------+
13538  M01S02649.274l797 +++|          LDD    HP
13539  M01S02650.274l797 +++|          SHN    21-7
13540  M01S02651.274l797 +++|          PJN    WNB4        IF NOT CTS
13541  M01S02652.274l797 +++| WNB3     LDN    0           WAIT FOR END OF OPERATION
13542  M01S02653.274l797 +++|          RJM    /PRESET/GPS GET AND PROCESS CTS GENERAL STATUS
13543  M01S02654.274l797 +++|          MJN    WNB3        IF RETRY OCCURRED
13544  M01S02655.274l797 +++|          UJN    WNB5        CHECK TIMEOUT
13545  M01S02656.274l797 +++|
13546  M01S02657.274l797 +++| WNB4     LDN    0
13547  M00S08270.1mt     +++|          RJM    STW         GET DEVICE STATUS

Seq #  *Modification Id* Act 
----------------------------+
13548  M01S08271.274l797 ---|          SOM    WNBA

Seq #  *Modification Id* Act 
----------------------------+
13549  M01S02658.274l797 +++| WNB5     SOM    WNBA
13550  M00S08272.1mt     +++|          NJN    WNB2        IF NOT TIMEOUT
13551  M00S08273.1mt     +++|          LDN    /MTX/RDR    READY DROP
13552  M00S08274.1mt     +++|          LJM    RET3        RETURN ERROR CODE
13553  M00S08275.1mt     +++|
13554  M00S08276.1mt     +++| WNB      SUBR               ENTRY/EXIT
13555  M00S08277.1mt     +++|          LDD    DS
13556  M00S08278.1mt     +++|          LPN    2
13557  M00S08279.1mt     +++|          ZJN    WNB1        IF NOT BUSY

Seq #  *Modification Id* Act 
----------------------------+
13558  M01S08280.282l826 ---|          LDN    /MTX/REQ    REQUEUE TO TRY LATER

Seq #  *Modification Id* Act 
----------------------------+
13559  M01S00805.282l826 +++|          LDN    /MTX/RBS    REQUEUE ON UNIT BUSY
13560  M00S08281.1mt     +++|          LJM    RET5        EXIT
13561  M00S08282.1mt     +++|
13562  M00S08283.1mt     +++|
13563  M00S08284.1mt     +++| WNBA     BSS    1
13564  M00S08285.1mt     +++|          TITLE  HARDWARE SUBROUTINES.
13565  M00S08286.1mt     +++| FCR      SPACE  4,10
13566  M00S08287.1mt     +++|**        FCR - PROCESS FUNCTION.
13567  M00S08288.1mt     +++|*
13568  M00S08289.1mt     +++|*         ENTRY  (A) = FUNCTION.
13569  M00S08290.1mt     +++|*
13570  M00S08291.1mt     +++|*         EXIT   (A) = 0, IF NO EXTERNAL REJECT.
13571  M00S08292.1mt     +++|*
13572  M00S08293.1mt     +++|*         CALLS  STC.

Seq #  *Modification Id* Act 
----------------------------+
13573  M01S08294.282l826 ---|*
13574  M01S08295.282l826 ---|*         MACROS CMOT.
13575  M00S08296.1mt     +++|
13576  M00S08297.1mt     +++|
13577  M00S08298.1mt     +++| FCR      SUBR               ENTRY/EXIT
13578  M00S08299.1mt     +++|          ADM    FCNA        ADD EQUIPMENT NUMBER FOR ATS/MTS

Seq #  *Modification Id* Act 
----------------------------+
13579  M01S08300.282l826 ---|          CMOT   *
13580  M00S08301.1mt     +++|          FAN    CH          FUNCTION EQUIPMENT
13581  M00S08302.1mt     +++|          STM    FCRA        SAVE FUNCTION
13582  M00S08303.1mt     +++|          RJM    STC         STATUS CHANNEL
13583  M00S08304.1mt     +++|          UJN    FCRX        RETURN
13584  M00S08305.1mt     +++|
13585  M00S08306.1mt     +++|
13586  M00S08307.1mt     +++| FCRA     CON    0
13587  M00S08308.1mt     +++| REU      SPACE  4,10
13588  M00S08309.1mt     +++|**        REU - REWIND/UNLOAD.
13589  M00S08310.1mt     +++|*
13590  M00S08311.1mt     +++|*         ENTRY  (A) = 0, REWIND.
13591  M00S08312.1mt     +++|*                (A) = 1, UNLOAD.
13592  M00S08313.1mt     +++|*
13593  M00S08314.1mt     +++|*         EXIT   BID WINDOW SET TO UNAVAILABLE.
13594  M00S08315.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13595  M01S08316.274l797 ---|*         CALLS  FCN, STW.

Seq #  *Modification Id* Act 
----------------------------+
13596  M01S02659.274l797 +++|*         CALLS  FCN, /PRESET/GPS, STW.
13597  M00S08317.1mt     +++|
13598  M00S08318.1mt     +++|
13599  M00S08319.1mt     +++| REU      SUBR               ENTRY/EXIT
13600  M00S08320.1mt     +++|          SHN    6

Seq #  *Modification Id* Act 
----------------------------+
13601  M01S08321.274l797 ---|          ADN    10          ISSUE REWIND/UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
13602  M01S02660.274l797 +++|          ADN    F0010       ISSUE REWIND/UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
13603  M01S00806.282l826 +++|          ERRNZ  F0110-F0010-100
13604  M00S08322.1mt     +++|          RJM    FCN

Seq #  *Modification Id* Act 
----------------------------+
13605  M01S02661.274l797 +++|          LDD    HP
13606  M01S02662.274l797 +++|          SHN    21-7
13607  M01S02663.274l797 +++|          MJN    REU2        IF CTS
13608  M00S08323.1mt     +++|          LDN    0           GET DEVICE STATUS
13609  M00S08324.1mt     +++|          RJM    STW

Seq #  *Modification Id* Act 
----------------------------+
13610  M01S08325.274l797 ---|          LDN    0           CLEAR BLOCK AND PRU COUNTER

Seq #  *Modification Id* Act 
----------------------------+
13611  M01S02664.274l797 +++|          LDN    10          RESET BID WINDOW
13612  M01S02665.274l797 +++|          STD    WP
13613  M01S02666.274l797 +++| REU1     LDN    4
13614  M01S02667.274l797 +++|          STM    BIDW-1,WP
13615  M01S02668.274l797 +++|          SOD    WP
13616  M01S02669.274l797 +++|          NJN    REU1        IF MORE BYTES TO SET
13617  M01S02670.274l797 +++|          UJN    REU3        CLEAR BLOCK AND PRU COUNTER
13618  M01S02671.274l797 +++|
13619  M01S02672.274l797 +++| REU2     LDN    0           WAIT FOR END OF OPERATION
13620  M01S02673.274l797 +++|          RJM    /PRESET/GPS GET AND PROCESS CTS GENERAL STATUS
13621  M01S02674.274l797 +++|          MJN    REU2        IF RETRY
13622  M01S02675.274l797 +++| REU3     LDN    0           CLEAR BLOCK AND PRU COUNTER
13623  M00S08326.1mt     +++|          STD    BL
13624  M00S08327.1mt     +++|          STD    BL+1
13625  M00S08328.1mt     +++|          STD    EP          CLEAR ERROR PARAMETERS
13626  M00S08329.1mt     +++|          STD    EP+1
13627  M00S08330.1mt     +++|          STD    EI

Seq #  *Modification Id* Act 
----------------------------+
13628  M02S02676.282l826 ---|          PSN    0
13629  M02S02677.282l826 ---| REUA     EQU    *-1
13630  M02S02678.282l826 ---|*         STD    WP          (CTS)

Seq #  *Modification Id* Act 
----------------------------+
13631  M01S08331.282l826 ---|          LDD    HP          SET LAST BLOCK EOR/EOF
13632  M01S08332.282l826 ---|          LPC    5777
13633  M01S08333.282l826 ---|          LMC    2000
13634  M01S08334.282l826 ---|          STD    HP

Seq #  *Modification Id* Act 
----------------------------+
13635  M01S00807.282l826 +++|          LDD    HP
13636  M01S00808.282l826 +++|          SHN    21-7
13637  M01S00809.282l826 +++|          PJN    REU4        IF NOT CTS UNIT
13638  M01S00810.282l826 +++|          LDN    0
13639  M01S00811.282l826 +++|          STD    WP
13640  M01S00812.282l826 +++| REU4     LDD    UP          SET LAST BLOCK EOR/EOF
13641  M01S00813.282l826 +++|          SCN    10
13642  M01S00814.282l826 +++|          LMN    10
13643  M01S00815.282l826 +++|          STD    UP

Seq #  *Modification Id* Act 
----------------------------+
13644  M01S08335.274l797 ---|          LDN    10          RESET BID WINDOW
13645  M01S08336.274l797 ---|          STD    WP
13646  M01S08337.274l797 ---| REU1     LDN    4
13647  M01S08338.274l797 ---|          STM    BIDW-1,WP
13648  M01S08339.274l797 ---|          SOD    WP
13649  M01S08340.274l797 ---|          NJN    REU1        IF MORE BYTES TO SET
13650  M01S08341.274l797 ---|          UJN    REUX        RETURN
13651  M01S08342.274l797 ---| SDS      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
13652  M01S02679.274l797 +++|          UJP    REUX        RETURN
13653  M01S02680.274l797 +++| SDS      SPACE  4,25
13654  M00S08343.1mt     +++|**        SDS - SET DRIVE SPEED FOR MTS/ATS UNITS.
13655  M00S08344.1mt     +++|*
13656  M00S08345.1mt     +++|*         EXIT   (HP, 2-3) = DRIVE SPEED.
13657  M00S08346.1mt     +++|*                FOR ATS AND MTS.
13658  M00S08347.1mt     +++|*                0 = 100 IPS DRIVE.
13659  M00S08348.1mt     +++|*                1 = 150 IPS DRIVE.
13660  M00S08349.1mt     +++|*                2 = 200 IPS DRIVE.
13661  M00S08350.1mt     +++|*
13662  M00S08351.1mt     +++|*                FOR FSC.
13663  M00S08352.1mt     +++|*                0 =  75 IPS DRIVE.
13664  M00S08353.1mt     +++|*                1 = 125 IPS DRIVE.
13665  M00S08354.1mt     +++|*                2 = 200 IPS DRIVE.

Seq #  *Modification Id* Act 
----------------------------+
13666  M01S00228.ns2466  +++|*
13667  M01S00229.ns2466  +++|*                FOR CMTS.
13668  M01S00230.ns2466  +++|*                2 = 200 IPS DRIVE.
13669  M00S08355.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13670  M01S00282.v23l617 +++|*                FOR ISMT.
13671  M01S00283.v23l617 +++|*                3 = 25 IPS DRIVE.

Seq #  *Modification Id* Act 
----------------------------+
13672  M02S00284.ns2466  ---|

Seq #  *Modification Id* Act 
----------------------------+
13673  M01S00231.ns2466  +++|*

Seq #  *Modification Id* Act 
----------------------------+
13674  M01S02681.274l797 +++|*                FOR CTS.
13675  M01S02682.274l797 +++|*                0 = 79 IPS DRIVE.
13676  M01S02683.274l797 +++|*
13677  M00S08356.1mt     +++|*         USES   T1.
13678  M00S08357.1mt     +++|
13679  M00S08358.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
13680  M01S08359.v23l617 ---| SDS1     SHN    21-6-21+4+22
13681  M01S08360.v23l617 ---|          PJN    SDS2        IF NOT FSC UNIT
13682  M01S08361.v23l617 ---|          LDM    ATUS        SET FSC DRIVE SPEED

Seq #  *Modification Id* Act 
----------------------------+
13683  M01S00285.v23l617 +++| SDS1     LPN    12

Seq #  *Modification Id* Act 
----------------------------+
13684  M02S00286.ns2466  ---|          ZJN    SDS2        IF NOT FSC OR ISMT

Seq #  *Modification Id* Act 
----------------------------+
13685  M01S00232.ns2466  +++|          ZJN    SDS2        IF NOT FSC/CMTS/ISMT

Seq #  *Modification Id* Act 
----------------------------+
13686  M01S00287.v23l617 +++|          LPN    10
13687  M01S00288.v23l617 +++|          ZJN    SDS1.1      IF NOT ISMT
13688  M01S00289.v23l617 +++|          LDN    3
13689  M01S00290.v23l617 +++|          UJN    SDS3        SAVE INDEX FOR ISMT
13690  M01S00291.v23l617 +++|

Seq #  *Modification Id* Act 
----------------------------+
13691  M02S00292.ns2466  ---|SDS1.1    LDM    ATUS        SET FSC DRIVE SPEED

Seq #  *Modification Id* Act 
----------------------------+
13692  M01S00233.ns2466  +++| SDS1.1   LDM    ATUS        SET FSC/CMTS DRIVE SPEED
13693  M00S08362.1mt     +++|          LPN    7
13694  M00S08363.1mt     +++|          SBN    3
13695  M00S08364.1mt     +++|          PJN    SDS3        IF *STC* HAS VALID UNIT SPEED STATUS
13696  M00S08365.1mt     +++|          UJN    SDSX        SET DEFAULT DRIVE SPEED TO 75 IPS
13697  M00S08366.1mt     +++|
13698  M00S08367.1mt     +++| SDS2     LDM    ATUS        SET ATS DRIVE SPEED
13699  M00S08368.1mt     +++|          SHN    -1
13700  M00S08369.1mt     +++|          LPN    3
13701  M00S08370.1mt     +++|          SBN    1
13702  M00S08371.1mt     +++|          ZJN    SDS3        IF 100 IPS UNIT
13703  M00S08372.1mt     +++|          LMN    3
13704  M00S08373.1mt     +++| SDS3     STD    T1          SAVE INDEX
13705  M00S08374.1mt     +++|          LDM    SDSA,T1     SET SPEED
13706  M00S08375.1mt     +++|          RAD    HP
13707  M00S08376.1mt     +++|
13708  M00S08377.1mt     +++| SDS      SUBR               ENTRY/EXIT
13709  M00S08378.1mt     +++|          LDD    HP

Seq #  *Modification Id* Act 
----------------------------+
13710  M01S08379.274l797 ---|          SHN    21-4

Seq #  *Modification Id* Act 
----------------------------+
13711  M02S02684.282l826 ---|          SHN    21-7
13712  M02S02685.282l826 ---|          MJN    SDSX        IF CTS
13713  M02S02686.282l826 ---|          SHN    21-4-21+7

Seq #  *Modification Id* Act 
----------------------------+
13714  M01S00816.282l826 +++|          SHN    21-4

Seq #  *Modification Id* Act 
----------------------------+
13715  M01S08380.v23l617 ---|          MJN    SDS1        IF ATS OR FSC UNIT

Seq #  *Modification Id* Act 
----------------------------+
13716  M02S00293.ns2466  ---|          MJN    SDS1        IF ATS OR FSC OR ISMT UNIT

Seq #  *Modification Id* Act 
----------------------------+
13717  M01S00234.ns2466  +++|          MJN    SDS1        IF ATS-TYPE UNIT
13718  M00S08381.1mt     +++|          LDM    MTDS+4      SET MTS DRIVE SPEED
13719  M00S08382.1mt     +++|          SHN    -11
13720  M00S08383.1mt     +++|          LPN    3
13721  M00S08384.1mt     +++|          UJN    SDS3        SET SPEED
13722  M00S08385.1mt     +++|
13723  M00S08386.1mt     +++|
13724  M00S08387.1mt     +++| SDSA     BSS    0
13725  M00S08388.1mt     +++|          CON    0           100 IPS DRIVE
13726  M00S08389.1mt     +++|          CON    4           150 IPS DRIVE
13727  M00S08390.1mt     +++|          CON    10          200 IPS DRIVE

Seq #  *Modification Id* Act 
----------------------------+
13728  M01S00294.v23l617 +++|          CON    14          25 IPS DRIVE (ISMT)

Seq #  *Modification Id* Act 
----------------------------+
13729  M01S08391.282l826 ---|          SPACE  4,10
13730  M01S08392.282l826 ---|**        COMMON DECKS.
13731  M01S08393.282l826 ---|
13732  M01S08394.282l826 ---|
13733  M01S08395.282l826 ---|*CALL     COMPC2D
13734  M01S08396.282l826 ---|*CALL     COMPCRA
13735  M01S08397.282l826 ---| FNT$     EQU    1           ACCESS SYSTEM FNT
13736  M01S08398.282l826 ---|*CALL     COMPGFP
13737  M01S08399.282l826 ---| SFI$     EQU    1           SELECT IMMEDIATE RETURN BY *SFI*
13738  M01S08400.282l826 ---|*CALL     COMPSFI
13739  M00S08401.1mt     +++|
13740  M00S08402.1mt     +++|
13741  M00S08403.1mt     +++|          USE    BUFFER
13742  M00S08404.1mt     +++|
13743  M00S08405.1mt     +++| TADD     TSAD               ADDRESS TABLE

Seq #  *Modification Id* Act 
----------------------------+
13744  M02S00001.282l826 ---| BUFFER   SPACE  4,15
13745  M02S00002.282l826 ---|**        BINARY MAINTENANCE LOG MESSAGE FORMAT.
13746  M02S00003.282l826 ---|*
13747  M02S00004.282l826 ---|*T  BBMC  12/MSGID,12/SYMPTOM,6/PPNUM,6/CHAN,6/EQPNUM,6/UNN,12/UNUSED

Figure BBMC

13748  M02S00005.282l826 ---|*T, BBMD  12/EST,48/UNUSED

Figure BBMD

13749  M02S00006.282l826 ---|*T, BBME  36/ VOLUME SERIAL NUMBER,12/ 0,12/REEL NUM

Figure BBME

13750  M02S00007.282l826 ---|*T, BBMF  18/LATE DATA ERRS,18/WRITE ERRS,6/UNUSED,18/READ ERRS

Figure BBMF

13751  M02S00008.282l826 ---|*
13752  M02S00009.282l826 ---|*         MSGID     MESSAGE IDENTIFICATION OF DEVICE TYPE
13753  M02S00010.282l826 ---|*         SYMPTOM   CODE THAT DEFINES A SPECIFIC CONDITION/ERROR
13754  M02S00011.282l826 ---|*         PPNUM     PP NUMBER INVOLVED IN FUNCTIONING THE DEVICE
13755  M02S00012.282l826 ---|*         CHAN      I/O CHANNEL INVOLVED
13756  M02S00013.282l826 ---|*         EQPNUM    EQUIPMENT NUMBER (TAPE CONTROLLER NUMBER)
13757  M02S00014.282l826 ---|*         UNN       UNIT NUMBER (TAPE UNIT)

Seq #  *Modification Id* Act 
----------------------------+
13758  M01S00015.1mt39   +++|
13759  M01S00016.1mt39   +++|

Seq #  *Modification Id* Act 
----------------------------+
13760  M02S00017.282l826 ---| BBMC     VFD    12/0,12/0,6/0,6/0,6/0,6/0,12/0
13761  M02S00018.282l826 ---| BBMD     VFD    12/0,48/0
13762  M02S00019.282l826 ---| BBME     VFD    36/0,12/0,12/0
13763  M02S00020.282l826 ---| BBMF     VFD    18/0,18/0,6/0,18/0

Seq #  *Modification Id* Act 
----------------------------+
13764  M01S08406.282l826 ---| BUFFER   SPACE  4,10
13765  M00S08407.1mt     +++|          ERROVL

Seq #  *Modification Id* Act 
----------------------------+
13766  M01S08408.282l826 ---|
13767  M01S08409.282l826 ---| CSBF     EQU    *           CUMULATIVE STATUS BUFFER
13768  M00S08410.1mt     +++| PRS      SPACE  4,10
13769  M00S08411.1mt     +++|**        PRS - PRESET.
13770  M00S08412.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13771  M01S08413.274l797 ---|*         CALLS  DME, MCH.

Seq #  *Modification Id* Act 
----------------------------+
13772  M02S02687.282l826 ---|*         CALLS  DME, MCH.

Seq #  *Modification Id* Act 
----------------------------+
13773  M01S00817.282l826 +++|*         CALLS  MCH.
13774  M00S08414.1mt     +++|
13775  M00S08415.1mt     +++|
13776  M00S08416.1mt     +++| PRS      LDC    CTAB        MODIFY CHANNELS
13777  M00S08417.1mt     +++|          RJM    MCH

Seq #  *Modification Id* Act 
----------------------------+
13778  M01S08418.274l797 ---|          RJM    DME         DETERMINE IF MONITORING ENABLED

Seq #  *Modification Id* Act 
----------------------------+
13779  M02S00335.274l797 ---|          RJM    CTM         CHECK FOR TMS
13780  M00S08419.1mt     +++|          LDD    HP

Seq #  *Modification Id* Act 
----------------------------+
13781  M01S02688.274l797 +++|          SHN    21-7

Seq #  *Modification Id* Act 
----------------------------+
13782  M02S02689.282l826 ---|          PJN    PRS0        IF NOT CTS
13783  M02S02690.282l826 ---|          LDC    RET1
13784  M02S02691.282l826 ---|          STM    PFNB+/MTX/FNSD   SKIP SELECT DENSITY
13785  M02S02692.282l826 ---|          ISTORE SEDB,(UJN SED1)  SKIP SET UP OF FORMAT PARAMETERS
13786  M02S02693.282l826 ---|          AOM    PRSA
13787  M02S02694.282l826 ---|          LDC    STDI+WP     (WP, EP+1) IS BLOCK ID INCREMENT
13788  M02S02695.282l826 ---|          STM    SEDC
13789  M02S02696.282l826 ---|          STM    REUA
13790  M02S02697.282l826 ---|          UJN    PRS0.1      SET RELEASE FUNCTION
13791  M02S02698.282l826 ---|
13792  M02S02699.282l826 ---| PRS0     RJM    DME         DETERMINE IF MONITORING ENABLED

Seq #  *Modification Id* Act 
----------------------------+
13793  M01S00818.282l826 +++|          MJN    PRS1        IF CTS UNIT

Seq #  *Modification Id* Act 
----------------------------+
13794  M01S02700.274l797 +++|          LDN    F0040       SET READ FUNCTION FOR MESSAGE
13795  M01S02701.274l797 +++|          STM    ITMA

Seq #  *Modification Id* Act 
----------------------------+
13796  M02S02702.282l826 ---|          LDD    HP

Seq #  *Modification Id* Act 
----------------------------+
13797  M01S08420.282l826 ---|          SHN    21-4

Seq #  *Modification Id* Act 
----------------------------+
13798  M02S08421.282l826 ---|          PJN    PRS1        IF NOT ATS CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
13799  M03S00295.282l826 ---|          PJN    PRS1        IF NOT ATS/FSC/ISMT CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
13800  M02S00235.282l826 ---|          PJN    PRS1        IF NOT ATS-TYPE CONTROLLER

Proceed to Part 11