User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ldistap.003

Deck LDISTAP Part 003

14 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00052 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02216  M02S00052.282l826 ---|          NZ     X5,UNLX     IF INCORRECT PARAMETER
Line S02010 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02217  M02S02010.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S02011 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02218  M02S02011.282l826 ---|          NZ     X5,UNLX     IF TOO MANY PARAMETERS
Line S02012 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02219  M02S02012.282l826 ---|          SX1    /MTX/XUU
Line S02013 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02220  M02S02013.282l826 ---|          RJ     IXR         ISSUE EXTERNAL *MAGNET* REQUEST
Line S02014 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02221  M02S02014.282l826 ---|          EQ     UNLX        RETURN
Line S02015 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02222  M02S02015.282l826 ---| VSP      SPACE  4,15
Line S02016 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02223  M02S02016.282l826 ---|**        VSP - PROCESS *VSN* COMMAND.
Line S02017 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02224  M02S02017.282l826 ---|*
Line S02018 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02225  M02S02018.282l826 ---|*         VSN,EST.
Line S02019 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02226  M02S02019.282l826 ---|*         VSN,EST,.
Line S02020 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02227  M02S02020.282l826 ---|*         VSN,EST,VSN.
Line S02021 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02228  M02S02021.282l826 ---|*
Line S02022 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02229  M02S02022.282l826 ---|*         EXIT   (X5) = 0 IF *VSN* PROCESSED.
Line S02023 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02230  M02S02023.282l826 ---|*                     = ERROR MESSAGE ADDRESS IF *VSN* NOT PROCESSED.
Line S02024 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02231  M02S02024.282l826 ---|*
Line S02025 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02232  M02S02025.282l826 ---|*         USES   X - 0, 1, 2.
Line S02026 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02233  M02S02026.282l826 ---|*                A - 1, 2.
Line S02027 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02234  M02S02027.282l826 ---|*
Line S02028 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02235  M02S02028.282l826 ---|*         CALLS  IXR, VTP, VNP, VVP.
Line S02029 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02236  M02S02029.282l826 ---|
Line S02030 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02237  M02S02030.282l826 ---|
Line S02031 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02238  M02S02031.282l826 ---| VSP      SUBR               ENTRY/EXIT
Line S02032 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02239  M02S02032.282l826 ---|          RJ     VTP         VERIFY TAPE EST PARAMETER
Line S02033 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02240  M03S02033.282l826 ---|          NZ     X5,VSPX     IF INVALID PARAMETER
Line S00053 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02241  M02S00053.282l826 ---|          NZ     X5,VSPX     IF INCORRECT PARAMETER
Line S02034 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02242  M02S02034.282l826 ---|          SX6    B0          PRESET VSN
Line S02035 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02243  M02S02035.282l826 ---|          SA6    VSN
Line S02036 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02244  M02S02036.282l826 ---|          SA1    PAR
Line S02037 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02245  M02S02037.282l826 ---|          ZR     X1,VSP1     IF NO MORE PARAMETERS
Line S02038 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02246  M02S02038.282l826 ---|          MX0    36          CHECK CURRENT VSN
Line S02039 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02247  M02S02039.282l826 ---|          SA1    UDT
Line S02040 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02248  M02S02040.282l826 ---|          SA2    UDA
Line S02041 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02249  M02S02041.282l826 ---|          IX1    X1-X2
Line S02042 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02250  M02S02042.282l826 ---|          SA1    X1+UBUF+/MTX/UVSN
Line S02043 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02251  M02S02043.282l826 ---|          BX2    X0*X1
Line S02044 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02252  M02S02044.282l826 ---|          SX5    CSIT        *INCORRECT TAPE EST PARAMETER*
Line S02045 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02253  M02S02045.282l826 ---|          ZR     X2,VSPX     IF NO CURRENT VSN
Line S02046 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02254  M02S02046.282l826 ---|          LX1    59-14
Line S02047 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02255  M02S02047.282l826 ---|          PL     X1,VSPX     IF LABELED TAPE
Line S02048 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02256  M02S02048.282l826 ---|          RJ     VVP         VERIFY VSN PARAMETER
Line S02049 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02257  M03S02049.282l826 ---|          NZ     X5,VSPX     IF INVALID VSN
Line S00054 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02258  M02S00054.282l826 ---|          NZ     X5,VSPX     IF INCORRECT VSN
Line S02050 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02259  M02S02050.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S02051 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02260  M02S02051.282l826 ---|          NZ     X5,VSPX     IF TOO MANY PARAMETERS
Line S02052 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02261  M02S02052.282l826 ---|          SA1    VSN
Line S02053 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02262  M02S02053.282l826 ---|          RJ     SFN         SPACE FILL NAME
Line S02054 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02263  M02S02054.282l826 ---|          SA6    A1
Line S02055 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02264  M02S02055.282l826 ---| VSP1     SX1    /MTX/XEV
Line S02056 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02265  M02S02056.282l826 ---|          RJ     IXR         ISSUE EXTERNAL *MAGNET* REQUEST
Line S02057 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02266  M02S02057.282l826 ---|          EQ     VSPX        RETURN
02267  M01S02058.ldistap +++|          TITLE  DISPLAY SUBROUTINES.
02268  M01S02059.ldistap +++| BDT      SPACE  4,10
02269  M01S02060.ldistap +++|**        BDT - BUILD DISPLAY TITLE.
02270  M01S02061.ldistap +++|*
02271  M01S02062.ldistap +++|*         EXIT   FIRST THREE LINES OF DISPLAY SET UP.
02272  M01S02063.ldistap +++|*
02273  M01S02064.ldistap +++|*         USES   X - 1, 2, 6.
02274  M01S02065.ldistap +++|*                A - 1, 2.
02275  M01S02066.ldistap +++|*
02276  M01S02067.ldistap +++|*         CALLS  CDD.
02277  M01S02068.ldistap +++|*
02278  M01S02069.ldistap +++|*         MACROS MBSATA, MBSXTA.
02279  M01S02070.ldistap +++|
02280  M01S02071.ldistap +++|
02281  M01S02072.ldistap +++| BDT      SUBR               ENTRY/EXIT
Line S02073 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02282  M02S02073.282l826 ---|          SA1    MGS         GET *MAGNET* STATUS
Line S02074 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02283  M02S02074.282l826 ---|          SX6    BDTA
Line S02075 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02284  M02S02075.282l826 ---|          ZR     X1,BDT1     IF *MAGNET* ACTIVE
Line S02076 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02285  M02S02076.282l826 ---|          SX6    BDTB
Line S02077 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02286  M02S02077.282l826 ---| BDT1     MBSATA X6,DTMS,DTMSC,59,DTMSU  SET *MAGNET* STATUS
02287  M01S02078.ldistap +++|          SA1    TMS         GET *TMS* STATUS
02288  M01S02079.ldistap +++|          SX6    BDTC
02289  M01S02080.ldistap +++|          ZR     X1,BDT2     IF *TMS* ACTIVE
02290  M01S02081.ldistap +++|          SX6    BDTD
02291  M01S02082.ldistap +++| BDT2     MBSATA X6,DTTS,DTTSC,59,DTTSU  SET *TMS* STATUS
02292  M01S02083.ldistap +++|          SA1    DIS         GET DISPLAY NAME
02293  M01S02084.ldistap +++|          MBSATA X1+BDTE,DTDS,DTDSC,59,DTDSU  SET DISPLAY NAME
02294  M01S02085.ldistap +++|          SA1    DIS         GET NUMBER OF PAGES
02295  M01S02086.ldistap +++|          SA2    X1+TNDP
02296  M01S02087.ldistap +++|          NZ     X2,BDT3     IF ONE OR MORE PAGES
02297  M01S02088.ldistap +++|          SX2    B1
02298  M01S02089.ldistap +++| BDT3     SX6    X2          SET NUMBER OF PAGES
02299  M01S02090.ldistap +++|          SA6    PNO
02300  M01S02091.ldistap +++|          SA1    PAG         GET CURRENT PAGE NUMBER
02301  M01S02092.ldistap +++|          IX6    X2-X1
02302  M01S02093.ldistap +++|          PL     X6,BDT4     IF NOT TOO MANY PAGES
02303  M01S02094.ldistap +++|          SX1    X2          RESET PAGE NUMBER
02304  M01S02095.ldistap +++|          SX6    X2
02305  M01S02096.ldistap +++|          SA6    A1
02306  M01S02097.ldistap +++| BDT4     NZ     X1,BDT5     IF NON-ZERO
02307  M01S02098.ldistap +++|          SX1    B1          RESET PAGE NUMBER
02308  M01S02099.ldistap +++|          SX6    B1
02309  M01S02100.ldistap +++|          SA6    A1
02310  M01S02101.ldistap +++| BDT5     RJ     CDD         CONVERT TO DECIMAL DISPLAY
02311  M01S02102.ldistap +++|          MBSXTA X6,DTPN,DTPNC,DTPNC-1,DTPNU  SET CURRENT PAGE NUMBER
02312  M01S02103.ldistap +++|          SA1    PNO         GET NUMBER OF PAGES
02313  M01S02104.ldistap +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
02314  M01S02105.ldistap +++|          MBSXTA X6,DTPC,DTPCC,DTPCC-1,DTPCU  SET CURRENT PAGE NUMBER
Line S02106 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02315  M02S02106.282l826 ---|          SA1    CPE         GET NUMBER OF PREVIEW ENTRIES
Line S02107 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02316  M02S02107.282l826 ---|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
Line S02108 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02317  M02S02108.282l826 ---|          MBSXTA X6,DTPE,DTPEC,DTPEC-1,DTPEU  SET PREVIEW ENTRIES
Line S02109 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02318  M02S02109.282l826 ---|          SA1    COA         GET NUMBER OF JOBS REQUIRING ACTION
Line S02110 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02319  M02S02110.282l826 ---|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
Line S02111 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02320  M02S02111.282l826 ---|          MBSXTA X6,DTJA,DTJAC,DTJAC-1,DTJAU  SET JOBS REQUIRING ACTION
02321  M01S02112.ldistap +++|          SA1    CCE         GET NUMBER OF CATALOGS WITH ERRORS
02322  M01S02113.ldistap +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
02323  M01S02114.ldistap +++|          MBSXTA X6,DTCE,DTCEC,DTCEC-1,DTCEU  SET CATALOG ERRORS
Line S02115 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02324  M02S02115.274l797 ---|          SA1    CNS         GET NUMBER OF CATALOGS WITH NO SCRATCH
02325  M01S00100.274l797 +++|          SA1    CNSM        NUMBER OF CATALOGS WITH NO *MT/NT* SCRATCH
02326  M01S02116.ldistap +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
Line S02117 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02327  M02S02117.274l797 ---|          MBSXTA X6,DTNS,DTNSC,DTNSC-1,DTNSU  SET NO SCRATCH COUNT
02328  M01S00101.274l797 +++|          MBSXTA X6,DTNM,DTNMC,DTNMC-1,DTNMU  SET NO SCRATCH COUNT
02329  M01S00102.274l797 +++|          SA1    CNSC        NUMBER OF CATALOGS WITH NO *CT* SCRATCH
02330  M01S00103.274l797 +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
02331  M01S00104.274l797 +++|          MBSXTA X6,DTNC,DTNCC,DTNCC-1,DTNCU  SET NO SCRATCH COUNT
02332  M01S00105.274l797 +++|          SA1    CNSA        NUMBER OF CATALOGS WITH NO *AT* SCRATCH
02333  M01S00106.274l797 +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
02334  M01S00107.274l797 +++|          MBSXTA X6,DTNA,DTNAC,DTNAC-1,DTNAU  SET NO SCRATCH COUNT
02335  M01S02118.ldistap +++|          EQ     BDTX        RETURN
02336  M01S00108.274l797 +++|
02337  M01S02119.ldistap +++|
Line S02120 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02338  M02S02120.282l826 ---| BDTA     DATA   16H    MAG ACTIVE.
Line S02121 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02339  M02S02121.282l826 ---| BDTB     DATA   16HMAG NOT ACTIVE.
02340  M01S02122.ldistap +++| BDTC     DATA   14H TMS ENABLED.
02341  M01S02123.ldistap +++| BDTD     DATA   14HTMS DISABLED.
02342  M01S02124.ldistap +++| BDTE     BSS    0           DISPLAY NAMES
02343  M01S02125.ldistap +++|          LOC    0
02344  M01S02126.ldistap +++| DISHP    DATA   4HHELP
Line S02127 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02345  M02S02127.282l826 ---| DISEQ    DATA   4H EQU
02346  M01S02128.ldistap +++| DISFC    DATA   4H FAM
Line S02129 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02347  M02S02129.282l826 ---| DISJB    DATA   4H JOB
Line S02130 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02348  M02S02130.282l826 ---| DISPR    DATA   4H PRE
02349  M01S02131.ldistap +++|          LOC    *O
Line S02132 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02350  M02S02132.282l826 ---| EQU      SPACE  4,10
Line S02133 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02351  M02S02133.282l826 ---|**        EQU - BUILD *EQU* DISPLAY.
Line S02134 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02352  M02S02134.282l826 ---|*
Line S02135 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02353  M02S02135.282l826 ---|*         EXIT   TAPE EQUIPMENT DISPLAY SET INTO *DBUF*.
Line S02136 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02354  M02S02136.282l826 ---|*
Line S02137 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02355  M02S02137.282l826 ---|*         USES   X - 0, 1, 2, 3, 5, 6.
Line S02138 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02356  M02S02138.282l826 ---|*                A - 0, 1, 2, 6.
Line S02139 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02357  M02S02139.282l826 ---|*
Line S02140 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02358  M02S02140.282l826 ---|*         CALLS  CDD, CLY, COD, CSC, GEJ, GES.
Line S02141 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02359  M02S02141.282l826 ---|*
Line S02142 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02360  M02S02142.282l826 ---|*         MACROS MBSATA, MBSXTA, MOVE.
Line S02143 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02361  M02S02143.282l826 ---|
Line S02144 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02362  M02S02144.282l826 ---|
Line S02145 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02363  M02S02145.282l826 ---| EQU10    SX6    B0          FLAG END OF DISPLAY BUFFER
Line S02146 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02364  M02S02146.282l826 ---|          SA6    X5
Line S02147 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02365  M02S02147.282l826 ---|
Line S02148 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02366  M02S02148.282l826 ---| EQU      SUBR               ENTRY/EXIT
Line S02149 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02367  M02S02149.282l826 ---|          SX5    DBUF+DBUFS  SET START OF DISPLAY BUFFER
Line S02150 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02368  M02S02150.282l826 ---|          MOVE   EQUAL,EQUA,X5  SET HEADER IN DISPLAY BUFFER
Line S02151 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02369  M02S02151.282l826 ---|          SX5    X5+EQUAL
Line S02152 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02370  M02S02152.282l826 ---|          SA1    PNO
Line S02153 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02371  M02S02153.282l826 ---|          ZR     X1,EQU10    IF NO PAGES FOR DISPLAY
Line S02154 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02372  M02S02154.282l826 ---|          SA1    PAG         GET ADDRESS OF FIRST ENTRY FOR PAGE
Line S02155 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02373  M02S02155.282l826 ---|          ZR     X1,EQU10    IF NO PAGES FOR DISPLAY
Line S02156 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02374  M02S02156.282l826 ---|          SA1    X1+TEDP-1
Line S02157 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02375  M02S02157.282l826 ---|          ZR     X1,EQU10    IF NOTHING ON PAGE
Line S02158 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02376  M02S02158.282l826 ---|          SX6    NLPTT+NLPHD+1  SET CURRENT LINE NUMBER
Line S02159 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02377  M02S02159.282l826 ---|          SA6    CLN
Line S02160 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02378  M02S02160.282l826 ---| EQU1     SA0    X1          SET *UDT* ADDRESS
Line S02161 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02379  M02S02161.282l826 ---|          SA1    CLN         CHECK CURRENT LINE NUMBER
Line S02162 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02380  M02S02162.282l826 ---|          SX6    X1+LPEEQ-NLPHD-NLPTT-NLPPG-2
Line S02163 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02381  M02S02163.282l826 ---|          PL     X6,EQU10    IF NO MORE LINES IN DISPLAY
Line S02164 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02382  M02S02164.282l826 ---|          SX6    X5+EQUBL-DBUF-DBUFL
Line S02165 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02383  M02S02165.282l826 ---|          PL     X6,EQU10    IF NO MORE ROOM IN DISPLAY BUFFER
Line S02166 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02384  M02S02166.282l826 ---|          SX0    EQUB
Line S02167 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02385  M02S02167.282l826 ---|          SA1    CLN
Line S02168 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02386  M02S02168.282l826 ---|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
Line S02169 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02387  M02S02169.282l826 ---|          MBSATA EQUB,DEI2,12,47,47
Line S02170 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02388  M02S02170.282l826 ---|          MBSATA EQUB,DETR,12,47,47
Line S02171 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02389  M02S02171.282l826 ---|
Line S02172 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02390  M02S02172.282l826 ---|*         SET *EST*.
Line S02173 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02391  M02S02173.282l826 ---|
Line S02174 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02392  M03S02174.282l826 ---|          SX0    B1          GET TRACK TYPE
Line S02175 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02393  M03S02175.282l826 ---|          SA1    A0+/MTX/UST1
Line S02176 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02394  M03S02176.282l826 ---|          AX1    36
Line S02177 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02395  M03S02177.282l826 ---|          BX1    X0*X1
Line S02178 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02396  M03S02178.282l826 ---|          MBSATA X1+TTRT,DETR,DETRC,59,DETRU  SET TRACK TYPE
Line S00109 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02397  M02S00109.282l826 ---|          MX0    -2          GET TAPE DEVICE TYPE
Line S00110 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02398  M02S00110.282l826 ---|          SA1    A0+/MTX/UJID
Line S00111 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02399  M02S00111.282l826 ---|          AX1    55
Line S00112 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02400  M02S00112.282l826 ---|          BX1    -X0*X1
Line S00113 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02401  M02S00113.282l826 ---|          MBSATA X1+TTDT,DETR,DETRC,59,DETRU  SET TAPE DEVICE TYPE
Line S02179 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02402  M02S02179.282l826 ---|          MX0    -12         GET EST ORDINAL
Line S02180 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02403  M02S02180.282l826 ---|          SA1    A0+/MTX/UST4
Line S02181 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02404  M02S02181.282l826 ---|          AX1    24
Line S02182 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02405  M02S02182.282l826 ---|          BX1    -X0*X1
Line S02183 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02406  M02S02183.282l826 ---|          SX1    X1+10000B
Line S02184 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02407  M02S02184.282l826 ---|          RJ     COD         CONVERT TO OCTAL DISPLAY
Line S02185 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02408  M02S02185.282l826 ---|          MBSXTA X6,DEES,DEESC,DEESC-1,DEESU  SET EST ORDINAL
Line S02186 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02409  M02S02186.282l826 ---|
Line S02187 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02410  M02S02187.282l826 ---|*         SET *VSN*.
Line S02188 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02411  M02S02188.282l826 ---|
Line S02189 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02412  M02S02189.282l826 ---|          MX0    36          GET VSN
Line S02190 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02413  M02S02190.282l826 ---|          SA2    A0+/MTX/UVSN
Line S02191 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02414  M02S02191.282l826 ---|          LX2    59-22
Line S02192 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02415  M02S02192.282l826 ---|          SA1    =7LSCRATCH
Line S02193 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02416  M02S02193.282l826 ---|          NG     X2,EQU2     IF SCRATCH VSN
Line S02194 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02417  M02S02194.282l826 ---|          SA2    A0+/MTX/UVSN
Line S02195 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02418  M02S02195.282l826 ---|          SA3    BLANKS
Line S02196 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02419  M02S02196.282l826 ---|          BX2    X2-X3
Line S02197 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02420  M02S02197.282l826 ---|          BX2    X0*X2
Line S02198 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02421  M02S02198.282l826 ---|          ZR     X2,EQU2     IF SCRATCH VSN
Line S02199 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02422  M02S02199.282l826 ---|          SA1    A2
Line S02200 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02423  M02S02200.282l826 ---|          BX1    X0*X1
Line S02201 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02424  M02S02201.282l826 ---| EQU2     RJ     CSC         CHECK FOR SPECIAL CHARACTERS
Line S02202 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02425  M02S02202.282l826 ---|          MBSXTA X6,DEVS,DEVSC,59,DEVSU  SET VSN
Line S02203 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02426  M02S02203.282l826 ---|
Line S02204 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02427  M02S02204.282l826 ---|*         SET *DEN*.
Line S02205 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02428  M02S02205.282l826 ---|
Line S02206 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02429  M02S02206.282l826 ---|          MX0    -6          GET DENSITY
Line S02207 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02430  M02S02207.282l826 ---|          SA1    A0+/MTX/UST3
Line S02208 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02431  M02S02208.282l826 ---|          AX1    6
Line S02209 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02432  M02S02209.282l826 ---|          BX1    -X0*X1
Line S02210 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02433  M02S02210.282l826 ---|          MBSATA X1+TNDN,DEDN,DEDNC,59,DEDNU  SET DENSITY
Line S02211 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02434  M02S02211.282l826 ---|
Line S02212 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02435  M02S02212.282l826 ---|*         SET *RING*.
Line S02213 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02436  M02S02213.282l826 ---|
Line S02214 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02437  M02S02214.282l826 ---|          SA2    A0+/MTX/UST1  GET RING STATUS
Line S02215 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02438  M02S02215.282l826 ---|          LX2    59-7
Line S02216 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02439  M02S02216.282l826 ---|          SA1    TRNG+2
Line S02217 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02440  M02S02217.282l826 ---|          NG     X2,EQU3     IF RING IN
Line S02218 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02441  M02S02218.282l826 ---|          SA1    BLANKS
Line S02219 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02442  M02S02219.282l826 ---| EQU3     MBSATA A1,DERN,DERNC,59,DERNU  SET RING STATUS
Line S02220 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02443  M02S02220.282l826 ---|
Line S02221 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02444  M02S02221.282l826 ---|*         SET *FILE-ID*.
Line S02222 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02445  M02S02222.282l826 ---|
Line S02223 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02446  M02S02223.282l826 ---|          SA1    A0+/MTX/UFID  GET FILE IDENTIFIER
Line S02224 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02447  M02S02224.282l826 ---|          RJ     CSC         CHECK FOR SPECIAL CHARACTERS
Line S02225 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02448  M02S02225.282l826 ---|          SA6    EQUC+0
Line S02226 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02449  M02S02226.282l826 ---|          SA1    A1+B1
Line S02227 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02450  M02S02227.282l826 ---|          RJ     CSC         CHECK FOR SPECIAL CHARACTERS
Line S02228 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02451  M02S02228.282l826 ---|          SA6    A6+B1
Line S02229 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02452  M02S02229.282l826 ---|          MBSATA EQUC,DEFI,DEFIC,59,DEFIU  SET FILE IDENTIFIER
Line S02230 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02453  M02S02230.282l826 ---|          MX0    -12         GET EJT ORDINAL
Line S02231 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02454  M02S02231.282l826 ---|          SA1    A0+/MTX/UJID
Line S02232 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02455  M02S02232.282l826 ---|          BX1    -X0*X1
Line S02233 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02456  M02S02233.282l826 ---|          ZR     X1,EQU6     IF NOT ASSIGNED
Line S02234 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02457  M02S02234.282l826 ---|          RJ     GEJ         GET EJT ENTRY
Line S02235 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02458  M02S02235.282l826 ---|
Line S02236 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02459  M02S02236.282l826 ---|*         SET *FMT* FOR ASSIGNED UNIT.
Line S02237 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02460  M02S02237.282l826 ---|
Line S02238 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02461  M02S02238.282l826 ---|          MX0    -6          GET FORMAT
Line S02239 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02462  M02S02239.282l826 ---|          SA1    A0+/MTX/UST4
Line S02240 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02463  M02S02240.282l826 ---|          AX1    18
Line S02241 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02464  M02S02241.282l826 ---|          BX1    -X0*X1
Line S02242 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02465  M02S02242.282l826 ---|          MBSATA X1+TFMT,DEFT,DEFTC,59,DEFTU  SET FORMAT
Line S02243 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02466  M02S02243.282l826 ---|
Line S02244 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02467  M02S02244.282l826 ---|*         SET *JSN* FOR ASSIGNED UNIT.
Line S02245 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02468  M02S02245.282l826 ---|
Line S02246 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02469  M02S02246.282l826 ---|          MBSATA EBUF+JSNE,DEJS,DEJSC,59,DEJSU  SET JSN
Line S02247 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02470  M02S02247.282l826 ---|          SA1    A0+/MTX/UFID
Line S02248 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02471  M02S02248.282l826 ---|          ZR     X1,EQU4     IF NO FILE-ID
Line S02249 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02472  M02S02249.282l826 ---|
Line S02250 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02473  M02S02250.282l826 ---|*         SET *REEL* FOR ASSIGNED UNIT.
Line S02251 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02474  M02S02251.282l826 ---|
Line S02252 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02475  M02S02252.282l826 ---|          MX0    -12         GET REEL NUMBER
Line S02253 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02476  M02S02253.282l826 ---|          SA1    A0+/MTX/UVSN
Line S02254 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02477  M02S02254.282l826 ---|          BX1    -X0*X1
Line S02255 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02478  M02S02255.282l826 ---|          SX1    X1+10001
Line S02256 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02479  M02S02256.282l826 ---|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
Line S02257 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02480  M02S02257.282l826 ---|          MBSXTA X6,DERL,DERLC,DERLC-1,DERLU  SET REEL NUMBER
Line S02258 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02481  M02S02258.282l826 ---|
Line S02259 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02482  M02S02259.282l826 ---|*         SET *MD* FOR ASSIGNED UNIT.
Line S02260 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02483  M02S02260.282l826 ---|
Line S02261 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02484  M02S02261.282l826 ---|          MX0    -6          GET CONVERSION MODE
Line S02262 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02485  M02S02262.282l826 ---|          SA1    A0+/MTX/UST3
Line S02263 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02486  M02S02263.282l826 ---|          BX1    -X0*X1
Line S02264 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02487  M02S02264.282l826 ---|          MBSATA X1+TCNV,DEMD,DEMDC,59,DEMDU  SET CONVERSION MODE
Line S02265 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02488  M02S02265.282l826 ---|          EQ     EQU5        SET STATUS
Line S02266 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02489  M02S02266.282l826 ---|
Line S02267 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02490  M02S02267.282l826 ---| EQU4     MBSATA BLANKS,DERL,DERLC,59,DERLU  CLEAR REEL NUMBER
Line S02268 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02491  M02S02268.282l826 ---|          MBSATA BLANKS,DEMD,DEMDC,59,DEMDU  CLEAR CONVERSION MODE
Line S02269 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02492  M02S02269.282l826 ---|
Line S02270 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02493  M02S02270.282l826 ---|*         CHECK STATUS FOR ASSIGNED UNIT.
Line S02271 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02494  M02S02271.282l826 ---|
Line S02272 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02495  M02S02272.282l826 ---| EQU5     SA1    A0+/MTX/UVSN  CHECK REMOUNT FLAG
Line S02273 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02496  M02S02273.282l826 ---|          LX1    59-12
Line S02274 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02497  M02S02274.282l826 ---|          SX3    EQSPR       **PRE**
Line S02275 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02498  M02S02275.282l826 ---|          SA4    X3+TEQS
Line S02276 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02499  M02S02276.282l826 ---|          NG     X1,EQU9     IF REMOUNT FLAG SET
Line S02277 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02500  M02S02277.282l826 ---|          SA4    BLANKS
Line S02278 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02501  M02S02278.282l826 ---|          MX0    -5          CHECK IF EXECUTING
Line S02279 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02502  M02S02279.282l826 ---|          SA1    EBUF+JSNE
Line S02280 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02503  M02S02280.282l826 ---|          LX1    -1
Line S02281 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02504  M02S02281.282l826 ---|          BX1    -X0*X1
Line S02282 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02505  M02S02282.282l826 ---|          SX1    X1-EXJS
Line S02283 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02506  M02S02283.282l826 ---|          SX3    EQSRO       *ROLLED*
Line S02284 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02507  M02S02284.282l826 ---|          NZ     X1,EQU9     IF NOT EXECUTING
Line S02285 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02508  M02S02285.282l826 ---|          SA1    A0+/MTX/UST1  CHECK IF READY
Line S02286 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02509  M02S02286.282l826 ---|          LX1    59-0
Line S02287 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02510  M02S02287.282l826 ---|          SX3    EQSNR       *NOTRDY*
Line S02288 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02511  M02S02288.282l826 ---|          PL     X1,EQU9     IF NOT READY
Line S02289 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02512  M02S02289.282l826 ---|          SA1    A0+/MTX/UTMS  CHECK IF WAITING FOR *TFM*
Line S02290 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02513  M02S02290.282l826 ---|          LX1    59-0
Line S02291 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02514  M02S02291.282l826 ---|          SX3    EQSTF       *TFM*
Line S02292 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02515  M02S02292.282l826 ---|          NG     X1,EQU9     IF WAITING FOR *TFM*
Line S02293 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02516  M02S02293.282l826 ---|          SA1    A0+/MTX/UST1  CHECK FOR LOAD POINT
Line S02294 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02517  M02S02294.282l826 ---|          LX1    59-2
Line S02295 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02518  M02S02295.282l826 ---|          SX3    EQSLP       *LOADPT*
Line S02296 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02519  M02S02296.282l826 ---|          NG     X1,EQU9     IF LOAD POINT
Line S02297 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02520  M02S02297.282l826 ---|          SX3    EQSRD       *READY*
Line S02298 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02521  M02S02298.282l826 ---|          EQ     EQU9        SET *STATUS*
Line S02299 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02522  M02S02299.282l826 ---|
Line S02300 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02523  M02S02300.282l826 ---|*         CLEAR *FMT* AND *JSN* FOR UNASSIGNED UNIT.
Line S02301 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02524  M02S02301.282l826 ---|
Line S02302 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02525  M02S02302.282l826 ---| EQU6     MBSATA BLANKS,DEFT,DEFTC,59,DEFTU  CLEAR FORMAT
Line S02303 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02526  M02S02303.282l826 ---|          MBSATA BLANKS,DEJS,DEJSC,59,DEJSU  CLEAR JSN
Line S02304 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02527  M02S02304.282l826 ---|
Line S02305 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02528  M02S02305.282l826 ---|*         SET *REEL* FOR UNASSIGNED UNIT.
Line S02306 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02529  M02S02306.282l826 ---|
Line S02307 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02530  M02S02307.282l826 ---|          SA1    A0+/MTX/UFID  CHECK FILE ID
Line S02308 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02531  M02S02308.282l826 ---|          ZR     X1,EQU7     IF NO FILE ID
Line S02309 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02532  M02S02309.282l826 ---|          MX0    -15         GET REEL NUMBER
Line S02310 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02533  M02S02310.282l826 ---|          SA1    A0+/MTX/UFSN
Line S02311 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02534  M02S02311.282l826 ---|          BX1    -X0*X1
Line S02312 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02535  M02S02312.282l826 ---|          SX1    X1+100000
Line S02313 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02536  M02S02313.282l826 ---|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
Line S02314 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02537  M02S02314.282l826 ---|          MBSXTA X6,DERL,DERLC,DERLC-1,DERLU  SET REEL NUMBER
Line S02315 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02538  M02S02315.282l826 ---|
Line S02316 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02539  M02S02316.282l826 ---|*         SET *MD* FOR UNASSIGNED UNIT.
Line S02317 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02540  M02S02317.282l826 ---|
Line S02318 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02541  M02S02318.282l826 ---|          MX0    -6          GET CONVERSION MODE
Line S02319 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02542  M02S02319.282l826 ---|          SA1    A0+/MTX/UST3
Line S02320 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02543  M02S02320.282l826 ---|          BX1    -X0*X1
Line S02321 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02544  M02S02321.282l826 ---|          MBSATA X1+TCNV,DEMD,DEMDC,59,DEMDU  SET CONVERSION MODE
Line S02322 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02545  M02S02322.282l826 ---|          EQ     EQU8        CHECK STATUS
Line S02323 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02546  M02S02323.282l826 ---|
Line S02324 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02547  M02S02324.282l826 ---| EQU7     MBSATA BLANKS,DERL,DERLC,59,DERLU  CLEAR REEL NUMBER
Line S02325 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02548  M02S02325.282l826 ---|          MBSATA BLANKS,DEMD,DEMDC,59,DEMDU  CLEAR CONVERSION MODE
Line S02326 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02549  M02S02326.282l826 ---|
Line S02327 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02550  M02S02327.282l826 ---|*         CHECK STATUS FOR UNASSIGNED UNIT.
Line S02328 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02551  M02S02328.282l826 ---|
Line S02329 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02552  M02S02329.282l826 ---| EQU8     SA4    BLANKS
Line S02330 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02553  M02S02330.282l826 ---|          SA1    A0+/MTX/UST1  CHECK IF UNIT IS DOWN
Line S02331 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02554  M02S02331.282l826 ---|          LX1    59-56
Line S02332 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02555  M02S02332.282l826 ---|          SX3    EQSDN       *DOWN*
Line S02333 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02556  M02S02333.282l826 ---|          NG     X1,EQU9     IF UNIT IS DOWN
Line S02334 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02557  M02S02334.282l826 ---|          MX0    -12         CHECK IF UNIT IS OFF
Line S02335 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02558  M02S02335.282l826 ---|          SA1    A0+/MTX/UST4
Line S02336 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02559  M02S02336.282l826 ---|          AX1    24
Line S02337 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02560  M02S02337.282l826 ---|          BX1    -X0*X1
Line S02338 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02561  M02S02338.282l826 ---|          RJ     GES         GET EST ENTRY
Line S02339 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02562  M02S02339.282l826 ---|          SA1    QBUF+EQDE
Line S02340 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02563  M02S02340.282l826 ---|          LX1    59-53
Line S02341 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02564  M02S02341.282l826 ---|          SX3    EQSDN       *DOWN*
Line S02342 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02565  M02S02342.282l826 ---|          NG     X3,EQU9     IF UNIT IS OFF
Line S02343 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02566  M02S02343.282l826 ---|          SX3    EQSID       *IDLE*
Line S02344 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02567  M02S02344.282l826 ---|
Line S02345 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02568  M02S02345.282l826 ---|*         SET *STATUS*.
Line S02346 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02569  M02S02346.282l826 ---|
Line S02347 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02570  M02S02347.282l826 ---| EQU9     MBSATA X3+TEQS,DEST,DESTC,59,DESTU  SET STATUS
Line S02348 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02571  M02S02348.282l826 ---|          MBSXTA X4,DEI1,DEI1C,59,DEI1U  SET *STATUS* INTENSITY
Line S02349 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02572  M02S02349.282l826 ---|          MBSXTA X4,DEI2,DEI2C,59,DEI2U
Line S02350 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02573  M02S02350.282l826 ---|          MOVE   EQUBL,EQUB,X5  SET ENTRY INTO DISPLAY
Line S02351 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02574  M02S02351.282l826 ---|          SX5    X5+EQUBL    INCREMENT DISPLAY BUFFER ADDRESS
Line S02352 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02575  M02S02352.282l826 ---|          SA1    CLN         INCREMENT CURRENT LINE NUMBER
Line S02353 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02576  M02S02353.282l826 ---|          SX6    X1+LPEEQ
Line S02354 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02577  M02S02354.282l826 ---|          SA6    A1
Line S02355 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02578  M02S02355.282l826 ---|          MX0    -12         GET NEXT *UDT* ADDRESS
Line S02356 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02579  M02S02356.282l826 ---|          SA1    A0+/MTX/UVRI
Line S02357 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02580  M02S02357.282l826 ---|          BX1    -X0*X1
Line S02358 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02581  M02S02358.282l826 ---|          ZR     X1,EQU10    IF END OF *UDT* TABLE
Line S02359 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02582  M02S02359.282l826 ---|          SA2    UDA         GET NEXT BUFFER ADDRESS
Line S02360 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02583  M02S02360.282l826 ---|          IX1    X1-X2
Line S02361 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02584  M02S02361.282l826 ---|          SX1    X1+UBUF
Line S02362 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02585  M02S02362.282l826 ---|          EQ     EQU1        CHECK NEXT *UDT*
Line S02363 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02586  M02S02363.282l826 ---|
Line S02364 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02587  M02S02364.282l826 ---| EQUA     BSS    0           TAPE EQUIPMENT DISPLAY HEADER
Line S02365 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02588  M02S02365.282l826 ---|          LDISS  1,NLPTT+1
Line S02366 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02589  M02S02366.282l826 ---|          LDIS   5,(EST  )
Line S02367 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02590  M02S02367.282l826 ---|          LDIS   1,( )
Line S02368 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02591  M02S02368.282l826 ---|          LDIS   7,(VSN    )
Line S02369 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02592  M02S02369.282l826 ---|          LDIS   1,( )
Line S02370 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02593  M02S02370.282l826 ---|          LDIS   4,(DEN )
Line S02371 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02594  M02S02371.282l826 ---|          LDIS   4,(RING)
Line S02372 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02595  M02S02372.282l826 ---|          LDIS   1,( )
Line S02373 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02596  M02S02373.282l826 ---|          LDIS   3,(FMT)
Line S02374 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02597  M02S02374.282l826 ---|          LDIS   4,( JSN)
Line S02375 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02598  M02S02375.282l826 ---|          LDIS   1,( )
Line S02376 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02599  M02S02376.282l826 ---|          LDIS   6,(STATUS)
Line S02377 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02600  M02S02377.282l826 ---|          LDIS   1,( )
Line S02378 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02601  M02S02378.282l826 ---|          LDIS   4,(REEL)
Line S02379 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02602  M02S02379.282l826 ---|          LDIS   1,( )
Line S02380 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02603  M02S02380.282l826 ---|          LDIS   2,(MD)
Line S02381 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02604  M02S02381.282l826 ---|          LDIS   1,( )
Line S02382 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02605  M02S02382.282l826 ---|          LDIS   7,(FILE-ID)
Line S02383 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02606  M02S02383.282l826 ---|          LDISE
Line S02384 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02607  M02S02384.282l826 ---| EQUAL    EQU    *-EQUA      TAPE EQUIPMENT DISPLAY HEADER LENGTH
Line S02385 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02608  M02S02385.282l826 ---|
Line S02386 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02609  M02S02386.282l826 ---| EQUB     BSS    0           TAPE EQUIPMENT ENTRY LINE
Line S02387 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02610  M02S02387.282l826 ---| DEFCS    EQU    32          FIRST CHARACTER OF *STATUS*
Line S02388 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02611  M02S02388.282l826 ---|          LDISS  DEFCS,K+1
Line S02389 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02612  M02S02389.282l826 ---| DEI1     LDIS   6,(*PRE* )  FIRST *STATUS* INTENSITY MESSAGE
Line S02390 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02613  M02S02390.282l826 ---|          LDISE
Line S02391 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02614  M02S02391.282l826 ---|          LDISS  DEFCS,K-1
Line S02392 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02615  M02S02392.282l826 ---| DEI2     LDIS   6,(*PRE* )  SECOND *STATUS* INTENSITY MESSAGE
Line S02393 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02616  M02S02393.282l826 ---|          LDISE
Line S02394 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02617  M02S02394.282l826 ---|          LDISS  1,K-1
Line S02395 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02618  M03S02395.282l826 ---| DETR     LDIS   2,(MT)      TRACK TYPE
Line S00114 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02619  M02S00114.282l826 ---| DETR     LDIS   2,(MT)      TAPE DEVICE TYPE
Line S02396 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02620  M02S02396.282l826 ---| DEES     LDIS   3,(060)     EST ORDINAL
Line S02397 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02621  M02S02397.282l826 ---|          LDIS   1,( )
Line S02398 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02622  M02S02398.282l826 ---| DEVS     LDIS   7,(VSN001 ) VSN
Line S02399 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02623  M02S02399.282l826 ---|          LDIS   1,( )
Line S02400 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02624  M03S02400.282l826 ---| DEDN     LDIS   4,(6250)    DENSITY
Line S00115 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02625  M02S00115.282l826 ---| DEDN     LDIS   5,(6250 )   DENSITY
Line S02401 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02626  M02S02401.282l826 ---|          LDIS   1,( )
Line S02402 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02627  M03S02402.282l826 ---| DERN     LDIS   3,(OUT)     RING STATUS
Line S00116 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02628  M02S00116.282l826 ---| DERN     LDIS   2,(IN)      RING STATUS
Line S02403 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02629  M02S02403.282l826 ---|          LDIS   1,( )
Line S02404 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02630  M02S02404.282l826 ---| DEFT     LDIS   2,(SI)      FORMAT
Line S02405 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02631  M02S02405.282l826 ---|          LDIS   1,( )
Line S02406 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02632  M02S02406.282l826 ---| DEJS     LDIS   4,(JSNN)    JSN
Line S02407 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02633  M02S02407.282l826 ---|          LDIS   1,( )
Line S02408 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02634  M02S02408.282l826 ---| DEFCS    EQU    CP+1        FIRST CHARACTER OF *STATUS*
Line S02409 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02635  M02S02409.282l826 ---| DEST     LDIS   6,(READY )  STATUS
Line S02410 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02636  M02S02410.282l826 ---|          LDIS   1,( )
Line S02411 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02637  M02S02411.282l826 ---| DERL     LDIS   4,(9999)    REEL NUMBER
Line S02412 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02638  M02S02412.282l826 ---|          LDIS   1,( )
Line S02413 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02639  M02S02413.282l826 ---| DEMD     LDIS   2,(AS)      CONVERSION MODE
Line S02414 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02640  M02S02414.282l826 ---|          LDIS   1,( )
Line S02415 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02641  M02S02415.282l826 ---| DEFI     LDIS   17,(FILE-INDENTIFIER1)  FILE IDENTIFIER
Line S02416 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02642  M02S02416.282l826 ---|          LDISE
Line S02417 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02643  M02S02417.282l826 ---| EQUBL    EQU    *-EQUB      TAPE EQUIPMENT ENTRY LINE LENGTH
Line S02418 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02644  M02S02418.282l826 ---|
Line S02419 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02645  M02S02419.282l826 ---| EQUC     BSS    2           FILE IDENTIFIER
Line S02420 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02646  M02S02420.282l826 ---|
Line S02421 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02647  M02S02421.282l826 ---| NWIED    EQU    EQUBL*NLPPG/LPEEQ+EQUAL  NUMBER OF WORDS IN *EQU* DIS
02648  M01S02422.ldistap +++| FAM      SPACE  4,10
02649  M01S02423.ldistap +++|**        FAM - BUILD *FAM* DISPLAY.
02650  M01S02424.ldistap +++|*
02651  M01S02425.ldistap +++|*         EXIT   FAMILY CATALOG DISPLAY SET INTO *DBUF*.
02652  M01S02426.ldistap +++|*
02653  M01S02427.ldistap +++|*         USES   X - 0, 1, 2, 6.
02654  M01S02428.ldistap +++|*                A - 0, 1, 2, 6.
02655  M01S02429.ldistap +++|*
02656  M01S02430.ldistap +++|*         CALLS  CDD, CLY, ZTB.
02657  M01S02431.ldistap +++|*
02658  M01S02432.ldistap +++|*         MACROS MBSATA, MBSXTA, MOVE.
02659  M01S02433.ldistap +++|
02660  M01S02434.ldistap +++|
02661  M01S02435.ldistap +++| FAM3     SX6    B0          FLAG END OF DISPLAY BUFFER
02662  M01S02436.ldistap +++|          SA6    X5
02663  M01S02437.ldistap +++|
02664  M01S02438.ldistap +++| FAM      SUBR               ENTRY/EXIT
02665  M01S02439.ldistap +++|          SX5    DBUF+DBUFS  SET START OF DISPLAY BUFFER
02666  M01S02440.ldistap +++|          MOVE   FAMAL,FAMA,X5  SET HEADER IN DISPLAY BUFFER
02667  M01S02441.ldistap +++|          SX5    X5+FAMAL
02668  M01S02442.ldistap +++|          SA1    PNO
02669  M01S02443.ldistap +++|          ZR     X1,FAM3     IF NO PAGES FOR DISPLAY
02670  M01S02444.ldistap +++|          SA1    PAG         GET ADDRESS OF FIRST ENTRY FOR PAGE
02671  M01S02445.ldistap +++|          ZR     X1,FAM3     IF NO PAGES FOR DISPLAY
02672  M01S02446.ldistap +++|          SA1    X1+TFDP-1
02673  M01S02447.ldistap +++|          SX6    NLPTT+NLPHD+1  SET CURRENT LINE NUMBER
02674  M01S02448.ldistap +++|          SA6    CLN
02675  M01S02449.ldistap +++| FAM1     SX1    X1
02676  M01S02450.ldistap +++|          ZR     X1,FAM3     IF NO MORE ENTRIES
02677  M01S02451.ldistap +++|          SA0    X1
02678  M01S02452.ldistap +++|          SA1    CLN         CHECK CURRENT LINE NUMBER
02679  M01S02453.ldistap +++|          SX6    X1+LPEFC-NLPHD-NLPTT-NLPPG-2
02680  M01S02454.ldistap +++|          PL     X6,FAM3     IF NO MORE LINES IN DISPLAY
02681  M01S02455.ldistap +++|          SX6    X5+FAMBL-DBUF-DBUFL
02682  M01S02456.ldistap +++|          PL     X6,FAM3     IF NO MORE ROOM IN DISPLAY BUFFER
Line S02457 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02683  M02S02457.274l797 ---|          SX0    FAMB
02684  M01S00117.274l797 +++|          SX0    FAMB        CALCULATE Y-COORDINATE FOR FIRST LINE
02685  M01S02458.ldistap +++|          SA1    CLN
02686  M01S00118.274l797 +++|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
02687  M01S00119.274l797 +++|          SX0    FAMB2       CALCULATE Y-COORDINATE FOR SECOND LINE
02688  M01S00120.274l797 +++|          SA1    CLN
02689  M01S00121.274l797 +++|          SX1    X1+B1
02690  M01S02459.ldistap +++|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
02691  M01S02460.ldistap +++|
02692  M01S02461.ldistap +++|*         SET *FAMILY*.
02693  M01S02462.ldistap +++|
02694  M01S02463.ldistap +++|          SA1    A0+SBCWL+/TFM/TMFM  GET FAMILY NAME
02695  M01S02464.ldistap +++|          RJ     ZTB         CONVERT ZEROES TO BLANKS
02696  M01S02465.ldistap +++|          MBSXTA X6,DFFM,DFFMC,59,DFFMU  SET *FAMILY*
02697  M01S02466.ldistap +++|
02698  M01S02467.ldistap +++|*         SET BUSY FLAG.
02699  M01S02468.ldistap +++|
02700  M01S02469.ldistap +++|          SA1    A0          CHECK CATALOG BUSY FLAG
02701  M01S02470.ldistap +++|          LX1    59-47
02702  M01S02471.ldistap +++|          SX6    1R
02703  M01S02472.ldistap +++|          PL     X1,FAM2     IF CATALOG NOT BUSY
02704  M01S02473.ldistap +++|          SX6    1R*
02705  M01S02474.ldistap +++| FAM2     MBSXTA X6,DFBS,DFBSC,DFBSC-1,DFBSU  SET BUSY FLAG
02706  M01S02475.ldistap +++|
Line S02476 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02707  M02S02476.274l797 ---|*         SET *SCR-CNT*.
02708  M01S00122.274l797 +++|*         SET *MT/NT* SCRATCH COUNT.
02709  M01S02477.ldistap +++|
02710  M01S02478.ldistap +++|          MX0    -24         GET SCRATCH COUNT
Line S02479 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
02711  M02S02479.274l797 ---|          SA1    A0+SBCWL+/TFM/TMSV
02712  M01S00123.274l797 +++|          SA1    A0+SBCWL+/TFM/TMSM
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/ldistap.003.txt ยท Last modified: by 127.0.0.1