79 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
08236  M02S00361.ns2783  ---|          PJN    SPE5        IF NO SECOND EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
08237  M02S00362.ns2783  ---|          SHN    11-0

Seq #  *Modification Id* Act 
----------------------------+
08238  M02S00363.ns2783  ---|          LMM    SPEB+DVPR

Seq #  *Modification Id* Act 
----------------------------+
08239  M02S00364.ns2783  ---|          SHN    -11

Seq #  *Modification Id* Act 
----------------------------+
08240  M02S00365.ns2783  ---|          ZJN    SPE6        IF EQUIPMENT NUMBERS MATCH

Seq #  *Modification Id* Act 
----------------------------+
08241  M02S00366.ns2783  ---| SPE5     LDM    SPEB+DVPR

Seq #  *Modification Id* Act 
----------------------------+
08242  M02S00367.ns2783  ---|          SHN    21-5

Seq #  *Modification Id* Act 
----------------------------+
08243  M02S00368.ns2783  ---|          PJN    SPE7        IF NO SECOND EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
08244  M02S00369.ns2783  ---|          SHN    11-0

Seq #  *Modification Id* Act 
----------------------------+
08245  M02S00370.ns2783  ---|          LMM    TDDB+DVPR

Seq #  *Modification Id* Act 
----------------------------+
08246  M02S00371.ns2783  ---|          SHN    -11

Seq #  *Modification Id* Act 
----------------------------+
08247  M02S00372.ns2783  ---|          NJN    SPE7        IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
08248  M02S00373.ns2783  ---| SPE6     LDM    TDDB+DVUN+3 COMPARE UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
08249  M02S00374.ns2783  ---|          LMM    SPEB+DVUN+3

Seq #  *Modification Id* Act 
----------------------------+
08250  M02S00375.ns2783  ---|          NJN    SPE7        IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
08251  M02S00376.ns2783  ---|          LDM    EBUT+4

Seq #  *Modification Id* Act 
----------------------------+
08252  M02S00377.ns2783  ---|          LPN    17

Seq #  *Modification Id* Act 
----------------------------+
08253  M02S00378.ns2783  ---|          LMC    MLFPR+MLIAL

Seq #  *Modification Id* Act 
----------------------------+
08254  M02S00379.ns2783  ---|          STM    EBUT+4

Seq #  *Modification Id* Act 
----------------------------+
08255  M02S00380.ns2783  ---|          LDM    SPEA+4

Seq #  *Modification Id* Act 
----------------------------+
08256  M02S00381.ns2783  ---|          LPN    17

Seq #  *Modification Id* Act 
----------------------------+
08257  M02S00382.ns2783  ---|          LMC    MLFPR+MLIAL

Seq #  *Modification Id* Act 
----------------------------+
08258  M02S00383.ns2783  ---|          STM    SPEA+4

Seq #  *Modification Id* Act 
----------------------------+
08259  M02S00384.ns2783  ---|          LDD    T1

Seq #  *Modification Id* Act 
----------------------------+
08260  M02S00385.ns2783  ---|          SHN    22-5

Seq #  *Modification Id* Act 
----------------------------+
08261  M02S00386.ns2783  ---|          ADD    EB          (EBUF ADDRESS)

Seq #  *Modification Id* Act 
----------------------------+
08262  M02S00387.ns2783  ---|          SHN    6

Seq #  *Modification Id* Act 
----------------------------+
08263  M02S00388.ns2783  ---|          CWM    SPEA,ON

Seq #  *Modification Id* Act 
----------------------------+
08264  M02S00389.ns2783  ---| SPE7     UJP    SPE1        CHECK FOR MORE ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
08265  M02S00390.ns2783  ---|

Seq #  *Modification Id* Act 
----------------------------+
08266  M02S00391.ns2783  ---| SPEA     BSS    5           TEMPORARY EBUF ENTRY

Seq #  *Modification Id* Act 
----------------------------+
08267  M02S00392.ns2783  ---| SPEB     BSS    TDDCL*5     TEMPORARY TDDE ENTRY
08268  M01S01463.274l797 +++| SUL      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
08269  M02S01464.284l847 ---|**        SUL - SET UNIT LIST.
08270  M01S00393.284l847 +++|**        SUL - SET UNIT LIST.
08271  M01S01465.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08272  M02S01466.284l847 ---|*         ENTRY  (AB+4) = FIRST UNIT NUMBER.
08273  M01S00394.284l847 +++|*         ENTRY  (A) = 6/LIST WORD COUNT, 12/ LIST WORD ADDRESS.
08274  M01S00395.284l847 +++|*                (AB+4) = FIRST UNIT NUMBER.
08275  M01S01467.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08276  M02S01468.284l847 ---|*         EXIT   (T6) = UNIT COUNT - 1.

Seq #  *Modification Id* Act 
----------------------------+
08277  M02S01469.284l847 ---|*                UNIT LIST SET IN *TDDB*.
08278  M01S00396.284l847 +++|*         EXIT   (T6) = UNIT COUNT - 1.
08279  M01S00397.284l847 +++|*                UNIT LIST SET IN SPECIFIED ADDRESS.
08280  M01S01470.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08281  M02S01471.284l847 ---|*         USES   T5, T6.
08282  M01S00398.284l847 +++|*         USES   T0, T5, T6.
08283  M01S01472.274l797 +++|*
08284  M01S01473.274l797 +++|*         CALLS  SUN.
08285  M01S01474.274l797 +++|
08286  M01S01475.274l797 +++|
08287  M01S01476.274l797 +++| SUL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
08288  M02S01477.284l847 ---|          LDC    TDDB+DVUN+3 SET UNIT LIST POSITION
08289  M01S00399.284l847 +++|          STM    SULA        FWA OF LIST
08290  M01S01478.274l797 +++|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
08291  M02S01479.284l847 ---|          LDN    0
08292  M01S00400.284l847 +++|          SHN    -14         NUMBER OF WORDS
08293  M01S00401.284l847 +++|          RAD    T5          LWA+1 OF LIST
08294  M01S00402.284l847 +++|          LDN    0           INITIALIZE UNIT COUNT
08295  M01S01480.274l797 +++|          STD    T6

Seq #  *Modification Id* Act 
----------------------------+
08296  M02S01481.284l847 ---|          STI    T5          CLEAR UNIT LIST

Seq #  *Modification Id* Act 
----------------------------+
08297  M02S01482.284l847 ---|          STM    -1,T5

Seq #  *Modification Id* Act 
----------------------------+
08298  M02S01483.284l847 ---|          STM    -2,T5

Seq #  *Modification Id* Act 
----------------------------+
08299  M02S01484.284l847 ---|          STM    -3,T5
08300  M01S00403.284l847 +++| SUL1     SOD    T5
08301  M01S00404.284l847 +++|          SBM    SULA
08302  M01S00405.284l847 +++|          MJP    ILL         IF TOO MANY ENTRIES FOR LIST
08303  M01S01485.274l797 +++|          LDD    AB+4

Seq #  *Modification Id* Act 
----------------------------+
08304  M02S01486.284l847 ---| SUL1     STI    T5          SET LOWER UNIT

Seq #  *Modification Id* Act 
----------------------------+
08305  M02S01487.284l847 ---|          RJM    SUN         GET NEXT UNIT

Seq #  *Modification Id* Act 
----------------------------+
08306  M02S01488.284l847 ---|          MJN    SULX        IF END OF UNITS

Seq #  *Modification Id* Act 
----------------------------+
08307  M02S01489.284l847 ---|          SHN    6           SET UPPER UNIT
08308  M01S00406.284l847 +++|          STI    T5          SET LOWER UNIT
08309  M01S00407.284l847 +++|          RJM    SUN         GET NEXT UNIT
08310  M01S00408.284l847 +++|          MJN    SUL2        IF END OF LIST
08311  M01S00409.284l847 +++|          SHN    6           SET UPPER ENTRY
08312  M01S01490.274l797 +++|          RAI    T5

Seq #  *Modification Id* Act 
----------------------------+
08313  M02S01491.284l847 ---|          SOD    T5          DECREMENT INDEX

Seq #  *Modification Id* Act 
----------------------------+
08314  M02S01492.284l847 ---|          RJM    SUN         GET NEXT UNIT

Seq #  *Modification Id* Act 
----------------------------+
08315  M02S01493.284l847 ---|          MJN    SULX        IF END OF UNITS

Seq #  *Modification Id* Act 
----------------------------+
08316  M02S01494.284l847 ---|          UJN    SUL1        LOOP
08317  M01S00410.284l847 +++|          RJM    SUN         GET NEXT UNIT
08318  M01S00411.284l847 +++|          PJN    SUL1        IF NOT END OF LIST
08319  M01S00412.284l847 +++| SUL2     SOD    T5
08320  M01S00413.284l847 +++|          SBM    SULA
08321  M01S00414.284l847 +++|          MJN    SULX        IF ALL DONE WITH LIST
08322  M01S00415.284l847 +++|          LDN    0           CLEAR EMPTY LIST ENTRIES
08323  M01S00416.284l847 +++|          STI    T5
08324  M01S00417.284l847 +++|          UJN    SUL2        CHECK IF DONE
08325  M01S00418.284l847 +++|
08326  M01S00419.284l847 +++|
08327  M01S00420.284l847 +++| SULA     BSS    1           TABLE ADDRESS STORAGE
08328  M01S01495.274l797 +++| SUN      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
08329  M02S01496.284l847 ---|**        SUN - SET UNIT NUMBER.
08330  M01S00421.284l847 +++|**        SUN - SET UNIT NUMBER.
08331  M01S01497.274l797 +++|*
08332  M01S01498.274l797 +++|*         ENTRY  (MS) = *TMSD* ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08333  M02S01499.284l847 ---|*                (AB+4) = CURRENT UNIT NUMBER.
08334  M01S00422.284l847 +++|*                (AB+4) = CURRENT UNIT NUMBER.
08335  M01S01500.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08336  M02S01501.284l847 ---|*         EXIT   (A) = (AB+4) = NEXT UNIT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
08337  M02S01502.284l847 ---|*                    = -1 IF END OF UNITS.

Seq #  *Modification Id* Act 
----------------------------+
08338  M02S01503.284l847 ---|*                (T6) = (T6) + 1 IF NEXT UNIT FOUND.
08339  M01S00423.284l847 +++|*         EXIT   (A) = (AB+4) = NEXT UNIT NUMBER.
08340  M01S00424.284l847 +++|*                    = -1 IF END OF UNITS.
08341  M01S00425.284l847 +++|*                (T6) = (T6) + 1 IF NEXT UNIT FOUND.
08342  M01S01504.274l797 +++|*                TO *ILL* IF ERROR.
08343  M01S01505.274l797 +++|*
08344  M01S01506.274l797 +++|*         USES   AB+4, KA, T6.
08345  M01S01507.274l797 +++|*
08346  M01S01508.274l797 +++|*         CALLS  CDR, CSC.
08347  M01S01509.274l797 +++|
08348  M01S01510.274l797 +++|
08349  M01S01511.274l797 +++| SUN3     SBD    AB+4

Seq #  *Modification Id* Act 
----------------------------+
08350  M02S01512.284l847 ---|          ZJN    SUN4        IF END OF UNITS
08351  M01S00426.284l847 +++|          ZJN    SUN4        IF END OF ENTRIES
08352  M01S01513.274l797 +++|          AOD    T6
08353  M01S01514.274l797 +++|          AOD    AB+4
08354  M01S01515.274l797 +++|          ADN    1
08355  M01S01516.274l797 +++| SUN4     SBN    1
08356  M01S01517.274l797 +++|
08357  M01S01518.274l797 +++| SUN      SUBR               ENTRY/EXIT
08358  M01S01519.274l797 +++|          LDD    AB+4
08359  M01S01520.274l797 +++| SUNB     LPN    0

Seq #  *Modification Id* Act 
----------------------------+
08360  M02S01521.284l847 ---|          NJN    SUN1        IF UNIT OUT OF RANGE

Seq #  *Modification Id* Act 
----------------------------+
08361  M02S01522.284l847 ---|          LDM    MSUL,MS

Seq #  *Modification Id* Act 
----------------------------+
08362  M02S01523.284l847 ---|          LPN    77
08363  M01S00427.284l847 +++|          NJN    SUN1        IF NUMBER OUT OF RANGE
08364  M01S00428.284l847 +++| SUNC     LDN    0           MAXIMUM VALUE
08365  M01S01524.274l797 +++|          SBD    AB+4

Seq #  *Modification Id* Act 
----------------------------+
08366  M02S01525.284l847 ---|          MJN    SUN1        IF UNIT NUMBER .GT. LIMIT
08367  M01S00429.284l847 +++|          MJN    SUN1        IF NUMBER .GT. LIMIT
08368  M01S01526.274l797 +++| SUNA     LDN    0

Seq #  *Modification Id* Act 
----------------------------+
08369  M02S01527.284l847 ---|          NJN    SUN3        IF RANGE OF UNITS
08370  M01S00430.284l847 +++|          NJN    SUN3        IF RANGE OF ENTRIES
08371  M01S01528.274l797 +++|          RJM    CSC

Seq #  *Modification Id* Act 
----------------------------+
08372  M02S01529.284l847 ---|          ZJN    SUN4        IF END OF UNITS
08373  M01S00431.284l847 +++|          ZJN    SUN4        IF END OF ENTRIES
08374  M01S01530.274l797 +++|          LMN    1R/&1R,

Seq #  *Modification Id* Act 
----------------------------+
08375  M02S01531.284l847 ---|          ZJN    SUN2        IF MORE UNITS
08376  M01S00432.284l847 +++|          ZJN    SUN2        IF MORE ENTRIES
08377  M01S01532.274l797 +++| SUN1     JMP    ILL         PROCESS INCORRECT ENTRY
08378  M01S01533.274l797 +++|
08379  M01S01534.274l797 +++| SUN2     AOD    KA
08380  M01S01535.274l797 +++|          LDI    KA
08381  M01S01536.274l797 +++|          SBN    1R8

Seq #  *Modification Id* Act 
----------------------------+
08382  M02S01537.284l847 ---|          PJN    SUN1        IF NULL UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
08383  M02S01538.284l847 ---|          RJM    CDR         ASSEMBLE NEXT UNIT NUMBER
08384  M01S00433.284l847 +++|          PJN    SUN1        IF NULL ENTRY
08385  M01S00434.284l847 +++|          RJM    CDR         ASSEMBLE NEXT ENTRY
08386  M01S01539.274l797 +++|          AOD    T6
08387  M01S01540.274l797 +++|          LDD    AB+4
08388  M01S01541.274l797 +++|          UJN    SUNX        RETURN
08389  M01S01542.274l797 +++| VCP      SPACE  4,10
08390  M01S01543.274l797 +++|**        VCP - VALIDATE CHANNEL PAIR.
08391  M01S01544.274l797 +++|*
08392  M01S01545.274l797 +++|*         ENTRY  (AB+4) = CHANNEL PAIR NUMBER.
08393  M01S01546.274l797 +++|*
08394  M01S01547.274l797 +++|*         EXIT   TO *ILL* IF INCORRECT CHANNEL NUMBER.
08395  M01S01548.274l797 +++|*
08396  M01S01549.274l797 +++|*         USES   T1.
08397  M01S01550.274l797 +++|
08398  M01S01551.274l797 +++|
08399  M01S01552.274l797 +++| VCP2     LDD    T1
08400  M01S01553.274l797 +++|          SHN    1
08401  M01S01554.274l797 +++|          SBD    AB+4
08402  M01S01555.274l797 +++|          NJN    VCP1        IF NOT VALID CHANNEL PAIR NUMBER
08403  M01S01556.274l797 +++|
08404  M01S01557.274l797 +++| VCP      SUBR               ENTRY/EXIT
08405  M01S01558.274l797 +++|          LDN    4
08406  M01S01559.274l797 +++|          STD    T1
08407  M01S01560.274l797 +++| VCP1     SOD    T1
08408  M01S01561.274l797 +++|          NJN    VCP2        IF MORE VALID CHANNEL PAIRS
08409  M01S01562.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
08410  M01S01563.274l797 +++| VCN      SPACE  4,10
08411  M01S01564.274l797 +++|**        VCN - VALIDATE CHANNEL NUMBER.
08412  M01S01565.274l797 +++|*
08413  M01S01566.274l797 +++|*         ENTRY  (AB+4) = CHANNEL NUMBER.
08414  M01S01567.274l797 +++|*
08415  M01S01568.274l797 +++|*         EXIT   TO *ILL* IF INCORRECT CHANNEL NUMBER.
08416  M01S01569.274l797 +++|
08417  M01S01570.274l797 +++|
08418  M01S01571.274l797 +++| VCN2     ADN    20
08419  M01S01572.274l797 +++|          SBM    .CHN
08420  M01S01573.274l797 +++|          PJN    VCN1        IF NOT LEGAL CHANNEL
08421  M01S01574.274l797 +++|
08422  M01S01575.274l797 +++| VCN      SUBR               ENTRY/EXIT
08423  M01S01576.274l797 +++| VCNA     LDN    0
08424  M01S01577.274l797 +++|          ZJN    VCN0        IF FIRST CHANNEL
08425  M01S01578.274l797 +++|          LDD    AB+4
08426  M01S01579.274l797 +++|          ZJN    VCN1        IF .EQ. 0
08427  M01S01580.274l797 +++| VCN0     AOM    VCNA
08428  M01S01581.274l797 +++|          LDD    AB+4        GET CHANNEL NUMBER
08429  M01S01582.274l797 +++|          SBN    14
08430  M01S01583.274l797 +++|          MJN    VCNX        IF .LE. 13B
08431  M01S01584.274l797 +++|          SBN    20-14
08432  M01S01585.274l797 +++|          PJN    VCN2        IF .GE. 20B
08433  M01S01586.274l797 +++| VCN1     JMP    ILL         PROCESS INCORRECT ENTRY
08434  M01S01587.274l797 +++| TVRK     SPACE  4,10
08435  M01S01588.274l797 +++|****      TVRK - TABLE OF VALID AND REQUIRED KEYWORDS.
08436  M01S01589.274l797 +++|
08437  M01S01590.274l797 +++| TVRK     BSS    0
08438  M01S01591.274l797 +++|          TBKW   DA,(ST,UN,CH,AP,IB),(UN,CH)
08439  M01S01592.274l797 +++| TVRKL    EQU    *-TVRK
08440  M01S01593.274l797 +++|          TBKW   DB,(ST,UN,CH,AP,IB),(UN,CH)
08441  M01S01594.274l797 +++|          TBKW   DC,(ST,UN,CH,AP,IB),(UN,CH)
08442  M01S01595.274l797 +++|          TBKW   DD,(ST,UN,AP,IB),(UN)
08443  M01S01596.274l797 +++|          TBKW   DE,(ST,MA,ET,SZ,AP,MC,TS,IB),(SZ)
08444  M01S01597.274l797 +++|          TBKW   DF,(ST,UN,CH,AP,IB),(UN,CH)
08445  M01S01598.274l797 +++|          TBKW   DG,(ST,UN,AP,IB),(UN)
08446  M01S01599.274l797 +++|          TBKW   DH,(ST,UN,CH,AP,IB),(UN,CH)
08447  M01S01600.274l797 +++|          TBKW   DI,(ST,UN,CH,AP,IB),(UN,CH)
08448  M01S01601.274l797 +++|          TBKW   DJ,(ST,UN,CH,AP,IB),(UN,CH)
08449  M01S01602.274l797 +++|          TBKW   DK,(ST,UN,CH,AP,IB),(UN,CH)
08450  M01S01603.274l797 +++|          TBKW   DL,(ST,UN,CH,AP,IB),(UN,CH)
08451  M01S01604.274l797 +++|          TBKW   DM,(ST,UN,CH,AP,IB),(UN,CH)
08452  M01S01605.274l797 +++|          TBKW   DN,(ST,EQ,UN,CH,AP,IB),(UN,CH)
08453  M01S01606.274l797 +++|          TBKW   DP,(ST,MA,ET,SZ,CH,AP,MC,TS,IB),(SZ,CH)
08454  M01S01607.274l797 +++|          TBKW   DQ,(ST,UN,CH,AP,IB),(UN,CH)
08455  M01S00003.ns2776  +++|          TBKW   DR,(ST,UN,CH,AP,IB),(UN,CH)
08456  M01S01608.274l797 +++|          TBKW   DV,(ST,UN,CH,AP,IB),(UN,CH)
08457  M01S01609.274l797 +++|          TBKW   DW,(ST,UN,CH,AP,IB),(UN,CH)
08458  M01S01610.274l797 +++|          TBKW   DX,(ST,UN,CH,AP,IB),(UN,CH)
08459  M01S01611.274l797 +++|          TBKW   DY,(ST,UN,CH,AP,IB),(UN,CH)
08460  M01S01612.274l797 +++|          TBKW   DZ,(ST,UN,CH,AP,IB),(UN,CH)
08461  M01S01613.274l797 +++|          TBKW   EA,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08462  M01S01614.274l797 +++|          TBKW   EB,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08463  M01S01615.274l797 +++|          TBKW   EC,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08464  M01S01616.274l797 +++|          TBKW   ED,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08465  M01S01617.274l797 +++|          TBKW   EE,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08466  M01S01618.274l797 +++|          TBKW   EF,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08467  M01S00007.ns2768  +++|          TBKW   EG,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08468  M01S00008.ns2768  +++|          TBKW   EH,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08469  M01S00435.284l847 +++|          TBKW   EI,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08470  M01S00436.284l847 +++|          TBKW   EJ,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08471  M01S00437.284l847 +++|          TBKW   EK,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08472  M01S00438.284l847 +++|          TBKW   EL,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08473  M01S00439.284l847 +++|          TBKW   EM,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08474  M01S00440.284l847 +++|          TBKW   EN,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08475  M01S00441.284l847 +++|          TBKW   EO,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08476  M01S00442.284l847 +++|          TBKW   EP,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
08477  M01S00443.284l847 +++|          TBKW   ES,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08478  M01S00444.284l847 +++|          TBKW   EU,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08479  M01S00445.284l847 +++|          TBKW   EV,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08480  M01S00446.284l847 +++|          TBKW   EW,(ST,EQ,UN,CH,AP,IB,PN),(EQ,UN,CH)
08481  M01S01619.274l797 +++|          CON    0           END OF TABLE
08482  M01S01620.274l797 +++|
08483  M01S01621.274l797 +++|****
08484  M01S01622.274l797 +++| TKWP     SPACE  4,10
08485  M01S01623.274l797 +++|****      TKWP - TABLE OF KEYWORD PARAMETERS.
08486  M01S01624.274l797 +++|
08487  M01S01625.274l797 +++|
08488  M01S01626.274l797 +++| TKWP     BSS    0
08489  M01S01627.274l797 +++|          TBKP   AP,1,DVAP,00B,0000B   APRDECK NUMBER
08490  M01S01628.274l797 +++| TKWPL    EQU    *-TKWP
08491  M01S01629.274l797 +++| TKWPA    TBKP   CH,0,1,00B,7777B      CHANNEL(S)
08492  M01S01630.274l797 +++| TKWPB    TBKP   EQ,0,4,11B,0777B      EQUIPMENT (CONTROLLER) NUMBER
08493  M01S01631.274l797 +++|          TBKP   ET,0,DVED,00B,7777B   EXTENDED MEMORY TYPE
08494  M01S01632.274l797 +++|          TBKP   IB,0,5,00B,0000B      INSTALLATION BYTE
08495  M01S01633.274l797 +++|          TBKP   MA,0,DVED,11B,6777B   MAINTENANCE MODE
08496  M01S01634.274l797 +++|          TBKP   MC,0,7,00B,7700B      MAINTENANCE CHANNEL
08497  M01S00447.284l847 +++|          TBKP   PN,0,10B,6,6077B      PARTITION NUMBER
08498  M01S01635.274l797 +++|          TBKP   ST,0,0,0,7774B        STATUS
08499  M01S01636.274l797 +++|          TBKP   SZ,0,DVNT,00B,0000B   EXTENDED MEMORY SIZE
08500  M01S01637.274l797 +++|          TBKP   TS,0,0,00B,0000B      EXTENDED MEMORY TRACK SIZE
08501  M01S01638.274l797 +++|          TBKP   UN,0,4,00B,7777B      UNIT NUMBER(S)
08502  M01S01639.274l797 +++|          CON    0           END OF TABLE
08503  M01S01640.274l797 +++|
08504  M01S01641.274l797 +++|****
08505  M01S01642.274l797 +++| TRQP     SPACE  4,10
08506  M01S01643.274l797 +++|**        TRQP - TABLE OF REQUIRED PARAMETERS.
08507  M01S01644.274l797 +++|*
08508  M01S01645.274l797 +++|*         (TRQP) .NE. 0 IF INITIAL ENTRY OF THIS EQUIPMENT.
08509  M01S01646.274l797 +++|*         (TRQP+1)-(TRQP+KTWC) = REQUIRED KEYWORDS - BIT CORRESPONDING
08510  M01S01647.274l797 +++|*         TO *TVRK* BITS SET WHEN KEYWORD IS SPECIFIED.
08511  M01S01648.274l797 +++|
08512  M01S01649.274l797 +++| TRQP     BSSZ   KTWC+1
08513  M01S00448.284l847 +++| TBLM     SPACE  4,10
08514  M01S00449.284l847 +++|**        TBLM - GENERATE TABLE OF MASS STORAGE PROCESSING PARAMETERS.
08515  M01S00450.284l847 +++|*
08516  M01S00451.284l847 +++|*         TBLM   EQ
08517  M01S00452.284l847 +++|*
08518  M01S00453.284l847 +++|*         ENTRY  (EQ) = MASS STORAGE EQUIPMENT MNEMONIC.
08519  M01S00454.284l847 +++|
08520  M01S00455.284l847 +++|
08521  M01S00456.284l847 +++|          PURGMAC  TBLM
08522  M01S00457.284l847 +++|
08523  M01S00458.284l847 +++| TBLM     MACRO  EQ
08524  M01S00459.284l847 +++| DT_EQ    VFD    1/SD_EQ,11/2R_EQ
08525  M01S00460.284l847 +++|          CON    /EQ1/P_EQ
08526  M01S00461.284l847 +++|          VFD    1/LDAM_EQ,11/NT_EQ
08527  M01S00462.284l847 +++|          VFD    3/BF_EQ,3/PK_EQ-1,6/NU_EQ-1
08528  M01S00463.284l847 +++|          CON    CT_EQ
08529  M01S00464.284l847 +++|          VFD    1/TT_EQ,11/SL_EQ+PNUN_EQ-1
08530  M01S00465.284l847 +++|          VFD    6/DI_EQ,6/2R"DRN_EQ"-1RD*100
08531  M01S00466.284l847 +++|          VFD    6/C"FW_EQ",6/AI_EQ
08532  M01S00467.284l847 +++|          CON    CYPN_EQ
08533  M01S00468.284l847 +++|
08534  M01S00469.284l847 +++| TBLM     ENDM
08535  M01S00470.284l847 +++| TMSD     SPACE  4,10
08536  M01S00471.284l847 +++|**        TMSD - TABLE OF MASS STORAGE DEVICES.
08537  M01S00472.284l847 +++|*         ENTRY = TMSDL WORDS.
08538  M01S00473.284l847 +++|
08539  M01S00474.284l847 +++|*         THE ENTRIES IN *TMSD* ARE REFERENCED WITH THE FOLLOWING TAGS.
08540  M01S00475.284l847 +++|
08541  M01S00476.284l847 +++|
08542  M01S00477.284l847 +++| TMSD     BSS    0
08543  M01S00478.284l847 +++|          LOC    0
08544  M01S00479.284l847 +++|
08545  M01S00480.284l847 +++|          BSS    1           1/  SHARED FLAG, 11/ DEVICE MNEMONIC
08546  M01S00481.284l847 +++| MSPR     BSS    1           12/ PROCESSOR ADDRESS
08547  M01S00482.284l847 +++| MSNT     BSS    1           1/  LDAM FLAG, 11/ NUMBER OF TRACKS
08548  M01S00483.284l847 +++| MSUL     BSS    1           3/  FLAGS, 3/ MAX PACKS, 6/ MAX UNIT NO.
08549  M01S00484.284l847 +++| MSCT     BSS    1           12/ DEFAULT NUMBER OF CATALOG TRACKS
08550  M01S00485.284l847 +++| MSSL     BSS    1           1/  FULL TRACK FLAG,
08551  M01S00486.284l847 +++|*                            11/ SECTOR LIMIT + MAX PARTITION NO.
08552  M01S00487.284l847 +++| MSDI     BSS    1           6/  DRIVER INDEX,
08553  M01S00488.284l847 +++|*                            6/  DRIVER NAME (LAST CHARACTER)
08554  M01S00489.284l847 +++| MSAI     BSS    1           6/  CONTROLWARE LOAD, 6/  ALGORITHM INDEX
08555  M01S00490.284l847 +++| MSCP     BSS    1           12/ CYLINDERS PER PARTITION
08556  M01S00491.284l847 +++| TMSDL    BSS    0           TABLE LENGTH
08557  M01S00492.284l847 +++|          ORG    TMSD
08558  M01S00493.284l847 +++|
08559  M01S00494.284l847 +++|
08560  M01S00495.284l847 +++|          LIST   G
08561  M01S00496.284l847 +++|          TBL    "MSEQ"
08562  M01S00497.284l847 +++|          PURGMAC  TBLM
08563  M01S00498.284l847 +++|          LIST   *
08564  M01S00499.284l847 +++|
08565  M01S00500.284l847 +++|          CON    0           END OF TABLE
08566  M01S00501.284l847 +++|
08567  M01S01650.274l797 +++|          SPACE  4,10
08568  M01S01651.274l797 +++|          QUAL   *
08569  M01S01652.274l797 +++|
08570  M01S01653.274l797 +++| EQ1S     EQU    *+4-EQXO    *EQ1* SIZE
08571  M01S01654.274l797 +++| EQ1L     EQU    EQ1S/5+77   *EQ1* OVERLAY LENGTH
08572  M01S01655.274l797 +++|
08573  M01S01656.274l797 +++|          ERRNG  7777-*-4    OVERFLOW WHEN LOADING *EQ1*
08574  M01S01657.274l797 +++|          TTL    SET/EQ2 - PROCESS NON-MASS STORAGE *EQXXX=* ENTRY.
08575  M01S01658.274l797 +++|          TITLE
08576  M01S01659.274l797 +++|          IDENT  EQ2,/EQ2/EQM
08577  M01S01660.274l797 +++|          QUAL   EQ2
08578  M01S01661.274l797 +++|          ORG    EQXO
08579  M01S01662.274l797 +++|*COMMENT  SET - PROCESS NON-MASS STORAGE *EQXXX=* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
08580  M02S01663.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
08581  M01S00005.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
08582  M01S01664.274l797 +++|          SPACE  4,10
08583  M01S01665.274l797 +++|**        MICRO DEFINITIONS.
08584  M01S01666.274l797 +++|
08585  M01S01667.274l797 +++| KWM      MICRO  1,,*CH,CW,DR,EQ,FC,IB,ID,LS,ND,NT,PA,PI,PS,PT,SA,ST,TF,
08586  M01S01668.274l797 +++|,TN,UN,W0,W1*
08587  M01S01669.274l797 +++|
08588  M01S01670.274l797 +++|.A        MICCNT KWM
08589  M01S01671.274l797 +++|.A        SET    .A+1
08590  M01S01672.274l797 +++| KWMC     EQU    .A/3        KEYWORD COUNT
08591  M01S01673.274l797 +++|
08592  M01S01674.274l797 +++|.A        SET    KWMC+11D
08593  M01S01675.274l797 +++| KTWC     EQU    .A/12D      KEYWORD TABLE WORD COUNT
08594  M01S01676.274l797 +++|          TITLE  EQUIPMENT DEFINITIONS.
08595  M01S01677.274l797 +++| EQM      SPACE  4,10
08596  M01S01678.274l797 +++|***       EQXXX=TY,P1=V1,...,PN=VN.
08597  M01S01679.274l797 +++|*
08598  M01S01680.274l797 +++|*         SET NON MASS STORAGE EQUIPMENT XXX WITH
08599  M01S01681.274l797 +++|*
08600  M01S01682.274l797 +++|*                TY = TYPE (2 CHARACTERS)
08601  M01S01683.274l797 +++|*
08602  M01S01684.274l797 +++|*         DEVICE TYPES SUPPORTED -
08603  M01S01685.274l797 +++|*
08604  M01S01686.274l797 +++|*                AT = ACS CARTRIDGE MAGNETIC TAPE DRIVE.
08605  M01S01687.274l797 +++|*                CC = 6683 SATELLITE COUPLER.
08606  M01S01688.274l797 +++|*                CI = *CYBIS* DEVICE.
08607  M01S01689.274l797 +++|*                CM = CONTROL MODULE.
08608  M01S01690.274l797 +++|*                CP = 415 CARD PUNCH.
08609  M01S01691.274l797 +++|*                CR = 405 CARD READER.
08610  M01S01692.274l797 +++|*                CT = CARTRIDGE MAGNETIC TAPE DRIVE.
08611  M01S01693.274l797 +++|*                D1 = *CYBIS* DEVICE.
08612  M01S01694.274l797 +++|*                D2 = *CYBIS* DEVICE.
08613  M01S01695.274l797 +++|*                D3 = *CYBIS* DEVICE.
08614  M01S01696.274l797 +++|*                D4 = *CYBIS* DEVICE.
08615  M01S01697.274l797 +++|*                LQ = 512 LINE PRINTER.
08616  M01S01698.274l797 +++|*                LR = 580-12 LINE PRINTER.
08617  M01S01699.274l797 +++|*                LS = 580-16 LINE PRINTER.
08618  M01S01700.274l797 +++|*                LT = 580-20 LINE PRINTER.
08619  M01S01701.274l797 +++|*                LX = 5870 NON-IMPACT PRINTER.
08620  M01S01702.274l797 +++|*                LY = 5970 NON-IMPACT PRINTER.
08621  M01S01703.274l797 +++|*                MP = MAP III.
08622  M01S01704.274l797 +++|*                MT = 7-TRACK MAGNETIC TAPE DRIVE.
08623  M01S01705.274l797 +++|*                NC = NAD.
08624  M01S01706.274l797 +++|*                ND = CDNA MAINFRAME INTERFACE (MDI).
08625  M01S01707.274l797 +++|*                NI = *CYBIS* DEVICE.
08626  M01S01708.274l797 +++|*                NO = *CYBIS* DEVICE.
08627  M01S01709.274l797 +++|*                NP = 255X NETWORK PROCESSING UNIT.
08628  M01S01710.274l797 +++|*                NT = 9-TRACK MAGNETIC TAPE DRIVE.
08629  M01S01711.274l797 +++|*                OD = OPTICAL DISK
08630  M01S01712.274l797 +++|*                RM = TWO PORT MULTIPLEXER.
08631  M01S01713.274l797 +++|*                RP = RING PORT.
08632  M01S01714.274l797 +++|*                SP = *CYBIS* DEVICE.
08633  M01S01715.274l797 +++|*                SS = MSE M860 CONTROLLER.
08634  M01S01716.274l797 +++|*                TT = TIME-SHARING MULTIPLEXER.
08635  M01S01717.274l797 +++|*                     NOTE - THE TERMINAL DRIVER SCANS ONLY THE FIRST
08636  M01S01718.274l797 +++|*                            *N* NUMBER OF PORTS (ZERO THRU *N*)
08637  M01S01719.274l797 +++|*                            SPECIFIED BY THE *PT=* KEYWORD WHEN THE
08638  M01S01720.274l797 +++|*                            DEVICE TYPE (TY) IS *TT*.  IF NO *PT=*
08639  M01S01721.274l797 +++|*                            KEYWORD IS GIVEN, ALL 64 PORTS ARE
08640  M01S01722.274l797 +++|*                            SCANNED.
08641  M01S01723.274l797 +++|*                ** = NONSTANDARD EQUIPMENT ENTRY.
08642  M01S01724.274l797 +++|*
08643  M01S01725.274l797 +++|*         AND PARAMETERS WHERE P1,...,PN ARE THE FOLLOWING KEYWORDS
08644  M01S01726.274l797 +++|*
08645  M01S01727.274l797 +++|*                CH = CHANNEL NUMBER(S).
08646  M01S01728.274l797 +++|*                CW = CONTROL MODULE CONTROLWARE.
08647  M01S01729.274l797 +++|*                DR = ACS DRIVE INDEX (WITHIN PANEL).
08648  M01S01730.274l797 +++|*                EQ = EQUIPMENT (CONTROLLER) NUMBER.
08649  M01S01731.274l797 +++|*                FC = FORMS CODE.
08650  M01S01732.274l797 +++|*                IB = INSTALLATION BYTE.
08651  M01S01733.274l797 +++|*                ID = UNIT RECORD ID.
08652  M01S01734.274l797 +++|*                LS = ACS LSM INDEX (WITHIN ACS).
08653  M01S01735.274l797 +++|*                ND = NPU NODE NUMBER.
08654  M01S01736.274l797 +++|*                NT = MDI NODE NUMBER.
08655  M01S01737.274l797 +++|*                PA = ACS PANEL INDEX (WITHIN LSM).
08656  M01S01738.274l797 +++|*                PI = PIP INDEX.
08657  M01S01739.274l797 +++|*                PS = PAPER SIZE.
08658  M01S01740.274l797 +++|*                PT = PORT NUMBER OR NUMBER OF PORTS.
08659  M01S01741.274l797 +++|*                SA = 255X SAM (SYSTEM AUTOSTART MODULE) STATUS.
08660  M01S01742.274l797 +++|*                ST = STATUS.
08661  M01S01743.274l797 +++|*                TF = TAPE FLAGS.
08662  M01S01744.274l797 +++|*                TN = PRINT TRAIN.
08663  M01S01745.274l797 +++|*                UN = UNIT NUMBER.
08664  M01S01746.274l797 +++|*                W0 = OCTAL VALUE OF EST ENTRY - WORD ZERO.
08665  M01S01747.274l797 +++|*                W1 = OCTAL VALUE OF EST ENTRY - WORD ONE.
08666  M01S01748.274l797 +++|
08667  M01S01749.274l797 +++|
08668  M01S01750.274l797 +++| EQM      BSS    0
08669  M01S01751.274l797 +++|          LDN    2           ADVANCE CHARACTER ADDRESS
08670  M01S01752.274l797 +++|          RAD    KA
08671  M01S01753.274l797 +++|          RJM    CDR         ASSEMBLE DIGITS
08672  M01S01754.274l797 +++|          LMN    1R=
08673  M01S01755.274l797 +++|          ZJN    EQM2        IF *=*
08674  M01S01756.274l797 +++| EQM1     JMP    ILL         PROCESS INCORRECT ENTRY
08675  M01S01757.274l797 +++|
08676  M01S01758.274l797 +++| EQM2     AOD    KA          SKIP CHARACTER
08677  M01S01759.274l797 +++|          LDD    AB+4        CHECK EST ORDINAL
08678  M01S01760.274l797 +++|          SBN    NOPE
08679  M01S01761.274l797 +++|          MJN    EQM1        IF PSEUDO EQUIPMENT
08680  M01S01762.274l797 +++|          SBK    ESMX-NOPE
08681  M01S01763.274l797 +++|          PJN    EQM1        IF EST ORDINAL EXCEEDS MAXIMUM
08682  M01S01764.274l797 +++|          LDD    AB+4        SET EST ORDINAL
08683  M01S01765.274l797 +++|          RJM    STA         READ EBUF ENTRY
08684  M01S01766.274l797 +++|          RJM    CDR
08685  M01S01767.274l797 +++|          LMN    1R.
08686  M01S01768.274l797 +++|          NJP    EQM5        IF NOT *EQXXX=.*
08687  M01S01769.274l797 +++|          LDD    AB+4
08688  M01S01770.274l797 +++|          NJN    EQM1        IF *EQXXX = N.*
08689  M01S01771.274l797 +++|          RJM    CDC         CLEAR ISMD CHANNELS
08690  M01S01772.274l797 +++|          LDN    0
08691  M01S01773.274l797 +++|          CRD    CN          CLEAR DEVICE DESCRIPTION
08692  M01S01774.274l797 +++|          CRM    EBUT+5,ON
08693  M01S01775.274l797 +++|          ERRNG  5-TDDCL     CODE DEPENDS ON VALUE
08694  M01S01776.274l797 +++|          CRM    TDDB,DV
08695  M01S01777.274l797 +++|          LDD    EQ
08696  M01S01778.274l797 +++|          LMD    EN
08697  M01S01779.274l797 +++|          NJN    EQM4        IF NOT EXTENDED MEMORY EQUIPMENT
08698  M01S01780.274l797 +++|          STD    EN          CLEAR EST ORDINAL
08699  M01S01781.274l797 +++|          STM    EMSC        DE/DP SHIFT COUNT
08700  M01S01782.274l797 +++|          LDN    TAXXL       CLEAR EXTENDED MEMORY ALLOCATION TABLES
08701  M01S01783.274l797 +++|          STD    T1
08702  M01S01784.274l797 +++|          LDD    EQ
08703  M01S01785.274l797 +++|          LMN    LDEQ
08704  M01S01786.274l797 +++|          NJN    EQM3        IF NOT LINK DEVICE
08705  M01S01787.274l797 +++|          STD    PD
08706  M01S01788.274l797 +++| EQM3     LDN    0
08707  M01S01789.274l797 +++|          STM    TAXM-1,T1
08708  M01S01790.274l797 +++|          SOD    T1
08709  M01S01791.274l797 +++|          NJN    EQM3        IF MORE TO CLEAR
08710  M01S01792.274l797 +++|          CRM    EMTY,ON
08711  M01S01793.274l797 +++| EQM4     LJM    EQM19       CLEAR EST
08712  M01S01794.274l797 +++|
08713  M01S01795.274l797 +++|*         PROCESS TYPE.
08714  M01S01796.274l797 +++|
08715  M01S01797.274l797 +++| EQM5     LDI    KA          ASSEMBLE TYPE
08716  M01S01798.274l797 +++|          SHN    6
08717  M01S01799.274l797 +++|          LMM    1,KA
08718  M01S01800.274l797 +++|          STD    AB+4
08719  M01S01801.274l797 +++|          LDM    EBUT+3
08720  M01S01802.274l797 +++|          ZJN    EQM7        IF EMPTY ENTRY
08721  M01S01803.274l797 +++|          LMD    AB+4
08722  M01S01804.274l797 +++|          ZJN    EQM8        IF NO CHANGE IN DEVICE TYPE
08723  M01S01805.274l797 +++|          LDD    AB+4
08724  M01S01806.274l797 +++|          LMC    2R**
08725  M01S01807.274l797 +++|          ZJN    EQM8        IF NONSTANDARD EQUIPMENT ENTRY
08726  M01S01808.274l797 +++|          RJM    CDC         CLEAR ISMD CHANNELS
08727  M01S01809.274l797 +++| EQM7     LDN    0           CLEAR DEVICE DESCRIPTION
08728  M01S01810.274l797 +++|          CRD    CN
08729  M01S01811.274l797 +++|          CRM    EBUT+5,ON
08730  M01S00502.284l847 +++|          ERRNG  5-TDDCL     CODE DEPENDS ON VALUE
08731  M01S01812.274l797 +++|          CRM    TDDB,DV
08732  M01S01813.274l797 +++|          LDD    AB+4
08733  M01S01814.274l797 +++|          STD    CN+3
08734  M01S01815.274l797 +++|          AOM    TRQP        SET INITIAL ENTRY FLAG
08735  M01S01816.274l797 +++|          UJN    EQM10       SEARCH FOR DEVICE
08736  M01S01817.274l797 +++|
08737  M01S01818.274l797 +++| EQM8     LDN    JSNL        MOVE EST ENTRY TO DIRECT CELLS
08738  M01S01819.274l797 +++|          CWM    EBUT,ON
08739  M01S01820.274l797 +++|          SBN    1
08740  M01S01821.274l797 +++|          CRD    CN
08741  M01S01822.274l797 +++|
08742  M01S01823.274l797 +++|*         SEARCH FOR DEVICE IN EQUIPMENT TYPE TABLE.
08743  M01S01824.274l797 +++|
08744  M01S01825.274l797 +++| EQM10    LDC    TETY-TETYL  SET EQUIPMENT TYPE TABLE
08745  M01S01826.274l797 +++|          STD    MS
08746  M01S01827.274l797 +++| EQM11    LDN    TETYL       ADVANCE TABLE ADDRESS
08747  M01S01828.274l797 +++|          RAD    MS
08748  M01S01829.274l797 +++|          LDI    MS
08749  M01S01830.274l797 +++|          NJN    EQM13       IF NOT END OF TABLE
08750  M01S01831.274l797 +++| EQM12    JMP    ILL         PROCESS INCORRECT ENTRY
08751  M01S01832.274l797 +++|
08752  M01S01833.274l797 +++| EQM13    LMD    AB+4        CHECK TYPE
08753  M01S01834.274l797 +++|          NJN    EQM11       IF NO MATCH
08754  M01S01835.274l797 +++|          LDN    2           SKIP EQUIPMENT MNEMONIC
08755  M01S01836.274l797 +++|          RAD    KA
08756  M01S01837.274l797 +++|          LDM    EQPR,MS
08757  M01S01838.274l797 +++|          STD    T1
08758  M01S01839.274l797 +++|          LDC    TVRK-TVRKL  SET TABLE OF VALID KEYWORDS
08759  M01S01840.274l797 +++|          STD    TA
08760  M01S01841.274l797 +++| EQM16    LDN    TVRKL       ADVANCE TABLE ADDRESS
08761  M01S01842.274l797 +++|          RAD    TA
08762  M01S01843.274l797 +++|          LDI    TA
08763  M01S01844.274l797 +++|          ZJN    EQM12       IF END OF TABLE
08764  M01S01845.274l797 +++|          LMD    AB+4
08765  M01S01846.274l797 +++|          NJN    EQM16       IF NO MATCH
08766  M01S01847.274l797 +++|          LDM    TRQP
08767  M01S01848.274l797 +++|
08768  M01S01849.274l797 +++|**        EXIT TO PROCESSOR WITH -
08769  M01S01850.274l797 +++|*
08770  M01S01851.274l797 +++|*                (A) = (TRQP) = PREVIOUS DEFINITION STATUS.
08771  M01S01852.274l797 +++|*                (CN - CN+4) = WORD TO BUILD EST ENTRY.
08772  M01S01853.274l797 +++|*                (TDDB) = BUFFER TO BUILD *TDDE* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
08773  M02S01854.284l847 ---|*                (MS) = *TMSD* ADDRESS IF MASS STORAGE.
08774  M01S00503.284l847 +++|*                (MS) = *TETY* ADDRESS.
08775  M01S01855.274l797 +++|*                (TA) = *TVRK* ENTRY ADDRESS.
08776  M01S01856.274l797 +++|
08777  M01S01857.274l797 +++|          RJM    0,T1
08778  M01S01858.274l797 +++|
08779  M01S01859.274l797 +++|          LDM    TRQP
08780  M01S01860.274l797 +++|          ZJN    EQM20       IF NOT INITIAL ENTRY
08781  M01S01861.274l797 +++| EQM19    RJM    CML         CHECK MASS STORAGE LIMIT
08782  M01S01862.274l797 +++|          RJM    RMD         RESET MASS STORAGE DEVICE
08783  M01S01863.274l797 +++| EQM20    LDN    JSNL
08784  M01S01864.274l797 +++|          CWD    CN          MOVE EST ENTRY TO BUFFER
08785  M01S01865.274l797 +++|          CRM    EBUT,ON
08786  M01S01866.274l797 +++|          RJM    EEB         ENTER EQUIPMENT DEFINITION
08787  M01S01867.274l797 +++|          RJM    EDC         ENTER ISMD CHANNELS
08788  M01S01868.274l797 +++|          RJM    CLE         CHECK LAST EQUIPMENT
08789  M01S01869.274l797 +++|          JMP    KBR         RETURN
08790  M01S01870.274l797 +++| TETY     SPACE  4,10
08791  M01S01871.274l797 +++|****      TETY - TABLE OF EQUIPMENT TYPES.
08792  M01S01872.274l797 +++|*         ENTRY = 3 WORDS.
08793  M01S01873.274l797 +++|*
08794  M01S01874.274l797 +++|*         12/ NAME, 12/ ADDR, 6/ UN, 6/ CH
08795  M01S01875.274l797 +++|*         NAME   EQUIPMENT MNEMONIC
08796  M01S01876.274l797 +++|*         ADDR   ADDRESS OF PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
08797  M02S01877.set79   ---|*         UN     MAXIMUM UNIT NUMBER ALLOWED
08798  M01S00002.set79   +++|*         UN     MAXIMUM UNIT NUMBER ALLOWED (2**N-1).
08799  M01S01878.274l797 +++|*         CH     MAXIMUM CHANNELS ALLOWED
08800  M01S01879.274l797 +++|*
08801  M01S01880.274l797 +++|*         NOTE - MASS STORAGE DEVICES ARE IN TABLE *TMSD*.
08802  M01S01881.274l797 +++|
08803  M01S01882.274l797 +++|
08804  M01S01883.274l797 +++| TETY     BSS    0
08805  M01S00504.284l847 +++| EQPR     EQU    1           PROCESSOR ADDRESS
08806  M01S01884.274l797 +++|
08807  M01S01885.274l797 +++|*         UNIT RECORD DEVICES.
08808  M01S01886.274l797 +++|
08809  M01S01887.274l797 +++|          TEQP   CP,KWP,0,1
08810  M01S01888.274l797 +++| TETYL    EQU    *-TETY
08811  M01S01889.274l797 +++|          TEQP   CR,KWP,0,1
08812  M01S01890.274l797 +++|          TEQP   LQ,LPT,0,1
08813  M01S01891.274l797 +++|          TEQP   LR,LPT,0,1
08814  M01S01892.274l797 +++|          TEQP   LS,LPT,0,1
08815  M01S01893.274l797 +++|          TEQP   LT,LPT,0,1
08816  M01S01894.274l797 +++|          TEQP   LX,LXT,0,1
08817  M01S01895.274l797 +++|          TEQP   LY,LXT,0,1
08818  M01S01896.274l797 +++|
08819  M01S01897.274l797 +++|*         COMMUNICATIONS / NETWORK DEVICES.
08820  M01S01898.274l797 +++|
08821  M01S01899.274l797 +++|          TEQP   CC,ALD,0,1
08822  M01S01900.274l797 +++|          TEQP   NC,NAD,17,1
08823  M01S01901.274l797 +++|          TEQP   ND,KWP,0,1
08824  M01S01902.274l797 +++|          TEQP   NP,KWP,0,1
08825  M01S01903.274l797 +++|          TEQP   NQ,KWP,0,1
08826  M01S01904.274l797 +++|          TEQP   RM,ALD,1,1
08827  M01S01905.274l797 +++|          TEQP   TT,ALD,10,1
08828  M01S01906.274l797 +++|
08829  M01S01907.274l797 +++|*         *CYBIS* DEVICES.
08830  M01S01908.274l797 +++|
08831  M01S01909.274l797 +++|          TEQP   CI,KWP,7,2
08832  M01S01910.274l797 +++|          TEQP   D1,KWP,7,2
08833  M01S01911.274l797 +++|          TEQP   D2,KWP,7,2
08834  M01S01912.274l797 +++|          TEQP   D3,KWP,7,2
08835  M01S01913.274l797 +++|          TEQP   D4,KWP,7,2
08836  M01S01914.274l797 +++|          TEQP   NI,KWP,7,2
08837  M01S01915.274l797 +++|          TEQP   NO,KWP,7,2
08838  M01S01916.274l797 +++|          TEQP   SP,KWP,7,2
08839  M01S01917.274l797 +++|
08840  M01S01918.274l797 +++|*         MAGNETIC TAPE DEVICES.
08841  M01S01919.274l797 +++|
08842  M01S01920.274l797 +++|          TEQP   AT,MMT,17,2
08843  M01S01921.274l797 +++|          TEQP   CT,MMT,17,2
08844  M01S01922.274l797 +++|          TEQP   MT,MMT,17,2
08845  M01S01923.274l797 +++|          TEQP   NT,MMT,17,2
08846  M01S01924.274l797 +++|
08847  M01S01925.274l797 +++|*         MISCELLANEOUS DEVICES.
08848  M01S01926.274l797 +++|
08849  M01S01927.274l797 +++|          TEQP   CM,CMD,0,2
08850  M01S01928.274l797 +++|          TEQP   MP,KWP,0,1
08851  M01S01929.274l797 +++|          TEQP   OD,ALD,17,1 OPTICAL DISK
08852  M01S01930.274l797 +++|          TEQP   RP,KWP,0,1
08853  M01S01931.274l797 +++|          TEQP   SS,KWP,17,2
08854  M01S01932.274l797 +++|
08855  M01S01933.274l797 +++|*         INSTALLATION DEFINED DEVICES.
08856  M01S01934.274l797 +++|
08857  M01S01935.274l797 +++|          TEQP   **,KWP,0,0
08858  M01S01936.274l797 +++|
08859  M01S01937.274l797 +++|          CON    0           END OF TABLE
08860  M01S01938.274l797 +++|****
08861  M01S01939.274l797 +++|          TITLE  EQUIPMENT DEFINITION PROCESSORS.
08862  M01S01940.274l797 +++| ALD      SPACE  4,10
08863  M01S01941.274l797 +++|**        ALD - PROCESS ALLOCATABLE DEVICE.
08864  M01S01942.274l797 +++|
08865  M01S01943.274l797 +++|
08866  M01S01944.274l797 +++| ALD      SUBR               ENTRY/EXIT
08867  M01S01945.274l797 +++|          ZJN    ALD1        IF NOT INITIAL EQUIPMENT ENTRY
08868  M01S01946.274l797 +++|          LDC    2000        SET ALLOCATABLE DEVICE
08869  M01S01947.274l797 +++|          RAD    CN
08870  M01S01948.274l797 +++| ALD1     RJM    KWP         PROCESS KEYWORDS
08871  M01S01949.274l797 +++|          UJN    ALDX        RETURN
08872  M01S01950.274l797 +++| CMD      SPACE  4,10
08873  M01S01951.274l797 +++|***       EQXXX=CM.
08874  M01S01952.274l797 +++|
08875  M01S01953.274l797 +++|
08876  M01S01954.274l797 +++| CMD      SUBR               ENTRY/EXIT
08877  M01S01955.274l797 +++|          LDM    ISPF
08878  M01S01956.274l797 +++|          SHN    21-13
08879  M01S01957.274l797 +++|          PJN    CMD2        IF CYBER 810/815/825/830
08880  M01S01958.274l797 +++| CMD1     JMP    ILL         PROCESS INCORRECT ENTRY
08881  M01S01959.274l797 +++|
08882  M01S01960.274l797 +++| CMD2     LDM    TRQP
08883  M01S01961.274l797 +++|          ZJN    CMD3        IF NOT INITIAL ENTRY
08884  M01S01962.274l797 +++|          LDN    CMCW        SET DEFAULT CONTROLWARE
08885  M01S01963.274l797 +++|          STD    AB+4
08886  M01S01964.274l797 +++|          LDC    PLCW        SET KEYWORD PARAMETER ADDRESS
08887  M01S01965.274l797 +++|          STD    T3
08888  M01S01966.274l797 +++|          RJM    STV         STORE KEYWORD VALUE
08889  M01S01967.274l797 +++| CMD3     RJM    KWP         PROCESS KEYWORDS
08890  M01S01968.274l797 +++|          LDD    CN+4        GET EQUIPMENT NUMBER
08891  M01S01969.274l797 +++|          SHN    -11
08892  M01S01970.274l797 +++|          STD    T6
08893  M01S01971.274l797 +++|          LDM    TENB,T6
08894  M01S01972.274l797 +++|          ZJN    CMD4        IF UNIQUE EQUIPMENT NUMBER
08895  M01S01973.274l797 +++|          LMD    EQ
08896  M01S01974.274l797 +++|          NJN    CMD1        IF NOT CURRENT EST ORDINAL
08897  M01S01975.274l797 +++| CMD4     RJM    CDC         CLEAR ISMD CHANNELS
08898  M01S01976.274l797 +++|          LDD    EQ          SET EST ORDINAL
08899  M01S01977.274l797 +++|          STM    TENB,T6
08900  M01S01978.274l797 +++|          LJM    CMDX        RETURN
08901  M01S05527.set     +++| LPT      SPACE  4,10
08902  M01S05528.set     +++|***       EQXXX=LQ.
08903  M01S05529.set     +++|*         EQXXX=LR-P.
08904  M01S05530.set     +++|*         EQXXX=LS-P.
08905  M01S05531.set     +++|*         EQXXX=LT-P.
08906  M01S05532.set     +++|*
08907  M01S05533.set     +++|*         IF *-P* IS PRESENT, SPECIFIES 580 PFC PRINTER.
08908  M01S05534.set     +++|
08909  M01S05535.set     +++|
08910  M01S05536.set     +++| LPT1     AOD    KA
08911  M01S05537.set     +++|          LDC    200         SET 580 PFC BIT
08912  M01S05538.set     +++|          RAD    CN
08913  M01S05539.set     +++| LPT2     RJM    KWP         PROCESS KEYWORDS
08914  M01S05540.set     +++|
08915  M01S05541.set     +++| LPT      SUBR               ENTRY/EXIT
08916  M01S05542.set     +++|          LDD    CN          CLEAR 580 PFC BIT
08917  M01S05543.set     +++|          LPC    7577
08918  M01S05544.set     +++|          STD    CN
08919  M01S05545.set     +++|          LDI    KA          CHECK SEPARATOR
08920  M01S05546.set     +++|          LMN    1R-
08921  M01S05547.set     +++|          NJN    LPT2        IF NOT *-*
08922  M01S05548.set     +++|          AOD    KA          SKIP *-*
08923  M01S05549.set     +++|          LDI    KA          CHECK FOR 580 PFC
08924  M01S05550.set     +++|          LMN    1RP
08925  M01S05551.set     +++|          ZJN    LPT1        IF 580 PFC
08926  M01S05552.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
08927  M01S05553.set     +++|LXT       SPACE  4,10
08928  M01S05554.set     +++|***       EQXXX=LX.
08929  M01S05555.set     +++|*         EQXXX=LY.
08930  M01S05556.set     +++|
08931  M01S05557.set     +++|
08932  M01S05558.set     +++| LXT1     RJM    KWP         PROCESS KEYWORDS
08933  M01S05559.set     +++|          LDD    CN+1
08934  M01S05560.set     +++|          LPN    37
08935  M01S05561.set     +++|          STD    T1
08936  M01S05562.set     +++|          LDN    CNCX        SET NO LOAD OF NIP CONTROLWARE
08937  M01S05563.set     +++|          STM    TCHS,T1
08938  M01S05564.set     +++|          RJM    SCC         UPDATE CONTROLWARE TABLE
08939  M01S05565.set     +++|
08940  M01S05566.set     +++| LXT      SUBR               ENTRY/EXIT
08941  M01S05567.set     +++|          LDD    CN
08942  M01S05568.set     +++|          LPN    57
08943  M01S05569.set     +++|          LMN    20          SET CONTROLWARE LOAD REQUIRED
08944  M01S05570.set     +++|          STD    CN
08945  M01S05571.set     +++|          LDC    700         FORCE TRAIN = 7
08946  M01S05572.set     +++|          STD    CN+4
08947  M01S05573.set     +++|          UJN    LXT1        COMPLETE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
08948  M02S05574.274l797 ---| MMT      SPACE  4,10
08949  M01S01979.274l797 +++| MMT      SPACE  4,20
08950  M01S05575.set     +++|***       EQXXX=MT-N.
08951  M01S01980.274l797 +++|*         EQXXX=NT-N.
08952  M01S01981.274l797 +++|*         EQXXX=CT-N.
08953  M01S01982.274l797 +++|*         EQXXX=AT-N.

Seq #  *Modification Id* Act 
----------------------------+
08954  M02S05576.274l797 ---|*         EQXXX=NT-N.
08955  M01S05577.set     +++|*
08956  M01S05578.set     +++|*         *N* CONSECUTIVE EST ENTRIES ARE GENERATED BEGINNING AT *XXX*.
08957  M01S01983.274l797 +++|*
08958  M01S05579.set     +++|*         THE *N* UNITS BEGIN WITH THE UNIT NUMBER SPECIFIED BY *UN=*

Seq #  *Modification Id* Act 
----------------------------+
08959  M02S05580.274l797 ---|*         AND MUST BE NUMBERED CONSECUTIVELY.
08960  M01S01984.274l797 +++|*         AND MUST BE NUMBERED CONSECUTIVELY.
08961  M01S01985.274l797 +++|*
08962  M01S01986.274l797 +++|*         FOR *AT* UNITS, THE ACS DRIVE INDEXES FOR THE *N* UNITS
08963  M01S01987.274l797 +++|*         BEGIN WITH THE DRIVE INDEX SPECIFIED BY *DR=* AND MUST BE
08964  M01S01988.274l797 +++|*         NUMBERED CONSECUTIVELY.
08965  M01S01989.274l797 +++|*
08966  M01S01990.274l797 +++|*         FOR *CT* AND *AT* UNITS DEFINED WITH DUAL CHANNEL ACCESS,
08967  M01S01991.274l797 +++|*         THE PRIMARY AND SECONDARY CHANNELS WILL BE REVERSED FOR EACH
08968  M01S01992.274l797 +++|*         CONSECUTIVE EST ENTRY GENERATED.
08969  M01S05581.set     +++|
08970  M01S05582.set     +++|
08971  M01S05583.set     +++| MMT      CON    0           ENTRY
08972  M01S05584.set     +++|          LDI    KA          CHECK SEPARATOR
08973  M01S05585.set     +++|          LMN    1R,
08974  M01S05586.set     +++|          ZJN    MMT1        IF *,*
08975  M01S05587.set     +++|          LMN    1R-&1R,
08976  M01S05588.set     +++|          NJN    MMT2        IF NOT *-*
08977  M01S05589.set     +++|          AOD    KA
08978  M01S05590.set     +++|          RJM    CDR         ASSEMBLE NUMBER OF UNITS
08979  M01S05591.set     +++|          LMN    1R,
08980  M01S05592.set     +++|          NJN    MMT2        IF INCORRECT SEPARATOR
08981  M01S05593.set     +++|          LDD    AB+4
08982  M01S05594.set     +++|          ZJN    MMT2        IF NULL UNIT COUNT
08983  M01S05595.set     +++|          SBN    21
08984  M01S05596.set     +++|          PJN    MMT2        IF UNIT COUNT TOO LARGE
08985  M01S05597.set     +++|          ADN    20
08986  M01S05598.set     +++| MMT1     ADN    1           SET UNIT COUNT
08987  M01S05599.set     +++|          STM    MMTA
08988  M01S05600.set     +++|          ADD    EQ
08989  M01S05601.set     +++|          SBK    ESMX+1
08990  M01S05602.set     +++|          MJN    MMT3        IF LAST UNIT DOES NOT EXCEED MAXIMUM
08991  M01S05603.set     +++| MMT2     JMP    ILL         PROCESS INCORRECT ENTRY
08992  M01S05604.set     +++|
08993  M01S05605.set     +++| MMT3     RJM    KWP         PROCESS KEYWORDS
08994  M01S05606.set     +++|          LDD    CN+4
08995  M01S05607.set     +++|          LPN    17
08996  M01S05608.set     +++|          ADM    MMTA
08997  M01S05609.set     +++|          SBN    21
08998  M01S05610.set     +++|          PJN    MMT2        IF UNIT NUMBER OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
08999  M02S05611.274l797 ---|          LDD    EQ
09000  M01S01993.274l797 +++|          LDD    CN+3
09001  M01S01994.274l797 +++|          LMC    2RAT
09002  M01S01995.274l797 +++|          NJN    MMT3.1      IF NOT *AT* DEVICE
09003  M01S01996.274l797 +++|          LDM    EBUT+5+2
09004  M01S01997.274l797 +++|          LPN    7
09005  M01S01998.274l797 +++|          ADM    MMTA
09006  M01S01999.274l797 +++|          SBN    5
09007  M01S02000.274l797 +++|          PJN    MMT2        IF ACS DRIVE INDEX OVERFLOW
09008  M01S02001.274l797 +++| MMT3.1   LDD    EQ
09009  M01S05612.set     +++|          STD    T6
09010  M01S05613.set     +++|          ADM    MMTA        SET NEXT EST ORDINAL
09011  M01S05614.set     +++|          STD    T7
09012  M01S05615.set     +++| MMT4     LDD    EB          READ PREVIOUS EQUIPMENT DEFINITION
09013  M01S05616.set     +++|          SHN    5
09014  M01S05617.set     +++|          ADD    T6
09015  M01S05618.set     +++|          SHN    1
09016  M01S05619.set     +++|          CRD    AB
09017  M01S05620.set     +++|          LDD    AB          CHECK ORIGINAL EQUIPMENT STATUS
09018  M01S05621.set     +++|          SHN    21-13

Seq #  *Modification Id* Act 
----------------------------+
09019  M02S05622.274l797 ---|          MJN    MMT2        IF REDEFINING MS
09020  M01S02002.274l797 +++|          MJP    MMT2        IF REDEFINING MS
09021  M01S05623.set     +++|          AOD    T6
09022  M01S05624.set     +++|          LMD    T7
09023  M01S05625.set     +++|          NJN    MMT4        IF NOT END OF UNITS
09024  M01S05626.set     +++|          RJM    CHD         CHECK ISMT DUAL CHANNEL ERROR
09025  M01S05627.set     +++|          LDD    CN+1        FIRST CHANNEL
09026  M01S05628.set     +++|          RJM    CHN         CHECK ISMT DUPLICATE CHANNEL ERROR
09027  M01S05629.set     +++|          LDD    CN+2        SECOND CHANNEL
09028  M01S05630.set     +++|          ZJN    MMT5        IF NO SECOND CHANNEL
09029  M01S05631.set     +++|          RJM    CHN         CHECK ISMT DUPLICATE CHANNEL ERROR
09030  M01S05632.set     +++| MMT5     LDD    EB
09031  M01S05633.set     +++|          SHN    5
09032  M01S05634.set     +++|          ADD    EQ          ENTER TAPE DEFINITION IN EST BUFFER
09033  M01S05635.set     +++|          SHN    1
09034  M01S05636.set     +++|          CWD    CN
09035  M01S05637.set     +++|          ADN    1
09036  M01S05638.set     +++|          CWM    EBUT+5,ON
09037  M01S05639.set     +++|          AOD    CN+4        ADVANCE UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
09038  M02S05640.274l797 ---|          AOD    EQ
09039  M01S02003.274l797 +++|          LDD    CN+3
09040  M01S02004.274l797 +++|          LMC    2RAT
09041  M01S02005.274l797 +++|          NJN    MMT5.1      IF NOT *AT* DEVICE
09042  M01S02006.274l797 +++|          AOM    EBUT+5+2    ADVANCE ACS DRIVE INDEX
09043  M01S02007.274l797 +++| MMT5.1   AOD    EQ
09044  M01S05641.set     +++|          LMD    T7

Seq #  *Modification Id* Act 
----------------------------+
09045  M02S05642.274l797 ---|          NJN    MMT5        IF ALL UNITS NOT DEFINED

Seq #  *Modification Id* Act 
----------------------------+
09046  M02S05643.274l797 ---|          SOD    EQ
09047  M01S02008.274l797 +++|          ZJN    MMT6        IF ALL UNITS DEFINED
09048  M01S02009.274l797 +++|          RJM    RCC         REVERSE CHANNELS FOR CARTRIDGE TAPE
09049  M01S02010.274l797 +++|          UJN    MMT5        DEFINE REMAINING UNITS
09050  M01S02011.274l797 +++|
09051  M01S02012.274l797 +++| MMT6     SOD    EQ
09052  M01S05644.set     +++|          RJM    CLE         CHECK LAST EQUIPMENT
09053  M01S05645.set     +++|          JMP    KBR         RETURN
09054  M01S05646.set     +++|
09055  M01S05647.set     +++| MMTA     CON    0           UNIT COUNT
09056  M01S05648.set     +++| NAD      SPACE  4,15
09057  M01S05649.set     +++|**        EQXXX=NC.
09058  M01S05650.set     +++|
09059  M01S05651.set     +++|
09060  M01S05652.set     +++| NAD      SUBR               ENTRY/EXIT
09061  M01S05653.set     +++|          ZJN    NAD1        IF NOT INITIAL EQUIPMENT ENTRY
09062  M01S05654.set     +++|          LDC    3000        SET ALLOCATABLE, CONTROLWARE NOT LOADED
09063  M01S05655.set     +++|          RAD    CN
09064  M01S05656.set     +++| NAD1     RJM    KWP
09065  M01S05657.set     +++|          LDD    CN+1        CHANNEL NUMBER
09066  M01S05658.set     +++|          LPN    37
09067  M01S05659.set     +++|          STD    T1
09068  M01S05660.set     +++|          LDN    CNND        SET NO LOAD OF NAD CONTROLWARE
09069  M01S05661.set     +++|          STM    TCHS,T1
09070  M01S05662.set     +++|          RJM    SCC
09071  M01S05663.set     +++|          UJN    NADX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
09072  M02S05664.274l797 ---| PDC      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
09073  M02S05665.274l797 ---|***       EQXXX=DC.

Seq #  *Modification Id* Act 
----------------------------+
09074  M02S05666.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09075  M02S05667.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09076  M02S05668.274l797 ---| PDC1     RJM    KWP         PROCESS KEYWORDS

Seq #  *Modification Id* Act 
----------------------------+
09077  M02S05669.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09078  M02S05670.274l797 ---| PDC      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
09079  M02S05671.274l797 ---|          LDC    MABL        CHECK PP SPEED

Seq #  *Modification Id* Act 
----------------------------+
09080  M02S05672.274l797 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
09081  M02S05673.274l797 ---|          LDD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
09082  M02S05674.274l797 ---|          SBN    2

Seq #  *Modification Id* Act 
----------------------------+
09083  M02S05675.274l797 ---|          PJN    PDC1        IF 4X PP SPEED

Seq #  *Modification Id* Act 
----------------------------+
09084  M02S05676.274l797 ---|          JMP    ILL         PROCESS KEYWORDS

Seq #  *Modification Id* Act 
----------------------------+
09085  M02S05677.274l797 ---| PDD      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
09086  M02S05678.274l797 ---|***       EQXXX=DD.

Seq #  *Modification Id* Act 
----------------------------+
09087  M02S05679.274l797 ---|*         EQXXX=DG.

Seq #  *Modification Id* Act 
----------------------------+
09088  M02S05680.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09089  M02S05681.274l797 ---| PDD1     LDN    37          PRESET NO CHANNELS SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
09090  M02S05682.274l797 ---|          STD    CN+1

Seq #  *Modification Id* Act 
----------------------------+
09091  M02S05683.274l797 ---|          LDN    4           SET LIMIT TEST FOR DRIVE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
09092  M02S05684.274l797 ---|          RAM    SUNB

Seq #  *Modification Id* Act 
----------------------------+
09093  M02S05685.274l797 ---|          RJM    KWP         PROCESS KEYWORDS

Seq #  *Modification Id* Act 
----------------------------+
09094  M02S05686.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09095  M02S05687.274l797 ---| PDD      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
09096  M02S05688.274l797 ---|          LDM    ISPF

Seq #  *Modification Id* Act 
----------------------------+
09097  M02S05689.274l797 ---|          SHN    21-13

Seq #  *Modification Id* Act 
----------------------------+
09098  M02S05690.274l797 ---|          PJN    PDD1        IF CYBER 810/815/825/830

Seq #  *Modification Id* Act 
----------------------------+
09099  M02S05691.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09100  M02S05692.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09101  M02S05693.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09102  M02S05694.274l797 ---| PDG      EQU    PDD         *DG* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09103  M02S05695.274l797 ---| PDF      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
09104  M02S05696.274l797 ---|***       EQXXX=DF.

Seq #  *Modification Id* Act 
----------------------------+
09105  M02S05697.274l797 ---|*         EQXXX=DH.

Seq #  *Modification Id* Act 
----------------------------+
09106  M02S00046.274l797 ---|*         EQXXX=DN.

Seq #  *Modification Id* Act 
----------------------------+
09107  M02S00013.274l797 ---|*         EQXXX=EA.

Seq #  *Modification Id* Act 
----------------------------+
09108  M02S00014.274l797 ---|*         EQXXX=EB.

Seq #  *Modification Id* Act 
----------------------------+
09109  M02S00015.274l797 ---|*         EQXXX=EC.

Seq #  *Modification Id* Act 
----------------------------+
09110  M02S00016.274l797 ---|*         EQXXX=ED.

Seq #  *Modification Id* Act 
----------------------------+
09111  M02S00017.274l797 ---|*         EQXXX=EE.

Seq #  *Modification Id* Act 
----------------------------+
09112  M02S00018.274l797 ---|*         EQXXX=EF.

Seq #  *Modification Id* Act 
----------------------------+
09113  M02S05698.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09114  M02S05699.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09115  M02S05700.274l797 ---| PDF1     LDC    PCC         SET CHANNEL PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09116  M02S05701.274l797 ---|          STM    TKWPA

Seq #  *Modification Id* Act 
----------------------------+
09117  M02S00047.274l797 ---|          LDM    TKWPB+2     *EQ* DEFINITION PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
09118  M02S00048.274l797 ---|          SCN    37

Seq #  *Modification Id* Act 
----------------------------+
09119  M02S00049.274l797 ---|          LMN    TDDB-EBUT+DVPR  SET LOCATION FOR CONTROLLER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
09120  M02S00050.274l797 ---|          STM    TKWPB+2

Seq #  *Modification Id* Act 
----------------------------+
09121  M02S05702.274l797 ---|          RJM    KWP         PROCESS KEYWORDS

Seq #  *Modification Id* Act 
----------------------------+
09122  M02S05703.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09123  M02S05704.274l797 ---| PDF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
09124  M02S05705.274l797 ---|          LDM    .CCHN

Seq #  *Modification Id* Act 
----------------------------+
09125  M02S05706.274l797 ---|          NJN    PDF1        IF *I4* IOU

Seq #  *Modification Id* Act 
----------------------------+
09126  M02S05707.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09127  M02S05708.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09128  M02S05709.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09129  M02S05710.274l797 ---| PDH      EQU    PDF         *DH* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09130  M02S00051.274l797 ---| PDN      EQU    PDF         *DN* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09131  M02S00019.274l797 ---| PEA      EQU    PDF         *EA* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09132  M02S00020.274l797 ---| PEB      EQU    PDF         *EB* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09133  M02S00021.274l797 ---| PEC      EQU    PDF         *EC* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09134  M02S00022.274l797 ---| PED      EQU    PDF         *ED* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09135  M02S00023.274l797 ---| PEE      EQU    PDF         *EE* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09136  M02S00024.274l797 ---| PEF      EQU    PDF         *EF* PROCESSOR
09137  M01S05711.set     +++| KWP      SPACE  4,10
09138  M01S05712.set     +++|**        KWP - KEYWORD MAIN PROCESSOR.
09139  M01S05713.set     +++|*
09140  M01S05714.set     +++|*         ENTRY  (KA) = ADDRESS OF SEPARATOR CHARACTER.
09141  M01S05715.set     +++|*                (TA) = *TVRK* ENTRY ADDRESS.
09142  M01S05716.set     +++|
09143  M01S05717.set     +++|
09144  M01S05718.set     +++| KWP      SUBR               ENTRY/EXIT
09145  M01S05719.set     +++| KWP1     AOD    KA
09146  M01S05720.set     +++|          LDI    KA          ASSEMBLE KEYWORD
09147  M01S05721.set     +++|          SHN    6
09148  M01S05722.set     +++|          LMM    1,KA
09149  M01S05723.set     +++|          STD    AB
09150  M01S05724.set     +++|          LDN    2           ADVANCE KEYBOARD BUFFER ADDRESS
09151  M01S05725.set     +++|          RAD    KA
09152  M01S05726.set     +++|          LDI    KA
09153  M01S05727.set     +++|          LMN    1R=
09154  M01S05728.set     +++|          NJN    KWP3        IF INCORRECT SEPARATOR
09155  M01S05729.set     +++|          AOD    KA
09156  M01S05730.set     +++|          LDC    TKWP-TKWPL
09157  M01S05731.set     +++|          STD    T3
09158  M01S05732.set     +++| KWP2     LDN    TKWPL
09159  M01S05733.set     +++|          RAD    T3
09160  M01S05734.set     +++|          LDI    T3
09161  M01S05735.set     +++|          NJN    KWP4        IF NOT END OF TABLE
09162  M01S05736.set     +++| KWP3     JMP    ILL         PROCESS INCORRECT ENTRY
09163  M01S05737.set     +++|
09164  M01S05738.set     +++| KWP4     STD    T2
09165  M01S05739.set     +++|          LDD    AB
09166  M01S05740.set     +++|          LMI    T2
09167  M01S05741.set     +++|          NJN    KWP2        IF NOT MATCH
09168  M01S05742.set     +++|          RJM    VKW         VALIDATE KEYWORD
09169  M01S05743.set     +++|
09170  M01S05744.set     +++|*         EXIT TO KEYWORD PROCESSOR.
09171  M01S05745.set     +++|*         (T3) = ADDRESS OF *TKWP* ENTRY.
09172  M01S05746.set     +++|*         (KA) = ADDRESS OF KEYWORD VALUE FIRST CHARACTER.
09173  M01S05747.set     +++|
09174  M01S05748.set     +++|          LJM    1,T2        EXIT TO PROCESSOR
09175  M01S05749.set     +++|
09176  M01S05750.set     +++|*         RETURN FROM KEYWORD PROCESSOR.
09177  M01S05751.set     +++|*         (KA) = ADDRESS OF SEPARATOR CHARACTER.
09178  M01S05752.set     +++|
09179  M01S05753.set     +++| KWP5     LDI    KA          CHECK SEPARATOR
09180  M01S05754.set     +++|          LMN    1R,
09181  M01S05755.set     +++|          ZJN    KWP1        IF NOT END OF ENTRY
09182  M01S05756.set     +++|          LMN    1R.&1R,
09183  M01S05757.set     +++|          NJN    KWP3        IF INCORRECT SEPARATOR
09184  M01S05758.set     +++|          LDM    TRQP
09185  M01S05759.set     +++|          ZJN    KWP7        IF NOT INITIAL ENTRY
09186  M01S05760.set     +++|          LDN    KTWC
09187  M01S05761.set     +++|          STD    T2
09188  M01S05762.set     +++|          LDN    TVRKL
09189  M01S05763.set     +++|          RAD    TA
09190  M01S05764.set     +++| KWP6     SOD    TA
09191  M01S05765.set     +++|          LDI    TA
09192  M01S05766.set     +++|          STM    KWPA
09193  M01S05767.set     +++|          LDM    TRQP,T2
09194  M01S05768.set     +++|          LPC    **
09195  M01S05769.set     +++| KWPA     EQU    *-1
09196  M01S05770.set     +++|          LMI    TA
09197  M01S05771.set     +++|          NJN    KWP3        IF REQUIRED KEYWORD NOT SPECIFIED
09198  M01S05772.set     +++|          SOD    T2
09199  M01S05773.set     +++|          NJN    KWP6        IF MORE KEYWORDS TO CHECK

Seq #  *Modification Id* Act 
----------------------------+
09200  M02S05774.ns2644  ---| KWP7     LJM    KWPX        RETURN
09201  M01S00059.ns2644  +++| KWP7     LDD    CN
09202  M01S00060.ns2644  +++|          LPN    3
09203  M01S00061.ns2644  +++|          LMN    3
09204  M01S00062.ns2644  +++|          ZJN    KWP9        IF DEVICE IS DOWN
09205  M01S00063.ns2644  +++|          LDD    CN+1        CHECK PRIMARY CHANNEL
09206  M01S00064.ns2644  +++|          SHN    21-13
09207  M01S00065.ns2644  +++|          PJN    KWP9        IF NO PRIMARY CHANNEL
09208  M01S00066.ns2644  +++|          SHN    21-12-21+13
09209  M01S00067.ns2644  +++|          PJN    KWP9        IF CHANNEL IS UP
09210  M01S00068.ns2644  +++|          LDD    CN+2        CHECK SECONDARY CHANNEL
09211  M01S00069.ns2644  +++|          SHN    21-13
09212  M01S00070.ns2644  +++|          PJN    KWP8        IF NO SECONDARY CHANNEL
09213  M01S00071.ns2644  +++|          SHN    21-12-21+13
09214  M01S00072.ns2644  +++|          PJN    KWP9        IF CHANNEL IS UP
09215  M01S00073.ns2644  +++| KWP8     JMP    ILL         PROCESS INCORRECT ENTRY
09216  M01S00074.ns2644  +++|
09217  M01S00075.ns2644  +++| KWP9     LJM    KWPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
09218  M02S05775.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
09219  M02S05776.274l797 ---| PDI      EQU    KWP         *DI* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09220  M02S05777.274l797 ---| PDJ      EQU    KWP         *DJ* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09221  M02S05778.274l797 ---| PDM      EQU    KWP         *DM* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09222  M02S05779.274l797 ---| PDK      EQU    KWP         *DK* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09223  M02S05780.274l797 ---| PDL      EQU    KWP         *DL* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09224  M02S05781.274l797 ---| PDQ      EQU    KWP         *DQ* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09225  M02S05782.274l797 ---| PDB      EQU    KWP         *DB* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09226  M02S05783.274l797 ---| PDX      EQU    KWP         *DX* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09227  M02S05784.274l797 ---| PDY      EQU    KWP         *DY* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09228  M02S05785.274l797 ---| PDZ      EQU    KWP         *DZ* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09229  M02S05786.274l797 ---| PDA      EQU    KWP         *DA* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09230  M02S05787.274l797 ---| PDV      EQU    KWP         *DV* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
09231  M02S05788.274l797 ---| PDW      EQU    KWP         *DW* PROCESSOR
09232  M01S05789.set     +++|          TITLE  MISCELLANEOUS EQUIPMENT DEFINITION SUBROUTINES.
09233  M01S05790.set     +++| CDC      SPACE  4,15
09234  M01S05791.set     +++|**        CDC - CLEAR ISMD CHANNELS.
09235  M01S05792.set     +++|*
09236  M01S05793.set     +++|*         ENTRY  (EBUT) = PREVIOUS EBUT *CM* EQUIPMENT ENTRY.
09237  M01S05794.set     +++|*
09238  M01S05795.set     +++|*         EXIT   CHANNEL NUMBERS ARE CLEARED IN ALL ISMD DEVICE ENTRIES
09239  M01S05796.set     +++|*                WHICH HAVE THE FIRST UNIT ON THIS *CM* EQUIPMENT.
09240  M01S05797.set     +++|*
09241  M01S05798.set     +++|*         USES   T1, T2, T3.
09242  M01S05799.set     +++|*
09243  M01S05800.set     +++|*         CALLS  SDC.
09244  M01S05801.set     +++|
09245  M01S05802.set     +++|
09246  M01S05803.set     +++| CDC      SUBR               ENTRY/EXIT
09247  M01S05804.set     +++|          LDM    EBUT+4      SAVE EQUIPMENT NUMBER
09248  M01S05805.set     +++|          SHN    -11
09249  M01S05806.set     +++|          STD    T1
09250  M01S05807.set     +++|          LDM    EBUT+3
09251  M01S05808.set     +++|          LMC    2RCM
09252  M01S05809.set     +++|          NJN    CDCX        IF NOT CONTROL MODULE
09253  M01S05810.set     +++|          STM    TENB,T1     CLEAR EST ORDINAL
09254  M01S05811.set     +++|          STD    T3
09255  M01S05812.set     +++|          LDN    37          SET NO CHANNEL SPECIFIED
09256  M01S05813.set     +++|          STD    T2
09257  M01S05814.set     +++|          RJM    SDC         SET ISMD CHANNELS
09258  M01S05815.set     +++|          UJN    CDCX        RETURN
09259  M01S05816.set     +++| CLE      SPACE  4,15
09260  M01S05817.set     +++|**        CLE - CHECK LAST EQUIPMENT.
09261  M01S05818.set     +++|*
09262  M01S05819.set     +++|*         ENTRY  (EQ) = CURRENT EST ORDINAL.
09263  M01S05820.set     +++|*                (LE) = LAST EQUIPMENT DEFINED.
09264  M01S05821.set     +++|*                (CN - CN+4) = CURRENT EQUIPMENT DEFINITION.
09265  M01S05822.set     +++|*
09266  M01S05823.set     +++|*         EXIT   (LE) = CURRENT LAST EQUIPMENT.
09267  M01S05824.set     +++|*                (EQ) = CURRENT EST ORDINAL + 1.
09268  M01S05825.set     +++|*
09269  M01S05826.set     +++|*         USES   T5, CN - CN+4.
09270  M01S05827.set     +++|*
09271  M01S05828.set     +++|*         CALLS  IBF.
09272  M01S05829.set     +++|
09273  M01S05830.set     +++|
09274  M01S05831.set     +++| CLE3     AOD    EQ          CHECK NEW EQUIPMENT DEFINITION
09275  M01S05832.set     +++|          SBD    LE
09276  M01S05833.set     +++|          PJN    CLE2        IF ORDINAL .GE. PREVIOUS HIGH
09277  M01S05834.set     +++|
09278  M01S05835.set     +++| CLE      SUBR               ENTRY/EXIT
09279  M01S05836.set     +++|          LDD    CN+3
09280  M01S05837.set     +++|          NJN    CLE3        IF DEFINING EQUIPMENT
09281  M01S05838.set     +++|          AOD    EQ
09282  M01S05839.set     +++|          LMD    LE
09283  M01S05840.set     +++|          NJN    CLEX        IF NOT CLEARING LAST EQUIPMENT
09284  M01S05841.set     +++| CLE1     SOD    LE
09285  M01S05842.set     +++|          SHN    14+1
09286  M01S05843.set     +++|          ADD    EB          SEARCH FOR LAST EQUIPMENT
09287  M01S05844.set     +++|          SHN    6
09288  M01S05845.set     +++|          CRD    CN
09289  M01S05846.set     +++|          LDD    CN+3
09290  M01S05847.set     +++|          ZJN    CLE1        IF EQUIPMENT UNDEFINED
09291  M01S05848.set     +++|          LDN    1
09292  M01S05849.set     +++| CLE2     RAD    LE          UPDATE LAST EQUIPMENT
09293  M01S05850.set     +++|          STD    T5
09294  M01S05851.set     +++|          LDN    UECF        SEND COUNT TO BUFFER PP
09295  M01S05852.set     +++|          RJM    IBF
09296  M01S05853.set     +++|          UJN    CLEX        RETURN
09297  M01S05854.set     +++| CML      SPACE  4,10
09298  M01S05855.set     +++|**        CML - CHECK MASS STORAGE LIMIT.
09299  M01S05856.set     +++|*
09300  M01S05857.set     +++|*         ENTRY  (CN - CN+4) = CURRENT EQUIPMENT DEFINITION.
09301  M01S00505.284l847 +++|*                (EBUT - EBUT+4) = PREVIOUS EQUIPMENT DEFINITION.
09302  M01S05858.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
09303  M02S05859.284l847 ---|

Seq #  *Modification Id* Act 
----------------------------+
09304  M02S05860.284l847 ---| CML2     AOM    MSLM        ADVANCE MASS STORAGE LIMIT
09305  M01S05861.set     +++|
09306  M01S05862.set     +++| CML      SUBR               ENTRY/EXIT
09307  M01S05863.set     +++|          LDI    ES
09308  M01S05864.set     +++|          LMD    CN          CHECK REDEFINITION
09309  M01S05865.set     +++|          SHN    0-13
09310  M01S05866.set     +++|          ZJN    CMLX        IF NO CHANGE IN STATUS

Seq #  *Modification Id* Act 
----------------------------+
09311  M02S05867.284l847 ---|          LDD    CN

Seq #  *Modification Id* Act 
----------------------------+
09312  M02S05868.284l847 ---|          SHN    0-13

Seq #  *Modification Id* Act 
----------------------------+
09313  M02S05869.284l847 ---|          ZJN    CML2        IF NEW EQUIPMENT NOT MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
09314  M02S05870.284l847 ---|          LDM    MSLM

Seq #  *Modification Id* Act 
----------------------------+
09315  M02S05871.284l847 ---|          ZJN    CML1        IF MASS STORAGE LIMIT

Seq #  *Modification Id* Act 
----------------------------+
09316  M02S05872.284l847 ---|          SOM    MSLM
09317  M01S00506.284l847 +++|          AOM    MSLM        ADVANCE MASS STORAGE LIMIT
09318  M01S05873.set     +++|          UJN    CMLX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
09319  M02S05874.284l847 ---|

Seq #  *Modification Id* Act 
----------------------------+
09320  M02S05875.284l847 ---| CML1     LDC    CMLB        SET ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
09321  M02S05876.284l847 ---|          JMP    ILL1        DISPLAY ERROR

Seq #  *Modification Id* Act 
----------------------------+
09322  M02S05877.284l847 ---|

Seq #  *Modification Id* Act 
----------------------------+
09323  M02S05878.284l847 ---| CMLB     DATA   C*MS LIMIT EXCEEDED.*
09324  M01S05879.set     +++| EDC      SPACE  4,20
09325  M01S05880.set     +++|**        EDC - ENTER ISMD CHANNELS.
09326  M01S05881.set     +++|*
09327  M01S05882.set     +++|*         ENTRY  (CN - CN+4) = EQUIPMENT ENTRY.
09328  M01S05883.set     +++|*                (EQ) = CURRENT EST ORDINAL.
09329  M01S05884.set     +++|*
09330  M01S05885.set     +++|*         EXIT   (EQ) = CURRENT EST ORDINAL.
09331  M01S05886.set     +++|*                IF DEVICE TYPE = *CM*, THE CHANNEL NUMBERS ARE SET IN
09332  M01S05887.set     +++|*                   ALL ISMD ENTRIES WHICH HAVE THE FIRST UNIT ON THIS
09333  M01S05888.set     +++|*                   *CM* EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
09334  M02S05889.274l797 ---|*                IF DEVICE IS AN ISMD, A SEARCH IS MADE FOR THE *CM*

Seq #  *Modification Id* Act 
----------------------------+
09335  M02S05890.274l797 ---|*                   EQUIPMENT WHICH CORRESPONDS TO THE FIRST UNIT - IF

Seq #  *Modification Id* Act 
----------------------------+
09336  M02S05891.274l797 ---|*                   FOUND, THE CHANNEL NUMBERS ARE SET IN THE ISMD

Seq #  *Modification Id* Act 
----------------------------+
09337  M02S05892.274l797 ---|*                   ENTRY.
09338  M01S05893.set     +++|*
09339  M01S05894.set     +++|*         USES   T1, T2, T3, CM - CM+4.
09340  M01S05895.set     +++|*

Seq #  *Modification Id* Act 
----------------------------+
09341  M02S05896.274l797 ---|*         CALLS  EEB, SDC.
09342  M01S02013.274l797 +++|*         CALLS  SDC.
09343  M01S05897.set     +++|
09344  M01S05898.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
09345  M02S05899.274l797 ---| EDC2     LDD    CN+4        SET EQUIPMENT NUMBER
09346  M01S02014.274l797 +++| EDC      SUBR               ENTRY/EXIT
09347  M01S02015.274l797 +++|          LDD    CN+3
09348  M01S02016.274l797 +++|          LMC    2RCM
09349  M01S02017.274l797 +++|          NJN    EDCX        IF NOT *CM* DEVICE
09350  M01S02018.274l797 +++|          LDD    CN+4        SET EQUIPMENT NUMBER
09351  M01S05900.set     +++|          SHN    -11
09352  M01S05901.set     +++|          STD    T1
09353  M01S05902.set     +++|          LDD    CN+1        SET CHANNEL NUMBERS
09354  M01S05903.set     +++|          STD    T2
09355  M01S05904.set     +++|          LDD    CN+2
09356  M01S05905.set     +++|          STD    T3
09357  M01S05906.set     +++|          RJM    SDC         SET ISMD CHANNELS
09358  M01S02019.274l797 +++|          UJN    EDCX        RETURN
09359  M01S02020.274l797 +++| RCC      SPACE  4,10
09360  M01S02021.274l797 +++|**        RCC - REVERSE CHANNELS FOR CARTRIDGE TAPE.
09361  M01S02022.274l797 +++|*
09362  M01S02023.274l797 +++|*         IF *CT* OR *AT* DEVICE WITH DUAL CHANNEL ACCESS DEFINED,
09363  M01S02024.274l797 +++|*         REVERSE THE PRIMARY AND SECONDARY CHANNELS.
09364  M01S02025.274l797 +++|*
09365  M01S02026.274l797 +++|*         ENTRY  (CN - CN+4) = FIRST WORD OF EST ENTRY.
09366  M01S02027.274l797 +++|*
09367  M01S02028.274l797 +++|*         EXIT   (CN - CN+4) = UPDATED FIRST WORD OF EST ENTRY.
09368  M01S02029.274l797 +++|*
09369  M01S02030.274l797 +++|*         USES   CN+1, CN+2, T1.
09370  M01S05907.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
09371  M02S05908.274l797 ---| EDC      SUBR               ENTRY/EXIT
09372  M01S02031.274l797 +++|
09373  M01S02032.274l797 +++| RCC      SUBR               ENTRY/EXIT
09374  M01S05909.set     +++|          LDD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
09375  M02S05910.274l797 ---|          LMC    2RCM

Seq #  *Modification Id* Act 
----------------------------+
09376  M02S05911.274l797 ---|          ZJN    EDC2        IF *CM* DEVICE

Seq #  *Modification Id* Act 
----------------------------+
09377  M02S05912.274l797 ---|          LCN    0

Seq #  *Modification Id* Act 
----------------------------+
09378  M02S05913.274l797 ---|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
09379  M02S05914.274l797 ---| EDC1     AOD    T5          ADVANCE INDEX

Seq #  *Modification Id* Act 
----------------------------+
09380  M02S05915.274l797 ---|          LDM    TFSD,T5

Seq #  *Modification Id* Act 
----------------------------+
09381  M02S05916.274l797 ---|          ZJN    EDCX        IF END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
09382  M02S05917.274l797 ---|          LMD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
09383  M02S05918.274l797 ---|          NJN    EDC1        IF NOT MATCHING DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
09384  M02S05919.274l797 ---|          LDM    TDDB+DVUN+3 SAVE FIRST UNIT EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
09385  M02S05920.274l797 ---|          LPN    70

Seq #  *Modification Id* Act 
----------------------------+
09386  M02S05921.274l797 ---|          SHN    -3

Seq #  *Modification Id* Act 
----------------------------+
09387  M02S05922.274l797 ---|          STD    T3

Seq #  *Modification Id* Act 
----------------------------+
09388  M02S05923.274l797 ---|          LDM    TENB,T3

Seq #  *Modification Id* Act 
----------------------------+
09389  M02S05924.274l797 ---|          ZJN    EDCX        IF NO *CM* DEFINED

Seq #  *Modification Id* Act 
----------------------------+
09390  M02S05925.274l797 ---|          SHN    22-5

Seq #  *Modification Id* Act 
----------------------------+
09391  M02S05926.274l797 ---|          ADD    EB

Seq #  *Modification Id* Act 
----------------------------+
09392  M02S05927.274l797 ---|          SHN    6           READ CONTROL MODULE EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09393  M02S05928.274l797 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
09394  M02S05929.274l797 ---|          LDD    CM+1        SET CHANNEL(S) INTO ISMD ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09395  M02S05930.274l797 ---|          STM    EBUT+1

Seq #  *Modification Id* Act 
----------------------------+
09396  M02S05931.274l797 ---|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
09397  M02S05932.274l797 ---|          STM    EBUT+2

Seq #  *Modification Id* Act 
----------------------------+
09398  M02S05933.274l797 ---|          RJM    EEB         ENTER EQUIPMENT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09399  M02S05934.274l797 ---|          LJM    EDCX        RETURN
09400  M01S02033.274l797 +++|          LMC    2RCT
09401  M01S02034.274l797 +++|          ZJN    RCC1        IF *CT* EQUIPMENT
09402  M01S02035.274l797 +++|          LMC    2RAT&2RCT
09403  M01S02036.274l797 +++|          NJN    RCCX        IF NOT *AT* EQUIPMENT
09404  M01S02037.274l797 +++| RCC1     LDD    CN+2
09405  M01S02038.274l797 +++|          ZJN    RCCX        IF NO SECOND CHANNEL
09406  M01S02039.274l797 +++|          STD    T1
09407  M01S02040.274l797 +++|          LDD    CN+1        REVERSE CHANNELS
09408  M01S02041.274l797 +++|          STD    CN+2
09409  M01S02042.274l797 +++|          LDD    T1
09410  M01S02043.274l797 +++|          STD    CN+1
09411  M01S02044.274l797 +++|          UJN    RCCX        RETURN
09412  M01S05935.set     +++| SDC      SPACE  4,15
09413  M01S05936.set     +++|**        SDC - SET ISMD CHANNELS.
09414  M01S05937.set     +++|*
09415  M01S05938.set     +++|*         ENTRY  (T1) = *CM* EQUIPMENT NUMBER.
09416  M01S05939.set     +++|*                (T2) = FIRST CHANNEL.
09417  M01S05940.set     +++|*                (T3) = SECOND CHANNEL.
09418  M01S05941.set     +++|*
09419  M01S05942.set     +++|*         EXIT   CHANNEL NUMBERS ARE SET IN ALL ISMD DEVICE ENTRIES
09420  M01S05943.set     +++|*                WHICH HAVE THE FIRST UNIT ON THIS *CM* EQUIPMENT.
09421  M01S05944.set     +++|*
09422  M01S05945.set     +++|*         USES   T5.
09423  M01S05946.set     +++|*
09424  M01S05947.set     +++|*         CALLS  EEB, SID, STA.
09425  M01S05948.set     +++|
09426  M01S05949.set     +++|
09427  M01S05950.set     +++| SDC2     LDD    T5          RESTORE *EQ* CONTENTS
09428  M01S05951.set     +++|          RJM    STA
09429  M01S05952.set     +++|
09430  M01S05953.set     +++| SDC      SUBR               ENTRY/EXIT
09431  M01S05954.set     +++|          LDD    EQ          SAVE CONTENTS OF *EQ*
09432  M01S05955.set     +++|          STD    T5
09433  M01S05956.set     +++|          RJM    EEB         SAVE *EBUT*
09434  M01S05957.set     +++|          LCN    0
09435  M01S05958.set     +++| SDC1     RJM    SID         SEARCH FOR ISMD DEVICE
09436  M01S05959.set     +++|          MJN    SDC2        IF NONE FOUND
09437  M01S05960.set     +++|          LDM    TDDB+DVUN+3  GET FIRST UNIT EQUIPMENT NUMBER
09438  M01S05961.set     +++|          LPN    70
09439  M01S05962.set     +++|          SHN    -3
09440  M01S05963.set     +++|          LMD    T1
09441  M01S05964.set     +++|          NJN    SDC1        IF NOT THIS *CM* EQUIPMENT NUMBER
09442  M01S05965.set     +++|          LDD    T2          SET CHANNEL NUMBERS
09443  M01S05966.set     +++|          STM    EBUT+1
09444  M01S05967.set     +++|          LDD    T3
09445  M01S05968.set     +++|          STM    EBUT+2
09446  M01S05969.set     +++|          RJM    EEB         ENTER EQUIPMENT ENTRY
09447  M01S05970.set     +++|          UJN    SDC1        FIND NEXT ISMD ENTRY
09448  M01S05971.set     +++| VKW      SPACE  4,10
09449  M01S05972.set     +++|**        VKW - VALIDATE KEYWORD.
09450  M01S05973.set     +++|*
09451  M01S05974.set     +++|*         ENTRY  (TA) = *TVRK* ENTRY ADDRESS.
09452  M01S05975.set     +++|*                (T3) = *TKWP* ENTRY ADDRESS.
09453  M01S05976.set     +++|*                (KA) = CHARACTER ADDRESS OF KEYWORD VALUE.
09454  M01S05977.set     +++|*
09455  M01S05978.set     +++|*         EXIT   (A) = (AB+4) = 0, IF NULL VALUE SPECIFIED.
09456  M01S05979.set     +++|*                TO *ILL* IF INCORRECT KEYWORD OR NULL VALUE SPECIFIED
09457  M01S05980.set     +++|*                AND NULL VALUE NOT ALLOWED.
09458  M01S05981.set     +++|*
09459  M01S05982.set     +++|*         USES   T5, T6, T7, AB+4.
09460  M01S05983.set     +++|*
09461  M01S05984.set     +++|*         CALLS  CSC.
09462  M01S05985.set     +++|
09463  M01S05986.set     +++|
09464  M01S05987.set     +++| VKW      SUBR               ENTRY/EXIT
09465  M01S05988.set     +++|          LDM    1,T3        GET KEYWORD BIT POSITION
09466  M01S05989.set     +++|          SHN    14
09467  M01S05990.set     +++|          LMD    TH
09468  M01S05991.set     +++|          ERRNZ  1000-SHNI   ADJUST IF VALUE CHANGES
09469  M01S05992.set     +++|          STM    VKWA
09470  M01S05993.set     +++|          SHN    -14         GET KEYWORD WORD OFFSET
09471  M01S05994.set     +++|          STD    T6
09472  M01S05995.set     +++|          ADD    TA          ADDRESS OF *TVRK* WORD
09473  M01S05996.set     +++|          STD    T5
09474  M01S05997.set     +++|          LDN    1           GENERATE KEYWORD BIT MASK
09475  M01S05998.set     +++| VKWA     SHN    **
09476  M01S05999.set     +++|          STD    T7

Proceed to Part 7