Deck SET Part 005

79 Modifications

Listing Sections

Deck SET Start
Deck SET Part 1 (Line 1518)
Deck SET Part 2 (Line 3032)
Deck SET Part 3 (Line 4559)
Deck SET Part 4 (Line 5878)
Deck SET Part 5 (Line 6749)
Deck SET Part 6 (Line 8236)
Deck SET Part 7 (Line 9477)
Deck SET Part 8 (Line 10145)
Deck SET Part 9 (Line 10838)
Deck SET Part 10 (Line 12224)
Deck SET Part 11 (Line 13475)
Deck SET Part 12 (Line 14758)
Deck SET Part 13 (Line 15810)
Deck SET Part 14 (Line 16712)
Deck SET Part 15 (Line 17699)
Deck SET Part 16 (Line 19434)
Deck SET Part 17 (Line 21075)
Deck SET Part 18 (Line 22652)
Deck SET Part 19 (Line 24252)
Deck SET Part 20 (Line 25027)
Deck SET Part 21 (Line 25625)

Source

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

Line S05383 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06749  M02S05383.274l797 ---| CMD1     JMP    ILL         PROCESS INCORRECT ENTRY

Line S05384 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06750  M02S05384.274l797 ---|

Line S05385 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06751  M02S05385.274l797 ---| CMD2     LDM    TRQP

Line S05386 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06752  M02S05386.274l797 ---|          ZJN    CMD3        IF NOT INITIAL ENTRY

Line S05387 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06753  M02S05387.274l797 ---|          LDN    CMCW        SET DEFAULT CONTROLWARE

Line S05388 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06754  M02S05388.274l797 ---|          STD    AB+4

Line S05389 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06755  M02S05389.274l797 ---|          LDC    PLCW        SET KEYWORD PARAMETER ADDRESS

Line S05390 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06756  M02S05390.274l797 ---|          STD    T3

Line S05391 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06757  M02S05391.274l797 ---|          RJM    STV         STORE KEYWORD VALUE

Line S05392 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06758  M02S05392.274l797 ---| CMD3     RJM    KWP         PROCESS KEYWORDS

Line S05393 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06759  M02S05393.274l797 ---|          LDD    CN+4        GET EQUIPMENT NUMBER

Line S05394 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06760  M02S05394.274l797 ---|          SHN    -11

Line S05395 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06761  M02S05395.274l797 ---|          STD    T6

Line S05396 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06762  M02S05396.274l797 ---|          LDM    TENB,T6

Line S05397 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06763  M02S05397.274l797 ---|          ZJN    CMD4        IF UNIQUE EQUIPMENT NUMBER

Line S05398 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06764  M02S05398.274l797 ---|          LMD    EQ

Line S05399 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06765  M02S05399.274l797 ---|          NJN    CMD1        IF NOT CURRENT EST ORDINAL

Line S05400 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06766  M02S05400.274l797 ---| CMD4     RJM    CDC         CLEAR ISMD CHANNELS

Line S05401 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06767  M02S05401.274l797 ---|          LDD    EQ          SET EST ORDINAL

Line S05402 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06768  M02S05402.274l797 ---|          STM    TENB,T6

Line S05403 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
06769  M02S05403.274l797 ---|          LJM    CMDX        RETURN
06770  M01S05404.set     +++| ECS      SPACE  4,10
06771  M01S05405.set     +++|***       EQXXX=DE.
06772  M01S05406.set     +++|*         EQXXX=DP.
06773  M01S05407.set     +++|
06774  M01S05408.set     +++|
06775  M01S05409.set     +++| ECS      SUBR               ENTRY/EXIT
06776  M01S05410.set     +++|          ZJN    ECS1        IF NOT INITIAL ENTRY
06777  M01S05411.set     +++|          LDC    4112
06778  M01S05412.set     +++|          STM    TDDB+DVED

Line S05413 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2644`

Seq #  *Modification Id* Act 
----------------------------+
06779  M02S05413.ns2644  ---| ECS1     LDN    SYTL        SAVE CURRENT PARAMETERS
06780  M01S00057.ns2644  +++| ECS1     LDN    BMLL        SAVE CURRENT PARAMETERS
06781  M01S05414.set     +++|          CWM    EMTY,ON
06782  M01S05415.set     +++|          RJM    KWP         PROCESS KEYWORDS
06783  M01S05416.set     +++|          LDD    CN+3
06784  M01S05417.set     +++|          LMC    2RDP
06785  M01S05418.set     +++|          ZJN    ECS2        IF TYPE *DP*
06786  M01S05419.set     +++|          LDM    TDDB+DVED
06787  M01S05420.set     +++|          SCN    7           SET NO DDP PATH FOR *DE*
06788  M01S05421.set     +++|          STM    TDDB+DVED
06789  M01S05422.set     +++|
06790  M01S05423.set     +++|*         PROCESS EXTENDED MEMORY SIZE.
06791  M01S05424.set     +++|
06792  M01S05425.set     +++| ECS2     LDM    EBUT+7      PRESET SHIFT TO *EMBS* BLOCKS
06793  M01S05426.set     +++|          SHN    -6
06794  M01S05427.set     +++|          LPN    3
06795  M01S05428.set     +++|          STD    T5
06796  M01S05429.set     +++|          LMC    SHNI+77
06797  M01S05430.set     +++|          STM    ECSA
06798  M01S05431.set     +++|          LDN    0
06799  M01S05432.set     +++|          STD    T1
06800  M01S05433.set     +++|          LDM    TDDB+DVED   CHECK DEVICE TYPE
06801  M01S05434.set     +++|          SHN    -6
06802  M01S05435.set     +++|          LPN    7
06803  M01S05436.set     +++|          LMN    1
06804  M01S05437.set     +++|          NJN    ECS4        IF NOT ECS 1
06805  M01S05438.set     +++|          LDM    TDDB+DVES
06806  M01S05439.set     +++|          ZJN    ECS3        IF NOT 2 MILLION WORDS
06807  M01S05440.set     +++|          LMN    1
06808  M01S05441.set     +++|          ADM    TDDB+DVES+1
06809  M01S05442.set     +++|          NJP    ILL         IF .GT. 2M WORDS
06810  M01S05443.set     +++|          LDC    2015232D/1000
06811  M01S05444.set     +++|          UJN    ECS5        SET DEVICE SIZE
06812  M01S05445.set     +++|
06813  M01S05446.set     +++| ECS3     LDM    TDDB+DVES+1 ADJUST ECS 1 SIZE FOR FLAWED AREA
06814  M01S05447.set     +++|          SHN    2
06815  M01S05448.set     +++|          ADM    TDDB+DVES+1
06816  M01S05449.set     +++|          SHN    -7
06817  M01S05450.set     +++|          STD    T1          SIZE*5/200B
06818  M01S05451.set     +++| ECS4     LDM    TDDB+DVES
06819  M01S05452.set     +++|          SHN    14
06820  M01S05453.set     +++|          LMM    TDDB+DVES+1
06821  M01S05454.set     +++| ECS5     SBD    T1
06822  M01S05455.set     +++| ECSA     SHN    0
06823  M01S05456.set     +++|*         SHN    -EMSC       (CONVERT TO *EMBS*-WORD BLOCKS)
06824  M01S05457.set     +++|          RJM    CFT
06825  M01S05458.set     +++|          STM    TDDB+DVNT
06826  M01S05459.set     +++|          LDM    TDDB+DVED
06827  M01S05460.set     +++|          SHN    21-11
06828  M01S05461.set     +++|          PJN    ECS6        IF NOT IN MAINTENANCE MODE
06829  M01S05462.set     +++|          SHN    12-6
06830  M01S05463.set     +++|          LPN    7

Line S05464 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`261l700`

Seq #  *Modification Id* Act 
----------------------------+
06831  M02S05464.261l700 ---|          LMN    5

Line S05465 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`261l700`

Seq #  *Modification Id* Act 
----------------------------+
06832  M02S05465.261l700 ---|          NJP    ILL         IF NOT ESM EQUIPMENT TYPE
06833  M01S00082.261l700 +++|          SBN    5
06834  M01S00083.261l700 +++|          MJP    ILL         IF NOT ESM/STORNET EQUIPMENT TYPE
06835  M01S05466.set     +++|          LDM    TDDB+DVNT
06836  M01S05467.set     +++|          SHN    -1          REDUCE PHYSICAL EM SIZE BY ONE HALF
06837  M01S05468.set     +++|          STM    TDDB+DVNT
06838  M01S05469.set     +++| ECS6     LDD    EQ          RESET EXTENDED MEMORY PARAMETERS
06839  M01S05470.set     +++|          LMD    EN
06840  M01S05471.set     +++|          NJN    ECS7        IF REDEFINING EXTENDED MEMORY
06841  M01S05472.set     +++|          STD    EN
06842  M01S05473.set     +++|          CRM    EMTY,ON
06843  M01S05474.set     +++|
06844  M01S05475.set     +++|*         MEMORY TYPE DEPENDENT PROCESSING.
06845  M01S05476.set     +++|
06846  M01S05477.set     +++| ECS7     LDM    TDDB+DVED
06847  M01S05478.set     +++|          LPN    70
06848  M01S05479.set     +++|          ZJP    ECS10       IF NO CPU PATH
06849  M01S05480.set     +++|          LMN    40
06850  M01S05481.set     +++|          NJN    ECS8        IF NOT UEM
06851  M01S05482.set     +++|          LDM    TDDB+DVES   SET UEM SIZE/100B
06852  M01S05483.set     +++|          SHN    14
06853  M01S05484.set     +++|          LMM    TDDB+DVES+1
06854  M01S05485.set     +++|          SHN    3
06855  M01S05486.set     +++|          STM    UEMZ+1
06856  M01S05487.set     +++|          SHN    -14
06857  M01S05488.set     +++|          STM    UEMZ
06858  M01S05489.set     +++|          LDN    1
06859  M01S05490.set     +++|          RJM    CMS         CHECK MEMORY SIZE
06860  M01S05491.set     +++|          ZJN    ECS8        IF NO MEMORY SIZE CONFLICTS

Line S05492 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2644`

Seq #  *Modification Id* Act 
----------------------------+
06861  M02S05492.ns2644  ---|          LDN    SYTL        RESTORE PREVIOUS PARAMETERS
06862  M01S00058.ns2644  +++|          LDN    BMLL        RESTORE PREVIOUS PARAMETERS
06863  M01S05493.set     +++|          CRM    EMTY,ON
06864  M01S05494.set     +++|          JMP    ERR         DISPLAY ERROR
06865  M01S05495.set     +++|
06866  M01S05496.set     +++| ECS8     LDD    EN
06867  M01S05497.set     +++|          NJN    ECS9        IF CPU PATH EQUIPMENT PREVIOUSLY SET
06868  M01S05498.set     +++|          LDD    EQ
06869  M01S05499.set     +++|          STD    EN
06870  M01S05500.set     +++| ECS9     LDM    TDDB+DVED
06871  M01S05501.set     +++|          SHN    -6
06872  M01S05502.set     +++|          LPN    7
06873  M01S05503.set     +++|          STM    EMTY
06874  M01S05504.set     +++|          LDD    T5          SET XM SHIFT COUNT
06875  M01S05505.set     +++|          STM    EMSC
06876  M01S05506.set     +++|          LDM    TDDB+DVNT   COMPUTE FIELD LENGTH
06877  M01S05507.set     +++|          SHN    6
06878  M01S05508.set     +++|          ADM    TDDB+DVNT
06879  M01S05509.set     +++|          ADN    37          ROUND UP
06880  M01S05510.set     +++|          SHN    -5
06881  M01S05511.set     +++|          STM    EMFL        XM FL / *EMBS*
06882  M01S05512.set     +++| ECS10    LDD    EQ
06883  M01S05513.set     +++|          LMN    LDEQ
06884  M01S05514.set     +++|          NJN    ECS11       IF NOT POSSIBLE LINK DEVICE
06885  M01S05515.set     +++|          LDD    T5
06886  M01S05516.set     +++|          STM    LDSH
06887  M01S05517.set     +++|          LDM    TDDB+DVED
06888  M01S05518.set     +++|          LPN    70
06889  M01S05519.set     +++|          LMN    40
06890  M01S05520.set     +++|          ZJN    ECS11       IF UEM
06891  M01S05521.set     +++|          LDN    LDEQ        SET POSSIBLE LINK DEVICE
06892  M01S05522.set     +++|          STD    PD
06893  M01S05523.set     +++| ECS11    LJM    ECSX        RETURN
06894  M01S05524.set     +++|
06895  M01S05525.set     +++| PDE      EQU    ECS         *DE* PROCESSOR
06896  M01S05526.set     +++| PDP      EQU    ECS         *DP* PROCESSOR
06897  M01S00376.274l797 +++| PDC      SPACE  4,10
06898  M01S00377.274l797 +++|***       EQXXX=DC.
06899  M01S00378.274l797 +++|
06900  M01S00379.274l797 +++|
06901  M01S00380.274l797 +++| PDC1     RJM    KWP         PROCESS KEYWORDS
06902  M01S00381.274l797 +++|
06903  M01S00382.274l797 +++| PDC      SUBR               ENTRY/EXIT
06904  M01S00383.274l797 +++|          LDC    MABL        CHECK PP SPEED
06905  M01S00384.274l797 +++|          CRD    CM
06906  M01S00385.274l797 +++|          LDD    CM+4
06907  M01S00386.274l797 +++|          SBN    2
06908  M01S00387.274l797 +++|          PJN    PDC1        IF 4X PP SPEED
06909  M01S00388.274l797 +++|          JMP    ILL         PROCESS KEYWORDS
06910  M01S00389.274l797 +++| PDD      SPACE  4,10
06911  M01S00390.274l797 +++|***       EQXXX=DD.
06912  M01S00391.274l797 +++|*         EQXXX=DG.
06913  M01S00392.274l797 +++|
06914  M01S00393.274l797 +++| PDD1     LDN    37          PRESET NO CHANNELS SPECIFIED
06915  M01S00394.274l797 +++|          STD    CN+1
06916  M01S00395.274l797 +++|          LDN    4           SET LIMIT TEST FOR DRIVE NUMBER
06917  M01S00396.274l797 +++|          RAM    SUNB
06918  M01S00397.274l797 +++|          RJM    KWP         PROCESS KEYWORDS
06919  M01S00398.274l797 +++|
06920  M01S00399.274l797 +++| PDD      SUBR               ENTRY/EXIT
06921  M01S00400.274l797 +++|          LDM    ISPF
06922  M01S00401.274l797 +++|          SHN    21-13
06923  M01S00402.274l797 +++|          PJN    PDD1        IF CYBER 810/815/825/830
06924  M01S00403.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
06925  M01S00404.274l797 +++|
06926  M01S00405.274l797 +++|
06927  M01S00406.274l797 +++| PDG      EQU    PDD         *DG* PROCESSOR
06928  M01S00407.274l797 +++| PDF      SPACE  4,10
06929  M01S00408.274l797 +++|***       EQXXX=DF.
06930  M01S00409.274l797 +++|*         EQXXX=DH.
06931  M01S00410.274l797 +++|*         EQXXX=DN.
06932  M01S00411.274l797 +++|*         EQXXX=EA.
06933  M01S00412.274l797 +++|*         EQXXX=EB.
06934  M01S00413.274l797 +++|*         EQXXX=EC.
06935  M01S00414.274l797 +++|*         EQXXX=ED.
06936  M01S00415.274l797 +++|*         EQXXX=EE.
06937  M01S00416.274l797 +++|*         EQXXX=EF.
06938  M01S00003.ns2768  +++|*         EQXXX=EG.
06939  M01S00004.ns2768  +++|*         EQXXX=EH.
06940  M01S00122.284l847 +++|*         EQXXX=EO.
06941  M01S00123.284l847 +++|*         EQXXX=EP.
06942  M01S00417.274l797 +++|
06943  M01S00418.274l797 +++|
06944  M01S00419.274l797 +++| PDF1     LDC    PCC         SET CHANNEL PROCESSOR
06945  M01S00420.274l797 +++|          STM    TKWPA
06946  M01S00421.274l797 +++|          LDM    TKWPB+2     *EQ* DEFINITION PARAMETERS
06947  M01S00422.274l797 +++|          SCN    37
06948  M01S00423.274l797 +++|          LMN    TDDB-EBUT+DVPR  SET LOCATION FOR CONTROLLER NUMBER
06949  M01S00424.274l797 +++|          STM    TKWPB+2
06950  M01S00425.274l797 +++|          RJM    KWP         PROCESS KEYWORDS
06951  M01S00426.274l797 +++|
06952  M01S00427.274l797 +++| PDF      SUBR               ENTRY/EXIT
06953  M01S00428.274l797 +++|          LDM    .CCHN
06954  M01S00429.274l797 +++|          NJN    PDF1        IF *I4* IOU
06955  M01S00430.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
06956  M01S00431.274l797 +++|
06957  M01S00432.274l797 +++|
06958  M01S00433.274l797 +++| PDH      EQU    PDF         *DH* PROCESSOR
06959  M01S00434.274l797 +++| PDN      EQU    PDF         *DN* PROCESSOR
06960  M01S00435.274l797 +++| PEA      EQU    PDF         *EA* PROCESSOR
06961  M01S00436.274l797 +++| PEB      EQU    PDF         *EB* PROCESSOR
06962  M01S00437.274l797 +++| PEC      EQU    PDF         *EC* PROCESSOR
06963  M01S00438.274l797 +++| PED      EQU    PDF         *ED* PROCESSOR
06964  M01S00439.274l797 +++| PEE      EQU    PDF         *EE* PROCESSOR
06965  M01S00440.274l797 +++| PEF      EQU    PDF         *EF* PROCESSOR
06966  M01S00005.ns2768  +++| PEG      EQU    PDF         *EG* PROCESSOR
06967  M01S00006.ns2768  +++| PEH      EQU    PDF         *EH* PROCESSOR
06968  M01S00124.284l847 +++| PEO      EQU    PDF         *EO* PROCESSOR
06969  M01S00125.284l847 +++| PEP      EQU    PDF         *EP* PROCESSOR
06970  M01S00126.284l847 +++| PEI      SPACE  4,10
06971  M01S00127.284l847 +++|***       EQXXX=EI-2.        (MULTIPLE PARTITION DEVICES)
06972  M01S00128.284l847 +++|*         EQXXX=EJ-2.
06973  M01S00129.284l847 +++|*         EQXXX=EK-3.
06974  M01S00130.284l847 +++|*         EQXXX=EL-4.
06975  M01S00131.284l847 +++|*         EQXXX=EM-2.
06976  M01S00132.284l847 +++|*         EQXXX=EN-2.
06977  M01S00133.284l847 +++|*         EQXXX=ES-2.
06978  M01S00134.284l847 +++|*         EQXXX=EU-2.
06979  M01S00135.284l847 +++|*         EQXXX=EV-3.
06980  M01S00136.284l847 +++|*         EQXXX=EW-4.
06981  M01S00137.284l847 +++|
06982  M01S00138.284l847 +++|
06983  M01S00139.284l847 +++| PEI      SUBR               ENTRY/EXIT
06984  M01S00140.284l847 +++|          LDI    KA          CHECK SEPARATOR
06985  M01S00141.284l847 +++|          LMN    1R,
06986  M01S00142.284l847 +++|          ZJN    PEI2        IF *,*
06987  M01S00143.284l847 +++|          LMN    1R-&1R,
06988  M01S00144.284l847 +++|          NJN    PEI1        IF NOT *-*
06989  M01S00145.284l847 +++|          AOD    KA
06990  M01S00146.284l847 +++|          RJM    CDR         ASSEMBLE NUMBER OF PARTITIONS
06991  M01S00147.284l847 +++|          LMN    1R,
06992  M01S00148.284l847 +++|          NJN    PEI1        IF INCORRECT SEPARATOR
06993  M01S00149.284l847 +++|          LDD    AB+4
06994  M01S00150.284l847 +++|          ZJN    PEI1        IF NULL PARTITION COUNT
06995  M01S00151.284l847 +++|          STM    PEIB
06996  M01S00152.284l847 +++|          LDM    MSSL,MS
06997  M01S00153.284l847 +++|          LPN    17
06998  M01S00154.284l847 +++|          ADN    1
06999  M01S00155.284l847 +++|          SBD    AB+4
07000  M01S00156.284l847 +++|          PJN    PEI3        IF PARTITION COUNT OK
07001  M01S00157.284l847 +++| PEI1     JMP    ILL         PROCESS INCORRECT ENTRY
07002  M01S00158.284l847 +++|
07003  M01S00159.284l847 +++| PEI2     AOM    PEIB        INDICATE ONLY ONE PARTITION
07004  M01S00160.284l847 +++| PEI3     NJN    PEI4        IF NOT MAXIMUM PARTITONS
07005  M01S00161.284l847 +++|          AOM    PEIA        MAKE *PN=* NOT REQUIRED
07006  M01S00162.284l847 +++| PEI4     RJM    PDF         PROCESS BASIC DAS SETUP
07007  M01S00163.284l847 +++| PEIA     LDN    **          *PN=* PROCESSED INDICATOR
07008  M01S00164.284l847 +++|          ZJN    PEI1        IF REQUIRED *PN=* NOT PROCESSED
07009  M01S00165.284l847 +++|          LDC    0           NUMBER OF PARTITIONS
07010  M01S00166.284l847 +++| PEIB     EQU    *-1
07011  M01S00167.284l847 +++|          ADD    EQ
07012  M01S00168.284l847 +++|          SBN    1
07013  M01S00169.284l847 +++|          STD    T7
07014  M01S00170.284l847 +++|          LDC    0           FIRST PARTITION NUMBER
07015  M01S00171.284l847 +++| PEIC     EQU    *-1
07016  M01S00172.284l847 +++|          STD    T6
07017  M01S00173.284l847 +++| PEI5     STD    T0          PRESET CYLINDER CALCULATION
07018  M01S00174.284l847 +++|          LDM    EBUT+10     SET EST PARTITION NUMBER
07019  M01S00175.284l847 +++|          SHN    14
07020  M01S00176.284l847 +++|          SCN    57
07021  M01S00177.284l847 +++|          LMD    T6
07022  M01S00178.284l847 +++|          LMN    40          MARK AS A PARTITIONED DEVICE
07023  M01S00179.284l847 +++|          SHN    6
07024  M01S00180.284l847 +++|          STM    EBUT+10
07025  M01S00181.284l847 +++|          LDN    0           CLEAR MST CYLINDER OFFSET
07026  M01S00182.284l847 +++|          STM    TDDB+DVCO
07027  M01S00183.284l847 +++| PEI6     SOD    T0          CALCULATE CYLINDER OFFSET
07028  M01S00184.284l847 +++|          MJN    PEI7        IF CALCULATION IS COMPLETE
07029  M01S00185.284l847 +++|          LDM    MSCP,MS
07030  M01S00186.284l847 +++|          RAM    TDDB+DVCO
07031  M01S00187.284l847 +++|          UJN    PEI6        CHECK FOR COMPLETION
07032  M01S00188.284l847 +++|
07033  M01S00189.284l847 +++| PEI7     LDD    EB          READ ORIGINAL EQUIPMENT ENTRY
07034  M01S00190.284l847 +++|          SHN    5
07035  M01S00191.284l847 +++|          ADD    EQ
07036  M01S00192.284l847 +++|          SHN    1
07037  M01S00193.284l847 +++|          CRM    EBUT,ON
07038  M01S00194.284l847 +++|          LDD    EQ
07039  M01S00195.284l847 +++|          LMD    T7
07040  M01S00196.284l847 +++|          ZJP    PEIX        IF THIS IS THE LAST PARTITION
07041  M01S00197.284l847 +++|          LDM    EBUT+3
07042  M01S00198.284l847 +++|          LMD    CN+3
07043  M01S00199.284l847 +++|          ZJN    PEI8        IF NOT INITIAL ENTRY
07044  M01S00200.284l847 +++|          RJM    CML         CHECK MASS STORAGE LIMIT
07045  M01S00201.284l847 +++|          RJM    RMD         RESET MASS STORAGE DEVICE
07046  M01S00202.284l847 +++| PEI8     LDN    JSNL
07047  M01S00203.284l847 +++|          CWD    CN          MOVE EST ENTRY TO BUFFER
07048  M01S00204.284l847 +++|          CRM    EBUT,ON
07049  M01S00205.284l847 +++|          RJM    SPE         ENTER EQUIPMENT DEFINITION
07050  M01S00206.284l847 +++|          LDM    EBUT+4      UPDATE INITIALIZATION FLAGS
07051  M01S00207.284l847 +++|          STM    CN+4
07052  M01S00208.284l847 +++|          RJM    CLE         CHECK LAST EQUIPMENT
07053  M01S00209.284l847 +++|          AOD    T6          INCREMENT PARTITION NUMBER
07054  M01S00210.284l847 +++|          UJP    PEI5        PROCESS NEXT PARTITION
07055  M01S00211.284l847 +++|
07056  M01S00212.284l847 +++|
07057  M01S00213.284l847 +++| PEJ      EQU    PEI         *EJ* PROCESSOR
07058  M01S00214.284l847 +++| PEK      EQU    PEI         *EK* PROCESSOR
07059  M01S00215.284l847 +++| PEL      EQU    PEI         *EL* PROCESSOR
07060  M01S00216.284l847 +++| PEM      EQU    PEI         *EM* PROCESSOR
07061  M01S00217.284l847 +++| PEN      EQU    PEI         *EN* PROCESSOR
07062  M01S00218.284l847 +++| PES      EQU    PEI         *ES* PROCESSOR
07063  M01S00219.284l847 +++| PEU      EQU    PEI         *EU* PROCESSOR
07064  M01S00220.284l847 +++| PEV      EQU    PEI         *EV* PROCESSOR
07065  M01S00221.284l847 +++| PEW      EQU    PEI         *EW* PROCESSOR
07066  M01S00441.274l797 +++| KWP      SPACE  4,10
07067  M01S00442.274l797 +++|**        KWP - KEYWORD MAIN PROCESSOR.
07068  M01S00443.274l797 +++|*
07069  M01S00444.274l797 +++|*         ENTRY  (KA) = ADDRESS OF SEPARATOR CHARACTER.
07070  M01S00445.274l797 +++|*                (TA) = *TVRK* ENTRY ADDRESS.
07071  M01S00446.274l797 +++|
07072  M01S00447.274l797 +++|
07073  M01S00448.274l797 +++| KWP      SUBR               ENTRY/EXIT
07074  M01S00449.274l797 +++| KWP1     AOD    KA
07075  M01S00450.274l797 +++|          LDI    KA          ASSEMBLE KEYWORD
07076  M01S00451.274l797 +++|          SHN    6
07077  M01S00452.274l797 +++|          LMM    1,KA
07078  M01S00453.274l797 +++|          STD    AB
07079  M01S00454.274l797 +++|          LDN    2           ADVANCE KEYBOARD BUFFER ADDRESS
07080  M01S00455.274l797 +++|          RAD    KA
07081  M01S00456.274l797 +++|          LDI    KA
07082  M01S00457.274l797 +++|          LMN    1R=
07083  M01S00458.274l797 +++|          NJN    KWP3        IF INCORRECT SEPARATOR
07084  M01S00459.274l797 +++|          AOD    KA
07085  M01S00460.274l797 +++|          LDC    TKWP-TKWPL
07086  M01S00461.274l797 +++|          STD    T3
07087  M01S00462.274l797 +++| KWP2     LDN    TKWPL
07088  M01S00463.274l797 +++|          RAD    T3
07089  M01S00464.274l797 +++|          LDI    T3
07090  M01S00465.274l797 +++|          NJN    KWP4        IF NOT END OF TABLE
07091  M01S00466.274l797 +++| KWP3     JMP    ILL         PROCESS INCORRECT ENTRY
07092  M01S00467.274l797 +++|
07093  M01S00468.274l797 +++| KWP4     STD    T2
07094  M01S00469.274l797 +++|          LDD    AB
07095  M01S00470.274l797 +++|          LMI    T2
07096  M01S00471.274l797 +++|          NJN    KWP2        IF NOT MATCH
07097  M01S00472.274l797 +++|          RJM    VKW         VALIDATE KEYWORD
07098  M01S00473.274l797 +++|
07099  M01S00474.274l797 +++|*         EXIT TO KEYWORD PROCESSOR.
07100  M01S00475.274l797 +++|*         (T3) = ADDRESS OF *TKWP* ENTRY.
07101  M01S00476.274l797 +++|*         (KA) = ADDRESS OF KEYWORD VALUE FIRST CHARACTER.
07102  M01S00477.274l797 +++|
07103  M01S00478.274l797 +++|          LJM    1,T2        EXIT TO PROCESSOR
07104  M01S00479.274l797 +++|
07105  M01S00480.274l797 +++|*         RETURN FROM KEYWORD PROCESSOR.
07106  M01S00481.274l797 +++|*         (KA) = ADDRESS OF SEPARATOR CHARACTER.
07107  M01S00482.274l797 +++|
07108  M01S00483.274l797 +++| KWP5     LDI    KA          CHECK SEPARATOR
07109  M01S00484.274l797 +++|          LMN    1R,
07110  M01S00485.274l797 +++|          ZJN    KWP1        IF NOT END OF ENTRY
07111  M01S00486.274l797 +++|          LMN    1R.&1R,
07112  M01S00487.274l797 +++|          NJN    KWP3        IF INCORRECT SEPARATOR
07113  M01S00488.274l797 +++|          LDM    TRQP
07114  M01S00489.274l797 +++|          ZJN    KWP7        IF NOT INITIAL ENTRY
07115  M01S00490.274l797 +++|          LDN    KTWC
07116  M01S00491.274l797 +++|          STD    T2
07117  M01S00492.274l797 +++|          LDN    TVRKL
07118  M01S00493.274l797 +++|          RAD    TA
07119  M01S00494.274l797 +++| KWP6     SOD    TA
07120  M01S00495.274l797 +++|          LDI    TA
07121  M01S00496.274l797 +++|          STM    KWPA
07122  M01S00497.274l797 +++|          LDM    TRQP,T2
07123  M01S00498.274l797 +++|          LPC    **
07124  M01S00499.274l797 +++| KWPA     EQU    *-1
07125  M01S00500.274l797 +++|          LMI    TA
07126  M01S00501.274l797 +++|          NJN    KWP3        IF REQUIRED KEYWORD NOT SPECIFIED
07127  M01S00502.274l797 +++|          SOD    T2
07128  M01S00503.274l797 +++|          NJN    KWP6        IF MORE KEYWORDS TO CHECK
07129  M01S00504.274l797 +++| KWP7     LDD    CN
07130  M01S00505.274l797 +++|          LPN    3
07131  M01S00506.274l797 +++|          LMN    3
07132  M01S00507.274l797 +++|          ZJN    KWP9        IF DEVICE IS DOWN
07133  M01S00508.274l797 +++|          LDD    CN+1        CHECK PRIMARY CHANNEL
07134  M01S00509.274l797 +++|          SHN    21-13
07135  M01S00510.274l797 +++|          PJN    KWP9        IF NO PRIMARY CHANNEL
07136  M01S00511.274l797 +++|          SHN    21-12-21+13
07137  M01S00512.274l797 +++|          PJN    KWP9        IF CHANNEL IS UP
07138  M01S00513.274l797 +++|          LDD    CN+2        CHECK SECONDARY CHANNEL
07139  M01S00514.274l797 +++|          SHN    21-13
07140  M01S00515.274l797 +++|          PJN    KWP8        IF NO SECONDARY CHANNEL
07141  M01S00516.274l797 +++|          SHN    21-12-21+13
07142  M01S00517.274l797 +++|          PJN    KWP9        IF CHANNEL IS UP
07143  M01S00518.274l797 +++| KWP8     JMP    ILL         PROCESS INCORRECT ENTRY
07144  M01S00519.274l797 +++|
07145  M01S00520.274l797 +++| KWP9     LJM    KWPX        RETURN
07146  M01S00521.274l797 +++|
07147  M01S00522.274l797 +++|
07148  M01S00523.274l797 +++| PDI      EQU    KWP         *DI* PROCESSOR
07149  M01S00524.274l797 +++| PDJ      EQU    KWP         *DJ* PROCESSOR
07150  M01S00525.274l797 +++| PDM      EQU    KWP         *DM* PROCESSOR
07151  M01S00526.274l797 +++| PDK      EQU    KWP         *DK* PROCESSOR
07152  M01S00527.274l797 +++| PDL      EQU    KWP         *DL* PROCESSOR
07153  M01S00528.274l797 +++| PDQ      EQU    KWP         *DQ* PROCESSOR
07154  M01S00002.ns2776  +++| PDR      EQU    KWP         *DR* PROCESSOR
07155  M01S00529.274l797 +++| PDB      EQU    KWP         *DB* PROCESSOR
07156  M01S00530.274l797 +++| PDX      EQU    KWP         *DX* PROCESSOR
07157  M01S00531.274l797 +++| PDY      EQU    KWP         *DY* PROCESSOR
07158  M01S00532.274l797 +++| PDZ      EQU    KWP         *DZ* PROCESSOR
07159  M01S00533.274l797 +++| PDA      EQU    KWP         *DA* PROCESSOR
07160  M01S00534.274l797 +++| PDV      EQU    KWP         *DV* PROCESSOR
07161  M01S00535.274l797 +++| PDW      EQU    KWP         *DW* PROCESSOR
07162  M01S00536.274l797 +++|          TITLE  MISCELLANEOUS EQUIPMENT DEFINITION SUBROUTINES.
07163  M01S00537.274l797 +++| CDC      SPACE  4,15
07164  M01S00538.274l797 +++|**        CDC - CLEAR ISMD CHANNELS.
07165  M01S00539.274l797 +++|*
07166  M01S00540.274l797 +++|*         ENTRY  (EBUT) = PREVIOUS EBUT *CM* EQUIPMENT ENTRY.
07167  M01S00541.274l797 +++|*
07168  M01S00542.274l797 +++|*         EXIT   CHANNEL NUMBERS ARE CLEARED IN ALL ISMD DEVICE ENTRIES
07169  M01S00543.274l797 +++|*                WHICH HAVE THE FIRST UNIT ON THIS *CM* EQUIPMENT.
07170  M01S00544.274l797 +++|*
07171  M01S00545.274l797 +++|*         USES   T1, T2, T3.
07172  M01S00546.274l797 +++|*
07173  M01S00547.274l797 +++|*         CALLS  SDC.
07174  M01S00548.274l797 +++|
07175  M01S00549.274l797 +++|
07176  M01S00550.274l797 +++| CDC      SUBR               ENTRY/EXIT
07177  M01S00551.274l797 +++|          LDM    EBUT+4      SAVE EQUIPMENT NUMBER
07178  M01S00552.274l797 +++|          SHN    -11
07179  M01S00553.274l797 +++|          STD    T1
07180  M01S00554.274l797 +++|          LDM    EBUT+3
07181  M01S00555.274l797 +++|          LMC    2RCM
07182  M01S00556.274l797 +++|          NJN    CDCX        IF NOT CONTROL MODULE
07183  M01S00557.274l797 +++|          STM    TENB,T1     CLEAR EST ORDINAL
07184  M01S00558.274l797 +++|          STD    T3
07185  M01S00559.274l797 +++|          LDN    37          SET NO CHANNEL SPECIFIED
07186  M01S00560.274l797 +++|          STD    T2
07187  M01S00561.274l797 +++|          RJM    SDC         SET ISMD CHANNELS
07188  M01S00562.274l797 +++|          UJN    CDCX        RETURN
07189  M01S00563.274l797 +++| CLE      SPACE  4,15
07190  M01S00564.274l797 +++|**        CLE - CHECK LAST EQUIPMENT.
07191  M01S00565.274l797 +++|*
07192  M01S00566.274l797 +++|*         ENTRY  (EQ) = CURRENT EST ORDINAL.
07193  M01S00567.274l797 +++|*                (LE) = LAST EQUIPMENT DEFINED.
07194  M01S00568.274l797 +++|*                (CN - CN+4) = CURRENT EQUIPMENT DEFINITION.
07195  M01S00569.274l797 +++|*
07196  M01S00570.274l797 +++|*         EXIT   (LE) = CURRENT LAST EQUIPMENT.
07197  M01S00571.274l797 +++|*                (EQ) = CURRENT EST ORDINAL + 1.
07198  M01S00572.274l797 +++|*
07199  M01S00573.274l797 +++|*         USES   T5, CN - CN+4.
07200  M01S00574.274l797 +++|*
07201  M01S00575.274l797 +++|*         CALLS  IBF.
07202  M01S00576.274l797 +++|
07203  M01S00577.274l797 +++|
07204  M01S00578.274l797 +++| CLE3     AOD    EQ          CHECK NEW EQUIPMENT DEFINITION
07205  M01S00579.274l797 +++|          SBD    LE
07206  M01S00580.274l797 +++|          PJN    CLE2        IF ORDINAL .GE. PREVIOUS HIGH
07207  M01S00581.274l797 +++|
07208  M01S00582.274l797 +++| CLE      SUBR               ENTRY/EXIT
07209  M01S00583.274l797 +++|          LDD    CN+3
07210  M01S00584.274l797 +++|          NJN    CLE3        IF DEFINING EQUIPMENT
07211  M01S00585.274l797 +++|          AOD    EQ
07212  M01S00586.274l797 +++|          LMD    LE
07213  M01S00587.274l797 +++|          NJN    CLEX        IF NOT CLEARING LAST EQUIPMENT
07214  M01S00588.274l797 +++| CLE1     SOD    LE
07215  M01S00589.274l797 +++|          SHN    14+1
07216  M01S00590.274l797 +++|          ADD    EB          SEARCH FOR LAST EQUIPMENT
07217  M01S00591.274l797 +++|          SHN    6
07218  M01S00592.274l797 +++|          CRD    CN
07219  M01S00593.274l797 +++|          LDD    CN+3
07220  M01S00594.274l797 +++|          ZJN    CLE1        IF EQUIPMENT UNDEFINED
07221  M01S00595.274l797 +++|          LDN    1
07222  M01S00596.274l797 +++| CLE2     RAD    LE          UPDATE LAST EQUIPMENT
07223  M01S00597.274l797 +++|          STD    T5
07224  M01S00598.274l797 +++|          LDN    UECF        SEND COUNT TO BUFFER PP
07225  M01S00599.274l797 +++|          RJM    IBF
07226  M01S00600.274l797 +++|          UJN    CLEX        RETURN
07227  M01S00601.274l797 +++| CML      SPACE  4,10
07228  M01S00602.274l797 +++|**        CML - CHECK MASS STORAGE LIMIT.
07229  M01S00603.274l797 +++|*
07230  M01S00604.274l797 +++|*         ENTRY  (CN - CN+4) = CURRENT EQUIPMENT DEFINITION.
07231  M01S00222.284l847 +++|*                (EBUT - EBUT+4) = PREVIOUS EQUIPMENT DEFINITION.
07232  M01S00605.274l797 +++|
07233  M01S00606.274l797 +++|

Line S00607 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07234  M02S00607.284l847 ---| CML2     AOM    MSLM        ADVANCE MASS STORAGE LIMIT

Line S00223 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`set82`

Seq #  *Modification Id* Act 
----------------------------+
07235  M02S00223.set82   ---| CML1     SOM    MSLM
07236  M01S00001.set82   +++| CML2     SOM    MSLM
07237  M01S00608.274l797 +++|
07238  M01S00609.274l797 +++| CML      SUBR               ENTRY/EXIT
07239  M01S00610.274l797 +++|          LDI    ES
07240  M01S00611.274l797 +++|          LMD    CN          CHECK REDEFINITION
07241  M01S00612.274l797 +++|          SHN    0-13
07242  M01S00613.274l797 +++|          ZJN    CMLX        IF NO CHANGE IN STATUS
07243  M01S00002.set82   +++|          LDD    CN          CHECK MASS STORAGE
07244  M01S00003.set82   +++|          SHN    0-13
07245  M01S00004.set82   +++|          ZJN    CML1        IF NOT MASS STORAGE

Line S00614 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07246  M02S00614.284l847 ---|          LDD    CN

Line S00615 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07247  M02S00615.284l847 ---|          SHN    0-13

Line S00616 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07248  M02S00616.284l847 ---|          ZJN    CML2        IF NEW EQUIPMENT NOT MASS STORAGE
07249  M01S00617.274l797 +++|          LDM    MSLM

Line S00618 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

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

Line S00619 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07251  M02S00619.284l847 ---|          SOM    MSLM

Line S00620 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07252  M02S00620.284l847 ---|          UJN    CMLX        RETURN

Line S00621 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07253  M02S00621.284l847 ---|

Line S00622 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

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

Line S00224 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`set82`

Seq #  *Modification Id* Act 
----------------------------+
07255  M02S00224.set82   ---|          NJN    CML1        IF NOT MASS STORAGE LIMIT
07256  M01S00005.set82   +++|          NJN    CML2        IF NOT MASS STORAGE LIMIT
07257  M01S00225.284l847 +++|          LDC    CMLB        SET ERROR MESSAGE
07258  M01S00623.274l797 +++|          JMP    ILL1        DISPLAY ERROR
07259  M01S00006.set82   +++|
07260  M01S00007.set82   +++| CML1     AOM    MSLM        ADVANCE MASS STORAGE LIMIT
07261  M01S00008.set82   +++|          UJN    CMLX        RETURN
07262  M01S00624.274l797 +++|
07263  M01S00625.274l797 +++| CMLB     DATA   C*MS LIMIT EXCEEDED.*
07264  M01S00626.274l797 +++| EDC      SPACE  4,20
07265  M01S00627.274l797 +++|**        EDC - ENTER ISMD CHANNELS.
07266  M01S00628.274l797 +++|*
07267  M01S00629.274l797 +++|*         ENTRY  (CN - CN+4) = EQUIPMENT ENTRY.
07268  M01S00630.274l797 +++|*                (EQ) = CURRENT EST ORDINAL.
07269  M01S00631.274l797 +++|*
07270  M01S00632.274l797 +++|*         EXIT   (EQ) = CURRENT EST ORDINAL.
07271  M01S00633.274l797 +++|*                IF DEVICE IS AN ISMD, A SEARCH IS MADE FOR THE *CM*
07272  M01S00634.274l797 +++|*                   EQUIPMENT WHICH CORRESPONDS TO THE FIRST UNIT - IF
07273  M01S00635.274l797 +++|*                   FOUND, THE CHANNEL NUMBERS ARE SET IN THE ISMD
07274  M01S00636.274l797 +++|*                   ENTRY.
07275  M01S00637.274l797 +++|*
07276  M01S00638.274l797 +++|*         USES   T1, T2, T3, CM - CM+4.
07277  M01S00639.274l797 +++|*
07278  M01S00640.274l797 +++|*         CALLS  EEB.
07279  M01S00641.274l797 +++|
07280  M01S00642.274l797 +++|
07281  M01S00643.274l797 +++| EDC      SUBR               ENTRY/EXIT
07282  M01S00644.274l797 +++|          LCN    0
07283  M01S00645.274l797 +++|          STD    T5
07284  M01S00646.274l797 +++| EDC1     AOD    T5          ADVANCE INDEX
07285  M01S00647.274l797 +++|          LDM    TFSD,T5
07286  M01S00648.274l797 +++|          ZJN    EDCX        IF END OF TABLE
07287  M01S00649.274l797 +++|          LMD    CN+3
07288  M01S00650.274l797 +++|          NJN    EDC1        IF NOT MATCHING DEVICE TYPE
07289  M01S00651.274l797 +++|          LDM    TDDB+DVUN+3 SAVE FIRST UNIT EQUIPMENT NUMBER
07290  M01S00652.274l797 +++|          LPN    70
07291  M01S00653.274l797 +++|          SHN    -3
07292  M01S00654.274l797 +++|          STD    T3
07293  M01S00655.274l797 +++|          LDM    TENB,T3
07294  M01S00656.274l797 +++|          ZJN    EDCX        IF NO *CM* DEFINED
07295  M01S00657.274l797 +++|          SHN    22-5
07296  M01S00658.274l797 +++|          ADD    EB
07297  M01S00659.274l797 +++|          SHN    6           READ CONTROL MODULE EST ENTRY
07298  M01S00660.274l797 +++|          CRD    CM
07299  M01S00661.274l797 +++|          LDD    CM+1        SET CHANNEL(S) INTO ISMD ENTRY
07300  M01S00662.274l797 +++|          STM    EBUT+1
07301  M01S00663.274l797 +++|          LDD    CM+2
07302  M01S00664.274l797 +++|          STM    EBUT+2
07303  M01S00665.274l797 +++|          RJM    EEB         ENTER EQUIPMENT ENTRY
07304  M01S00666.274l797 +++|          LJM    EDCX        RETURN
07305  M01S00667.274l797 +++| SDC      SPACE  4,15
07306  M01S00668.274l797 +++|**        SDC - SET ISMD CHANNELS.
07307  M01S00669.274l797 +++|*
07308  M01S00670.274l797 +++|*         ENTRY  (T1) = *CM* EQUIPMENT NUMBER.
07309  M01S00671.274l797 +++|*                (T2) = FIRST CHANNEL.
07310  M01S00672.274l797 +++|*                (T3) = SECOND CHANNEL.
07311  M01S00673.274l797 +++|*
07312  M01S00674.274l797 +++|*         EXIT   CHANNEL NUMBERS ARE SET IN ALL ISMD DEVICE ENTRIES
07313  M01S00675.274l797 +++|*                WHICH HAVE THE FIRST UNIT ON THIS *CM* EQUIPMENT.
07314  M01S00676.274l797 +++|*
07315  M01S00677.274l797 +++|*         USES   T5.
07316  M01S00678.274l797 +++|*
07317  M01S00679.274l797 +++|*         CALLS  EEB, SID, STA.
07318  M01S00680.274l797 +++|
07319  M01S00681.274l797 +++|
07320  M01S00682.274l797 +++| SDC2     LDD    T5          RESTORE *EQ* CONTENTS
07321  M01S00683.274l797 +++|          RJM    STA
07322  M01S00684.274l797 +++|
07323  M01S00685.274l797 +++| SDC      SUBR               ENTRY/EXIT
07324  M01S00686.274l797 +++|          LDD    EQ          SAVE CONTENTS OF *EQ*
07325  M01S00687.274l797 +++|          STD    T5
07326  M01S00688.274l797 +++|          RJM    EEB         SAVE *EBUT*
07327  M01S00689.274l797 +++|          LCN    0
07328  M01S00690.274l797 +++| SDC1     RJM    SID         SEARCH FOR ISMD DEVICE
07329  M01S00691.274l797 +++|          MJN    SDC2        IF NONE FOUND
07330  M01S00692.274l797 +++|          LDM    TDDB+DVUN+3  GET FIRST UNIT EQUIPMENT NUMBER
07331  M01S00693.274l797 +++|          LPN    70
07332  M01S00694.274l797 +++|          SHN    -3
07333  M01S00695.274l797 +++|          LMD    T1
07334  M01S00696.274l797 +++|          NJN    SDC1        IF NOT THIS *CM* EQUIPMENT NUMBER
07335  M01S00697.274l797 +++|          LDD    T2          SET CHANNEL NUMBERS
07336  M01S00698.274l797 +++|          STM    EBUT+1
07337  M01S00699.274l797 +++|          LDD    T3
07338  M01S00700.274l797 +++|          STM    EBUT+2
07339  M01S00701.274l797 +++|          RJM    EEB         ENTER EQUIPMENT ENTRY
07340  M01S00702.274l797 +++|          UJN    SDC1        FIND NEXT ISMD ENTRY
07341  M01S00226.284l847 +++| SMD      SPACE  4,10
07342  M01S00227.284l847 +++|**        SMD - SEARCH MASS STORAGE DEVICE TABLE *TMSD*.
07343  M01S00228.284l847 +++|*
07344  M01S00229.284l847 +++|*         ENTRY  (A) = EQUIPMENT TYPE (DEVICE MNEMONIC).
07345  M01S00230.284l847 +++|*
07346  M01S00231.284l847 +++|*         EXIT   (A) = (MS) = *TMSD* TABLE ADDRESS.
07347  M01S00232.284l847 +++|*                    = 0 IF ENTRY NOT FOUND.
07348  M01S00233.284l847 +++|*
07349  M01S00234.284l847 +++|*         USES   MS.
07350  M01S00235.284l847 +++|
07351  M01S00236.284l847 +++|
07352  M01S00237.284l847 +++| SMD1     LDN    TMSDL       ADVANCE TABLE ADDRESS
07353  M01S00238.284l847 +++|          RAD    MS
07354  M01S00239.284l847 +++| SMD2     LDI    MS          CHECK ENTRY
07355  M01S00240.284l847 +++|          ZJN    SMDX        IF END OF TABLE
07356  M01S00241.284l847 +++|          LMD    T0          COMPARE DEVICE TYPE
07357  M01S00242.284l847 +++|          LPC    3777
07358  M01S00243.284l847 +++|          NJN    SMD1        IF NO MATCH
07359  M01S00244.284l847 +++|          LDD    MS
07360  M01S00245.284l847 +++|
07361  M01S00246.284l847 +++| SMD      SUBR               ENTRY/EXIT
07362  M01S00247.284l847 +++|          STD    T0
07363  M01S00248.284l847 +++|          LDC    TMSD        SET TABLE ADDRESS
07364  M01S00249.284l847 +++|          STD    MS
07365  M01S00250.284l847 +++|          UJN    SMD2        ENTER LOOP
07366  M01S00703.274l797 +++| VKW      SPACE  4,10
07367  M01S00704.274l797 +++|**        VKW - VALIDATE KEYWORD.
07368  M01S00705.274l797 +++|*
07369  M01S00706.274l797 +++|*         ENTRY  (TA) = *TVRK* ENTRY ADDRESS.
07370  M01S00707.274l797 +++|*                (T3) = *TKWP* ENTRY ADDRESS.
07371  M01S00708.274l797 +++|*                (KA) = CHARACTER ADDRESS OF KEYWORD VALUE.
07372  M01S00709.274l797 +++|*
07373  M01S00710.274l797 +++|*         EXIT   (A) = (AB+4) = 0, IF NULL VALUE SPECIFIED.
07374  M01S00711.274l797 +++|*                TO *ILL* IF INCORRECT KEYWORD OR NULL VALUE SPECIFIED
07375  M01S00712.274l797 +++|*                AND NULL VALUE NOT ALLOWED.
07376  M01S00713.274l797 +++|*
07377  M01S00714.274l797 +++|*         USES   T5, T6, T7, AB+4.
07378  M01S00715.274l797 +++|*
07379  M01S00716.274l797 +++|*         CALLS  CSC.
07380  M01S00717.274l797 +++|
07381  M01S00718.274l797 +++|
07382  M01S00719.274l797 +++| VKW      SUBR               ENTRY/EXIT
07383  M01S00720.274l797 +++|          LDM    1,T3        GET KEYWORD BIT POSITION
07384  M01S00721.274l797 +++|          SHN    14
07385  M01S00722.274l797 +++|          LMD    TH
07386  M01S00723.274l797 +++|          ERRNZ  1000-SHNI   ADJUST IF VALUE CHANGES
07387  M01S00724.274l797 +++|          STM    VKWA
07388  M01S00725.274l797 +++|          SHN    -14         GET KEYWORD WORD OFFSET
07389  M01S00726.274l797 +++|          STD    T6
07390  M01S00727.274l797 +++|          ADD    TA          ADDRESS OF *TVRK* WORD
07391  M01S00728.274l797 +++|          STD    T5
07392  M01S00729.274l797 +++|          LDN    1           GENERATE KEYWORD BIT MASK
07393  M01S00730.274l797 +++| VKWA     SHN    **
07394  M01S00731.274l797 +++|          STD    T7
07395  M01S00732.274l797 +++|          STM    VKWB
07396  M01S00733.274l797 +++|          STM    VKWC
07397  M01S00734.274l797 +++|          LDI    T5          CHECK IF KEYWORD ALLOWED
07398  M01S00735.274l797 +++|          LPC    0
07399  M01S00736.274l797 +++| VKWB     EQU    *-1
07400  M01S00737.274l797 +++|          NJN    VKW2        IF KEYWORD IS ALLOWED
07401  M01S00738.274l797 +++| VKW1     JMP    ILL         PROCESS INCORRECT ENTRY
07402  M01S00739.274l797 +++|
07403  M01S00740.274l797 +++| VKW2     LDC    TRQP        SET KEYWORD SPECIFIED BIT
07404  M01S00741.274l797 +++|          RAD    T6
07405  M01S00742.274l797 +++|          LDI    T6
07406  M01S00743.274l797 +++|          LPC    0
07407  M01S00744.274l797 +++| VKWC     EQU    *-1
07408  M01S00745.274l797 +++|          NJN    VKW1        IF KEYWORD ALREADY PROCESSED
07409  M01S00746.274l797 +++|          LDD    T7
07410  M01S00747.274l797 +++|          RAI    T6
07411  M01S00748.274l797 +++|          RJM    CSC         CHECK FOR NULL VALUE
07412  M01S00749.274l797 +++|          NJN    VKW3        IF NOT NULL VALUE
07413  M01S00750.274l797 +++|          LDM    2,T3        CHECK *TKWP*
07414  M01S00751.274l797 +++|          SHN    21-5
07415  M01S00752.274l797 +++|          PJN    VKW1        IF NULL VALUE NOT ALLOWED
07416  M01S00753.274l797 +++|          LDN    0           CLEAR VALUE
07417  M01S00754.274l797 +++|          STD    AB+4
07418  M01S00755.274l797 +++| VKW3     LJM    VKWX        RETURN
07419  M01S00756.274l797 +++| STV      SPACE  4,10
07420  M01S00757.274l797 +++|**        STV - STORE KEYWORD VALUE.
07421  M01S00758.274l797 +++|*
07422  M01S00759.274l797 +++|*         ENTRY  (AB+4) = KEYWORD VALUE.
07423  M01S00760.274l797 +++|*                (T3) = ADDRESS OF KEYWORD PARAMETERS.
07424  M01S00761.274l797 +++|*                (CN - CN+4) = *EQDE* EST WORD.
07425  M01S00762.274l797 +++|*                (EBUT+5 - EBUT+11) = *EQAE* EST WORD.
07426  M01S00763.274l797 +++|*
07427  M01S00764.274l797 +++|*         EXIT   KEYWORD VALUE STORED IN EST ENTRY.
07428  M01S00765.274l797 +++|
07429  M01S00766.274l797 +++|
07430  M01S00767.274l797 +++| STV      SUBR               ENTRY/EXIT
07431  M01S00768.274l797 +++|          LDM    2,T3
07432  M01S00769.274l797 +++|          SHN    14          SET SHIFT COUNT
07433  M01S00770.274l797 +++|          LMD    TH
07434  M01S00771.274l797 +++|          ERRNZ  1000-SHNI   ADJUST IF VALUE CHANGES
07435  M01S00772.274l797 +++|          STM    STVB
07436  M01S00773.274l797 +++|          SHN    -14         SET EST ENTRY LOCATION
07437  M01S00774.274l797 +++|          LPN    37
07438  M01S00775.274l797 +++|          STD    T0
07439  M01S00776.274l797 +++|          SBN    5
07440  M01S00777.274l797 +++|          MJN    STV1        IF IN *EQDE* WORD
07441  M01S00778.274l797 +++|          LDC    EBUT
07442  M01S00779.274l797 +++|          UJN    STV2        PROCESS DATA
07443  M01S00780.274l797 +++|
07444  M01S00781.274l797 +++| STV1     LDN    CN
07445  M01S00782.274l797 +++| STV2     ADD    T0
07446  M01S00783.274l797 +++|          STD    T7
07447  M01S00784.274l797 +++|          LDM    3,T3        SET MASK
07448  M01S00785.274l797 +++|          STM    STVA
07449  M01S00786.274l797 +++|          LDI    T7          UPDATE EST ENTRY
07450  M01S00787.274l797 +++|          LPC    **
07451  M01S00788.274l797 +++| STVA     EQU    *-1
07452  M01S00789.274l797 +++|          STI    T7
07453  M01S00790.274l797 +++|          LDD    AB+4
07454  M01S00791.274l797 +++| STVB     SHN    **          POSITION KEYWORD VALUE
07455  M01S00792.274l797 +++|          RAI    T7          STORE KEYWORD VALUE
07456  M01S00793.274l797 +++|          UJN    STVX        RETURN
07457  M01S00794.274l797 +++|          TITLE  KEYWORD PROCESSORS.
07458  M01S00795.274l797 +++| AOK      SPACE  4,10
07459  M01S00796.274l797 +++|**        AOK - ASSEMBLE OCTAL KEYWORD VALUE.
07460  M01S00797.274l797 +++|*
07461  M01S00798.274l797 +++|*         ENTRY  (A) = 6/MINIMUM VALUE, 12/MAXIMUM VALUE+1
07462  M01S00799.274l797 +++|*
07463  M01S00800.274l797 +++|*         EXIT   TO *KWP5*, KEYWORD VALUE STORED.
07464  M01S00801.274l797 +++|*                TO *ILL* IF INCORRECT VALUE.
07465  M01S00802.274l797 +++|*
07466  M01S00803.274l797 +++|*         USES   T6, T7.
07467  M01S00804.274l797 +++|*
07468  M01S00805.274l797 +++|*         CALLS  CDR, STV.
07469  M01S00806.274l797 +++|
07470  M01S00807.274l797 +++|
07471  M01S00808.274l797 +++| AOK      BSS    0
07472  M01S00809.274l797 +++|          STD    T7          SAVE MAXIMUM VALUE+1
07473  M01S00810.274l797 +++|          SHN    -14
07474  M01S00811.274l797 +++|          STD    T6          SAVE MINIMUM VALUE
07475  M01S00812.274l797 +++|          RJM    CDR         ASSEMBLE KEYWORD VALUE
07476  M01S00813.274l797 +++|          LDD    AB+4
07477  M01S00814.274l797 +++|          SBD    T6
07478  M01S00815.274l797 +++|          PJN    AOK2        IF VALUE .GE. MINIMUM
07479  M01S00816.274l797 +++| AOK1     JMP    ILL         PROCESS INCORRECT ENTRY
07480  M01S00817.274l797 +++|
07481  M01S00818.274l797 +++| AOK2     LDD    AB+4
07482  M01S00819.274l797 +++|          SBD    T7
07483  M01S00820.274l797 +++|          PJN    AOK1        IF VALUE .GT. MAXIMUM
07484  M01S00821.274l797 +++|          RJM    STV         STORE VALUE
07485  M01S00822.274l797 +++|          JMP    KWP5        RETURN
07486  M01S00823.274l797 +++| PAP      SPACE  4,10
07487  M01S00824.274l797 +++|***       AP=N.
07488  M01S00825.274l797 +++|*
07489  M01S00826.274l797 +++|*         APRDECK NUMBER.
07490  M01S00827.274l797 +++|*         N = 0-77B.
07491  M01S00828.274l797 +++|
07492  M01S00829.274l797 +++|
07493  M01S00830.274l797 +++| PAP      DATA   H*AP*
07494  M01S00831.274l797 +++|          ZJN    PAP1        IF NULL VALUE
07495  M01S00832.274l797 +++|          RJM    CDR         ASSEMBLE APRDECK NUMBER
07496  M01S00833.274l797 +++|          LDD    AB+4
07497  M01S00834.274l797 +++|          SHN    -6
07498  M01S00835.274l797 +++|          ZJN    PAP1        IF .LE. 77B
07499  M01S00836.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
07500  M01S00837.274l797 +++|
07501  M01S00838.274l797 +++| PAP1     LDD    AB+4        SET APRDECK NUMBER
07502  M01S00839.274l797 +++|          STM    TDDB+DVAP
07503  M01S00840.274l797 +++|          JMP    KWP5       RETURN
07504  M01S00841.274l797 +++| PCC      SPACE  4,10
07505  M01S00842.274l797 +++|***       CH=C1N/C2N.
07506  M01S00843.274l797 +++|*
07507  M01S00844.274l797 +++|*         CONCURRENT CHANNEL + PORT NUMBER.
07508  M01S00845.274l797 +++|*         C1 = PRIMARY CHANNEL.
07509  M01S00846.274l797 +++|*         C2 = SECONDARY CHANNEL.
07510  M01S00847.274l797 +++|*         N = A FOR PORT A.
07511  M01S00848.274l797 +++|*           = B FOR PORT B.
07512  M01S00849.274l797 +++|
07513  M01S00850.274l797 +++|
07514  M01S00851.274l797 +++| PCC      DATA   H*CH*
07515  M01S00852.274l797 +++|          LDN    0           PRESET PORT A DEFINITIONS
07516  M01S00853.274l797 +++|          STD    CN+1
07517  M01S00854.274l797 +++|          STD    CN+2
07518  M01S00855.274l797 +++|          LDN    CN+1        PRESET CHANNEL INDEX
07519  M01S00856.274l797 +++|          STD    T4
07520  M01S00857.274l797 +++| PCC1     RJM    CDR         ASSEMBLE CHANNEL NUMBER
07521  M01S00858.274l797 +++|          LMN    1RA
07522  M01S00859.274l797 +++|          ZJN    PCC2        IF PORT A SPECIFIED
07523  M01S00860.274l797 +++|          LMN    1RB&1RA
07524  M01S00861.274l797 +++|          NJN    PCC3        IF NOT PORT B (DEFAULT TO A)
07525  M01S00862.274l797 +++|          LDC    200         SET PORT B INDICATOR
07526  M01S00863.274l797 +++|          STI    T4
07527  M01S00864.274l797 +++| PCC2     AOD    KA          ADVANCE CHARACTER ADDRESS
07528  M01S00865.274l797 +++| PCC3     LDN    40          MARK CHANNEL CONCURRENT
07529  M01S00866.274l797 +++|          RAD    AB+4
07530  M01S00867.274l797 +++|          LMC    4000        MARK CHANNEL ACCESSIBLE
07531  M01S00868.274l797 +++|          RAI    T4          SET CHANNEL ENTRY
07532  M01S00869.274l797 +++|          LPN    37
07533  M01S00870.274l797 +++|          SBM    .CCHN
07534  M01S00871.274l797 +++|          MJN    PCC5        IF VALID CHANNEL NUMBER
07535  M01S00872.274l797 +++| PCC4     JMP    ILL         PROCESS INCORRECT ENTRY
07536  M01S00873.274l797 +++|
07537  M01S00874.274l797 +++| PCC5     LDM    TCST,AB+4
07538  M01S00875.274l797 +++|          ZJN    PCC6        IF CHANNEL IS NOT DOWN
07539  M01S00876.274l797 +++|          LDC    3000        MARK CHANNEL DOWN
07540  M01S00877.274l797 +++|          RAI    T4
07541  M01S00878.274l797 +++| PCC6     RJM    CSC         CHECK SEPARATOR CHARACTER
07542  M01S00879.274l797 +++|          NJN    PCC7        IF NOT VALID KEYWORD SEPARATOR
07543  M01S00880.274l797 +++|          LDD    CN+1        PRIMARY CHANNEL
07544  M01S00881.274l797 +++|          LMD    CN+2        SECONDARY CHANNEL
07545  M01S00882.274l797 +++|          LPN    77
07546  M01S00883.274l797 +++|          ZJN    PCC4        IF DUPLICATE CHANNELS
07547  M01S00884.274l797 +++|          JMP    KWP5        RETURN
07548  M01S00885.274l797 +++|
07549  M01S00886.274l797 +++| PCC7     LMN    1R/&1R,
07550  M01S00887.274l797 +++|          NJN    PCC4        IF NO OTHER CHANNEL
07551  M01S00888.274l797 +++|          AOD    KA
07552  M01S00889.274l797 +++|          AOD    T4
07553  M01S00890.274l797 +++|          LMN    CN+3
07554  M01S00891.274l797 +++|          ZJN    PCC4        IF MORE THAN TWO CHANNELS SPECIFIED
07555  M01S00892.274l797 +++|          LJM    PCC1        PROCESS SECOND CHANNEL
07556  M01S00893.274l797 +++| PCH      SPACE  4,10
07557  M01S00894.274l797 +++|***       CH=C1/C2.
07558  M01S00895.274l797 +++|*
07559  M01S00896.274l797 +++|*         CHANNEL NUMBER.
07560  M01S00897.274l797 +++|*         CN = 2, 4 OR 6, IF EQUIPMENT TYPE IS *DV* OR *DW*.
07561  M01S00898.274l797 +++|*         CN = 0-13B, 20-33B, FOR ALL OTHER EQUIPMENT TYPES.
07562  M01S00899.274l797 +++|*         CN = C0-C11B FOR CONCURRENT CHANNELS 0-11B.
07563  M01S00900.274l797 +++|
07564  M01S00901.274l797 +++|
07565  M01S00902.274l797 +++| PCH      DATA   H*CH*
07566  M01S00903.274l797 +++|          LDN    CN+1        SET CHANNEL BYTE ADDRESS
07567  M01S00904.274l797 +++|          STD    T4
07568  M01S00905.274l797 +++|          LDN    CN+1+2      SET MAXIMUM NUMBER OF CHANNELS ALLOWED
07569  M01S00906.274l797 +++|          STD    T3
07570  M01S00907.274l797 +++|          LDN    0           CLEAR CHANNEL BUFFER
07571  M01S00908.274l797 +++|          STD    CN+1
07572  M01S00909.274l797 +++|          STD    CN+2
07573  M01S00910.274l797 +++|          LDD    CN+3
07574  M01S00911.274l797 +++|          LMC    2RRM
07575  M01S00912.274l797 +++|          NJN    PCH3        IF NOT TYPE *RM*
07576  M01S00913.274l797 +++|          RJM    CDR
07577  M01S00914.274l797 +++|          LDD    AB+4
07578  M01S00915.274l797 +++|          SBN    15
07579  M01S00916.274l797 +++|          NJN    PCH6        IF INCORRECT CHANNEL NUMBER
07580  M01S00917.274l797 +++|          LDC    4000+CHMX
07581  M01S00918.274l797 +++|          LJM    PCH9        SET CHANNEL DATA
07582  M01S00919.274l797 +++|
07583  M01S00920.274l797 +++| PCH3     LMC    2RDV&2RRM
07584  M01S00921.274l797 +++|          ZJN    PCH4        IF TYPE *DV*
07585  M01S00922.274l797 +++|          LMN    1RW&1RV
07586  M01S00923.274l797 +++|          ZJN    PCH4        IF TYPE *DW*
07587  M01S00924.274l797 +++|          LDC    LDNI        SET FIRST CHANNEL
07588  M01S00925.274l797 +++|          STM    VCNA
07589  M01S00926.274l797 +++|          UJN    PCH7        ASSEMBLE FIRST CHANNEL NUMBER
07590  M01S00927.274l797 +++|
07591  M01S00928.274l797 +++| PCH4     LDC    VCP
07592  M01S00929.274l797 +++|          STM    PCHA
07593  M01S00930.274l797 +++| PCH5     LDD    T4
07594  M01S00931.274l797 +++|          SBD    T3
07595  M01S00932.274l797 +++|          MJN    PCH7        IF MORE CHANNELS ALLOWED
07596  M01S00933.274l797 +++| PCH6     JMP    ILL         PROCESS INCORRECT ENTRY
07597  M01S00934.274l797 +++|
07598  M01S00935.274l797 +++| PCH7     LDC    4000        SET CHANNEL ACCESSIBLE
07599  M01S00936.274l797 +++|          STI    T4
07600  M01S00937.274l797 +++|          LDI    KA          CHECK SEPARATOR
07601  M01S00938.274l797 +++|          SBN    1R8
07602  M01S00939.274l797 +++|          PJN    PCH6        IF NULL CHANNEL PARAMETER
07603  M01S00940.274l797 +++|          ADN    1R8-1RC
07604  M01S00941.274l797 +++|          NJN    PCH8        IF NOT A CONCURRENT CHANNEL
07605  M01S00942.274l797 +++|          LDN    40
07606  M01S00943.274l797 +++|          RAI    T4          SET CONCURRENCY ATTRIBUTE
07607  M01S00944.274l797 +++|          AOD    KA
07608  M01S00945.274l797 +++| PCH8     RJM    CDR         ASSEMBLE CHANNEL NUMBER
07609  M01S00946.274l797 +++|          RJM    VCN         VALIDATE CHANNEL NUMBER
07610  M01S00947.274l797 +++|*         RJM    VCP         (VALIDATE CHANNEL PAIR)
07611  M01S00948.274l797 +++| PCHA     EQU    *-1
07612  M01S00949.274l797 +++|          LDD    AB+4        APPEND CHANNEL NUMBER
07613  M01S00950.274l797 +++| PCH9     RAI    T4
07614  M01S00951.274l797 +++|          LPN    77          CHECK CHANNEL DATA
07615  M01S00952.274l797 +++|          STD    AB+4
07616  M01S00953.274l797 +++|          SBN    40
07617  M01S00954.274l797 +++|          MJN    PCH11       IF NOT A CONCURRENT CHANNEL
07618  M01S00955.274l797 +++|          SBM    .CCHN
07619  M01S00956.274l797 +++|          MJN    PCH11       IF VALID CHANNEL NUMBER
07620  M01S00957.274l797 +++| PCH10    JMP    ILL         PROCESS INCORRECT ENTRY
07621  M01S00958.274l797 +++|
07622  M01S00959.274l797 +++| PCH11    LDM    TCST,AB+4
07623  M01S00960.274l797 +++|          ZJN    PCH12       IF CHANNEL IS NOT DOWN
07624  M01S00961.274l797 +++|          LDC    3000        MARK CHANNEL DOWN
07625  M01S00962.274l797 +++|          RAI    T4
07626  M01S00963.274l797 +++| PCH12    RJM    CSC         CHECK SEPARATOR CHARACTER
07627  M01S00964.274l797 +++|          NJN    PCH13       IF INVALID KEYWORD SEPARATOR
07628  M01S00965.274l797 +++|          JMP    KWP5        RETURN
07629  M01S00966.274l797 +++|
07630  M01S00967.274l797 +++| PCH13    LMN    1R/&1R,
07631  M01S00968.274l797 +++|          NJN    PCH10       IF INVALID SEPARATOR
07632  M01S00969.274l797 +++|          AOD    T4
07633  M01S00970.274l797 +++|          AOD    KA
07634  M01S00971.274l797 +++|          LJM    PCH5        PROCESS NEXT CHANNEL
07635  M01S00972.274l797 +++| PEQ      SPACE  4,10
07636  M01S00973.274l797 +++|***       EQ=N.
07637  M01S00974.274l797 +++|*
07638  M01S00975.274l797 +++|*         EQUIPMENT (CONTROLLER) NUMBER.
07639  M01S00976.274l797 +++|*         N = 0-7.
07640  M01S00977.274l797 +++|
07641  M01S00978.274l797 +++|
07642  M01S00979.274l797 +++| PEQ      DATA   H*EQ*
07643  M01S00980.274l797 +++|          LDN    10          SET MAXIMUM VALUE + 1
07644  M01S00981.274l797 +++|          JMP    AOK         ASSEMBLE KEYWORD VALUE
07645  M01S00982.274l797 +++| PET      SPACE  4,20
07646  M01S00983.274l797 +++|***       ET=MT.
07647  M01S00984.274l797 +++|*         ET=MT/PT.  (*DP* TYPE EQUIPMENT ONLY).
07648  M01S00985.274l797 +++|*         ET=MT/PT/CT.  (*DP* TYPE EQUIPMENT ONLY).
07649  M01S00986.274l797 +++|*
07650  M01S00987.274l797 +++|*         EXTENDED MEMORY TYPE (DEFAULT = E1,D1).
07651  M01S00988.274l797 +++|*         MT = MEMORY TYPE.
07652  M01S00989.274l797 +++|*              E1 - ECS 1.
07653  M01S00990.274l797 +++|*              E2 - ECS 2.
07654  M01S00991.274l797 +++|*              LE - LCME.
07655  M01S00992.274l797 +++|*              EM - UEM.
07656  M01S00993.274l797 +++|*              ES - ESM.
07657  M01S00994.274l797 +++|*              SN - STORNET.
07658  M01S00995.274l797 +++|*         PT = PATH TYPE.
07659  M01S00996.274l797 +++|*              D1 - DC135 DDP (DEFAULT FOR MT = E1/E2).
07660  M01S00997.274l797 +++|*              D2 - DC145 PARITY ENHANCED DDP OR ESM LOW SPEED PORT.
07661  M01S00998.274l797 +++|*                   (DEFAULT FOR MT = ES OR SN).
07662  M01S00999.274l797 +++|*         CT = CPU TYPE.
07663  M01S01000.274l797 +++|*              NC - NO CPU COUPLER.
07664  M01S01001.274l797 +++|*                   (DEFAULT FOR MT = SN).
07665  M01S01002.274l797 +++|
07666  M01S01003.274l797 +++|
07667  M01S01004.274l797 +++| PET      DATA   H*ET*
07668  M01S01005.274l797 +++|          LDN    CFGL        GET HARDWARE MODE
07669  M01S01006.274l797 +++|          CRD    CM
07670  M01S01007.274l797 +++|          LDD    CM+3
07671  M01S01008.274l797 +++|          SHN    4-12
07672  M01S01009.274l797 +++|          LPN    20
07673  M01S01010.274l797 +++|          ADC    4511        4531 = EXTENDED, 4511 = ECS ADDRESSING
07674  M01S01011.274l797 +++|          STM    TMTO+ESMP+2
07675  M01S01012.274l797 +++|          LDC    TMTOL*10000+TMTO  CHECK MEMORY TYPE
07676  M01S01013.274l797 +++|          RJM    CET
07677  M01S01014.274l797 +++|          RJM    CSC         CHECK SEPARATOR CHARACTER
07678  M01S01015.274l797 +++|          ZJN    PET3        IF NO PATH TYPE/CPU TYPE SPECIFIED
07679  M01S01016.274l797 +++|          LMN    1R/&1R,
07680  M01S01017.274l797 +++|          ZJN    PET2        IF CORRECT SEPARATOR
07681  M01S01018.274l797 +++| PET1     JMP    ILL         PROCESS INCORRECT ENTRY
07682  M01S01019.274l797 +++|
07683  M01S01020.274l797 +++| PET2     LDD    CN+3
07684  M01S01021.274l797 +++|          LMC    2RDP
07685  M01S01022.274l797 +++|          NJN    PET1        IF NOT TYPE *DP*
07686  M01S01023.274l797 +++|          AOD    KA
07687  M01S01024.274l797 +++|          LDI    KA
07688  M01S01025.274l797 +++|          LMN    1R/
07689  M01S01026.274l797 +++|          ZJN    PET4        IF NULL PATH TYPE
07690  M01S01027.274l797 +++|          LDC    TPTOL*10000+TPTO  CHECK PATH TYPE
07691  M01S01028.274l797 +++|          RJM    CET
07692  M01S01029.274l797 +++|          RJM    CSC         CHECK SEPARATOR CHARACTER
07693  M01S01030.274l797 +++| PET3     ZJN    PET5        IF NO CPU TYPE
07694  M01S01031.274l797 +++|          LMN    1R/&1R,
07695  M01S01032.274l797 +++|          NJN    PET1        IF NOT CORRECT SEPARATOR
07696  M01S01033.274l797 +++| PET4     AOD    KA
07697  M01S01034.274l797 +++|          LDC    TCTOL*10000+TCTO  CHECK CPU TYPE
07698  M01S01035.274l797 +++|          RJM    CET
07699  M01S01036.274l797 +++| PET5     JMP    KWP5        RETURN
07700  M01S01037.274l797 +++|          SPACE  4,10
07701  M01S01038.274l797 +++|**        EXTENDED MEMORY TYPE OPTION TABLES.
07702  M01S01039.274l797 +++|*
07703  M01S01040.274l797 +++|*         ENTRY = 3 WORDS
07704  M01S01041.274l797 +++|*T,       12/ OP,12/ MASK,1/D,2/ R,3/ MT,3/ CT,3/ PT

Figure

07705  M01S01042.274l797 +++|*
07706  M01S01043.274l797 +++|*         OP = MNEMONIC.
07707  M01S01044.274l797 +++|*         MASK = *DILL* BYTE 3 MASK.
07708  M01S01045.274l797 +++|*         R = RESERVED.
07709  M01S01046.274l797 +++|*         D = DEVICE SUPPORTS DIRECT TRANSFER.
07710  M01S01047.274l797 +++|*         MT = MEMORY TYPE.
07711  M01S01048.274l797 +++|*              0 = RESERVED.
07712  M01S01049.274l797 +++|*              1 = E1 (ECS 1).
07713  M01S01050.274l797 +++|*              2 = E2 (ECS 2).
07714  M01S01051.274l797 +++|*              3 = LE (LCME).
07715  M01S01052.274l797 +++|*              4 = EM (UEM).
07716  M01S01053.274l797 +++|*              5 = ES (ESM).
07717  M01S01054.274l797 +++|*              6 = SN (STORNET).
07718  M01S01055.274l797 +++|*              7 = RESERVED.
07719  M01S01056.274l797 +++|*
07720  M01S01057.274l797 +++|*         CT = CPU TYPE
07721  M01S01058.274l797 +++|*              0 = NO CPU PATH.
07722  M01S01059.274l797 +++|*              1 = ECS MODE.
07723  M01S01060.274l797 +++|*              2 = LCME.
07724  M01S01061.274l797 +++|*              3 = ESM MODE.
07725  M01S01062.274l797 +++|*              4 = UEM CPU INTERFACE.
07726  M01S01063.274l797 +++|*              5 - 7 = RESERVED.
07727  M01S01064.274l797 +++|*
07728  M01S01065.274l797 +++|*         PT = PP PATH TYPE.
07729  M01S01066.274l797 +++|*              0 = NO DDP.
07730  M01S01067.274l797 +++|*              1 = DC145 PARITY ENHANCED DDP
07731  M01S01068.274l797 +++|*                  OR ESM LOW SPEED PORT.
07732  M01S01069.274l797 +++|*              2 = DC135 DDP.
07733  M01S01070.274l797 +++|*              3-7 = RESERVED
07734  M01S01071.274l797 +++|
07735  M01S01072.274l797 +++|
07736  M01S01073.274l797 +++| TMTO     BSS    0           TABLE OF MEMORY TYPE OPTIONS
07737  M01S01074.274l797 +++|          CON    2RE1,0,4112  ECS 1, DC135 DDP
07738  M01S01075.274l797 +++|          CON    2RE2,0,4212  ECS 2, DC135 DDP
07739  M01S01076.274l797 +++|          CON    2RLE,0,4320  LCME
07740  M01S01077.274l797 +++|          CON    2REM,0,4440  UEM
07741  M01S01078.274l797 +++| ESMP     EQU    *-TMTO      POINTER FOR ESM ENTRY
07742  M01S01079.274l797 +++|          CON    2RES,0,4511  ESM, LSP
07743  M01S01080.274l797 +++|          CON    2RSN,0,0601  STORNET
07744  M01S01081.274l797 +++| TMTOL    EQU    *-TMTO
07745  M01S01082.274l797 +++|
07746  M01S01083.274l797 +++| TPTO     BSS    0           TABLE OF PATH TYPE OPTIONS
07747  M01S01084.274l797 +++|          CON    2RD1,-7,2   DC135 DDP
07748  M01S01085.274l797 +++|          CON    2RD2,-7,1   DC145 PARITY ENHANCED DDP
07749  M01S01086.274l797 +++| TPTOL    EQU    *-TPTO
07750  M01S01087.274l797 +++|
07751  M01S01088.274l797 +++| TCTO     BSS    0           TABLE OF CPU TYPE OPTIONS
07752  M01S01089.274l797 +++|          CON    2RNC,-4077,1  NO CPU COUPLER
07753  M01S01090.274l797 +++| TCTOL    EQU    *-TCTO
07754  M01S01091.274l797 +++| PIB      SPACE  4,10
07755  M01S01092.274l797 +++|***       IB=N.
07756  M01S01093.274l797 +++|*
07757  M01S01094.274l797 +++|*         INSTALLATION BYTE.
07758  M01S01095.274l797 +++|*         N = 0B - 7777B.
07759  M01S01096.274l797 +++|
07760  M01S01097.274l797 +++|
07761  M01S01098.274l797 +++| PIB      DATA   H*IB*
07762  M01S01099.274l797 +++|          RJM    AOD         ASSEMBLE INSTALLATION BYTE VALUE
07763  M01S01100.274l797 +++|          STM    EBUT+5
07764  M01S01101.274l797 +++|          JMP    KWP5        RETURN
07765  M01S01102.274l797 +++| PMA      SPACE  4,10
07766  M01S01103.274l797 +++|***       MA=STATUS.
07767  M01S01104.274l797 +++|*
07768  M01S01105.274l797 +++|*         EXTENDED MEMORY MAINTENANCE MODE.
07769  M01S01106.274l797 +++|*         STATUS = *ON* OR *OFF*.
07770  M01S01107.274l797 +++|
07771  M01S01108.274l797 +++|
07772  M01S01109.274l797 +++| PMA      DATA   H*MA*
07773  M01S01110.274l797 +++|          RJM    AST         ASSEMBLE MAINTENANCE MODE STATUS
07774  M01S01111.274l797 +++|          SHN    21-0
07775  M01S01112.274l797 +++|          PJN    PMA1        IF *ON* OR *OFF*
07776  M01S01113.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
07777  M01S01114.274l797 +++|
07778  M01S01115.274l797 +++| PMA1     LDM    TDDB+DVED   SET STATUS
07779  M01S01116.274l797 +++|          SHN    23-11
07780  M01S01117.274l797 +++|          SCN    2
07781  M01S01118.274l797 +++|          LMD    AB+4
07782  M01S01119.274l797 +++|          LMN    2
07783  M01S01120.274l797 +++|          SHN    11-1
07784  M01S01121.274l797 +++|          STM    TDDB+DVED
07785  M01S01122.274l797 +++|          JMP    KWP5        RETURN
07786  M01S01123.274l797 +++| PMC      SPACE  4,10
07787  M01S01124.274l797 +++|***       MC=N.
07788  M01S01125.274l797 +++|*
07789  M01S01126.274l797 +++|*         ESM SIDE DOOR PORT CHANNEL NUMBER.
07790  M01S01127.274l797 +++|*         N = 0-13B, 20B-33B.
07791  M01S01128.274l797 +++|
07792  M01S01129.274l797 +++|
07793  M01S01130.274l797 +++| PMC      DATA   H*MC*
07794  M01S01131.274l797 +++|          RJM    CDR         ASSEMBLE CHANNEL NUMBER
07795  M01S01132.274l797 +++|          LDC    LDNI        SET FIRST CHANNEL
07796  M01S01133.274l797 +++|          STM    VCNA
07797  M01S01134.274l797 +++|          RJM    VCN         VALIDATE CHANNEL NUMBER
07798  M01S01135.274l797 +++|          RJM    STV         STORE VALUE
07799  M01S01136.274l797 +++|          JMP    KWP5        RETURN
07800  M01S00251.284l847 +++| PPN      SPACE  4,10
07801  M01S00252.284l847 +++|***       PN=N.
07802  M01S00253.284l847 +++|*
07803  M01S00254.284l847 +++|*         PARTITION NUMBER.
07804  M01S00255.284l847 +++|*         PN = 1-17B
07805  M01S00256.284l847 +++|
07806  M01S00257.284l847 +++| PPN      DATA   H*PN*
07807  M01S00258.284l847 +++|          RJM    AOD         ASSEMBLE PARTITION NUMBER
07808  M01S00259.284l847 +++|          LDM    MSSL,MS
07809  M01S00260.284l847 +++|          LPN    17B
07810  M01S00261.284l847 +++|          ADN    1
07811  M01S00262.284l847 +++|          SBD    AB+4
07812  M01S00263.284l847 +++|          SBM    PEIB        CHECK NUMBER OF PARTITIONS
07813  M01S00264.284l847 +++|          MJN    PPN1        IF PARTITION OUT OF RANGE
07814  M01S00265.284l847 +++|          LDD    AB+4        SAVE FIRST PARTITION NUMBER
07815  M01S00266.284l847 +++|          STM    PEIC
07816  M01S00267.284l847 +++|          AOM    PEIA        INDICATE *PN* PARAMETER PROCESSED.
07817  M01S00268.284l847 +++|          JMP    KWP5        RETURN
07818  M01S00269.284l847 +++|
07819  M01S00270.284l847 +++| PPN1     JMP    ILL         PROCESS INCORRECT ENTRY
07820  M01S01137.274l797 +++| PST      SPACE  4,10
07821  M01S01138.274l797 +++|***       ST=STATUS.
07822  M01S01139.274l797 +++|*
07823  M01S01140.274l797 +++|*         DEVICE STATUS.
07824  M01S01141.274l797 +++|*         STATUS = *ON* OR *IDLE* OR *OFF* OR *DOWN*.
07825  M01S01142.274l797 +++|*
07826  M01S01143.274l797 +++|*         *ON* OR *IDLE* = EQUIPMENT AVAILABLE FOR ACCESS.
07827  M01S01144.274l797 +++|*         *OFF* OR *DOWN* = EQUIPMENT UNAVAILABLE FOR ACCESS.
07828  M01S01145.274l797 +++|*
07829  M01S01146.274l797 +++|*         *OFF* OR *DOWN* IS NOT VALID FOR AN EQUIPMENT WHICH IS
07830  M01S01147.274l797 +++|*         DEFINED AS A SYSTEM, FAMILY, OR CHECKPOINT DEVICE.
07831  M01S01148.274l797 +++|
07832  M01S01149.274l797 +++|
07833  M01S01150.274l797 +++| PST      DATA   H*ST*
07834  M01S01151.274l797 +++|          RJM    AST         ASSEMBLE STATUS
07835  M01S01152.274l797 +++|          ZJN    PST3        IF *ON*
07836  M01S01153.274l797 +++|          LPN    2
07837  M01S01154.274l797 +++|          NJN    PST2        IF *OFF* OR *DOWN*
07838  M01S01155.274l797 +++|          UJN    PST3        PROCESS *IDLE*
07839  M01S01156.274l797 +++|
07840  M01S01157.274l797 +++| PST1     JMP    ILL         PROCESS INCORRECT ENTRY
07841  M01S01158.274l797 +++|
07842  M01S01159.274l797 +++| PST2     LDD    CN
07843  M01S01160.274l797 +++|          SHN    21-12
07844  M01S01161.274l797 +++|          MJN    PST1        IF SYSTEM DEVICE
07845  M01S01162.274l797 +++|          LDM    .PFNL+3
07846  M01S01163.274l797 +++|          SBD    EQ
07847  M01S01164.274l797 +++|          ZJN    PST1        IF FAMILY EQUIPMENT
07848  M01S01165.274l797 +++|          LDM    TDDB+DVPR
07849  M01S01166.274l797 +++|          LPN    2
07850  M01S01167.274l797 +++|          NJN    PST1        IF CHECKPOINT DEVICE
07851  M01S01168.274l797 +++| PST3     RJM    STV         STORE VALUE
07852  M01S01169.274l797 +++|          JMP    KWP5        RETURN
07853  M01S01170.274l797 +++| PSZ      SPACE  4,10
07854  M01S01171.274l797 +++|***       SZ=N.
07855  M01S01172.274l797 +++|*
07856  M01S01173.274l797 +++|*         SIZE OF EXTENDED MEMORY.
07857  M01S01174.274l797 +++|*         N = VALUE  (ECS 1 AVAILABLE)  (ECS 2, ESM, OR LCME AVAILABLE)
07858  M01S01175.274l797 +++|*             400B   (125K)             (131K)
07859  M01S01176.274l797 +++|*             1000B  (250K)             (262K)
07860  M01S01177.274l797 +++|*             2000B  (500K)             (524K)
07861  M01S01178.274l797 +++|*             4000B  (1000K)            (1048K)
07862  M01S01179.274l797 +++|*             10000B (2000K)            (2096K)
07863  M01S01180.274l797 +++|*
07864  M01S01181.274l797 +++|*         N = 10B (4K) THROUGH 10000B-MINCM (2000K-MINCM) FOR UEM.
07865  M01S01182.274l797 +++|*
07866  M01S01183.274l797 +++|*         FOR UEM, ECS 2, LCM AND ESM, SZ MAY BE ANY VALUE BETWEEN AND
07867  M01S01184.274l797 +++|*         INCLUDING 10B (4K WORDS) AND 10000B (2M WORDS).  THE SUM OF
07868  M01S01185.274l797 +++|*         UEM SIZE + NVE SIZE + MINCM SIZE (65K USED IF NOT SPECIFIED)
07869  M01S01186.274l797 +++|*         MUST BE .LE. THE PHYSICAL MAIN MEMORY SIZE RETURNED BY *CTI*.
07870  M01S01187.274l797 +++|*
07871  M01S01188.274l797 +++|*         FOR UEM AND ESM, *SZ* MAY BE UP TO 100000B (16M WORDS).
07872  M01S01189.274l797 +++|
07873  M01S01190.274l797 +++|
07874  M01S01191.274l797 +++| PSZ      DATA   H*SZ*
07875  M01S01192.274l797 +++|          RJM    AOD         ASSEMBLE SIZE
07876  M01S01193.274l797 +++|          STM    TDDB+DVES+1
07877  M01S01194.274l797 +++|          LDD    AB+3
07878  M01S01195.274l797 +++|          STM    TDDB+DVES
07879  M01S01196.274l797 +++|          SCN    17
07880  M01S01197.274l797 +++|          NJN    PSZ1        IF TOO MANY DIGITS
07881  M01S01198.274l797 +++|          LDM    EBUT+7
07882  M01S01199.274l797 +++|          LPC    300
07883  M01S01200.274l797 +++|          STD    T1          SAVE PREVIOUS XM SHIFT
07884  M01S01201.274l797 +++|          LDD    AB+3
07885  M01S01202.274l797 +++|          SHN    14
07886  M01S01203.274l797 +++|          LMD    AB+4
07887  M01S01204.274l797 +++|          SBN    10
07888  M01S01205.274l797 +++|          PJN    PSZ2        IF .GE. 10K
07889  M01S01206.274l797 +++| PSZ1     JMP    ILL         PROCESS INCORRECT ENTRY
07890  M01S01207.274l797 +++|
07891  M01S01208.274l797 +++| PSZ2     ADN    10-1
07892  M01S01209.274l797 +++|          SHN    -14
07893  M01S01210.274l797 +++|          ZJN    PSZ5        IF .LE. 2M WORDS
07894  M01S01211.274l797 +++|          SHN    -1
07895  M01S01212.274l797 +++|          ZJN    PSZ4        IF .LE. 4M WORDS
07896  M01S01213.274l797 +++|          SHN    -1
07897  M01S01214.274l797 +++|          ZJN    PSZ3        IF .LE. 8M WORDS
07898  M01S01215.274l797 +++|          SHN    -1
07899  M01S01216.274l797 +++|          NJN    PSZ1        IF .GT. 16M WORDS
07900  M01S01217.274l797 +++|          LDN    1
07901  M01S01218.274l797 +++| PSZ3     ADN    1
07902  M01S01219.274l797 +++| PSZ4     ADN    1
07903  M01S01220.274l797 +++| PSZ5     SHN    6
07904  M01S01221.274l797 +++|          SBD    T1
07905  M01S01222.274l797 +++|          MJN    PSZ6        IF PREVIOUS SHIFT OKAY
07906  M01S01223.274l797 +++|          RAM    EBUT+7
07907  M01S01224.274l797 +++| PSZ6     JMP    KWP5        RETURN
07908  M01S01225.274l797 +++| PTS      SPACE  4,10
07909  M01S01226.274l797 +++|***       TS=N.
07910  M01S01227.274l797 +++|*
07911  M01S01228.274l797 +++|*         TRACK SIZE FOR EXTENDED MEMORY.
07912  M01S01229.274l797 +++|*         N = VALUE  (TRACK SIZE IN SECTORS)
07913  M01S01230.274l797 +++|*             20     (20B)
07914  M01S01231.274l797 +++|*             40     (40B)
07915  M01S01232.274l797 +++|*             100    (100B)
07916  M01S01233.274l797 +++|*             200    (200B)
07917  M01S01234.274l797 +++|*
07918  M01S01235.274l797 +++|*         EXTENDED MEMORY MAY BE ALLOCATED IN TRACKS OF 20B, 40B, 100B
07919  M01S01236.274l797 +++|*         AND 200B SECTORS, ALLOWING THE SIZE OF EXTENDED MEMORY TO
07920  M01S01237.274l797 +++|*         EXCEED THE PREVIOUS 2M WORD LIMIT AND EXTEND TO 16MW.
07921  M01S01238.274l797 +++|
07922  M01S01239.274l797 +++|
07923  M01S01240.274l797 +++| PTS      DATA   H*TS*
07924  M01S01241.274l797 +++|          LDM    EBUT+7      SAVE PREVIOUS XM SHIFT
07925  M01S01242.274l797 +++|          LPC    300
07926  M01S01243.274l797 +++|          STD    T3
07927  M01S01244.274l797 +++|          RJM    AOD         ASSEMBLE TRACK SIZE
07928  M01S01245.274l797 +++|          SBN    20
07929  M01S01246.274l797 +++|          ZJN    PTS3        IF 20B
07930  M01S01247.274l797 +++|          SBN    40-20
07931  M01S01248.274l797 +++|          ZJN    PTS2        IF 40B
07932  M01S01249.274l797 +++|          SBN    100-40
07933  M01S01250.274l797 +++|          ZJN    PTS1        IF 100B
07934  M01S01251.274l797 +++|          SBD    HN
07935  M01S01252.274l797 +++|          NJN    PTS4        IF NOT 200B
07936  M01S01253.274l797 +++|          LDN    1
07937  M01S01254.274l797 +++| PTS1     ADN    1
07938  M01S01255.274l797 +++| PTS2     ADN    1
07939  M01S01256.274l797 +++|          SHN    6
07940  M01S01257.274l797 +++|          SBD    T3
07941  M01S01258.274l797 +++|          MJN    PTS3        IF PREVIOUS SHIFT OKAY
07942  M01S01259.274l797 +++|          RAM    EBUT+7
07943  M01S01260.274l797 +++| PTS3     JMP    KWP5        RETURN
07944  M01S01261.274l797 +++|
07945  M01S01262.274l797 +++| PTS4     JMP    ILL         PROCESS INCORRECT ENTRY
07946  M01S01263.274l797 +++| PUN      SPACE  4,10
07947  M01S01264.274l797 +++|***       UN=U1.
07948  M01S01265.274l797 +++|*         UN=U1/.../UN.
07949  M01S01266.274l797 +++|*         UN=U1-UN.  (HORIZONTALLY CONTIGUOUS UNITS)
07950  M01S01267.274l797 +++|*
07951  M01S01268.274l797 +++|*         UNIT NUMBER.
07952  M01S01269.274l797 +++|*         UN = 0-77B (MAXIMUM UNIT NUMBER AND NUMBER OF UNITS
07953  M01S01270.274l797 +++|*              ALLOWED ARE DEVICE TYPE DEPENDENT.)
07954  M01S01271.274l797 +++|
07955  M01S01272.274l797 +++| PUN      DATA   H*UN*
07956  M01S01273.274l797 +++|          LDI    KA
07957  M01S01274.274l797 +++|          SBN    1R8
07958  M01S01275.274l797 +++|          PJN    PUN1        IF NULL UNIT PARAMETER
07959  M01S01276.274l797 +++|          RJM    CDR         ASSEMBLE UNIT NUMBER

Line S01277 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07960  M02S01277.284l847 ---|          LDD    CN

Line S01278 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07961  M02S01278.284l847 ---|          SHN    21-13

Line S01279 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07962  M02S01279.284l847 ---|          MJN    PUN5        IF MASS STORAGE DEVICE
07963  M01S01280.274l797 +++|          RJM    CSC
07964  M01S00271.284l847 +++|          ZJN    PUN3        IF SINGLE UNIT SPECIFIED
07965  M01S00272.284l847 +++|          LMN    1R/&1R,
07966  M01S00273.284l847 +++|          ZJN    PUN3        IF MULTIPLE UNITS SPECIFIED
07967  M01S00274.284l847 +++|          LMN    1R-&1R/
07968  M01S01281.274l797 +++|          NJN    PUN1        IF INCORRECT SEPARATOR

Line S01282 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07969  M02S01282.284l847 ---|          LDM    2,MS

Line S01283 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07970  M02S01283.284l847 ---|          SHN    -6

Line S01284 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07971  M02S01284.284l847 ---|          SBD    AB+4

Line S01285 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07972  M02S01285.284l847 ---|          PJN    PUN2        IF UNIT NUMBER .LE. LIMIT

Line S01286 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07973  M02S01286.284l847 ---| PUN1     JMP    ILL         PROCESS INCORRECT ENTRY

Line S01287 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07974  M02S01287.284l847 ---|

Line S01288 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07975  M02S01288.284l847 ---| PUN2     LDD    CN+3        CHECK DEVICE TYPE

Line S01289 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07976  M02S01289.284l847 ---|          SBK    2RCS

Line S01290 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07977  M02S01290.284l847 ---|          MJN    PUN3        IF NOT *CS*

Line S01291 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07978  M02S01291.284l847 ---|          SBN    1RT-1RS+1

Line S01292 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07979  M02S01292.284l847 ---|          PJN    PUN3        IF NOT *CT*

Line S01293 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07980  M02S01293.284l847 ---|          LDD    AB+4

Line S01294 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07981  M02S01294.284l847 ---|          SHN    3           POSITION UNIT NUMBER

Line S01295 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07982  M02S01295.284l847 ---|          STD    AB+4

Line S01296 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07983  M02S01296.284l847 ---|          LDD    CN+4

Line S01297 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07984  M02S01297.284l847 ---|          SCN    30

Line S01298 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07985  M02S01298.284l847 ---|          UJN    PUN4        STORE UNIT NUMBER

Line S01299 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07986  M02S01299.284l847 ---|

Line S01300 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07987  M02S01300.284l847 ---| PUN3     LDD    CN+4        SET UNIT NUMBER FOR *MT* OR *NT*

Line S01301 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07988  M02S01301.284l847 ---|          SCN    17

Line S01302 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07989  M02S01302.284l847 ---| PUN4     ADD    AB+4

Line S01303 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07990  M02S01303.284l847 ---|          STD    CN+4

Line S01304 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07991  M02S01304.284l847 ---|          JMP    KWP5        RETURN

Line S01305 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07992  M02S01305.284l847 ---|

Line S01306 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07993  M02S01306.284l847 ---| PUN5     RJM    CSC

Line S01307 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07994  M02S01307.284l847 ---|          ZJN    PUN6        IF SINGLE UNIT SPECIFIED

Line S01308 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07995  M02S01308.284l847 ---|          LMN    1R/&1R,

Line S01309 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07996  M02S01309.284l847 ---|          ZJN    PUN6        IF MULTIPLE UNITS SPECIFIED

Line S01310 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07997  M02S01310.284l847 ---|          LMN    1R-&1R/

Line S01311 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
07998  M02S01311.284l847 ---|          NJN    PUN7        IF INCORRECT SEPARATOR
07999  M01S01312.274l797 +++|          LDD    AB+4        SAVE FIRST UNIT NUMBER
08000  M01S01313.274l797 +++|          STD    T6
08001  M01S01314.274l797 +++|          AOD    KA
08002  M01S01315.274l797 +++|          RJM    CDR         ASSEMBLE LAST UNIT NUMBER
08003  M01S01316.274l797 +++|          RJM    CSC

Line S01317 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08004  M02S01317.284l847 ---|          NJN    PUN7        IF INCORRECT SEPARATOR

Line S01318 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08005  M02S01318.284l847 ---|          LDD    AB+4        SET LAST UNIT NUMBER
08006  M01S00275.284l847 +++|          ZJN    PUN2        IF NOT INCORRECT SEPARATOR
08007  M01S00276.284l847 +++| PUN1     JMP    ILL         PROCESS INCORRECT ENTRY
08008  M01S00277.284l847 +++|
08009  M01S00278.284l847 +++| PUN2     LDD    AB+4        SET LAST UNIT NUMBER
08010  M01S01319.274l797 +++|          RAM    SUNA
08011  M01S01320.274l797 +++|          LDD    T6
08012  M01S01321.274l797 +++|          SBD    AB+4

Line S01322 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08013  M02S01322.284l847 ---|          PJN    PUN7        IF INCORRECT RANGE
08014  M01S00279.284l847 +++|          PJN    PUN1        IF INCORRECT RANGE
08015  M01S01323.274l797 +++|          RAD    AB+4        RESET FIRST UNIT NUMBER

Line S01324 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08016  M02S01324.284l847 ---| PUN6     RJM    SUL         SET UNIT LIST
08017  M01S00280.284l847 +++| PUN3     LDM    MSUL,MS     SET UP MAXIMUM UNIT NUMBER
08018  M01S00281.284l847 +++|          LPN    77
08019  M01S00282.284l847 +++|          RAM    SUNC
08020  M01S00283.284l847 +++|          LDC    DVUNL*10000B+TDDB+DVUN  DESCRIPTOR TABLE WORD/COUNT
08021  M01S00284.284l847 +++|          RJM    SUL         SET UNIT LIST
08022  M01S01325.274l797 +++|          LDM    MSUL,MS     CHECK UNIT COUNT
08023  M01S01326.274l797 +++|          SHN    -6
08024  M01S01327.274l797 +++|          LPN    7
08025  M01S01328.274l797 +++|          SBD    T6

Line S01329 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08026  M02S01329.284l847 ---|          PJN    PUN8        IF VALID UNIT COUNT

Line S01330 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08027  M02S01330.284l847 ---| PUN7     JMP    ILL         PROCESS INCORRECT ENTRY

Line S01331 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08028  M02S01331.284l847 ---|

Line S01332 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08029  M02S01332.284l847 ---| PUN8     LDD    T6          SAVE UNIT COUNT-1
08030  M01S00285.284l847 +++|          MJN    PUN1        IF INCORRECT UNIT COUNT
08031  M01S00286.284l847 +++|          LDD    T6          SAVE UNIT COUNT-1
08032  M01S01333.274l797 +++|          STD    CN+4

Line S01334 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08033  M02S01334.284l847 ---|          LDM    MSAI,MS

Line S01335 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08034  M02S01335.284l847 ---|          LPN    77

Line S01336 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08035  M02S01336.284l847 ---|          ZJN    PUN9        IF NOT *LDAM* TYPE DEVICE
08036  M01S00287.284l847 +++|          LDM    MSNT,MS
08037  M01S00288.284l847 +++|          SHN    0-13
08038  M01S00289.284l847 +++|          ZJN    PUN4        IF NOT *LDAM* TYPE DEVICE
08039  M01S01337.274l797 +++|          LDD    CN          SET *LDAM* STATUS IN EST
08040  M01S01338.274l797 +++|          LPC    7577
08041  M01S01339.274l797 +++|          ADC    200
08042  M01S01340.274l797 +++|          STD    CN

Line S01341 Modification History
`M01` (Added by)	`274l797`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
08043  M02S01341.284l847 ---| PUN9     JMP    KWP5        RETURN
08044  M01S00290.284l847 +++| PUN4     JMP    KWP5        RETURN
08045  M01S01342.274l797 +++|          TITLE  MISCELLANEOUS KEYWORD SUBROUTINES.
08046  M01S01343.274l797 +++|          AODSUB
08047  M01S01344.274l797 +++| AST      SPACE  4,15
08048  M01S01345.274l797 +++|**        AST - ASSEMBLE STATUS.
08049  M01S01346.274l797 +++|*
08050  M01S01347.274l797 +++|*         EXIT   (A) = (AB+4) = STATUS.
08051  M01S01348.274l797 +++|*                      0 = ON.
08052  M01S01349.274l797 +++|*                      1 = IDLE.
08053  M01S01350.274l797 +++|*                      2 = OFF.
08054  M01S01351.274l797 +++|*                      3 = DOWN.
08055  M01S01352.274l797 +++|*
08056  M01S01353.274l797 +++|*         USES   KB, ST.
08057  M01S01354.274l797 +++|*
08058  M01S01355.274l797 +++|*         CALLS  AKL7.
08059  M01S01356.274l797 +++|
08060  M01S01357.274l797 +++|
08061  M01S01358.274l797 +++| AST1     DATA   C*DOWN*
08062  M01S01359.274l797 +++|          LDN    3
08063  M01S01360.274l797 +++|          UJN    AST5        SET *DOWN* STATUS
08064  M01S01361.274l797 +++|
08065  M01S01362.274l797 +++| AST2     DATA   C*OFF*
08066  M01S01363.274l797 +++|          LDN    2
08067  M01S01364.274l797 +++|          UJN    AST5        SET *OFF* STATUS
08068  M01S01365.274l797 +++|
08069  M01S01366.274l797 +++| AST3     DATA   C*IDLE*
08070  M01S01367.274l797 +++|          LDN    1
08071  M01S01368.274l797 +++|          UJN    AST5        SET *IDLE* STATUS
08072  M01S01369.274l797 +++|
08073  M01S01370.274l797 +++| AST4     DATA   C*ON*
08074  M01S01371.274l797 +++|          LDN    0
08075  M01S01372.274l797 +++| AST5     STD    AB+4        SET STATUS
08076  M01S01373.274l797 +++|
08077  M01S01374.274l797 +++| AST      SUBR               ENTRY/EXIT
08078  M01S01375.274l797 +++|          LDC    ASTA-1
08079  M01S01376.274l797 +++|          STD    ST          SET SYNTAX TABLE ADDRESS
08080  M01S01377.274l797 +++|          LDD    KA
08081  M01S01378.274l797 +++|          STD    KB
08082  M01S01379.274l797 +++|          LJM    AKL7        ASSEMBLE STATUS
08083  M01S01380.274l797 +++|
08084  M01S01381.274l797 +++|
08085  M01S01382.274l797 +++| ASTA     CON    AST4
08086  M01S01383.274l797 +++|          CON    AST2
08087  M01S01384.274l797 +++|          CON    AST1
08088  M01S01385.274l797 +++|          CON    AST3
08089  M01S01386.274l797 +++|          CON    0           END OF STATUS SYNTAX TABLE
08090  M01S01387.274l797 +++|          CDRSUB
08091  M01S01388.274l797 +++| CET      SPACE  4,10
08092  M01S01389.274l797 +++|**        CET - CHECK EXTENDED MEMORY TYPE.
08093  M01S01390.274l797 +++|*
08094  M01S01391.274l797 +++|*         ENTRY  (A) = 6/TL,12/TA.
08095  M01S01392.274l797 +++|*                      TL = TABLE LENGTH.
08096  M01S01393.274l797 +++|*                      TA = FWA OF TABLE.
08097  M01S01394.274l797 +++|*
08098  M01S01395.274l797 +++|*         EXIT   OPTION MERGED INTO *DILL* BYTE 3.
08099  M01S01396.274l797 +++|*                TO *ILL* IF ERROR.
08100  M01S01397.274l797 +++|*                (KA) ADVANCED.
08101  M01S01398.274l797 +++|*
08102  M01S01399.274l797 +++|*         USES   AB, T1, T7.
08103  M01S01400.274l797 +++|
08104  M01S01401.274l797 +++|
08105  M01S01402.274l797 +++| CET      SUBR               ENTRY/EXIT
08106  M01S01403.274l797 +++|          STD    T7
08107  M01S01404.274l797 +++|          SHN    -14
08108  M01S01405.274l797 +++|          ADD    T7          SET LWA+1 OF TABLE
08109  M01S01406.274l797 +++|          STD    T1
08110  M01S01407.274l797 +++|          LDI    KA          ASSEMBLE NAME
08111  M01S01408.274l797 +++|          SHN    6
08112  M01S01409.274l797 +++|          LMM    1,KA
08113  M01S01410.274l797 +++|          STD    AB
08114  M01S01411.274l797 +++|          LDN    2           ADVANCE CHARACTER ADDRESS
08115  M01S01412.274l797 +++|          RAD    KA
08116  M01S01413.274l797 +++| CET1     LCN    3           SEARCH OPTION TABLE
08117  M01S01414.274l797 +++|          RAD    T1
08118  M01S01415.274l797 +++|          SBD    T7
08119  M01S01416.274l797 +++|          PJN    CET3        IF MORE OPTIONS
08120  M01S01417.274l797 +++| CET2     JMP    ILL         PROCESS INCORRECT ENTRY
08121  M01S01418.274l797 +++|
08122  M01S01419.274l797 +++| CET3     LDI    T1
08123  M01S01420.274l797 +++|          LMD    AB
08124  M01S01421.274l797 +++|          NJN    CET1        IF OPTION NOT FOUND
08125  M01S01422.274l797 +++|          LDM    2,T1        CHECK MAINFRAME REQUIREMENTS
08126  M01S01423.274l797 +++|          SHN    -6
08127  M01S01424.274l797 +++|          LPN    7
08128  M01S01425.274l797 +++|          SBN    3
08129  M01S01426.274l797 +++|          MJN    CET6        IF ECS OR PATH TYPE/CPU TYPE OPTION
08130  M01S01427.274l797 +++|          ZJN    CET4        IF LCME
08131  M01S01428.274l797 +++|          SBN    4-3
08132  M01S01429.274l797 +++|          NJN    CET6        IF NOT UEM
08133  M01S01430.274l797 +++|          LDD    CN+3
08134  M01S01431.274l797 +++|          LMC    2RDE
08135  M01S01432.274l797 +++|          NJN    CET2        IF UEM AND NOT TYPE *DE*
08136  M01S01433.274l797 +++|          LDD    HO
08137  M01S01434.274l797 +++|          SHN    21-13
08138  M01S01435.274l797 +++|          PJN    CET6        IF CM EXTENSION ON MAINFRAME
08139  M01S01436.274l797 +++|          UJN    CET2        PROCESS INCORRECT ENTRY
08140  M01S01437.274l797 +++|
08141  M01S01438.274l797 +++| CET4     LDD    HO
08142  M01S01439.274l797 +++|          SHN    21-11
08143  M01S01440.274l797 +++|          PJN    CET2        IF NOT CYBER 176
08144  M01S01441.274l797 +++| CET6     LDM    1,T1        SET MASK
08145  M01S01442.274l797 +++|          STM    CETA
08146  M01S01443.274l797 +++|          LDM    TDDB+DVED   MERGE NEW OPTION INTO *DILL* BYTE 3
08147  M01S01444.274l797 +++|          LPC    **
08148  M01S01445.274l797 +++| CETA     EQU    *-1
08149  M01S01446.274l797 +++|          LMM    2,T1
08150  M01S01447.274l797 +++|          STM    TDDB+DVED
08151  M01S01448.274l797 +++|          LJM    CETX        RETURN
08152  M01S01449.274l797 +++| CSC      SPACE  4,10
08153  M01S01450.274l797 +++|**        CSC - CHECK SEPARATOR CHARACTER.
08154  M01S01451.274l797 +++|*
08155  M01S01452.274l797 +++|*         ENTRY  (KA) = ADDRESS OF SEPARATOR CHARACTER
08156  M01S01453.274l797 +++|*
08157  M01S01454.274l797 +++|*         EXIT   (A) = 0 IF SEPARATOR CHARACTER IS *,* OR *.*.
08158  M01S01455.274l797 +++|
08159  M01S01456.274l797 +++|
08160  M01S01457.274l797 +++| CSC      SUBR               ENTRY/EXIT
08161  M01S01458.274l797 +++|          LDI    KA
08162  M01S01459.274l797 +++|          LMN    1R.
08163  M01S01460.274l797 +++|          ZJN    CSCX        IF *.*
08164  M01S01461.274l797 +++|          LMN    1R,&1R.
08165  M01S01462.274l797 +++|          UJN    CSCX        RETURN

Line S00291 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08166  M02S00291.ns2783  ---| SPE      SPACE  4,20

Line S00292 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08167  M02S00292.ns2783  ---|**        SPE - SYNCHRONIZE PARTITIONS AND ENTER EQUIPMENT.

Line S00293 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08168  M02S00293.ns2783  ---|*

Line S00294 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08169  M02S00294.ns2783  ---|*         ENTRY  (EBUT) = EQUIPMENT EST ENTRY.

Line S00295 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08170  M02S00295.ns2783  ---|*                (TDDB) = MST ENTRY IF MASS STORAGE.

Line S00296 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08171  M02S00296.ns2783  ---|*                (EB) = EBUF ADDRESS.

Line S00297 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08172  M02S00297.ns2783  ---|*                (EQ) = DEVICE ENTRY TABLE NUMBER.

Line S00298 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08173  M02S00298.ns2783  ---|*                (ET) = TDDE ADDRESS.

Line S00299 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08174  M02S00299.ns2783  ---|*

Line S00300 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08175  M02S00300.ns2783  ---|*         EXIT   (EBUT) ENTRY IN EBUF.

Line S00301 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08176  M02S00301.ns2783  ---|*                (TDDB) ENTRY IN TDDE IF MASS STORAGE.

Line S00302 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08177  M02S00302.ns2783  ---|*

Line S00303 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08178  M02S00303.ns2783  ---|*         USES   CM, T1.

Line S00304 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08179  M02S00304.ns2783  ---|*

Line S00305 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08180  M02S00305.ns2783  ---|*         CALLS  EEB.

Line S00306 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08181  M02S00306.ns2783  ---|

Line S00307 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08182  M02S00307.ns2783  ---|

Line S00308 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08183  M02S00308.ns2783  ---| SPE8     RJM    EEB         ENTER EQUIPMENT INTO BUFFER

Line S00309 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08184  M02S00309.ns2783  ---|

Line S00310 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08185  M02S00310.ns2783  ---| SPE      SUBR               ENTRY/EXIT

Line S00311 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08186  M02S00311.ns2783  ---|          LDI    ES

Line S00312 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08187  M02S00312.ns2783  ---|          SHN    21-13

Line S00313 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08188  M02S00313.ns2783  ---|          PJN    SPE8        IF NOT MASS STORAGE

Line S00314 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08189  M02S00314.ns2783  ---|          SHN    21-5-21+13

Line S00315 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08190  M02S00315.ns2783  ---|          PJN    SPE8        IF NOT A BUFFERED DEVICE

Line S00316 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08191  M02S00316.ns2783  ---|          LDM    EBUT+10

Line S00317 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08192  M02S00317.ns2783  ---|          SHN    21-13

Line S00318 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08193  M02S00318.ns2783  ---|          PJN    SPE8        IF NOT A PARTITIONED DEVICE

Line S00319 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08194  M02S00319.ns2783  ---|          LDD    LE

Line S00320 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08195  M02S00320.ns2783  ---|          STD    T1

Line S00321 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08196  M02S00321.ns2783  ---| SPE1     SOD    T1

Line S00322 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08197  M02S00322.ns2783  ---|          ZJN    SPE8        IF SEARCH COMPLETED

Line S00323 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08198  M02S00323.ns2783  ---|          SHN    22-5

Line S00324 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

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

Line S00325 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08200  M02S00325.ns2783  ---|          SHN    6

Line S00326 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08201  M02S00326.ns2783  ---|          CRM    SPEA,ON     READ EQUIPMENT ENTRY

Line S00327 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08202  M02S00327.ns2783  ---|          LDM    EBUT+3

Line S00328 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08203  M02S00328.ns2783  ---|          LMM    SPEA+3

Line S00329 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08204  M02S00329.ns2783  ---|          NJN    SPE1        IF NOT THE SAME DEVICE TYPE

Line S00330 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08205  M02S00330.ns2783  ---|          LDM    EBUT+4

Line S00331 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08206  M02S00331.ns2783  ---|          LMM    SPEA+4

Line S00332 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08207  M02S00332.ns2783  ---|          LPC    MLFPR

Line S00333 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08208  M02S00333.ns2783  ---|          ZJN    SPE1        IF *INITIALIZE,FP* FLAGS ARE THE SAME

Line S00334 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08209  M02S00334.ns2783  ---|          LDC    SPEA        COMPARE CHANNEL ENTRIES

Line S00335 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08210  M02S00335.ns2783  ---|          STD    CM

Line S00336 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08211  M02S00336.ns2783  ---| SPE3     AOD    CM

Line S00337 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08212  M02S00337.ns2783  ---|          LMC    SPEA+3

Line S00338 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08213  M02S00338.ns2783  ---|          ZJN    SPE1        IF ALL OTHER DEVICE CHANNELS CHECKED

Line S00339 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08214  M02S00339.ns2783  ---|          LDD    ES

Line S00340 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08215  M02S00340.ns2783  ---|          STD    T0

Line S00341 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08216  M02S00341.ns2783  ---| SPE4     AOD    T0

Line S00342 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08217  M02S00342.ns2783  ---|          LMC    EBUT+3

Line S00343 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08218  M02S00343.ns2783  ---|          ZJN    SPE3        IF ALL CURRENT DEVICE CHANNELS CHECKED

Line S00344 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08219  M02S00344.ns2783  ---|          LDI    T0          CURRENT CHANNEL

Line S00345 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08220  M02S00345.ns2783  ---|          ZJN    SPE4        IF NO CHANNEL ENTRY

Line S00346 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08221  M02S00346.ns2783  ---|          LMI    CM          OTHER DEVICE CHANNEL

Line S00347 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08222  M02S00347.ns2783  ---|          LPC    4277

Line S00348 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08223  M02S00348.ns2783  ---|          NJN    SPE4        IF CHANNELS ARE NOT THE SAME

Line S00349 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08224  M02S00349.ns2783  ---|          LDD    ET          READ *TDDB* ENTRY

Line S00350 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08225  M02S00350.ns2783  ---|          SHN    4

Line S00351 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08226  M02S00351.ns2783  ---|          ADD    T1

Line S00352 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08227  M02S00352.ns2783  ---|          SHN    2

Line S00353 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08228  M02S00353.ns2783  ---|          ADD    T1

Line S00354 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08229  M02S00354.ns2783  ---|          CRM    SPEB,DV

Line S00355 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08230  M02S00355.ns2783  ---|          LDM    TDDB+DVPR   COMPARE EQUIPMENT NUMBER

Line S00356 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08231  M02S00356.ns2783  ---|          LMM    SPEB+DVPR

Line S00357 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08232  M02S00357.ns2783  ---|          SHN    -11

Line S00358 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

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

Line S00359 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08234  M02S00359.ns2783  ---|          LDM    TDDB+DVPR

Line S00360 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`ns2783`

Seq #  *Modification Id* Act 
----------------------------+
08235  M02S00360.ns2783  ---|          SHN    21-5

Proceed to Part 6