User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1mt.011

Deck 1MT Part 011

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S08422 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13801  M02S08422.282l826 ---|          SOM    PFND        SET RELEASE FUNCTION
13802  M02S08423.282l826 ---| PRS1     LDN    40          SET READ FUNCTION FOR MESSAGE
13803  M02S08424.282l826 ---|          STM    ITMA
Line S08425 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13804  M03S08425.282l826 ---|          LDC    TADD        SET TO MODIFY INSTRUCTIONS
13805  M03S08426.282l826 ---|          STD    CN
13806  M03S08427.282l826 ---|          LJM    PRSX        RETURN
Line S00065 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13807  M03S00065.282l826 ---|          LDC    TADD
Line S02703 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13808  M02S02703.282l826 ---| PRS0.1   SOM    PFND        SET RELEASE FUNCTION
Line S02704 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
13809  M01S02704.274l797 +++| PRS1     LDC    TADD
Line S00066 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
13810  M01S00066.ns21000 +++|          STD    CN
Line S00067 Modification History
M01 (Added by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13811  M02S00067.282l826 ---|          LDM    ECNT        RUNNING ERROR COUNTERS
Line S02705 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13812  M02S02705.282l826 ---| PRSA     EQU    *-1
13813  M02S02706.282l826 ---|*         LDM    ECNT+1      (FOR CTS ECNT HAS A SENSE BYTE)
Line S00068 Modification History
M01 (Added by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13814  M02S00068.282l826 ---|          ADM    ECNT+1
13815  M02S00069.282l826 ---|          ADM    ECNT+2
13816  M02S00070.282l826 ---|          ADM    ECNT+3
13817  M02S00071.282l826 ---|          ADM    ECNT+4
13818  M02S00072.282l826 ---|          ZJN    PRS2        IF NO CORRECTED OR LATE DATA ERRORS
13819  M02S00073.282l826 ---|          RJM    BBM         BUILD *BML* MESSAGE BLOCK
13820  M02S00074.282l826 ---| PRS2     LJM    PRSX        EXIT
13821  M02S00075.282l826 ---| BBM      SPACE  4,30
13822  M02S00076.282l826 ---|**        BBM - BUILD BINARY MAINTENANCE MESSAGE.
13823  M02S00077.282l826 ---|*
13824  M02S00078.282l826 ---|*         THIS ROUTINE BUILDS THE BINARY MAINTENANCE LOG MESSAGE BLOCK
13825  M02S00079.282l826 ---|*         THAT CONTAINS THE REQUIRED INFORMATION REGARDING CORRECTED
13826  M02S00080.282l826 ---|*         TAPE ERRORS (SINGLE TRACK WRITE/READ AND LATE DATA ERRORS).
13827  M02S00081.282l826 ---|*         THE GENERAL FORMAT IS FOLLOWED IN THE FIRST 4 WORDS OF THE
13828  M02S00082.282l826 ---|*         SIX WORD MESSAGE.  THE 5TH WORD IS THE *UVSN* WORD FROM THE
13829  M02S00083.282l826 ---|*         *UDT* IN MAGNET-S FIELD LENGTH.  THIS WORD CONTAINS THE
13830  M02S00084.282l826 ---|*         PRESENT VSN AND THE REEL NUMBER.  THE 6TH AND FINAL WORD IS
13831  M02S00085.282l826 ---|*         THE *UST10* WORD FROM THE *UDT*.  IT CONTAINS THE ERROR
13832  M02S00086.282l826 ---|*         COUNTS FROM THE PRESENT VOLUME (REEL).
13833  M02S00087.282l826 ---|*
13834  M02S00088.282l826 ---|*         EXIT   30 WORD (6 CM) *BML* ENTRY INITIALIZED AT FWA = BBMA.
Line S00236 Modification History
M01 (Added by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13835  M02S00236.282l826 ---|*
13836  M02S00237.282l826 ---|*         USES   CM - CM+4.
Line S00089 Modification History
M01 (Added by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13837  M02S00089.282l826 ---|*
13838  M02S00090.282l826 ---|*         CALLS  UAD.
Line S00238 Modification History
M01 (Added by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13839  M02S00238.282l826 ---|*
13840  M02S00239.282l826 ---|*         MACROS SFA.
Line S00091 Modification History
M01 (Added by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13841  M02S00091.282l826 ---|
13842  M02S00092.282l826 ---|
13843  M02S00093.282l826 ---| BBM      SUBR               ENTRY/EXIT
13844  M02S00094.282l826 ---|          RJM    UAD         PRESENT UDT ADDRESS
13845  M02S00095.282l826 ---|          ADN    /MTX/UST10
13846  M02S00096.282l826 ---|          CRM    BBMF,ON     READ ERROR COUNTERS TO *BML* SHELL
13847  M02S00097.282l826 ---|          ADN    /MTX/UVSN-/MTX/UST10-1
13848  M02S00098.282l826 ---|          CRM    BBME,ON     SET VSN IN BML MESSAGE
13849  M02S00099.282l826 ---|          LDN    0
13850  M02S00100.282l826 ---|          STM    BBME+3      CLEAR VSN FLAG AREA
Line S00101 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt9
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13851  M03S00101.282l826 ---|          LDD    HP          PROCESS MESSAGE ID PARAMETERS
Line S00001 Modification History
M01 (Added by) 1mt9
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13852  M02S00001.282l826 ---|          LDD    HP          CHECK FOR GCR UNIT
Line S00002 Modification History
M01 (Added by) 1mt9
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13853  M03S00002.282l826 ---|          LPN    2
Line S02707 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13854  M02S02707.282l826 ---|          LPC    202
Line S00003 Modification History
M01 (Added by) 1mt9
M02 (Removed by) ns2466
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13855  M03S00003.282l826 ---|          NJN    BBM0        IF NOT GCR UNIT
Line S00240 Modification History
M01 (Added by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13856  M02S00240.282l826 ---|          NJN    BBM1        IF NOT GCR UNIT
Line S00004 Modification History
M01 (Added by) 1mt9
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13857  M02S00004.282l826 ---|          STM    BBMF+3      CLEAR SINGLE TRACK CORRECTION COUNTER
13858  M02S00005.282l826 ---|          STM    BBMF+4
Line S00006 Modification History
M01 (Added by) 1mt9
M02 (Removed by) ns2466
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13859  M03S00006.282l826 ---| BBM0     LDD    HP          PROCESS MESSAGE ID PARAMETERS
Line S00102 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns2466
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13860  M03S00102.282l826 ---|          SHN    21-5
13861  M03S00103.282l826 ---|          MJN    BBM2        IF MTS TAPE UNIT
13862  M03S00104.282l826 ---|          SHN    21-0-21+5
13863  M03S00105.282l826 ---|          PJN    BBM1        IF 7 TRACK
13864  M03S00106.282l826 ---|          LDN    /COMSDFS/TM0054
13865  M03S00107.282l826 ---|          UJN    BBM4        PROCESS SYMPTOM CODE
13866  M03S00108.282l826 ---|
13867  M03S00109.282l826 ---| BBM1     LDN    /COMSDFS/TM0044
13868  M03S00110.282l826 ---|          UJN    BBM4        PROCESS SYMPTOM CODE
13869  M03S00111.282l826 ---|
13870  M03S00112.282l826 ---| BBM2     SHN    21-0-21+5
13871  M03S00113.282l826 ---|          PJN    BBM3        IF 7 TRACK
13872  M03S00114.282l826 ---|          LDN    /COMSDFS/TM0052
13873  M03S00115.282l826 ---|          UJN    BBM4        PROCESS SYMPTOM CODE
13874  M03S00116.282l826 ---|
13875  M03S00117.282l826 ---| BBM3     LDN    /COMSDFS/TM0042
13876  M03S00118.282l826 ---| BBM4     STM    BBMC        STORE MESSAGE ID FOR 7 TRACK MTS UNIT
Line S00241 Modification History
M01 (Added by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13877  M02S00241.282l826 ---| BBM1     SFA    EST,EO      PROCESS MESSAGE ID
13878  M02S00242.282l826 ---|          CRD    CM
Line S00243 Modification History
M01 (Added by) ns2466
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13879  M03S00243.282l826 ---|          LDD    CM
Line S02708 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13880  M02S02708.282l826 ---|          LDD    HP
13881  M02S02709.282l826 ---|          SHN    21-7
13882  M02S02710.282l826 ---|          PJN    BBM1.1      IF NOT CTS
13883  M02S02711.282l826 ---|          LDN    0
13884  M02S02712.282l826 ---|          STM    BBMF        CLEAR LATE DATA ERROR COUNT
13885  M02S02713.282l826 ---|          LDD    CM+3
13886  M02S02714.282l826 ---|          SHN    -7
13887  M02S02715.282l826 ---|          ADN    /COMSDFS/TM0046
13888  M02S02716.282l826 ---|          UJN    BBM5        SAVE MESSAGE ID
13889  M02S02717.282l826 ---|
13890  M02S02718.282l826 ---| BBM1.1   LDD    CM
Line S00244 Modification History
M01 (Added by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13891  M02S00244.282l826 ---|          LPN    14
13892  M02S00245.282l826 ---|          ZJN    BBM2        IF NOT CMTS OR ISMT
13893  M02S00246.282l826 ---|          SHN    -3
13894  M02S00247.282l826 ---|          UJN    BBM3        STORE *TMID* TABLE INDEX
13895  M02S00248.282l826 ---|
13896  M02S00249.282l826 ---| BBM2     LDD    CM
13897  M02S00250.282l826 ---|          SHN    -6
13898  M02S00251.282l826 ---|          LPN    7
13899  M02S00252.282l826 ---| BBM3     STD    CM          STORE *TMID* TABLE INDEX
13900  M02S00253.282l826 ---|          RAD    CM
13901  M02S00254.282l826 ---|          LDD    HP          CHECK IF 7 TRACK
13902  M02S00255.282l826 ---|          SHN    21-0
13903  M02S00256.282l826 ---|          PJN    BBM4        IF 7 TRACK
13904  M02S00257.282l826 ---|          AOD    CM          INCREMENT INDEX TO 9 TRACK
13905  M02S00258.282l826 ---| BBM4     LDM    TMID,CM     STORE MESSAGE ID
Line S00259 Modification History
M01 (Added by) ns2466
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13906  M03S00259.282l826 ---|          STM    BBMC
Line S02719 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13907  M02S02719.282l826 ---| BBM5     STM    BBMC
Line S00119 Modification History
M01 (Added by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13908  M02S00119.282l826 ---|          LDD    HN
13909  M02S00120.282l826 ---|          STM    BBMC+1      STORE SYMPTOM CODE
13910  M02S00121.282l826 ---|          LDN    PPCP
13911  M02S00122.282l826 ---|          CRD    CM
13912  M02S00123.282l826 ---|          LDD    IA
13913  M02S00124.282l826 ---|          SBD    CM+4
13914  M02S00125.282l826 ---|          SHN    -3
13915  M02S00126.282l826 ---|          SHN    6
13916  M02S00127.282l826 ---|          CHTE   *
13917  M02S00128.282l826 ---|          ADN    CH
13918  M02S00129.282l826 ---|          STM    BBMC+2      STORE PP NUMBER AND CHANNEL
13919  M02S00130.282l826 ---|          LDD    ED
13920  M02S00131.282l826 ---|          LPC    7017
13921  M02S00132.282l826 ---|          STM    BBMC+3      STORE EQUIPMENT AND UNIT NUMBER
13922  M02S00133.282l826 ---|          LDD    EO
Line S00134 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns22000
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13923  M03S00134.282l826 ---|          SHN    -6
Line S00135 Modification History
M01 (Added by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13924  M02S00135.282l826 ---|          STM    BBMD        STORE EST ORDINAL
13925  M02S00136.282l826 ---|          LJM    BBMX        RETURN
Line S00260 Modification History
M01 (Added by) ns2466
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13926  M02S00260.282l826 ---|
13927  M02S00261.282l826 ---|
13928  M02S00262.282l826 ---|**        TMID - TABLE OF MAGNETIC TAPE MESSAGE ID-S.
13929  M02S00263.282l826 ---|*
13930  M02S00264.282l826 ---|*T        12/ DEVICE MESSAGE ID
Figure

011 DEVICE MESSAGE ID

13931  M02S00265.282l826 ---|*
13932  M02S00266.282l826 ---|*         NOTE - CODE DEPENDS ON ORDER OF TABLE.
13933  M02S00267.282l826 ---|
13934  M02S00268.282l826 ---| TMID     CON    0
13935  M02S00269.282l826 ---|          CON    /COMSDFS/TM0053  CMTS/698
13936  M02S00270.282l826 ---|          CON    0
13937  M02S00271.282l826 ---|          CON    /COMSDFS/TM0057  ISMT/639
13938  M02S00272.282l826 ---|          CON    /COMSDFS/TM0044  ATS/677
13939  M02S00273.282l826 ---|          CON    /COMSDFS/TM0054  ATS/679
13940  M02S00274.282l826 ---|          CON    /COMSDFS/TM0045  FSC/7 TRACK
13941  M02S00275.282l826 ---|          CON    /COMSDFS/TM0056  FSC/9 TRACK
13942  M02S00276.282l826 ---|          CON    /COMSDFS/TM0042  MTS/667
13943  M02S00277.282l826 ---|          CON    /COMSDFS/TM0052  MTS/669
Line S02720 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13944  M02S02720.282l826 ---|*         CON    /COMSDFS/TM0046  AT (TABLE NOT USED
13945  M02S02721.282l826 ---|*         CON    /COMSDFS/TM0047  CT (TABLE NOT USED)
Line S00137 Modification History
M01 (Added by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13946  M02S00137.282l826 ---|
13947  M02S00138.282l826 ---|
Line S00819 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13948  M01S00819.282l826 +++|          LJM    PRSX        EXIT
Line S00139 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1mt39
Seq #  *Modification Id* Act 
----------------------------+
13949  M02S00139.1mt39   ---|**        BINARY MAINTENANCE LOG TABLE DOCUMENTATION.
13950  M02S00140.1mt39   ---|*
13951  M02S00141.1mt39   ---|*
13952  M02S00142.1mt39   ---|*T  BBMC  12/MSGID,12/SYMPTOM,6/PPNUM,6/CHAN,6/EQPNUM,6/UNN,12/UNUSED
Figure BBMC

011121718232429UNUSEDUNNEQPNUMCHAN303536474859PPNUMSYMPTOMMSGID

13953  M02S00143.1mt39   ---|*T, BBMD  12/EST,48/UNUSED
Figure BBMD

029UNUSED30474859UNUSEDEST

13954  M02S00144.1mt39   ---|*T, BBME  36/ VOLUME SERIAL NUMBER,12/ 0,12/REEL NUM
Figure BBME

01112232429REEL NUM 0 VOLUME SERIAL NUMBER3059 VOLUME SERIAL NUMBER

13955  M02S00145.1mt39   ---|*T, BBMF  18/LATE DATA ERRS,18/WRITE ERRS,6/UNUSED,18/READ ERRS
Figure BBMF

01718232429READ ERRSUNUSEDWRITE ERRS30414259WRITE ERRSLATE DATA ERRS

13956  M02S00146.1mt39   ---|*         MSGID     MESSAGE IDENTIFICATION OF DEVICE TYPE
13957  M02S00147.1mt39   ---|*         SYMPTOM   CODE THAT DEFINES A SPECIFIC CONDITION/ERROR
13958  M02S00148.1mt39   ---|*         PPNUM     PP NUMBER INVOLVED IN FUNCTIONING THE DEVICE
13959  M02S00149.1mt39   ---|*         CHAN      I/O CHANNEL INVOLVED
13960  M02S00150.1mt39   ---|*         EQPNUM    EQUIPMENT NUMBER (TAPE CONTROLLER NUMBER)
13961  M02S00151.1mt39   ---|*         UNN       UNIT NUMBER (TAPE UNIT)
13962  M02S00152.1mt39   ---|
13963  M02S00153.1mt39   ---|
13964  M02S00154.1mt39   ---| BBMC     VFD    12/0,12/0,6/0,6/0,6/0,6/0,12/0
13965  M02S00155.1mt39   ---| BBMD     VFD    12/0,48/0
13966  M02S00156.1mt39   ---| BBME     VFD    36/0,12/0,12/0
13967  M02S00157.1mt39   ---| BBMF     VFD    18/0,18/0,6/0,18/0
Line S08428 Modification History
M01 (Removed by) 1mt39
Seq #  *Modification Id* Act 
----------------------------+
13968  M01S08428.1mt39   ---|
13969  M01S08429.1mt39   ---|
Line S08430 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
13970  M01S08430.274l797 ---| CTAB     CHTB   CHANNEL TABLE
Line S02722 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
13971  M01S02722.274l797 +++| CTAB     CHTB               CHANNEL TABLE
Line S00336 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
13972  M02S00336.274l797 ---| CTM      SPACE  4,10
13973  M02S00337.274l797 ---|**        CTM - CHECK FOR TMS.
13974  M02S00338.274l797 ---|*         IF TMS ENABLED, CHANGE MAGNET B-DISPLAY MESSAGE.
13975  M02S00339.274l797 ---|*
13976  M02S00340.274l797 ---|*         EXIT   (PFNH) = +$CHECK *TMSDIS,PRE.*+ IF TMS ENABLED.
13977  M02S00341.274l797 ---|*
13978  M02S00342.274l797 ---|*         USES   T1, CM - CM+4.
13979  M02S00343.274l797 ---|
13980  M02S00344.274l797 ---|
13981  M02S00345.274l797 ---| CTM      SUBR               ENTRY/EXIT
13982  M02S00346.274l797 ---|          LDN    SSTL        IF TMS ENABLED
13983  M02S00347.274l797 ---|          CRD    CM
13984  M02S00348.274l797 ---|          LDD    CM+2
13985  M02S00349.274l797 ---|          SHN    21-0
13986  M02S00350.274l797 ---|          MJN    CTMX        IF TMS DISABLED
13987  M02S00351.274l797 ---|          LDN    2           GET TMS PREVIEW DISPLAY MESSAGE
13988  M02S00352.274l797 ---|          STD    T1
13989  M02S00353.274l797 ---|          LDD    MA
13990  M02S00354.274l797 ---|          CWM    CTMA,T1
13991  M02S00355.274l797 ---|          LDD    MA          SWITCH TO TMS PREVIEW DISPLAY MESSAGE
13992  M02S00356.274l797 ---|          CRM    PFNH,T1
13993  M02S00357.274l797 ---|          UJN    CTMX        RETURN
13994  M02S00358.274l797 ---|
13995  M02S00359.274l797 ---| CTMA     DATA   L+$CHECK *TMSDIS,PRE.*+
13996  M02S00360.274l797 ---|          ERRNZ  *-CTMA-PFNHL  MESSAGE LENGTH MISMATCH
13997  M02S00361.274l797 ---|          ERRNZ  PFNHL-2*5   MESSAGE NOT EXACTLY 2 CM WORDS LONG
Line S08431 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
13998  M01S08431.282l826 ---| DME      SPACE  4,10
13999  M01S08432.282l826 ---|**        DME - DETERMINE IF MONITORING ENABLED.
14000  M01S08433.282l826 ---|*
14001  M01S08434.282l826 ---|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED TO USE MONITORING
14002  M01S08435.282l826 ---|*                CHANNEL, IF MONITORING IN PROGRESS.
14003  M01S08436.282l826 ---|*
14004  M01S08437.282l826 ---|*         USES   CM, T1, T2.
14005  M01S08438.282l826 ---|
14006  M01S08439.282l826 ---|
14007  M01S08440.282l826 ---| DME      SUBR               ENTRY/EXIT
14008  M01S08441.282l826 ---|          LDD    CF          CHECK FOR MONITORING IN PROGRESS
14009  M01S08442.282l826 ---|          SHN    21-2
14010  M01S08443.282l826 ---|          PJN    DMEX        IF MONITORING NOT ENABLED
14011  M01S08444.282l826 ---|          LDM    FCNA+1      SET CHANNEL
14012  M01S08445.282l826 ---|          LPN    37
14013  M01S08446.282l826 ---|          STD    CM
14014  M01S08447.282l826 ---|          LDC    DMEA        MODIFY CHANNELS
14015  M01S08448.282l826 ---|          STD    T1
14016  M01S08449.282l826 ---| DME1     LDI    T1
14017  M01S08450.282l826 ---|          ZJN    DMEX        IF END OF TABLE
14018  M01S08451.282l826 ---|          STD    T2
14019  M01S08452.282l826 ---|          LDI    T2
14020  M01S08453.282l826 ---|          SCN    37
14021  M01S08454.282l826 ---|          LMD    CM
14022  M01S08455.282l826 ---|          STI    T2
14023  M01S08456.282l826 ---|          AOD    T1
14024  M01S08457.282l826 ---|          UJN    DME1        LOOP
14025  M01S08458.282l826 ---|
14026  M01S08459.282l826 ---|
14027  M01S08460.282l826 ---| DMEA     TMOT               CHANNEL TABLE FOR MONITORING
14028  M00S08461.1mt     +++|          OVERLAY (READ FUNCTION PROCESSOR.),,,READ
14029  M00S08462.1mt     +++|
14030  M00S08463.1mt     +++| .IM      SET    2           GENERATE ADDRESSES FOR OVERLAYS
14031  M00S08464.1mt     +++| STAP     EQU    PRSX        STATUS PRIOR TO READ
14032  M00S08465.1mt     +++| SKEI     EQU    PRSX+1      IF .NE. 0, SKIPEI OR POSMF IN PROGRESS
14033  M00S08466.1mt     +++| WOCN     EQU    PRSX+2      WORD COUNT AT START OF OPERATION
Line S00296 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14034  M02S00296.274l797 ---| ISKR     EQU    PRSX+3      IF .NE. 0, SKIP REVERSE ON ISMT GCR
Line S02723 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14035  M01S02723.274l797 +++| ISKR     EQU    PRSX+3      IF .NE. 0, SKIP REVERSE INSTEAD OF READ
14036  M01S02724.274l797 +++|                              REVERSE
14037  M00S08467.1mt     +++| RDF      SPACE  4,10
14038  M00S08468.1mt     +++|**        RDF - PROCESS READ OPERATION.
14039  M00S08469.1mt     +++|*
14040  M00S08470.1mt     +++|*         CALLS  FCN, ITM, MRD, TDA.
14041  M00S08471.1mt     +++|
14042  M00S08472.1mt     +++|
14043  M00S08473.1mt     +++|          ENTRY  RDF
14044  M00S08474.1mt     +++| RDF      LDC    6           SELECT CLIP LEVEL
14045  M00S08475.1mt     +++| RDFA     EQU    *-1
14046  M00S08476.1mt     +++| RDFB     RJM    FCN
14047  M00S08477.1mt     +++|*         UJN    *+2         (NORMAL CLIP LEVEL)
Line S02725 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14048  M01S02725.274l797 +++|*         UJN    *+2         (CTS)
14049  M00S08478.1mt     +++|          RJM    ITM         INITIATE TAPE MOTION
14050  M00S08479.1mt     +++| RDF1     LDD    DS          SAVE DEVICE STATUS
14051  M00S08480.1mt     +++|          STM    STAP
14052  M00S08481.1mt     +++|          RJM    MRD         READ TAPE
14053  M00S08482.1mt     +++| RDFC     RJM    TDA         TRANSFER DATA
14054  M00S08483.1mt     +++|*         LJM    SKP2        (SKIP FORWARD)
14055  M00S08484.1mt     +++|*         LJM    SKR4        (SKIP REVERSE)
Line S08485 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14056  M01S08485.274l797 ---|*         LJM    RLA6        (READ LABELS)
Line S02726 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14057  M01S02726.274l797 +++|*         LJM    RLA6        (READ CTS LABELS)
14058  M01S02727.274l797 +++|*         LJM    RLA6.1      (READ NON CTS LABELS)
14059  M01S02728.274l797 +++|*         LJM    CLA4        (LABEL ERROR PROCESSING)
14060  M00S08486.1mt     +++| RDFD     UJN    RDF1        LOOP
14061  M00S08487.1mt     +++|*         UJN    RDF         (200 IPS/9 TRACK OR 6250 BPI AT 1X PPU
14062  M00S08488.1mt     +++|*                            SPEED OR 6250 BPI 200 IPS 2X PPU SPEED)
14063  M00S08489.1mt     +++|          TITLE  READ - SUBROUTINES.
14064  M00S08490.1mt     +++| MRD      SPACE  4,10
14065  M00S08491.1mt     +++|**        MRD - READ TAPE.
14066  M00S08492.1mt     +++|*         NO MODIFICATIONS SHOULD BE MADE WITHOUT CHECKING IMPACT ON
Line S08493 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14067  M01S08493.274l797 ---|*         LONG BLOCK PROCESSING.
Line S02729 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14068  M01S02729.274l797 +++|*         LONG BLOCK PROCESSING.  IF CTS, THE FOLLOWING CODE IS
14069  M01S02730.274l797 +++|*         OVERLAYED WITH *RCT*.
14070  M00S08494.1mt     +++|*
14071  M00S08495.1mt     +++|*         EXIT   (TB) = TERMINATION STATUS.
14072  M00S08496.1mt     +++|*
14073  M00S08497.1mt     +++|*         CALLS  BCW, CDO, DTS, FCN, MCC, PDA, STW, UBW, VDA, WEO.
14074  M00S08498.1mt     +++|*
14075  M00S08499.1mt     +++|*         MACROS SADT.
14076  M00S08500.1mt     +++|
14077  M00S08501.1mt     +++|
14078  M00S08502.1mt     +++| MRD      SUBR               ENTRY/EXIT
14079  M00S08503.1mt     +++|          LDN    0           CLEAR ERROR CODE
14080  M00S08504.1mt     +++|          STD    EC
14081  M00S08505.1mt     +++|          STD    TB          CLEAR TYPE OF BLOCK
14082  M00S08506.1mt     +++|
14083  M00S08507.1mt     +++|*         INPUT DATA BLOCK.
14084  M00S08508.1mt     +++|
14085  M00S08509.1mt     +++|          STM    MRDP        CLEAR NOISE FLAG
Line S08510 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14086  M01S08510.282l826 ---| MRD1     LDC    5005        INPUT  BLOCK
Line S00820 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14087  M01S00820.282l826 +++| MRD1     LDC    5005        SET BYTE COUNT FOR I FORMAT READ OR SKIP
14088  M00S08511.1mt     +++| MRDA     EQU    *-1
Line S08512 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14089  M01S08512.282l826 ---|*         LDC    5001        (SI BINARY)
14090  M01S08513.282l826 ---|*         LDC    4014        (LONG BLOCK)
14091  M01S08514.282l826 ---|*         LDC    51          (ANSI STANDARD LABELS)
Line S08515 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14092  M02S08515.282l826 ---| MRD2     IJM    MRD3,CH     IF ERROR
14093  M02S08516.282l826 ---|          EJM    MRD2,CH     IF DATA NOT AVAILABLE
Line S08517 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14094  M01S08517.282l826 ---| MRD3     IAM    BUF,CH
Line S00821 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14095  M01S00821.282l826 +++|*         LDC    LBBY        (READ LONG BLOCK FULL CHUNK)
14096  M01S00822.282l826 +++|*         LDC    WC*5+1      (ALL OTHER READ DATA OPERATIONS)
14097  M01S00823.282l826 +++|*         LDC    LABL+1      (READ LABELS)
14098  M01S00824.282l826 +++|*         LDC    5001        (SKIP - NOT LONG BLOCKS)
14099  M01S00825.282l826 +++|*         LDC    LBBY        (SKIP L FORMAT OR LONG BLOCK F FORMAT)
14100  M01S00826.282l826 +++|*         LDC    SLBY        (SKIP LI FORMAT)
14101  M01S00827.282l826 +++| MRD3     IAM    BUF,CH      INPUT DATA
14102  M00S08518.1mt     +++| MRDB     EQU    *-1
Line S08519 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14103  M01S08519.282l826 ---|*         IAM    BUFB,CH     LONG BLOCK
Line S00828 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14104  M01S00828.282l826 +++|*         IAM    BUFB,CH     (READ LONG BLOCK)
14105  M01S00829.282l826 +++|*         IAM    /RLA/BUF    (READ LABEL)
14106  M00S08520.1mt     +++| MRD4     STD    T1
14107  M00S08521.1mt     +++|          NJN    MRD6        IF NOT EXCESS BLOCK LENGTH
14108  M00S08522.1mt     +++|          LJM    *+2
Line S08523 Modification History
M01 (Removed by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
14109  M01S08523.1mt41   ---|*         LJM    /3M /RLB5   (READ LONG BLOCKS)
14110  M01S08524.1mt41   ---|*         LJM    /3M /SLB    (SKIP LONG BLOCKS)
Line S00002 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
14111  M01S00002.1mt41   +++|*         LJM    /RLB/RLB5   (READ LONG BLOCKS)
Line S00001 Modification History
M01 (Added by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
14112  M01S00001.1mt51   +++|*         LJM    /RLB/RLB4   (READ LONG BLOCKS - CYBER 180)
Line S00003 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
14113  M01S00003.1mt41   +++|*         LJM    /SKP/SLB    (SKIP LONG BLOCKS)
14114  M00S08525.1mt     +++| MRDC     EQU    *-1
Line S08526 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14115  M01S08526.274l797 ---|          LDN    /MTX/BTL    SET BLOCK TOO LONG
Line S02731 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14116  M01S02731.274l797 +++| MRD4.1   LDN    /MTX/BTL    SET BLOCK TOO LONG
14117  M00S08527.1mt     +++| MRD5     RJM    MCC         MASTER CLEAR CHANNEL
14118  M00S08528.1mt     +++|*         LDN    0
14119  M00S08529.1mt     +++|          RJM    STW         GET GENERAL STATUS
14120  M00S08530.1mt     +++|          LDN    1           SET TO COMPUTE MAXIMUM BYTE COUNT
14121  M00S08531.1mt     +++|          STD    T1
14122  M00S08532.1mt     +++| MRD6     LDM    MRDA        CALCULATE REMAINDER OF CM WORD COUNT
14123  M00S08533.1mt     +++|          SBD    T1
14124  M00S08534.1mt     +++|          STD    BY          BYTE COUNT READ
14125  M00S08535.1mt     +++|          STD    SC          SAVE ORIGINAL BYTE COUNT
14126  M00S08536.1mt     +++|          ZJN    MRD7        IF NO DATA READ
14127  M00S08537.1mt     +++| MRDD     SBN    2           I FORMAT
14128  M00S08538.1mt     +++|*         PSN                (SI FORMAT)
14129  M00S08539.1mt     +++|*         ADN    4           (ALL OTHER FORMATS)
14130  M00S08540.1mt     +++|          STD    T2
14131  M00S08541.1mt     +++|
14132  M00S08542.1mt     +++|*         CALCULATE WORD COUNT.
14133  M00S08543.1mt     +++|
14134  M00S08544.1mt     +++|          SHN    1           13*BYTES
14135  M00S08545.1mt     +++|          ADD    T2
14136  M00S08546.1mt     +++|          SHN    2
14137  M00S08547.1mt     +++|          ADD    T2
14138  M00S08548.1mt     +++|          SHN    14  (-6)    (13*BYTES)/64
14139  M00S08549.1mt     +++|          STD    T0
14140  M00S08550.1mt     +++|          SHN    6+2         4*13*BYTES  (52*BYTES)
14141  M00S08551.1mt     +++|          SBD    T2          51*BYTES
14142  M00S08552.1mt     +++|          ADD    T0          (51*BYTES)+((13*BYTES)/64)
14143  M00S08553.1mt     +++|          SHN    -8D         WORDS = ((51*BYTES)+((13*BYTES)/64))/256
14144  M00S08554.1mt     +++| MRD7     STD    WC
14145  M00S08555.1mt     +++| MRDE     LPN    3
14146  M00S08556.1mt     +++|*         LPN    1           (ATS UNIT)
14147  M00S08557.1mt     +++| MRDF     UJN    MRD9        7 TRACK AND 9 TRACK CODED
14148  M00S08558.1mt     +++|*         ZJN    MRD9        (9 TRACK I FORMAT)
14149  M00S08559.1mt     +++|          LMN    1
14150  M00S08560.1mt     +++|          NJN    MRD8        IF NOT MODULO 4, 1
14151  M00S08561.1mt     +++| MRDG     SOD    BY
14152  M00S08562.1mt     +++|*         PSN                (ATS UNIT)
14153  M00S08563.1mt     +++| MRD8     SOD    BY
14154  M00S08564.1mt     +++|
14155  M00S08565.1mt     +++|*         CHECK AND CONVERT DATA.
14156  M00S08566.1mt     +++|
14157  M00S08567.1mt     +++| MRD9     LDD    EC
14158  M00S08568.1mt     +++|          LMN    /MTX/BTL
14159  M00S08569.1mt     +++|          ZJN    MRD10       IF BLOCK TOO LARGE ERROR
14160  M00S08570.1mt     +++|          RJM    VDA         VALIDATE DATA (I FORMAT)
14161  M00S08571.1mt     +++| MRDH     EQU    *-2
14162  M00S08572.1mt     +++|*         UJN    *+2         (ALL OTHERS)
14163  M00S08573.1mt     +++|          RJM    CDO         CHECK DROP OUT FLAG
14164  M00S08574.1mt     +++|
14165  M00S08575.1mt     +++|*         PROCESS STATUS.
14166  M00S08576.1mt     +++|
Line S08577 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
14167  M01S08577.v23l617 ---|          RJM    WEO         WAIT END OF OPERATION
Line S00297 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
14168  M01S00297.v23l617 +++| MRD9.1   RJM    WEO         WAIT END OF OPERATION
14169  M00S08578.1mt     +++|          SHN    21-10
14170  M00S08579.1mt     +++| MRDI     PJN    MRD10       IF NOT NOISE BLOCK
14171  M00S08580.1mt     +++|*         UJN    MRD10       (ATS UNIT)
14172  M00S08581.1mt     +++|          AOM    MRDP        SET NOISE BYPASSED FLAG
14173  M00S08582.1mt     +++|          LDN    42          ISSUE REPEAT READ
14174  M00S08583.1mt     +++|          RJM    FCN
14175  M00S08584.1mt     +++|          ACN    CH
14176  M00S08585.1mt     +++|          LJM    MRD1        REINITIATE READ
14177  M00S08586.1mt     +++|
Line S08587 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14178  M01S08587.ns21000 ---| MRD10    ZJN    MRD12       IF NO ERRORS
Line S00158 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14179  M01S00158.ns21000 +++| MRD10    ZJN    MRD11.2     IF NO ERRORS
14180  M00S08588.1mt     +++|          SHN    21-4-21+10
14181  M00S08589.1mt     +++|          PJN    MRD11       IF NOT TAPE MARK
14182  M00S08590.1mt     +++|          LDN    3           SET STOP TO EOI
14183  M00S08591.1mt     +++|          STD    TB
14184  M00S08592.1mt     +++|          LDN    17          SET LEVEL NUMBER
14185  M00S08593.1mt     +++|          STM    LNUM
14186  M00S08594.1mt     +++|          LDN    0           CLEAR WORD AND BYTE COUNTS
14187  M00S08595.1mt     +++|          STD    ES
14188  M00S08596.1mt     +++|          STD    WC
14189  M00S08597.1mt     +++|          STD    BY
14190  M00S08598.1mt     +++|          LDN    /MTX/BEI    SET EOI
14191  M00S08599.1mt     +++|          STD    EC
14192  M00S08600.1mt     +++|          LJM    MRD16       PROCESS DATA
14193  M00S08601.1mt     +++|
14194  M00S08602.1mt     +++| MRD11    LDD    EC
14195  M00S08603.1mt     +++|          ZJN    MRD11.1     IF ERROR NOT ALREADY ENCOUNTERED
14196  M00S08604.1mt     +++|          LDM    MTDS
14197  M00S08605.1mt     +++|          LPC    7077
14198  M00S08606.1mt     +++| MRDQ     EQU    *-1
14199  M00S08607.1mt     +++|*         LPC    7777        (ATS UNIT)
Line S08608 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14200  M01S08608.ns21000 ---|          ZJN    MRD12       IF NO TAPE ERROR REPORTED FROM HARDWARE
Line S00159 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14201  M01S00159.ns21000 +++|          ZJN    MRD12       IF NOT FATAL ERROR
14202  M00S08609.1mt     +++| MRD11.1  LDN    /MTX/STE    STATUS ERROR
14203  M00S08610.1mt     +++|          STD    EC
Line S08611 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14204  M01S08611.ns21000 ---|
Line S00160 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14205  M01S00160.ns21000 +++|          UJN    MRD12       NO TAPE ERROR REPORTED FROM HARDWARE
14206  M01S00161.ns21000 +++|
14207  M01S00162.ns21000 +++| MRD11.2  LDM    MTDS+1
Line S00830 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14208  M01S00830.282l826 +++|*         UJN    MRD12       (NON-GCR UNIT)
14209  M01S00831.282l826 +++| MRDR     EQU    *-2
Line S00163 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14210  M01S00163.ns21000 +++|          SHN    21-11
14211  M01S00164.ns21000 +++|          PJN    MRD12       IF NO GCR SINGLE TRACK CORRECTION
14212  M01S00165.ns21000 +++|          AOM    ECNT+4      INCREMENT COUNTER
14213  M01S00166.ns21000 +++|          SHN    -14
14214  M01S00167.ns21000 +++|          RAM    ECNT+3      INCREMENT COUNTER FOR OVERFLOW
14215  M01S00168.ns21000 +++|
14216  M00S08612.1mt     +++|*         TRANSLATE ODD COUNT TO FILL STATUS.
14217  M00S08613.1mt     +++|
14218  M00S08614.1mt     +++| MRD12    LDD    DS          PROCESS ODD COUNT STATUS
14219  M00S08615.1mt     +++|          LPN    40
14220  M00S08616.1mt     +++| MRDJ     UJN    MRD13       7 TRACK, 9 TRACK CODED OR ATS UNIT
14221  M00S08617.1mt     +++|*         SHN    0-5         (9 TRACK BINARY)
14222  M00S08618.1mt     +++|          ADD    SC
14223  M00S08619.1mt     +++|          LPN    3
14224  M00S08620.1mt     +++|          ZJN    MRD13       IF NO FILL STATUS
14225  M00S08621.1mt     +++|          LMN    3
14226  M00S08622.1mt     +++|          ZJN    MRD13       IF (N*3)+1 FRAMES - NO FILL STATUS
14227  M00S08623.1mt     +++|          LDN    40          SET FILL STATUS
14228  M00S08624.1mt     +++| MRD13    STD    ES          CLEAR FILL STATUS
14229  M00S08625.1mt     +++| MRDK     UJN    MRD14       7 TRACK, 9 TRACK CODED, 9 TRACK I AND ATS
14230  M00S08626.1mt     +++|
14231  M00S08627.1mt     +++|*         CORRECT BYTE COUNT AND CM WORD COUNT.
14232  M00S08628.1mt     +++|
14233  M00S08629.1mt     +++|*         LDD    DS          (ALL OTHERS)
14234  M00S08630.1mt     +++|          LPN    40
14235  M00S08631.1mt     +++|          ZJN    MRD14       IF NO ODD COUNT
14236  M00S08632.1mt     +++|          LDD    BY
14237  M00S08633.1mt     +++|          LPN    2
14238  M00S08634.1mt     +++|          ZJN    MRD14       IF NOT MODULO 4, 2 OR 3
14239  M00S08635.1mt     +++|          SOD    BY          CORRECT BYTE COUNT
14240  M00S08636.1mt     +++|          SOD    WC          CORRECT CM WORD COUNT
14241  M00S08637.1mt     +++| MRDL     UJN    MRD14       SI FORMAT
14242  M00S08638.1mt     +++|*         SHN    2           (ALL OTHER FORMATS)
14243  M00S08639.1mt     +++|          ADD    WC
14244  M00S08640.1mt     +++|          SBD    BY
14245  M00S08641.1mt     +++|          ZJN    MRD14       IF NEW CM WORD COUNT CORRECT
14246  M00S08642.1mt     +++|          AOD    WC
14247  M00S08643.1mt     +++| MRD14    UJN    MRD15       NOT I OR 7 TRACK SI FORMAT
14248  M00S08644.1mt     +++|*         LDD    ES          (I OR 7 TRACK SI FORMAT)
14249  M00S08645.1mt     +++| MRDM     EQU    *-1
14250  M00S08646.1mt     +++|          LPN    40
14251  M00S08647.1mt     +++|          ZJN    MRD15       IF NO FILL STATUS
14252  M00S08648.1mt     +++|          LDD    EC
14253  M00S08649.1mt     +++|          NJN    MRD16       IF ERROR ALREADY ENCOUNTERED
14254  M00S08650.1mt     +++|          LDN    /MTX/STE
14255  M00S08651.1mt     +++|          STD    EC
14256  M00S08652.1mt     +++| MRD15    LDD    EC
Line S08653 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14257  M01S08653.274l797 ---| MRDN     NJN    MRD16       IF ERROR
14258  M01S08654.274l797 ---|*         UJN    MRD16       (7-TRACK F FORMAT MODE SWITCH)
Line S02732 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14259  M01S02732.274l797 +++|          NJN    MRD16       IF ERROR
14260  M00S08655.1mt     +++|          RJM    UBW         UPDATE BID WINDOW
14261  M00S08656.1mt     +++| MRD16    LDD    EC
14262  M00S08657.1mt     +++|          ZJN    MRD17       IF NO ERRORS
14263  M00S08658.1mt     +++|          RJM    DTS         DETAIL STATUS
Line S02733 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14264  M01S02733.274l797 +++|
14265  M01S02734.274l797 +++|*         THIS MUST BE THE FIRST ADDRESS IN THE TSAD TABLE.  PRESET
14266  M01S02735.274l797 +++|*         FOR CTS IS HARDCODED TO CHANGE THE FIRST ADDRESS IN THE
14267  M01S02736.274l797 +++|*         TABLE.
14268  M01S02737.274l797 +++|
14269  M00S08659.1mt     +++|          SADT   .FE,,6,A
14270  M00S08660.1mt     +++| MRD17    LDC    *           SET FET+6 ADDRESS (FOR BCW)
14271  M00S08661.1mt     +++|          RJM    PDA         PROCESS DATA (I AND SI FORMAT)
14272  M00S08662.1mt     +++| MRDO     EQU    *-2
14273  M00S08663.1mt     +++|*         RJM    BCW         BUILD CONTROL WORD ( S AND SOME F)
14274  M00S08664.1mt     +++|*         RJM    /3M /BCW    (L FORMAT AND LONG BLOCKS IN F FORMAT)
14275  M00S08665.1mt     +++|*         UJN    MRD18       (NOT READ DATA)
14276  M00S08666.1mt     +++| MRD18    LDD    DS          SAVE STATUS FOR ERROR PROCESSOR
14277  M00S08667.1mt     +++|          STM    //STER
14278  M00S08668.1mt     +++|          LJM    MRDX        RETURN
14279  M00S08669.1mt     +++|
14280  M00S08670.1mt     +++|
14281  M00S08671.1mt     +++| MRDP     BSS    1           NOISE BYPASSED FLAG
14282  M00S08672.1mt     +++|
14283  M00S08673.1mt     +++|
14284  M00S08674.1mt     +++|          USE    BUFFER
Line S08675 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14285  M01S08675.274l797 ---| OVLS     BSS    0           OVERLAY ORGIN FOR SKIP
Line S02738 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14286  M01S02738.274l797 +++| OVLS     BSS    0           OVERLAY ORIGIN FOR SKIP
14287  M00S08676.1mt     +++| CIB      SPACE  4,10
14288  M00S08677.1mt     +++|**        CIB - CHECK INPUT BUFFER.
14289  M00S08678.1mt     +++|*
14290  M00S08679.1mt     +++|*         ENTRY  (CN - CN+4) = IN POINTER.
14291  M00S08680.1mt     +++|*
14292  M00S08681.1mt     +++|*         EXIT   (A) = WORD COUNT OF FREE BUFFER SPACE.
14293  M00S08682.1mt     +++|*
14294  M00S08683.1mt     +++|*         MACROS SADT.
14295  M00S08684.1mt     +++|
14296  M00S08685.1mt     +++|
14297  M00S08686.1mt     +++| CIB1     LDD    CM+3        LENGTH = OUT - IN - 1
14298  M00S08687.1mt     +++|          SBD    CN+3
14299  M00S08688.1mt     +++|          SHN    14
14300  M00S08689.1mt     +++|          ADD    CM+4
14301  M00S08690.1mt     +++|          SBD    CN+4
14302  M00S08691.1mt     +++|          SBN    1
14303  M00S08692.1mt     +++|          PJN    CIBX        IF (IN + 1) .LT OUT
14304  M00S08693.1mt     +++|          SADT   .LF
14305  M00S08694.1mt     +++|          ADC    *           (LIMIT - FIRST)
14306  M00S08695.1mt     +++|
14307  M00S08696.1mt     +++| CIB      SUBR               ENTRY/EXIT
14308  M00S08697.1mt     +++|          SADT   .FE,,3,A
14309  M00S08698.1mt     +++|          LDC    *           READ OUT
14310  M00S08699.1mt     +++|          CRD    CM
14311  M00S08700.1mt     +++|          LDD    CM+3
14312  M00S08701.1mt     +++|          LPN    37
14313  M00S08702.1mt     +++|          STD    CM+3
14314  M00S08703.1mt     +++|          SHN    14
14315  M00S08704.1mt     +++|          LMD    CM+4
14316  M00S08705.1mt     +++|          SADT   .LM,C
14317  M00S08706.1mt     +++|          ADC    -*          (-LIMIT)
14318  M00S08707.1mt     +++|          MJN    CIB1        IF OUT .LT. LIMIT
14319  M00S08708.1mt     +++|          LDN    /MTX/BAE    BUFFER ARGUMENT ERROR
14320  M00S08709.1mt     +++|          LJM    RET3        RETURN ERROR CODE
14321  M00S08710.1mt     +++| TDA      SPACE  4,15
14322  M00S08711.1mt     +++|**        TDA - TRANSFER DATA.
14323  M00S08712.1mt     +++|*         CALCULATES PARAMETERS FOR TRANSFER TO CENTRAL.  IT ALSO
14324  M00S08713.1mt     +++|*         CHECKS IF TERMINATION CONDITION HAS NOT BEEN MET, THERE
14325  M00S08714.1mt     +++|*         IS NO ERROR, AND THE BUFFER WILL STILL HAVE ROOM FOR A
14326  M00S08715.1mt     +++|*         BLOCK AFTER THE CURRENT ONE IS TRANSFERRED, THEN MOTION IS
14327  M00S08716.1mt     +++|*         STARTED FOR THE NEXT BLOCK.
14328  M00S08717.1mt     +++|*
14329  M00S08718.1mt     +++|*         ENTRY  (TB) = STATUS OF BLOCK READ.
14330  M00S08719.1mt     +++|*                (CN - CN+4) = IN POINTER.
14331  M00S08720.1mt     +++|*                (WC) = WORD COUNT TO BE TRANSFERRED TO BUFFER.
14332  M00S08721.1mt     +++|*
14333  M00S08722.1mt     +++|*         CALLS  CIB, ITM, WCB.
14334  M00S08723.1mt     +++|*
14335  M00S08724.1mt     +++|*         MACROS SADT.
14336  M00S08725.1mt     +++|
14337  M00S08726.1mt     +++|
14338  M00S08727.1mt     +++| TDA      SUBR               ENTRY/EXIT
14339  M00S08728.1mt     +++|          LDD    WC
14340  M00S08729.1mt     +++| TDAA     ADN    0           ALLOW FOR CONTROL WORDS
14341  M00S08730.1mt     +++|*         ADN    1           (260 READ NOT LONG BLOCKS)
14342  M00S08731.1mt     +++|*         ADN    2           (200 READ NOT LONG BLOCKS)
14343  M00S08732.1mt     +++|*         PSN                (LONG BLOCKS - FLAG FOR OTHER OVERLAYS)
14344  M00S08733.1mt     +++|          STD    T6
14345  M00S08734.1mt     +++|
14346  M00S08735.1mt     +++|*         LABEL BUFFER - WILL OVERLAY REMAINDER OF *TDA*.
14347  M00S08736.1mt     +++|
14348  M00S08737.1mt     +++| LBUF     EQU    *           BEGINNING OF LABEL BUFFER
14349  M00S08738.1mt     +++|
14350  M00S08739.1mt     +++| TDAB     UJN    TDA1        UPDATE FET POINTERS
14351  M00S08740.1mt     +++|*         PSN                (READ SKIP)
14352  M00S08741.1mt     +++|          RJM    CIB         CHECK INPUT BUFFER
14353  M00S08742.1mt     +++|          SBD    T6
14354  M00S08743.1mt     +++|          PJN    TDA1        IF ROOM IN BUFFER FOR BLOCK
14355  M00S08744.1mt     +++|          RAD    T6          ADJUST WORDS TO BE TRANSFERRED
14356  M00S08745.1mt     +++| TDA1     LDD    CN+3        SAVE IN
14357  M00S08746.1mt     +++|          STD    T4
14358  M00S08747.1mt     +++|          LDD    CN+4
14359  M00S08748.1mt     +++|          STD    T5
14360  M00S08749.1mt     +++|          LDN    0           PRESET SECOND PART WORD COUNT
14361  M00S08750.1mt     +++|          STD    T7
14362  M00S08751.1mt     +++|          LDD    T6          UPDATE IN
14363  M00S08752.1mt     +++|          RAD    CN+4
14364  M00S08753.1mt     +++|          SHN    -14
14365  M00S08754.1mt     +++|          RAD    CN+3
14366  M00S08755.1mt     +++|          SHN    14
14367  M00S08756.1mt     +++|          LMD    CN+4
14368  M00S08757.1mt     +++|          SADT   .LM,C
14369  M00S08758.1mt     +++|          ADC    -*          (-LIMIT)
14370  M00S08759.1mt     +++|          MJN    TDA2        IF NO WRAP AROUND
14371  M00S08760.1mt     +++|          STD    T7          SET SECOND PART WORD COUNT
14372  M00S08761.1mt     +++|          SADT   .FT
14373  M00S08762.1mt     +++|          ADC    *           (FIRST)
14374  M00S08763.1mt     +++|          STD    CN+4        RESET IN
14375  M00S08764.1mt     +++|          SHN    -14
14376  M00S08765.1mt     +++|          STD    CN+3
14377  M00S08766.1mt     +++|          LDD    T6          RESET FIRST PART WORD COUNT
14378  M00S08767.1mt     +++|          SBD    T7
14379  M00S08768.1mt     +++|          STD    T6
14380  M00S08769.1mt     +++| TDA2     LDD    TB
14381  M00S08770.1mt     +++| TDAC     SBN    0           READ STOP CONDITION
14382  M00S08771.1mt     +++|          PJN    TDA5        IF TERMINATION MET
14383  M00S08772.1mt     +++|          RJM    CIB         CHECK INPUT BUFFER
14384  M00S08773.1mt     +++|          SADT   .BS,C
14385  M00S08774.1mt     +++| TDAD     ADC    -*          (- MAXIMUM BLOCK SIZE)
14386  M00S08775.1mt     +++| TDAE     MJN    TDA4        IF NOT ROOM FOR NEXT BLOCK
14387  M00S08776.1mt     +++|*         PSN                (READ-SKIP)
14388  M00S08777.1mt     +++|          SADT   .BS,C
14389  M00S08778.1mt     +++|          ADC    -*          (-MAXIMUM BLOCK SIZE)
14390  M00S08779.1mt     +++|          SHN    -21
14391  M00S08780.1mt     +++|          RAM    WCBC
14392  M00S08781.1mt     +++|          LDD    EP          CHECK IF ERROR OR RECOVERY IN PROGRESS
14393  M00S08782.1mt     +++|          LPN    77
14394  M00S08783.1mt     +++|          ADD    EC
14395  M00S08784.1mt     +++|          ADD    DF          CHECK DROP OUT FLAG
14396  M00S08785.1mt     +++|          NJN    TDA3        IF DROP OUT OR ERROR CONDITION
14397  M00S08786.1mt     +++| TDAF     RJM    ITM         INITIATE TAPE MOTION
14398  M00S08787.1mt     +++|*         UJN    *+2         (LONG BLOCKS / 200 IPS / GCR NOT 2X PPU)
14399  M00S08788.1mt     +++|          RJM    WCB         WRITE CENTRAL BUFFER
14400  M00S08789.1mt     +++|          LJM    TDAX        RETURN
14401  M00S08790.1mt     +++|
14402  M00S08791.1mt     +++| TDA3     RJM    WCB         WRITE CENTRAL BUFFER
14403  M00S08792.1mt     +++|          LJM    RET2        REQUEUE
14404  M00S08793.1mt     +++|
14405  M00S08794.1mt     +++| TDA4     LDN    0           INDICATE NO COMPLETION
14406  M00S08795.1mt     +++|          STD    TB
14407  M00S08796.1mt     +++|          UJN    TDA6        TRANSFER DATA TO CM BUFFER
14408  M00S08797.1mt     +++|
14409  M00S08798.1mt     +++| TDA5     LDD    WC
14410  M00S08799.1mt     +++|          NJN    TDA6        IF DATA
14411  M00S08800.1mt     +++|          STD    T6          DO NOT TRANSFER CONTROL WORDS
14412  M00S08801.1mt     +++|          LDD    T4          BACK UP FET POINTER
14413  M00S08802.1mt     +++|          STD    CN+3
14414  M00S08803.1mt     +++|          LDD    T5
14415  M00S08804.1mt     +++|          STD    CN+4
14416  M00S08805.1mt     +++| TDA6     RJM    WCB         WRITE CENTRAL BUFFER
14417  M00S08806.1mt     +++| TDAG     UJN    TDA7        COMPLETE FET
14418  M00S08807.1mt     +++|*         LDM    LNUM        (READSKP)
14419  M00S08808.1mt     +++|          CON    LNUM
14420  M00S08809.1mt     +++| TDAH     SBN    0           LEVEL NUMBER DESIRED
14421  M00S08810.1mt     +++|          PJN    TDA7        IF TERMINATION MET
14422  M00S08811.1mt     +++| TDAI     LDN    4           SET TO SKIP RECORD
14423  M00S08812.1mt     +++|*         LDN    10          (IF FILE SKIP REQUIRED)
14424  M00S08813.1mt     +++|          STD    PB          INDICATE TO MAGNET TO SKIP
14425  M00S08814.1mt     +++|          LDN    /MTX/BEI
14426  M00S08815.1mt     +++|          LJM    RET3        RETURN ERROR CODE
14427  M00S08816.1mt     +++|
14428  M00S08817.1mt     +++| TDA7     LDD    TB
14429  M00S08818.1mt     +++|          ZJN    TDA8        IF PRU READ COMPLETE OR BUFFER FULL
Line S08819 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14430  M01S08819.282l826 ---|          LDD    HP          SET EOR/EOF FLAG
14431  M01S08820.282l826 ---|          LPC    5777
14432  M01S08821.282l826 ---|          LMC    2000
14433  M01S08822.282l826 ---|          STD    HP
Line S00832 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14434  M01S00832.282l826 +++|          LDD    UP          SET EOR/EOF FLAG
14435  M01S00833.282l826 +++|          SCN    10
14436  M01S00834.282l826 +++|          LMN    10
14437  M01S00835.282l826 +++|          STD    UP
14438  M00S08823.1mt     +++|          LDD    TB
14439  M00S08824.1mt     +++|          ADN    1           RETURN EOR/EOF
14440  M00S08825.1mt     +++|          SHN    3+4
14441  M00S08826.1mt     +++|          LMM    LNUM        MERGE LEVEL NUMBER
14442  M00S08827.1mt     +++|          SHN    16
14443  M00S08828.1mt     +++| TDA8     ADN    1
14444  M00S08829.1mt     +++|          LJM    RET         SET FET COMPLETE
14445  M00S08830.1mt     +++|
14446  M00S08831.1mt     +++|
Line S08832 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14447  M01S08832.274l797 ---| ORLA     EQU    LBUF+LABL+12  ORIGIN ADDRESS FOR READ LABEL OVERLAY
Line S02739 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14448  M01S02739.274l797 +++| ORLA     EQU    LBUF+CLBL+12  ORIGIN ADDRESS FOR READ LABEL OVERLAY
14449  M00S08833.1mt     +++| WCB      SPACE  4,15
14450  M00S08834.1mt     +++|**        WCB - WRITE CENTRAL BUFFER.
14451  M00S08835.1mt     +++|*         WRITES DATA TO CENTRAL, THEN CHECKS IF ERROR MUST BE
14452  M00S08836.1mt     +++|*         PROCESSED.  ERRORS INCLUDE TAPE MARKS AND EOT.
14453  M00S08837.1mt     +++|*         IF ERROR, THEN READ ERROR RECOVERY IS CALLED.
14454  M00S08838.1mt     +++|*
14455  M00S08839.1mt     +++|*         ENTRY  (T4 - T5) = IN POINTER.
14456  M00S08840.1mt     +++|*                (T6) = FIRST PART WORD COUNT.
14457  M00S08841.1mt     +++|*                (T7) = SECOND PART WORD COUNT.
14458  M00S08842.1mt     +++|*
Line S08843 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14459  M01S08843.274l797 ---|*         CALLS  *REM*.
Line S02740 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14460  M01S02740.274l797 +++|*         CALLS  *CRE*, *REM*.
14461  M00S08844.1mt     +++|*
14462  M00S08845.1mt     +++|*         MACROS CALL, SADT.
14463  M00S08846.1mt     +++|
14464  M00S08847.1mt     +++|
14465  M00S08848.1mt     +++| WCB      SUBR               ENTRY/EXIT
14466  M00S08849.1mt     +++|          LDD    T6
14467  M00S08850.1mt     +++|          ZJN    WCB1        IF NO FIRST PART
14468  M00S08851.1mt     +++|          LDD    T4          WRITE FIRST PART
14469  M00S08852.1mt     +++|          SHN    6
14470  M00S08853.1mt     +++|          ADD    RA
14471  M00S08854.1mt     +++|          SHN    6
14472  M00S08855.1mt     +++|          ADD    T5
14473  M00S08856.1mt     +++|          CWM    BUF,T6
14474  M00S08857.1mt     +++| WCBA     EQU    *-1
14475  M00S08858.1mt     +++|*         CWM    BUFC,T6     (CONTROL WORD MODE)
14476  M00S08859.1mt     +++|          LDD    T7
14477  M00S08860.1mt     +++|          ZJN    WCB1        IF NO SECOND PART
14478  M00S08861.1mt     +++|          LDD    T6          SET BUFFER ADDRESS
14479  M00S08862.1mt     +++|          SHN    2
14480  M00S08863.1mt     +++|          ADD    T6
14481  M00S08864.1mt     +++|          ADM    WCBA
14482  M00S08865.1mt     +++|          STM    WCBB
14483  M00S08866.1mt     +++|          SADT   .FT,,,A
14484  M00S08867.1mt     +++|          LDC    *           (FIRST+RA)
14485  M00S08868.1mt     +++|          CWM    *,T7
14486  M00S08869.1mt     +++| WCBB     EQU    *-1
14487  M00S08870.1mt     +++| WCB1     LDD    EP
14488  M00S08871.1mt     +++|          LPN    77
14489  M00S08872.1mt     +++|          ADD    EC
14490  M00S08873.1mt     +++|          ZJN    WCB2        IF NO ERROR ENCOUNTERED
Line S08874 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14491  M01S08874.274l797 ---|          CALL   REM         LOAD READ ERROR PROCESSOR
Line S02741 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14492  M01S02741.274l797 +++| WCBF     CALL   REM         LOAD READ ERROR PROCESSOR
14493  M01S02742.274l797 +++|*         CALL   CRE         LOAD ERROR PROCESSOR (CTS)
14494  M00S08875.1mt     +++|          SADT   .FE,,2,A
14495  M00S08876.1mt     +++| WCB2     LDC    *           UPDATE IN POINTER IN FET
14496  M00S08877.1mt     +++|          CWD    CN
14497  M00S08878.1mt     +++| WCBC     LDN    0           RECALL CPU FLAG
14498  M00S08879.1mt     +++|          ZJN    WCB3        IF NO RECALL CPU
14499  M00S08880.1mt     +++|          LDD    OA          RECALL CPU
Line S08881 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
14500  M01S08881.ns22000 ---|          CWD    RC
Line S00245 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
14501  M01S00245.ns22000 +++|          CWM    WCBE,ON
14502  M00S08882.1mt     +++|          SOM    WCBC
14503  M00S08883.1mt     +++| WCB3     AOD    BL+1        INCREMENT BLOCK COUNT
14504  M00S08884.1mt     +++|          SHN    -14
14505  M00S08885.1mt     +++|          RAD    BL
14506  M00S08886.1mt     +++|          AOD    BT          INCREMENT BLOCKS TRANSFERRED
14507  M00S08887.1mt     +++|          LJM    WCBX
14508  M00S08888.1mt     +++| WCBD     EQU    *-1
14509  M00S08889.1mt     +++|*         LJM    RET4        (FATAL READ ERROR)
Line S00246 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
14510  M01S00246.ns22000 +++|
14511  M01S00247.ns22000 +++| WCBE     CON    DRCM        DRIVER RECALL CPU MONITOR FUNCTION
14512  M00S08890.1mt     +++|          SPACE  4,10
14513  M00S08891.1mt     +++| OVLB     BSS    0           FWA OF OVERLAID CODE
14514  M00S08892.1mt     +++|
14515  M00S08893.1mt     +++|*         WARNING ..........
14516  M00S08894.1mt     +++|*
14517  M00S08895.1mt     +++|*         THE FOLLOWING ROUTINES CANNOT USE ADDRESS MODIFICATION.
14518  M00S08896.1mt     +++|
14519  M00S08897.1mt     +++| VDA      SPACE  4,10
14520  M00S08898.1mt     +++|**        VDA - VALIDATE DATA.
14521  M00S08899.1mt     +++|*         CHECKS I FORMAT TRAILER INFORMATION.
14522  M00S08900.1mt     +++|
14523  M00S08901.1mt     +++|
14524  M00S08902.1mt     +++| VDA      SUBR               ENTRY/EXIT
14525  M00S08903.1mt     +++|          LDD    BY
14526  M00S08904.1mt     +++|          ZJN    VDAX        IF NO DATA READ
14527  M00S08905.1mt     +++|          LDD    EP
14528  M00S08906.1mt     +++|          SHN    21-12
14529  M00S08907.1mt     +++|          MJN    VDAX        IF OPPOSITE PARITY BEING TRIED
14530  M00S08908.1mt     +++|          LDM    BUF-4,BY    SAVE BLOCK LENGTH
14531  M00S08909.1mt     +++|          STM    //BNEI
14532  M00S08910.1mt     +++|          LDM    BUF-3,BY
14533  M00S08911.1mt     +++|          STM    //BNEI+1
14534  M00S08912.1mt     +++|          LMD    BL
14535  M00S08913.1mt     +++|          SHN    14
14536  M00S08914.1mt     +++|          LMM    BUF-2,BY
14537  M00S08915.1mt     +++|          STM    //BNEI+2
14538  M00S08916.1mt     +++|          LMD    BL+1
14539  M00S08917.1mt     +++|          NJN    VDA1        IF BLOCK NUMBER ERROR
14540  M00S08918.1mt     +++|          LDM    //BNEI
14541  M00S08919.1mt     +++|          LMD    BY
14542  M00S08920.1mt     +++|          ZJN    VDAX        IF CORRECT BLOCK LENGTH
14543  M00S08921.1mt     +++| VDA1     LDN    /MTX/BNE
14544  M00S08922.1mt     +++|          STD    EC
14545  M00S08923.1mt     +++|          UJN    VDAX        RETURN
14546  M00S08924.1mt     +++| PDA      SPACE  4,10
14547  M00S08925.1mt     +++|**        PDA - PROCESS DATA.
14548  M00S08926.1mt     +++|*         PROCESSES INTERNAL FORMAT LEVEL NUMBERS.
14549  M00S08927.1mt     +++|*
14550  M00S08928.1mt     +++|*         (TB) = TERMINATION STATUS.
14551  M00S08929.1mt     +++|
14552  M00S08930.1mt     +++|
14553  M00S08931.1mt     +++| PDA      SUBR
14554  M00S08932.1mt     +++| PDAA     UJN    PDA1        I FORMAT
14555  M00S08933.1mt     +++|*         LDD    ES          (SI FORMAT)
14556  M00S08934.1mt     +++|          LPN    40
14557  M00S08935.1mt     +++|          ZJN    PDA1        IF NO FILL STATUS
14558  M00S08936.1mt     +++|          LDD    WC
14559  M00S08937.1mt     +++|          ZJN    PDA1        IF NOISE RECORD
14560  M00S08938.1mt     +++|          SOD    WC          DECREMENT WORD COUNT
14561  M00S08939.1mt     +++|          SOD    BY          DECREMENT BYTE COUNT
14562  M00S08940.1mt     +++| PDA1     LDD    BY
14563  M00S08941.1mt     +++|          ZJN    PDA4        IF NO BYTES READ
14564  M00S08942.1mt     +++|          LMM    MRDA
Line S02743 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14565  M01S02743.274l797 +++| PDAC     EQU    *-1
14566  M01S02744.274l797 +++|*         LMM    RCTA        (CTS)
14567  M00S08943.1mt     +++|          LMN    1
14568  M00S08944.1mt     +++|          STM    BUFL        SET 0 LEVEL NUMBER
14569  M00S08945.1mt     +++|          ZJN    PDA3        IF FULL PRU
14570  M00S08946.1mt     +++|          LDM    BUF-1,BY    SET LEVEL NUMBER FOR CONTROL WORD
14571  M00S08947.1mt     +++|          LPN    17
14572  M00S08948.1mt     +++|          STM    BUF-4,BY
14573  M00S08949.1mt     +++|          STM    LNUM
14574  M00S08950.1mt     +++|          LMN    17
14575  M00S08951.1mt     +++|          ZJN    PDA2        IF EOF
14576  M00S08952.1mt     +++|          LCN    1
14577  M00S08953.1mt     +++| PDA2     ADN    2
14578  M00S08954.1mt     +++| PDA3     STD    TB          SET BLOCK STATUS
14579  M00S08955.1mt     +++| PDA4     LDD    WC
14580  M00S08956.1mt     +++|          SHN    2
14581  M00S08957.1mt     +++| PDAB     ADD    WC          (200 READ)
14582  M00S08958.1mt     +++|*         LDD    WC          (260 READ)
14583  M00S08959.1mt     +++|          STM    BUFC+4
14584  M00S08960.1mt     +++|          LJM    PDAX
14585  M00S08961.1mt     +++|
14586  M00S08962.1mt     +++| .BCWA    BSS    0
14587  M00S08963.1mt     +++| BUF      SPACE  4,10
14588  M00S08964.1mt     +++|          BUFFER
14589  M00S08965.1mt     +++| BCW      SPACE  4,10
14590  M00S08966.1mt     +++|**        BCW - BUILD CONTROL WORD.
14591  M00S08967.1mt     +++|*         OVERLAYS *VDA* AND *PDA* FOR ALL FORMATS EXCEPT I AND SI.
14592  M00S08968.1mt     +++|*
14593  M00S08969.1mt     +++|*         ENTRY  (A) = ABSOLUTE ADDRESS OF FET+6.
14594  M00S08970.1mt     +++|*
14595  M00S08971.1mt     +++|*         EXIT   (FET+6) UPDATED IF NON-CONTROL WORD READ.
14596  M00S08972.1mt     +++|*
14597  M00S08973.1mt     +++|*         USES   CM - CM+4.
14598  M00S08974.1mt     +++|
14599  M00S08975.1mt     +++|
14600  M00S08976.1mt     +++| .BCWB    BSS    0
14601  M00S08977.1mt     +++|          LOC    OVLB
14602  M00S08978.1mt     +++|
14603  M00S08979.1mt     +++| BCW6     LDD    T1          SET UBC IN FET
14604  M00S08980.1mt     +++|          STD    CM+2
14605  M00S08981.1mt     +++|          LDC    *
14606  M00S08982.1mt     +++| BCWG     EQU    *-2
14607  M00S08983.1mt     +++|          CWD    CM
14608  M00S08984.1mt     +++|
14609  M00S08985.1mt     +++| BCW      SUBR               ENTRY/EXIT
14610  M00S08986.1mt     +++|          CRD    CM          READ FET+6
14611  M00S08987.1mt     +++|          STM    BCWG+1      SAVE ADDRESS
14612  M00S08988.1mt     +++|          SHN    -14
14613  M00S08989.1mt     +++|          LMC    LDCI
14614  M00S08990.1mt     +++|          STM    BCWG
14615  M00S08991.1mt     +++|          LDD    WC          CALCULATE UNUSED BIT COUNT
14616  M00S08992.1mt     +++|          SHN    2
14617  M00S08993.1mt     +++|          ADD    WC
14618  M00S08994.1mt     +++|          STD    T1
14619  M00S08995.1mt     +++|          ZJN    BCW1        IF NO WORDS
14620  M00S08996.1mt     +++| BCWA     LDN    0           SET BLOCK STATUS
14621  M00S08997.1mt     +++|*         LDN    1           (S/L FORMAT NOT 200/260 CODE)
14622  M00S08998.1mt     +++|          STD    TB
14623  M00S08999.1mt     +++|          LDN    0           SET LEVEL NUMBER
14624  M00S09000.1mt     +++|          STM    BUF,T1
14625  M00S09001.1mt     +++|          STM    LNUM
14626  M00S09002.1mt     +++| BCW1     STD    T1
14627  M00S09003.1mt     +++|          LDD    WC
14628  M00S09004.1mt     +++| BCWB     EQU    *-1
14629  M00S09005.1mt     +++|*         LDD    BY          (200 READ CODE)
14630  M00S09006.1mt     +++|          STM    BUFC+4
14631  M00S09007.1mt     +++| BCWC     UJN    BCW2        CALCULATE UNUSED BIT COUNT
14632  M00S09008.1mt     +++|*         SHN    2
14633  M00S09009.1mt     +++|          ADD    WC
14634  M00S09010.1mt     +++|          SBD    BY
14635  M00S09011.1mt     +++|          SHN    2           4 * UNUSED BYTE COUNT
14636  M00S09012.1mt     +++|          STD    T1
14637  M00S09013.1mt     +++|          SHN    1           8 * UNUSED BYTE COUNT
14638  M00S09014.1mt     +++|          RAD    T1          12 * UNUSED BYTE COUNT
14639  M00S09015.1mt     +++| BCW2     LDD    ES
14640  M00S09016.1mt     +++|          LPN    40
14641  M00S09017.1mt     +++| BCWD     ZJN    BCW3        IF NO FILL STATUS
Line S09018 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14642  M01S09018.274l797 ---|*         ZJN    BCW5        (9 TRACK BINARY)
Line S02745 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14643  M01S02745.274l797 +++|*         ZJN    BCW5        (9 TRACK BINARY OR CTS)
14644  M00S09019.1mt     +++|          LDD    WC
14645  M00S09020.1mt     +++|          ZJN    BCW4        IF ZERO WORDS
14646  M00S09021.1mt     +++| BCWE     LDN    6           (7 TRACK OR 9 TRACK CODED)
Line S09022 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14647  M01S09022.274l797 ---|*         LDN    8D          (9 TRACK BINARY)
Line S02746 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14648  M01S02746.274l797 +++|*         LDN    8D          (9 TRACK BINARY OR CTS)
14649  M00S09023.1mt     +++| BCW3     RAD    T1
14650  M00S09024.1mt     +++| BCW4     STM    BUFC+2
14651  M00S09025.1mt     +++|          LJM    BCWX        RETURN
14652  M00S09026.1mt     +++|*         LJM    BCW6        (S/L FORMAT NON-CONTROL WORD READ)
14653  M00S09027.1mt     +++| BCWF     EQU    *-1
14654  M00S09028.1mt     +++|
14655  M00S09029.1mt     +++| BCW5     LDD    BY
14656  M00S09030.1mt     +++|          LPN    1
14657  M00S09031.1mt     +++|          SHN    2
14658  M00S09032.1mt     +++|          UJN    BCW3        SET UNUSED BIT COUNT
14659  M00S09033.1mt     +++|
14660  M00S09034.1mt     +++|.BCWC     BSS    0
14661  M00S09035.1mt     +++|          LOC    *O
14662  M00S09036.1mt     +++| .BCWL    EQU    *-.BCWB
14663  M00S09037.1mt     +++|          ERRNG  .BCWA-.BCWC OVERLAID CODE OVERFLOW
14664  M00S09038.1mt     +++|          TITLE  READ - PRESET.
Line S09039 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14665  M01S09039.274l797 ---| PRS      SPACE  4,10
Line S02747 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14666  M01S02747.274l797 +++| PRS      SPACE  4,20
14667  M00S09040.1mt     +++|**        PRS - PRESET.
14668  M00S09041.1mt     +++|*
Line S09042 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14669  M01S09042.274l797 ---|*         CALLS  CIB, MCH.
Line S02748 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14670  M01S02748.274l797 +++|*         ENTRY  FOR A READ FUNCTION THAT IS NOT LONG BLOCKS THIS
14671  M01S02749.274l797 +++|*                PRESET CODE RETURNS TO THE CALLER, LOADS AND
14672  M01S02750.274l797 +++|*                EXECUTES OVERLAY *CPP*, THEN ENTERS AT *PRS39.
14673  M01S02751.274l797 +++|*
14674  M01S02752.274l797 +++|*         EXIT   (WP, EP+1) PLUS THE BLOCK NUMBER IN (BL,BL+1) IS THE
14675  M01S02753.274l797 +++|*                          PHYSICAL BLOCK NUMBER FOR CTS.
14676  M01S02754.274l797 +++|*                (SC) = 1 IF *RLB* MUST BE LOADED.
14677  M01S02755.274l797 +++|*                (SC) = 2 IF *RLI* MUST BE LOADED.
14678  M01S02756.274l797 +++|*                TO *RDF* IF READ FUNCTION AND NOT LONG BLOCKS.
14679  M01S02757.274l797 +++|*
Line S02758 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14680  M02S02758.282l826 ---|*         USES   T1, T2.
Line S00836 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14681  M01S00836.282l826 +++|*         USES   BT, CN, CN+4, SC, T1, T2, T8.
Line S02759 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14682  M01S02759.274l797 +++|*
14683  M01S02760.274l797 +++|*         CALLS  CIB, MCH, /PRESET/RBI.
Line S00837 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14684  M01S00837.282l826 +++|*
14685  M01S00838.282l826 +++|*         MACROS ISTORE.
Line S02761 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14686  M01S02761.274l797 +++|*
14687  M01S02762.274l797 +++|*         NOTE   OVERLAY *RLB* MUST IMMEDIATELY FOLLOW *READ* AND
14688  M01S02763.274l797 +++|*                OVERLAY *RLI* MUST IMMEDIATELY FOLLOW *RLB*.
14689  M00S09043.1mt     +++|
14690  M00S09044.1mt     +++|
Line S09045 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14691  M01S09045.274l797 ---| PRS      LDC    PRSD        MODIFY CHANNELS
Line S02764 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14692  M01S02764.274l797 +++| PRS      LDD    HP
14693  M01S02765.274l797 +++|          SHN    21-7
14694  M01S02766.274l797 +++|          PJN    PRS0        IF NOT CTS
14695  M01S02767.274l797 +++|          LDD    BL
14696  M01S02768.274l797 +++|          ADD    BL+1
14697  M01S02769.274l797 +++|          NJN    PRS0        IF STARTING BLOCK ID ALREADY SAVED
14698  M01S02770.274l797 +++|          RJM    /PRESET/RBI READ BLOCK ID
Line S02771 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
14699  M02S02771.1mt38   ---|          AOM    /PRESET/PICA  LOCATE BLOCK NECESSARY IN ERROR RECOVRY
Line S00001 Modification History
M01 (Added by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
14700  M01S00001.1mt38   +++|          AOM    /PRESET/PICA  LOCATE BLOCK NECESSARY IN ERROR RECOVERY
Line S02772 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14701  M01S02772.274l797 +++|          LDM    BIDW+1
14702  M01S02773.274l797 +++|          STD    WP          SAVE CURRENT BLOCK ID
14703  M01S02774.274l797 +++|          LDM    BIDW+2
14704  M01S02775.274l797 +++|          STD    EP+1
14705  M01S02776.274l797 +++| PRS0     LDD    FM
Line S00839 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14706  M01S00839.282l826 +++|          SHN    -6
14707  M01S00840.282l826 +++|          STD    T8          SET FORMAT
Line S02777 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14708  M01S02777.274l797 +++|          LMN    /MTX/TFLI
14709  M01S02778.274l797 +++|          NJN    PRS0.1      IF NOT LI FORMAT
14710  M01S02779.274l797 +++|          LDD    FN
14711  M01S02780.274l797 +++|          LMN    /MTX/RDF
14712  M01S02781.274l797 +++|          NJN    PRS0.1      IF NOT READ FUNCTION
14713  M01S02782.274l797 +++|          LDN    2
14714  M01S02783.274l797 +++|          RAD    SC          SET TO LOAD READ LI FORMAT OVERLAY
14715  M01S02784.274l797 +++|          LJM    PRSX        RETURN
14716  M01S02785.274l797 +++|
14717  M01S02786.274l797 +++| PRS0.1   LDD    HP
14718  M01S02787.274l797 +++|          SHN    21-7
14719  M01S02788.274l797 +++|          PJN    PRS0.2      IF NOT CTS
14720  M01S02789.274l797 +++|          LDC    UJNI+2
14721  M01S02790.274l797 +++|          STM    RDFB        SKIP CLIP LEVEL FUNCTION
14722  M01S02791.274l797 +++|          LDC    RCTA
14723  M01S02792.274l797 +++|          STM    PDAC
14724  M01S02793.274l797 +++|          LDC    LDNI+CRE/10000  CALL CTS ERROR PROCESSOR
14725  M01S02794.274l797 +++|          STM    WCBF
14726  M01S02795.274l797 +++|          LJM    PRS6        CONTINUE PRESET
14727  M01S02796.274l797 +++|
14728  M01S02797.274l797 +++| PRS0.2   LDC    PRSD        MODIFY CHANNELS
14729  M00S09046.1mt     +++|          RJM    //MCH
14730  M00S09047.1mt     +++|          LDD    HP
14731  M00S09048.1mt     +++|          LPN    20
Line S09049 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14732  M01S09049.ns21000 ---|          ZJN    PRS1        IF MTS UNIT
14733  M01S09050.ns21000 ---|          LDN    0           MODIFY INSTRUCTIONS FOR ATS CONTROLLER
Line S00169 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
14734  M01S00169.ns21000 +++|          ZJN    PRS1        IF MTS UNIT
14735  M01S00170.ns21000 +++|          LDN    0           MODIFY INSTRUCTIONS FOR ATS CONTROLLER
14736  M00S09051.1mt     +++|          STM    MRDG
14737  M00S09052.1mt     +++|          LCN    0
14738  M00S09053.1mt     +++|          STM    MRDQ
14739  M00S09054.1mt     +++|          LCN    2
14740  M00S09055.1mt     +++|          RAM    MRDE
14741  M00S09056.1mt     +++|          LDM    PRSG
14742  M00S09057.1mt     +++|          STM    PRSA
14743  M00S09058.1mt     +++|          LDC    UJNI-PJNI
14744  M00S09059.1mt     +++|          RAM    MRDI
Line S09060 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14745  M01S09060.282l826 ---|          LDM    ATUS        SET FOR DENSITY CHECK
Line S00841 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14746  M01S00841.282l826 +++|          LDD    HP
14747  M01S00842.282l826 +++|          SHN    21-1
14748  M01S00843.282l826 +++|          PJN    PRS0.3      IF NOT GCR UNIT
14749  M01S00844.282l826 +++|          ISTORE MRDR,(UJN MRD12)  DISABLE CORRECTED ERROR CHECK
14750  M01S00845.282l826 +++| PRS0.3   LDM    ATUS        SET FOR DENSITY CHECK
14751  M00S09061.1mt     +++| PRS1     STD    T1
14752  M00S09062.1mt     +++|          LDD    HP
14753  M00S09063.1mt     +++|          LPN    1
14754  M00S09064.1mt     +++|          NJN    PRS2        IF 9 TRACK DRIVE
14755  M00S09065.1mt     +++|          LJM    PRS9        CONTINUE PRESET
14756  M00S09066.1mt     +++|
14757  M00S09067.1mt     +++|*         PRESET FOR MTS/ATS 9 TRACK OPERATION.
14758  M00S09068.1mt     +++|
14759  M00S09069.1mt     +++| PRS2     LDD    T1          DETERMINE IF 6250 BPI
14760  M00S09070.1mt     +++|          LPN    30
14761  M00S09071.1mt     +++|          LMN    30
14762  M00S09072.1mt     +++|          NJN    PRS3        IF NOT 6250 BPI
14763  M00S09073.1mt     +++|          LDM    DLYA
14764  M00S09074.1mt     +++|          LPN    14
14765  M00S09075.1mt     +++|          ZJN    PRS5        IF 1X PPU SPEED
14766  M00S09076.1mt     +++|          LPN    4
14767  M00S09077.1mt     +++|          ZJN    PRS4        IF 2X PPU
14768  M00S09078.1mt     +++|          UJN    PRS6        4X PPU, FULL MOTION AHEAD
14769  M00S09079.1mt     +++|
Line S09080 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14770  M01S09080.282l826 ---|
14771  M00S09081.1mt     +++| PRS3     LDM    DLYA
14772  M00S09082.1mt     +++|          LPN    14
14773  M00S09083.1mt     +++|          NJN    PRS6        IF 2X OR 4X PPU SPEED
14774  M00S09084.1mt     +++| PRS4     LDD    HP
14775  M00S09085.1mt     +++|          LPN    10
14776  M00S09086.1mt     +++|          LMN    10
14777  M00S09087.1mt     +++|          NJN    PRS6        IF NOT 200 IPS UNIT
14778  M00S09088.1mt     +++| PRS5     LDC    UJNI+2      DISABLE MOTION AHEAD
14779  M00S09089.1mt     +++|          STM    TDAF
14780  M00S09090.1mt     +++|          LDM    PRSF
14781  M00S09091.1mt     +++|          STM    RDFD
14782  M00S09092.1mt     +++| PRS6     LDD    MD
14783  M00S09093.1mt     +++|          SHN    21-6
14784  M00S09094.1mt     +++|          MJN    PRS9        IF CODED
14785  M00S09095.1mt     +++|
14786  M00S09096.1mt     +++|*         9 TRACK BINARY.
14787  M00S09097.1mt     +++|
14788  M00S09098.1mt     +++|          LDD    HP
14789  M00S09099.1mt     +++|          LPN    20
14790  M00S09100.1mt     +++|          NJN    PRS7        IF ATS CONTROLLER
14791  M00S09101.1mt     +++|          LDC    SHNI+72
14792  M00S09102.1mt     +++|          STM    MRDJ
Line S09103 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14793  M01S09103.282l826 ---| PRS7     LDD    FM
Line S00846 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14794  M01S00846.282l826 +++| PRS7     LDD    T8
14795  M00S09104.1mt     +++|          LMN    /MTX/TFI
14796  M00S09105.1mt     +++|          ZJN    PRS8        IF I FORMAT
14797  M00S09106.1mt     +++| PRSA     LDC    LDDI+DS
14798  M00S09107.1mt     +++|*         UJN    PRS9        (ATS CONTROLLER)
14799  M00S09108.1mt     +++|          STM    MRDK
Line S09109 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14800  M01S09109.282l826 ---|          LDD    FM
Line S00847 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14801  M01S00847.282l826 +++|          LDD    T8
14802  M00S09110.1mt     +++|          LMN    /MTX/TFSI
14803  M00S09111.1mt     +++|          ZJN    PRS9        IF SI FORMAT
14804  M00S09112.1mt     +++|          LDC    SHNI+2
14805  M00S09113.1mt     +++|          STM    MRDL
14806  M00S09114.1mt     +++|          UJN    PRS9        SAVE WORD COUNT
14807  M00S09115.1mt     +++|
14808  M00S09116.1mt     +++| PRS8     LDC    ZJNI-UJNI
14809  M00S09117.1mt     +++|          RAM    MRDF
Line S02798 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14810  M01S02798.274l797 +++|          LDC    ZJNI-UJNI
14811  M01S02799.274l797 +++|          RAM    RCTF+.RCT-RCTX  (CTS)
14812  M00S09118.1mt     +++| PRS9     LDD    WC          SAVE BEGINNING WORD COUNT
14813  M00S09119.1mt     +++|          STM    WOCN
Line S09120 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14814  M01S09120.282l826 ---|          LDD    HP
14815  M01S09121.282l826 ---|          LPC    5777        CLEAR EOR/EOF FLAG
14816  M01S09122.282l826 ---|          STD    HP
Line S00848 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14817  M01S00848.282l826 +++|          LDD    UP
14818  M01S00849.282l826 +++|          SCN    10          CLEAR EOR/EOF FLAG
14819  M01S00850.282l826 +++|          STD    UP
14820  M00S09123.1mt     +++|          LDD    FN
14821  M00S09124.1mt     +++|          LMN    /MTX/RDF
14822  M00S09125.1mt     +++|          ZJN    PRS11       IF READ
14823  M00S09126.1mt     +++|          LMN    /MTX/SKP&/MTX/RDF
14824  M00S09127.1mt     +++|          ZJN    PRS10       IF SKIP
Line S09128 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14825  M01S09128.282l826 ---|          LDN    /MTX/TFF    SET F FORMAT
14826  M01S09129.282l826 ---|          STD    FM
Line S00851 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14827  M01S00851.282l826 +++|          LDN    /MTX/TFF    PROCESS AS IF F FORMAT
14828  M01S00852.282l826 +++|          STD    T8
14829  M00S09130.1mt     +++| PRS10    LDC    UJNI+MRD18-MRDO
14830  M00S09131.1mt     +++|          ERRNG  MRDO-MRD18+37
14831  M00S09132.1mt     +++|          STM    MRDO
Line S02800 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14832  M01S02800.274l797 +++|          STM    RCTL+.RCT-RCTX  (CTS)
14833  M00S09133.1mt     +++| PRS11    LDD    MD
14834  M00S09134.1mt     +++|          LPN    60
14835  M00S09135.1mt     +++|          NJN    PRS12       IF CONTROL WORD REQUEST
Line S09136 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14836  M01S09136.282l826 ---|          LDD    FM
Line S00853 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14837  M01S00853.282l826 +++|          LDD    T8
14838  M00S09137.1mt     +++|          LMN    /MTX/TFS
14839  M00S09138.1mt     +++|          ZJN    PRS15       IF S FORMAT
14840  M00S09139.1mt     +++|          LMN    /MTX/TFL&/MTX/TFS
14841  M00S09140.1mt     +++|          ZJN    PRS15       IF L FORMAT
14842  M00S09141.1mt     +++|          UJN    PRS13       CONTINUE PRESET
14843  M00S09142.1mt     +++|
14844  M00S09143.1mt     +++| PRS12    SHN    -4          ALLOW SPACE FOR CONTROL WORDS
14845  M00S09144.1mt     +++|          RAM    TDAA
14846  M00S09145.1mt     +++|          LCN    BUF-BUFC    RESET BUFFER WRITE ADDRESS
14847  M00S09146.1mt     +++|          RAM    WCBA
Line S09147 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14848  M01S09147.282l826 ---| PRS13    LDD    FM
Line S00854 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14849  M01S00854.282l826 +++| PRS13    LDD    T8
14850  M00S09148.1mt     +++|          SBN    /MTX/TFSI+1
14851  M00S09149.1mt     +++|          PJN    PRS16       IF NOT I OR SI
14852  M00S09150.1mt     +++|          LDD    MD
14853  M00S09151.1mt     +++|          LPN    40
14854  M00S09152.1mt     +++|          NJN    PRS14       IF 200 READ
14855  M00S09153.1mt     +++|          LDC    LDDI+WC
14856  M00S09154.1mt     +++|          STM    PDAB
14857  M00S09155.1mt     +++| PRS14    LJM    PRS20       CONTINUE PRESET
14858  M00S09156.1mt     +++|
14859  M00S09157.1mt     +++| PRS15    AOM    BCWA+.BCWB-OVLB  SET TO RETURN EOR ALWAYS
14860  M00S09158.1mt     +++|          LDC    BCW6        ENABLE RETURN OF MLRS
14861  M00S09159.1mt     +++|          STM    BCWF+.BCWB-OVLB
14862  M00S09160.1mt     +++| PRS16    LDN    .BCWL-1     MOVE *BCW*
14863  M00S09161.1mt     +++|          STD    T1
14864  M00S09162.1mt     +++| PRS17    LDM    .BCWB,T1
14865  M00S09163.1mt     +++|          STM    OVLB,T1
14866  M00S09164.1mt     +++|          SOD    T1
14867  M00S09165.1mt     +++|          PJN    PRS17       IF STILL MORE CODE TO MOVE
14868  M00S09166.1mt     +++|          LDC    BCW         ENABLE CODE
14869  M00S09167.1mt     +++|          STM    MRDO+1
Line S02801 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14870  M01S02801.274l797 +++|          STM    RCTL+1+.RCT-RCTX  (CTS)
14871  M00S09168.1mt     +++|          LDD    MD
14872  M00S09169.1mt     +++|          SHN    21-6
14873  M00S09170.1mt     +++|          MJN    PRS18       IF CODED
14874  M00S09171.1mt     +++|          LDD    HP
Line S09172 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14875  M01S09172.274l797 ---|          LPN    1
14876  M01S09173.274l797 ---|          ZJN    PRS18       IF 7 TRACK
14877  M01S09174.274l797 ---|          LDN    BCW5-BCW3   MODIFY UBC CODE FOR 9 TRACK
Line S02802 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14878  M01S02802.274l797 +++|          SHN    21-7
14879  M01S02803.274l797 +++|          MJN    PRS17.1     IF CTS
14880  M01S02804.274l797 +++|          SHN    21-0-21+7
14881  M01S02805.274l797 +++|          PJN    PRS18       IF 7 TRACK
14882  M01S02806.274l797 +++| PRS17.1  LDN    BCW5-BCW3   MODIFY UBC CODE FOR 9 TRACK AND CTS
14883  M00S09175.1mt     +++|          RAM    BCWD
14884  M00S09176.1mt     +++|          LDN    2
14885  M00S09177.1mt     +++|          RAM    BCWE
14886  M00S09178.1mt     +++| PRS18    LDD    MD
14887  M00S09179.1mt     +++|          LPN    40
14888  M00S09180.1mt     +++|          NJN    PRS19       IF 200
14889  M00S09181.1mt     +++|          LDC    SHNI+2
14890  M00S09182.1mt     +++|          STM    BCWC
14891  M00S09183.1mt     +++|          UJN    PRS20       CONTINUE PRESET
14892  M00S09184.1mt     +++|
14893  M00S09185.1mt     +++| PRS19    LDC    LDDI+BY
14894  M00S09186.1mt     +++|          STM    BCWB
14895  M00S09187.1mt     +++| PRS20    LDC    TRSO
14896  M00S09188.1mt     +++|          STD    T1
14897  M00S09189.1mt     +++|          LDN    0
14898  M00S09190.1mt     +++|          UJN    PRS22       SET READ STOP CONDITION
14899  M00S09191.1mt     +++|
14900  M00S09192.1mt     +++| PRS21    LDN    2           ADVANCE TABLE
14901  M00S09193.1mt     +++|          RAD    T1
14902  M00S09194.1mt     +++|          LDI    T1
14903  M00S09195.1mt     +++|          ZJN    PRS25       IF END OF TABLE
14904  M00S09196.1mt     +++| PRS22    LMM    CIOE
14905  M00S09197.1mt     +++|          LPC    774
14906  M00S09198.1mt     +++|          NJN    PRS21       IF NOT MATCH
14907  M00S09199.1mt     +++|          AOD    T1
Line S09200 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14908  M01S09200.282l826 ---|          LDD    FM
Line S00855 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14909  M01S00855.282l826 +++|          LDD    T8
14910  M00S09201.1mt     +++|          LMN    /MTX/TFS
14911  M00S09202.1mt     +++|          ZJN    PRS23       IF S FORMAT
14912  M00S09203.1mt     +++|          LMN    /MTX/TFL&/MTX/TFS
14913  M00S09204.1mt     +++|          NJN    PRS24       IF NOT L FORMAT
14914  M00S09205.1mt     +++| PRS23    LDI    T1          SELECT S/L PORTION OF TABLE
14915  M00S09206.1mt     +++|          SHN    -6
14916  M00S09207.1mt     +++|          STI    T1
14917  M00S09208.1mt     +++| PRS24    LDM    LNUM
14918  M00S09209.1mt     +++|          SHN    -10
14919  M00S09210.1mt     +++|          STD    T2
14920  M00S09211.1mt     +++|          LMN    17
14921  M00S09212.1mt     +++|          NJN    PRS25       IF NOT LEVEL 17
14922  M00S09213.1mt     +++|          LDI    T1
14923  M00S09214.1mt     +++|          SHN    -3
14924  M00S09215.1mt     +++|          STI    T1
14925  M00S09216.1mt     +++|          LDN    10-4        SET FILE SKIP FOR *READSKP*
14926  M00S09217.1mt     +++|          RAM    TDAI
14927  M00S09218.1mt     +++| PRS25    LDI    T1          SET STOP CONDITION
14928  M00S09219.1mt     +++|          LPN    3
14929  M00S09220.1mt     +++|          RAM    TDAC
14930  M00S09221.1mt     +++|          LDM    CIOE
14931  M00S09222.1mt     +++|          LPC    774
14932  M00S09223.1mt     +++|          LMN    20
14933  M00S09224.1mt     +++|          NJN    PRS27       IF NOT READ SKIP
14934  M00S09225.1mt     +++|          STM    TDAB
14935  M00S09226.1mt     +++|          STM    TDAE
14936  M00S09227.1mt     +++|          LDC    UJNI-PJNI
14937  M00S09228.1mt     +++|          RAM    PRSC
14938  M00S09229.1mt     +++|          LDC    LDMI
14939  M00S09230.1mt     +++|          STM    TDAG
14940  M00S09231.1mt     +++|          LDD    T2
14941  M00S09232.1mt     +++|          ZJN    PRS27       IF LEVEL 0
14942  M00S09233.1mt     +++|          LMN    17
14943  M00S09234.1mt     +++|          ZJN    PRS26       IF LEVEL 17
Line S09235 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14944  M01S09235.282l826 ---|          LDD    FM
Line S00856 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14945  M01S00856.282l826 +++|          LDD    T8
14946  M00S09236.1mt     +++|          SBN    /MTX/TFSI+1
14947  M00S09237.1mt     +++|          PJN    PRS27       IF NOT I/SI FORMAT
14948  M00S09238.1mt     +++| PRS26    LDD    T2          SET LEVEL NUMBER
14949  M00S09239.1mt     +++|          RAM    TDAH
Line S09240 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14950  M01S09240.282l826 ---| PRS27    LDD    FM
Line S00857 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14951  M01S00857.282l826 +++| PRS27    LDD    T8
14952  M00S09241.1mt     +++|          LMN    /MTX/TFI
14953  M00S09242.1mt     +++|          ZJN    PRS28       IF I FORMAT
14954  M00S09243.1mt     +++|          LDD    WC          SET BYTES TO READ
14955  M00S09244.1mt     +++|          SHN    2
14956  M00S09245.1mt     +++|          ADD    WC
14957  M00S09246.1mt     +++|          ADN    1
14958  M00S09247.1mt     +++|          STM    MRDA
Line S02807 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14959  M01S02807.274l797 +++|          STM    RCTA+.RCT-RCTX  (CTS)
14960  M00S09248.1mt     +++|          LDC    UJNI+2      DISABLE VALIDATE DATA
14961  M00S09249.1mt     +++|          STM    MRDH
Line S02808 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14962  M01S02808.274l797 +++|          STM    RCTG+.RCT-RCTX  (CTS)
Line S09250 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14963  M01S09250.282l826 ---| PRS28    LDD    FM
Line S00858 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14964  M01S00858.282l826 +++| PRS28    LDD    T8
14965  M00S09251.1mt     +++|          SBN    /MTX/TFSI+1
14966  M00S09252.1mt     +++|          PJN    PRS31       IF NOT I OR SI
14967  M00S09253.1mt     +++|          LDD    HP
Line S09254 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14968  M01S09254.274l797 ---|          LPN    1
14969  M01S09255.274l797 ---|          ZJN    PRS29       IF 7 TRACK
14970  M01S09256.274l797 ---|          LDD    FM
Line S02809 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14971  M01S02809.274l797 +++|          SHN    21-7
14972  M01S02810.274l797 +++|          MJN    PRS28.1     IF CTS
14973  M01S02811.274l797 +++|          SHN    21-0-21+7
14974  M01S02812.274l797 +++|          PJN    PRS29       IF 7 TRACK
Line S02813 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14975  M02S02813.282l826 ---| PRS28.1  LDD    FM
Line S00859 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14976  M01S00859.282l826 +++| PRS28.1  LDD    T8
14977  M00S09257.1mt     +++|          LMN    /MTX/TFSI
14978  M00S09258.1mt     +++|          ZJN    PRS30       IF SI FORMAT
14979  M00S09259.1mt     +++| PRS29    LDC    LDDI+ES     FORCE FILL STATUS TO ALWAYS BE ERROR
14980  M00S09260.1mt     +++|          STM    MRDM
Line S02814 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14981  M01S02814.274l797 +++|          LDC    ZJNI-UJNI
14982  M01S02815.274l797 +++|          RAM    RCTJ+.RCT-RCTX  (CTS)
14983  M00S09261.1mt     +++|          UJN    PRS31       CONTINUE PRESET
14984  M00S09262.1mt     +++|
14985  M00S09263.1mt     +++| PRS30    LDC    LDDI+ES
14986  M00S09264.1mt     +++|          STM    PDAA
Line S09265 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14987  M01S09265.282l826 ---| PRS31    LDD    FM
Line S00860 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
14988  M01S00860.282l826 +++| PRS31    LDD    T8
14989  M00S09266.1mt     +++|          LMN    /MTX/TFI
14990  M00S09267.1mt     +++|          ZJN    PRS33       IF I FORMAT
14991  M00S09268.1mt     +++|          LMN    /MTX/TFSI&/MTX/TFI
14992  M00S09269.1mt     +++|          ZJN    PRS32       IF SI FORMAT
14993  M00S09270.1mt     +++|          LDC    ADNI+4
14994  M00S09271.1mt     +++| PRS32    STM    MRDD
Line S09272 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14995  M01S09272.274l797 ---| PRS33    LDC    4435
Line S02816 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
14996  M01S02816.274l797 +++|          STM    RCTE+.RCT-RCTX  (CTS)
14997  M01S02817.274l797 +++| PRS33    LDN    40          SELECT READ FUNCTION
14998  M01S02818.274l797 +++|          STM    //ITMA
14999  M01S02819.274l797 +++|          LDD    HP
15000  M01S02820.274l797 +++|          SHN    21-7
15001  M01S02821.274l797 +++|          MJN    PRS34       IF CTS
15002  M01S02822.274l797 +++|          LDC    4435
15003  M00S09273.1mt     +++|          STM    //WEOA
15004  M00S09274.1mt     +++|          LDN    1
15005  M00S09275.1mt     +++|          STM    //WEOB
Line S09276 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15006  M01S09276.274l797 ---|          LDN    40          SELECT READ FUNCTION
15007  M01S09277.274l797 ---|          STM    //ITMA
15008  M00S09278.1mt     +++|          LDD    EP          SET CLIPPING LEVEL
15009  M00S09279.1mt     +++|          LPC    700
Line S09280 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15010  M01S09280.274l797 ---|          ZJN    PRS34       IF NORMAL CLIP LEVEL
Line S02823 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15011  M01S02823.274l797 +++|          ZJP    PRS34.2     IF NORMAL CLIP LEVEL
15012  M00S09281.1mt     +++|          RAM    RDFA
Line S09282 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15013  M01S09282.274l797 ---|          UJN    PRS35       CONTINUE PRESET
Line S02824 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15014  M01S02824.274l797 +++|          UJP    PRS35       CONTINUE PRESET
15015  M00S09283.1mt     +++|
Line S09284 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15016  M01S09284.274l797 ---| PRS34    LDC    UJNI+2      DISABLE PCL SELCTION
Line S02825 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15017  M01S02825.274l797 +++|*         REPLACE *MRD* WITH READ ROUTINE *RTC* FOR CTS.
15018  M01S02826.274l797 +++|
15019  M01S02827.274l797 +++| PRS34    LDC    .RCTL-1
15020  M01S02828.274l797 +++|          STD    T1          LENGTH OF CODE TO MOVE
15021  M01S02829.274l797 +++| PRS34.1  LDM    .RCT,T1
15022  M01S02830.274l797 +++|          STM    MRDX,T1
15023  M01S02831.274l797 +++|          SOD    T1
15024  M01S02832.274l797 +++|          PJN    PRS34.1     IF MORE CODE TO MOVE
15025  M01S02833.274l797 +++|          LDC    .RCTA
15026  M01S02834.274l797 +++|          RJM    MCH         MODIFY CHANNEL INSTRUCTIONS
15027  M01S02835.274l797 +++|
15028  M01S02836.274l797 +++|*         THE SADT MACRO FOR *MRD17* MUST BE THE FIRST ONE IN
15029  M01S02837.274l797 +++|*         THE OVERLAY.
15030  M01S02838.274l797 +++|
15031  M01S02839.274l797 +++|          LDC    RCTK*2
15032  M01S02840.274l797 +++|          STM    PRSE
15033  M01S02841.274l797 +++|          LDC    6125        BITS TO TEST IN GENERAL STATUS
15034  M01S02842.274l797 +++|          STM    /PRESET/WFEA
15035  M01S02843.274l797 +++|          LDN    1           BITS IN GENERAL STATUS THAT SHOULD BE SET
15036  M01S02844.274l797 +++|          STM    /PRESET/WFEB
15037  M01S02845.274l797 +++|          LDD    FN
15038  M01S02846.274l797 +++|          LMN    /MTX/RDF
15039  M01S02847.274l797 +++|          NJN    PRS35       IF NOT READ DATA
Line S02848 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15040  M02S02848.282l826 ---|          LDD    FM
Line S00861 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15041  M01S00861.282l826 +++|          LDD    T8
Line S02849 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15042  M01S02849.274l797 +++|          LMN    /MTX/TFS
15043  M01S02850.274l797 +++|          NJN    PRS35       IF NOT S FORMAT
15044  M01S02851.274l797 +++|          LDD    MD
15045  M01S02852.274l797 +++|          SHN    21-6
15046  M01S02853.274l797 +++|          PJN    PRS35       IF NOT CODED
15047  M01S02854.274l797 +++|          LDN    CLBL+1
15048  M01S02855.274l797 +++|          STM    RCTA        LABEL LENGTH + 1
15049  M01S02856.274l797 +++|          UJN    PRS35       SET TO MODIFY INSTRUCTIONS
15050  M01S02857.274l797 +++|
15051  M01S02858.274l797 +++| PRS34.2  LDC    UJNI+2      DISABLE CLIP LEVEL SELECTION
15052  M00S09285.1mt     +++|          STM    RDFB
15053  M00S09286.1mt     +++| PRS35    LDC    PRSE        SET TO MODIFY INSTRUCTIONS
15054  M00S09287.1mt     +++|          STD    CN
15055  M00S09288.1mt     +++|          LDN    2           SET TO FETCH IN POINTER
15056  M00S09289.1mt     +++|          STD    CN+4
15057  M00S09290.1mt     +++|          LDC    /SRU/ITRW*100  SET SRU INCREMENT
15058  M00S09291.1mt     +++|          STM    //CECA
15059  M00S09292.1mt     +++|          LDD    FN
15060  M00S09293.1mt     +++|          LMN    /MTX/RDF
15061  M00S09294.1mt     +++|          NJN    PRS38       IF NOT READ
15062  M00S09295.1mt     +++|          LDD    OV
15063  M00S09296.1mt     +++|          ZJN    PRS37       IF NOT POSSIBLE LONG BLOCKS
Line S09297 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15064  M01S09297.282l826 ---|          LDD    FM
Line S00862 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15065  M01S00862.282l826 +++|          LDD    T8
15066  M00S09298.1mt     +++|          LMN    /MTX/TFL
15067  M00S09299.1mt     +++|          ZJN    PRS36       IF L FORMAT
15068  M00S09300.1mt     +++|          LMN    /MTX/TFF&/MTX/TFL
15069  M00S09301.1mt     +++|          NJN    PRS37       IF NOT F FORMAT
15070  M00S09302.1mt     +++| PRS36    AOD    SC          SET TO LOAD LONG BLOCK OVERLAY
15071  M00S09303.1mt     +++| PRS37    LDC    PRS39       SET TO RETURN HERE IF READ DATA
15072  M00S09304.1mt     +++|          STD    BT
15073  M00S09305.1mt     +++| PRS38    LJM    PRSX        RETURN
15074  M00S09306.1mt     +++|
15075  M00S09307.1mt     +++|*         RETURN HERE IF READ DATA, NOT LONG BLOCKS.
15076  M00S09308.1mt     +++|
15077  M00S09309.1mt     +++| PRS39    LDM    TDAD        SET BLOCK SIZE
15078  M00S09310.1mt     +++|          STM    PRSB
15079  M00S09311.1mt     +++|          LDM    TDAD+1
15080  M00S09312.1mt     +++|          STM    PRSB+1
15081  M00S09313.1mt     +++|          RJM    CIB         CHECK INPUT BUFFER
15082  M00S09314.1mt     +++| PRSB     ADC    -*          (- MAXIMUM BLOCK SIZE)
15083  M00S09315.1mt     +++| PRSC     PJN    PRS40       IF ENOUGH ROOM IN BUFFER
15084  M00S09316.1mt     +++|*         UJN    PRS40       (READSKP)
15085  M00S09317.1mt     +++|          LDN    1
15086  M00S09318.1mt     +++|          LJM    RET         SET FET COMPLETE
15087  M00S09319.1mt     +++|
15088  M00S09320.1mt     +++| PRS40    LDN    0           PRESET EXIT CONDITION
15089  M00S09321.1mt     +++|          STD    PB
15090  M00S09322.1mt     +++|          LJM    RDF         ENTER READ CODE
15091  M00S09323.1mt     +++|
15092  M00S09324.1mt     +++|
15093  M00S09325.1mt     +++| PRSD     CHTB
Line S02859 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15094  M01S02859.274l797 +++|
15095  M01S02860.274l797 +++|*         THE FIRST ENTRY IN THIS TABLE MUST BE FROM *MRD17*.  CTS
15096  M01S02861.274l797 +++|*         PRESET CHANGES THE FIRST ENTRY.
15097  M01S02862.274l797 +++|
15098  M00S09326.1mt     +++| PRSE     TSAD
15099  M00S09327.1mt     +++|
15100  M00S09328.1mt     +++| PRSF     BSS    0
15101  M00S09329.1mt     +++|          LOC    RDFD
15102  M00S09330.1mt     +++|          UJN    RDF         LOOP FOR NEXT BLOCK
15103  M00S09331.1mt     +++|          LOC    *O
15104  M00S09332.1mt     +++|
15105  M00S09333.1mt     +++| PRSG     BSS    0
15106  M00S09334.1mt     +++|          LOC    PRSA
15107  M00S09335.1mt     +++|          UJN    PRS9        CONTINUE PRESET
15108  M00S09336.1mt     +++|          LOC    *O
15109  M00S09337.1mt     +++| TRSO     SPACE  4,10
15110  M00S09338.1mt     +++|**        TRSO - TABLE OF READ STOP CODES.
15111  M00S09339.1mt     +++|
15112  M00S09340.1mt     +++|
15113  M00S09341.1mt     +++| TRSO     BSS    0
15114  M00S09342.1mt     +++|          CON    0,0000
15115  M00S09343.1mt     +++|          CON    10,0011
15116  M00S09344.1mt     +++|          CON    20,0011
15117  M00S09345.1mt     +++|          CON    200,2323
15118  M00S09346.1mt     +++|          CON    250,2222
15119  M00S09347.1mt     +++|          CON    260,2222
15120  M00S09348.1mt     +++|          CON    600,0033
15121  M00S09349.1mt     +++|          CON    0
Line S09350 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15122  M01S09350.274l797 ---|          OVERLAY (READ LONG BLOCK PROCESSOR.),(BUFC+5)
Line S02863 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15123  M01S02863.274l797 +++| RCT      SPACE  4,20
15124  M01S02864.274l797 +++|**        RCT - READ CARTRIDGE TAPE.
15125  M01S02865.274l797 +++|*
15126  M01S02866.274l797 +++|*         ENTRY  AT *RCT2* FROM /RLB/CLB TO INPUT LAST CHUNK.
15127  M01S02867.274l797 +++|*                AT *RCT3* FROM /RLB/CLB IF *1LT* INPUT LAST CHUNK.
Line S02868 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15128  M02S02868.1mt41   ---|*                AT *RCT4* FROM /3M /SLB IF BLOCK TOO LONG.
15129  M02S02869.1mt41   ---|*                AT *RCT5* FROM /3M /SLB IF BLOCK NOT TOO LONG.
Line S00004 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15130  M01S00004.1mt41   +++|*                AT *RCT4* FROM */SKP/SLB* IF BLOCK TOO LONG.
15131  M01S00005.1mt41   +++|*                AT *RCT5* FROM */SKP/SLB* IF BLOCK NOT TOO LONG.
Line S02870 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15132  M01S02870.274l797 +++|*                AT *RCT5* FROM /RLB/CLB IF *1LT* COMPLETED TRANSFER.
15133  M01S02871.274l797 +++|*                AT *RCT6* FROM /RLB/CLB IF *1MT* COMPLETED TRANSFER.
15134  M01S02872.274l797 +++|*                AT *RCT13* FROM /RLA/RLA IF BACKSPACE.
15135  M01S02873.274l797 +++|*
15136  M01S02874.274l797 +++|*         EXIT   (EC) = ERROR CODE, 0 IF NO ERROR.
15137  M01S02875.274l797 +++|*                (TB) = TYPE OF BLOCK.
15138  M01S02876.274l797 +++|*                (WC) = WORD COUNT FOR TRANSFER TO CENTRAL.
15139  M01S02877.274l797 +++|*                (BY) = BYTES READ.
15140  M01S02878.274l797 +++|*                (ES) = 0 IF NO FILL STATUS.
Line S02879 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15141  M02S02879.1mt41   ---|*                TO */3M /SLB* IF SKIP LONG BLOCK, NOT LAST CHUNK.
Line S00006 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15142  M01S00006.1mt41   +++|*                TO */SKP/SLB* IF SKIP LONG BLOCK, NOT LAST CHUNK.
Line S02880 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15143  M01S02880.274l797 +++|*                TO */RLB/CLB1* IF COMMAND RETRY FOR READ LONG BLOCK.
15144  M01S02881.274l797 +++|*
15145  M01S02882.274l797 +++|*         USES   T1, T2.
15146  M01S02883.274l797 +++|*
15147  M01S02884.274l797 +++|*         CALLS  BCW, *CCL*, CDO, /RLB/CRA, PDA, VDA, /PRESET/WFE.
15148  M01S02885.274l797 +++|*
15149  M01S02886.274l797 +++|*         MACROS CALL, SADT.
15150  M01S02887.274l797 +++|*
15151  M01S02888.274l797 +++|*         NOTE   OVERLAY *RLI* READS CARTRIDGE TAPE FOR LI FORMAT.
15152  M01S02889.274l797 +++|
15153  M01S02890.274l797 +++|
15154  M01S02891.274l797 +++| .RCT     BSS    0
15155  M01S02892.274l797 +++|          LOC    MRDX
15156  M01S02893.274l797 +++| RCT      SUBR               ENTRY/EXIT
15157  M01S02894.274l797 +++| RCT1     LDN    0           CLEAR ERROR CODE
15158  M01S02895.274l797 +++|          STD    EC
15159  M01S02896.274l797 +++|          STD    TB          CLEAR TYPE OF BLOCK
Line S02897 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15160  M02S02897.282l826 ---|          LDC    5005        I FORMAT BLOCK LENGTH + 1
Line S00863 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15161  M01S00863.282l826 +++|          LDC    5005        SET BYTE COUNT FOR I FORMAT READ OR SKIP
Line S02898 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15162  M01S02898.274l797 +++| RCTA     EQU    *-1
Line S02899 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15163  M02S02899.282l826 ---|*         LDC    5001        (SI OR S FORMAT)
15164  M02S02900.282l826 ---|*         LDC    3600        (LONG BLOCK)
15165  M02S02901.282l826 ---|*         LDC    CLBL        (ANSI STANDARD LABELS)
15166  M02S02902.282l826 ---| RCT2     IAM    BUF,CH
Line S00864 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15167  M01S00864.282l826 +++|*         LDC    LBBY        (READ LONG BLOCK FULL CHUNK)
15168  M01S00865.282l826 +++|*         LDC    WC*5+1      (ALL OTHER READ DATA OPERATIONS)
15169  M01S00866.282l826 +++|*         LDC    CLBL+1      (READ LABELS)
15170  M01S00867.282l826 +++|*         LDC    5001        (SKIP - NOT LONG BLOCKS)
15171  M01S00868.282l826 +++|*         LDC    LBBY        (SKIP L FORMAT OR LONG BLOCK F FORMAT)
15172  M01S00869.282l826 +++|*         LDC    SLBY        (SKIP LI FORMAT)
15173  M01S00870.282l826 +++| RCT2     IAM    BUF,CH      INPUT DATA
Line S02903 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15174  M01S02903.274l797 +++| RCTB     EQU    *-1
Line S02904 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15175  M02S02904.282l826 ---|*         IAM    BUFB,CH     LONG BLOCK
15176  M02S02905.282l826 ---|*         IAM    /RLA/BUF,CH (LABEL)
Line S00871 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
15177  M01S00871.282l826 +++|*         IAM    BUFB,CH     (READ LONG BLOCK)
15178  M01S00872.282l826 +++|*         IAM    /RLA/BUF,CH (READ LABEL)
Line S02906 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15179  M01S02906.274l797 +++| RCT3     STD    T1
15180  M01S02907.274l797 +++|          NJN    RCT6        IF NOT EXCESS BLOCK LENGTH
15181  M01S02908.274l797 +++|          LJM    *+2
15182  M01S02909.274l797 +++| RCTC     EQU    *-1
Line S02910 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15183  M02S02910.1mt41   ---|*         LJM    /3M /SLB    (SKIP LONG BLOCKS)
Line S00007 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15184  M01S00007.1mt41   +++|*         LJM    /SKP/SLB    (SKIP LONG BLOCKS AND SKIP LI FORMAT)
Line S02911 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15185  M01S02911.274l797 +++|
15186  M01S02912.274l797 +++|*         THROW AWAY DATA WHEN THE BLOCK IS TOO LONG.  IF THE DATA
15187  M01S02913.274l797 +++|*         IS NOT TAKEN, OVERRUN ERRORS COULD OCCUR.  ALSO, WITH A
15188  M01S02914.274l797 +++|*         CROSS-COUPLED CONTROLLER, THE CONTROLLER HUNG WITH CHLA
15189  M01S02915.274l797 +++|*         030F FLASHING ON ITS ERROR DISPLAY.
15190  M01S02916.274l797 +++|
15191  M01S02917.274l797 +++| RCT4     LDC    500
15192  M01S02918.274l797 +++|          IAM    ERLB,CH
15193  M01S02919.274l797 +++|          ZJN    RCT4        IF THERE MAY BE MORE DATA
15194  M01S02920.274l797 +++|          LDN    /MTX/BTL    SET BLOCK TOO LONG
15195  M01S02921.274l797 +++|          STD    EC
15196  M01S02922.274l797 +++|          LDN    1           SET TO COMPUTE MAXIMUM BYTE COUNT
15197  M01S02923.274l797 +++| RCT5     STD    T1
15198  M01S02924.274l797 +++| RCT6     LDM    RCTA        CALCULATE REMAINDER OF CM WORD COUNT
15199  M01S02925.274l797 +++|          SBD    T1
15200  M01S02926.274l797 +++|          STD    BY          BYTE COUNT READ
15201  M01S02927.274l797 +++|
15202  M01S02928.274l797 +++|*         PROCESS STATUS.
15203  M01S02929.274l797 +++|
15204  M01S02930.274l797 +++|          RJM    /PRESET/WFE WAIT FOR END OF OPERATION
15205  M01S02931.274l797 +++|          PJN    RCT8        IF NOT COMMAND RETRY
Line S02932 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15206  M02S02932.1mt41   ---|          PSN
Line S00008 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15207  M01S00008.1mt41   +++|          LDN    0
Line S02933 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
15208  M01S02933.274l797 +++| RCTD     EQU    *-1
15209  M01S02934.274l797 +++|*         UJN    RCT7        (LONG BLOCK)
Line S02935 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15210  M02S02935.1mt41   ---|          ACN    CH
Line S00009 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
15211  M01S00009.1mt41   +++|          UJN    RCT6.1      SKIP CLEAR OF CHUNK COUNT
15212  M01S00010.1mt41   +++| RCTM     EQU    *-1
Line S00011 Modification History
M01 (Added by) 1mt41
M02 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
15213  M02S00011.1mt48   ---|*         STM    /SKP/SLBC   (SKIP LI FORMAT)
15214  M02S00012.1mt48   ---|          CON    /SKP/SLBC
Line S00001 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
15215  M01S00001.1mt48   +++|*         STM    /SKP/IDFE   (SKIP LI FORMAT)
Proceed to Part 12
cdc/nos2.source/opl.opl871/deck/1mt.011.txt ยท Last modified: (external edit)