Deck 1MT Part 017

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
22793  M00S13624.1mt     +++|          ZJN    CBD5        IF ALL SPACES
22794  M00S13625.1mt     +++|          LDI    T1
22795  M00S13626.1mt     +++|          ZJN    CBD3        IF ZERO
22796  M00S13627.1mt     +++|          LMC    2R
22797  M00S13628.1mt     +++|          NJN    CBD4        IF NOT *  *
22798  M00S13629.1mt     +++| CBD3     LDC    2R00
22799  M00S13630.1mt     +++|          STI    T1
22800  M00S13631.1mt     +++|          UJN    CBD2        LOOP
22801  M00S13632.1mt     +++|
22802  M00S13633.1mt     +++| CBD4     SHN    -6
22803  M00S13634.1mt     +++|          NJN    CBD5        IF NOT * *
22804  M00S13635.1mt     +++|          LCN    -1R0+1R
22805  M00S13636.1mt     +++|          SHN    6
22806  M00S13637.1mt     +++|          RAI    T1
22807  M00S13638.1mt     +++| CBD5     LDM    CBDA,T5     SET TO ENTER STORE LOOP
22808  M00S13639.1mt     +++|          STD    T1
22809  M00S13640.1mt     +++|          LJM    0,T1        STORE CHARACTERS
22810  M00S13641.1mt     +++|
22811  M00S13642.1mt     +++| CBD6     LDD    CM+2        STORE SIXTH CHARACTER
22812  M00S13643.1mt     +++|          SHN    -6
22813  M00S13644.1mt     +++|          RJM    SCH
22814  M00S13645.1mt     +++| CBD7     LDD    CM+2        STORE FIFTH CHARACTER
22815  M00S13646.1mt     +++|          RJM    SCH
22816  M00S13647.1mt     +++| CBD8     LDD    CM+3        STORE FOURTH CHARACTER
22817  M00S13648.1mt     +++|          SHN    -6
22818  M00S13649.1mt     +++|          RJM    SCH
22819  M00S13650.1mt     +++| CBD9     LDD    CM+3        STORE THIRD CHARACTER
22820  M00S13651.1mt     +++|          RJM    SCH
22821  M00S13652.1mt     +++| CBD10    LDD    CM+4        STORE SECOND CHARACTER
22822  M00S13653.1mt     +++|          SHN    -6
22823  M00S13654.1mt     +++|          RJM    SCH
22824  M00S13655.1mt     +++| CBD11    LDD    CM+4        STORE FIRST CHARACTER
22825  M00S13656.1mt     +++|          RJM    SCH
22826  M00S13657.1mt     +++|          LJM    CBDX        RETURN
22827  M00S13658.1mt     +++|
22828  M00S13659.1mt     +++| CBDA     BSS    0           INDEXED BY NUMBER OF CHARACTERS TO STORE
22829  M00S13660.1mt     +++|          LOC    0
22830  M00S13661.1mt     +++|          CON    CBDX
22831  M00S13662.1mt     +++|          CON    CBD11
22832  M00S13663.1mt     +++|          CON    CBD10
22833  M00S13664.1mt     +++|          CON    CBD9
22834  M00S13665.1mt     +++|          CON    CBD8
22835  M00S13666.1mt     +++|          CON    CBD7
22836  M00S13667.1mt     +++|          CON    CBD6
22837  M00S13668.1mt     +++|          LOC    *O
22838  M00S13669.1mt     +++| CCH      SPACE  4,15
22839  M00S13670.1mt     +++|**        CCH - COPY INPUT BUFFER TO DESTINATION BUFFER.
22840  M00S13671.1mt     +++|*
22841  M00S13672.1mt     +++|*         ENTRY  (A) = NUMBER OF CHARACTERS TO MOVE.
22842  M00S13673.1mt     +++|*                (T6) = CHARACTER POSITION IN INPUT BUFFER.
22843  M00S13674.1mt     +++|*                (T7) = CHARACTER POSITION IN DESTINATION BUFFER.
22844  M00S13675.1mt     +++|*
22845  M00S13676.1mt     +++|*         EXIT   (T6), (T7) = INCREMENTED.
22846  M00S13677.1mt     +++|*
22847  M00S13678.1mt     +++|*         USES   T5.
22848  M00S13679.1mt     +++|*
22849  M00S13680.1mt     +++|*         CALLS  GCH, SCH.
22850  M00S13681.1mt     +++|
22851  M00S13682.1mt     +++|
22852  M00S13683.1mt     +++| CCH      SUBR               ENTRY/EXIT
22853  M00S13684.1mt     +++|          STD    T5
22854  M00S13685.1mt     +++| CCH1     RJM    GCH         GET LABEL CHARACTER
22855  M00S13686.1mt     +++|          RJM    SCH         STORE CHARACTER IN USER BUFFER
22856  M00S13687.1mt     +++|          SOD    T5
22857  M00S13688.1mt     +++|          NJN    CCH1        IF MORE CHARACTERS TO MOVE
22858  M00S13689.1mt     +++|          UJN    CCHX        RETURN
22859  M00S13690.1mt     +++| CCS      SPACE  4,15
22860  M00S13691.1mt     +++|**        CCS - COPY CHARACTERS IF SPECIFIED.
22861  M00S13692.1mt     +++|*         CHECKS FIELD FOR ALL ZEROES.  IF ALL ZEROES, FIELD IS SPACE
22862  M00S13693.1mt     +++|*         FILLED.  OTHERWISE FIELD IS COPIED FROM INPUT BUFFER TO
22863  M00S13694.1mt     +++|*         DESTINATION BUFFER.
22864  M00S13695.1mt     +++|*
22865  M00S13696.1mt     +++|*         ENTRY  (A) = NUMBER OF CHARACTERS TO PROCESS.
22866  M00S13697.1mt     +++|*                (T6) = INPUT BUFFER POSITION.
22867  M00S13698.1mt     +++|*                (T7) = DESTINATION BUFFER POSITION.
22868  M00S13699.1mt     +++|*
22869  M00S13700.1mt     +++|*         EXIT   (T6), (T7) = INCREMENTED.
22870  M00S13701.1mt     +++|*
22871  M00S13702.1mt     +++|*         USES   T5.
22872  M00S13703.1mt     +++|*
22873  M00S13704.1mt     +++|*         CALLS  FCH, GCH, SCH.
22874  M00S13705.1mt     +++|
22875  M00S13706.1mt     +++|
22876  M00S13707.1mt     +++| CCS2     LDD    MA          COPY FIELD
22877  M00S13708.1mt     +++|          CRD    T3
22878  M00S13709.1mt     +++|          LDD    T5
22879  M00S13710.1mt     +++| CCS3     RJM    GCH         GET LABEL CHARACTER
22880  M00S13711.1mt     +++|          NJN    CCS4        IF NOT 00 CHARACTER
22881  M00S13712.1mt     +++|          LDN    1R
22882  M00S13713.1mt     +++| CCS4     RJM    SCH         STORE CHARACTER IN DESTINATION BUFFER
22883  M00S13714.1mt     +++|          SOD    T5
22884  M00S13715.1mt     +++|          NJN    CCS3        IF MORE CHARACTERS TO MOVE
22885  M00S13716.1mt     +++|
22886  M00S13717.1mt     +++| CCS      SUBR               ENTRY/EXIT
22887  M00S13718.1mt     +++|          STD    T5
22888  M00S13719.1mt     +++|          LDD    MA          SAVE DIRECT CELLS
22889  M00S13720.1mt     +++|          CWD    T3
22890  M00S13721.1mt     +++| CCS1     RJM    GCH         GET CHARACTER
22891  M00S13722.1mt     +++|          NJN    CCS2        IF FIELD SPECIFIED
22892  M00S13723.1mt     +++|          SOD    T5
22893  M00S13724.1mt     +++|          NJN    CCS1        IF MORE CHARACTERS TO CHECK
22894  M00S13725.1mt     +++|          LDD    MA          SET DEFAULTS
22895  M00S13726.1mt     +++|          CRD    T3
22896  M00S13727.1mt     +++|          LDD    T5
22897  M00S13728.1mt     +++|          RAD    T6
22898  M00S13729.1mt     +++|          LDD    T5
22899  M00S13730.1mt     +++|          ADC    1L
22900  M00S13731.1mt     +++|          RJM    FCH
22901  M00S13732.1mt     +++|          UJN    CCSX        RETURN
22902  M00S13733.1mt     +++| CDN      SPACE  4,10
22903  M00S13734.1mt     +++|**        CDN - CONVERT DECIMAL FIELD (4 CHARACTERS).
22904  M00S13735.1mt     +++|*         IF FIELD IS NOT DEFINED, A DEFAULT OF 1 IS SET.
22905  M00S13736.1mt     +++|*
22906  M00S13737.1mt     +++|*         ENTRY  (T6) = CHARACTER POSITION IN INPUT BUFFER.
22907  M00S13738.1mt     +++|*                (T7) = CHARACTER POSITION IN DESTINATION BUFFER.
22908  M00S13739.1mt     +++|*
22909  M00S13740.1mt     +++|*         CALLS  DCV, GCH, SCH.
22910  M00S13741.1mt     +++|
22911  M00S13742.1mt     +++|
22912  M00S13743.1mt     +++| CDN1     LDN    0           SET DEFAULT
22913  M00S13744.1mt     +++|          RJM    SCH
22914  M00S13745.1mt     +++|          LDN    0
22915  M00S13746.1mt     +++|          RJM    SCH
22916  M00S13747.1mt     +++|          LDN    1
22917  M00S13748.1mt     +++|          RJM    SCH
22918  M00S13749.1mt     +++|
22919  M00S13750.1mt     +++| CDN      SUBR               ENTRY/EXIT
22920  M00S13751.1mt     +++|          RJM    GCH         GET CHARACTER
22921  M00S13752.1mt     +++|          ZJN    CDN1        IF FIELD NOT DEFINED
22922  M00S13753.1mt     +++|          SOD    T6
22923  M00S13754.1mt     +++|          LDC    30004
22924  M00S13755.1mt     +++|          RJM    DCV
22925  M00S13756.1mt     +++|          UJN    CDNX        RETURN
22926  M00S13757.1mt     +++| CPO      SPACE  4,10
22927  M00S13758.1mt     +++|**        CPO - CHECK IF *POSMF 9999*.
Line S13759 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22928  M01S13759.274l797 ---|*         MUST BE CALLED AFTER LABEL IS TRANSFERED TO BFMS.
Line S05094 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22929  M01S05094.274l797 +++|*         MUST BE CALLED AFTER LABEL IS TRANSFERRED TO BFMS.
22930  M00S13760.1mt     +++|*
22931  M00S13761.1mt     +++|*         EXIT   (A) = 0 IF *POSMF 9999*
22932  M00S13762.1mt     +++|*                (DBUF) = BFMS.
22933  M00S13763.1mt     +++|*                (IBUF) = CPOA.
22934  M00S13764.1mt     +++|*
22935  M00S13765.1mt     +++|*         CALLS  CAN.
22936  M00S13766.1mt     +++|*
22937  M00S13767.1mt     +++|*         USES   T6, T7.
22938  M00S13768.1mt     +++|
22939  M00S13769.1mt     +++|
22940  M00S13770.1mt     +++| CPO      SUBR               ENTRY/EXIT
22941  M00S13771.1mt     +++|          LDM    OPFB
22942  M00S13772.1mt     +++|          NJN    CPOX        IF NOT *POSMF*
22943  M00S13773.1mt     +++|          LDC    CPOA        CHECK SEQUENCE NUMBER
22944  M00S13774.1mt     +++|          STM    IBUF
22945  M00S13775.1mt     +++|          LDC    BFMS
22946  M00S13776.1mt     +++|          STM    DBUF
22947  M00S13777.1mt     +++|          LDN    1
22948  M00S13778.1mt     +++|          STD    T6
22949  M00S13779.1mt     +++|          LDN    32D
22950  M00S13780.1mt     +++|          STD    T7
22951  M00S13781.1mt     +++|          LDN    4
22952  M00S13782.1mt     +++|          RJM    CAN         COMPARE FIELDS
22953  M00S13783.1mt     +++|          UJN    CPOX        RETURN
22954  M00S13784.1mt     +++|
22955  M00S13785.1mt     +++|
22956  M00S13786.1mt     +++| CPOA     DATA   H*9999*
22957  M00S13787.1mt     +++| DCV      SPACE  4,15
22958  M00S13788.1mt     +++|**        DCV - CONVERT DECIMAL FIELD TO BINARY.
22959  M00S13789.1mt     +++|*
22960  M00S13790.1mt     +++|*         ENTRY  (A, 13 - 12) = NUMBER OF CHARACTER POSITIONS IN RESULT.
22961  M00S13791.1mt     +++|*                (A, 11 - 0) = NUMBER OF CHARACTERS IN LABEL FIELD.
22962  M00S13792.1mt     +++|*                (T6) = CHARACTER POSITION IN INPUT BUFFER.
22963  M00S13793.1mt     +++|*                (T7) = CHARACTER POSITION IN DESTINATION BUFFER.
22964  M00S13794.1mt     +++|*
22965  M00S13795.1mt     +++|*         EXIT   (T6), (T7) = INCREMENTED.
22966  M00S13796.1mt     +++|*
22967  M00S13797.1mt     +++|*         USES   T1 - T5.
22968  M00S13798.1mt     +++|*
22969  M00S13799.1mt     +++|*         CALLS  GCH, SCH.
22970  M00S13800.1mt     +++|
22971  M00S13801.1mt     +++|
Line S13802 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
22972  M01S13802.v23l617 ---| DCV7     LDN    /MTX/IXL    ILLEGAL LABEL FIELD
Line S00363 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
22973  M01S00363.v23l617 +++| DCV7     LDN    /MTX/IXL    INCORRECT LABEL FIELD
22974  M00S13803.1mt     +++|          LJM    RET3        RETURN ERROR CODE
22975  M00S13804.1mt     +++|
22976  M00S13805.1mt     +++| DCV      SUBR               ENTRY/EXIT
22977  M00S13806.1mt     +++|          STD    T5          NUMBER OF CHARACTERS IN LABEL
22978  M00S13807.1mt     +++|          SHN    -14
22979  M00S13808.1mt     +++|          STD    T4          NUMBER OF CHARACTER POSITIONS IN UDT
22980  M00S13809.1mt     +++|          LDN    0           PRESET RESULT
22981  M00S13810.1mt     +++|          STD    T2
22982  M00S13811.1mt     +++|          STD    T3
22983  M00S13812.1mt     +++| DCV1     RJM    GCH         GET CHARACTER
22984  M00S13813.1mt     +++|          STD    T1
22985  M00S13814.1mt     +++|          SBN    1R0
22986  M00S13815.1mt     +++|          RAD    T3
22987  M00S13816.1mt     +++|          SHN    -14
22988  M00S13817.1mt     +++|          RAD    T2
22989  M00S13818.1mt     +++| DCVA     UJN    DCV2        DO NOT VALIDATE CHARACTER
22990  M00S13819.1mt     +++|*         PSN                (OPEN WRITE OR POSMF 9999)
22991  M00S13820.1mt     +++|
22992  M00S13821.1mt     +++|          LDD    T1
22993  M00S13822.1mt     +++|          SBN    1R0
22994  M00S13823.1mt     +++|          MJN    DCV7        IF NOT NUMERIC CHARACTER
22995  M00S13824.1mt     +++|          SBN    1R9-1R0+1
22996  M00S13825.1mt     +++|          PJN    DCV7        IF NOT NUMERIC CHARACTER
22997  M00S13826.1mt     +++| DCV2     SOD    T5          DECREMENT NUMBER OF CHARACTERS TO PROCESS
22998  M00S13827.1mt     +++|          ZJN    DCV3        IF ALL DIGITS PROCESSED
22999  M00S13828.1mt     +++|          LDD    T2          10D * ACCUMALATED RESULT
23000  M00S13829.1mt     +++|          SHN    14
23001  M00S13830.1mt     +++|          ADD    T3
23002  M00S13831.1mt     +++|          SHN    2+6         * 4
23003  M00S13832.1mt     +++|          ADD    T2          * 5
23004  M00S13833.1mt     +++|          SHN    14
23005  M00S13834.1mt     +++|          ADD    T3
23006  M00S13835.1mt     +++|          SHN    1           * 10D
23007  M00S13836.1mt     +++|          STD    T3
23008  M00S13837.1mt     +++|          SHN    -14
23009  M00S13838.1mt     +++|          STD    T2
23010  M00S13839.1mt     +++|          UJN    DCV1        LOOP
23011  M00S13840.1mt     +++|
23012  M00S13841.1mt     +++| DCV3     LDD    T4
23013  M00S13842.1mt     +++|          LMN    3
23014  M00S13843.1mt     +++|          NJN    DCV4        IF NOT 3 CHARACTER POSITIONS
23015  M00S13844.1mt     +++|          LDD    T2          STORE VALUE
23016  M00S13845.1mt     +++|          RJM    SCH         STORE CHARACTER
23017  M00S13846.1mt     +++|          UJN    DCV5        STORE REMAINING CHARACTERS
23018  M00S13847.1mt     +++| DCV4     LMN    2&3
23019  M00S13848.1mt     +++|          NJN    DCV6        IF NOT 2 CHARACTER POSIITONS
23020  M00S13849.1mt     +++| DCV5     LDD    T3          STORE VALUE
23021  M00S13850.1mt     +++|          SHN    -6
23022  M00S13851.1mt     +++|          RJM    SCH         STORE CHARACTER
23023  M00S13852.1mt     +++| DCV6     LDD    T3
23024  M00S13853.1mt     +++|          LPN    77
23025  M00S13854.1mt     +++|          RJM    SCH         STORE CHARACTER
23026  M00S13855.1mt     +++|          LJM    DCVX        RETURN
23027  M00S13856.1mt     +++| FCH      SPACE  4,15
23028  M00S13857.1mt     +++|**        FCH - FILL DESTINATION BUFFER WITH CHARACTER(S).
23029  M00S13858.1mt     +++|*
23030  M00S13859.1mt     +++|*         ENTRY  (A, 17- 12) = CHARACTER TO FILL WITH.
23031  M00S13860.1mt     +++|*                (A, 11 - 0) = NUMBER OF CHARACTERS TO FILL.
23032  M00S13861.1mt     +++|*                (T7) = CHARACTER POINTER IN DESTINATION BUFFER.
23033  M00S13862.1mt     +++|*
23034  M00S13863.1mt     +++|*         EXIT   (T7) = INCREMENTED.
23035  M00S13864.1mt     +++|*
23036  M00S13865.1mt     +++|*         USES   T4.
23037  M00S13866.1mt     +++|*
23038  M00S13867.1mt     +++|*         CALLS  SCH.
23039  M00S13868.1mt     +++|
23040  M00S13869.1mt     +++|
23041  M00S13870.1mt     +++| FCH      SUBR               ENTRY/EXIT
23042  M00S13871.1mt     +++|          STD    T5          SAVE COUNT
23043  M00S13872.1mt     +++|          SHN    -14
23044  M00S13873.1mt     +++|          STD    T4          SAVE FILL VALUE
23045  M00S13874.1mt     +++| FCH1     LDD    T4          STORE CHARACTER
23046  M00S13875.1mt     +++|          RJM    SCH
23047  M00S13876.1mt     +++|          SOD    T5
23048  M00S13877.1mt     +++|          NJN    FCH1        IF MORE TO FILL
23049  M00S13878.1mt     +++|          UJN    FCHX        RETURN
23050  M00S13879.1mt     +++| GCD      SPACE  4,10
23051  M00S13880.1mt     +++|**        GCD - GET CHARACTER FROM DESTINATION BUFFER.
23052  M00S13881.1mt     +++|*
23053  M00S13882.1mt     +++|*         ENTRY  (T7) = CHARACTER POSITION IN DESTINATION BUFFER.
23054  M00S13883.1mt     +++|*
23055  M00S13884.1mt     +++|*         EXIT   (A) = CHARACTER.
23056  M00S13885.1mt     +++|*                (T7) = INCREMENTED.
23057  M00S13886.1mt     +++|*
23058  M00S13887.1mt     +++|*         USES   T1.
23059  M00S13888.1mt     +++|
23060  M00S13889.1mt     +++|
23061  M00S13890.1mt     +++| GCD1     LDM    -1,T1
23062  M00S13891.1mt     +++|          LPN    77
23063  M00S13892.1mt     +++|
23064  M00S13893.1mt     +++| GCD      SUBR               ENTRY/EXIT
23065  M00S13894.1mt     +++|          AOD    T7
23066  M00S13895.1mt     +++|          SBN    1
23067  M00S13896.1mt     +++|          SHN    21
23068  M00S13897.1mt     +++|          ADM    DBUF
23069  M00S13898.1mt     +++|          STD    T1
23070  M00S13899.1mt     +++|          SBM    DBUF
23071  M00S13900.1mt     +++|          SHN    -21
23072  M00S13901.1mt     +++|          ZJN    GCD1        IF LOWER 6 BITS
23073  M00S13902.1mt     +++|          LDI    T1
23074  M00S13903.1mt     +++|          SHN    -6
23075  M00S13904.1mt     +++|          UJN    GCDX        RETURN
23076  M00S13905.1mt     +++| GCH      SPACE  4,10
23077  M00S13906.1mt     +++|**        GCH - GET CHARACTER FROM INPUT BUFFER.
23078  M00S13907.1mt     +++|*
23079  M00S13908.1mt     +++|*         ENTRY  (T6) = CHARACTER POSITION IN INPUT BUFFER.
23080  M00S13909.1mt     +++|*
23081  M00S13910.1mt     +++|*         EXIT   (A) = CHARACTER.
23082  M00S13911.1mt     +++|*                (T6) = INCREMENTED.
23083  M00S13912.1mt     +++|*
23084  M00S13913.1mt     +++|*         USES   T1.
23085  M00S13914.1mt     +++|
23086  M00S13915.1mt     +++|
23087  M00S13916.1mt     +++| GCH1     LDM    -1,T1
23088  M00S13917.1mt     +++|          LPN    77
23089  M00S13918.1mt     +++|
23090  M00S13919.1mt     +++| GCH      SUBR               ENTRY/EXIT
23091  M00S13920.1mt     +++|          AOD    T6
23092  M00S13921.1mt     +++|          SBN    1
23093  M00S13922.1mt     +++|          SHN    21
23094  M00S13923.1mt     +++|          ADM    IBUF
23095  M00S13924.1mt     +++|          STD    T1
23096  M00S13925.1mt     +++|          SBM    IBUF
23097  M00S13926.1mt     +++|          SHN    -21
23098  M00S13927.1mt     +++|          ZJN    GCH1        IF LOWER 6 BITS
23099  M00S13928.1mt     +++|          LDI    T1
23100  M00S13929.1mt     +++|          SHN    -6
23101  M00S13930.1mt     +++|          UJN    GCHX        RETURN
Line S00057 Modification History
M01 (Added by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
23102  M01S00057.ns2786  +++| SCB      SPACE  4,10
23103  M01S00058.ns2786  +++|**        SCB - SET CENTURY BIAS.
23104  M01S00059.ns2786  +++|*         ADJUSTS BINARY YEAR TO NEXT CENTURY IF REQUIRED.
23105  M01S00060.ns2786  +++|*
23106  M01S00061.ns2786  +++|*         ENTRY  (A) = ADDRESS OF CELL CONTAINING YEAR.
23107  M01S00062.ns2786  +++|*
23108  M01S00063.ns2786  +++|*         EXIT   ((A)) ADJUSTED UPWARD BY 100D IF ORIGINALLY .LT. 70D.
23109  M01S00064.ns2786  +++|*
23110  M01S00065.ns2786  +++|*         USES   T0.
23111  M01S00066.ns2786  +++|
23112  M01S00067.ns2786  +++|
23113  M01S00068.ns2786  +++| SCB      SUBR               ENTRY/EXIT
23114  M01S00069.ns2786  +++|          STD    T0          SAVE ADDRESS OF YEAR
23115  M01S00070.ns2786  +++|          LDI    T0
23116  M01S00071.ns2786  +++|          SBK    70D
23117  M01S00072.ns2786  +++|          PJN    SCBX        IF YEAR .LE. 1999
23118  M01S00073.ns2786  +++|          LDC    100D        ADJUST YEAR TO NEXT CENTURY
23119  M01S00074.ns2786  +++|          RAI    T0
23120  M01S00075.ns2786  +++|          UJN    SCBX        RETURN
23121  M01S00076.ns2786  +++| SCF      SPACE  4,10
23122  M01S00077.ns2786  +++|**        SCF - SET CENTURY FILL CHARACTER.
23123  M01S00078.ns2786  +++|*         GENERATES THE *ISO* STANDARD CENTURY CHARACTER, BASED ON THE
23124  M01S00079.ns2786  +++|*         YEAR IN THE INPUT BUFFER, AND PLACES IT IN THE OUTPUT BUFFER.
23125  M01S00080.ns2786  +++|*
23126  M01S00081.ns2786  +++|*         ENTRY  (T6) = CHARACTER POSITION OF YEAR IN INPUT BUFFER.
23127  M01S00082.ns2786  +++|*                (T7) = CHARACTER POSITION IN OUTPUT BUFFER.
23128  M01S00083.ns2786  +++|*
23129  M01S00084.ns2786  +++|*         EXIT   FILL CHARACTER PLACED IN OUTPUT BUFFER,
23130  M01S00085.ns2786  +++|*                (* * FOR 19XX YEARS, *0* FOR 20XX YEARS).
23131  M01S00086.ns2786  +++|*                (T6) = (A) = ORIGINAL (T6).
23132  M01S00087.ns2786  +++|*                (T7) INCREMENTED.
23133  M01S00088.ns2786  +++|*
23134  M01S00089.ns2786  +++|*         CALLS  GCH, SCH.
23135  M01S00090.ns2786  +++|*
23136  M01S00091.ns2786  +++|*         USES   T6.
23137  M01S00092.ns2786  +++|
23138  M01S00093.ns2786  +++|
23139  M01S00094.ns2786  +++| SCF1     LDN    1R          SPACE FILL
23140  M01S00095.ns2786  +++| SCF2     RJM    SCH
23141  M01S00096.ns2786  +++|          SOD    T6
23142  M01S00097.ns2786  +++|
23143  M01S00098.ns2786  +++| SCF      SUBR               ENTRY/EXIT
23144  M01S00099.ns2786  +++|          RJM    GCH         GET TENS DIGIT OF YEAR
23145  M01S00100.ns2786  +++|          SBN    1R7
23146  M01S00101.ns2786  +++|          PJN    SCF1        IF YEAR .LE. 1999
23147  M01S00102.ns2786  +++|          LDN    1R0         ZERO FILL FOR NEXT CENTURY
23148  M01S00103.ns2786  +++|          UJN    SCF2        STORE CHARACTER AND RETURN
23149  M00S13931.1mt     +++| SCH      SPACE  4,10
23150  M00S13932.1mt     +++|**        SCH - STORE CHARACTER IN DESTINATION BUFFER.
23151  M00S13933.1mt     +++|*
23152  M00S13934.1mt     +++|*         ENTRY  (A) = CHARACTER.
23153  M00S13935.1mt     +++|*                (T7) = CHARACTER POSITION IN DESTINATION BUFFER.
23154  M00S13936.1mt     +++|*
23155  M00S13937.1mt     +++|*         EXIT   (T7) = INCREMENTED.
23156  M00S13938.1mt     +++|*
23157  M00S13939.1mt     +++|*         USES   T1.
23158  M00S13940.1mt     +++|
23159  M00S13941.1mt     +++|
23160  M00S13942.1mt     +++| SCH1     LDM    -1,T1
23161  M00S13943.1mt     +++|          SCN    77
23162  M00S13944.1mt     +++|          LMD    T0
23163  M00S13945.1mt     +++| SCH2     STM    -1,T1
23164  M00S13946.1mt     +++|
23165  M00S13947.1mt     +++| SCH      SUBR               ENTRY/EXIT
23166  M00S13948.1mt     +++|          LPN    77
23167  M00S13949.1mt     +++|          STD    T0          SAVE CHARACTER
23168  M00S13950.1mt     +++|          AOD    T7          INCREMENT POSITION
23169  M00S13951.1mt     +++|          SHN    21          SET BYTE ADDRESS
23170  M00S13952.1mt     +++|          ADM    DBUF
23171  M00S13953.1mt     +++|          STD    T1
23172  M00S13954.1mt     +++|          SBM    DBUF
23173  M00S13955.1mt     +++|          SHN    -21
23174  M00S13956.1mt     +++|          NJN    SCH1        IF EVEN CHARACTER
23175  M00S13957.1mt     +++|          LDM    -1,T1
23176  M00S13958.1mt     +++|          LPN    77
23177  M00S13959.1mt     +++|          SHN    14
23178  M00S13960.1mt     +++|          LMD    T0
23179  M00S13961.1mt     +++|          SHN    6
23180  M00S13962.1mt     +++|          UJN    SCH2        STORE CHARACTER
23181  M00S13963.1mt     +++| UDA      SPACE  4,10
23182  M00S13964.1mt     +++|**        UDA - UDT ADDRESS OF LABEL PARAMETERS (UUFN)
23183  M00S13965.1mt     +++|*
23184  M00S13966.1mt     +++|*         EXIT   (T1) = WORD COUNT TO WRITE.
23185  M00S13967.1mt     +++|*
23186  M00S13968.1mt     +++|*         CALLS  UAD.
23187  M00S13969.1mt     +++|
23188  M00S13970.1mt     +++|
23189  M00S13971.1mt     +++| UDA      SUBR               ENTRY/EXIT
23190  M00S13972.1mt     +++|          LDN    /MTX/UUDTL
23191  M00S13973.1mt     +++|          STD    T1
23192  M00S13974.1mt     +++|          RJM    UAD
23193  M00S13975.1mt     +++|          ADN    /MTX/UUFN
23194  M00S13976.1mt     +++|          UJN    UDAX        RETURN
23195  M00S13977.1mt     +++| WUD      SPACE  4,10
23196  M00S13978.1mt     +++|**        WUD - WRITE UNIT DESCRIPTOR TABLE.
23197  M00S13979.1mt     +++|*         OPERATION ONLY PERFORMED IF AT MAGNET CP.
23198  M00S13980.1mt     +++|*
23199  M00S13981.1mt     +++|*         CALLS  CEC, UDA.
23200  M00S13982.1mt     +++|
23201  M00S13983.1mt     +++|
23202  M00S13984.1mt     +++| WUD      SUBR               ENTRY/EXIT
23203  M00S13985.1mt     +++|          LDM    CECB
23204  M00S13986.1mt     +++|          LPN    77
23205  M00S13987.1mt     +++|          ZJN    WUD1        IF AT MAGNET CP
23206  M00S13988.1mt     +++|          LDN    0           CHNAGE TO MAGNET CP
23207  M00S13989.1mt     +++|          RJM    CEC
23208  M00S13990.1mt     +++| WUD1     RJM    UDA         GET UDT LABEL ADDRESS ADDRESS
23209  M00S13991.1mt     +++|          CWM    UDTB,T1
23210  M00S13992.1mt     +++|          UJN    WUDX        RETURN
23211  M00S13993.1mt     +++|          SPACE  4,10
23212  M00S13994.1mt     +++|**        ADDRESS RELOCATION.
23213  M00S13995.1mt     +++|
23214  M00S13996.1mt     +++|
23215  M00S13997.1mt     +++| TADD     TSAD               ADDRESS RELOCATION TABLE
23216  M00S13998.1mt     +++|
23217  M00S13999.1mt     +++| PRS      SPACE  4,10
23218  M00S14000.1mt     +++|**        PRS - PRESET.
23219  M00S14001.1mt     +++|*
23220  M00S14002.1mt     +++|*         CALLS  MCH, UDA.
23221  M00S14003.1mt     +++|
23222  M00S14004.1mt     +++|
23223  M00S14005.1mt     +++| PRS      LDC    PRSA        MODIFY CHANNELS
23224  M00S14006.1mt     +++|          RJM    MCH
23225  M00S14007.1mt     +++|          LDC    /SRU/ITCL*100  SET SRU INCREMENT
23226  M00S14008.1mt     +++|          STM    //CECA
Line S14009 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23227  M01S14009.274l797 ---|          LDN    40
Line S05095 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23228  M01S05095.274l797 +++|          LDN    F0040
23229  M00S14010.1mt     +++|          STM    //ITMA
23230  M00S14011.1mt     +++|          LDC    TADD        SET UP FOR ADDRESS RELOCATION
23231  M00S14012.1mt     +++|          STD    CN
23232  M00S14013.1mt     +++|          RJM    UDA
23233  M00S14014.1mt     +++|          CRM    UDTB,T1
23234  M00S14015.1mt     +++|          SBN    /MTX/UUFN+/MTX/UUDTL-/MTX/UCIA
23235  M00S14016.1mt     +++|          CRD    T1          GET FET LENGTH - 5
23236  M00S14017.1mt     +++|          LDD    T1+1
23237  M00S14018.1mt     +++|          SHN    -6
23238  M00S14019.1mt     +++|          RAM    OPFA
23239  M00S14020.1mt     +++|          LJM    PRSX        RETURN
23240  M00S14021.1mt     +++|
23241  M00S14022.1mt     +++|
23242  M00S14023.1mt     +++| PRSA     CHTB               CHANNEL TABLE
23243  M00S14024.1mt     +++|          SPACE  4,10
23244  M00S14025.1mt     +++|          ERROVL
23245  M00S14026.1mt     +++|          SPACE  4,10
23246  M00S14027.1mt     +++|**        BUFFERS.
23247  M00S14028.1mt     +++|
23248  M00S14029.1mt     +++|
23249  M00S14030.1mt     +++| UDTB     EQU    PRSA
23250  M00S14031.1mt     +++| UDTBL    EQU    UDTB+/MTX/UUDTL*5
23251  M00S14032.1mt     +++| BUF      EQU    UDTBL
Line S14033 Modification History
M01 (Removed by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
23252  M01S14033.1mt41   ---|          OVERLAY (TAPE POSITIONING OPERATIONS.),(/READ/OVLS+5)
Line S00014 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
23253  M01S00014.1mt41   +++|          OVERLAY (TAPE POSITIONING OPERATIONS.),(/READ/OVLS+5),,SKP
23254  M00S14034.1mt     +++| SKP      SPACE  4,10
23255  M00S14035.1mt     +++|**        SKP - SKIP.
Line S05096 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23256  M01S05096.274l797 +++|*         THIS ROUTINE SKIPS BLOCKS IN A FORWARD DIRECTION.  *SKP* IS
23257  M01S05097.274l797 +++|*         OVERLAYED BY *SKR* FOR SKIP REVERSE.
23258  M00S14036.1mt     +++|*
Line S14037 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23259  M01S14037.274l797 ---|*         CALLS  DBF, UAD.
Line S05098 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23260  M01S05098.274l797 +++|*         EXIT   TO *RET1* OF NORMAL COMPLETION.
23261  M01S05099.274l797 +++|*                TO *RET2* IF DROP OUT BLOCK COUNT REACHED.
23262  M01S05100.274l797 +++|*                TO *RET3* IF TAPE MARK.
23263  M01S05101.274l797 +++|*
23264  M01S05102.274l797 +++|*         CALLS  DBF, SLL, /READ/RDF, UAD.
23265  M00S14038.1mt     +++|
23266  M00S14039.1mt     +++|
Line S14040 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23267  M01S14040.274l797 ---|          ENTRY  SKP
Line S05103 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23268  M01S05103.274l797 +++|          ENTRY  SKP         FROM *PRS*
23269  M00S14041.1mt     +++| SKP      BSS    0
23270  M00S14042.1mt     +++| .OSKR    EQU    *
23271  M00S14043.1mt     +++|
Line S14044 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23272  M01S14044.274l797 ---| SKP1     LJM    /READ/RDF   READ TAPE
Line S05104 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23273  M01S05104.274l797 +++| SKP1     LDN    0
Line S05105 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23274  M02S05105.1mt48   ---|          STM    SLBC        CLEAR CHUNK COUNT FOR LI FORMAT
Line S00061 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23275  M01S00061.1mt48   +++|          STM    IDFE        CLEAR CHUNK COUNT FOR LI FORMAT
Line S05106 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23276  M01S05106.274l797 +++|          LJM    /READ/RDF   READ TAPE (RETURN AT *SKP2*)
23277  M00S14045.1mt     +++|
Line S14046 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23278  M01S14046.274l797 ---| SKP2     UJN    SKP3        NOT SI FORMAT, 9 TRACK
Line S05107 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23279  M01S05107.274l797 +++| SKP2     UJN    SKP3        NOT SI FORMAT, 9/18 TRACK
23280  M00S14047.1mt     +++| SKPA     EQU    *-1
Line S14048 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23281  M01S14048.274l797 ---|*         LDD    ES          (9 TRACK SI FORMAT)
Line S05108 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23282  M01S05108.274l797 +++|*         LDD    ES          (9/18 TRACK SI FORMAT)
23283  M00S14049.1mt     +++|          LPN    40
23284  M00S14050.1mt     +++|          ZJN    SKP3        IF NO FILL STATUS
23285  M00S14051.1mt     +++|          SOD    BY          ADJUST BYTE COUNT
23286  M00S14052.1mt     +++| SKP3     RJM    DBF         DETERMINE BLOCK TYPE FORWARD
23287  M00S14053.1mt     +++|          AOD    BL+1        INCREMENT BLOCK COUNTER
23288  M00S14054.1mt     +++|          SHN    -14
23289  M00S14055.1mt     +++|          RAD    BL
23290  M00S14056.1mt     +++|          LDD    T2
23291  M00S14057.1mt     +++|          LMN    14
23292  M00S14058.1mt     +++| SKPB     UJN    SKP6        IF NOT TAPE MARK
Line S14059 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23293  M01S14059.274l797 ---|*         NJN    SKP6        (LABELED OR I/SI FORMAT)
Line S05109 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23294  M01S05109.274l797 +++|*         NJN    SKP6        (LABELED OR I/SI/LI FORMAT)
23295  M00S14060.1mt     +++|          SOD    BL+1        ADJUST BLOCK COUNT
23296  M00S14061.1mt     +++|          PJN    SKP4        IF NO UNDERFLOW
23297  M00S14062.1mt     +++|          SOD    BL
23298  M00S14063.1mt     +++|          AOD    BL+1
Line S14064 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23299  M01S14064.ns21000 ---| SKP4     UJN    SKP5        SET TAPE MARK ENCOUNTERED
23300  M01S14065.ns21000 ---|*         LDD    PA          (S,L FORMAT)
23301  M01S14066.ns21000 ---| SKPC     EQU    *-1
23302  M01S14067.ns21000 ---|          SHN    14
23303  M01S14068.ns21000 ---|          ADD    PB
23304  M01S14069.ns21000 ---|          ZJN    SKP5        IF END OF SKIP
23305  M01S14070.ns21000 ---|          SBN    1           DECREMENT SKIP COUNT
23306  M01S14071.ns21000 ---|          STD    PB
23307  M01S14072.ns21000 ---|          SHN    -14
23308  M01S14073.ns21000 ---|          STD    PA
Line S00183 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
23309  M01S00183.ns21000 +++| SKP4     PSN
23310  M01S00184.ns21000 +++|          PSN
Line S00185 Modification History
M01 (Added by) ns21000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23311  M02S00185.274l797 ---|*         RJM    SLL         (S,L FORMAT  LABELED TAPE)
Line S05110 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23312  M01S05110.274l797 +++|*         RJM    SLL         (S,L FORMAT LABELED TAPE)
23313  M00S14074.1mt     +++| SKP5     LDN    /MTX/BEI    SET TAPE MARK ENCOUNTERED
23314  M00S14075.1mt     +++|          LJM    RET3        RETURN ERROR CODE
23315  M00S14076.1mt     +++|
23316  M00S14077.1mt     +++| SKP6     AOD    BT          INCREMENT BLOCKS TRANSFERRED
23317  M00S14078.1mt     +++|          AOD    CN+4        INCREMENT BLOCKS SKIPPED
23318  M00S14079.1mt     +++|          RJM    UAD
23319  M00S14080.1mt     +++|          ADN    /MTX/UBLC
23320  M00S14081.1mt     +++|          CWD    CN
23321  M00S14082.1mt     +++|          LDD    T7
23322  M00S14083.1mt     +++|          NJN    SKP7        IF NOT TERMINATION CONDITION
23323  M00S14084.1mt     +++|          LDD    PA
23324  M00S14085.1mt     +++|          SHN    14
23325  M00S14086.1mt     +++|          ADD    PB
23326  M00S14087.1mt     +++|          ZJN    SKP10       IF END OF SKIP
23327  M00S14088.1mt     +++|          SBN    1
23328  M00S14089.1mt     +++|          ZJN    SKP10       IF END OF SKIP
23329  M00S14090.1mt     +++|          STD    PB
23330  M00S14091.1mt     +++|          SHN    -14
23331  M00S14092.1mt     +++|          STD    PA
23332  M00S14093.1mt     +++| SKP7     LDD    CN+4
23333  M00S14094.1mt     +++|          ADC    -SBLK
23334  M00S14095.1mt     +++|          MJN    SKP8        IF NOT TIME TO CHECK ERROR FLAG
23335  M00S14096.1mt     +++|          LDD    TH
23336  M00S14097.1mt     +++|          RAD    PA
23337  M00S14098.1mt     +++|          UJN    SKP11       RETURN STATUS TO *MAGNET*
23338  M00S14099.1mt     +++|
23339  M00S14100.1mt     +++| SKP8     LDD    DF          CHECK DROP OUT FLAG
23340  M00S14101.1mt     +++|          NJN    SKP9        IF DROP OUT SET
23341  M00S14102.1mt     +++|          LJM    SKP1        READ TAPE
23342  M00S14103.1mt     +++|
23343  M00S14104.1mt     +++| SKP9     LJM    RET2        REQUEUE
23344  M00S14105.1mt     +++|
23345  M00S14106.1mt     +++| SKP10    LDM    LNUM        SET OPERATION COMPLETE
23346  M00S14107.1mt     +++|          SHN    2
23347  M00S14108.1mt     +++|          STD    PA
23348  M00S14109.1mt     +++| SKPD     LDD    T2          SET EOR/EOF STATUS
23349  M00S14110.1mt     +++|*         LDN    0           (PRU SKIP)
23350  M00S14111.1mt     +++|          LPN    10
23351  M00S14112.1mt     +++| SKPE     ADN    20
23352  M00S14113.1mt     +++|*         PSN                (READSKP OR PRU SKIP)
23353  M00S14114.1mt     +++|          ADM    CIOE        MERGE IN CIO CODE
23354  M00S14115.1mt     +++|          LPC    774
23355  M00S14116.1mt     +++|          STD    PB
Line S14117 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23356  M01S14117.282l826 ---|          LDC    2000        SET EOR/EOF FLAG
23357  M01S14118.282l826 ---|          RAD    HP
Line S01271 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23358  M01S01271.282l826 +++|          LDN    10          SET EOR/EOF FLAG
23359  M01S01272.282l826 +++|          RAD    UP
23360  M00S14119.1mt     +++| SKP11    LJM    RET1        RETURN
23361  M00S14120.1mt     +++|
Line S00186 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23362  M02S00186.v23l617 ---|          BSS    5
Line S00364 Modification History
M01 (Added by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23363  M02S00364.282l826 ---|          BSS    5
Line S01273 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23364  M01S01273.282l826 +++|          BSS    6
23365  M00S14121.1mt     +++| .OSKRL   EQU    *
Line S14122 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23366  M01S14122.274l797 ---|          SPACE  4,10
Line S05111 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23367  M01S05111.274l797 +++| DBF      SPACE  4,10
23368  M00S14123.1mt     +++|**        DBF - DETERMINE BLOCK TYPE FORWARD.
23369  M00S14124.1mt     +++|*
23370  M00S14125.1mt     +++|*         EXIT   (A) = (T7) = 0, IF TERMINATION MET.
23371  M00S14126.1mt     +++|*                (T2) = TERMINATION STATUS.
23372  M00S14127.1mt     +++|*
Line S14128 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23373  M01S14128.274l797 ---|*         CALLS  IDF, *REM*, UBW, VDA.
Line S05112 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23374  M02S05112.1mt48   ---|*         USES   T1.
Line S00062 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23375  M01S00062.1mt48   +++|*         USES   BL, BL+1, T1, T2, T7.
Line S05113 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23376  M01S05113.274l797 +++|*
23377  M01S05114.274l797 +++|*         CALLS  *CRE*, IDF, *REM*, UBW, VDA.
23378  M00S14129.1mt     +++|*
23379  M00S14130.1mt     +++|*         MACROS CALL.
23380  M00S14131.1mt     +++|
23381  M00S14132.1mt     +++|
23382  M00S14133.1mt     +++| DBF      SUBR               ENTRY/EXIT
23383  M00S14134.1mt     +++|          LDM    BUF-1,BY    SAVE LEVEL NUMBER
Line S14135 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23384  M01S14135.274l797 ---|          STM    IDFB
23385  M01S14136.274l797 ---| DBFA     RJM    VDA         VALIDATE DATA I FORMAT
Line S05115 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14137.1mt     +++|*         PSN                ALL OTHER FORMATS
23391  M00S14138.1mt     +++|*         PSN
23392  M00S14139.1mt     +++|          LDD    EP
23393  M00S14140.1mt     +++|          LPN    77
23394  M00S14141.1mt     +++|          SHN    14
23395  M00S14142.1mt     +++|          LMD    EC
23396  M00S14143.1mt     +++|          ZJN    DBF5        IF NO ERROR
23397  M00S14144.1mt     +++|          LMN    /MTX/BEI
23398  M00S14145.1mt     +++|          NJN    DBF2        IF NOT TAPE MARK
23399  M00S14146.1mt     +++|          LDN    1           SET TAPE MARK INDICATION
23400  M00S14147.1mt     +++| DBF1     STM    UBWB
Line S05119 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23401  M01S05119.274l797 +++| DBFC     EQU    *-2
23402  M01S05120.274l797 +++|*         UJN    DBF5        (CTS)
23403  M00S14148.1mt     +++|          RJM    UBW         UPDATE BID WINDOW
23404  M00S14149.1mt     +++|          UJN    DBF5        SKIP ERROR PROCESSOR CALL
23405  M00S14150.1mt     +++|
23406  M00S14151.1mt     +++| DBF2     LMN    /MTX/STE&/MTX/BEI
23407  M00S14152.1mt     +++|          NJN    DBF3        IF NOT STATUS ERROR
Line S14153 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
23408  M01S14153.241l630 ---| DBFB     LDN    0
23409  M01S14154.241l630 ---|*         LDN    1           (PO=N OR MTX/ATS SKIPEI OR POSMF)
23410  M01S14155.241l630 ---|          ZJN    DBF3        IF PROCESS ERRORS
23411  M01S14156.241l630 ---|          LDN    4           SET UNUSEABLE BID
23412  M01S14157.241l630 ---|          UJN    DBF1        UPDATE BID WINDOW
Line S00001 Modification History
M01 (Added by) 241l630
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23413  M02S00001.274l797 ---| DBFB     UJN    DBF3        PROCESS ERRORS
Line S05121 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23414  M01S05121.274l797 +++| DBFD     UJN    DBF3        PROCESS ERRORS
Line S00002 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
23415  M01S00002.241l630 +++|*         LDN    4           (PO=N OR MTX/ATS SKIPEI OR POSMF)
23416  M01S00003.241l630 +++|          UJN    DBF1        SET UNUSABLE BID
23417  M00S14158.1mt     +++|
23418  M00S14159.1mt     +++| DBF3     UJN    DBF4        LOAD READ ERROR PROCESSOR
Line S14160 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23419  M01S14160.274l797 ---| DBFC     EQU    *-1
Line S05122 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23420  M01S05122.274l797 +++| DBFE     EQU    *-1
23421  M00S14161.1mt     +++|*         AOD    BL+1        INCREMENT BLOCK COUNT (SKIP BACK)
23422  M00S14162.1mt     +++|          SHN    -14
23423  M00S14163.1mt     +++|          RAD    BL
Line S05123 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23424  M01S05123.274l797 +++| DBFF     BSS    0
23425  M01S05124.274l797 +++|*         CALL   CRE         LOAD ERROR PROCESSOR (CTS)
23426  M00S14164.1mt     +++| DBF4     CALL   REM         LOAD READ ERROR PROCESSOR
23427  M00S14165.1mt     +++|          UJN    DBF5        FORWARD SKIP
23428  M00S14166.1mt     +++|*         SOD    BL+1        (REVERSE SKIP - DECREMENT BLOCK COUNT)
Line S14167 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23429  M01S14167.274l797 ---| DBFD     EQU    *-1
Line S05125 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23430  M01S05125.274l797 +++| DBFG     EQU    *-1
23431  M00S14168.1mt     +++|          PJN    DBF5        IF NO UNDERFLOW
23432  M00S14169.1mt     +++|          AOD    BL+1
23433  M00S14170.1mt     +++|          SOD    BL
23434  M00S14171.1mt     +++| DBF5     RJM    IDF         PROCESS INTERNAL DATA FORMAT
23435  M00S14172.1mt     +++|          STD    T2          SAVE STATUS
23436  M00S14173.1mt     +++|          LDD    MD
Line S14174 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23437  M01S14174.274l797 ---| DBFE     LPN    10          (S, L, F FORMAT)
23438  M01S14175.274l797 ---|*         LPN    14          (I, SI FORMAT)
Line S05126 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23439  M01S05126.274l797 +++| DBFH     LPN    10          (S, L, F FORMAT)
23440  M01S05127.274l797 +++|*         LPN    14          (I, SI, LI FORMAT)
23441  M00S14176.1mt     +++|          ZJN    DBF6        IF PRU OPERATION
23442  M00S14177.1mt     +++|          STD    T1
23443  M00S14178.1mt     +++|          LDD    T2          DETERMINE IF TERMINATION MET
23444  M00S14179.1mt     +++|          SBD    T1
23445  M00S14180.1mt     +++|          MJN    DBF6        IF TERMINATION NOT MET
23446  M00S14181.1mt     +++|          LDD    T1
23447  M00S14182.1mt     +++|          LMN    4
23448  M00S14183.1mt     +++|          NJN    DBF6        IF NOT EOR
23449  M00S14184.1mt     +++|          LDM    LNUM
Line S14185 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23450  M01S14185.274l797 ---| DBFF     SBN    0           LEVEL NUMBER
Line S05128 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23451  M01S05128.274l797 +++| DBFI     SBN    0           LEVEL NUMBER
23452  M00S14186.1mt     +++| DBF6     SHN    -21         SET TERMINATION FLAG
23453  M00S14187.1mt     +++|          STD    T7
23454  M00S14188.1mt     +++|          LJM    DBFX        RETURN
23455  M00S14189.1mt     +++| DBR      SPACE  4,10
Line S00365 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23456  M01S00365.v23l617 +++|
Line S00366 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23457  M02S00366.274l797 ---|*         THE FOLLOWING CODE GETS OVERLAID IF GCR
23458  M02S00367.274l797 ---|*         SKIP REVERSE ON ISMT CONTROLLER.
Line S05129 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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.
Line S00368 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23461  M01S00368.v23l617 +++|
23462  M01S00369.v23l617 +++| .DBRR    EQU    *
23463  M01S00370.v23l617 +++|
23464  M00S14190.1mt     +++|**        DBR - DETERMINE BLOCK TYPE REVERSE.
Line S05131 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23465  M01S05131.274l797 +++|*
23466  M01S05132.274l797 +++|*         USES   CM - CM+4.
23467  M00S14191.1mt     +++|*
23468  M00S14192.1mt     +++|*         CALLS  DBF.
23469  M00S14193.1mt     +++|
23470  M00S14194.1mt     +++|
23471  M00S14195.1mt     +++| DBR2     RJM    DBF         DETERMINE BLOCK TYPE FORWARD
23472  M00S14196.1mt     +++|
23473  M00S14197.1mt     +++| DBR      SUBR               ENTRY/EXIT
Line S14198 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23474  M01S14198.282l826 ---| DBRA     UJN    DBR2        DO NOT SET LEVEL NUMBER IF NOT I/SI
23475  M01S14199.282l826 ---|*         LDD    BY          (I/SI FORMAT)
Line S01274 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23476  M01S01274.282l826 +++| DBRA     UJN    DBR2        DETERMINE BLOCK TYPE
23477  M01S01275.282l826 +++|*         LDD    BY          (USING READ REVERSE)
23478  M00S14200.1mt     +++|          ZJN    DBR2        IF NO DATA READ
23479  M00S14201.1mt     +++|
23480  M00S14202.1mt     +++|*         THE FOLLOWING CODE GETS OVERLAID IF 9 TRACK SI
23481  M00S14203.1mt     +++|*         FORMAT SKIP REVERSE OPERATION OR IF MTS 9 TRACK, I
23482  M00S14204.1mt     +++|*         FORMAT SKIP REVERSE.
23483  M00S14205.1mt     +++|
23484  M00S14206.1mt     +++| .DBRO    EQU    *           BEGINNING OF OVERLAID AREA
23485  M00S14207.1mt     +++|
23486  M00S14208.1mt     +++|          LDC    BUF
23487  M00S14209.1mt     +++|          STM    DBRC
23488  M00S14210.1mt     +++|          LDD    WC
23489  M00S14211.1mt     +++|          LPN    1
23490  M00S14212.1mt     +++| DBRB     UJN    DBR1        DO NOT SKIP FIRST BYTE
23491  M00S14213.1mt     +++|*         ZJN    DBR1        (9 TRACK I FORMAT - IF EVEN WORD COUNT)
23492  M00S14214.1mt     +++|          AOM    DBRC        SKIP FIRST BYTE (I FORMAT)
23493  M00S14215.1mt     +++| DBR1     LDD    MA          SAVE FIRST FOUR BYTES
23494  M00S14216.1mt     +++|          CWM    BUF,ON
23495  M00S14217.1mt     +++| DBRC     EQU    *-1
23496  M00S14218.1mt     +++|          SBN    1
23497  M00S14219.1mt     +++|          CRD    CM
23498  M00S14220.1mt     +++|          LDD    CM          STORE LAST FOUR BYTES
23499  M00S14221.1mt     +++|          STM    BUF-1,BY
23500  M00S14222.1mt     +++|          LDD    CM+1
23501  M00S14223.1mt     +++|          STM    BUF-2,BY
23502  M00S14224.1mt     +++|          LDD    CM+2
23503  M00S14225.1mt     +++|          STM    BUF-3,BY
23504  M00S14226.1mt     +++|          LDD    CM+3
23505  M00S14227.1mt     +++|          STM    BUF-4,BY
23506  M00S14228.1mt     +++|          LJM    DBR2        DETERMINE BLOCK TYPE FORWARD
23507  M00S14229.1mt     +++|
23508  M00S14230.1mt     +++| .DBROL   EQU    *-.DBRO     LENGTH OF OVERLAID AREA
Line S00371 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23509  M02S00371.274l797 ---| .DBRRL   EQU    *-.DBRR     LENGTH OF OVERLAID AREA (GCR ISMT)
Line S05133 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23510  M01S05133.274l797 +++| .DBRRL   EQU    *-.DBRR     LENGTH OF OVERLAID AREA
23511  M00S14231.1mt     +++| IDF      SPACE  4,10
23512  M00S14232.1mt     +++|**        IDF - PROCESS INTERNAL DATA FORMAT.
23513  M00S14233.1mt     +++|*
23514  M00S14234.1mt     +++|*         EXIT   (A) = TERMINATION STATUS.
Line S05134 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23515  M01S05134.274l797 +++|*
23516  M01S05135.274l797 +++|*         CALLS  CFP.
23517  M00S14235.1mt     +++|
23518  M00S14236.1mt     +++|
23519  M00S14237.1mt     +++| IDF2     LDN    17          SET LEVEL 17
23520  M00S14238.1mt     +++|          STM    LNUM
23521  M00S14239.1mt     +++|          LDN    14          RETURN EOI
23522  M00S14240.1mt     +++|
23523  M00S14241.1mt     +++| IDF      SUBR               ENTRY/EXIT
23524  M00S14242.1mt     +++|          LDD    EC
23525  M00S14243.1mt     +++|          LMN    /MTX/BEI
23526  M00S14244.1mt     +++|          ZJN    IDF2        IF TAPE MARK
23527  M00S14245.1mt     +++|          LDD    BY
Line S00063 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23528  M01S00063.1mt48   +++|          ADC    0
23529  M01S00064.1mt48   +++| IDFE     EQU    *-1         (LI FORMAT CHUNK COUNT)
23530  M00S14246.1mt     +++|          ZJN    IDF2        IF NO BYTES READ
23531  M00S14247.1mt     +++|          LMM    /READ/MRDA
Line S05136 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23532  M01S05136.274l797 +++| IDFA     EQU    *-1
23533  M01S05137.274l797 +++|*         RJM    CFP         (LI FORMAT)
23534  M01S05138.274l797 +++|*         LMM    /READ/RCTA  (CTS)
23535  M00S14248.1mt     +++|          LMN    1
23536  M00S14249.1mt     +++|          STM    LNUM        SET 0 LEVEL NUMBER
Line S14250 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23537  M01S14250.274l797 ---| IDFA     ZJN    IDFX        IF FULL PRU
23538  M01S14251.274l797 ---|*         PSN                (NOT I/SI FORMAT)
Line S05139 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23539  M01S05139.274l797 +++| IDFB     ZJN    IDFX        IF FULL PRU
23540  M01S05140.274l797 +++|*         PSN                (NOT I/SI/LI FORMAT)
23541  M00S14252.1mt     +++|          LDC    *           EXTRACT LEVEL NUMBER
Line S14253 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23542  M01S14253.274l797 ---| IDFB     EQU    *-1
Line S05141 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23543  M01S05141.274l797 +++| IDFC     EQU    *-1
23544  M00S14254.1mt     +++|          LPN    77
Line S14255 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23545  M01S14255.274l797 ---| IDFC     LDN    0           (NOT I/SI FORMAT)
23546  M01S14256.274l797 ---|*         PSN                (I/SI FORMAT)
Line S05142 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23547  M01S05142.274l797 +++| IDFD     LDN    0           (NOT I/SI/LI FORMAT)
23548  M01S05143.274l797 +++|*         PSN                (I/SI/LI FORMAT)
23549  M00S14257.1mt     +++|          STM    LNUM
23550  M00S14258.1mt     +++|          LMN    17
23551  M00S14259.1mt     +++|          ZJN    IDF1        IF EOF
23552  M00S14260.1mt     +++|          LCN    4
23553  M00S14261.1mt     +++| IDF1     ADN    10
23554  M00S14262.1mt     +++|          UJN    IDFX        RETURN
23555  M00S14263.1mt     +++| VDA      SPACE  4,10
23556  M00S14264.1mt     +++|**        VDA - VALIDATE DATA.
Line S14265 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23557  M01S14265.274l797 ---|*         CHECKS I FORMAT TRAILER BYTES.
Line S05144 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14266.1mt     +++|
23561  M00S14267.1mt     +++|
23562  M00S14268.1mt     +++| VDA      SUBR               ENTRY/EXIT
23563  M00S14269.1mt     +++|          LDD    BY
23564  M00S14270.1mt     +++|          ZJN    VDAX        IF NO DATA READ
23565  M00S14271.1mt     +++|          LDD    EC
23566  M00S14272.1mt     +++|          ZJN    VDA1        IF NO PREVIOUS ERRORS ENCOUNTERED
23567  M00S14273.1mt     +++|          LMN    /MTX/STE
23568  M00S14274.1mt     +++|          NJN    VDAX        IF NOT STATUS ERROR CODE
Line S05146 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23574  M01S14275.274l797 ---|          LDM    MTDS
23575  M01S14276.274l797 ---|          LPC    7777
23576  M01S14277.274l797 ---| VDAA     EQU    *-1
23577  M00S14278.1mt     +++|*         LPC    7077        (MTS UNIT)
23578  M00S14279.1mt     +++|          NJN    VDAX        IF ERRORS REPORTED FROM HARDWARE
23579  M00S14280.1mt     +++| VDA1     LDD    EP
23580  M00S14281.1mt     +++|          SHN    21-12
23581  M00S14282.1mt     +++|          MJN    VDAX        IF OPPOSITE PARITY BEING TRIED
23582  M00S14283.1mt     +++|          LDM    BUF-4,BY    SAVE BLOCK LENGTH
23583  M00S14284.1mt     +++|          STM    //BNEI
23584  M00S14285.1mt     +++|          LDM    BUF-3,BY
23585  M00S14286.1mt     +++|          STM    //BNEI+1
23586  M00S14287.1mt     +++|          LMD    BL
23587  M00S14288.1mt     +++|          SHN    14
23588  M00S14289.1mt     +++|          LMM    BUF-2,BY
23589  M00S14290.1mt     +++|          STM    //BNEI+2
23590  M00S14291.1mt     +++|          LMD    BL+1
Line S14292 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23591  M01S14292.274l797 ---|          NJN    VDA2        IF BLOCK NUMBER ERROR
23592  M01S14293.274l797 ---|          LDM    //BNEI
23593  M01S14294.274l797 ---|          LMD    BY
23594  M01S14295.274l797 ---|          ZJN    VDA3        IF CORRECT BLOCK LENGTH
23595  M01S14296.274l797 ---| VDA2     LDN    /MTX/BNE
Line S05151 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23596  M01S05151.274l797 +++|          ZJN    VDA2        IF BLOCK NUMBER CORRECT
23597  M01S05152.274l797 +++|          LDN    /MTX/BNE
23598  M00S14297.1mt     +++|          STD    EC
Line S14298 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23599  M01S14298.274l797 ---| VDA3     LJM    VDAX        RETURN
Line S05153 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23600  M01S05153.274l797 +++| VDA2     LJM    VDAX        RETURN
23601  M00S14299.1mt     +++|          SPACE  4,10
23602  M00S14300.1mt     +++|          BUFFER
Line S14301 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23603  M01S14301.274l797 ---|          TITLE  SKIP LONG BLOCKS.
Line S05154 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23604  M02S05154.1mt48   ---|          BSS    6           SO *VLI* DOES NOT OVERFLOW
Line S00065 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23605  M01S00065.1mt48   +++|          BSS    7           SO *VLI* DOES NOT OVERFLOW
Line S05155 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23610  M02S05159.1mt48   ---|*         ENTRY  (SLBC) = NUMBER OF FULL 2400-BYTE CHUNKS READ.
Line S00066 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23611  M01S00066.1mt48   +++|*         ENTRY  (BUFB - BUFB+4) = LI FORMAT BLOCK PREFIX.
Line S05160 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23617  M02S05165.1mt48   ---|          LDM    SLBC
23618  M02S05166.1mt48   ---|          SBN    20
23619  M02S05167.1mt48   ---|          NJN    CFPX        IF NOT FULL PRU
23620  M02S05168.1mt48   ---|          LDD    BY
23621  M02S05169.1mt48   ---|          ADC    -2376
Line S00067 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
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
Line S05170 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23626  M01S05170.274l797 +++|          UJN    CFPX        RETURN
23627  M00S14302.1mt     +++| SLB      SPACE  4,10
23628  M00S14303.1mt     +++|**        SLB - SKIP LONG BLOCK.
Line S05171 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14304.1mt     +++|
23636  M00S14305.1mt     +++|
Line S14306 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23637  M01S14306.274l797 ---| SLB      LDN    2           INPUT 2 BYTES
Line S05177 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23638  M01S05177.274l797 +++| SLB      PSN                MAKE ROUTINE AS LONG AS *SLI*
23639  M01S05178.274l797 +++|          LDN    2           INPUT 2 BYTES
23640  M00S14307.1mt     +++|          IAM    BUFB,CH
23641  M00S14308.1mt     +++|          LCN    0
23642  M00S14309.1mt     +++|          STD    T2
23643  M00S14310.1mt     +++| SLB1     LDC    400         INPUT DATA
23644  M00S14311.1mt     +++|          IAM    BUFB,CH
Line S14312 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23645  M01S14312.274l797 ---|          NJN    SLB2        IF END OF BLOCK
Line S05179 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23646  M01S05179.274l797 +++|          NJN    SLB3        IF END OF BLOCK
23647  M00S14313.1mt     +++|          SOD    T2
23648  M00S14314.1mt     +++|          NJN    SLB1        IF NOT BLOCK TOO LONG
Line S14315 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23649  M01S14315.274l797 ---|          LDN    /MTX/BTL    BLOCK TOO LARGE
23650  M01S14316.274l797 ---|          LJM    /READ/MRD5  MASTER CLEAR CHANNEL
Line S05180 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14317.1mt     +++|
Line S14318 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23656  M01S14318.274l797 ---| SLB2     STD    T1
23657  M01S14319.274l797 ---|          LJM    /READ/MRD6  CALCULATE REMAINDER OF CM WORD COUNT
Line S05184 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23661  M02S05187.1mt48   ---|
23662  M02S05188.1mt48   ---|
23663  M02S05189.1mt48   ---| SLBC     DATA   0           CHUNK COUNT FOR LI FORMAT
23664  M00S14320.1mt     +++|          SPACE  4,10
23665  M00S14321.1mt     +++|          BUFFER BUFB
23666  M00S14322.1mt     +++| SKR      SPACE  4,10
23667  M00S14323.1mt     +++|**        SKR - SKIP REVERSE.
Line S05190 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23668  M01S05190.274l797 +++|*         THE FOLLOWING CODE OVERLAYS *SKP* IF THE OPERATION IS
23669  M01S05191.274l797 +++|*         SKIP REVERSE.
23670  M00S14324.1mt     +++|*
Line S14325 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23671  M01S14325.274l797 ---|*         THE FOLLOWING CODE GETS MOVED TO .OSKR
23672  M01S14326.274l797 ---|*         IF THE OPERATION IS SKIP REVERSE.
Line S05192 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23673  M01S05192.274l797 +++|*         EXIT   TO *RET1* IF NORMAL COMPLETION.
23674  M01S05193.274l797 +++|*                TO *RET2* TO REQUEUE.
23675  M00S14327.1mt     +++|*
Line S14328 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23676  M01S14328.274l797 ---|*         CALLS DBR, UAD.
Line S05194 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23677  M01S05194.274l797 +++|*         CALLS  BKS, DBF, DBR, /READ/RDF, UAD.
23678  M00S14329.1mt     +++|
23679  M00S14330.1mt     +++|
23680  M00S14331.1mt     +++| .BSKR    BSS    0
23681  M00S14332.1mt     +++|          LOC    .OSKR
Line S14333 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23682  M01S14333.274l797 ---|
Line S14334 Modification History
M01 (Removed by) ns2678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23683  M02S14334.274l797 ---| SKR      LDD    BL
23684  M02S14335.274l797 ---|          ADD    BL+1
23685  M02S14336.274l797 ---|          NJN    SKR3        IF NOT BOI
23686  M02S14337.274l797 ---|          LDD    MD
23687  M02S14338.274l797 ---|          SHN    21-11
23688  M02S14339.274l797 ---|          PJN    SKR1        IF FIRST PASS
23689  M02S14340.274l797 ---|          LDD    PA
23690  M02S14341.274l797 ---|          SHN    14
23691  M02S14342.274l797 ---|          ADD    PB
23692  M02S14343.274l797 ---|          LMN    1
23693  M02S14344.274l797 ---|          ZJN    SKR2        IF END OF SKIP
23694  M02S14345.274l797 ---| SKR1     LDN    50
23695  M02S14346.274l797 ---| SKR2     ADN    1
23696  M02S14347.274l797 ---|          STD    PB
23697  M02S14348.274l797 ---|          LDN    0
23698  M02S14349.274l797 ---|          STD    PA
23699  M02S14350.274l797 ---|          LJM    RET1        RETURN
23700  M02S14351.274l797 ---|
Line S14352 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2678
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23701  M03S14352.274l797 ---| SKR3     LJM    /READ/RDF   READ TAPE
Line S00372 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2678
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23702  M03S00372.274l797 ---| SKR3     PSN
23703  M03S00373.274l797 ---|          PSN
23704  M03S00374.274l797 ---|*         RJM    BKS         (GCR ISMT)
23705  M03S00375.274l797 ---|          LJM    /READ/RDF   READ TAPE
23706  M03S00376.274l797 ---|
Line S14353 Modification History
M01 (Removed by) ns2678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23707  M02S14353.274l797 ---|
Line S00001 Modification History
M01 (Added by) ns2678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23708  M02S00001.274l797 ---|*         ENTER HERE FROM *RDF* CALL IN *SKR3*.
23709  M02S00002.274l797 ---|
Line S14354 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23710  M01S14354.274l797 ---| SKR4     UJN    SKR5        NOT SI FORMAT, 9 TRACK
Line S05195 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23711  M01S05195.274l797 +++| SKR4     UJN    SKR5        NOT SI FORMAT, 9/18 TRACK
23712  M00S14355.1mt     +++| SKRA     EQU    *-1
Line S14356 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23713  M01S14356.274l797 ---|*         LDD    ES          (9 TRACK SI FORMAT)
Line S05196 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23714  M01S05196.274l797 +++|*         LDD    ES          (9/18 TRACK SI FORMAT)
23715  M00S14357.1mt     +++|          LPN    40
23716  M00S14358.1mt     +++|          ZJN    SKR5        IF NO FILL STATUS
23717  M00S14359.1mt     +++|          SOD    BY          ADJUST BYTE COUNT
23718  M00S14360.1mt     +++|          SOD    WC          ADJUST WORD COUNT
23719  M00S14361.1mt     +++| SKR5     SOD    BL+1        DECREMENT BLOCK COUNT
23720  M00S14362.1mt     +++|          PJN    SKR6        IF NO UNDERFLOW
23721  M00S14363.1mt     +++|          AOD    BL+1
23722  M00S14364.1mt     +++|          SOD    BL
23723  M00S14365.1mt     +++| SKR6     RJM    DBR         DETERMINE BLOCK TYPE REVERSE
Line S00377 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23724  M01S00377.v23l617 +++| SKRB     EQU    *-1
Line S00378 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23725  M02S00378.274l797 ---|*         RJM    DBF         (GCR ISMT)
Line S05197 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23726  M01S05197.274l797 +++|*         RJM    DBF         (GCR ISMT OR CTS)
Line S00379 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23727  M01S00379.v23l617 +++| SKRC     PSN
23728  M01S00380.v23l617 +++|          PSN
Line S00381 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23729  M02S00381.274l797 ---|*         RJM    BKS         (GCR ISMT)
Line S05198 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23730  M01S05198.274l797 +++|*         RJM    BKS         (GCR ISMT OR CTS)
23731  M00S14366.1mt     +++|          LDD    MD
23732  M00S14367.1mt     +++|          SHN    21-11
23733  M00S14368.1mt     +++|          MJN    SKR7        IF NOT FIRST PASS
23734  M00S14369.1mt     +++|          LDD    TH          SET NOT FIRST PASS FLAG
23735  M00S14370.1mt     +++|          RAD    MD
23736  M00S14371.1mt     +++|          UJN    SKR8        CHECK FOR DROP OUT
23737  M00S14372.1mt     +++|
23738  M00S14373.1mt     +++| SKR7     AOD    BT          INCREMENT BLOCKS TRANSFERRED
23739  M00S14374.1mt     +++|          AOD    CN+4        INCREMENT BLOCKS SKIPPED
23740  M00S14375.1mt     +++|          RJM    UAD
23741  M00S14376.1mt     +++|          ADN    /MTX/UBLC
23742  M00S14377.1mt     +++|          CWD    CN
23743  M00S14378.1mt     +++|          LDD    T7
23744  M00S14379.1mt     +++|          NJN    SKR8        IF TERMINATION NOT MET
23745  M00S14380.1mt     +++|          LDD    PA          CHECK SKIP TERMINATION
23746  M00S14381.1mt     +++|          SHN    14
23747  M00S14382.1mt     +++|          ADD    PB
Line S14383 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23748  M01S14383.v23l617 ---|          ZJN    SKR10       IF END OF SKIP
23749  M00S14384.1mt     +++|          SBN    1
Line S14385 Modification History
M01 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23750  M01S14385.ns2678  ---|          ZJN    SKR10       IF END OF SKIP
Line S00003 Modification History
M01 (Added by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23751  M01S00003.ns2678  +++|          ZJN    SKR9        IF END OF SKIP
23752  M00S14386.1mt     +++|          STD    PB          UPDATE SKIP COUNT
23753  M00S14387.1mt     +++|          SHN    -14
23754  M00S14388.1mt     +++|          STD    PA
23755  M00S14389.1mt     +++| SKR8     LDD    CN+4
23756  M00S14390.1mt     +++|          ADC    -SBLK
Line S14391 Modification History
M01 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23757  M01S14391.ns2678  ---|          MJN    SKR9        IF NOT TIME TO CHECK ERROR FLAG
Line S00004 Modification History
M01 (Added by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23758  M01S00004.ns2678  +++|          MJN    SKR11       IF NOT TIME TO CHECK ERROR FLAG
23759  M00S14392.1mt     +++|          LDD    TH          SET CHECK ERROR FLAG INDICATOR
23760  M00S14393.1mt     +++|          RAD    PA
Line S14394 Modification History
M01 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23761  M01S14394.ns2678  ---|          LJM    RET1        RETURN STATUS TO *MAGNET*
Line S00005 Modification History
M01 (Added by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14395.1mt     +++|
Line S14396 Modification History
M01 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23776  M01S14396.ns2678  ---| SKR9     LDD    DF          CHECK DROP OUT FLAG
23777  M01S14397.ns2678  ---|          NJN    SKR11       IF DROP OUT SET
23778  M01S14398.ns2678  ---|          LJM    SKR         READ TAPE
23779  M01S14399.ns2678  ---|
Line S14400 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23780  M02S14400.ns2678  ---| SKR10    STD    PA          CLEAR PARAMETER
23781  M02S14401.ns2678  ---|          LDD    MD          CLEAR REVERSE AND RECORD FLAGS
Line S00382 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23782  M02S00382.ns2678  ---| SKR10    LDD    MD          CLEAR REVERSE AND RECORD FLAGS
Line S14402 Modification History
M01 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23783  M01S14402.ns2678  ---|          LPC    3763
23784  M01S14403.ns2678  ---|          STD    MD
Line S14404 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23785  M02S14404.ns2678  ---|          LDN    1           SET TO SKIP BACK OVER 1 BLOCK
23786  M02S14405.ns2678  ---|          STD    PB
Line S00383 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23787  M02S00383.ns2678  ---|*         LDN    1           SET TO SKIP BACK OVER 1 BLOCK
23788  M02S00384.ns2678  ---|*         STD    PB
23789  M02S00385.ns2678  ---|*         LDN    0
23790  M02S00386.ns2678  ---|*         STD    PA          CLEAR PARAMETER
Line S14406 Modification History
M01 (Removed by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
23791  M01S14406.ns2678  ---| SKR11    LJM    RET2        REQUEUE
Line S00018 Modification History
M01 (Added by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23795  M02S00021.274l797 ---| SKR      BSS    0           ENTRY/REENTRY FROM *SKR11*
Line S05199 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23796  M01S05199.274l797 +++| SKR      BSS    0           ENTRY
Line S00022 Modification History
M01 (Added by) ns2678
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23817  M02S00042.274l797 ---|*         RJM    BKS         (GCR ISMT)
Line S05200 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23818  M01S05200.274l797 +++|*         RJM    BKS         (GCR ISMT OR CTS)
Line S00043 Modification History
M01 (Added by) ns2678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23819  M02S00043.274l797 ---|          LJM    /READ/RDF   READ TAPE
Line S05201 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23820  M01S05201.274l797 +++|          LDN    0
Line S05202 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23821  M02S05202.1mt48   ---|          STM    SLBC        CHUNKS TRANSFERRED FOR LI FORMAT
Line S00071 Modification History
M01 (Added by) 1mt48
Seq #  *Modification Id* Act 
----------------------------+
23822  M01S00071.1mt48   +++|          STM    IDFE        CHUNKS TRANSFERRED FOR LI FORMAT
Line S05203 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23823  M01S05203.274l797 +++|          LJM    /READ/RDF   READ TAPE (RETURN AT *SKR4)
23824  M00S14407.1mt     +++|
23825  M00S14408.1mt     +++|          ERRNG  .OSKRL-*    OVERLAID CODE OVERFLOWED
23826  M00S14409.1mt     +++|
23827  M00S14410.1mt     +++|          LOC    *O
23828  M00S14411.1mt     +++| .BSKRL   EQU    *
23829  M00S14412.1mt     +++| PRS      SPACE  4,10
23830  M00S14413.1mt     +++|**        PRS - PRESET.
Line S14414 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23831  M01S14414.274l797 ---|*
Line S05204 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23836  M01S14415.274l797 ---|*         CALLS  MCH, UAD.
Line S05208 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14416.1mt     +++|
23846  M00S14417.1mt     +++|
Line S14418 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23847  M01S14418.v23l617 ---| PRS      LDD    FM
Line S00387 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23848  M02S00387.274l797 ---| PRS      LDN    0           CLEAR ISMT GCR FLAG
Line S05216 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23849  M01S05216.274l797 +++| PRS      LDN    0           CLEAR READ BACKWARDS FLAG
Line S00388 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23850  M01S00388.v23l617 +++|          STM    /READ/ISKR
Line S00389 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23851  M02S00389.274l797 ---|          LDD    FM
Line S05217 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00015 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
23874  M01S00015.1mt41   +++|          LDD    FM
Line S01276 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23875  M01S01276.282l826 +++|          SHN    -6
Line S00016 Modification History
M01 (Added by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
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
Line S05239 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23880  M01S05239.274l797 +++| PRS1     LDD    FM
Line S01277 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23881  M01S01277.282l826 +++|          SHN    -6
23882  M00S14419.1mt     +++|          LMN    /MTX/TFI
Line S14420 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23883  M01S14420.274l797 ---|          NJN    PRS1        IF NOT I FORMAT
Line S05240 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23884  M01S05240.274l797 +++|          NJN    PRS2        IF NOT I FORMAT
23885  M00S14421.1mt     +++|          LDC    UJNI+2      DO NOT PROCESS DATA
23886  M00S14422.1mt     +++|          STM    /READ/MRDH
Line S05241 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23887  M01S05241.274l797 +++| PRSA     EQU    *-1
23888  M01S05242.274l797 +++|*         STM    /READ/RCTG  (CTS)
23889  M00S14423.1mt     +++|          LDD    HP
23890  M00S14424.1mt     +++|          LPN    40
Line S14425 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23891  M01S14425.274l797 ---|          ZJN    PRS1        IF NOT MTS UNIT
Line S05243 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23892  M01S05243.274l797 +++|          ZJN    PRS2        IF NOT MTS UNIT
23893  M00S14426.1mt     +++|          LDC    7077
Line S14427 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23894  M01S14427.274l797 ---|          STM    VDAA
23895  M01S14428.274l797 ---| PRS1     LDC    LJMI
Line S05244 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23896  M01S05244.274l797 +++|          STM    VDAB
23897  M01S05245.274l797 +++| PRS2     LDC    LJMI
23898  M00S14429.1mt     +++|          STM    /READ/RDFC
23899  M00S14430.1mt     +++|          LDC    SKP2
23900  M00S14431.1mt     +++|          STM    /READ/RDFC+1
23901  M00S14432.1mt     +++|          LDD    PA          INSURE CHECK ERROR FLAG BIT IS CLEAR
23902  M00S14433.1mt     +++|          LPN    77
23903  M00S14434.1mt     +++|          STD    PA
23904  M00S14435.1mt     +++|          LDD    MD
23905  M00S14436.1mt     +++|          SHN    21-13
Line S14437 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23906  M01S14437.274l797 ---|          MJN    PRS4        IF REVERSE MOTION
Line S05246 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23907  M01S05246.274l797 +++|          MJN    PRS5        IF REVERSE MOTION
23908  M00S14438.1mt     +++|          LDD    MD          CHECK IF SKIP TO EOI
23909  M00S14439.1mt     +++|          LPN    14
Line S14440 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23910  M01S14440.274l797 ---|          NJN    PRS2        IF NOT PRU SKIP
Line S05247 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23911  M01S05247.274l797 +++|          NJN    PRS3        IF NOT PRU SKIP
23912  M00S14441.1mt     +++|          STM    SKPE        DO NOT SET EOR/EOF STATUS
23913  M00S14442.1mt     +++|          LDC    LDNI
23914  M00S14443.1mt     +++|          STM    SKPD
Line S14444 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23915  M01S14444.274l797 ---|          UJN    PRS3        CONTINUE PRESET
Line S05248 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23916  M01S05248.274l797 +++|          UJN    PRS4        CONTINUE PRESET
23917  M00S14445.1mt     +++|
Line S14446 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23918  M01S14446.274l797 ---| PRS2     LMN    14
23919  M01S14447.274l797 ---|          NJN    PRS3        IF NOT SKIPEI
23920  M01S14448.274l797 ---|          AOM    PRSC        SET SKIPEI OR POSMF IN PROGRESS
Line S14449 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23921  M02S14449.274l797 ---|          AOM    DBFB
Line S00004 Modification History
M01 (Added by) 241l630
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23922  M02S00004.274l797 ---|          ISTORE DBFB,(LDN 4)  SET UNUSABLE BID IF ERROR
Line S14450 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23923  M01S14450.274l797 ---| PRS3     LJM    PRS8        CONTINUE PRESET
Line S05249 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14451.1mt     +++|
Line S14452 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23930  M01S14452.274l797 ---| PRS4     LDC    .BSKRL-.BSKR-1
Line S05254 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23931  M01S05254.274l797 +++| PRS5     LDC    .BSKRL-.BSKR-1
23932  M00S14453.1mt     +++|          STD    T1
Line S14454 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23933  M01S14454.v23l617 ---| PRS5    LDM    .BSKR,T1
Line S00390 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23934  M02S00390.274l797 ---| PRS5     LDM    .BSKR,T1
Line S05255 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23935  M01S05255.274l797 +++| PRS6     LDM    .BSKR,T1    REVERSE MOTION CODE
23936  M00S14455.1mt     +++|          STM    .OSKR,T1
23937  M00S14456.1mt     +++|          SOD    T1
Line S14457 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23938  M01S14457.274l797 ---|          PJN    PRS5        IF MORE CODE TO MOVE
Line S05256 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23939  M01S05256.274l797 +++|          PJN    PRS6        IF MORE CODE TO MOVE
Line S14458 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23940  M01S14458.v23l617 ---|          LDC    140
23941  M01S14459.v23l617 ---|          STM    ITMA
23942  M01S14460.v23l617 ---|          LDD    HP
Line S00391 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23946  M02S00394.274l797 ---|          SHN    21-10
23947  M02S00395.274l797 ---|          MJN    PRS5.0      IF 639 TAPE CONTROLLER
23948  M02S00396.274l797 ---|          LJM    PRS5.2      PROCESS OTHER CONTROLLER TYPES
Line S05257 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00397 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23962  M01S00397.v23l617 +++|
Line S00398 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23963  M02S00398.274l797 ---| PRS5.0   LDM    //RELA
23964  M02S00399.274l797 ---|          ZJN    PRS5.01     IF UNIT NOT CONNECTED, ASSUME GCR
Line S05270 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23965  M01S05270.274l797 +++| PRS7     SHN    21-10-21+7+22
23966  M01S05271.274l797 +++|          MJN    PRS8        IF 639 TAPE CONTROLLER
23967  M01S05272.274l797 +++|          LDD    FM
Line S01278 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23968  M01S01278.282l826 +++|          SHN    -6
Line S05273 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00400 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23979  M02S00404.274l797 ---|          NJN    PRS5.2      IF NOT GCR
23980  M02S00405.274l797 ---| PRS5.01  AOM    /READ/ISKR  SET 639 GCR SKIP REVERSE
Line S05279 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23981  M01S05279.274l797 +++|          NJN    PRS11       IF NOT GCR
23982  M01S05280.274l797 +++| PRS9     AOM    /READ/ISKR  INDICATE NOT USING READ REVERSE
Line S00406 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23991  M02S00414.274l797 ---| PRS5.1   LDM    .BKSM,T1
Line S05281 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23992  M01S05281.274l797 +++| PRS10    LDM    .BKSM,T1
Line S00415 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23993  M01S00415.v23l617 +++|          STM    .DBRR,T1
23994  M01S00416.v23l617 +++|          SOD    T1
Line S00417 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23995  M02S00417.274l797 ---|          PJN    PRS5.1      IF MORE CODE TO MOVE
23996  M02S00418.274l797 ---|          UJN    PRS5.3      CHECK ATS CONTROLLER
Line S05282 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23997  M01S05282.274l797 +++|          PJN    PRS10       IF MORE CODE TO MOVE
23998  M01S05283.274l797 +++|          UJN    PRS12       CHECK CONTROLLER TYPE
Line S00419 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
23999  M01S00419.v23l617 +++|
Line S00420 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24000  M02S00420.274l797 ---| PRS5.2   LDC    140         READ REVERSE
Line S05284 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24001  M01S05284.274l797 +++| PRS11    LDC    F0140       READ REVERSE
Line S00421 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
24002  M01S00421.v23l617 +++|          STM    ITMA
Line S00422 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24003  M02S00422.274l797 ---| PRS5.3   LDD    HP
Line S14461 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24004  M01S14461.274l797 ---|          LPN    21
Line S05285 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24005  M01S05285.274l797 +++| PRS12    LDD    HP
24006  M01S05286.274l797 +++|          LPC    221
24007  M00S14462.1mt     +++|          LMN    1
Line S14463 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
24008  M01S14463.v23l617 ---|          NJN    PRS7        IF ATS CONTROLLER OR 7 TRACK
Line S00423 Modification History
M01 (Added by) v23l617
M02 (Removed 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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24010  M02S00278.274l797 ---|          NJN    PRS7        IF ATS-TYPE CONTROLLER OR 7 TRACK
Line S05287 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24011  M01S05287.274l797 +++|          NJN    PRS14       IF CTS/ATS-TYPE CONTROLLER OR 7 TRACK
24012  M00S14464.1mt     +++|          LDD    FM
Line S01279 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24013  M01S01279.282l826 +++|          SHN    -6
24014  M00S14465.1mt     +++|          LMN    /MTX/TFI
Line S14466 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24015  M01S14466.274l797 ---|          NJN    PRS7        IF NOT I FORMAT
Line S05288 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24016  M01S05288.274l797 +++|          NJN    PRS14       IF NOT I FORMAT
24017  M00S14467.1mt     +++|          LDN    .DBRSL-1    SET LENGTH OF LEVEL NUMBER ROUTINE
24018  M00S14468.1mt     +++|          STD    T1
Line S14469 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24019  M01S14469.274l797 ---| PRS6     LDM    .DBRS,T1    MOVE CODE
Line S05289 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24020  M01S05289.274l797 +++| PRS13    LDM    .DBRS,T1    MOVE CODE
24021  M00S14470.1mt     +++|          STM    .DBRO,T1
24022  M00S14471.1mt     +++|          SOD    T1
Line S14472 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24023  M01S14472.274l797 ---|          PJN    PRS6        IF MORE CODE TO MOVE
24024  M01S14473.274l797 ---|          LDC    UJNI+PRS10-PRSA  DISABLE INSTRUCTION MODIFICATION
24025  M01S14474.274l797 ---|          ERRNG  PRSA-PRS10+37B
24026  M01S14475.274l797 ---|          STM    PRSA
Line S05290 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24031  M01S14476.274l797 ---|          LDN    0           DESELCT VALIDATE DATA FOR I FORMAT
Line S05294 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24032  M01S05294.274l797 +++|          LDN    0           DESELECT VALIDATE DATA FOR I FORMAT
Line S14477 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24033  M01S14477.274l797 ---|          STM    DBFA
24034  M01S14478.274l797 ---|          STM    DBFA+1
Line S05295 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24035  M01S05295.274l797 +++|          STM    DBFB
24036  M01S05296.274l797 +++|          STM    DBFB+1
24037  M00S14479.1mt     +++|          STM    .DBRSB
Line S14480 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24038  M01S14480.274l797 ---| PRS7     LDC    4425
Line S05297 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S14481.1mt     +++|          STM    //WEOA
Line S14482 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24048  M01S14482.274l797 ---|          LDC    SKR4
Line S05305 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24049  M01S05305.274l797 +++| PRS16    LDC    SKR4
24050  M00S14483.1mt     +++|          STM    /READ/RDFC+1
24051  M00S14484.1mt     +++|          LDC    SKRA        SET TO MODIFY CORRECT INSTRUCTION
Line S14485 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24052  M01S14485.274l797 ---|          STM    PRSB
Line S05306 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24053  M01S05306.274l797 +++|          STM    PRSC
24054  M00S14486.1mt     +++|          LDC    AODI+BL+1
Line S14487 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24055  M01S14487.274l797 ---|          STM    DBFC
Line S05307 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24056  M01S05307.274l797 +++|          STM    DBFE
24057  M00S14488.1mt     +++|          LDC    SODI+BL+1
Line S14489 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24058  M01S14489.274l797 ---|          STM    DBFD
Line S05308 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24059  M01S05308.274l797 +++|          STM    DBFG
24060  M00S14490.1mt     +++|          LDD    FM
Line S01280 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24061  M01S01280.282l826 +++|          SHN    -6
24062  M00S14491.1mt     +++|          SBN    /MTX/TFSI+1
Line S14492 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24063  M01S14492.274l797 ---|          PJN    PRS8        IF NOT I/SI FORMAT
Line S00424 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24064  M02S00424.274l797 ---|          LDM    /READ/ISKR
24065  M02S00425.274l797 ---|          NJN    PRS8        IF ISMT GCR SKIP REVERSE
Line S05309 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24066  M02S05309.282l826 ---|          MJN    PRS17       IF I OR SI FORMAT
24067  M02S05310.282l826 ---|          SBN    /MTX/TFLI-/MTX/TFSI-1
24068  M02S05311.282l826 ---|          NJN    PRS18       IF NOT L FORMAT
24069  M02S05312.282l826 ---| PRS17    LDM    /READ/ISKR
Line S01281 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
24070  M01S01281.282l826 +++|          PJN    PRS18       IF NOT I OR SI FORMAT
24071  M01S01282.282l826 +++|          LDM    /READ/ISKR
Line S05313 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24072  M01S05313.274l797 +++|          NJN    PRS18       IF NOT USING READ REVERSE
24073  M00S14493.1mt     +++|          LDC    LDDI+BY     SET TO SET LEVEL NUMBER
24074  M00S14494.1mt     +++|          STM    DBRA
Line S14495 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24075  M01S14495.274l797 ---| PRS8     LDM    LNUM        SET LEVEL NUMBER
Line S05314 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24076  M01S05314.274l797 +++| PRS18    LDM    LNUM        SET LEVEL NUMBER
24077  M00S14496.1mt     +++|          SHN    -10
Line S14497 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24078  M01S14497.274l797 ---|          RAM    DBFF
Line S05315 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
24079  M01S05315.274l797 +++|          RAM    DBFI
24080  M00S14498.1mt     +++|          LDM    CIOE
24081  M00S14499.1mt     +++|          LPC    774
Proceed to Part 18