Deck SET Part 006

79 Modifications

Seq #  *Modification Id* Act 
----------------------------+
10343  M00S06773.set     ---|          LDM    1,T1
10344  M00S06774.set     ---|          SHN    21-5
10345  M00S06775.set     ---|          MJN    PTF3        IF *GE* ALLOWED
10346  M00S06776.set     ---| PTF2     JMP    ILL         PROCESS INCORRECT ENTRY
10347  M00S06777.set     ---|
10348  M00S06778.set     ---| PTF3     LDI    KA
10349  M00S06779.set     ---|          SHN    6
10350  M00S06780.set     ---|          LMM    1,KA
10351  M00S06781.set     ---|          LMC    2RGE
10352  M00S06782.set     ---|          NJN    PTF2        IF NOT *GE*
10353  M00S06783.set     ---|          LDN    2
10354  M00S06784.set     ---|          RAD    KA
10355  M00S06785.set     ---|          LDN    4
10356  M00S06786.set     ---|          RAD    AB+4
10357  M00S06787.set     ---| PTF4     RJM    STV         STORE VALUE
10358  M00S06788.set     ---|          JMP    KWP5        RETURN
10359  M00S06789.set     ---| TTFO     SPACE  4,10
10360  M00S06790.set     ---|**        TTFO - TABLE OF TAPE FLAG OPTIONS.
10361  M00S06791.set     ---|*         ENTRY = 3 WORDS.
10362  M00S06792.set     ---|*
10363  M00S06793.set     ---|*T,       18/ TO, 1/ GE, 5/, 12/ OV

Figure

10364  M00S06794.set     ---|*         TO = 3 CHARACTER TAPE FLAG OPTION.
10365  M00S06795.set     ---|*         GE = GE (6250 CPI) CAPABILITIES ALLOWED.
10366  M00S06796.set     ---|*         OV = OPTION VALUE.
10367  M00S06797.set     ---|
10368  M00S06798.set     ---|
10369  M00S06799.set     ---| TTFO     BSS    0
10370  M00S06800.set     ---|          VFD    18/3LATS,1/1,5/0,12/40
10371  M00S06801.set     ---|          VFD    18/3LFSC,1/1,5/0,12/60
10372  M00S06802.set     ---|          VFD    18/3LMTS,1/0,5/0,12/100
10373  M00S06803.set     ---| TTFOA    VFD    18/3LIST,1/1,5/0,12/42
10374  M00S06804.set     ---|          VFD    18/3LCMT,1/1,5/0,12/41
10375  M00S06805.set     ---|          CON    0
10376  M00S06806.set     ---| PTN      SPACE  4,10
10377  M00S06807.set     ---|***       TN=N.
10378  M00S06808.set     ---|*
10379  M00S06809.set     ---|*         PRINTER WITH TRAIN CARTRIDGE N.
10380  M00S06810.set     ---|*         N = 0-7.
10381  M00S06811.set     ---|*             0-3 = CDC GRAPHIC 64-CHARACTER SET.
10382  M00S06812.set     ---|*             4-5 = ASCII GRAPHIC 64-CHARACTER SET.
10383  M00S06813.set     ---|*             6   = ASCII GRAPHIC 95-CHARACTER SET.
10384  M00S06814.set     ---|*             7   = ASCII GRAPHIC 95-CHARACTER SET USED AS AN
10385  M00S06815.set     ---|*                   ASCII 64-CHARACTER SET.
10386  M00S06816.set     ---|
10387  M00S06817.set     ---|
10388  M00S06818.set     ---| PTN      DATA   H*TN*
10389  M00S06819.set     ---|          LDN    10          SET MAXIMUM VALUE+1
10390  M00S06820.set     ---|          JMP    AOK         ASSEMBLE KEYWORD VALUE
10391  M01S06821.274l797 ---| PTS      SPACE  4,10
10392  M01S06822.274l797 ---|***       TS=N.

Seq #  *Modification Id* Act 
----------------------------+
10393  M01S02085.274l797 +++| PUN      SPACE  4,10
10394  M01S02086.274l797 +++|***       UN=U1.
10395  M00S06823.set     +++|*

Seq #  *Modification Id* Act 
----------------------------+
10396  M01S06824.274l797 ---|*         TRACK SIZE FOR EXTENDED MEMORY.
10397  M01S06825.274l797 ---|*         N = VALUE  (TRACK SIZE IN SECTORS)
10398  M01S06826.274l797 ---|*             20     (20B)
10399  M01S06827.274l797 ---|*             40     (40B)
10400  M01S06828.274l797 ---|*             100    (100B)
10401  M01S06829.274l797 ---|*             200    (200B)
10402  M01S06830.274l797 ---|*
10403  M01S06831.274l797 ---|*         EXTENDED MEMORY MAY BE ALLOCATED IN TRACKS OF 20B, 40B, 100B
10404  M01S06832.274l797 ---|*         AND 200B SECTORS, ALLOWING THE SIZE OF EXTENDED MEMORY TO
10405  M01S06833.274l797 ---|*         EXCEED THE PREVIOUS 2M WORD LIMIT AND EXTEND TO 16MW.

Seq #  *Modification Id* Act 
----------------------------+
10406  M01S02087.274l797 +++|*         UNIT NUMBER.
10407  M01S02088.274l797 +++|*         UN = 0-77B (MAXIMUM UNIT NUMBER IS DEVICE DEPENDENT).
10408  M00S06834.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
10409  M01S06835.274l797 ---|
10410  M01S06836.274l797 ---| PTS      DATA   H*TS*
10411  M01S06837.274l797 ---|          LDM    EBUT+7      SAVE PREVIOUS XM SHIFT
10412  M01S06838.274l797 ---|          LPC    300
10413  M01S06839.274l797 ---|          STD    T3
10414  M01S06840.274l797 ---|          RJM    AOD         ASSEMBLE TRACK SIZE
10415  M01S06841.274l797 ---|          SBN    20
10416  M01S06842.274l797 ---|          ZJN    PTS3        IF 20B
10417  M01S06843.274l797 ---|          SBN    40-20
10418  M01S06844.274l797 ---|          ZJN    PTS2        IF 40B
10419  M01S06845.274l797 ---|          SBN    100-40
10420  M01S06846.274l797 ---|          ZJN    PTS1        IF 100B
10421  M01S06847.274l797 ---|          SBD    HN
10422  M01S06848.274l797 ---|          NJN    PTS4        IF NOT 200B
10423  M01S06849.274l797 ---|          LDN    1
10424  M01S06850.274l797 ---| PTS1     ADN    1
10425  M01S06851.274l797 ---| PTS2     ADN    1
10426  M01S06852.274l797 ---|          SHN    6
10427  M01S06853.274l797 ---|          SBD    T3
10428  M01S06854.274l797 ---|          MJN    PTS3        IF PREVIOUS SHIFT OKAY
10429  M01S06855.274l797 ---|          RAM    EBUT+7
10430  M01S06856.274l797 ---| PTS3     JMP    KWP5        RETURN
10431  M01S06857.274l797 ---|
10432  M01S06858.274l797 ---| PTS4     JMP    ILL         PROCESS INCORRECT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
10433  M02S06859.274l797 ---| PUI      SPACE  4,10
10434  M02S06860.274l797 ---|***       UI=N.
10435  M02S06861.274l797 ---|*
10436  M02S06862.274l797 ---|*         UNIT MSID.
10437  M02S06863.274l797 ---|*         N = 0-377B
10438  M02S06864.274l797 ---|
10439  M02S06865.274l797 ---|
10440  M02S06866.274l797 ---| PUI      DATA   H*UI*
10441  M02S06867.274l797 ---|          LDC    400         SET MAXIMUM VALUE+1
10442  M02S06868.274l797 ---|          JMP    AOK         ASSEMBLE KEYWORD VALUE

Seq #  *Modification Id* Act 
----------------------------+
10443  M01S06869.274l797 ---| PUN      SPACE  4,10
10444  M01S06870.274l797 ---|***       UN=U1.
10445  M01S06871.274l797 ---|*         UN=U1/.../UN.
10446  M01S06872.274l797 ---|*         UN=U1-UN.  (HORIZONTALLY CONTIGUOUS UNITS)
10447  M01S06873.274l797 ---|*
10448  M01S06874.274l797 ---|*         UNIT NUMBER.
10449  M01S06875.274l797 ---|*         UN = 0-77B (MAXIMUM UNIT NUMBER AND NUMBER OF UNITS
10450  M01S06876.274l797 ---|*              ALLOWED ARE DEVICE TYPE DEPENDENT.)
10451  M00S06877.set     ---|
10452  M00S06878.set     ---| PUN      DATA   H*UN*
10453  M00S06879.set     ---|          LDI    KA
10454  M00S06880.set     ---|          SBN    1R8
10455  M00S06881.set     ---|          PJN    PUN1        IF NULL UNIT PARAMETER
10456  M00S06882.set     ---|          RJM    CDR         ASSEMBLE UNIT NUMBER
10457  M01S06883.274l797 ---|          LDD    CN
10458  M01S06884.274l797 ---|          SHN    21-13
10459  M01S06885.274l797 ---|          MJN    PUN5        IF MASS STORAGE DEVICE
10460  M00S06886.set     ---|          RJM    CSC
10461  M00S06887.set     ---|          NJN    PUN1        IF INCORRECT SEPARATOR
10462  M00S06888.set     ---|          LDM    2,MS
10463  M00S06889.set     ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
10464  M01S00003.set79   +++|          STM    PUNA
10465  M00S06890.set     +++|          SBD    AB+4
10466  M00S06891.set     +++|          PJN    PUN2        IF UNIT NUMBER .LE. LIMIT
10467  M00S06892.set     +++| PUN1     JMP    ILL         PROCESS INCORRECT ENTRY
10468  M00S06893.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
10469  M01S06894.274l797 ---| PUN2     LDD    CN+3        CHECK DEVICE TYPE
10470  M01S06895.274l797 ---|          SBK    2RCS
10471  M01S06896.274l797 ---|          MJN    PUN3        IF NOT *CS*
10472  M01S06897.274l797 ---|          SBN    1RT-1RS+1
10473  M01S06898.274l797 ---|          PJN    PUN3        IF NOT *CT*
10474  M01S06899.274l797 ---|          LDD    AB+4
10475  M01S06900.274l797 ---|          SHN    3           POSITION UNIT NUMBER
10476  M01S06901.274l797 ---|          STD    AB+4
10477  M01S06902.274l797 ---|          LDD    CN+4
10478  M01S06903.274l797 ---|          SCN    30
10479  M01S06904.274l797 ---|          UJN    PUN4        STORE UNIT NUMBER
10480  M01S06905.274l797 ---|
10481  M01S06906.274l797 ---| PUN3     LDD    CN+4        SET UNIT NUMBER FOR *MT* OR *NT*

Seq #  *Modification Id* Act 
----------------------------+
10482  M01S02089.274l797 +++| PUN2     LDD    CN+4        SET UNIT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
10483  M01S06907.set79   ---|          SCN    17

Seq #  *Modification Id* Act 
----------------------------+
10484  M02S06908.set79   ---| PUN4     ADD    AB+4

Seq #  *Modification Id* Act 
----------------------------+
10485  M02S02090.set79   ---|          ADD    AB+4

Seq #  *Modification Id* Act 
----------------------------+
10486  M01S00004.set79   +++|          LPC    *           MASK EXISTING UNIT NUMBER
10487  M01S00005.set79   +++| PUNA     EQU    *-1
10488  M01S00006.set79   +++|          LMD    CN+4        CLEAR OLD UNIT NUMBER
10489  M01S00007.set79   +++|          LMD    AB+4        ADD NEW UNIT NUMBER
10490  M00S06909.set     +++|          STD    CN+4
10491  M00S06910.set     +++|          JMP    KWP5        RETURN
10492  M00S06911.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
10493  M01S06912.274l797 ---| PUN5     RJM    CSC
10494  M01S06913.274l797 ---|          ZJN    PUN6        IF SINGLE UNIT SPECIFIED
10495  M01S06914.274l797 ---|          LMN    1R/&1R,
10496  M01S06915.274l797 ---|          ZJN    PUN6        IF MULTIPLE UNITS SPECIFIED
10497  M01S06916.274l797 ---|          LMN    1R-&1R/
10498  M01S06917.274l797 ---|          NJN    PUN7        IF INCORRECT SEPARATOR
10499  M01S06918.274l797 ---|          LDD    AB+4        SAVE FIRST UNIT NUMBER
10500  M01S06919.274l797 ---|          STD    T6
10501  M01S06920.274l797 ---|          AOD    KA
10502  M01S06921.274l797 ---|          RJM    CDR         ASSEMBLE LAST UNIT NUMBER
10503  M01S06922.274l797 ---|          RJM    CSC
10504  M01S06923.274l797 ---|          NJN    PUN7        IF INCORRECT SEPARATOR
10505  M01S06924.274l797 ---|          LDD    AB+4        SET LAST UNIT NUMBER
10506  M01S06925.274l797 ---|          RAM    SUNA
10507  M01S06926.274l797 ---|          LDD    T6
10508  M01S06927.274l797 ---|          SBD    AB+4
10509  M01S06928.274l797 ---|          PJN    PUN7        IF INCORRECT RANGE
10510  M01S06929.274l797 ---|          RAD    AB+4        RESET FIRST UNIT NUMBER
10511  M01S06930.274l797 ---| PUN6     RJM    SUL         SET UNIT LIST
10512  M01S06931.274l797 ---|          LDM    MSUL,MS     CHECK UNIT COUNT
10513  M01S06932.274l797 ---|          SHN    -6
10514  M01S06933.274l797 ---|          LPN    7
10515  M01S06934.274l797 ---|          SBD    T6
10516  M01S06935.274l797 ---|          PJN    PUN8        IF VALID UNIT COUNT
10517  M01S06936.274l797 ---| PUN7     JMP    ILL         PROCESS INCORRECT ENTRY
10518  M01S06937.274l797 ---|
10519  M01S06938.274l797 ---| PUN8     LDD    T6          SAVE UNIT COUNT-1
10520  M01S06939.274l797 ---|          STD    CN+4
10521  M01S06940.274l797 ---|          LDM    MSAI,MS
10522  M01S06941.274l797 ---|          LPN    77
10523  M01S06942.274l797 ---|          ZJN    PUN9        IF NOT *LDAM* TYPE DEVICE
10524  M01S06943.274l797 ---|          LDD    CN          SET *LDAM* STATUS IN EST
10525  M01S06944.274l797 ---|          LPC    7577
10526  M01S06945.274l797 ---|          ADC    200
10527  M01S06946.274l797 ---|          STD    CN
10528  M01S06947.274l797 ---| PUN9     JMP    KWP5        RETURN
10529  M00S06948.set     ---| PW0      SPACE  4,10
10530  M00S06949.set     ---|***       W0=N.
10531  M00S06950.set     ---|*
10532  M00S06951.set     ---|*         EST ENTRY WORD 0.
10533  M00S06952.set     ---|*         N = OCTAL VALUE OF EST ENTRY WORD 0 (20 DIGIT MAXIMUM).
10534  M00S06953.set     ---|
10535  M00S06954.set     ---|
10536  M00S06955.set     ---| PW0      DATA   H*W0*
10537  M00S06956.set     ---|          RJM    AOD         ASSEMBLE OCTAL DIGITS
10538  M00S06957.set     ---|          LDN    JSNL
10539  M00S06958.set     ---|          CWD    AB
10540  M00S06959.set     ---|          CRD    CN
10541  M00S06960.set     ---|          JMP    KWP5        RETURN
10542  M00S06961.set     ---| PW1      SPACE  4,10
10543  M00S06962.set     ---|***       W1=N.
10544  M00S06963.set     ---|*
10545  M00S06964.set     ---|*         EST ENTRY WORD 1.
10546  M00S06965.set     ---|*         N = OCTAL VALUE OF EST ENTRY WORD 1 (20 DIGIT MAXIMUM).
10547  M00S06966.set     ---|
10548  M00S06967.set     ---|
10549  M00S06968.set     ---| PW1      DATA   H*W1*
10550  M00S06969.set     ---|          RJM    AOD         ASSEMBLE OCTAL DIGITS
10551  M00S06970.set     ---|          LDN    JSNL
10552  M00S06971.set     ---|          CWD    AB
10553  M00S06972.set     ---|          CRM    EBUT+5,ON
10554  M00S06973.set     ---|          JMP    KWP5        RETURN
10555  M00S06974.set     ---|          TITLE  MISCELLANEOUS KEYWORD SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
10556  M01S02091.274l797 +++|          AODSUB
10557  M01S02092.274l797 +++|          ASNSUB
10558  M00S06975.set     +++| AST      SPACE  4,15
10559  M00S06976.set     +++|**        AST - ASSEMBLE STATUS.
10560  M00S06977.set     +++|*
10561  M00S06978.set     +++|*         EXIT   (A) = (AB+4) = STATUS.
10562  M00S06979.set     +++|*                      0 = ON.

Seq #  *Modification Id* Act 
----------------------------+
10563  M01S06980.274l797 ---|*                      1 = IDLE.
10564  M00S06981.set     ---|*                      2 = OFF.
10565  M00S06982.set     ---|*                      3 = DOWN.
10566  M00S06983.set     ---|*
10567  M00S06984.set     ---|*         USES   KB, ST.
10568  M00S06985.set     ---|*
10569  M00S06986.set     ---|*         CALLS  AKL7.
10570  M00S06987.set     ---|
10571  M00S06988.set     ---|
10572  M00S06989.set     ---| AST1     DATA   C*DOWN*
10573  M00S06990.set     ---|          LDN    3
10574  M00S06991.set     ---|          UJN    AST5        SET *DOWN* STATUS
10575  M00S06992.set     ---|
10576  M00S06993.set     ---| AST2     DATA   C*OFF*
10577  M00S06994.set     ---|          LDN    2
10578  M00S06995.set     ---|          UJN    AST5        SET *OFF* STATUS
10579  M00S06996.set     ---|
10580  M01S06997.274l797 ---| AST3     DATA   C*IDLE*
10581  M01S06998.274l797 ---|          LDN    1
10582  M01S06999.274l797 ---|          UJN    AST5        SET *IDLE* STATUS
10583  M01S07000.274l797 ---|
10584  M00S07001.set     ---| AST4     DATA   C*ON*
10585  M00S07002.set     ---|          LDN    0
10586  M00S07003.set     ---| AST5     STD    AB+4        SET STATUS
10587  M00S07004.set     ---|
10588  M00S07005.set     ---| AST      SUBR               ENTRY/EXIT
10589  M00S07006.set     ---|          LDC    ASTA-1
10590  M00S07007.set     ---|          STD    ST          SET SYNTAX TABLE ADDRESS
10591  M00S07008.set     ---|          LDD    KA
10592  M00S07009.set     ---|          STD    KB
10593  M00S07010.set     ---|          LJM    AKL7        ASSEMBLE STATUS
10594  M00S07011.set     ---|
10595  M00S07012.set     ---|
10596  M00S07013.set     ---| ASTA     CON    AST4
10597  M00S07014.set     ---|          CON    AST2
10598  M00S07015.set     ---|          CON    AST1
10599  M01S07016.274l797 ---|          CON    AST3
10600  M00S07017.set     ---|          CON    0           END OF STATUS SYNTAX TABLE

Seq #  *Modification Id* Act 
----------------------------+
10601  M01S02093.274l797 +++|          CDRSUB

Seq #  *Modification Id* Act 
----------------------------+
10602  M01S07018.274l797 ---| CET      SPACE  4,10
10603  M01S07019.274l797 ---|**        CET - CHECK EXTENDED MEMORY TYPE.
10604  M01S07020.274l797 ---|*
10605  M01S07021.274l797 ---|*         ENTRY  (A) = 6/TL,12/TA.
10606  M01S07022.274l797 ---|*                      TL = TABLE LENGTH.
10607  M01S07023.274l797 ---|*                      TA = FWA OF TABLE.
10608  M01S07024.274l797 ---|*
10609  M01S07025.274l797 ---|*         EXIT   OPTION MERGED INTO *DILL* BYTE 3.
10610  M01S07026.274l797 ---|*                TO *ILL* IF ERROR.
10611  M01S07027.274l797 ---|*                (KA) ADVANCED.
10612  M01S07028.274l797 ---|*
10613  M01S07029.274l797 ---|*         USES   AB, T1, T7.
10614  M01S07030.274l797 ---|
10615  M01S07031.274l797 ---|
10616  M01S07032.274l797 ---| CET      SUBR               ENTRY/EXIT
10617  M01S07033.274l797 ---|          STD    T7
10618  M01S07034.274l797 ---|          SHN    -14
10619  M01S07035.274l797 ---|          ADD    T7          SET LWA+1 OF TABLE
10620  M01S07036.274l797 ---|          STD    T1
10621  M01S07037.274l797 ---|          LDI    KA          ASSEMBLE NAME
10622  M01S07038.274l797 ---|          SHN    6
10623  M01S07039.274l797 ---|          LMM    1,KA
10624  M01S07040.274l797 ---|          STD    AB
10625  M01S07041.274l797 ---|          LDN    2           ADVANCE CHARACTER ADDRESS
10626  M01S07042.274l797 ---|          RAD    KA
10627  M01S07043.274l797 ---| CET1     LCN    3           SEARCH OPTION TABLE
10628  M01S07044.274l797 ---|          RAD    T1
10629  M01S07045.274l797 ---|          SBD    T7
10630  M01S07046.274l797 ---|          PJN    CET3        IF MORE OPTIONS
10631  M01S07047.274l797 ---| CET2     JMP    ILL         PROCESS INCORRECT ENTRY
10632  M01S07048.274l797 ---|
10633  M01S07049.274l797 ---| CET3     LDI    T1
10634  M01S07050.274l797 ---|          LMD    AB
10635  M01S07051.274l797 ---|          NJN    CET1        IF OPTION NOT FOUND
10636  M01S07052.274l797 ---|          LDM    2,T1        CHECK MAINFRAME REQUIREMENTS
10637  M01S07053.274l797 ---|          SHN    -6
10638  M01S07054.274l797 ---|          LPN    7
10639  M01S07055.274l797 ---|          SBN    3
10640  M01S07056.274l797 ---|          MJN    CET6        IF ECS OR PATH TYPE/CPU TYPE OPTION
10641  M01S07057.274l797 ---|          ZJN    CET4        IF LCME
10642  M01S07058.274l797 ---|          SBN    4-3
10643  M01S07059.274l797 ---|          NJN    CET6        IF NOT UEM
10644  M01S07060.274l797 ---|          LDD    CN+3
10645  M01S07061.274l797 ---|          LMC    2RDE
10646  M01S07062.274l797 ---|          NJN    CET2        IF UEM AND NOT TYPE *DE*
10647  M01S07063.274l797 ---|          LDD    HO
10648  M01S07064.274l797 ---|          SHN    21-13
10649  M01S07065.274l797 ---|          PJN    CET6        IF CM EXTENSION ON MAINFRAME
10650  M01S07066.274l797 ---|          UJN    CET2        PROCESS INCORRECT ENTRY
10651  M01S07067.274l797 ---|
10652  M01S07068.274l797 ---| CET4     LDD    HO
10653  M01S07069.274l797 ---|          SHN    21-11
10654  M01S07070.274l797 ---|          PJN    CET2        IF NOT CYBER 176
10655  M01S07071.274l797 ---| CET6     LDM    1,T1        SET MASK
10656  M01S07072.274l797 ---|          STM    CETA
10657  M01S07073.274l797 ---|          LDM    TDDB+DVED   MERGE NEW OPTION INTO *DILL* BYTE 3
10658  M01S07074.274l797 ---|          LPC    **
10659  M01S07075.274l797 ---| CETA     EQU    *-1
10660  M01S07076.274l797 ---|          LMM    2,T1
10661  M01S07077.274l797 ---|          STM    TDDB+DVED
10662  M01S07078.274l797 ---|          LJM    CETX        RETURN
10663  M00S07079.set     ---| CIT      SPACE  4,10
10664  M00S07080.set     ---|**        CIT - CHECK ISMT DEVICES.
10665  M00S07081.set     ---|*
10666  M00S07082.set     ---|*         ENTRY  (T1) = TAPE FLAG.
10667  M00S07083.set     ---|*                (MMTA) = UNIT COUNT.
10668  M00S07084.set     ---|*
10669  M00S07085.set     ---|*
10670  M00S07086.set     ---|*         EXIT   TO *ILL* IF ERROR.
10671  M00S07087.set     ---|
10672  M00S07088.set     ---|
10673  M00S07089.set     ---| CIT      SUBR               ENTRY/EXIT
10674  M00S07090.set     ---|          LDD    T1          TAPE FLAG
10675  M00S07091.set     ---|          LMC    TTFOA
10676  M00S07092.set     ---|          NJN    CITX        IF NOT ISMT DEVICE
10677  M00S07093.set     ---|          LDM    ISPF
10678  M00S07094.set     ---|          SHN    21-13
10679  M00S07095.set     ---|          MJN    CIT1        IF NOT CYBER 170-810/815/825/830
10680  M00S07096.set     ---|          LDM    MMTA        UNIT COUNT
10681  M00S07097.set     ---|          SBN    1
10682  M00S07098.set     ---|          ZJN    CITX        IF VALID UNIT COUNT
10683  M00S07099.set     ---| CIT1     JMP    ILL         PROCESS INCORRECT ENTRY
10684  M00S07100.set     ---| CHN      SPACE  4,10
10685  M00S07101.set     ---|**        CHN - CHECK ISMT DUPLICATE CHANNEL ERROR.
10686  M00S07102.set     ---|*
10687  M00S07103.set     ---|*         ENTRY  (A) = TAPE CHANNEL.
10688  M00S07104.set     ---|*                (CN - CN+4) = EST ENTRY.
10689  M00S07105.set     ---|*                (EB) = *EBUF* POINTER.
10690  M00S07106.set     ---|*
10691  M00S07107.set     ---|*         USES   T1, T2, AB - AB+4.
10692  M00S07108.set     ---|*
10693  M00S07109.set     ---|*         CALLS  CKC.
10694  M00S07110.set     ---|
10695  M00S07111.set     ---|
10696  M00S07112.set     ---| CHN      SUBR               ENTRY/EXIT
10697  M00S07113.set     ---|          LPN    37
10698  M00S07114.set     ---|          STD    T2
10699  M00S07115.set     ---|          LDD    LE          SET START OF SEARCH
10700  M00S07116.set     ---|          STD    T1
10701  M00S07117.set     ---| CHN1     SOD    T1          DECREMENT EST ORDINAL
10702  M00S07118.set     ---|          SBN    NOPE
10703  M00S07119.set     ---|          MJN    CHNX        IF NO MORE TO CHECK
10704  M00S07120.set     ---|          LDD    EB          READ EST ENTRY
10705  M00S07121.set     ---|          SHN    5
10706  M00S07122.set     ---|          ADD    T1
10707  M00S07123.set     ---|          SHN    1
10708  M00S07124.set     ---|          ADK    EQDE
10709  M00S07125.set     ---|          CRD    AB
10710  M00S07126.set     ---|          LDD    AB+3
10711  M00S07127.set     ---|          ZJN    CHN1        IF EMPTY ENTRY
10712  M00S07128.set     ---|          LMC    2RDE
10713  M00S07129.set     ---|          ZJN    CHN1        IF TYPE *DE*
10714  M00S07130.set     ---|          LDD    AB+1
10715  M00S07131.set     ---|          RJM    CKC         CHECK FIRST CHANNEL
10716  M00S07132.set     ---|          LDD    AB+2
10717  M00S07133.set     ---|          ZJN    CHN1        IF NO SECOND CHANNEL
10718  M00S07134.set     ---|          RJM    CKC         CHECK SECOND CHANNEL
10719  M00S07135.set     ---|          UJN    CHN1        GET NEXT EST ENTRY
10720  M00S07136.set     ---| CKC      SPACE  4,10
10721  M00S07137.set     ---|**        CKC - CHECK CHANNELS.
10722  M00S07138.set     ---|*
10723  M00S07139.set     ---|*         ENTRY  (A) = CHANNEL DATA.
10724  M00S07140.set     ---|*                (T1) = EST ORDINAL TO CHECK.
10725  M00S07141.set     ---|*                (T2) = CHANNEL TO COMPARE AGAINST.
10726  M00S07142.set     ---|*                (EQ) = CURRENT EST ORDINAL.
10727  M00S07143.set     ---|*                (CN - CN+4) = CURRENT EST ENTRY.
10728  M00S07144.set     ---|*                (AB - AB+4) = EST ENTRY TO COMPARE AGAINST.
10729  M00S07145.set     ---|*
10730  M00S07146.set     ---|*         EXIT   TO *ILL* IF ISMT DUPLICATE CHANNEL ERROR.
10731  M00S07147.set     ---|
10732  M00S07148.set     ---|
10733  M00S07149.set     ---| CKC      SUBR               ENTRY/EXIT
10734  M00S07150.set     ---|          LPN    77
10735  M00S07151.set     ---|          LMD    T2
10736  M00S07152.set     ---|          NJN    CKCX        IF NOT SAME CHANNEL
10737  M01S07153.274l797 ---| CKC1     LDD    EQ          CURRENT EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
10738  M01S02094.274l797 +++|          LDD    EQ          CURRENT EST ORDINAL
10739  M00S07154.set     +++|          LMD    T1
10740  M00S07155.set     +++|          ZJN    CKCX        IF SAME EST ORDINAL
10741  M00S07156.set     +++|          LDD    CN
10742  M00S07157.set     +++|          SHN    21-3
10743  M00S07158.set     +++|          MJN    CKC2        IF ISMT
10744  M00S07159.set     +++|          LDD    AB
10745  M00S07160.set     +++|          SHN    21-3
10746  M00S07161.set     +++|          PJN    CKCX        IF NOT ISMT ENTRY
10747  M00S07162.set     +++| CKC2     JMP    ILL         PROCESS ERROR
10748  M00S07163.set     +++| CHD      SPACE  4,10
10749  M00S07164.set     +++|**        CHD - CHECK ISMT DUAL CHANNEL ERROR.
10750  M00S07165.set     +++|*
10751  M00S07166.set     +++|*         ENTRY  (CN - CN+4) = EST ENTRY.
10752  M00S07167.set     +++|*
10753  M00S07168.set     +++|*         EXIT TO *ILL* IF ISMT DUAL CHANNEL ERROR.
10754  M00S07169.set     +++|
10755  M00S07170.set     +++|
10756  M00S07171.set     +++| CHD      SUBR               ENTRY/EXIT
10757  M00S07172.set     +++|          LDD    CN
10758  M00S07173.set     +++|          SHN    21-3
10759  M00S07174.set     +++|          PJN    CHDX        IF NOT ISMT
10760  M00S07175.set     +++|          LDD    CN+2
10761  M00S07176.set     +++|          ZJN    CHDX        IF SECOND CHANNEL DOES NOT EXIST

Seq #  *Modification Id* Act 
----------------------------+
10762  M01S07177.274l797 ---| CHD1     JMP    ILL         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
10763  M01S02095.274l797 +++|          JMP    ILL         PROCESS ERROR
10764  M00S07178.set     +++| CSC      SPACE  4,10
10765  M00S07179.set     +++|**        CSC - CHECK SEPARATOR CHARACTER.
10766  M00S07180.set     +++|*
10767  M00S07181.set     +++|*         ENTRY  (KA) = ADDRESS OF SEPARATOR CHARACTER
10768  M00S07182.set     +++|*
10769  M00S07183.set     +++|*         EXIT   (A) = 0 IF SEPARATOR CHARACTER IS *,* OR *.*.
10770  M00S07184.set     +++|
10771  M00S07185.set     +++|
10772  M00S07186.set     +++| CSC      SUBR               ENTRY/EXIT
10773  M00S07187.set     +++|          LDI    KA
10774  M00S07188.set     +++|          LMN    1R.
10775  M00S07189.set     +++|          ZJN    CSCX        IF *.*
10776  M00S07190.set     +++|          LMN    1R,&1R.
10777  M00S07191.set     +++|          UJN    CSCX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10778  M01S07192.274l797 ---| SUL      SPACE  4,10
10779  M01S07193.274l797 ---|**        SUL - SET UNIT LIST.
10780  M01S07194.274l797 ---|*
10781  M01S07195.274l797 ---|*         ENTRY  (AB+4) = FIRST UNIT NUMBER.
10782  M01S07196.274l797 ---|*
10783  M01S07197.274l797 ---|*         EXIT   (T6) = UNIT COUNT - 1.
10784  M01S07198.274l797 ---|*                UNIT LIST SET IN *TDDB*.
10785  M01S07199.274l797 ---|*
10786  M01S07200.274l797 ---|*         USES   T5, T6.
10787  M01S07201.274l797 ---|*
10788  M01S07202.274l797 ---|*         CALLS  SUN.
10789  M01S07203.274l797 ---|
10790  M01S07204.274l797 ---|
10791  M01S07205.274l797 ---| SUL      SUBR               ENTRY/EXIT
10792  M01S07206.274l797 ---|          LDC    TDDB+DVUN+3 SET UNIT LIST POSITION
10793  M01S07207.274l797 ---|          STD    T5
10794  M01S07208.274l797 ---|          LDN    0
10795  M01S07209.274l797 ---|          STD    T6
10796  M01S07210.274l797 ---|          STI    T5          CLEAR UNIT LIST
10797  M01S07211.274l797 ---|          STM    -1,T5
10798  M01S07212.274l797 ---|          STM    -2,T5
10799  M01S07213.274l797 ---|          STM    -3,T5
10800  M01S07214.274l797 ---|          LDD    AB+4
10801  M01S07215.274l797 ---| SUL1     STI    T5          SET LOWER UNIT
10802  M01S07216.274l797 ---|          RJM    SUN         GET NEXT UNIT
10803  M01S07217.274l797 ---|          MJN    SULX        IF END OF UNITS
10804  M01S07218.274l797 ---|          SHN    6           SET UPPER UNIT
10805  M01S07219.274l797 ---|          RAI    T5
10806  M01S07220.274l797 ---|          SOD    T5          DECREMENT INDEX
10807  M01S07221.274l797 ---|          RJM    SUN         GET NEXT UNIT
10808  M01S07222.274l797 ---|          MJN    SULX        IF END OF UNITS
10809  M01S07223.274l797 ---|          UJN    SUL1        LOOP
10810  M01S07224.274l797 ---| SUN      SPACE  4,20
10811  M01S07225.274l797 ---|**        SUN - SET UNIT NUMBER.
10812  M01S07226.274l797 ---|*
10813  M01S07227.274l797 ---|*         ENTRY  (MS) = *TMSD* ADDRESS.
10814  M01S07228.274l797 ---|*                (AB+4) = CURRENT UNIT NUMBER.
10815  M01S07229.274l797 ---|*
10816  M01S07230.274l797 ---|*         EXIT   (A) = (AB+4) = NEXT UNIT NUMBER.
10817  M01S07231.274l797 ---|*                    = -1 IF END OF UNITS.
10818  M01S07232.274l797 ---|*                (T6) = (T6) + 1 IF NEXT UNIT FOUND.
10819  M01S07233.274l797 ---|*                TO *ILL* IF ERROR.
10820  M01S07234.274l797 ---|*
10821  M01S07235.274l797 ---|*         USES   AB+4, KA, T6.
10822  M01S07236.274l797 ---|*
10823  M01S07237.274l797 ---|*         CALLS  CDR, CSC.
10824  M01S07238.274l797 ---|
10825  M01S07239.274l797 ---|
10826  M01S07240.274l797 ---| SUN3     SBD    AB+4
10827  M01S07241.274l797 ---|          ZJN    SUN4        IF END OF UNITS
10828  M01S07242.274l797 ---|          AOD    T6
10829  M01S07243.274l797 ---|          AOD    AB+4
10830  M01S07244.274l797 ---|          ADN    1
10831  M01S07245.274l797 ---| SUN4     SBN    1
10832  M01S07246.274l797 ---|
10833  M01S07247.274l797 ---| SUN      SUBR               ENTRY/EXIT
10834  M01S07248.274l797 ---|          LDD    AB+4
10835  M01S07249.274l797 ---| SUNB     LPN    0
10836  M01S07250.274l797 ---|          NJN    SUN1        IF UNIT OUT OF RANGE
10837  M01S07251.274l797 ---|          LDM    MSUL,MS
10838  M01S07252.274l797 ---|          LPN    77
10839  M01S07253.274l797 ---|          SBD    AB+4
10840  M01S07254.274l797 ---|          MJN    SUN1        IF UNIT NUMBER .GT. LIMIT
10841  M01S07255.274l797 ---| SUNA     LDN    0
10842  M01S07256.274l797 ---|          NJN    SUN3        IF RANGE OF UNITS
10843  M01S07257.274l797 ---|          RJM    CSC
10844  M01S07258.274l797 ---|          ZJN    SUN4        IF END OF UNITS
10845  M01S07259.274l797 ---|          LMN    1R/&1R,
10846  M01S07260.274l797 ---|          ZJN    SUN2        IF MORE UNITS
10847  M01S07261.274l797 ---| SUN1     JMP    ILL         PROCESS INCORRECT ENTRY
10848  M01S07262.274l797 ---|
10849  M01S07263.274l797 ---| SUN2     AOD    KA
10850  M01S07264.274l797 ---|          LDI    KA
10851  M01S07265.274l797 ---|          SBN    1R8
10852  M01S07266.274l797 ---|          PJN    SUN1        IF NULL UNIT NUMBER
10853  M01S07267.274l797 ---|          RJM    CDR         ASSEMBLE NEXT UNIT NUMBER
10854  M01S07268.274l797 ---|          AOD    T6
10855  M01S07269.274l797 ---|          LDD    AB+4
10856  M01S07270.274l797 ---|          UJN    SUNX        RETURN
10857  M01S07271.274l797 ---| VCP      SPACE  4,10
10858  M01S07272.274l797 ---|**        VCP - VALIDATE CHANNEL PAIR.
10859  M01S07273.274l797 ---|*
10860  M01S07274.274l797 ---|*         ENTRY  (AB+4) = CHANNEL PAIR NUMBER.
10861  M01S07275.274l797 ---|*
10862  M01S07276.274l797 ---|*         EXIT   TO *ILL* IF INCORRECT CHANNEL NUMBER.
10863  M01S07277.274l797 ---|*
10864  M01S07278.274l797 ---|*         USES   T1.
10865  M01S07279.274l797 ---|
10866  M01S07280.274l797 ---|
10867  M01S07281.274l797 ---| VCP2     LDD    T1
10868  M01S07282.274l797 ---|          SHN    1
10869  M01S07283.274l797 ---|          SBD    AB+4
10870  M01S07284.274l797 ---|          NJN    VCP1        IF NOT VALID CHANNEL PAIR NUMBER
10871  M01S07285.274l797 ---|
10872  M01S07286.274l797 ---| VCP      SUBR               ENTRY/EXIT
10873  M01S07287.274l797 ---|          LDN    4
10874  M01S07288.274l797 ---|          STD    T1
10875  M01S07289.274l797 ---| VCP1     SOD    T1
10876  M01S07290.274l797 ---|          NJN    VCP2        IF MORE VALID CHANNEL PAIRS
10877  M01S07291.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
10878  M00S07292.set     ---| VCN      SPACE  4,10
10879  M00S07293.set     ---|**        VCN - VALIDATE CHANNEL NUMBER.
10880  M00S07294.set     ---|*
10881  M00S07295.set     ---|*         ENTRY  (AB+4) = CHANNEL NUMBER.
10882  M00S07296.set     ---|*
10883  M00S07297.set     ---|*         EXIT   TO *ILL* IF INCORRECT CHANNEL NUMBER.
10884  M00S07298.set     ---|
10885  M00S07299.set     ---|

Seq #  *Modification Id* Act 
----------------------------+
10886  M01S07300.271l739 ---| VCN2     SBN    34-20
10887  M01S07301.271l739 ---|          PJN    VCN1        IF .GT. 33B

Seq #  *Modification Id* Act 
----------------------------+
10888  M01S00049.271l739 +++| VCN2     ADN    20
10889  M01S00050.271l739 +++|          SBM    .CHN
10890  M01S00051.271l739 +++|          PJN    VCN1        IF NOT LEGAL CHANNEL
10891  M00S07302.set     +++|
10892  M00S07303.set     +++| VCN      SUBR               ENTRY/EXIT
10893  M00S07304.set     +++| VCNA     LDN    0
10894  M00S07305.set     +++|          ZJN    VCN0        IF FIRST CHANNEL
10895  M00S07306.set     +++|          LDD    AB+4
10896  M00S07307.set     +++|          ZJN    VCN1        IF .EQ. 0
10897  M00S07308.set     +++| VCN0     AOM    VCNA
10898  M00S07309.set     +++|          LDD    AB+4        GET CHANNEL NUMBER
10899  M00S07310.set     +++|          SBN    14
10900  M00S07311.set     +++|          MJN    VCNX        IF .LE. 13B
10901  M00S07312.set     +++|          SBN    20-14
10902  M00S07313.set     +++|          PJN    VCN2        IF .GE. 20B
10903  M00S07314.set     +++| VCN1     JMP    ILL         PROCESS INCORRECT ENTRY
10904  M00S07315.set     +++| TVRK     SPACE  4,10
10905  M00S07316.set     +++|****      TVRK - TABLE OF VALID AND REQUIRED KEYWORDS.
10906  M00S07317.set     +++|
10907  M00S07318.set     +++| TVRK     BSS    0
10908  M00S07319.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
10909  M01S07320.274l797 ---|*         MASS STORAGE DEVICES.
10910  M01S07321.274l797 ---|
10911  M01S07322.274l797 ---|          TBKW   DA,(ST,UN,CH,AP,IB),(UN,CH)
10912  M01S07323.274l797 ---| TVRKL    EQU    *-TVRK
10913  M01S07324.274l797 ---|          TBKW   DB,(ST,UN,CH,AP,IB),(UN,CH)
10914  M01S07325.274l797 ---|          TBKW   DC,(ST,UN,CH,AP,IB),(UN,CH)
10915  M01S07326.274l797 ---|          TBKW   DD,(ST,UN,AP,IB),(UN)
10916  M01S07327.274l797 ---|          TBKW   DE,(ST,MA,ET,SZ,AP,MC,TS,IB),(SZ)
10917  M01S07328.274l797 ---|          TBKW   DF,(ST,UN,CH,AP,IB),(UN,CH)
10918  M01S07329.274l797 ---|          TBKW   DG,(ST,UN,AP,IB),(UN)
10919  M01S07330.274l797 ---|          TBKW   DH,(ST,UN,CH,AP,IB),(UN,CH)
10920  M01S07331.274l797 ---|          TBKW   DI,(ST,UN,CH,AP,IB),(UN,CH)
10921  M01S07332.274l797 ---|          TBKW   DJ,(ST,UN,CH,AP,IB),(UN,CH)
10922  M01S07333.274l797 ---|          TBKW   DK,(ST,UN,CH,AP,IB),(UN,CH)
10923  M01S07334.274l797 ---|          TBKW   DL,(ST,UN,CH,AP,IB),(UN,CH)
10924  M01S07335.274l797 ---|          TBKW   DM,(ST,UN,CH,AP,IB),(UN,CH)

Seq #  *Modification Id* Act 
----------------------------+
10925  M02S00052.274l797 ---|          TBKW   DN,(ST,EQ,UN,CH,AP,IB),(UN,CH)

Seq #  *Modification Id* Act 
----------------------------+
10926  M01S07336.274l797 ---|          TBKW   DP,(ST,MA,ET,SZ,CH,AP,MC,TS,IB),(SZ,CH)
10927  M01S07337.274l797 ---|          TBKW   DQ,(ST,UN,CH,AP,IB),(UN,CH)
10928  M01S07338.274l797 ---|          TBKW   DV,(ST,UN,CH,AP,IB),(UN,CH)
10929  M01S07339.274l797 ---|          TBKW   DW,(ST,UN,CH,AP,IB),(UN,CH)
10930  M01S07340.274l797 ---|          TBKW   DX,(ST,UN,CH,AP,IB),(UN,CH)
10931  M01S07341.274l797 ---|          TBKW   DY,(ST,UN,CH,AP,IB),(UN,CH)
10932  M01S07342.274l797 ---|          TBKW   DZ,(ST,UN,CH,AP,IB),(UN,CH)

Seq #  *Modification Id* Act 
----------------------------+
10933  M02S00032.274l797 ---|          TBKW   EA,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
10934  M02S00033.274l797 ---|          TBKW   EB,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
10935  M02S00034.274l797 ---|          TBKW   EC,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
10936  M02S00035.274l797 ---|          TBKW   ED,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
10937  M02S00036.274l797 ---|          TBKW   EE,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)
10938  M02S00037.274l797 ---|          TBKW   EF,(ST,EQ,UN,CH,AP,IB),(EQ,UN,CH)

Seq #  *Modification Id* Act 
----------------------------+
10939  M01S07343.274l797 ---|
10940  M00S07344.set     ---|*         UNIT RECORD DEVICES.
10941  M00S07345.set     ---|
10942  M00S07346.set     ---|          TBKW   CP,(ST,EQ,CH,ID,FC,IB),(EQ,CH)

Seq #  *Modification Id* Act 
----------------------------+
10943  M01S02096.274l797 +++| TVRKL    EQU    *-TVRK
10944  M00S07347.set     +++|          TBKW   CR,(ST,EQ,CH,ID,IB),(EQ,CH)
10945  M00S07348.set     +++|          TBKW   LQ,(ST,EQ,CH,ID,FC,TN,PS,IB),(EQ,CH)
10946  M00S07349.set     +++|          TBKW   LR,(ST,EQ,CH,ID,FC,TN,PS,IB),(EQ,CH)
10947  M00S07350.set     +++|          TBKW   LS,(ST,EQ,CH,ID,FC,TN,PS,IB),(EQ,CH)
10948  M00S07351.set     +++|          TBKW   LT,(ST,EQ,CH,ID,FC,TN,PS,IB),(EQ,CH)
10949  M00S07352.set     +++|          TBKW   LX,(ST,EQ,CH,ID,FC,IB),(EQ,CH)
10950  M00S07353.set     +++|          TBKW   LY,(ST,EQ,CH,ID,FC,IB),(EQ,CH)
10951  M00S07354.set     +++|
10952  M00S07355.set     +++|*         COMMUNICATIONS / NETWORK DEVICES.
10953  M00S07356.set     +++|
10954  M00S07357.set     +++|          TBKW   CC,(ST,EQ,CH,IB),(EQ,CH)
10955  M00S07358.set     +++|          TBKW   NC,(ST,CH,IB),(CH)
10956  M00S07359.set     +++|          TBKW   ND,(ST,EQ,CH,PI,ND,NT,IB),(EQ,CH,PI,ND,NT)
10957  M00S07360.set     +++|          TBKW   NP,(ST,EQ,CH,PI,ND,SA,IB),(EQ,CH,PI,ND,SA)
10958  M00S07361.set     +++|          TBKW   NQ,(ST,EQ,CH,PI,ND,SA,IB),(EQ,CH,PI,ND,SA)
10959  M00S07362.set     +++|          TBKW   RM,(ST,CH,PT,IB),(CH,PT)
10960  M00S07363.set     +++|          TBKW   TT,(ST,EQ,CH,PT,IB),(EQ,CH)
10961  M00S07364.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
10962  M01S07365.274l797 ---|*         *PLATO* DEVICES.

Seq #  *Modification Id* Act 
----------------------------+
10963  M01S02097.274l797 +++|*         *CYBIS* DEVICES.
10964  M00S07366.set     +++|
10965  M00S07367.set     +++|          TBKW   CI,(CH,EQ,UN,ST,IB),(CH)
10966  M00S07368.set     +++|          TBKW   D1,(CH,EQ,UN,ST,IB),(CH)
10967  M00S07369.set     +++|          TBKW   D2,(CH,EQ,UN,ST,IB),(CH)
10968  M00S07370.set     +++|          TBKW   D3,(CH,EQ,UN,ST,IB),(CH)
10969  M00S07371.set     +++|          TBKW   D4,(CH,EQ,UN,ST,IB),(CH)
10970  M00S07372.set     +++|          TBKW   NI,(CH,EQ,UN,ST,IB),(CH)
10971  M00S07373.set     +++|          TBKW   NO,(CH,EQ,UN,ST,IB),(CH)
10972  M00S07374.set     +++|          TBKW   SP,(CH,EQ,UN,ST,IB),(CH)
10973  M00S07375.set     +++|
10974  M01S02098.274l797 +++|*         MAGNETIC TAPE DEVICES.
10975  M01S02099.274l797 +++|
10976  M01S02100.274l797 +++|          TBKW   AT,(ST,UN,CH,LS,PA,DR,IB),(UN,CH,LS,PA,DR)
10977  M01S02101.274l797 +++|          TBKW   CT,(ST,UN,CH,IB),(UN,CH)
10978  M01S02102.274l797 +++|          TBKW   MT,(ST,EQ,UN,CH,TF,IB),(EQ,UN,CH,TF)
10979  M01S02103.274l797 +++|          TBKW   NT,(ST,EQ,UN,CH,TF,IB),(EQ,UN,CH,TF)
10980  M01S02104.274l797 +++|
10981  M00S07376.set     +++|*         MISCELLANEOUS DEVICES.
10982  M00S07377.set     +++|
10983  M00S07378.set     +++|          TBKW   CM,(EQ,CH,CW,IB),(EQ,CH)

Seq #  *Modification Id* Act 
----------------------------+
10984  M01S07379.272l774 ---|          TBKW   CS,(ST,EQ,UN,CH,CI,MI,UI,PT,IB),(EQ,UN,CH,CI,MI,UI,PT)
10985  M01S07380.272l774 ---|          TBKW   CT,(ST,EQ,UN,CH,CP,MI,UI,PT,IB),(EQ,UN,CH,CP,MI,UI,PT)
10986  M00S07381.set     ---|          TBKW   MP,(ST,CH,IB),(CH)

Seq #  *Modification Id* Act 
----------------------------+
10987  M01S02105.274l797 +++|          TBKW   OD,(ST,EQ,UN,CH,IB),(ST,EQ,UN,CH)

Seq #  *Modification Id* Act 
----------------------------+
10988  M01S07382.274l797 ---|          TBKW   MT,(ST,EQ,UN,CH,TF,IB),(EQ,UN,CH,TF)
10989  M01S07383.274l797 ---|          TBKW   NT,(ST,EQ,UN,CH,TF,IB),(EQ,UN,CH,TF)
10990  M00S07384.set     ---|          TBKW   RP,(ST,CH,IB),(CH)
10991  M00S07385.set     ---|          TBKW   SS,(ST,EQ,UN,CH,IB),(EQ,UN,CH)
10992  M00S07386.set     ---|
10993  M00S07387.set     ---|*         INSTALLATION DEFINED DEVICES.
10994  M00S07388.set     ---|
10995  M00S07389.set     ---|          TBKW   **,(W0,W1),(W0)
10996  M00S07390.set     ---|          CON    0           END OF TABLE
10997  M00S07391.set     ---|
10998  M00S07392.set     ---|****
10999  M00S07393.set     ---| TKWP     SPACE  4,10
11000  M00S07394.set     ---|****      TKWP - TABLE OF KEYWORD PARAMETERS.
11001  M00S07395.set     ---|
11002  M00S07396.set     ---|
11003  M00S07397.set     ---| TKWP     BSS    0
11004  M01S07398.274l797 ---|          TBKP   AP,1,DVAP,00B,0000B   APRDECK NUMBER

Seq #  *Modification Id* Act 
----------------------------+
11005  M01S02106.274l797 +++|          TBKP   CH,0,1,00B,7777B      CHANNEL(S)
11006  M00S07399.set     +++| TKWPL    EQU    *-TKWP

Seq #  *Modification Id* Act 
----------------------------+
11007  M01S07400.274l797 ---| TKWPA    TBKP   CH,0,1,00B,7777B      CHANNEL(S)

Seq #  *Modification Id* Act 
----------------------------+
11008  M01S07401.272l774 ---|          TBKP   CI,0,4,05B,7037B      CSU IDENTIFIER
11009  M01S07402.272l774 ---|          TBKP   CP,0,4,06B,7477B      POSITION OF MST ON CSU

Seq #  *Modification Id* Act 
----------------------------+
11010  M01S00038.272l774 +++|          TBKP   CW,0,7,00B,0000B      CONTROLWARE

Seq #  *Modification Id* Act 
----------------------------+
11011  M01S07403.271l716 ---|          TBKP   EQ,0,4,11B,0777B      EQUIPMENT (CONTROLLER) NUMBER

Seq #  *Modification Id* Act 
----------------------------+
11012  M02S00053.274l797 ---| TKWPB    TBKP   EQ,0,4,11B,0777B      EQUIPMENT (CONTROLLER) NUMBER

Seq #  *Modification Id* Act 
----------------------------+
11013  M01S07404.274l797 ---|          TBKP   ET,0,DVED,00B,7777B   EXTENDED MEMORY TYPE

Seq #  *Modification Id* Act 
----------------------------+
11014  M01S02107.274l797 +++|          TBKP   DR,0,7,00B,7770B      ACS DRIVE INDEX
11015  M01S02108.274l797 +++|          TBKP   EQ,0,4,11B,0777B      EQUIPMENT (CONTROLLER) NUMBER
11016  M00S07405.set     +++|          TBKP   FC,1,7,00B,0000B      FORMS CODE
11017  M00S07406.set     +++|          TBKP   IB,0,5,00B,0000B      INSTALLATION BYTE
11018  M00S07407.set     +++|          TBKP   ID,1,4,00B,7700B      UNIT RECORD ID

Seq #  *Modification Id* Act 
----------------------------+
11019  M01S07408.274l797 ---|          TBKP   MA,0,DVED,11B,6777B   MAINTENANCE MODE
11020  M01S07409.274l797 ---|          TBKP   MC,0,7,00B,7700B      MAINTENANCE CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
11021  M01S02109.274l797 +++|          TBKP   LS,0,7,10B,0377B      ACS LSM INDEX

Seq #  *Modification Id* Act 
----------------------------+
11022  M01S07410.272l774 ---|          TBKP   MI,0,7,10B,0377B      MSA MSID
11023  M00S07411.set     ---|          TBKP   ND,0,4,00B,7400B      NODE NUMBER
11024  M00S07412.set     ---|          TBKP   NT,0,7,00B,7400B      MDI NODE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
11025  M01S02110.274l797 +++|          TBKP   PA,0,7,03B,7407B      ACS PANEL INDEX
11026  M00S07413.set     +++|          TBKP   PI,0,7,11B,0777B      PIP INDEX
11027  M00S07414.set     +++|          TBKP   PS,0,0,10B,6377B      PAGE SIZE
11028  M00S07415.set     +++|          TBKP   PT,0,4,00B,7777B      PORT / PORT COUNT
11029  M00S07416.set     +++|          TBKP   SA,0,0,11B,6777B      *SAM* FLAG
11030  M00S07417.set     +++|          TBKP   ST,0,0,0,7774B        STATUS

Seq #  *Modification Id* Act 
----------------------------+
11031  M01S07418.274l797 ---|          TBKP   SZ,0,DVNT,00B,0000B   EXTENDED MEMORY SIZE
11032  M00S07419.set     ---|          TBKP   TF,0,0,02B,7043B      TAPE FLAGS
11033  M00S07420.set     ---|          TBKP   TN,1,4,06B,7077B      PRINT TRAIN
11034  M01S07421.274l797 ---|          TBKP   TS,0,0,00B,0000B      EXTENDED MEMORY TRACK SIZE

Seq #  *Modification Id* Act 
----------------------------+
11035  M02S07422.274l797 ---|          TBKP   UI,0,7,00B,7400B      UNIT MSID

Seq #  *Modification Id* Act 
----------------------------+
11036  M01S07423.274l797 ---|          TBKP   UN,0,4,00B,7777B      UNIT NUMBER(S)

Seq #  *Modification Id* Act 
----------------------------+
11037  M01S02111.274l797 +++|          TBKP   UN,0,4,00B,7777B      UNIT NUMBER
11038  M00S07424.set     +++|          TBKP   W0,0,0,00B,0000B      WORD 0 (FOR **)
11039  M00S07425.set     +++|          TBKP   W1,0,0,00B,0000B      WORD 1 (FOR **)

Seq #  *Modification Id* Act 
----------------------------+
11040  M01S07426.272l774 ---|          TBKP   CW,0,7,00B,0000B      CONTROLWARE
11041  M00S07427.set     ---|          CON    0           END OF TABLE
11042  M00S07428.set     ---|
11043  M00S07429.set     ---|****
11044  M00S07430.set     ---| TRQP     SPACE  4,10
11045  M00S07431.set     ---|**        TRQP - TABLE OF REQUIRED PARAMETERS.
11046  M00S07432.set     ---|*
11047  M00S07433.set     ---|*         (TRQP) .NE. 0 IF INITIAL ENTRY OF THIS EQUIPMENT.
11048  M00S07434.set     ---|*         (TRQP+1)-(TRQP+KTWC) = REQUIRED KEYWORDS - BIT CORRESPONDING
11049  M00S07435.set     ---|*         TO *TVRK* BITS SET WHEN KEYWORD IS SPECIFIED.
11050  M00S07436.set     ---|
11051  M00S07437.set     ---| TRQP     BSSZ   KTWC+1

Seq #  *Modification Id* Act 
----------------------------+
11052  M01S02112.274l797 +++|          SPACE  4,10
11053  M01S02113.274l797 +++|          QUAL   *
11054  M00S07438.set     +++|
11055  M01S02114.274l797 +++| EQ2S     EQU    *+4-EQXO    *EQ2* SIZE
11056  M01S02115.274l797 +++| EQ2L     EQU    EQ2S/5+77   *EQ2* OVERLAY LENGTH
11057  M00S07439.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
11058  M01S07440.274l797 ---| EQ1S     EQU    *+4-EQXO    *EQ1* SIZE
11059  M01S07441.274l797 ---| EQ1L     EQU    EQ1S/5+77   *EQ1* OVERLAY LENGTH
11060  M01S07442.274l797 ---|
11061  M01S07443.274l797 ---|          ERRNG  7777-*-4    IF OVERFLOW
11062  M01S07444.274l797 ---|          TTL    SET/EQ2 - PROCESS EQUIPMENT DEFINITION.

Seq #  *Modification Id* Act 
----------------------------+
11063  M01S02116.274l797 +++|          ERRNG  7777-*-4    OVERFLOW WHEN LOADING *EQ2*
11064  M01S02117.274l797 +++|          TTL    SET/EQ3 - PROCESS MISCELLANEOUS *EQPDECK* ENTRY.
11065  M00S07445.set     +++|          TITLE

Seq #  *Modification Id* Act 
----------------------------+
11066  M01S07446.274l797 ---|          IDENT  EQ2,EQ2

Seq #  *Modification Id* Act 
----------------------------+
11067  M01S02118.274l797 +++|          IDENT  EQ3,/EQ3/EQ3
11068  M01S02119.274l797 +++|          QUAL   EQ3
11069  M00S07447.set     +++|          ORG    EQXO

Seq #  *Modification Id* Act 
----------------------------+
11070  M01S07448.274l797 ---|*COMMENT  SET - PROCESS EQUIPMENT DEFINITION.

Seq #  *Modification Id* Act 
----------------------------+
11071  M01S02120.274l797 +++|*COMMENT  SET - PROCESS MISCELLANEOUS *EQPDECK* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
11072  M01S07449.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
11073  M01S00006.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
11074  M00S07450.set     +++|          SPACE  4,10
11075  M00S07451.set     +++|.ILL      SET    0
11076  M00S07452.set     +++|.KBR      SET    0

Seq #  *Modification Id* Act 
----------------------------+
11077  M01S07453.274l797 ---| EQ2      SPACE  4,10
11078  M01S07454.274l797 ---|**        EQ2 - PROCESS EQUIPMENT DEFINITION.

Seq #  *Modification Id* Act 
----------------------------+
11079  M01S02121.274l797 +++| EQ3      SPACE  4,10
11080  M01S02122.274l797 +++|**        EQ3 - PROCESS MISCELLANEOUS *EQPDECK* ENTRY.
11081  M00S07455.set     +++|
11082  M00S07456.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
11083  M01S07457.274l797 ---| EQ2      UJN    LOVX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
11084  M01S02123.274l797 +++| EQ3      UJN    /EQP/LOVX   RETURN TO SYNTAX PROCESSOR
11085  M01S02124.274l797 +++|          SPACE  4,10
11086  M01S02125.274l797 +++|**        TSYN - SYNTAX TABLE.
11087  M01S02126.274l797 +++|
11088  M01S02127.274l797 +++|
11089  M01S02128.274l797 +++| TSYN     BSS    0
11090  M01S02129.274l797 +++|          CON    ACC
11091  M01S02130.274l797 +++|          CON    ACF
11092  M01S02131.274l797 +++|          CON    ASR
11093  M01S02132.274l797 +++|          CON    AXM
11094  M01S02133.274l797 +++|          CON    BML
11095  M01S02134.274l797 +++|          CON    CKP
11096  M01S02135.274l797 +++|          CON    DFL
11097  M01S02136.274l797 +++|          CON    DWN
11098  M01S02137.274l797 +++|          CON    ERL
11099  M01S02138.274l797 +++|          CON    FAM
11100  M01S02139.274l797 +++|          CON    ISH
11101  M01S02140.274l797 +++|          CON    LBC
11102  M01S02141.274l797 +++|          CON    MSF

Seq #  *Modification Id* Act 
----------------------------+
11103  M01S00029.283l840 +++|          CON    MXS

Seq #  *Modification Id* Act 
----------------------------+
11104  M01S02142.274l797 +++|          CON    PFS
11105  M01S02143.274l797 +++|          CON    REM
11106  M01S02144.274l797 +++|          CON    SHD
11107  M01S02145.274l797 +++|          CON    SYS
11108  M01S02146.274l797 +++|          CON    THD
11109  M01S02147.274l797 +++|          CON    UEM
11110  M01S02148.274l797 +++|          CON    UPC
11111  M01S02149.274l797 +++|
11112  M01S02150.274l797 +++| TSYNA    CON    0
11113  M01S02151.274l797 +++|          CON    NEXT
11114  M01S02152.274l797 +++|          CON    IPR
11115  M01S02153.274l797 +++|          CON    AUT
11116  M01S02154.274l797 +++|          CON    GRN
11117  M01S02155.274l797 +++|          CON    RST
11118  M01S02156.274l797 +++|          CON    INI
11119  M01S02157.274l797 +++|          CON    PRS
11120  M01S02158.274l797 +++|          CON    0           END OF TABLE
11121  M00S07458.set     +++|          TITLE  CM TABLE AND BUFFER PROCESSORS.
11122  M00S07459.set     +++| ACF      SPACE  4,10
11123  M00S07460.set     +++|***       ACCOUNT=EQ,BL.
11124  M00S07461.set     +++|*         DEFINE ACCOUNT DAYFILE RESIDENCE AND CM BUFFER SIZE.
11125  M00S07462.set     +++|*
11126  M00S07463.set     +++|*         EQ     EST ORDINAL, IF FILE IS NOT RECOVERED.
11127  M00S07464.set     +++|*                DEVICE CANNOT BE DEFINED AS REMOVABLE.
11128  M00S07465.set     +++|*         BL     CM BUFFER LENGTH, MUST BE A MULTIPLE OF 100B,
11129  M00S07466.set     +++|*                DEFAULT = 400B.
11130  M00S07467.set     +++|
11131  M00S07468.set     +++|
11132  M00S07469.set     +++| ACF      DATA   C*ACCOUNT=*
11133  M00S07470.set     +++|          LDN    1
11134  M00S07471.set     +++|          UJN    ERL1        PROCESS ACCOUNT LOG DEFINITION
11135  M00S07472.set     +++| BML      SPACE  4,10
11136  M00S07473.set     +++|***       MAINLOG=EQ,BL.
11137  M00S07474.set     +++|*         DEFINE MAINTENANCE LOG RESIDENCE AND CM BUFFER SIZE.
11138  M00S07475.set     +++|*
11139  M00S07476.set     +++|*         EQ     EST ORDINAL, IF FILE IS NOT RECOVERED.
11140  M00S07477.set     +++|*                DEVICE CANNOT BE DEFINED AS REMOVABLE.
11141  M00S07478.set     +++|*         BL     CM BUFFER LENGTH, MUST BE A MULTIPLE OF 100B,
11142  M00S07479.set     +++|*                DEFAULT = 0.
11143  M00S07480.set     +++|
11144  M00S07481.set     +++|
11145  M00S07482.set     +++| BML      DATA   C*MAINLOG=*
11146  M00S07483.set     +++|          LDN    3
11147  M00S07484.set     +++|          UJN    ERL1        PROCESS MAINTENANCE LOG DEFINITION
11148  M00S07485.set     +++| DFL      SPACE  4,10
11149  M00S07486.set     +++|***       DAYFILE=EQ,BL.
11150  M00S07487.set     +++|*         DEFINE SYSTEM DAYFILE RESIDENCE AND CM BUFFER SIZE.
11151  M00S07488.set     +++|*
11152  M00S07489.set     +++|*         EQ     EST ORDINAL, IF FILE IS NOT RECOVERED.
11153  M00S07490.set     +++|*                DEVICE CANNOT BE DEFINED AS REMOVABLE.
11154  M00S07491.set     +++|*         BL     CM BUFFER LENGTH, MUST BE A MULTIPLE OF 100B,
11155  M00S07492.set     +++|*                DEFAULT = 400B.
11156  M00S07493.set     +++|
11157  M00S07494.set     +++|
11158  M00S07495.set     +++| DFL      DATA   C*DAYFILE=*
11159  M00S07496.set     +++|          LDN    0
11160  M00S07497.set     +++|          UJN    ERL1        PROCESS DAYFILE LOG DEFINITION
11161  M00S07498.set     +++| ERL      SPACE  4,10
11162  M00S07499.set     +++|***       ERRLOG=EQ,BL.
11163  M00S07500.set     +++|*         DEFINE ERRLOG DAYFILE RESIDENCE AND CM BUFFER SIZE.
11164  M00S07501.set     +++|*
11165  M00S07502.set     +++|*         EQ     EST ORDINAL, IF FILE IS NOT RECOVERED.
11166  M00S07503.set     +++|*                DEVICE CANNOT BE DEFINED AS REMOVABLE.
11167  M00S07504.set     +++|*         BL     CM BUFFER LENGTH, MUST BE A MULTIPLE OF 100B,

Seq #  *Modification Id* Act 
----------------------------+
11168  M01S07505.ns2555  ---|*                DEFAULT = 100B.

Seq #  *Modification Id* Act 
----------------------------+
11169  M01S00002.ns2555  +++|*                DEFAULT = 200B.
11170  M00S07506.set     +++|
11171  M00S07507.set     +++|
11172  M00S07508.set     +++| ERL      DATA   C*ERRLOG=*
11173  M00S07509.set     +++|          LDN    2
11174  M00S07510.set     +++| ERL1     STD    T3
11175  M00S07511.set     +++|          LDN    NEEQ        PRESET DEFAULT EQUIPMENT
11176  M00S07512.set     +++|          STD    T7
11177  M00S07513.set     +++|          LDI    KA
11178  M00S07514.set     +++|          LMN    1R,
11179  M00S07515.set     +++|          ZJN    ERL4        IF DEFAULT EQUIPMENT
11180  M00S07516.set     +++|          LMN    1R.&1R,

Seq #  *Modification Id* Act 
----------------------------+
11181  M01S07517.set70   ---|          ZJN    ERL5        IF ZERO LENGTH BUFFER

Seq #  *Modification Id* Act 
----------------------------+
11182  M01S00002.set70   +++|          ZJN    ERL2        IF ZERO LENGTH BUFFER
11183  M00S07518.set     +++|          SOD    KA
11184  M00S07519.set     +++|          RJM    CEM         CHECK FOR MASS STORAGE EQUIPMENT
11185  M00S07520.set     +++|          SHN    13-10
11186  M00S07521.set     +++|          PJN    ERL3        IF NOT REMOVABLE DEVICE
11187  M00S07522.set     +++| ERL2     JMP    ILL         PROCESS INCORRECT ENTRY
11188  M00S07523.set     +++|
11189  M00S07524.set     +++| ERL3     LDD    AB+4        SET EST ORDINAL
11190  M00S07525.set     +++|          STD    T7
11191  M00S07526.set     +++|          LDI    KA
11192  M00S07527.set     +++|          LMN    1R.
11193  M00S07528.set     +++|          ZJN    ERL6        IF DEFAULT (PREVIOUS) BUFFER LENGTH
11194  M00S07529.set     +++| ERL4     AOD    KA
11195  M00S07530.set     +++|          RJM    ASD
11196  M01S00003.set70   +++|          ZJN    ERL2        IF ZERO LENGTH BUFFER
11197  M00S07531.set     +++|          LPN    77
11198  M00S07532.set     +++|          NJN    ERL2        IF NOT MULTIPLE OF 100B
11199  M00S07533.set     +++|          LDD    AB+4
11200  M00S07534.set     +++|          ADC    -MXDB-1
11201  M00S07535.set     +++|          PJN    ERL2        IF ENTRY .GT. SYSTEM DEFINED MAXIMUM

Seq #  *Modification Id* Act 
----------------------------+
11202  M01S07536.274l797 ---| ERL5     LDM    .DFB,T3     SET BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
11203  M01S02159.274l797 +++|          LDM    .DFB,T3     SET BUFFER LENGTH
11204  M00S07537.set     +++|          LPN    77
11205  M00S07538.set     +++|          LMD    AB+4
11206  M00S07539.set     +++|          STM    .DFB,T3
11207  M00S07540.set     +++| ERL6     LDD    T7          SET DAYFILE EQUIPMENT
11208  M00S07541.set     +++|          LMC    4000
11209  M00S07542.set     +++|          STM    DFBF,T3
11210  M00S07543.set     +++|
11211  M00S07544.set     +++|*         ENTRY FROM *FAMILY = N* PROCESSOR.
11212  M00S07545.set     +++|
11213  M00S07546.set     +++| ERL7     LDD    ET
11214  M00S07547.set     +++|          SHN    6
11215  M00S07548.set     +++|          ADN    NEEQ*TDDCL
11216  M00S07549.set     +++|          CWM    DFBF,ON
11217  M00S07550.set     +++|          JMP    KBR         RETURN
11218  M00S07551.set     +++|          TITLE  EQUIPMENT DEFINITION ENTRIES.
11219  M00S07552.set     +++|          SPACE  4,10
11220  M00S07553.set     +++|***       THESE ENTRIES MUST BE MADE AFTER EQUIPMENT HAS BEEN DEFINED.
11221  M00S07554.set     +++|*         THESE DEFINITIONS ARE CLEARED BY *RESET*, AND IF THE
11222  M00S07555.set     +++|*         EQUIPMENT IS REDEFINED OR DELETED (EQXXX=0.).
11223  M00S07556.set     +++| ACC      SPACE  4,10
11224  M00S07557.set     +++|***       ACCESS,LL,UL,X1,X2,...,XN.
11225  M00S07558.set     +++|*
11226  M00S07559.set     +++|*         SETS UPPER AND LOWER SECURITY ACCESS LEVEL LIMITS FOR
11227  M00S07560.set     +++|*         EQUIPMENTS X1,X2,...,XN.  THIS ENTRY IS VALID ONLY FOR
11228  M00S07561.set     +++|*         MASS STORAGE, UNIT RECORD, MAGNETIC TAPE AND MULTIPLEXOR
11229  M00S07562.set     +++|*         EQUIPMENTS.  THIS ENTRY WILL BE IGNORED ON AN UNSECURE
11230  M00S07563.set     +++|*         SYSTEM.
11231  M00S07564.set     +++|*
11232  M00S07565.set     +++|*         XN = EST ORDINAL.
11233  M00S07566.set     +++|*         LL = LOWER ACCESS LEVEL LIMIT.
11234  M00S07567.set     +++|*         UL = UPPER ACCESS LEVEL LIMIT.
11235  M00S07568.set     +++|
11236  M00S07569.set     +++|
11237  M00S07570.set     +++| ACC      DATA   C*ACCESS,*
11238  M00S07571.set     +++|          LDN    AB
11239  M00S07572.set     +++|          STD    T5
11240  M00S07573.set     +++|          SOD    KA
11241  M00S07574.set     +++|          LDM    .SSML
11242  M00S07575.set     +++|          LPN    7
11243  M00S07576.set     +++|          NJN    ACC1        IF SECURE SYSTEM
11244  M00S07577.set     +++| ACC0     JMP    KBR         RETURN
11245  M00S07578.set     +++|
11246  M00S07579.set     +++| ACC1     LDN    10
11247  M00S07580.set     +++|          RJM    ASN         ASSEMBLE ACCESS LEVEL LIMIT
11248  M00S07581.set     +++|          NJN    ACC2        IF MORE THAN 7 CHARACTERS
11249  M00S07582.set     +++|          LDN    CM          CHECK FOR VALID ACCESS LEVEL
11250  M00S07583.set     +++|          RJM    VAL
11251  M00S07584.set     +++|          MJN    ACC2        IF NO MATCH
11252  M00S07585.set     +++|          STI    T5
11253  M00S07586.set     +++|          LDI    KA
11254  M00S07587.set     +++|          LMN    1R,
11255  M00S07588.set     +++|          NJN    ACC2        IF INCORRECT SEPARATOR
11256  M00S07589.set     +++|          AOD    T5
11257  M00S07590.set     +++|          SBN    AB+2
11258  M00S07591.set     +++|          NJN    ACC1        IF NOT END OF LIMITS
11259  M00S07592.set     +++|          LDD    AB+1
11260  M00S07593.set     +++|          SBD    AB
11261  M00S07594.set     +++|          PJN    ACC3        IF LOWER LIMIT .LE. UPPER LIMIT
11262  M00S07595.set     +++| ACC2     JMP    ILL         PROCESS INCORRECT ENTRY
11263  M00S07596.set     +++|
11264  M00S07597.set     +++| ACC3     LDD    AB          SAVE ACCESS LEVELS
11265  M00S07598.set     +++|          SHN    3
11266  M00S07599.set     +++|          ADD    AB+1
11267  M00S07600.set     +++|          STD    CM
11268  M00S07601.set     +++| ACC4     RJM    GNE         GET NEXT EST ORDINAL
11269  M00S07602.set     +++|          ZJN    ACC0        IF END OF EST

Seq #  *Modification Id* Act 
----------------------------+
11270  M01S07603.274l797 ---| ACC5     MJN    ACC9        IF MASS STORAGE
11271  M01S07604.274l797 ---|
11272  M01S07605.274l797 ---| ACC7     LDN    0           CHECK EQUIPMENT TYPE

Seq #  *Modification Id* Act 
----------------------------+
11273  M01S02160.274l797 +++|          MJN    ACC9        IF MASS STORAGE
11274  M01S02161.274l797 +++|          LDN    0           CHECK EQUIPMENT TYPE
11275  M00S07606.set     +++|          STD    T5
11276  M00S07607.set     +++| ACC8     AOD    T5
11277  M00S07608.set     +++|          LDM    TVEQ-1,T5
11278  M00S07609.set     +++|          ZJN    ACC10       IF END OF TABLE
11279  M00S07610.set     +++|          LMM    EBUT+3
11280  M00S07611.set     +++|          NJN    ACC8        IF NOT MATCH
11281  M00S07612.set     +++| ACC9     LDM    EBUT+10
11282  M00S07613.set     +++|          SCN    77
11283  M00S07614.set     +++|          LMD    CM
11284  M00S07615.set     +++|          STM    EBUT+10
11285  M00S07616.set     +++|          RJM    EEB         UPDATE EQUIPMENT ENTRY
11286  M00S07617.set     +++|          UJN    ACC4        CHECK NEXT EQUIPMENT
11287  M00S07618.set     +++|
11288  M00S07619.set     +++| ACC10    RJM    IRE         PROCESS RANGE ERROR
11289  M00S07620.set     +++| TVEQ     SPACE  4,10
11290  M00S07621.set     +++|**        TVEQ - TABLE OF VALID EQUIPMENT TYPES FOR ACCESS LEVELS.
11291  M00S07622.set     +++|
11292  M00S07623.set     +++| TVEQ     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
11293  M01S07624.274l797 ---|          CON    2RMT
11294  M01S07625.274l797 ---|          CON    2RNT

Seq #  *Modification Id* Act 
----------------------------+
11295  M01S02162.274l797 +++|          CON    2RAT
11296  M00S07626.set     +++|          CON    2RCP
11297  M00S07627.set     +++|          CON    2RCR

Seq #  *Modification Id* Act 
----------------------------+
11298  M01S07628.274l797 ---|          CON    2RLP

Seq #  *Modification Id* Act 
----------------------------+
11299  M01S02163.274l797 +++|          CON    2RCT
11300  M00S07629.set     +++|          CON    2RLQ
11301  M00S07630.set     +++|          CON    2RLR
11302  M00S07631.set     +++|          CON    2RLS
11303  M00S07632.set     +++|          CON    2RLT
11304  M01S02164.274l797 +++|          CON    2RLX
11305  M01S02165.274l797 +++|          CON    2RLY
11306  M01S02166.274l797 +++|          CON    2RMT
11307  M01S02167.274l797 +++|          CON    2RNT
11308  M01S02168.274l797 +++|          CON    2ROD        DEVICE TYPE OPTICAL DISK
11309  M00S07633.set     +++|          CON    2RRM
11310  M00S07634.set     +++|          CON    2RTT
11311  M00S07635.set     +++|          CON    0           END OF EQUIPMENT TYPES
11312  M00S07636.set     +++| ASR      SPACE  4,10
11313  M00S07637.set     +++|***       ASR=X,Y,...,Z.
11314  M00S07638.set     +++|*
11315  M00S07639.set     +++|*         DEFINE EQ X,Y,...,Z AS ALTERNATE SYSTEM DEVICES.
11316  M00S07640.set     +++|*         X - Z EST ORDINALS MUST BE .LT. 40.
11317  M00S07641.set     +++|*
11318  M00S07642.set     +++|*         NOTE   THE FOLLOWING SPECIFICATIONS ARE NOT ALLOWED FOR ASR
11319  M00S07643.set     +++|*                DEVICES AND IF SPECIFIED PREVIOUSLY WILL CAUSE
11320  M00S07644.set     +++|*                *INCORRECT ENTRY* FOR THIS ENTRY.
11321  M00S07645.set     +++|*                            *SYSTEM*
11322  M00S07646.set     +++|*                            *REMOVE*
11323  M00S07647.set     +++|
11324  M00S07648.set     +++|
11325  M00S07649.set     +++| ASR      DATA   C*ASR=*
11326  M00S07650.set     +++|          SOD    KA
11327  M00S07651.set     +++| ASR1     RJM    GNE         GET NEXT EST ORDINAL
11328  M00S07652.set     +++|          NJN    ASR2        IF MORE EQUIPMENT
11329  M00S07653.set     +++|          JMP    KBR         RETURN
11330  M00S07654.set     +++|
11331  M00S07655.set     +++| ASR2     PJN    ASR3        IF NOT MASS STORAGE
11332  M00S07656.set     +++|          SHN    21-12-21+13
11333  M00S07657.set     +++|          MJN    ASR3        IF SYSTEM DEVICE
11334  M00S07658.set     +++|          SHN    12-10
11335  M00S07659.set     +++|          PJN    ASR4        IF NOT REMOVABLE DEVICE
11336  M00S07660.set     +++| ASR3     RJM    IRE         PROCESS INCORRECT RANGE
11337  M00S07661.set     +++|
11338  M00S07662.set     +++| ASR4     LDM    EBUT+4      SET *ASR* STATUS
11339  M00S07663.set     +++|          SCN    10
11340  M00S07664.set     +++|          LMN    10
11341  M00S07665.set     +++|          STM    EBUT+4
11342  M00S07666.set     +++|          LDD    EQ
11343  M00S07667.set     +++|          SHN    -5
11344  M00S07668.set     +++|          NJN    ASR3        IF EQUIPMENT OUT OF RANGE
11345  M00S07669.set     +++|          RJM    EEB         ENTER EQUIPMENT IN TABLES
11346  M00S07670.set     +++|          UJN    ASR1        PROCESS NEXT EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
11347  M01S00116.ns2644  +++| DWN      SPACE  4,10
11348  M01S00117.ns2644  +++|***       DOWN,CH=C1,C2,...,CN.
11349  M01S00118.ns2644  +++|*
11350  M01S00119.ns2644  +++|*         DOWN SPECIFIED CHANNELS.
11351  M01S00120.ns2644  +++|*
11352  M01S00121.ns2644  +++|*         C1 - CN = CHANNEL NUMBER TO BE DOWNED.  A PREFIX OF
11353  M01S00122.ns2644  +++|*                   *C* DESIGNATES A CONCURRENT CHANNEL.
11354  M01S00123.ns2644  +++|
11355  M01S00124.ns2644  +++|
11356  M01S00125.ns2644  +++| DWN      DATA   C*DOWN,*
11357  M01S00126.ns2644  +++|          LDN    40          INDICATE *DOWN* PROCESSING
11358  M01S00127.ns2644  +++|
11359  M01S00128.ns2644  +++|*         ENTRY FROM *UPC* FOR COMMON
11360  M01S00129.ns2644  +++|*         PROCESSING OF *UP* AND *DOWN*.
11361  M01S00130.ns2644  +++|
11362  M01S00131.ns2644  +++| DWN1     STD    T6          SAVE UP/DOWN INDICATOR
11363  M01S00132.ns2644  +++|          LDC    DWNA
11364  M01S00133.ns2644  +++|          RJM    SOT         SEARCH OPTION TABLE
11365  M01S00134.ns2644  +++|          LDI    KA
11366  M01S00135.ns2644  +++|          LMN    1R=
11367  M01S00136.ns2644  +++|          NJN    DWN5        IF INCORRECT SEPARATOR
11368  M01S00137.ns2644  +++|          STD    T5          CLEAR THE UNDO FLAG
11369  M01S00138.ns2644  +++|          STD    T4          CLEAR ERROR COUNT
11370  M01S00139.ns2644  +++| DWN2     STD    T3          ASSUME NORMAL CHANNEL
11371  M01S00140.ns2644  +++|          AOD    KA
11372  M01S00141.ns2644  +++|          STM    DWNB        SAVE COMMAND STRING POINTER
11373  M01S00142.ns2644  +++|          LDI    KA
11374  M01S00143.ns2644  +++|          LMN    1RC
11375  M01S00144.ns2644  +++|          NJN    DWN3        IF NOT *C* FOR CONCURRENT CHANNEL
11376  M01S00145.ns2644  +++|          LDN    40          INDICATE CONCURRENT CHANNEL
11377  M01S00146.ns2644  +++|          STD    T3
11378  M01S00147.ns2644  +++|          AOD    KA          SKIP PAST THE *C*
11379  M01S00148.ns2644  +++| DWN3     RJM    AOD         ASSEMBLE CHANNEL NUMBER
11380  M01S00149.ns2644  +++|          ADD    T3
11381  M01S00150.ns2644  +++|          STD    AB+4
11382  M01S00151.ns2644  +++|          SBN    TCSTL
11383  M01S00152.ns2644  +++|          PJN    DWN4        IF CHANNEL NUMBER TOO HIGH
11384  M01S00153.ns2644  +++|          LDD    AB+4
11385  M01S00154.ns2644  +++|          LMD    DH
11386  M01S00155.ns2644  +++|          ZJN    DWN4        IF DEADSTART CHANNEL
11387  M01S00156.ns2644  +++|          LDM    .DSD
11388  M01S00157.ns2644  +++|          LMD    AB+4
11389  M01S00158.ns2644  +++|          LPN    77
11390  M01S00159.ns2644  +++|          NJN    DWN6        IF NOT DISK DEADSTART (CIP) CHANNEL
11391  M01S00160.ns2644  +++| DWN4     LDM    DWNB        POSITION COMMAND LINE POINTER
11392  M01S00161.ns2644  +++|          STD    KA
11393  M01S00162.ns2644  +++| DWN5     LJM    ILL         RETURN ERROR
11394  M01S00163.ns2644  +++|
11395  M01S00164.ns2644  +++| DWN6     LDM    TCST,AB+4
11396  M01S00165.ns2644  +++|          LMN    40
11397  M01S00166.ns2644  +++|          LMD    T6
11398  M01S00167.ns2644  +++|          ZJN    DWN9        IF NOT ALREADY IN REQUESTED STATE
11399  M01S00168.ns2644  +++| DWN7     LDI    KA
11400  M01S00169.ns2644  +++|          LMN    1R,
11401  M01S00170.ns2644  +++|          ZJP    DWN2        IF NOT LAST CHANNEL
11402  M01S00171.ns2644  +++|          LJM    KBR         RETURN
11403  M01S00172.ns2644  +++|
11404  M01S00173.ns2644  +++| DWN8     LDD    T4
11405  M01S00174.ns2644  +++|          ZJN    DWN7        IF NO ERRORS
11406  M01S00175.ns2644  +++|          LDD    T5
11407  M01S00176.ns2644  +++|          NJN    DWN4        IF UNDO PASS
11408  M01S00177.ns2644  +++|          AOD    T5          FLAG UNDO PASS
11409  M01S00178.ns2644  +++|          LDN    40          REVERSE THE PROCESSING
11410  M01S00179.ns2644  +++| DWN9     LMD    T6
11411  M01S00180.ns2644  +++|          STD    T6
11412  M01S00181.ns2644  +++|          STM    TCST,AB+4
11413  M01S00182.ns2644  +++|          LDN    NOPE-1      INITIALIZE *EST* SEARCH ORDINAL
11414  M01S00183.ns2644  +++|          STD    EQ
11415  M01S00184.ns2644  +++| DWN10    AOD    EQ          INCREMENT *EST* ORDINAL
11416  M01S00185.ns2644  +++|          SBD    LE
11417  M01S00186.ns2644  +++|          PJN    DWN8        IF END OF *EST*
11418  M01S00187.ns2644  +++|          LDD    EQ
11419  M01S00188.ns2644  +++|          RJM    STA         GET *EST* ENTRY
11420  M01S00189.ns2644  +++|          LDM    EBUT+3
11421  M01S00190.ns2644  +++|          ZJN    DWN10       IF NULL ENTRY
11422  M01S00191.ns2644  +++|          LMC    2RDE
11423  M01S00192.ns2644  +++|          ZJN    DWN10       IF *DE* EQUIPMENT
11424  M01S00193.ns2644  +++|          LDN    40          SET *NO CHANGE* FLAG
11425  M01S00194.ns2644  +++|          STD    AB
11426  M01S00195.ns2644  +++|          LDD    ES
11427  M01S00196.ns2644  +++|          STD    T3
11428  M01S00197.ns2644  +++| DWN11    AOD    T3
11429  M01S00198.ns2644  +++|          LMC    EBUT+3
11430  M01S00199.ns2644  +++|          NJN    DWN12       IF ANOTHER CHANNEL TO CHECK
11431  M01S00200.ns2644  +++|          LDD    AB
11432  M01S00201.ns2644  +++|          NJN    DWN10       IF ACCESSIBLE OR NOT CHANGED
11433  M01S00202.ns2644  +++|          LDI    ES
11434  M01S00203.ns2644  +++|          LPN    3
11435  M01S00204.ns2644  +++|          LMN    3
11436  M01S00205.ns2644  +++|          ZJN    DWN10       IF EQUIPMENT IS DOWN
11437  M01S00206.ns2644  +++|          AOD    T4          INCREMENT ERROR COUNT
11438  M01S00207.ns2644  +++|          UJP    DWN10       CONTINUE SCAN OF *EST*
11439  M01S00208.ns2644  +++|
11440  M01S00209.ns2644  +++| DWN12    LDI    T3
11441  M01S00210.ns2644  +++|          ZJN    DWN11       IF NO CHANNEL PRESENT
11442  M01S00211.ns2644  +++|          LMD    AB+4        CHANNEL NUMBER
11443  M01S00212.ns2644  +++|          LPN    77
11444  M01S00213.ns2644  +++|          NJN    DWN13       IF NOT THIS CHANNEL
11445  M01S00214.ns2644  +++|          LDC    3000        DOWN/UP CHANNEL STATUS
11446  M01S00215.ns2644  +++|          LMI    T3
11447  M01S00216.ns2644  +++|          STI    T3
11448  M01S00217.ns2644  +++|          RJM    EEB         UPDATE *EST* ENTRY
11449  M01S00218.ns2644  +++|          LDD    AB          CLEAR *NO CHANGE* FLAG
11450  M01S00219.ns2644  +++|          LPN    37
11451  M01S00220.ns2644  +++|          STD    AB
11452  M01S00221.ns2644  +++| DWN13    LDI    T3
11453  M01S00222.ns2644  +++|          SHN    21-12
11454  M01S00223.ns2644  +++|          MJN    DWN11       IF THIS CHANNEL IS DOWN
11455  M01S00224.ns2644  +++|          AOD    AB          INCREMENT ACCESS COUNT
11456  M01S00225.ns2644  +++|          UJP    DWN11       CHECK NEXT CHANNEL
11457  M01S00226.ns2644  +++|
11458  M01S00227.ns2644  +++|
11459  M01S00228.ns2644  +++| DWNA     CON    2RCH
11460  M01S00229.ns2644  +++|          CON    0
11461  M01S00230.ns2644  +++| DWNB     CON    0
11462  M00S07671.set     +++| FAM      SPACE  4,10
11463  M00S07672.set     +++|***       FAMILY=NN.
11464  M00S07673.set     +++|*
11465  M00S07674.set     +++|*         SET DEFAULT FAMILY NAME TO NAME ON EQUIPMENT NN.
11466  M00S07675.set     +++|*         ALL PERMANENT FILE REQUESTS WILL GO TO THIS FAMILY UNLESS
11467  M00S07676.set     +++|*         USER HAS INDICATED HE IS USER OF ALTERNATE FAMILY.
11468  M00S07677.set     +++|*         NOTE   THE FOLLOWING SPECIFICATIONS ARE NOT ALLOWED FOR
11469  M00S07678.set     +++|*                DEFAULT FAMILY DEVICE AND IF SPECIFIED PREVIOUSLY WILL
11470  M00S07679.set     +++|*                CAUSE *INCORRECT ENTRY* FOR THIS ENTRY.
11471  M00S07680.set     +++|*                            *REMOVE*
11472  M00S07681.set     +++|*                            ST = *OFF*
11473  M00S07682.set     +++|
11474  M00S07683.set     +++|
11475  M00S07684.set     +++| FAM      DATA   C*FAMILY=*
11476  M00S07685.set     +++|          SOD    KA
11477  M00S07686.set     +++|          RJM    CEM         CHECK IF MASS STORAGE EQUIPMENT
11478  M00S07687.set     +++|          LPC    402S6
11479  M00S07688.set     +++|          ZJN    FAM2        IF NOT OFF/DOWN/REMOVABLE
11480  M00S07689.set     +++| FAM1     JMP    ILL         PROCESS INCORRECT ENTRY
11481  M00S07690.set     +++|
11482  M00S07691.set     +++| FAM2     LDI    KA
11483  M00S07692.set     +++|          LMN    1R.
11484  M00S07693.set     +++|          NJN    FAM1        IF NOT *.*
11485  M00S07694.set     +++|          LDD    AB+4        SET DEFAULT FAMILY EQUIPMENT
11486  M00S07695.set     +++|          STM    .PFNL+3
11487  M00S07696.set     +++|          LJM    ERL7        SET FAMILY NUMBER
11488  M00S07697.set     +++| INI      SPACE  4,25
11489  M00S07698.set     +++|***       INITIALIZE,OP,X1,X2,...,XN.
11490  M00S07699.set     +++|*         INITIALIZE MASS STORAGE EQUIPMENT *XN* BASED
11491  M00S07700.set     +++|*         ON THE OPTION *OP*.
11492  M00S07701.set     +++|*         OP     FUNCTION
11493  M00S07702.set     +++|*
11494  M00S07703.set     +++|*         AL     TOTAL INITIALIZE.
11495  M00S07704.set     +++|*         PF     INITIALIZE PERMANENT FILES.
11496  M00S07705.set     +++|*         QF     INITIALIZE QUEUED FILES.
11497  M00S07706.set     +++|*         DF     INITIALIZE SYSTEM DAYFILE.
11498  M00S07707.set     +++|*         AF     INITIALIZE ACCOUNT DAYFILE.
11499  M00S07708.set     +++|*         EF     INITIALIZE ERRLOG DAYFILE.
11500  M00S07709.set     +++|*         MF     INITIALIZE MAINTENANCE LOG.
11501  M00S07710.set     +++|*         FP     FORMAT PACK (AUTOMATIC SELECTION OF *AL*).
11502  M00S07711.set     +++|*
11503  M00S07712.set     +++|*         THIS ENTRY IS ONLY ALLOWED FROM THE KEYBOARD AND WHEN
11504  M00S07713.set     +++|*         LEVEL 0 RECOVERY IS SELECTED.
11505  M00S07714.set     +++|*
11506  M00S07715.set     +++|*         USE *DSD* ONLINE INITIALIZATION COMMANDS FOR ALL
11507  M00S07716.set     +++|*         OTHER SITUATIONS.
11508  M00S07717.set     +++|*
11509  M00S07718.set     +++|*         FOR OP=AL THE PARAMETERS ON THE *PF* ENTRY WILL
11510  M00S07719.set     +++|*         BE USED TO DESCRIBE THE DEVICE.
11511  M00S07720.set     +++|
11512  M00S07721.set     +++|
11513  M00S07722.set     +++| INI      DATA   C*INITIALIZE,*
11514  M00S07723.set     +++|          LDD    RS
11515  M00S07724.set     +++|          NJN    INI2        IF NOT LEVEL 0
11516  M00S07725.set     +++|          STD    T4
11517  M00S07726.set     +++|          LDC    TINO        SEARCH OPTION TABLE
11518  M00S07727.set     +++|          RJM    SOT
11519  M00S07728.set     +++|          STD    T6          SAVE INDEX
11520  M00S07729.set     +++|          SBN    TINOA
11521  M00S07730.set     +++|          SHN    4-22
11522  M00S07731.set     +++|          NJN    INI1        IF FULL INITIALIZE OPTION
11523  M00S07732.set     +++|          LDC    1777
11524  M00S07733.set     +++|          STD    T4
11525  M00S07734.set     +++|          LMM    TINF,T6     SET MASK
11526  M00S07735.set     +++| INI1     STM    INIA
11527  M00S07736.set     +++|          LDI    KA          CHECK SEPARATOR
11528  M00S07737.set     +++|          LMN    1R,
11529  M00S07738.set     +++|          ZJN    INI6        IF VALID SYNTAX
11530  M00S07739.set     +++| INI2     JMP    ILL         PROCESS INCORRECT ENTRY
11531  M00S07740.set     +++|
11532  M00S07741.set     +++|*         SET EQUIPMENTS TO INITIALIZE.
11533  M00S07742.set     +++|
11534  M00S07743.set     +++| INI6     RJM    CEM         CHECK FOR MASS STORAGE EQUIPMENT
11535  M00S07744.set     +++|          RJM    CDD         CHECK DEADSTART DEVICE
11536  M00S07745.set     +++|          ADD    T4
11537  M00S07746.set     +++|          ZJN    INI2        IF FULL INITIALIZE OF DEADSTART DEVICE
11538  M00S07747.set     +++|          LDI    ES
11539  M00S07748.set     +++|          LPN    3           CHECK DEVICE STATE
11540  M00S07749.set     +++|          LMN    3
11541  M00S07750.set     +++|          ZJN    INI2        IF EQUIPMENT *DOWN*
11542  M00S07751.set     +++|
11543  M00S07752.set     +++|*         SET INITIALIZE OPTION.
11544  M00S07753.set     +++|
11545  M00S07754.set     +++|          LDM    EBUT+4
11546  M00S07755.set     +++|          LPC    **          CLEAR BIT TO BE SET
11547  M00S07756.set     +++| INIA     EQU    *-1
11548  M00S07757.set     +++|          LMM    TINF,T6     APPEND NEW OPTION FLAG(S)
11549  M00S07758.set     +++|          STM    EBUT+4

Seq #  *Modification Id* Act 
----------------------------+
11550  M01S07759.284l847 ---|          RJM    EEB         ENTER EQUIPMENT IN TABLES

Seq #  *Modification Id* Act 
----------------------------+
11551  M01S00507.284l847 +++|          RJM    SPE         ENTER EQUIPMENT IN TABLES
11552  M00S07760.set     +++|          LDI    KA
11553  M00S07761.set     +++|          LMN    1R,
11554  M00S07762.set     +++|          ZJN    INI6        IF MORE EQUIPMENTS
11555  M00S07763.set     +++|          JMP    KBR         RETURN
11556  M00S07764.set     +++|          SPACE  4,10
11557  M00S07765.set     +++|**        TINO - TABLE OF INITIALIZE OPTIONS.
11558  M00S07766.set     +++|
11559  M00S07767.set     +++|
11560  M00S07768.set     +++| TINO     BSS    0
11561  M00S07769.set     +++|          CON    2RAL        FULL INITIALIZE
11562  M00S07770.set     +++|          CON    2RFP        FORMAT PACK
11563  M00S07771.set     +++| TINOA    EQU    *-TINO
11564  M00S07772.set     +++|          CON    2RPF        PERMANENT FILES
11565  M00S07773.set     +++|          CON    2RQF        QUEUE FILES
11566  M00S07774.set     +++|          CON    2RDF        DAYFILE
11567  M00S07775.set     +++|          CON    2RAF        ACCOUNT FILE
11568  M00S07776.set     +++|          CON    2REF        ERRORLOG
11569  M00S07777.set     +++|          CON    2RMF        MAINTENANCE LOG
11570  M00S07778.set     +++|          CON    0
11571  M00S07779.set     +++| TINF     SPACE  4,10
11572  M00S07780.set     +++|**        TINF - TABLE OF INITIALIZE FLAGS.
11573  M00S07781.set     +++|
11574  M00S07782.set     +++|
11575  M00S07783.set     +++| TINF     BSS    0
11576  M00S07784.set     +++|          CON    MLIAL
11577  M00S07785.set     +++|          CON    MLFPR+MLIAL
11578  M00S07786.set     +++|          CON    MLIPF*4
11579  M00S07787.set     +++|          CON    MLIQF*4
11580  M00S07788.set     +++|          CON    MLIDF/20
11581  M00S07789.set     +++|          CON    MLIAF/20
11582  M00S07790.set     +++|          CON    MLIEF/20
11583  M00S07791.set     +++|          CON    MLIMF/20
11584  M00S07792.set     +++| ISHARE   SPACE  4,10
11585  M00S07793.set     +++|***       ISHARE=X1,X2,...,XN.
11586  M00S07794.set     +++|*
11587  M00S07795.set     +++|*         DEFINE X1,X2,...,XN AS INDEPENDENT SHARED DEVICES.
11588  M00S07796.set     +++|*         XN MUST BE MASS STORAGE AND OF TYPE FLAGGED IN *TMSD*.
11589  M00S07797.set     +++|*
11590  M00S07798.set     +++|
11591  M00S07799.set     +++| ISH      DATA   C*ISHARE=*
11592  M00S07800.set     +++|          LDD    LD
11593  M00S07801.set     +++|          LPC    -4000
11594  M00S07802.set     +++|          ZJN    ISH1        IF NO *SHARE=* ENTRIES
11595  M00S07803.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
11596  M00S07804.set     +++|
11597  M00S07805.set     +++| ISH1     SOD    KA          CHARACTER STRING ADDRESS
11598  M00S07806.set     +++|          LDC    1020        SET INDEPENDENT SHARED DEVICE FLAG
11599  M00S07807.set     +++|          RJM    DSC         DEVICE STATUS CHECK
11600  M00S07808.set     +++|          LDC    4000
11601  M00S07809.set     +++|          STD    LD
11602  M00S07810.set     +++|          JMP    KBR         RETURN
11603  M00S07811.set     +++| MSF      SPACE  4,10
11604  M00S07812.set     +++|***       MSAL,X=E1,E2,... EN.
11605  M00S07813.set     +++|*
11606  M00S07814.set     +++|*         ALLOW ALLOCATION TYPE *X* ON EQUIPMENTS *E1* TO *EN*.
11607  M00S07815.set     +++|*
11608  M00S07816.set     +++|*         X  =   T FOR TEMPORARY FILES.
11609  M00S07817.set     +++|*                I FOR INPUT FILES.
11610  M00S07818.set     +++|*                O FOR OUTPUT FILES.
11611  M00S07819.set     +++|*                R FOR ROLLOUT FILES.
11612  M00S07820.set     +++|*                D FOR USER DAYFILES.
11613  M00S07821.set     +++|*                P FOR PRIMARY FILES.
11614  M00S07822.set     +++|*                L FOR LOCAL FILES.
11615  M00S07823.set     +++|*                B FOR *LGO* FILES.
11616  M00S07824.set     +++|*                S FOR SECONDARY ROLLOUT FILES.
11617  M00S07825.set     +++|*
11618  M00S07826.set     +++|*         NOTE   THIS ENTRY IS NOT ALLOWED FOR REMOVABLE EQUIPMENT.
11619  M00S07827.set     +++|*                EST ORDINALS *EN* MUST BE .LT. 60.
11620  M00S07828.set     +++|
11621  M00S07829.set     +++|
11622  M00S07830.set     +++| MSF      DATA   C*MSAL,*
11623  M00S07831.set     +++|          LDN    MXRS-1
11624  M00S07832.set     +++|          STD    T1
11625  M00S07833.set     +++| MSF1     LDM    TMSF,T1     FIND FILE TYPE
11626  M00S07834.set     +++|          LMI    KA
11627  M00S07835.set     +++|          ZJN    MSF3        IF FOUND
11628  M00S07836.set     +++|          SOD    T1
11629  M00S07837.set     +++|          PJN    MSF1        IF NOT END OF TABLE
11630  M00S07838.set     +++| MSF2     JMP    ILL         PROCESS INCORRECT ENTRY
11631  M00S07839.set     +++|
11632  M00S07840.set     +++| MSF3     AOD    KA          CHECK SEPARATOR
11633  M00S07841.set     +++|          LDI    KA
11634  M00S07842.set     +++|          LMN    1R=
11635  M00S07843.set     +++|          NJN    MSF2        IF INCORRECT SEPARATOR
11636  M00S07844.set     +++|          AOD    KA
11637  M00S07845.set     +++|          LDD    T1          SET BIT
11638  M00S07846.set     +++|          ADD    TH
11639  M00S07847.set     +++|          ERRNZ  1000-SHNI   ADJUST IF VALUE CHANGES
11640  M00S07848.set     +++|          STM    MSFA
11641  M00S07849.set     +++|          LDN    1
11642  M00S07850.set     +++| MSFA     SHN    **
11643  M00S07851.set     +++| MSF4     STD    T7          SET MASKS
11644  M00S07852.set     +++|          LMC    -0
11645  M00S07853.set     +++|          STM    MSFB
11646  M00S07854.set     +++|          LDC    TDDB+DVFA
11647  M00S07855.set     +++|          STD    T6
11648  M00S07856.set     +++|          SOD    KA
11649  M00S07857.set     +++| MSF5     RJM    GNE         GET NEXT EST ORDINAL
11650  M00S07858.set     +++|          NJN    MSF6        IF MORE EQUIPMENT
11651  M00S07859.set     +++|          JMP    KBR         RETURN
11652  M00S07860.set     +++|
11653  M00S07861.set     +++| MSF6     PJN    MSF7        IF NOT MASS STORAGE
11654  M00S07862.set     +++|          SHN    21-10-21+13
11655  M00S07863.set     +++|          PJN    MSF8        IF NOT REMOVABLE DEVICE
11656  M00S07864.set     +++| MSF7     RJM    IRE         PROCESS INCORRECT RANGE
11657  M00S07865.set     +++|
11658  M00S07866.set     +++| MSF8     LDN    57
11659  M00S07867.set     +++|          SBD    EQ
11660  M00S07868.set     +++|          MJN    MSF7        IF EQUIPMENT OUT OF RANGE
11661  M00S07869.set     +++|          LDI    T6
11662  M00S07870.set     +++|          LPC    0
11663  M00S07871.set     +++| MSFB     EQU    *-1
11664  M00S07872.set     +++|          LMD    T7
11665  M00S07873.set     +++|          STI    T6
11666  M00S07874.set     +++|          LPN    1
11667  M00S07875.set     +++|          ZJN    MSF9        IF NOT TEMPORARY FILES
11668  M00S07876.set     +++|          LDI    ES
11669  M00S07877.set     +++|          SHN    21-11
11670  M00S07878.set     +++|          MJN    MSF9        IF SHARED DEVICE
11671  M00S07879.set     +++|          LDI    T6
11672  M00S07880.set     +++|          LPC    -4000
11673  M00S07881.set     +++|          LMC    4000
11674  M00S07882.set     +++|          STI    T6

Seq #  *Modification Id* Act 
----------------------------+
11675  M01S07883.284l847 ---| MSF9     RJM    EEB         UPDATE EQUIPMENT DEFINITION

Seq #  *Modification Id* Act 
----------------------------+
11676  M01S00508.284l847 +++| MSF9     RJM    SPE         UPDATE EQUIPMENT DEFINITION
11677  M00S07884.set     +++|          UJN    MSF5        PROCESS NEXT EQUIPMENT
11678  M00S07885.set     +++|
11679  M00S07886.set     +++| TMSF     INDEX              ALLOCATION TYPE TABLE
11680  M00S07887.set     +++|          INDEX  TMPS,1RT    TEMPORARY FILES
11681  M00S07888.set     +++|          INDEX  INPS,1RI    INPUT FILES
11682  M00S07889.set     +++|          INDEX  OUTS,1RO    OUTPUT FILES
11683  M00S07890.set     +++|          INDEX  ROLS,1RR    ROLLOUT FILES
11684  M00S07891.set     +++|          INDEX  DAYS,1RD    USER DAYFILES
11685  M00S07892.set     +++|          INDEX  PRIS,1RP    PRIMARY FILES
11686  M00S07893.set     +++|          INDEX  LOCS,1RL    LOCAL FILES
11687  M00S07894.set     +++|          INDEX  LGOS,1RB    *LGO* FILES
11688  M00S07895.set     +++|          INDEX  SROS,1RS    SECONDARY ROLLOUT FILES
11689  M00S07896.set     +++|          INDEX  MXRS

Seq #  *Modification Id* Act 
----------------------------+
11690  M01S07897.283l840 ---| PFS      SPACE  4,10
11691  M01S07898.283l840 ---|***       PF=XX,TY,DM,SM,FM,DN,NC.
11692  M01S07899.283l840 ---|*         DEFINE DEVICE FOR PERMANENT FILES.
11693  M01S07900.283l840 ---| PFS      SPACE  4,10
11694  M01S07901.283l840 ---|***       PF=XX,TY,FM,NC.
11695  M01S07902.283l840 ---|*         DEFINE AUXILIARY PERMANENT FILE DEVICE (TY = X)

Seq #  *Modification Id* Act 
----------------------------+
11696  M01S00030.283l840 +++| MXS      SPACE  4,10
11697  M01S00031.283l840 +++|***       MAXSHARE=N,B.
11698  M01S00032.283l840 +++|*
11699  M01S00033.283l840 +++|*         DEFINE MAXIMUM NUMBER OF SHARED DEVICES, IF *PRESET* MAY BE
11700  M01S00034.283l840 +++|*         PERFORMED AND NOT ALL SHARED DEVICES ARE DEFINED ON THIS
11701  M01S00035.283l840 +++|*         MAINFRAME.
11702  M01S00036.283l840 +++|*
11703  M01S00037.283l840 +++|*         N = MAXIMUM TOTAL NUMBER OF SHARED DEVICES (N < 377B).
11704  M01S00038.283l840 +++|*         B = OPTIONAL PARAMETER SPECIFYING MAXIMUM NUMBER OF SHARED
11705  M01S00039.283l840 +++|*         DEVICES WHICH ARE BUFFERED DEVICES (B .LE. N;  B < 377B).
11706  M01S00040.283l840 +++|
11707  M01S00041.283l840 +++|
11708  M01S00042.283l840 +++| MXS      DATA   C*MAXSHARE=*

Seq #  *Modification Id* Act 
----------------------------+
11709  M02S00043.set78   ---|          RJM    ASD         ASSEMBLE DIGITS

Seq #  *Modification Id* Act 
----------------------------+
11710  M01S00001.set78   +++|          RJM    AOD         ASSEMBLE OCTAL DIGITS

Seq #  *Modification Id* Act 
----------------------------+
11711  M01S00044.283l840 +++|          SBK    377
11712  M01S00045.283l840 +++|          PJN    MXS1        IF DEVICE COUNT TOO LARGE
11713  M01S00046.283l840 +++|          LDD    AB+4
11714  M01S00047.283l840 +++|          STD    T3
11715  M01S00048.283l840 +++|          SBD    NS
11716  M01S00049.283l840 +++|          PJN    MXS2        IF .GE. NUMBER OF SHARED DEVICES
11717  M01S00050.283l840 +++| MXS1     JMP    ILL         PROCESS INCORRECT ENTRY
11718  M01S00051.283l840 +++|
11719  M01S00052.283l840 +++| MXS2     LDI    KA          CHECK SEPARATOR
11720  M01S00053.283l840 +++|          LMN    1R.
11721  M01S00054.283l840 +++|          ZJN    MXS3        IF NO OPTIONAL PARAMETER SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
11722  M02S00055.set78   ---|          LMN    1R,&1R.
11723  M02S00056.set78   ---|          NJN    MXS1        IF NOT VALID SEPARATOR

Seq #  *Modification Id* Act 
----------------------------+
11724  M01S00057.283l840 +++|          AOD    KA          SKIP SEPARATOR
11725  M01S00058.283l840 +++|          RJM    ASD         ASSEMBLE DIGITS
11726  M01S00059.283l840 +++|          SBK    377
11727  M01S00060.283l840 +++|          PJN    MXS1        IF DEVICE COUNT TOO LARGE
11728  M01S00061.283l840 +++|          LDD    AB+4
11729  M01S00062.283l840 +++|          SBM    NSBD
11730  M01S00063.283l840 +++|          MJN    MXS1        IF .LT. NUMBER OF SHARED DEVICES
11731  M01S00064.283l840 +++|          LDD    T3
11732  M01S00065.283l840 +++|          SBD    AB+4
11733  M01S00066.283l840 +++|          MJN    MXS1        IF MORE SHARED BUFFERED THAN TOTAL SHARED
11734  M01S00067.283l840 +++|          LDD    AB+4        SET MAXIMUM SHARED BUFFERED DEVICE COUNT
11735  M01S00068.283l840 +++|          STM    MSBD
11736  M01S00069.283l840 +++| MXS3     LDD    T3          SET MAXIMUM SHARED DEVICE COUNT
11737  M01S00070.283l840 +++|          STM    MSDC
11738  M01S00071.283l840 +++|          JMP    KBR         RETURN
11739  M01S00072.283l840 +++| PFS      SPACE  4,30
11740  M01S00073.283l840 +++|***       PF=NNN,TY,DM,SM,FM,DN,NC.
11741  M01S00074.283l840 +++|*
11742  M01S00075.283l840 +++|*         DEFINE PERMANENT FILE FAMILY DEVICE PARAMETERS (TY=F).
11743  M01S00076.283l840 +++|*
11744  M01S00077.283l840 +++|*         PF=NNN,TY,FM,NC.
11745  M01S00078.283l840 +++|*
11746  M01S00079.283l840 +++|*         DEFINE AUXILIARY PERMANENT FILE DEVICE PARAMETERS (TY = X).
11747  M00S07903.set     +++|*
11748  M00S07904.set     +++|*         ALL PARAMETERS ARE ORDER DEPENDENT.
11749  M00S07905.set     +++|*         THIS ENTRY IS REQUIRED ONLY IF DEVICE IS TO BE INITIALIZED.
11750  M00S07906.set     +++|*         PF DESCRIPTIONS WILL BE RECOVERED FROM LABEL IF INITIALIZE
11751  M00S07907.set     +++|*         IS NOT SPECIFIED.
11752  M00S07908.set     +++|*

Seq #  *Modification Id* Act 
----------------------------+
11753  M01S07909.283l840 ---|*         XX   EST ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
11754  M01S00080.283l840 +++|*         NNN  EST ORDINAL.
11755  M00S07910.set     +++|*
11756  M00S07911.set     +++|*         TY   TYPE OF PERMANENT FILE RESIDENCE.
11757  M00S07912.set     +++|*                *F* = DEVICE IS A FAMILY DEVICE.
11758  M00S07913.set     +++|*                *X* = DEVICE IS AUXILIARY (BOTH DIRECTS AND INDIRECTS
11759  M00S07914.set     +++|*                            ALLOWED) IF TX = X THEN ONLY FM PARAMETER
11760  M00S07915.set     +++|*                            IS REQUIRED
11761  M00S07916.set     +++|*
11762  M00S07917.set     +++|*         DM   DEVICE MASK - THIS DEFINES WHICH USERS CATALOGS RESIDE
11763  M00S07918.set     +++|*                            ON THIS DEVICE.  0 < DM < 377.
11764  M00S07919.set     +++|*                            THIS IS NOT ENTERED FOR AUXILIARY DEVICE.
11765  M00S07920.set     +++|*                            A BIT SET IN DM FIELD DIRECTS TO THIS
11766  M00S07921.set     +++|*                            DEVICE ALL CATALOGS WHOSE LAST DIGIT
11767  M00S07922.set     +++|*                            CORRESPONDS TO BIT POSITION.
11768  M00S07923.set     +++|*                            EXAMPLE  DM = 132 CONTAINS USERS WITH USER
11769  M00S07924.set     +++|*                            INDEX -
11770  M00S07925.set     +++|*                            XXX1
11771  M00S07926.set     +++|*                            XXX3
11772  M00S07927.set     +++|*                            XXX4
11773  M00S07928.set     +++|*                            XXX6
11774  M00S07929.set     +++|*
11775  M00S07930.set     +++|*         SM     SECONDARY MASK  THIS DEFINES WHICH USERS MAY DEFINE
11776  M00S07931.set     +++|*                            DIRECT ACCESS PERMANENT FILES ON THIS
11777  M00S07932.set     +++|*                            DEVICE. THE VALIDATION IS PERFORMED
11778  M00S07933.set     +++|*                            IN THE SAME MANNER AS FOR THE
11779  M00S07934.set     +++|*                            DEVICE MASK.
11780  M00S07935.set     +++|*
11781  M00S07936.set     +++|*         FM     FAMILY NAME (1 - 7 CHARACTERS) THIS SHOULD
11782  M00S07937.set     +++|*                            BE THE SAME FOR ALL DEVICES IN
11783  M00S07938.set     +++|*                            THE FAMILY.
11784  M00S07939.set     +++|*                            THIS IS PACK NAME IF TY = X.
11785  M00S07940.set     +++|*
11786  M00S07941.set     +++|*         DN     DEVICE NUMBER  THIS DEFINES UNIQUE DESCRIPTION OF
11787  M00S07942.set     +++|*                            DEVICE IN FAMILY. ALL DEVICES IN FAMILY
11788  M00S07943.set     +++|*                            SHOULD HAVE DIFFERENT DN SPECIFIED.
11789  M00S07944.set     +++|*                            DN = 1-77.  THIS IS NOT ENTERED FOR
11790  M00S07945.set     +++|*                            AUXILIARY DEVICE.
11791  M00S07946.set     +++|*
11792  M00S07947.set     +++|*         NC     NUMBER OF CATALOG TRACKS  THIS PARAMETER MUST
11793  M00S07948.set     +++|*                            BE A POWER OF 2 AND NOT GREATER THAN
11794  M00S07949.set     +++|*                            200B. THIS PARAMETER IS OPTIONAL WITH
11795  M00S07950.set     +++|*                            THE DEFAULT BASED ON EQUIPMENT TYPE.
11796  M00S07951.set     +++|*                            THIS ENTRY IS MEANINGLESS IF *DM* IS NOT
11797  M00S07952.set     +++|*                            DEFINED.
11798  M00S07953.set     +++|
11799  M00S07954.set     +++|
11800  M00S07955.set     +++| PFS      DATA   C*PF=*
11801  M00S07956.set     +++|          SOD    KA
11802  M00S07957.set     +++|          RJM    CEM         CHECK IF EQUIPMENT MASS STORAGE
11803  M00S07958.set     +++|          LDI    KA          CHECK SEPARATOR
11804  M00S07959.set     +++|          LMN    1R,
11805  M00S07960.set     +++|          NJN    PFS1        IF NOT *,*
11806  M00S07961.set     +++|          AOD    KA          SKIP *,*
11807  M00S07962.set     +++|
11808  M00S07963.set     +++|*         PROCESS *TY*.
11809  M00S07964.set     +++|
11810  M00S07965.set     +++|          LDI    KA
11811  M00S07966.set     +++|          LMN    1RF
11812  M00S07967.set     +++|          ZJN    PFS3        IF FAMILY DEVICE
11813  M00S07968.set     +++|          LMN    1RX&1RF
11814  M00S07969.set     +++|          ZJN    PFS2        IF *X*
11815  M00S07970.set     +++| PFS1     JMP    ILL         PROCESS INCORRECT ENTRY
11816  M00S07971.set     +++|
11817  M00S07972.set     +++| PFS2     LDN    4           SET AUXILIARY STATUS
11818  M00S07973.set     +++| PFS3     STD    T4
11819  M00S07974.set     +++|          AOD    KA          ADVANCE CHARACTER
11820  M00S07975.set     +++|          LDI    KA
11821  M00S07976.set     +++|          LMN    1R,
11822  M00S07977.set     +++|          NJN    PFS1        IF SEPARATOR NOT *,*
11823  M00S07978.set     +++|          LDD    T4
11824  M00S07979.set     +++|          ZJN    PFS4        IF NOT AUXILIARY DEVICE
11825  M00S07980.set     +++|          LDC    377S8       SET DEFAULT MASKS
11826  M00S07981.set     +++|          UJN    PFS5        PROCESS PACK NAME
11827  M00S07982.set     +++|
11828  M00S07983.set     +++|*         PROCESS *DM*.
11829  M00S07984.set     +++|
11830  M00S07985.set     +++| PFS4     AOD    KA          ASSEMBLE DEVICE MASK
11831  M00S07986.set     +++|          RJM    AOD
11832  M00S07987.set     +++|          SHN    -10
11833  M00S07988.set     +++|          NJN    PFS6        IF OUT OF RANGE
11834  M00S07989.set     +++|          LDD    AB+4        SET IN DEVICE DESCRIPTION *TDDE*
11835  M00S07990.set     +++|          STD    T7
11836  M00S07991.set     +++|
11837  M00S07992.set     +++|*         PROCESS *SM*.
11838  M00S07993.set     +++|
11839  M00S07994.set     +++|          AOD    KA          ASSEMBLE *SM*
11840  M00S07995.set     +++|          RJM    AOD
11841  M00S07996.set     +++|          SHN    -10
11842  M00S07997.set     +++|          NJN    PFS6        IF OUT OF RANGE
11843  M00S07998.set     +++|          LDD    AB+4
11844  M00S07999.set     +++|          SHN    10
11845  M00S08000.set     +++|          ADD    T7
11846  M00S08001.set     +++| PFS5     STD    T7
11847  M00S08002.set     +++|          SHN    -14
11848  M00S08003.set     +++|          STD    T6
11849  M00S08004.set     +++|
11850  M00S08005.set     +++|*         PROCESS FAMILY OR PACKNAME.
11851  M00S08006.set     +++|
11852  M00S08007.set     +++|          LDN    10          ASSEMBLE NAME
11853  M00S08008.set     +++|          RJM    ASN
11854  M00S08009.set     +++|          NJN    PFS6        IF .GT. 7 CHARACTERS
11855  M00S08010.set     +++|          LDD    CM          CHECK NAME
11856  M00S08011.set     +++|          ZJN    PFS6        IF NO CHARACTERS ASSEMBLED
11857  M00S08012.set     +++|          LMC    1R0*100
11858  M00S08013.set     +++|          NJN    PFS7        IF NOT *0*
11859  M00S08014.set     +++| PFS6     JMP    ILL         PROCESS INCORRECT ENTRY
11860  M00S08015.set     +++|
11861  M00S08016.set     +++|*         PROCESS *DN*.
11862  M00S08017.set     +++|
11863  M00S08018.set     +++| PFS7     LDD    T4
11864  M00S08019.set     +++|          NJN    PFS8        IF AUXILIARY DEVICE
11865  M00S08020.set     +++|          AOD    KA          ASSEMBLE DEVICE NUMBER
11866  M00S08021.set     +++|          RJM    AOD
11867  M00S08022.set     +++|          LPN    77
11868  M00S08023.set     +++|          ZJN    PFS6        IF INCORRECT DEVICE NUMBER
11869  M00S08024.set     +++|          RAD    CM+3
11870  M00S08025.set     +++|
11871  M00S08026.set     +++|*         PROCESS *NC*.
11872  M00S08027.set     +++|
11873  M00S08028.set     +++| PFS8     LDI    KA
11874  M00S08029.set     +++|          LMN    1R.
11875  M00S08030.set     +++|          ZJN    PFS9        IF DEFAULT USED
11876  M00S08031.set     +++|          AOD    KA
11877  M00S08032.set     +++|          RJM    ASD
11878  M00S08033.set     +++|          SHN    4
11879  M00S08034.set     +++| PFS9     RAD    T6
11880  M00S08035.set     +++|          STM    TDDB+DVPF   SAVE PARAMETERS
11881  M00S08036.set     +++|          SHN    -14
11882  M00S08037.set     +++| PFS10    NJN    PFS6        IF *NC* .GT. 200B
11883  M00S08038.set     +++|          LDD    T7
11884  M00S08039.set     +++|          STM    TDDB+DVPF+1
11885  M00S08040.set     +++|          LDD    T6
11886  M00S08041.set     +++|          SHN    -4
11887  M00S08042.set     +++|          ZJN    PFS11       IF *NC* = ZERO
11888  M00S08043.set     +++|          LDD    AB+4
11889  M00S08044.set     +++|          SHN    21-10
11890  M00S08045.set     +++|          SHN    1
11891  M00S08046.set     +++|          PJN    *-1         IF BIT NOT DETECTED
11892  M00S08047.set     +++|          LPC    376000
11893  M00S08048.set     +++|          NJN    PFS10       IF *NC* NOT A POWER OF 2
11894  M00S08049.set     +++| PFS11    LDI    ES
11895  M00S08050.set     +++|          SCN    4
11896  M00S08051.set     +++|          LMD    T4          SET *X* STATUS
11897  M00S08052.set     +++|          STI    ES
11898  M00S08053.set     +++|          LDD    CM          MOVE NAME TO *TDDE*
11899  M00S08054.set     +++|          STM    TDDB+DVNM
11900  M00S08055.set     +++|          LDD    CM+1
11901  M00S08056.set     +++|          STM    TDDB+DVNM+1
11902  M00S08057.set     +++|          LDD    CM+2
11903  M00S08058.set     +++|          STM    TDDB+DVNM+2
11904  M00S08059.set     +++|          LDD    CM+3
11905  M00S08060.set     +++|          STM    TDDB+DVDN

Seq #  *Modification Id* Act 
----------------------------+
11906  M01S08061.284l847 ---|          RJM    EEB         UPDATE TABLE IN CM

Seq #  *Modification Id* Act 
----------------------------+
11907  M01S00509.284l847 +++|          RJM    SPE         UPDATE TABLE IN CM
11908  M00S08062.set     +++|          LJM    KBR         RETURN

Seq #  *Modification Id* Act 
----------------------------+
11909  M01S00081.283l840 +++| PRS      SPACE  4,10
11910  M01S00082.283l840 +++|***       PRESET.
11911  M01S00083.283l840 +++|*
11912  M01S00084.283l840 +++|*         PRESET LINK DEVICE FOR MULTI-MAINFRAME OPERATION.
11913  M01S00085.283l840 +++|*
11914  M01S00086.283l840 +++|*         PRESET=X,Y,...,Z.
11915  M01S00087.283l840 +++|*         PRESET=X-Z.
11916  M01S00088.283l840 +++|*
11917  M01S00089.283l840 +++|*         PRESET TABLES ON INDEPENDENT SHARED DEVICES X,Y,...,Z.
11918  M01S00090.283l840 +++|*
11919  M01S00091.283l840 +++|*         THIS ENTRY IS ALLOWED ONLY FROM THE KEYBOARD.
11920  M01S00092.283l840 +++|
11921  M01S00093.283l840 +++|
11922  M01S00094.283l840 +++| PRS      DATA   C*PRESET*
11923  M01S00095.283l840 +++|          LDD    RS
11924  M01S00096.283l840 +++|          NJN    PRS1        IF NOT LEVEL 0 DEADSTART
11925  M01S00097.283l840 +++|          LDI    KA
11926  M01S00098.283l840 +++|          LMN    1R=
11927  M01S00099.283l840 +++|          ZJN    PRS5        IF PRESETTING ISHARED DEVICES
11928  M01S00100.283l840 +++|          RJM    CLD         ASSURE LINK DEVICE DEFINED
11929  M01S00101.283l840 +++|          ZJN    PRS1        IF NO SHARED DEVICES
11930  M01S00102.283l840 +++|          LDI    KA
11931  M01S00103.283l840 +++|          LMN    1R.
11932  M01S00104.283l840 +++|          ZJN    PRS3        IF NO PARAMETER
11933  M01S00105.283l840 +++| PRS1     JMP    ILL         PROCESS INCORRECT ENTRY
11934  M01S00106.283l840 +++|
11935  M01S00107.283l840 +++| PRS3     LDN    1           SET *PRESET* FLAG
11936  M01S00108.283l840 +++|          STM    PRSF
11937  M01S00109.283l840 +++| PRS4     JMP    KBR         RETURN
11938  M01S00110.283l840 +++|
11939  M01S00111.283l840 +++| PRS5     LDD    LD
11940  M01S00112.283l840 +++|          SHN    0-13
11941  M01S00113.283l840 +++|          ZJN    PRS1        IF NOT ISHARED ENVIRONMENT
11942  M01S00114.283l840 +++| PRS6     RJM    GNE         GET NEXT EST ORDINAL
11943  M01S00115.283l840 +++|          ZJN    PRS4        IF END OF COMMAND
11944  M01S00116.283l840 +++|          PJN    PRS1        IF NOT MASS STORAGE
11945  M01S00117.283l840 +++|          SHN    13-4
11946  M01S00118.283l840 +++|          PJN    PRS1        IF NOT ISHARED DEVICES
11947  M01S00119.283l840 +++|          LDM    DVPR+TDDB
11948  M01S00120.283l840 +++|          SCN    1
11949  M01S00121.283l840 +++|          LMN    1           SET PRESET FLAG
11950  M01S00122.283l840 +++|          STM    DVPR+TDDB

Seq #  *Modification Id* Act 
----------------------------+
11951  M02S00123.284l847 ---|          RJM    EEB         RETURN EQUIPMENT ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
11952  M01S00510.284l847 +++|          RJM    SPE         RETURN EQUIPMENT ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
11953  M01S00124.283l840 +++|          UJN    PRS6        NEXT ORDINAL
11954  M00S08063.set     +++| REM      SPACE  4,10
11955  M00S08064.set     +++|***       REMOVE=X,Y,...,Z.
11956  M00S08065.set     +++|*
11957  M00S08066.set     +++|*         DEFINE EQUIPMENTS X,Y,...,Z AS REMOVABLE DEVICES.
11958  M00S08067.set     +++|*         THESE EQUIPMENTS WILL BE AVAILABLE TO REMOVE OR INTRODUCE
11959  M00S08068.set     +++|*         DEVICES DURING OPERATION OF SYSTEM.
11960  M00S08069.set     +++|*
11961  M00S08070.set     +++|*         NOTE   THIS DIRECTIVE MUST BE ENTERED BEFORE A MASS STORAGE
11962  M00S08071.set     +++|*                DEVICE CAN BE SPECIFIED AS *DOWN* SUCCESSFULLY.

Seq #  *Modification Id* Act 
----------------------------+
11963  M01S08072.274l797 ---|*                AN EXTENDED MEMORY DEVICE CANNOT BE REMOVEABLE.

Seq #  *Modification Id* Act 
----------------------------+
11964  M01S02169.274l797 +++|*                DEVICES *DE*, *DP*, *DV* AND *DW* CANNOT BE REMOVABLE.
11965  M00S08073.set     +++|*                THE FOLLOWING SPECIFICATIONS ARE NOT ALLOWED FOR
11966  M00S08074.set     +++|*                REMOVABLE DEVICES AND IF SPECIFIED PREVIOUSLY WILL
11967  M00S08075.set     +++|*                CAUSE *INCORRECT ENTRY* FOR THIS ENTRY.
11968  M00S08076.set     +++|*
11969  M00S08077.set     +++|*                            *ASR*
11970  M00S08078.set     +++|*                            *SYSTEM*
11971  M00S08079.set     +++|*                            *TEMP*
11972  M00S08080.set     +++|*                            *FAMILY*
11973  M00S08081.set     +++|*                            *DAYFILE*
11974  M00S08082.set     +++|*                            *ACCOUNT*
11975  M00S08083.set     +++|*                            *ERRLOG*
11976  M00S08084.set     +++|*                            *SCKP*
11977  M00S08085.set     +++|
11978  M00S08086.set     +++|
11979  M00S08087.set     +++| REM      DATA   C*REMOVE=*
11980  M00S08088.set     +++|          SOD    KA
11981  M00S08089.set     +++| REM1     RJM    GNE         GET NEXT EST ORDINAL
11982  M00S08090.set     +++|          NJN    REM2        IF MORE EQUIPMENT
11983  M00S08091.set     +++|          JMP    KBR         RETURN
11984  M00S08092.set     +++|
11985  M00S08093.set     +++| REM2     PJN    REM3        IF NOT MASS STORAGE
11986  M00S08094.set     +++|          LPC    2000S6
11987  M00S08095.set     +++|          ADM    TDDB+DVFA
11988  M00S08096.set     +++|          ZJN    REM4        IF NOT SYSTEM OR FILE ALLOCATION DEVICE
11989  M00S08097.set     +++| REM3     RJM    IRE         PROCESS INCORRECT RANGE
11990  M00S08098.set     +++|
11991  M00S08099.set     +++| REM4     LDM    TDDB+DVPR   CHECK CHECKPOINT DEVICE
11992  M00S08100.set     +++|          LPN    2
11993  M00S08101.set     +++|          NJN    REM3        IF SYSTEM CHECKPOINT DEVICE
11994  M00S08102.set     +++|          LDM    EBUT+4
11995  M00S08103.set     +++|          LPN    10
11996  M00S08104.set     +++|          NJN    REM3        IF ALTERNATE SYSTEM DEVICE

Seq #  *Modification Id* Act 
----------------------------+
11997  M01S08105.274l797 ---|          LDD    AB+4        CHECK FOR LINK DEVICE
11998  M01S08106.274l797 ---|          LMD    EN
11999  M01S08107.274l797 ---|          ZJN    REM3        IF EXTENDED MEMORY (OR MMF LINK DEVICE)
12000  M00S08108.set     ---|          LDD    AB+4
12001  M00S08109.set     ---|          LMM    .PFNL+3
12002  M00S08110.set     ---|          ZJN    REM3        IF DEFAULT FAMILY DEVICE
12003  M00S08111.set     ---|          LDN    DFBFL-1+MDLL
12004  M00S08112.set     ---|          STD    T1
12005  M00S08113.set     ---| REM5     LDM    DFBF,T1
12006  M00S08114.set     ---|          LPC    777
12007  M00S08115.set     ---|          LMD    AB+4
12008  M00S08116.set     ---|          ZJN    REM3        IF DAYFILE DEVICE
12009  M00S08117.set     ---|          SOD    T1
12010  M00S08118.set     ---|          PJN    REM5        IF NOT END OF DAYFILES

Seq #  *Modification Id* Act 
----------------------------+
12011  M01S02170.274l797 +++|          LDN    REML-1      CHECK TABLE OF NON-REMOVABLE DEVICES
12012  M01S02171.274l797 +++|          STD    T1
12013  M01S02172.274l797 +++| REM6     LDM    REMA,T1     CHECK NEXT TABLE ENTRY
12014  M01S02173.274l797 +++|          LMM    EBUT+3
12015  M01S02174.274l797 +++|          ZJN    REM3        IF DEVICE CANNOT BE REMOVABLE
12016  M01S02175.274l797 +++|          SOD    T1
12017  M01S02176.274l797 +++|          PJN    REM6        IF NOT END OF TABLE
12018  M00S08119.set     +++|          LDI    ES
12019  M00S08120.set     +++|          LPC    7377
12020  M00S08121.set     +++|          LMC    400
12021  M00S08122.set     +++|          STI    ES

Seq #  *Modification Id* Act 
----------------------------+
12022  M01S08123.284l847 ---|          RJM    EEB         RETURN EQUIPMENT ENTRY TO TABLES

Seq #  *Modification Id* Act 
----------------------------+
12023  M01S00511.284l847 +++|          RJM    SPE         RETURN EQUIPMENT ENTRY TO TABLES
12024  M00S08124.set     +++|          LJM    REM1        MORE EQUIPMENT TO PROCESS

Seq #  *Modification Id* Act 
----------------------------+
12025  M01S02177.274l797 +++|
12026  M01S02178.274l797 +++|
12027  M01S02179.274l797 +++| REMA     BSS    0           DEVICES THAT CANNOT BE REMOVABLE
12028  M01S02180.274l797 +++|          CON    2RDE
12029  M01S02181.274l797 +++|          CON    2RDP
12030  M01S02182.274l797 +++|          CON    2RDV
12031  M01S02183.274l797 +++|          CON    2RDW
12032  M01S02184.274l797 +++| REML     EQU    *-REMA      LENGTH OF TABLE
12033  M01S02185.274l797 +++|
12034  M00S08125.set     +++| CKP      SPACE  4,10
12035  M00S08126.set     +++|***       SCKP=X,Y,...,Z.
12036  M00S08127.set     +++|*
12037  M00S08128.set     +++|*         *CKP* ASSIGNS THE CHECKPOINT ATTRIBUTE TO DEVICES WITH EST
12038  M00S08129.set     +++|*         ORDINALS X, Y, ..., Z.  CHECKPOINT DEVICES MUST BE
12039  M00S08130.set     +++|*         NON-REMOVABLE AND CANNOT BE EXTENDED MEMORY DEVICES.
12040  M00S08131.set     +++|
12041  M00S08132.set     +++|
12042  M00S08133.set     +++| CKP      DATA   C*SCKP=*
12043  M00S08134.set     +++|          SOD    KA
12044  M00S08135.set     +++| CKP1     RJM    GNE         GET NEXT EST ORDINAL
12045  M00S08136.set     +++|          NJN    CKP2        IF MORE EQUIPMENT
12046  M00S08137.set     +++|          JMP    KBR         RETURN
12047  M00S08138.set     +++|
12048  M00S08139.set     +++| CKP2     PJN    CKP3        IF NOT MASS STORAGE DEVICE
12049  M00S08140.set     +++|          SHN    13-10
12050  M00S08141.set     +++|          MJN    CKP3        IF REMOVABLE DEVICE
12051  M00S08142.set     +++|          LDM    EBUT+3
12052  M00S08143.set     +++|          LMC    2RDE
12053  M00S08144.set     +++|          ZJN    CKP3        IF EM DEVICE
12054  M00S08145.set     +++|          LMK    2RDP&2RDE
12055  M00S08146.set     +++|          ZJN    CKP3        IF EM DEVICE
12056  M00S08147.set     +++|          LDM    TDDB+DVPR   SET CHECKPOINT DEVICE BIT IN SKELETAL MST
12057  M00S08148.set     +++|          SCN    2
12058  M00S08149.set     +++|          LMN    2
12059  M00S08150.set     +++|          STM    TDDB+DVPR   BACK INTO MST BUFFER

Seq #  *Modification Id* Act 
----------------------------+
12060  M01S08151.284l847 ---|          RJM    EEB         UPDATE EQUIPMENT DEFINITION

Seq #  *Modification Id* Act 
----------------------------+
12061  M01S00512.284l847 +++|          RJM    SPE         UPDATE EQUIPMENT DEFINITION
12062  M00S08152.set     +++|          UJN    CKP1        CHECK FOR MORE EQUIPMENT
12063  M00S08153.set     +++|
12064  M00S08154.set     +++| CKP3     RJM    IRE         PROCESS INCORRECT ENTRY
12065  M00S08155.set     +++| SHD      SPACE  4,10
12066  M00S08156.set     +++|***       SHARE=X1,X2,...,XN.
12067  M00S08157.set     +++|*
12068  M00S08158.set     +++|*         DEFINE X1,X2,...,XN AS SHARED DEVICES.
12069  M00S08159.set     +++|*         XN MUST BE MASS STORAGE AND OF TYPE FLAGGED IN *TMSD*.
12070  M00S08160.set     +++|*
12071  M00S08161.set     +++|*         NOTE   THIS ENTRY IS NOT ALLOWED FOLLOWING *PRESET*.
12072  M00S08162.set     +++|
12073  M00S08163.set     +++|
12074  M00S08164.set     +++| SHD      DATA   C*SHARE=*
12075  M00S08165.set     +++|          LDD    LD
12076  M00S08166.set     +++|          SHN    0-13
12077  M00S08167.set     +++|          NJN    SHD2        IF ISD PRESENT

Seq #  *Modification Id* Act 
----------------------------+
12078  M01S08168.283l840 ---|          LDM    SETD

Seq #  *Modification Id* Act 
----------------------------+
12079  M01S00125.283l840 +++|          LDM    PRSF
12080  M00S08169.set     +++|          NJN    SHD2        IF LINK DEVICE PRESET
12081  M00S08170.set     +++|          SOD    KA
12082  M00S08171.set     +++|          LDD    TH
12083  M00S08172.set     +++|          RJM    DSC         DEVICE STATUS CHECK
12084  M00S08173.set     +++|          LDN    LDEQ        SET LINK DEVICE NUMBER
12085  M00S08174.set     +++|          STD    LD
12086  M00S08175.set     +++|          JMP    KBR         RETURN
12087  M00S08176.set     +++|
12088  M00S08177.set     +++| SHD2     JMP    ILL         PROCESS INCORRECT ENTRY
12089  M00S08178.set     +++| SYSTEM   SPACE  4,10
12090  M00S08179.set     +++|***       SYSTEM=X,Y,...,Z.
12091  M00S08180.set     +++|*         SET SYSTEM DEVICES TO X, Y, ..., Z.

Proceed to Part 7