User Tools

Site Tools


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

Deck 1MT Part 027

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S14067 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23302  M02S14067.ns21000 ---|          SHN    14
Line S14068 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23303  M02S14068.ns21000 ---|          ADD    PB
Line S14069 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23304  M02S14069.ns21000 ---|          ZJN    SKP5        IF END OF SKIP
Line S14070 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23305  M02S14070.ns21000 ---|          SBN    1           DECREMENT SKIP COUNT
Line S14071 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23306  M02S14071.ns21000 ---|          STD    PB
Line S14072 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23307  M02S14072.ns21000 ---|          SHN    -14
Line S14073 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23308  M02S14073.ns21000 ---|          STD    PA
23309  M01S00183.ns21000 +++| SKP4     PSN
23310  M01S00184.ns21000 +++|          PSN
Line S00185 Modification History
M01 (Added by) ns21000
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23311  M02S00185.274l797 ---|*         RJM    SLL         (S,L FORMAT  LABELED TAPE)
23312  M01S05110.274l797 +++|*         RJM    SLL         (S,L FORMAT LABELED TAPE)
23313  M01S14074.1mt     +++| SKP5     LDN    /MTX/BEI    SET TAPE MARK ENCOUNTERED
23314  M01S14075.1mt     +++|          LJM    RET3        RETURN ERROR CODE
23315  M01S14076.1mt     +++|
23316  M01S14077.1mt     +++| SKP6     AOD    BT          INCREMENT BLOCKS TRANSFERRED
23317  M01S14078.1mt     +++|          AOD    CN+4        INCREMENT BLOCKS SKIPPED
23318  M01S14079.1mt     +++|          RJM    UAD
23319  M01S14080.1mt     +++|          ADN    /MTX/UBLC
23320  M01S14081.1mt     +++|          CWD    CN
23321  M01S14082.1mt     +++|          LDD    T7
23322  M01S14083.1mt     +++|          NJN    SKP7        IF NOT TERMINATION CONDITION
23323  M01S14084.1mt     +++|          LDD    PA
23324  M01S14085.1mt     +++|          SHN    14
23325  M01S14086.1mt     +++|          ADD    PB
23326  M01S14087.1mt     +++|          ZJN    SKP10       IF END OF SKIP
23327  M01S14088.1mt     +++|          SBN    1
23328  M01S14089.1mt     +++|          ZJN    SKP10       IF END OF SKIP
23329  M01S14090.1mt     +++|          STD    PB
23330  M01S14091.1mt     +++|          SHN    -14
23331  M01S14092.1mt     +++|          STD    PA
23332  M01S14093.1mt     +++| SKP7     LDD    CN+4
23333  M01S14094.1mt     +++|          ADC    -SBLK
23334  M01S14095.1mt     +++|          MJN    SKP8        IF NOT TIME TO CHECK ERROR FLAG
23335  M01S14096.1mt     +++|          LDD    TH
23336  M01S14097.1mt     +++|          RAD    PA
23337  M01S14098.1mt     +++|          UJN    SKP11       RETURN STATUS TO *MAGNET*
23338  M01S14099.1mt     +++|
23339  M01S14100.1mt     +++| SKP8     LDD    DF          CHECK DROP OUT FLAG
23340  M01S14101.1mt     +++|          NJN    SKP9        IF DROP OUT SET
23341  M01S14102.1mt     +++|          LJM    SKP1        READ TAPE
23342  M01S14103.1mt     +++|
23343  M01S14104.1mt     +++| SKP9     LJM    RET2        REQUEUE
23344  M01S14105.1mt     +++|
23345  M01S14106.1mt     +++| SKP10    LDM    LNUM        SET OPERATION COMPLETE
23346  M01S14107.1mt     +++|          SHN    2
23347  M01S14108.1mt     +++|          STD    PA
23348  M01S14109.1mt     +++| SKPD     LDD    T2          SET EOR/EOF STATUS
23349  M01S14110.1mt     +++|*         LDN    0           (PRU SKIP)
23350  M01S14111.1mt     +++|          LPN    10
23351  M01S14112.1mt     +++| SKPE     ADN    20
23352  M01S14113.1mt     +++|*         PSN                (READSKP OR PRU SKIP)
23353  M01S14114.1mt     +++|          ADM    CIOE        MERGE IN CIO CODE
23354  M01S14115.1mt     +++|          LPC    774
23355  M01S14116.1mt     +++|          STD    PB
Line S14117 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23356  M02S14117.282l826 ---|          LDC    2000        SET EOR/EOF FLAG
Line S14118 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23357  M02S14118.282l826 ---|          RAD    HP
23358  M01S01271.282l826 +++|          LDN    10          SET EOR/EOF FLAG
23359  M01S01272.282l826 +++|          RAD    UP
23360  M01S14119.1mt     +++| SKP11    LJM    RET1        RETURN
23361  M01S14120.1mt     +++|
Line S00186 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23362  M02S00186.v23l617 ---|          BSS    5
Line S00364 Modification History
M01 (Added by) v23l617
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23363  M02S00364.282l826 ---|          BSS    5
23364  M01S01273.282l826 +++|          BSS    6
23365  M01S14121.1mt     +++| .OSKRL   EQU    *
Line S14122 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23366  M02S14122.274l797 ---|          SPACE  4,10
23367  M01S05111.274l797 +++| DBF      SPACE  4,10
23368  M01S14123.1mt     +++|**        DBF - DETERMINE BLOCK TYPE FORWARD.
23369  M01S14124.1mt     +++|*
23370  M01S14125.1mt     +++|*         EXIT   (A) = (T7) = 0, IF TERMINATION MET.
23371  M01S14126.1mt     +++|*                (T2) = TERMINATION STATUS.
23372  M01S14127.1mt     +++|*
Line S14128 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23373  M02S14128.274l797 ---|*         CALLS  IDF, *REM*, UBW, VDA.
Line S05112 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23374  M02S05112.1mt48   ---|*         USES   T1.
23375  M01S00062.1mt48   +++|*         USES   BL, BL+1, T1, T2, T7.
23376  M01S05113.274l797 +++|*
23377  M01S05114.274l797 +++|*         CALLS  *CRE*, IDF, *REM*, UBW, VDA.
23378  M01S14129.1mt     +++|*
23379  M01S14130.1mt     +++|*         MACROS CALL.
23380  M01S14131.1mt     +++|
23381  M01S14132.1mt     +++|
23382  M01S14133.1mt     +++| DBF      SUBR               ENTRY/EXIT
23383  M01S14134.1mt     +++|          LDM    BUF-1,BY    SAVE LEVEL NUMBER
Line S14135 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23384  M02S14135.274l797 ---|          STM    IDFB
Line S14136 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23385  M02S14136.274l797 ---| DBFA     RJM    VDA         VALIDATE DATA I FORMAT
23386  M01S05115.274l797 +++| DBFA     EQU    *-2
23387  M01S05116.274l797 +++|*         LDM    BUFB+4      (LI FORMAT)
23388  M01S05117.274l797 +++|          STM    IDFC
23389  M01S05118.274l797 +++| DBFB     RJM    VDA         VALIDATE DATA I FORMAT
23390  M01S14137.1mt     +++|*         PSN                ALL OTHER FORMATS
23391  M01S14138.1mt     +++|*         PSN
23392  M01S14139.1mt     +++|          LDD    EP
23393  M01S14140.1mt     +++|          LPN    77
23394  M01S14141.1mt     +++|          SHN    14
23395  M01S14142.1mt     +++|          LMD    EC
23396  M01S14143.1mt     +++|          ZJN    DBF5        IF NO ERROR
23397  M01S14144.1mt     +++|          LMN    /MTX/BEI
23398  M01S14145.1mt     +++|          NJN    DBF2        IF NOT TAPE MARK
23399  M01S14146.1mt     +++|          LDN    1           SET TAPE MARK INDICATION
23400  M01S14147.1mt     +++| DBF1     STM    UBWB
23401  M01S05119.274l797 +++| DBFC     EQU    *-2
23402  M01S05120.274l797 +++|*         UJN    DBF5        (CTS)
23403  M01S14148.1mt     +++|          RJM    UBW         UPDATE BID WINDOW
23404  M01S14149.1mt     +++|          UJN    DBF5        SKIP ERROR PROCESSOR CALL
23405  M01S14150.1mt     +++|
23406  M01S14151.1mt     +++| DBF2     LMN    /MTX/STE&/MTX/BEI
23407  M01S14152.1mt     +++|          NJN    DBF3        IF NOT STATUS ERROR
Line S14153 Modification History
M01 (Added by) 1mt
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
23408  M02S14153.241l630 ---| DBFB     LDN    0
Line S14154 Modification History
M01 (Added by) 1mt
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
23409  M02S14154.241l630 ---|*         LDN    1           (PO=N OR MTX/ATS SKIPEI OR POSMF)
Line S14155 Modification History
M01 (Added by) 1mt
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
23410  M02S14155.241l630 ---|          ZJN    DBF3        IF PROCESS ERRORS
Line S14156 Modification History
M01 (Added by) 1mt
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
23411  M02S14156.241l630 ---|          LDN    4           SET UNUSEABLE BID
Line S14157 Modification History
M01 (Added by) 1mt
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
23412  M02S14157.241l630 ---|          UJN    DBF1        UPDATE BID WINDOW
Line S00001 Modification History
M01 (Added by) 241l630
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23413  M02S00001.274l797 ---| DBFB     UJN    DBF3        PROCESS ERRORS
23414  M01S05121.274l797 +++| DBFD     UJN    DBF3        PROCESS ERRORS
23415  M01S00002.241l630 +++|*         LDN    4           (PO=N OR MTX/ATS SKIPEI OR POSMF)
23416  M01S00003.241l630 +++|          UJN    DBF1        SET UNUSABLE BID
23417  M01S14158.1mt     +++|
23418  M01S14159.1mt     +++| DBF3     UJN    DBF4        LOAD READ ERROR PROCESSOR
Line S14160 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23419  M02S14160.274l797 ---| DBFC     EQU    *-1
23420  M01S05122.274l797 +++| DBFE     EQU    *-1
23421  M01S14161.1mt     +++|*         AOD    BL+1        INCREMENT BLOCK COUNT (SKIP BACK)
23422  M01S14162.1mt     +++|          SHN    -14
23423  M01S14163.1mt     +++|          RAD    BL
23424  M01S05123.274l797 +++| DBFF     BSS    0
23425  M01S05124.274l797 +++|*         CALL   CRE         LOAD ERROR PROCESSOR (CTS)
23426  M01S14164.1mt     +++| DBF4     CALL   REM         LOAD READ ERROR PROCESSOR
23427  M01S14165.1mt     +++|          UJN    DBF5        FORWARD SKIP
23428  M01S14166.1mt     +++|*         SOD    BL+1        (REVERSE SKIP - DECREMENT BLOCK COUNT)
Line S14167 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23429  M02S14167.274l797 ---| DBFD     EQU    *-1
23430  M01S05125.274l797 +++| DBFG     EQU    *-1
23431  M01S14168.1mt     +++|          PJN    DBF5        IF NO UNDERFLOW
23432  M01S14169.1mt     +++|          AOD    BL+1
23433  M01S14170.1mt     +++|          SOD    BL
23434  M01S14171.1mt     +++| DBF5     RJM    IDF         PROCESS INTERNAL DATA FORMAT
23435  M01S14172.1mt     +++|          STD    T2          SAVE STATUS
23436  M01S14173.1mt     +++|          LDD    MD
Line S14174 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23437  M02S14174.274l797 ---| DBFE     LPN    10          (S, L, F FORMAT)
Line S14175 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23438  M02S14175.274l797 ---|*         LPN    14          (I, SI FORMAT)
23439  M01S05126.274l797 +++| DBFH     LPN    10          (S, L, F FORMAT)
23440  M01S05127.274l797 +++|*         LPN    14          (I, SI, LI FORMAT)
23441  M01S14176.1mt     +++|          ZJN    DBF6        IF PRU OPERATION
23442  M01S14177.1mt     +++|          STD    T1
23443  M01S14178.1mt     +++|          LDD    T2          DETERMINE IF TERMINATION MET
23444  M01S14179.1mt     +++|          SBD    T1
23445  M01S14180.1mt     +++|          MJN    DBF6        IF TERMINATION NOT MET
23446  M01S14181.1mt     +++|          LDD    T1
23447  M01S14182.1mt     +++|          LMN    4
23448  M01S14183.1mt     +++|          NJN    DBF6        IF NOT EOR
23449  M01S14184.1mt     +++|          LDM    LNUM
Line S14185 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23450  M02S14185.274l797 ---| DBFF     SBN    0           LEVEL NUMBER
23451  M01S05128.274l797 +++| DBFI     SBN    0           LEVEL NUMBER
23452  M01S14186.1mt     +++| DBF6     SHN    -21         SET TERMINATION FLAG
23453  M01S14187.1mt     +++|          STD    T7
23454  M01S14188.1mt     +++|          LJM    DBFX        RETURN
23455  M01S14189.1mt     +++| DBR      SPACE  4,10
23456  M01S00365.v23l617 +++|
Line S00366 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23457  M02S00366.274l797 ---|*         THE FOLLOWING CODE GETS OVERLAID IF GCR
Line S00367 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23458  M02S00367.274l797 ---|*         SKIP REVERSE ON ISMT CONTROLLER.
23459  M01S05129.274l797 +++|*         THE FOLLOWING CODE GETS OVERLAID IF NOT USING READ REVERSE.
23460  M01S05130.274l797 +++|*         ISMT GCR, CTS, AND LI FORMAT DO NOT USE READ REVERSE.
23461  M01S00368.v23l617 +++|
23462  M01S00369.v23l617 +++| .DBRR    EQU    *
23463  M01S00370.v23l617 +++|
23464  M01S14190.1mt     +++|**        DBR - DETERMINE BLOCK TYPE REVERSE.
23465  M01S05131.274l797 +++|*
23466  M01S05132.274l797 +++|*         USES   CM - CM+4.
23467  M01S14191.1mt     +++|*
23468  M01S14192.1mt     +++|*         CALLS  DBF.
23469  M01S14193.1mt     +++|
23470  M01S14194.1mt     +++|
23471  M01S14195.1mt     +++| DBR2     RJM    DBF         DETERMINE BLOCK TYPE FORWARD
23472  M01S14196.1mt     +++|
23473  M01S14197.1mt     +++| DBR      SUBR               ENTRY/EXIT
Line S14198 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23474  M02S14198.282l826 ---| DBRA     UJN    DBR2        DO NOT SET LEVEL NUMBER IF NOT I/SI
Line S14199 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23475  M02S14199.282l826 ---|*         LDD    BY          (I/SI FORMAT)
23476  M01S01274.282l826 +++| DBRA     UJN    DBR2        DETERMINE BLOCK TYPE
23477  M01S01275.282l826 +++|*         LDD    BY          (USING READ REVERSE)
23478  M01S14200.1mt     +++|          ZJN    DBR2        IF NO DATA READ
23479  M01S14201.1mt     +++|
23480  M01S14202.1mt     +++|*         THE FOLLOWING CODE GETS OVERLAID IF 9 TRACK SI
23481  M01S14203.1mt     +++|*         FORMAT SKIP REVERSE OPERATION OR IF MTS 9 TRACK, I
23482  M01S14204.1mt     +++|*         FORMAT SKIP REVERSE.
23483  M01S14205.1mt     +++|
23484  M01S14206.1mt     +++| .DBRO    EQU    *           BEGINNING OF OVERLAID AREA
23485  M01S14207.1mt     +++|
23486  M01S14208.1mt     +++|          LDC    BUF
23487  M01S14209.1mt     +++|          STM    DBRC
23488  M01S14210.1mt     +++|          LDD    WC
23489  M01S14211.1mt     +++|          LPN    1
23490  M01S14212.1mt     +++| DBRB     UJN    DBR1        DO NOT SKIP FIRST BYTE
23491  M01S14213.1mt     +++|*         ZJN    DBR1        (9 TRACK I FORMAT - IF EVEN WORD COUNT)
23492  M01S14214.1mt     +++|          AOM    DBRC        SKIP FIRST BYTE (I FORMAT)
23493  M01S14215.1mt     +++| DBR1     LDD    MA          SAVE FIRST FOUR BYTES
23494  M01S14216.1mt     +++|          CWM    BUF,ON
23495  M01S14217.1mt     +++| DBRC     EQU    *-1
23496  M01S14218.1mt     +++|          SBN    1
23497  M01S14219.1mt     +++|          CRD    CM
23498  M01S14220.1mt     +++|          LDD    CM          STORE LAST FOUR BYTES
23499  M01S14221.1mt     +++|          STM    BUF-1,BY
23500  M01S14222.1mt     +++|          LDD    CM+1
23501  M01S14223.1mt     +++|          STM    BUF-2,BY
23502  M01S14224.1mt     +++|          LDD    CM+2
23503  M01S14225.1mt     +++|          STM    BUF-3,BY
23504  M01S14226.1mt     +++|          LDD    CM+3
23505  M01S14227.1mt     +++|          STM    BUF-4,BY
23506  M01S14228.1mt     +++|          LJM    DBR2        DETERMINE BLOCK TYPE FORWARD
23507  M01S14229.1mt     +++|
23508  M01S14230.1mt     +++| .DBROL   EQU    *-.DBRO     LENGTH OF OVERLAID AREA
Line S00371 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23509  M02S00371.274l797 ---| .DBRRL   EQU    *-.DBRR     LENGTH OF OVERLAID AREA (GCR ISMT)
23510  M01S05133.274l797 +++| .DBRRL   EQU    *-.DBRR     LENGTH OF OVERLAID AREA
23511  M01S14231.1mt     +++| IDF      SPACE  4,10
23512  M01S14232.1mt     +++|**        IDF - PROCESS INTERNAL DATA FORMAT.
23513  M01S14233.1mt     +++|*
23514  M01S14234.1mt     +++|*         EXIT   (A) = TERMINATION STATUS.
23515  M01S05134.274l797 +++|*
23516  M01S05135.274l797 +++|*         CALLS  CFP.
23517  M01S14235.1mt     +++|
23518  M01S14236.1mt     +++|
23519  M01S14237.1mt     +++| IDF2     LDN    17          SET LEVEL 17
23520  M01S14238.1mt     +++|          STM    LNUM
23521  M01S14239.1mt     +++|          LDN    14          RETURN EOI
23522  M01S14240.1mt     +++|
23523  M01S14241.1mt     +++| IDF      SUBR               ENTRY/EXIT
23524  M01S14242.1mt     +++|          LDD    EC
23525  M01S14243.1mt     +++|          LMN    /MTX/BEI
23526  M01S14244.1mt     +++|          ZJN    IDF2        IF TAPE MARK
23527  M01S14245.1mt     +++|          LDD    BY
23528  M01S00063.1mt48   +++|          ADC    0
23529  M01S00064.1mt48   +++| IDFE     EQU    *-1         (LI FORMAT CHUNK COUNT)
23530  M01S14246.1mt     +++|          ZJN    IDF2        IF NO BYTES READ
23531  M01S14247.1mt     +++|          LMM    /READ/MRDA
23532  M01S05136.274l797 +++| IDFA     EQU    *-1
23533  M01S05137.274l797 +++|*         RJM    CFP         (LI FORMAT)
23534  M01S05138.274l797 +++|*         LMM    /READ/RCTA  (CTS)
23535  M01S14248.1mt     +++|          LMN    1
23536  M01S14249.1mt     +++|          STM    LNUM        SET 0 LEVEL NUMBER
Line S14250 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23537  M02S14250.274l797 ---| IDFA     ZJN    IDFX        IF FULL PRU
Line S14251 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23538  M02S14251.274l797 ---|*         PSN                (NOT I/SI FORMAT)
23539  M01S05139.274l797 +++| IDFB     ZJN    IDFX        IF FULL PRU
23540  M01S05140.274l797 +++|*         PSN                (NOT I/SI/LI FORMAT)
23541  M01S14252.1mt     +++|          LDC    *           EXTRACT LEVEL NUMBER
Line S14253 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23542  M02S14253.274l797 ---| IDFB     EQU    *-1
23543  M01S05141.274l797 +++| IDFC     EQU    *-1
23544  M01S14254.1mt     +++|          LPN    77
Line S14255 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23545  M02S14255.274l797 ---| IDFC     LDN    0           (NOT I/SI FORMAT)
Line S14256 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23546  M02S14256.274l797 ---|*         PSN                (I/SI FORMAT)
23547  M01S05142.274l797 +++| IDFD     LDN    0           (NOT I/SI/LI FORMAT)
23548  M01S05143.274l797 +++|*         PSN                (I/SI/LI FORMAT)
23549  M01S14257.1mt     +++|          STM    LNUM
23550  M01S14258.1mt     +++|          LMN    17
23551  M01S14259.1mt     +++|          ZJN    IDF1        IF EOF
23552  M01S14260.1mt     +++|          LCN    4
23553  M01S14261.1mt     +++| IDF1     ADN    10
23554  M01S14262.1mt     +++|          UJN    IDFX        RETURN
23555  M01S14263.1mt     +++| VDA      SPACE  4,10
23556  M01S14264.1mt     +++|**        VDA - VALIDATE DATA.
Line S14265 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23557  M02S14265.274l797 ---|*         CHECKS I FORMAT TRAILER BYTES.
23558  M01S05144.274l797 +++|*         CHECKS I FORMAT TRAILER BYTES OR LI FORMAT PREFIX BYTES.
23559  M01S05145.274l797 +++|*         IF LI FORMAT, *VDA* IS OVERLAYED WITH *VLI*.
23560  M01S14266.1mt     +++|
23561  M01S14267.1mt     +++|
23562  M01S14268.1mt     +++| VDA      SUBR               ENTRY/EXIT
23563  M01S14269.1mt     +++|          LDD    BY
23564  M01S14270.1mt     +++|          ZJN    VDAX        IF NO DATA READ
23565  M01S14271.1mt     +++|          LDD    EC
23566  M01S14272.1mt     +++|          ZJN    VDA1        IF NO PREVIOUS ERRORS ENCOUNTERED
23567  M01S14273.1mt     +++|          LMN    /MTX/STE
23568  M01S14274.1mt     +++|          NJN    VDAX        IF NOT STATUS ERROR CODE
23569  M01S05146.274l797 +++| VDAA     EQU    *-1
23570  M01S05147.274l797 +++|*         UJN    VDAX        (CTS)
23571  M01S05148.274l797 +++|          LDM    MTDS
23572  M01S05149.274l797 +++|          LPC    7777
23573  M01S05150.274l797 +++| VDAB     EQU    *-1
Line S14275 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23574  M02S14275.274l797 ---|          LDM    MTDS
Line S14276 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23575  M02S14276.274l797 ---|          LPC    7777
Line S14277 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23576  M02S14277.274l797 ---| VDAA     EQU    *-1
23577  M01S14278.1mt     +++|*         LPC    7077        (MTS UNIT)
23578  M01S14279.1mt     +++|          NJN    VDAX        IF ERRORS REPORTED FROM HARDWARE
23579  M01S14280.1mt     +++| VDA1     LDD    EP
23580  M01S14281.1mt     +++|          SHN    21-12
23581  M01S14282.1mt     +++|          MJN    VDAX        IF OPPOSITE PARITY BEING TRIED
23582  M01S14283.1mt     +++|          LDM    BUF-4,BY    SAVE BLOCK LENGTH
23583  M01S14284.1mt     +++|          STM    //BNEI
23584  M01S14285.1mt     +++|          LDM    BUF-3,BY
23585  M01S14286.1mt     +++|          STM    //BNEI+1
23586  M01S14287.1mt     +++|          LMD    BL
23587  M01S14288.1mt     +++|          SHN    14
23588  M01S14289.1mt     +++|          LMM    BUF-2,BY
23589  M01S14290.1mt     +++|          STM    //BNEI+2
23590  M01S14291.1mt     +++|          LMD    BL+1
Line S14292 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23591  M02S14292.274l797 ---|          NJN    VDA2        IF BLOCK NUMBER ERROR
Line S14293 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23592  M02S14293.274l797 ---|          LDM    //BNEI
Line S14294 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23593  M02S14294.274l797 ---|          LMD    BY
Line S14295 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23594  M02S14295.274l797 ---|          ZJN    VDA3        IF CORRECT BLOCK LENGTH
Line S14296 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23595  M02S14296.274l797 ---| VDA2     LDN    /MTX/BNE
23596  M01S05151.274l797 +++|          ZJN    VDA2        IF BLOCK NUMBER CORRECT
23597  M01S05152.274l797 +++|          LDN    /MTX/BNE
23598  M01S14297.1mt     +++|          STD    EC
Line S14298 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23599  M02S14298.274l797 ---| VDA3     LJM    VDAX        RETURN
23600  M01S05153.274l797 +++| VDA2     LJM    VDAX        RETURN
23601  M01S14299.1mt     +++|          SPACE  4,10
23602  M01S14300.1mt     +++|          BUFFER
Line S14301 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23603  M02S14301.274l797 ---|          TITLE  SKIP LONG BLOCKS.
Line S05154 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23604  M02S05154.1mt48   ---|          BSS    6           SO *VLI* DOES NOT OVERFLOW
23605  M01S00065.1mt48   +++|          BSS    7           SO *VLI* DOES NOT OVERFLOW
23606  M01S05155.274l797 +++| VDAL     EQU    *-VDAX      LENGTH OF *VDA*
23607  M01S05156.274l797 +++| CFP      SPACE  4,10
23608  M01S05157.274l797 +++|**        CFP - CHECK FULL PRU FOR LI FORMAT.
23609  M01S05158.274l797 +++|*
Line S05159 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23610  M02S05159.1mt48   ---|*         ENTRY  (SLBC) = NUMBER OF FULL 2400-BYTE CHUNKS READ.
23611  M01S00066.1mt48   +++|*         ENTRY  (BUFB - BUFB+4) = LI FORMAT BLOCK PREFIX.
23612  M01S05160.274l797 +++|*
23613  M01S05161.274l797 +++|*         EXIT   (A) = 1 IF FULL PRU.
23614  M01S05162.274l797 +++|
23615  M01S05163.274l797 +++|
23616  M01S05164.274l797 +++| CFP      SUBR               ENTRY/EXIT
Line S05165 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23617  M02S05165.1mt48   ---|          LDM    SLBC
Line S05166 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23618  M02S05166.1mt48   ---|          SBN    20
Line S05167 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23619  M02S05167.1mt48   ---|          NJN    CFPX        IF NOT FULL PRU
Line S05168 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23620  M02S05168.1mt48   ---|          LDD    BY
Line S05169 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23621  M02S05169.1mt48   ---|          ADC    -2376
23622  M01S00067.1mt48   +++|          LDM    BUFB        GET BYTE COUNT
23623  M01S00068.1mt48   +++|          SHN    14
23624  M01S00069.1mt48   +++|          ADM    BUFB+1
23625  M01S00070.1mt48   +++|          ADC    -50005+1    CHECK FULL PRU
23626  M01S05170.274l797 +++|          UJN    CFPX        RETURN
23627  M01S14302.1mt     +++| SLB      SPACE  4,10
23628  M01S14303.1mt     +++|**        SLB - SKIP LONG BLOCK.
23629  M01S05171.274l797 +++|*         THIS CODE IS OVERLAYED WITH *SLI* FOR LI FORMAT.
23630  M01S05172.274l797 +++|*
23631  M01S05173.274l797 +++|*         ENTRY  AT *SLB* FROM *MRD* OR *RCT* WHEN *LBBY* BYTES HAVE
23632  M01S05174.274l797 +++|*                BEEN READ.
23633  M01S05175.274l797 +++|*
23634  M01S05176.274l797 +++|*         USES   T2.
23635  M01S14304.1mt     +++|
23636  M01S14305.1mt     +++|
Line S14306 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23637  M02S14306.274l797 ---| SLB      LDN    2           INPUT 2 BYTES
23638  M01S05177.274l797 +++| SLB      PSN                MAKE ROUTINE AS LONG AS *SLI*
23639  M01S05178.274l797 +++|          LDN    2           INPUT 2 BYTES
23640  M01S14307.1mt     +++|          IAM    BUFB,CH
23641  M01S14308.1mt     +++|          LCN    0
23642  M01S14309.1mt     +++|          STD    T2
23643  M01S14310.1mt     +++| SLB1     LDC    400         INPUT DATA
23644  M01S14311.1mt     +++|          IAM    BUFB,CH
Line S14312 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23645  M02S14312.274l797 ---|          NJN    SLB2        IF END OF BLOCK
23646  M01S05179.274l797 +++|          NJN    SLB3        IF END OF BLOCK
23647  M01S14313.1mt     +++|          SOD    T2
23648  M01S14314.1mt     +++|          NJN    SLB1        IF NOT BLOCK TOO LONG
Line S14315 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23649  M02S14315.274l797 ---|          LDN    /MTX/BTL    BLOCK TOO LARGE
Line S14316 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23650  M02S14316.274l797 ---|          LJM    /READ/MRD5  MASTER CLEAR CHANNEL
23651  M01S05180.274l797 +++| SLBL     EQU    *-SLB       LENGTH OF CODE THAT CAN BE OVERLAYED
23652  M01S05181.274l797 +++| SLB2     LJM    /READ/MRD4.1  SET BLOCK TOO LARGE
23653  M01S05182.274l797 +++| SLBA     EQU    *-1
23654  M01S05183.274l797 +++|*         LJM    /READ/RCT4  (CTS)
23655  M01S14317.1mt     +++|
Line S14318 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23656  M02S14318.274l797 ---| SLB2     STD    T1
Line S14319 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23657  M02S14319.274l797 ---|          LJM    /READ/MRD6  CALCULATE REMAINDER OF CM WORD COUNT
23658  M01S05184.274l797 +++| SLB3     LJM    /READ/MRD4  CALCULATE REMAINDER OF CM WORD COUNT
23659  M01S05185.274l797 +++| SLBB     EQU    *-1
23660  M01S05186.274l797 +++|*         LJM    /READ/RCT5  (CTS)
Line S05187 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23661  M02S05187.1mt48   ---|
Line S05188 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23662  M02S05188.1mt48   ---|
Line S05189 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23663  M02S05189.1mt48   ---| SLBC     DATA   0           CHUNK COUNT FOR LI FORMAT
23664  M01S14320.1mt     +++|          SPACE  4,10
23665  M01S14321.1mt     +++|          BUFFER BUFB
23666  M01S14322.1mt     +++| SKR      SPACE  4,10
23667  M01S14323.1mt     +++|**        SKR - SKIP REVERSE.
23668  M01S05190.274l797 +++|*         THE FOLLOWING CODE OVERLAYS *SKP* IF THE OPERATION IS
23669  M01S05191.274l797 +++|*         SKIP REVERSE.
23670  M01S14324.1mt     +++|*
Line S14325 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23671  M02S14325.274l797 ---|*         THE FOLLOWING CODE GETS MOVED TO .OSKR
Line S14326 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23672  M02S14326.274l797 ---|*         IF THE OPERATION IS SKIP REVERSE.
23673  M01S05192.274l797 +++|*         EXIT   TO *RET1* IF NORMAL COMPLETION.
23674  M01S05193.274l797 +++|*                TO *RET2* TO REQUEUE.
23675  M01S14327.1mt     +++|*
Line S14328 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23676  M02S14328.274l797 ---|*         CALLS DBR, UAD.
23677  M01S05194.274l797 +++|*         CALLS  BKS, DBF, DBR, /READ/RDF, UAD.
23678  M01S14329.1mt     +++|
23679  M01S14330.1mt     +++|
23680  M01S14331.1mt     +++| .BSKR    BSS    0
23681  M01S14332.1mt     +++|          LOC    .OSKR
Line S14333 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23682  M02S14333.274l797 ---|
Line S14334 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23683  M03S14334.274l797 ---| SKR      LDD    BL
Line S14335 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23684  M03S14335.274l797 ---|          ADD    BL+1
Line S14336 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23685  M03S14336.274l797 ---|          NJN    SKR3        IF NOT BOI
Line S14337 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23686  M03S14337.274l797 ---|          LDD    MD
Line S14338 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23687  M03S14338.274l797 ---|          SHN    21-11
Line S14339 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23688  M03S14339.274l797 ---|          PJN    SKR1        IF FIRST PASS
Line S14340 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23689  M03S14340.274l797 ---|          LDD    PA
Line S14341 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23690  M03S14341.274l797 ---|          SHN    14
Line S14342 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23691  M03S14342.274l797 ---|          ADD    PB
Line S14343 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23692  M03S14343.274l797 ---|          LMN    1
Line S14344 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23693  M03S14344.274l797 ---|          ZJN    SKR2        IF END OF SKIP
Line S14345 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23694  M03S14345.274l797 ---| SKR1     LDN    50
Line S14346 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23695  M03S14346.274l797 ---| SKR2     ADN    1
Line S14347 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23696  M03S14347.274l797 ---|          STD    PB
Line S14348 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23697  M03S14348.274l797 ---|          LDN    0
Line S14349 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23698  M03S14349.274l797 ---|          STD    PA
Line S14350 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23699  M03S14350.274l797 ---|          LJM    RET1        RETURN
Line S14351 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23700  M03S14351.274l797 ---|
Line S14352 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) ns2678
M04 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23701  M04S14352.274l797 ---| SKR3     LJM    /READ/RDF   READ TAPE
Line S00372 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23702  M03S00372.274l797 ---| SKR3     PSN
Line S00373 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23703  M03S00373.274l797 ---|          PSN
Line S00374 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23704  M03S00374.274l797 ---|*         RJM    BKS         (GCR ISMT)
Line S00375 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23705  M03S00375.274l797 ---|          LJM    /READ/RDF   READ TAPE
Line S00376 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23706  M03S00376.274l797 ---|
Line S14353 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23707  M03S14353.274l797 ---|
Line S00001 Modification History
M01 (Added by) ns2678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23708  M02S00001.274l797 ---|*         ENTER HERE FROM *RDF* CALL IN *SKR3*.
Line S00002 Modification History
M01 (Added by) ns2678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23709  M02S00002.274l797 ---|
Line S14354 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23710  M02S14354.274l797 ---| SKR4     UJN    SKR5        NOT SI FORMAT, 9 TRACK
23711  M01S05195.274l797 +++| SKR4     UJN    SKR5        NOT SI FORMAT, 9/18 TRACK
23712  M01S14355.1mt     +++| SKRA     EQU    *-1
Line S14356 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23713  M02S14356.274l797 ---|*         LDD    ES          (9 TRACK SI FORMAT)
23714  M01S05196.274l797 +++|*         LDD    ES          (9/18 TRACK SI FORMAT)
23715  M01S14357.1mt     +++|          LPN    40
23716  M01S14358.1mt     +++|          ZJN    SKR5        IF NO FILL STATUS
23717  M01S14359.1mt     +++|          SOD    BY          ADJUST BYTE COUNT
23718  M01S14360.1mt     +++|          SOD    WC          ADJUST WORD COUNT
23719  M01S14361.1mt     +++| SKR5     SOD    BL+1        DECREMENT BLOCK COUNT
23720  M01S14362.1mt     +++|          PJN    SKR6        IF NO UNDERFLOW
23721  M01S14363.1mt     +++|          AOD    BL+1
23722  M01S14364.1mt     +++|          SOD    BL
23723  M01S14365.1mt     +++| SKR6     RJM    DBR         DETERMINE BLOCK TYPE REVERSE
23724  M01S00377.v23l617 +++| SKRB     EQU    *-1
Line S00378 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23725  M02S00378.274l797 ---|*         RJM    DBF         (GCR ISMT)
23726  M01S05197.274l797 +++|*         RJM    DBF         (GCR ISMT OR CTS)
23727  M01S00379.v23l617 +++| SKRC     PSN
23728  M01S00380.v23l617 +++|          PSN
Line S00381 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23729  M02S00381.274l797 ---|*         RJM    BKS         (GCR ISMT)
23730  M01S05198.274l797 +++|*         RJM    BKS         (GCR ISMT OR CTS)
23731  M01S14366.1mt     +++|          LDD    MD
23732  M01S14367.1mt     +++|          SHN    21-11
23733  M01S14368.1mt     +++|          MJN    SKR7        IF NOT FIRST PASS
23734  M01S14369.1mt     +++|          LDD    TH          SET NOT FIRST PASS FLAG
23735  M01S14370.1mt     +++|          RAD    MD
23736  M01S14371.1mt     +++|          UJN    SKR8        CHECK FOR DROP OUT
23737  M01S14372.1mt     +++|
23738  M01S14373.1mt     +++| SKR7     AOD    BT          INCREMENT BLOCKS TRANSFERRED
23739  M01S14374.1mt     +++|          AOD    CN+4        INCREMENT BLOCKS SKIPPED
23740  M01S14375.1mt     +++|          RJM    UAD
23741  M01S14376.1mt     +++|          ADN    /MTX/UBLC
23742  M01S14377.1mt     +++|          CWD    CN
23743  M01S14378.1mt     +++|          LDD    T7
23744  M01S14379.1mt     +++|          NJN    SKR8        IF TERMINATION NOT MET
23745  M01S14380.1mt     +++|          LDD    PA          CHECK SKIP TERMINATION
23746  M01S14381.1mt     +++|          SHN    14
23747  M01S14382.1mt     +++|          ADD    PB
Line S14383 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23748  M02S14383.v23l617 ---|          ZJN    SKR10       IF END OF SKIP
23749  M01S14384.1mt     +++|          SBN    1
Line S14385 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23750  M02S14385.ns2678  ---|          ZJN    SKR10       IF END OF SKIP
23751  M01S00003.ns2678  +++|          ZJN    SKR9        IF END OF SKIP
23752  M01S14386.1mt     +++|          STD    PB          UPDATE SKIP COUNT
23753  M01S14387.1mt     +++|          SHN    -14
23754  M01S14388.1mt     +++|          STD    PA
23755  M01S14389.1mt     +++| SKR8     LDD    CN+4
23756  M01S14390.1mt     +++|          ADC    -SBLK
Line S14391 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23757  M02S14391.ns2678  ---|          MJN    SKR9        IF NOT TIME TO CHECK ERROR FLAG
23758  M01S00004.ns2678  +++|          MJN    SKR11       IF NOT TIME TO CHECK ERROR FLAG
23759  M01S14392.1mt     +++|          LDD    TH          SET CHECK ERROR FLAG INDICATOR
23760  M01S14393.1mt     +++|          RAD    PA
Line S14394 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23761  M02S14394.ns2678  ---|          LJM    RET1        RETURN STATUS TO *MAGNET*
23762  M01S00005.ns2678  +++|          LDD    T7
23763  M01S00006.ns2678  +++|          ZJN    SKR2.1      IF TERMINATION MET
23764  M01S00007.ns2678  +++|          AOD    MD          SET NOT END OF RECORD FLAG
23765  M01S00008.ns2678  +++|          UJN    SKR2.1      RETURN STATUS TO *MAGNET*
23766  M01S00009.ns2678  +++|
23767  M01S00010.ns2678  +++| SKR9     LDD    MD          CLEAR REVERSE AND RECORD FLAGS
23768  M01S00011.ns2678  +++|          LPC    3763
23769  M01S00012.ns2678  +++|          STD    MD
23770  M01S00013.ns2678  +++|*         LDN    1           SET TO SKIP FORWARD ONE BLOCK
23771  M01S00014.ns2678  +++|*         STD    PB
23772  M01S00015.ns2678  +++|*         LDN    0
23773  M01S00016.ns2678  +++|*         STD    PA          CLEAR PARAMETER
23774  M01S00017.ns2678  +++| SKR10    LJM    RET2        REQUEUE
23775  M01S14395.1mt     +++|
Line S14396 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23776  M02S14396.ns2678  ---| SKR9     LDD    DF          CHECK DROP OUT FLAG
Line S14397 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23777  M02S14397.ns2678  ---|          NJN    SKR11       IF DROP OUT SET
Line S14398 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23778  M02S14398.ns2678  ---|          LJM    SKR         READ TAPE
Line S14399 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23779  M02S14399.ns2678  ---|
Line S14400 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23780  M03S14400.ns2678  ---| SKR10    STD    PA          CLEAR PARAMETER
Line S14401 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23781  M03S14401.ns2678  ---|          LDD    MD          CLEAR REVERSE AND RECORD FLAGS
Line S00382 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23782  M02S00382.ns2678  ---| SKR10    LDD    MD          CLEAR REVERSE AND RECORD FLAGS
Line S14402 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23783  M02S14402.ns2678  ---|          LPC    3763
Line S14403 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23784  M02S14403.ns2678  ---|          STD    MD
Line S14404 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23785  M03S14404.ns2678  ---|          LDN    1           SET TO SKIP BACK OVER 1 BLOCK
Line S14405 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23786  M03S14405.ns2678  ---|          STD    PB
Line S00383 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23787  M02S00383.ns2678  ---|*         LDN    1           SET TO SKIP BACK OVER 1 BLOCK
Line S00384 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23788  M02S00384.ns2678  ---|*         STD    PB
Line S00385 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23789  M02S00385.ns2678  ---|*         LDN    0
Line S00386 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23790  M02S00386.ns2678  ---|*         STD    PA          CLEAR PARAMETER
Line S14406 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23791  M02S14406.ns2678  ---| SKR11    LJM    RET2        REQUEUE
23792  M01S00018.ns2678  +++| SKR11    LDD    DF          CHECK DROP OUT FLAG
23793  M01S00019.ns2678  +++|          NJN    SKR10       IF DROP OUT SET
23794  M01S00020.ns2678  +++|
Line S00021 Modification History
M01 (Added by) ns2678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23795  M02S00021.274l797 ---| SKR      BSS    0           ENTRY/REENTRY FROM *SKR11*
23796  M01S05199.274l797 +++| SKR      BSS    0           ENTRY
23797  M01S00022.ns2678  +++|          LDD    BL
23798  M01S00023.ns2678  +++|          ADD    BL+1
23799  M01S00024.ns2678  +++|          NJN    SKR3        IF NOT BOI
23800  M01S00025.ns2678  +++|          LDD    MD
23801  M01S00026.ns2678  +++|          SHN    21-11
23802  M01S00027.ns2678  +++|          PJN    SKR1        IF FIRST PASS
23803  M01S00028.ns2678  +++|          LDD    PA
23804  M01S00029.ns2678  +++|          SHN    14
23805  M01S00030.ns2678  +++|          ADD    PB
23806  M01S00031.ns2678  +++|          LMN    1
23807  M01S00032.ns2678  +++|          ZJN    SKR2        IF END OF SKIP
23808  M01S00033.ns2678  +++| SKR1     LDN    50
23809  M01S00034.ns2678  +++| SKR2     ADN    1
23810  M01S00035.ns2678  +++|          STD    PB
23811  M01S00036.ns2678  +++|          LDN    0
23812  M01S00037.ns2678  +++|          STD    PA
23813  M01S00038.ns2678  +++| SKR2.1   LJM    RET1        RETURN
23814  M01S00039.ns2678  +++|
23815  M01S00040.ns2678  +++| SKR3     PSN
23816  M01S00041.ns2678  +++|          PSN
Line S00042 Modification History
M01 (Added by) ns2678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23817  M02S00042.274l797 ---|*         RJM    BKS         (GCR ISMT)
23818  M01S05200.274l797 +++|*         RJM    BKS         (GCR ISMT OR CTS)
Line S00043 Modification History
M01 (Added by) ns2678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23819  M02S00043.274l797 ---|          LJM    /READ/RDF   READ TAPE
23820  M01S05201.274l797 +++|          LDN    0
Line S05202 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23821  M02S05202.1mt48   ---|          STM    SLBC        CHUNKS TRANSFERRED FOR LI FORMAT
23822  M01S00071.1mt48   +++|          STM    IDFE        CHUNKS TRANSFERRED FOR LI FORMAT
23823  M01S05203.274l797 +++|          LJM    /READ/RDF   READ TAPE (RETURN AT *SKR4)
23824  M01S14407.1mt     +++|
23825  M01S14408.1mt     +++|          ERRNG  .OSKRL-*    OVERLAID CODE OVERFLOWED
23826  M01S14409.1mt     +++|
23827  M01S14410.1mt     +++|          LOC    *O
23828  M01S14411.1mt     +++| .BSKRL   EQU    *
23829  M01S14412.1mt     +++| PRS      SPACE  4,10
23830  M01S14413.1mt     +++|**        PRS - PRESET.
Line S14414 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23831  M02S14414.274l797 ---|*
23832  M01S05204.274l797 +++|*         ISMT GCR AND CTS HARDWARE CAN NOT DO READ BACKWARDS.  READ
23833  M01S05205.274l797 +++|*         BACKWARDS MUST BE REPLACED BY BACKSPACE BLOCK, READ FORWARD,
23834  M01S05206.274l797 +++|*         BACKSPACE BLOCK.
23835  M01S05207.274l797 +++|*
Line S14415 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23836  M02S14415.274l797 ---|*         CALLS  MCH, UAD.
23837  M01S05208.274l797 +++|*         EXIT   (/READ/ISKR) = 0 IF USING READ REVERSE FOR SKIP
23838  M01S05209.274l797 +++|*                                 REVERSE.
23839  M01S05210.274l797 +++|*                TO *SKP* IF SKIP FORWARD.
23840  M01S05211.274l797 +++|*                TO *SKR* IF SKIP REVERSE.
23841  M01S05212.274l797 +++|*
23842  M01S05213.274l797 +++|*         USES   T1, T2, CN - CN+4.
23843  M01S05214.274l797 +++|*
23844  M01S05215.274l797 +++|*         CALLS  DTS, MCH, UAD.
23845  M01S14416.1mt     +++|
23846  M01S14417.1mt     +++|
Line S14418 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23847  M02S14418.v23l617 ---| PRS      LDD    FM
Line S00387 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23848  M02S00387.274l797 ---| PRS      LDN    0           CLEAR ISMT GCR FLAG
23849  M01S05216.274l797 +++| PRS      LDN    0           CLEAR READ BACKWARDS FLAG
23850  M01S00388.v23l617 +++|          STM    /READ/ISKR
Line S00389 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23851  M02S00389.274l797 ---|          LDD    FM
23852  M01S05217.274l797 +++|          LDD    HP
23853  M01S05218.274l797 +++|          SHN    21-7
23854  M01S05219.274l797 +++|          PJP    PRS1        IF NOT CTS
23855  M01S05220.274l797 +++|          LDC    LDNI+CRE/10000
23856  M01S05221.274l797 +++|          STM    DBFF        LOAD CTS ERROR PROCESSOR
23857  M01S05222.274l797 +++|          LDC    /READ/RCTA
23858  M01S05223.274l797 +++|          STM    PRSD        ADDRESS OF BYTE COUNT TO INPUT
23859  M01S05224.274l797 +++|          STM    PRSE
23860  M01S05225.274l797 +++|          STM    IDFA
23861  M01S05226.274l797 +++|          LDC    /READ/RCTB
23862  M01S05227.274l797 +++|          STM    PRSF        ADDRESS OF INPUT ADDRESS
23863  M01S05228.274l797 +++|          LDC    /READ/RCTC
23864  M01S05229.274l797 +++|          STM    PRSG
23865  M01S05230.274l797 +++|          ISTORE DBFC,(UJN DBF5)  SKIP UPDATING BLOCK ID WINDOW
23866  M01S05231.274l797 +++|          LDC    UJNI-NJNI
23867  M01S05232.274l797 +++|          RAM    VDAA        SKIP CHECKING ATS STATUS
23868  M01S05233.274l797 +++|          LDC    /READ/RCT4
23869  M01S05234.274l797 +++|          STM    SLBA        SET BLOCK TOO LARGE
23870  M01S05235.274l797 +++|          LDC    /READ/RCT5
23871  M01S05236.274l797 +++|          STM    SLBB        CALCULATE REMAINDER OF CM WORD COUNT
23872  M01S05237.274l797 +++|          LDC    /READ/RCTG
23873  M01S05238.274l797 +++|          STM    PRSA
23874  M01S00015.1mt41   +++|          LDD    FM
23875  M01S01276.282l826 +++|          SHN    -6
23876  M01S00016.1mt41   +++|          LMN    /MTX/TFLI
23877  M01S00017.1mt41   +++|          NJN    PRS1        IF NOT LI FORMAT
23878  M01S00018.1mt41   +++|          LDC    STMI
23879  M01S00019.1mt41   +++|          STM    /READ/RCTM  CLEAR CHUNK COUNTER
23880  M01S05239.274l797 +++| PRS1     LDD    FM
23881  M01S01277.282l826 +++|          SHN    -6
23882  M01S14419.1mt     +++|          LMN    /MTX/TFI
Line S14420 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23883  M02S14420.274l797 ---|          NJN    PRS1        IF NOT I FORMAT
23884  M01S05240.274l797 +++|          NJN    PRS2        IF NOT I FORMAT
23885  M01S14421.1mt     +++|          LDC    UJNI+2      DO NOT PROCESS DATA
23886  M01S14422.1mt     +++|          STM    /READ/MRDH
23887  M01S05241.274l797 +++| PRSA     EQU    *-1
23888  M01S05242.274l797 +++|*         STM    /READ/RCTG  (CTS)
23889  M01S14423.1mt     +++|          LDD    HP
23890  M01S14424.1mt     +++|          LPN    40
Line S14425 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23891  M02S14425.274l797 ---|          ZJN    PRS1        IF NOT MTS UNIT
23892  M01S05243.274l797 +++|          ZJN    PRS2        IF NOT MTS UNIT
23893  M01S14426.1mt     +++|          LDC    7077
Line S14427 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23894  M02S14427.274l797 ---|          STM    VDAA
Line S14428 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23895  M02S14428.274l797 ---| PRS1     LDC    LJMI
23896  M01S05244.274l797 +++|          STM    VDAB
23897  M01S05245.274l797 +++| PRS2     LDC    LJMI
23898  M01S14429.1mt     +++|          STM    /READ/RDFC
23899  M01S14430.1mt     +++|          LDC    SKP2
23900  M01S14431.1mt     +++|          STM    /READ/RDFC+1
23901  M01S14432.1mt     +++|          LDD    PA          INSURE CHECK ERROR FLAG BIT IS CLEAR
23902  M01S14433.1mt     +++|          LPN    77
23903  M01S14434.1mt     +++|          STD    PA
23904  M01S14435.1mt     +++|          LDD    MD
23905  M01S14436.1mt     +++|          SHN    21-13
Line S14437 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23906  M02S14437.274l797 ---|          MJN    PRS4        IF REVERSE MOTION
23907  M01S05246.274l797 +++|          MJN    PRS5        IF REVERSE MOTION
23908  M01S14438.1mt     +++|          LDD    MD          CHECK IF SKIP TO EOI
23909  M01S14439.1mt     +++|          LPN    14
Line S14440 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23910  M02S14440.274l797 ---|          NJN    PRS2        IF NOT PRU SKIP
23911  M01S05247.274l797 +++|          NJN    PRS3        IF NOT PRU SKIP
23912  M01S14441.1mt     +++|          STM    SKPE        DO NOT SET EOR/EOF STATUS
23913  M01S14442.1mt     +++|          LDC    LDNI
23914  M01S14443.1mt     +++|          STM    SKPD
Line S14444 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23915  M02S14444.274l797 ---|          UJN    PRS3        CONTINUE PRESET
23916  M01S05248.274l797 +++|          UJN    PRS4        CONTINUE PRESET
23917  M01S14445.1mt     +++|
Line S14446 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23918  M02S14446.274l797 ---| PRS2     LMN    14
Line S14447 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23919  M02S14447.274l797 ---|          NJN    PRS3        IF NOT SKIPEI
Line S14448 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23920  M02S14448.274l797 ---|          AOM    PRSC        SET SKIPEI OR POSMF IN PROGRESS
Line S14449 Modification History
M01 (Added by) 1mt
M02 (Updated by) 241l630
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23921  M03S14449.274l797 ---|          AOM    DBFB
Line S00004 Modification History
M01 (Added by) 241l630
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23922  M02S00004.274l797 ---|          ISTORE DBFB,(LDN 4)  SET UNUSABLE BID IF ERROR
Line S14450 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23923  M02S14450.274l797 ---| PRS3     LJM    PRS8        CONTINUE PRESET
23924  M01S05249.274l797 +++| PRS3     LMN    14
23925  M01S05250.274l797 +++|          NJN    PRS4        IF NOT SKIPEI
23926  M01S05251.274l797 +++|          AOM    PRSH        SET SKIPEI OR POSMF IN PROGRESS
23927  M01S05252.274l797 +++|          ISTORE DBFD,(LDN 4)  SET UNUSABLE BID IF ERROR
23928  M01S05253.274l797 +++| PRS4     LJM    PRS18       CONTINUE PRESET
23929  M01S14451.1mt     +++|
Line S14452 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23930  M02S14452.274l797 ---| PRS4     LDC    .BSKRL-.BSKR-1
23931  M01S05254.274l797 +++| PRS5     LDC    .BSKRL-.BSKR-1
23932  M01S14453.1mt     +++|          STD    T1
Line S14454 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23933  M02S14454.v23l617 ---| PRS5    LDM    .BSKR,T1
Line S00390 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23934  M02S00390.274l797 ---| PRS5     LDM    .BSKR,T1
23935  M01S05255.274l797 +++| PRS6     LDM    .BSKR,T1    REVERSE MOTION CODE
23936  M01S14455.1mt     +++|          STM    .OSKR,T1
23937  M01S14456.1mt     +++|          SOD    T1
Line S14457 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23938  M02S14457.274l797 ---|          PJN    PRS5        IF MORE CODE TO MOVE
23939  M01S05256.274l797 +++|          PJN    PRS6        IF MORE CODE TO MOVE
Line S14458 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23940  M02S14458.v23l617 ---|          LDC    140
Line S14459 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23941  M02S14459.v23l617 ---|          STM    ITMA
Line S14460 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23942  M02S14460.v23l617 ---|          LDD    HP
23943  M01S00391.v23l617 +++|          LDC    .BKSML-1
23944  M01S00392.v23l617 +++|          STD    T1
23945  M01S00393.v23l617 +++|          LDD    HP
Line S00394 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23946  M02S00394.274l797 ---|          SHN    21-10
Line S00395 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23947  M02S00395.274l797 ---|          MJN    PRS5.0      IF 639 TAPE CONTROLLER
Line S00396 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23948  M02S00396.274l797 ---|          LJM    PRS5.2      PROCESS OTHER CONTROLLER TYPES
23949  M01S05257.274l797 +++|          SHN    21-7
23950  M01S05258.274l797 +++|          PJN    PRS7        IF NOT CTS
23951  M01S05259.274l797 +++|          LDC    /PRESET/GPS
23952  M01S05260.274l797 +++|          STM    BKSA-.DBRR+.BKSM
23953  M01S05261.274l797 +++|          STM    BKSD-.DBRR+.BKSM
23954  M01S05262.274l797 +++|          LDC    MJNI+77+BKS0-BKSB (MJN BKS0)
23955  M01S05263.274l797 +++|          STM    BKSB-.DBRR+.BKSM
23956  M01S05264.274l797 +++|          LDC    UJNI+2
23957  M01S05265.274l797 +++|          STM    BKSC-.DBRR+.BKSM
23958  M01S05266.274l797 +++|          STM    BKSF-.DBRR+.BKSM
23959  M01S05267.274l797 +++|          LDC    MJNI+77+BKS1-BKSE (MJN BKS1)
23960  M01S05268.274l797 +++|          STM    BKSE-.DBRR+.BKSM
23961  M01S05269.274l797 +++|          UJN    PRS9        INDICATE NOT USING SKIP REVERSE
23962  M01S00397.v23l617 +++|
Line S00398 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23963  M02S00398.274l797 ---| PRS5.0   LDM    //RELA
Line S00399 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23964  M02S00399.274l797 ---|          ZJN    PRS5.01     IF UNIT NOT CONNECTED, ASSUME GCR
23965  M01S05270.274l797 +++| PRS7     SHN    21-10-21+7+22
23966  M01S05271.274l797 +++|          MJN    PRS8        IF 639 TAPE CONTROLLER
23967  M01S05272.274l797 +++|          LDD    FM
23968  M01S01278.282l826 +++|          SHN    -6
23969  M01S05273.274l797 +++|          SBN    /MTX/TFLI
23970  M01S05274.274l797 +++|          NJP    PRS11       IF NOT LI FORMAT
23971  M01S05275.274l797 +++|          UJN    PRS9        INDICATE NOT USING READ REVERSE
23972  M01S05276.274l797 +++|
23973  M01S05277.274l797 +++| PRS8     LDM    //RELA
23974  M01S05278.274l797 +++|          ZJN    PRS9        IF UNIT NOT CONNECTED, ASSUME GCR
23975  M01S00400.v23l617 +++|          RJM    DTS         GET UNIT STATUS
23976  M01S00401.v23l617 +++|          LDM    ATUS        CHECK DENSITY
23977  M01S00402.v23l617 +++|          LPN    30
23978  M01S00403.v23l617 +++|          LMN    30
Line S00404 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23979  M02S00404.274l797 ---|          NJN    PRS5.2      IF NOT GCR
Line S00405 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23980  M02S00405.274l797 ---| PRS5.01  AOM    /READ/ISKR  SET 639 GCR SKIP REVERSE
23981  M01S05279.274l797 +++|          NJN    PRS11       IF NOT GCR
23982  M01S05280.274l797 +++| PRS9     AOM    /READ/ISKR  INDICATE NOT USING READ REVERSE
23983  M01S00406.v23l617 +++|          LDC    RJMI        SET UP *RJM BKS*
23984  M01S00407.v23l617 +++|          STM    SKR3
23985  M01S00408.v23l617 +++|          STM    SKRC
23986  M01S00409.v23l617 +++|          LDC    BKS
23987  M01S00410.v23l617 +++|          STM    SKR3+1
23988  M01S00411.v23l617 +++|          STM    SKRC+1
23989  M01S00412.v23l617 +++|          LDC    DBF
23990  M01S00413.v23l617 +++|          STM    SKRB
Line S00414 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23991  M02S00414.274l797 ---| PRS5.1   LDM    .BKSM,T1
23992  M01S05281.274l797 +++| PRS10    LDM    .BKSM,T1
23993  M01S00415.v23l617 +++|          STM    .DBRR,T1
23994  M01S00416.v23l617 +++|          SOD    T1
Line S00417 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23995  M02S00417.274l797 ---|          PJN    PRS5.1      IF MORE CODE TO MOVE
Line S00418 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23996  M02S00418.274l797 ---|          UJN    PRS5.3      CHECK ATS CONTROLLER
23997  M01S05282.274l797 +++|          PJN    PRS10       IF MORE CODE TO MOVE
23998  M01S05283.274l797 +++|          UJN    PRS12       CHECK CONTROLLER TYPE
23999  M01S00419.v23l617 +++|
Line S00420 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24000  M02S00420.274l797 ---| PRS5.2   LDC    140         READ REVERSE
24001  M01S05284.274l797 +++| PRS11    LDC    F0140       READ REVERSE
24002  M01S00421.v23l617 +++|          STM    ITMA
Line S00422 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24003  M02S00422.274l797 ---| PRS5.3   LDD    HP
Line S14461 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24004  M02S14461.274l797 ---|          LPN    21
24005  M01S05285.274l797 +++| PRS12    LDD    HP
24006  M01S05286.274l797 +++|          LPC    221
24007  M01S14462.1mt     +++|          LMN    1
Line S14463 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
24008  M02S14463.v23l617 ---|          NJN    PRS7        IF ATS CONTROLLER OR 7 TRACK
Line S00423 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
24009  M02S00423.ns2466  ---|          NJN    PRS7        IF ATS/MTS/ISMT CONTROLLER OR 7 TRACK
Line S00278 Modification History
M01 (Added by) ns2466
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24010  M02S00278.274l797 ---|          NJN    PRS7        IF ATS-TYPE CONTROLLER OR 7 TRACK
24011  M01S05287.274l797 +++|          NJN    PRS14       IF CTS/ATS-TYPE CONTROLLER OR 7 TRACK
24012  M01S14464.1mt     +++|          LDD    FM
24013  M01S01279.282l826 +++|          SHN    -6
24014  M01S14465.1mt     +++|          LMN    /MTX/TFI
Line S14466 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24015  M02S14466.274l797 ---|          NJN    PRS7        IF NOT I FORMAT
24016  M01S05288.274l797 +++|          NJN    PRS14       IF NOT I FORMAT
24017  M01S14467.1mt     +++|          LDN    .DBRSL-1    SET LENGTH OF LEVEL NUMBER ROUTINE
24018  M01S14468.1mt     +++|          STD    T1
Line S14469 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24019  M02S14469.274l797 ---| PRS6     LDM    .DBRS,T1    MOVE CODE
24020  M01S05289.274l797 +++| PRS13    LDM    .DBRS,T1    MOVE CODE
24021  M01S14470.1mt     +++|          STM    .DBRO,T1
24022  M01S14471.1mt     +++|          SOD    T1
Line S14472 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24023  M02S14472.274l797 ---|          PJN    PRS6        IF MORE CODE TO MOVE
Line S14473 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24024  M02S14473.274l797 ---|          LDC    UJNI+PRS10-PRSA  DISABLE INSTRUCTION MODIFICATION
Line S14474 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24025  M02S14474.274l797 ---|          ERRNG  PRSA-PRS10+37B
Line S14475 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24026  M02S14475.274l797 ---|          STM    PRSA
24027  M01S05290.274l797 +++|          PJN    PRS13       IF MORE CODE TO MOVE
24028  M01S05291.274l797 +++|          LDC    UJNI+PRS22-PRSB  DISABLE INSTRUCTION MODIFICATION
24029  M01S05292.274l797 +++|          ERRNG  PRSB-PRS22+37B
24030  M01S05293.274l797 +++|          STM    PRSB
Line S14476 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24031  M02S14476.274l797 ---|          LDN    0           DESELCT VALIDATE DATA FOR I FORMAT
24032  M01S05294.274l797 +++|          LDN    0           DESELECT VALIDATE DATA FOR I FORMAT
Line S14477 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24033  M02S14477.274l797 ---|          STM    DBFA
Line S14478 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24034  M02S14478.274l797 ---|          STM    DBFA+1
24035  M01S05295.274l797 +++|          STM    DBFB
24036  M01S05296.274l797 +++|          STM    DBFB+1
24037  M01S14479.1mt     +++|          STM    .DBRSB
Line S14480 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24038  M02S14480.274l797 ---| PRS7     LDC    4425
24039  M01S05297.274l797 +++| PRS14    LDD    HP
24040  M01S05298.274l797 +++|          SHN    21-7
24041  M01S05299.274l797 +++|          PJN    PRS15       IF NOT CTS
24042  M01S05300.274l797 +++|          LDC    6125
24043  M01S05301.274l797 +++|          STM    /PRESET/WFEA  WAIT NOT BUSY MASK
24044  M01S05302.274l797 +++|          UJN    PRS16       CONTINUE PRESET
24045  M01S05303.274l797 +++|
24046  M01S05304.274l797 +++| PRS15    LDC    4425
24047  M01S14481.1mt     +++|          STM    //WEOA
Line S14482 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24048  M02S14482.274l797 ---|          LDC    SKR4
24049  M01S05305.274l797 +++| PRS16    LDC    SKR4
24050  M01S14483.1mt     +++|          STM    /READ/RDFC+1
24051  M01S14484.1mt     +++|          LDC    SKRA        SET TO MODIFY CORRECT INSTRUCTION
Line S14485 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24052  M02S14485.274l797 ---|          STM    PRSB
24053  M01S05306.274l797 +++|          STM    PRSC
24054  M01S14486.1mt     +++|          LDC    AODI+BL+1
Line S14487 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24055  M02S14487.274l797 ---|          STM    DBFC
24056  M01S05307.274l797 +++|          STM    DBFE
24057  M01S14488.1mt     +++|          LDC    SODI+BL+1
Line S14489 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24058  M02S14489.274l797 ---|          STM    DBFD
24059  M01S05308.274l797 +++|          STM    DBFG
24060  M01S14490.1mt     +++|          LDD    FM
24061  M01S01280.282l826 +++|          SHN    -6
24062  M01S14491.1mt     +++|          SBN    /MTX/TFSI+1
Line S14492 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24063  M02S14492.274l797 ---|          PJN    PRS8        IF NOT I/SI FORMAT
Line S00424 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24064  M02S00424.274l797 ---|          LDM    /READ/ISKR
Line S00425 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24065  M02S00425.274l797 ---|          NJN    PRS8        IF ISMT GCR SKIP REVERSE
Line S05309 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24066  M02S05309.282l826 ---|          MJN    PRS17       IF I OR SI FORMAT
Line S05310 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24067  M02S05310.282l826 ---|          SBN    /MTX/TFLI-/MTX/TFSI-1
Line S05311 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24068  M02S05311.282l826 ---|          NJN    PRS18       IF NOT L FORMAT
Line S05312 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24069  M02S05312.282l826 ---| PRS17    LDM    /READ/ISKR
24070  M01S01281.282l826 +++|          PJN    PRS18       IF NOT I OR SI FORMAT
24071  M01S01282.282l826 +++|          LDM    /READ/ISKR
24072  M01S05313.274l797 +++|          NJN    PRS18       IF NOT USING READ REVERSE
24073  M01S14493.1mt     +++|          LDC    LDDI+BY     SET TO SET LEVEL NUMBER
24074  M01S14494.1mt     +++|          STM    DBRA
Line S14495 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24075  M02S14495.274l797 ---| PRS8     LDM    LNUM        SET LEVEL NUMBER
24076  M01S05314.274l797 +++| PRS18    LDM    LNUM        SET LEVEL NUMBER
24077  M01S14496.1mt     +++|          SHN    -10
Line S14497 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24078  M02S14497.274l797 ---|          RAM    DBFF
24079  M01S05315.274l797 +++|          RAM    DBFI
24080  M01S14498.1mt     +++|          LDM    CIOE
24081  M01S14499.1mt     +++|          LPC    774
24082  M01S14500.1mt     +++|          LMN    20
Line S14501 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24083  M02S14501.274l797 ---|          NJN    PRS9        IF NOT READSKP
24084  M01S05316.274l797 +++|          NJN    PRS19       IF NOT READSKP
24085  M01S14502.1mt     +++|          STM    SKPE        RETURN 31 STATUS IF EOF READ
Line S14503 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24086  M02S14503.274l797 ---| PRS9     LDD    FM
24087  M01S05317.274l797 +++| PRS19    LDD    FM
24088  M01S01283.282l826 +++|          SHN    -6
24089  M01S14504.1mt     +++|          SBN    /MTX/TFSI+1
Line S14505 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24090  M02S14505.274l797 ---|          PJN    PRS11       IF NOT I OR SI FORMAT
Line S14506 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24091  M02S14506.274l797 ---|          LDN    0           SET I/SI FORMAT LEVEL NUMBER CHECK
Line S14507 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24092  M02S14507.274l797 ---|          STM    IDFC
24093  M01S05318.274l797 +++|          MJN    PRS20       IF I OR SI FORMAT
24094  M01S05319.274l797 +++|          SBN    /MTX/TFLI-/MTX/TFSI-1
24095  M01S05320.274l797 +++|          NJP    PRS23       IF NOT LI FORMAT
24096  M01S05321.274l797 +++|          LDC    RJMI
24097  M01S05322.274l797 +++|          STM    IDFA-1
24098  M01S05323.274l797 +++|          LDC    CFP         CHECK FOR FULL PRU
24099  M01S05324.274l797 +++|          STM    IDFA
24100  M01S05325.274l797 +++|          LDC    LDMI
24101  M01S05326.274l797 +++|          STM    DBFA        GET LEVEL NUMBER
24102  M01S05327.274l797 +++|          LDC    BUFB+4
24103  M01S05328.274l797 +++|          STM    DBFA+1
24104  M01S05329.274l797 +++| PRS20    LDN    0           SET I/SI/LI FORMAT LEVEL NUMBER CHECK
24105  M01S05330.274l797 +++|          STM    IDFD
24106  M01S14508.1mt     +++|          LDN    4
Line S14509 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24107  M02S14509.274l797 ---|          RAM    DBFE
24108  M01S05331.274l797 +++|          RAM    DBFH
24109  M01S14510.1mt     +++|          LDD    FM
24110  M01S01284.282l826 +++|          SHN    -6
Line S14511 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24111  M02S14511.274l797 ---|          LMN    /MTX/TFI
Line S14512 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24112  M02S14512.274l797 ---|          NJN    PRS11       IF NOT I FORMAT
Line S14513 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24113  M02S14513.274l797 ---| PRSA     LDD    HP
Line S14514 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24114  M02S14514.274l797 ---|*         UJN    PRS10       (MTS CONTROLLER REVERSE SKIP)
24115  M01S05332.274l797 +++|          LMN    /MTX/TFSI
24116  M01S05333.274l797 +++|          ZJN    PRS23       IF SI FORMAT
24117  M01S05334.274l797 +++| PRSB     LDD    HP
24118  M01S05335.274l797 +++|*         UJN    PRS22       (MTS CONTROLLER REVERSE SKIP)
Line S14515 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24119  M02S14515.274l797 ---|          LPN    1
Line S14516 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24120  M02S14516.274l797 ---|          ZJN    PRS10       IF 7 TRACK
Line S00426 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24121  M02S00426.274l797 ---|          LDM    /READ/ISKR
Line S00427 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24122  M02S00427.274l797 ---|          NJN    PRS10       IF ISMT GCR SKIP REVERSE
24123  M01S05336.274l797 +++|          SHN    21-7
24124  M01S05337.274l797 +++|          MJN    PRS21       IF CTS
24125  M01S05338.274l797 +++|          SHN    21-0-21+7
24126  M01S05339.274l797 +++|          PJN    PRS22       IF 7 TRACK
24127  M01S05340.274l797 +++| PRS21    LDM    /READ/ISKR
24128  M01S05341.274l797 +++|          NJN    PRS22       IF NOT USING READ REVERSE
24129  M01S14517.1mt     +++|          LDC    ZJNI-UJNI
24130  M01S14518.1mt     +++|          RAM    DBRB
Line S14519 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24131  M02S14519.274l797 ---| PRS10    LJM    PRS14       COMPLETE PRESET
24132  M01S05342.274l797 +++| PRS22    UJN    PRS24       COMPLETE PRESET
24133  M01S14520.1mt     +++|
Line S14521 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24134  M02S14521.274l797 ---| PRS11    LDN    0
Line S14522 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24135  M02S14522.274l797 ---|          STM    DBFA
Line S14523 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24136  M02S14523.274l797 ---|          STM    DBFA+1
24137  M01S05343.274l797 +++| PRS23    LDN    0
24138  M01S05344.274l797 +++|          STM    DBFB
24139  M01S05345.274l797 +++|          STM    DBFB+1
24140  M01S14524.1mt     +++|          LDD    FM
24141  M01S01285.282l826 +++|          SHN    -6
24142  M01S14525.1mt     +++|          LMN    /MTX/TFSI
Line S14526 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
24143  M02S14526.v23l617 ---|          NJN    PRS14       IF NOT SI FORMAT
Line S14527 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
24144  M02S14527.v23l617 ---|          LDD    HP
Line S00428 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24145  M02S00428.274l797 ---|          ZJN    PRS11.1     IF SI FORMAT
Line S00429 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24146  M02S00429.274l797 ---|          LJM    PRS14       NOT SI FORMAT
24147  M01S05346.274l797 +++|          ZJN    PRS25       IF SI FORMAT
24148  M01S05347.274l797 +++| PRS24    LJM    PRS28       COMPLETE PRESET
24149  M01S00430.v23l617 +++|
Line S00431 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24150  M02S00431.274l797 ---| PRS11.1  LDD    HP
24151  M01S05348.274l797 +++| PRS25    LDD    HP
24152  M01S14528.1mt     +++|          LPN    1
Line S14529 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24153  M02S14529.274l797 ---|          ZJN    PRS14       IF 7 TRACK
24154  M01S05349.274l797 +++|          ZJN    PRS28       IF 7 TRACK
24155  M01S14530.1mt     +++|          LDC    LDDI+ES     SET TO CHECK FOR FILL STATUS
24156  M01S14531.1mt     +++|          STM    SKPA
24157  M01S14532.1mt     +++|*         STM    SKRA        (SKIP REVERSE)
Line S14533 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24158  M02S14533.274l797 ---| PRSB     EQU    *-1
24159  M01S05350.274l797 +++| PRSC     EQU    *-1
24160  M01S14534.1mt     +++|          LDD    MD
24161  M01S14535.1mt     +++|          SHN    21-13
Line S14536 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24162  M02S14536.274l797 ---|          PJN    PRS14       IF SKIP FORWARD
24163  M01S05351.274l797 +++|          PJN    PRS28       IF SKIP FORWARD
24164  M01S00432.v23l617 +++|          LDM    /READ/ISKR
Line S00433 Modification History
M01 (Added by) v23l617
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24165  M02S00433.274l797 ---|          NJN    PRS14       IF ISMT GCR SKIP REVERSE
24166  M01S05352.274l797 +++|          NJN    PRS28       IF NOT USING READ REVERSE
24167  M01S14537.1mt     +++|          LDN    .DBRML      LENGTH OF ATS LEVEL NUMBER ROUTINE
24168  M01S14538.1mt     +++|          STD    T1
24169  M01S14539.1mt     +++|          LDD    HP
24170  M01S14540.1mt     +++|          LPN    40
Line S14541 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24171  M02S14541.274l797 ---|          ZJN    PRS12       IF NOT MTS CONTROLLER
24172  M01S05353.274l797 +++|          ZJN    PRS26       IF NOT MTS CONTROLLER
24173  M01S14542.1mt     +++|          LDN    .DBRSL-1    SET LENGTH OF MTS LEVEL NUMBER ROUTINE
24174  M01S14543.1mt     +++|          STD    T1
24175  M01S14544.1mt     +++|          LDN    .DBRS-.DBRM
Line S14545 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24176  M02S14545.274l797 ---| PRS12    ADC    .DBRM
24177  M01S05354.274l797 +++| PRS26    ADC    .DBRM
24178  M01S14546.1mt     +++|          ADD    T1          ADD LENGTH
24179  M01S14547.1mt     +++|          STD    T2
Line S14548 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24180  M02S14548.274l797 ---| PRS13    LDI    T2          MOVE CODE
24181  M01S05355.274l797 +++| PRS27    LDI    T2          MOVE CODE
24182  M01S14549.1mt     +++|          STM    .DBRO,T1
24183  M01S14550.1mt     +++|          SOD    T2
24184  M01S14551.1mt     +++|          SOD    T1
Line S14552 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24185  M02S14552.274l797 ---|          PJN    PRS13       IF MORE CODE TO MOVE
Line S14553 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24186  M02S14553.274l797 ---| PRS14    LDD    PA
24187  M01S05356.274l797 +++|          PJN    PRS27       IF MORE CODE TO MOVE
24188  M01S05357.274l797 +++| PRS28    LDD    PA
24189  M01S14554.1mt     +++|          ADD    PB
Line S14555 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24190  M02S14555.274l797 ---|          NJN    PRS15       IF SKIP COUNT SPECIFIED
24191  M01S05358.274l797 +++|          NJN    PRS29       IF SKIP COUNT SPECIFIED
24192  M01S14556.1mt     +++|          AOD    PB
Line S14557 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24193  M02S14557.274l797 ---| PRS15    LDD    MD
24194  M01S05359.274l797 +++| PRS29    LDD    MD
24195  M01S14558.1mt     +++|          SHN    21-13
Line S14559 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24196  M02S14559.274l797 ---|          MJN    PRS17       IF SKIP REVERSE
24197  M01S05360.274l797 +++|          MJN    PRS32       IF SKIP REVERSE
24198  M01S14560.1mt     +++|          LDD    FM
24199  M01S01286.282l826 +++|          SHN    -6
24200  M01S14561.1mt     +++|          SBN    /MTX/TFSI+1
Line S14562 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24201  M02S14562.274l797 ---|          MJN    PRS16       IF I/SI FORMAT
24202  M01S05361.274l797 +++|          MJN    PRS31       IF I/SI FORMAT
24203  M01S05362.274l797 +++|          SBN    /MTX/TFLI-/MTX/TFSI-1
24204  M01S05363.274l797 +++|          ZJN    PRS31       IF LI FORMAT
Line S14563 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24205  M02S14563.282l826 ---|          LDD    UP
Line S14564 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24206  M02S14564.282l826 ---|          SHN    -10
Line S14565 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24207  M03S14565.282l826 ---|          ZJN    PRS17       IF NOT LABELED
Line S05364 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24208  M02S05364.282l826 ---|          ZJN    PRS32       IF NOT LABELED
24209  M01S01287.282l826 +++|          LDD    LT
24210  M01S01288.282l826 +++|          SHN    21-12
24211  M01S01289.282l826 +++|          PJN    PRS32       IF NOT LABELED
Line S14566 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
24212  M02S14566.ns21000 ---|          LDC    LDDI+PA     SET TO DECREMENT SKIP COUNT
Line S14567 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
24213  M02S14567.ns21000 ---|          STM    SKPC
24214  M01S00187.ns21000 +++|          LDC    RJMI        SET *RJM  SLL* TO DECREMENT SKIP COUNT
24215  M01S00188.ns21000 +++|          STM    SKP4
24216  M01S00189.ns21000 +++|          LDC    SLL
24217  M01S00190.ns21000 +++|          STM    SKP4+1
Line S00191 Modification History
M01 (Added by) ns21000
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24218  M02S00191.274l797 ---|          LDN    .DBSLL      SET LENGTH OF *SLL* SUBROUTINE
24219  M01S05365.274l797 +++|          LDN    .DBSLL-1    SET LENGTH OF *SLL* SUBROUTINE
24220  M01S00192.ns21000 +++|          STD    T1
Line S00193 Modification History
M01 (Added by) ns21000
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24221  M02S00193.274l797 ---| PRS15.1  LDM    .DBSL,T1    MOVE CODE
24222  M01S05366.274l797 +++| PRS30    LDM    .DBSL,T1    MOVE CODE
24223  M01S00194.ns21000 +++|          STM    .DBRO,T1
24224  M01S00195.ns21000 +++|          SOD    T1
Line S00196 Modification History
M01 (Added by) ns21000
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24225  M02S00196.274l797 ---|          PJN    PRS15.1     IF MORE CODE TO MOVE
Line S14568 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24226  M02S14568.274l797 ---| PRS16    LDC    NJNI-UJNI
24227  M01S05367.274l797 +++|          PJN    PRS30       IF MORE CODE TO MOVE
24228  M01S05368.274l797 +++| PRS31    LDC    NJNI-UJNI
24229  M01S14569.1mt     +++|          RAM    SKPB
Line S14570 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24230  M02S14570.274l797 ---| PRS17    LDD    FM
24231  M01S05369.274l797 +++| PRS32    LDD    FM
24232  M01S01290.282l826 +++|          SHN    -6
24233  M01S14571.1mt     +++|          SBN    /MTX/TFSI+1
Line S14572 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24234  M02S14572.274l797 ---|          MJN    PRS18       IF I OR SI FORMAT
24235  M01S05370.274l797 +++|          MJN    PRS33       IF I OR SI FORMAT
24236  M01S05371.274l797 +++|          SBN    /MTX/TFLI-/MTX/TFSI-1
24237  M01S05372.274l797 +++|          ZJN    PRS33       IF LI FORMAT
24238  M01S14573.1mt     +++|          LDN    0           SET TO ALWAYS RETURN EOR
Line S14574 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24239  M02S14574.274l797 ---|          STM    IDFA
24240  M01S05373.274l797 +++|          STM    IDFB
24241  M01S14575.1mt     +++|          LDC    5001        SET MAXIMUM BLOCK LENGTH
24242  M01S14576.1mt     +++|          STM    /READ/MRDA
24243  M01S05374.274l797 +++| PRSD     EQU    *-1
24244  M01S05375.274l797 +++|*         STM    /READ/RCTA  (CTS)
24245  M01S05376.274l797 +++| PRS33    LDD    FM
24246  M01S01291.282l826 +++|          SHN    -6
24247  M01S05377.274l797 +++|          SBN    /MTX/TFL
24248  M01S05378.274l797 +++|          ZJN    PRS35       IF L FORMAT
24249  M01S05379.274l797 +++|          SBN    /MTX/TFLI-/MTX/TFL
24250  M01S05380.274l797 +++|          NJN    PRS34       IF NOT LI FORMAT
Line S05381 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24251  M02S05381.282l826 ---|          LDC    2400        CHUNK LENGTH FOR SKIPPING IN LI FORMAT
24252  M01S01292.282l826 +++|          LDC    SLBY        CHUNK LENGTH FOR SKIPPING IN LI FORMAT
24253  M01S05382.274l797 +++|          UJN    PRS36       SET LENGTH OF LAST INPUT
24254  M01S05383.274l797 +++|
24255  M01S05384.274l797 +++| PRS34    LDD    OV
24256  M01S05385.274l797 +++|          ZJN    PRS37       IF NOT POSSIBLE LONG BLOCKS
24257  M01S05386.274l797 +++|          LDD    FM
24258  M01S01293.282l826 +++|          SHN    -6
24259  M01S05387.274l797 +++|          LMN    /MTX/TFF
24260  M01S05388.274l797 +++|          NJN    PRS37       IF NOT F FORMAT
24261  M01S05389.274l797 +++| PRS35    LDC    LBBY        SET UP FOR LONG BLOCKS
24262  M01S05390.274l797 +++| PRS36    STM    /READ/MRDA
24263  M01S05391.274l797 +++| PRSE     EQU    *-1
Line S14577 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24264  M02S14577.274l797 ---| PRS18    LDD    FM
Line S14578 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24265  M02S14578.274l797 ---|          LMN    /MTX/TFL
Line S14579 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24266  M02S14579.274l797 ---|          ZJN    PRS19       IF L FORMAT
Line S14580 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24267  M02S14580.274l797 ---|          LDD    OV
Line S14581 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24268  M02S14581.274l797 ---|          ZJN    PRS20       IF NOT POSSIBLE LONG BLOCKS
Line S14582 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24269  M02S14582.274l797 ---|          LDD    FM
Line S14583 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24270  M02S14583.274l797 ---|          LMN    /MTX/TFF
Line S14584 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24271  M02S14584.274l797 ---|          NJN    PRS20       IF NOT F FORMAT
Line S14585 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24272  M02S14585.274l797 ---| PRS19    LDC    LBBY        SET UP FOR LONG BLOCKS
Line S14586 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24273  M02S14586.274l797 ---|          STM    /READ/MRDA
24274  M01S05392.274l797 +++|*         STM    /READ/RCTA  (CTS)
24275  M01S05393.274l797 +++|          LDC    BUFB
24276  M01S05394.274l797 +++|          STM    /READ/MRDB
24277  M01S05395.274l797 +++| PRSF     EQU    *-1
Line S14587 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24278  M02S14587.274l797 ---|          LDC    BUFB
Line S14588 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24279  M02S14588.274l797 ---|          STM    /READ/MRDB
24280  M01S05396.274l797 +++|*         STM    /READ/RCTB  (CTS)
24281  M01S05397.274l797 +++|          LDC    SLB
24282  M01S05398.274l797 +++|          STM    /READ/MRDC
24283  M01S05399.274l797 +++| PRSG     EQU    *-1
Line S14589 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24284  M02S14589.274l797 ---|          LDC    SLB
Line S14590 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24285  M02S14590.274l797 ---|          STM    /READ/MRDC
Line S14591 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24286  M02S14591.274l797 ---| PRS20    LDC    PRSD        MODIFY CHANNELS
24287  M01S05400.274l797 +++|*         STM    /READ/RCTC  (CTS)
24288  M01S05401.274l797 +++| PRS37    LDC    PRSI        MODIFY CHANNELS
Proceed to Part 28
cdc/nos2.source/opl.opl871/deck/1mt.027.txt ยท Last modified: (external edit)