User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:set.005

Deck SET Part 005

79 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
08641  M01S01723.274l797 +++|*                ** = NONSTANDARD EQUIPMENT ENTRY.
08642  M01S01724.274l797 +++|*
08643  M01S01725.274l797 +++|*         AND PARAMETERS WHERE P1,...,PN ARE THE FOLLOWING KEYWORDS
08644  M01S01726.274l797 +++|*
08645  M01S01727.274l797 +++|*                CH = CHANNEL NUMBER(S).
08646  M01S01728.274l797 +++|*                CW = CONTROL MODULE CONTROLWARE.
08647  M01S01729.274l797 +++|*                DR = ACS DRIVE INDEX (WITHIN PANEL).
08648  M01S01730.274l797 +++|*                EQ = EQUIPMENT (CONTROLLER) NUMBER.
08649  M01S01731.274l797 +++|*                FC = FORMS CODE.
08650  M01S01732.274l797 +++|*                IB = INSTALLATION BYTE.
08651  M01S01733.274l797 +++|*                ID = UNIT RECORD ID.
08652  M01S01734.274l797 +++|*                LS = ACS LSM INDEX (WITHIN ACS).
08653  M01S01735.274l797 +++|*                ND = NPU NODE NUMBER.
08654  M01S01736.274l797 +++|*                NT = MDI NODE NUMBER.
08655  M01S01737.274l797 +++|*                PA = ACS PANEL INDEX (WITHIN LSM).
08656  M01S01738.274l797 +++|*                PI = PIP INDEX.
08657  M01S01739.274l797 +++|*                PS = PAPER SIZE.
08658  M01S01740.274l797 +++|*                PT = PORT NUMBER OR NUMBER OF PORTS.
08659  M01S01741.274l797 +++|*                SA = 255X SAM (SYSTEM AUTOSTART MODULE) STATUS.
08660  M01S01742.274l797 +++|*                ST = STATUS.
08661  M01S01743.274l797 +++|*                TF = TAPE FLAGS.
08662  M01S01744.274l797 +++|*                TN = PRINT TRAIN.
08663  M01S01745.274l797 +++|*                UN = UNIT NUMBER.
08664  M01S01746.274l797 +++|*                W0 = OCTAL VALUE OF EST ENTRY - WORD ZERO.
08665  M01S01747.274l797 +++|*                W1 = OCTAL VALUE OF EST ENTRY - WORD ONE.
08666  M01S01748.274l797 +++|
08667  M01S01749.274l797 +++|
08668  M01S01750.274l797 +++| EQM      BSS    0
08669  M01S01751.274l797 +++|          LDN    2           ADVANCE CHARACTER ADDRESS
08670  M01S01752.274l797 +++|          RAD    KA
08671  M01S01753.274l797 +++|          RJM    CDR         ASSEMBLE DIGITS
08672  M01S01754.274l797 +++|          LMN    1R=
08673  M01S01755.274l797 +++|          ZJN    EQM2        IF *=*
08674  M01S01756.274l797 +++| EQM1     JMP    ILL         PROCESS INCORRECT ENTRY
08675  M01S01757.274l797 +++|
08676  M01S01758.274l797 +++| EQM2     AOD    KA          SKIP CHARACTER
08677  M01S01759.274l797 +++|          LDD    AB+4        CHECK EST ORDINAL
08678  M01S01760.274l797 +++|          SBN    NOPE
08679  M01S01761.274l797 +++|          MJN    EQM1        IF PSEUDO EQUIPMENT
08680  M01S01762.274l797 +++|          SBK    ESMX-NOPE
08681  M01S01763.274l797 +++|          PJN    EQM1        IF EST ORDINAL EXCEEDS MAXIMUM
08682  M01S01764.274l797 +++|          LDD    AB+4        SET EST ORDINAL
08683  M01S01765.274l797 +++|          RJM    STA         READ EBUF ENTRY
08684  M01S01766.274l797 +++|          RJM    CDR
08685  M01S01767.274l797 +++|          LMN    1R.
08686  M01S01768.274l797 +++|          NJP    EQM5        IF NOT *EQXXX=.*
08687  M01S01769.274l797 +++|          LDD    AB+4
08688  M01S01770.274l797 +++|          NJN    EQM1        IF *EQXXX = N.*
08689  M01S01771.274l797 +++|          RJM    CDC         CLEAR ISMD CHANNELS
08690  M01S01772.274l797 +++|          LDN    0
08691  M01S01773.274l797 +++|          CRD    CN          CLEAR DEVICE DESCRIPTION
08692  M01S01774.274l797 +++|          CRM    EBUT+5,ON
08693  M01S01775.274l797 +++|          ERRNG  5-TDDCL     CODE DEPENDS ON VALUE
08694  M01S01776.274l797 +++|          CRM    TDDB,DV
08695  M01S01777.274l797 +++|          LDD    EQ
08696  M01S01778.274l797 +++|          LMD    EN
08697  M01S01779.274l797 +++|          NJN    EQM4        IF NOT EXTENDED MEMORY EQUIPMENT
08698  M01S01780.274l797 +++|          STD    EN          CLEAR EST ORDINAL
08699  M01S01781.274l797 +++|          STM    EMSC        DE/DP SHIFT COUNT
08700  M01S01782.274l797 +++|          LDN    TAXXL       CLEAR EXTENDED MEMORY ALLOCATION TABLES
08701  M01S01783.274l797 +++|          STD    T1
08702  M01S01784.274l797 +++|          LDD    EQ
08703  M01S01785.274l797 +++|          LMN    LDEQ
08704  M01S01786.274l797 +++|          NJN    EQM3        IF NOT LINK DEVICE
08705  M01S01787.274l797 +++|          STD    PD
08706  M01S01788.274l797 +++| EQM3     LDN    0
08707  M01S01789.274l797 +++|          STM    TAXM-1,T1
08708  M01S01790.274l797 +++|          SOD    T1
08709  M01S01791.274l797 +++|          NJN    EQM3        IF MORE TO CLEAR
08710  M01S01792.274l797 +++|          CRM    EMTY,ON
08711  M01S01793.274l797 +++| EQM4     LJM    EQM19       CLEAR EST
08712  M01S01794.274l797 +++|
08713  M01S01795.274l797 +++|*         PROCESS TYPE.
08714  M01S01796.274l797 +++|
08715  M01S01797.274l797 +++| EQM5     LDI    KA          ASSEMBLE TYPE
08716  M01S01798.274l797 +++|          SHN    6
08717  M01S01799.274l797 +++|          LMM    1,KA
08718  M01S01800.274l797 +++|          STD    AB+4
08719  M01S01801.274l797 +++|          LDM    EBUT+3
08720  M01S01802.274l797 +++|          ZJN    EQM7        IF EMPTY ENTRY
08721  M01S01803.274l797 +++|          LMD    AB+4
08722  M01S01804.274l797 +++|          ZJN    EQM8        IF NO CHANGE IN DEVICE TYPE
08723  M01S01805.274l797 +++|          LDD    AB+4
08724  M01S01806.274l797 +++|          LMC    2R**
08725  M01S01807.274l797 +++|          ZJN    EQM8        IF NONSTANDARD EQUIPMENT ENTRY
08726  M01S01808.274l797 +++|          RJM    CDC         CLEAR ISMD CHANNELS
08727  M01S01809.274l797 +++| EQM7     LDN    0           CLEAR DEVICE DESCRIPTION
08728  M01S01810.274l797 +++|          CRD    CN
08729  M01S01811.274l797 +++|          CRM    EBUT+5,ON
Line S00502 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08730  M01S00502.284l847 +++|          ERRNG  5-TDDCL     CODE DEPENDS ON VALUE
Line S01812 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08731  M01S01812.274l797 +++|          CRM    TDDB,DV
08732  M01S01813.274l797 +++|          LDD    AB+4
08733  M01S01814.274l797 +++|          STD    CN+3
08734  M01S01815.274l797 +++|          AOM    TRQP        SET INITIAL ENTRY FLAG
08735  M01S01816.274l797 +++|          UJN    EQM10       SEARCH FOR DEVICE
08736  M01S01817.274l797 +++|
08737  M01S01818.274l797 +++| EQM8     LDN    JSNL        MOVE EST ENTRY TO DIRECT CELLS
08738  M01S01819.274l797 +++|          CWM    EBUT,ON
08739  M01S01820.274l797 +++|          SBN    1
08740  M01S01821.274l797 +++|          CRD    CN
08741  M01S01822.274l797 +++|
08742  M01S01823.274l797 +++|*         SEARCH FOR DEVICE IN EQUIPMENT TYPE TABLE.
08743  M01S01824.274l797 +++|
08744  M01S01825.274l797 +++| EQM10    LDC    TETY-TETYL  SET EQUIPMENT TYPE TABLE
08745  M01S01826.274l797 +++|          STD    MS
08746  M01S01827.274l797 +++| EQM11    LDN    TETYL       ADVANCE TABLE ADDRESS
08747  M01S01828.274l797 +++|          RAD    MS
08748  M01S01829.274l797 +++|          LDI    MS
08749  M01S01830.274l797 +++|          NJN    EQM13       IF NOT END OF TABLE
08750  M01S01831.274l797 +++| EQM12    JMP    ILL         PROCESS INCORRECT ENTRY
08751  M01S01832.274l797 +++|
08752  M01S01833.274l797 +++| EQM13    LMD    AB+4        CHECK TYPE
08753  M01S01834.274l797 +++|          NJN    EQM11       IF NO MATCH
08754  M01S01835.274l797 +++|          LDN    2           SKIP EQUIPMENT MNEMONIC
08755  M01S01836.274l797 +++|          RAD    KA
08756  M01S01837.274l797 +++|          LDM    EQPR,MS
08757  M01S01838.274l797 +++|          STD    T1
08758  M01S01839.274l797 +++|          LDC    TVRK-TVRKL  SET TABLE OF VALID KEYWORDS
08759  M01S01840.274l797 +++|          STD    TA
08760  M01S01841.274l797 +++| EQM16    LDN    TVRKL       ADVANCE TABLE ADDRESS
08761  M01S01842.274l797 +++|          RAD    TA
08762  M01S01843.274l797 +++|          LDI    TA
08763  M01S01844.274l797 +++|          ZJN    EQM12       IF END OF TABLE
08764  M01S01845.274l797 +++|          LMD    AB+4
08765  M01S01846.274l797 +++|          NJN    EQM16       IF NO MATCH
08766  M01S01847.274l797 +++|          LDM    TRQP
08767  M01S01848.274l797 +++|
08768  M01S01849.274l797 +++|**        EXIT TO PROCESSOR WITH -
08769  M01S01850.274l797 +++|*
08770  M01S01851.274l797 +++|*                (A) = (TRQP) = PREVIOUS DEFINITION STATUS.
08771  M01S01852.274l797 +++|*                (CN - CN+4) = WORD TO BUILD EST ENTRY.
08772  M01S01853.274l797 +++|*                (TDDB) = BUFFER TO BUILD *TDDE* ENTRY.
Line S01854 Modification History
M01 (Added by) 274l797
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08773  M02S01854.284l847 ---|*                (MS) = *TMSD* ADDRESS IF MASS STORAGE.
Line S00503 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08774  M01S00503.284l847 +++|*                (MS) = *TETY* ADDRESS.
Line S01855 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08775  M01S01855.274l797 +++|*                (TA) = *TVRK* ENTRY ADDRESS.
08776  M01S01856.274l797 +++|
08777  M01S01857.274l797 +++|          RJM    0,T1
08778  M01S01858.274l797 +++|
08779  M01S01859.274l797 +++|          LDM    TRQP
08780  M01S01860.274l797 +++|          ZJN    EQM20       IF NOT INITIAL ENTRY
08781  M01S01861.274l797 +++| EQM19    RJM    CML         CHECK MASS STORAGE LIMIT
08782  M01S01862.274l797 +++|          RJM    RMD         RESET MASS STORAGE DEVICE
08783  M01S01863.274l797 +++| EQM20    LDN    JSNL
08784  M01S01864.274l797 +++|          CWD    CN          MOVE EST ENTRY TO BUFFER
08785  M01S01865.274l797 +++|          CRM    EBUT,ON
08786  M01S01866.274l797 +++|          RJM    EEB         ENTER EQUIPMENT DEFINITION
08787  M01S01867.274l797 +++|          RJM    EDC         ENTER ISMD CHANNELS
08788  M01S01868.274l797 +++|          RJM    CLE         CHECK LAST EQUIPMENT
08789  M01S01869.274l797 +++|          JMP    KBR         RETURN
08790  M01S01870.274l797 +++| TETY     SPACE  4,10
08791  M01S01871.274l797 +++|****      TETY - TABLE OF EQUIPMENT TYPES.
08792  M01S01872.274l797 +++|*         ENTRY = 3 WORDS.
08793  M01S01873.274l797 +++|*
08794  M01S01874.274l797 +++|*         12/ NAME, 12/ ADDR, 6/ UN, 6/ CH
08795  M01S01875.274l797 +++|*         NAME   EQUIPMENT MNEMONIC
08796  M01S01876.274l797 +++|*         ADDR   ADDRESS OF PROCESSOR
Line S01877 Modification History
M01 (Added by) 274l797
M02 (Removed by) set79
Seq #  *Modification Id* Act 
----------------------------+
08797  M02S01877.set79   ---|*         UN     MAXIMUM UNIT NUMBER ALLOWED
Line S00002 Modification History
M01 (Added by) set79
Seq #  *Modification Id* Act 
----------------------------+
08798  M01S00002.set79   +++|*         UN     MAXIMUM UNIT NUMBER ALLOWED (2**N-1).
Line S01878 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08799  M01S01878.274l797 +++|*         CH     MAXIMUM CHANNELS ALLOWED
08800  M01S01879.274l797 +++|*
08801  M01S01880.274l797 +++|*         NOTE - MASS STORAGE DEVICES ARE IN TABLE *TMSD*.
08802  M01S01881.274l797 +++|
08803  M01S01882.274l797 +++|
08804  M01S01883.274l797 +++| TETY     BSS    0
Line S00504 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08805  M01S00504.284l847 +++| EQPR     EQU    1           PROCESSOR ADDRESS
Line S01884 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08806  M01S01884.274l797 +++|
08807  M01S01885.274l797 +++|*         UNIT RECORD DEVICES.
08808  M01S01886.274l797 +++|
08809  M01S01887.274l797 +++|          TEQP   CP,KWP,0,1
08810  M01S01888.274l797 +++| TETYL    EQU    *-TETY
08811  M01S01889.274l797 +++|          TEQP   CR,KWP,0,1
08812  M01S01890.274l797 +++|          TEQP   LQ,LPT,0,1
08813  M01S01891.274l797 +++|          TEQP   LR,LPT,0,1
08814  M01S01892.274l797 +++|          TEQP   LS,LPT,0,1
08815  M01S01893.274l797 +++|          TEQP   LT,LPT,0,1
08816  M01S01894.274l797 +++|          TEQP   LX,LXT,0,1
08817  M01S01895.274l797 +++|          TEQP   LY,LXT,0,1
08818  M01S01896.274l797 +++|
08819  M01S01897.274l797 +++|*         COMMUNICATIONS / NETWORK DEVICES.
08820  M01S01898.274l797 +++|
08821  M01S01899.274l797 +++|          TEQP   CC,ALD,0,1
08822  M01S01900.274l797 +++|          TEQP   NC,NAD,17,1
08823  M01S01901.274l797 +++|          TEQP   ND,KWP,0,1
08824  M01S01902.274l797 +++|          TEQP   NP,KWP,0,1
08825  M01S01903.274l797 +++|          TEQP   NQ,KWP,0,1
08826  M01S01904.274l797 +++|          TEQP   RM,ALD,1,1
08827  M01S01905.274l797 +++|          TEQP   TT,ALD,10,1
08828  M01S01906.274l797 +++|
08829  M01S01907.274l797 +++|*         *CYBIS* DEVICES.
08830  M01S01908.274l797 +++|
08831  M01S01909.274l797 +++|          TEQP   CI,KWP,7,2
08832  M01S01910.274l797 +++|          TEQP   D1,KWP,7,2
08833  M01S01911.274l797 +++|          TEQP   D2,KWP,7,2
08834  M01S01912.274l797 +++|          TEQP   D3,KWP,7,2
08835  M01S01913.274l797 +++|          TEQP   D4,KWP,7,2
08836  M01S01914.274l797 +++|          TEQP   NI,KWP,7,2
08837  M01S01915.274l797 +++|          TEQP   NO,KWP,7,2
08838  M01S01916.274l797 +++|          TEQP   SP,KWP,7,2
08839  M01S01917.274l797 +++|
08840  M01S01918.274l797 +++|*         MAGNETIC TAPE DEVICES.
08841  M01S01919.274l797 +++|
08842  M01S01920.274l797 +++|          TEQP   AT,MMT,17,2
08843  M01S01921.274l797 +++|          TEQP   CT,MMT,17,2
08844  M01S01922.274l797 +++|          TEQP   MT,MMT,17,2
08845  M01S01923.274l797 +++|          TEQP   NT,MMT,17,2
08846  M01S01924.274l797 +++|
08847  M01S01925.274l797 +++|*         MISCELLANEOUS DEVICES.
08848  M01S01926.274l797 +++|
08849  M01S01927.274l797 +++|          TEQP   CM,CMD,0,2
08850  M01S01928.274l797 +++|          TEQP   MP,KWP,0,1
08851  M01S01929.274l797 +++|          TEQP   OD,ALD,17,1 OPTICAL DISK
08852  M01S01930.274l797 +++|          TEQP   RP,KWP,0,1
08853  M01S01931.274l797 +++|          TEQP   SS,KWP,17,2
08854  M01S01932.274l797 +++|
08855  M01S01933.274l797 +++|*         INSTALLATION DEFINED DEVICES.
08856  M01S01934.274l797 +++|
08857  M01S01935.274l797 +++|          TEQP   **,KWP,0,0
08858  M01S01936.274l797 +++|
08859  M01S01937.274l797 +++|          CON    0           END OF TABLE
08860  M01S01938.274l797 +++|****
08861  M01S01939.274l797 +++|          TITLE  EQUIPMENT DEFINITION PROCESSORS.
08862  M01S01940.274l797 +++| ALD      SPACE  4,10
08863  M01S01941.274l797 +++|**        ALD - PROCESS ALLOCATABLE DEVICE.
08864  M01S01942.274l797 +++|
08865  M01S01943.274l797 +++|
08866  M01S01944.274l797 +++| ALD      SUBR               ENTRY/EXIT
08867  M01S01945.274l797 +++|          ZJN    ALD1        IF NOT INITIAL EQUIPMENT ENTRY
08868  M01S01946.274l797 +++|          LDC    2000        SET ALLOCATABLE DEVICE
08869  M01S01947.274l797 +++|          RAD    CN
08870  M01S01948.274l797 +++| ALD1     RJM    KWP         PROCESS KEYWORDS
08871  M01S01949.274l797 +++|          UJN    ALDX        RETURN
08872  M01S01950.274l797 +++| CMD      SPACE  4,10
08873  M01S01951.274l797 +++|***       EQXXX=CM.
08874  M01S01952.274l797 +++|
08875  M01S01953.274l797 +++|
08876  M01S01954.274l797 +++| CMD      SUBR               ENTRY/EXIT
08877  M01S01955.274l797 +++|          LDM    ISPF
08878  M01S01956.274l797 +++|          SHN    21-13
08879  M01S01957.274l797 +++|          PJN    CMD2        IF CYBER 810/815/825/830
08880  M01S01958.274l797 +++| CMD1     JMP    ILL         PROCESS INCORRECT ENTRY
08881  M01S01959.274l797 +++|
08882  M01S01960.274l797 +++| CMD2     LDM    TRQP
08883  M01S01961.274l797 +++|          ZJN    CMD3        IF NOT INITIAL ENTRY
08884  M01S01962.274l797 +++|          LDN    CMCW        SET DEFAULT CONTROLWARE
08885  M01S01963.274l797 +++|          STD    AB+4
08886  M01S01964.274l797 +++|          LDC    PLCW        SET KEYWORD PARAMETER ADDRESS
08887  M01S01965.274l797 +++|          STD    T3
08888  M01S01966.274l797 +++|          RJM    STV         STORE KEYWORD VALUE
08889  M01S01967.274l797 +++| CMD3     RJM    KWP         PROCESS KEYWORDS
08890  M01S01968.274l797 +++|          LDD    CN+4        GET EQUIPMENT NUMBER
08891  M01S01969.274l797 +++|          SHN    -11
08892  M01S01970.274l797 +++|          STD    T6
08893  M01S01971.274l797 +++|          LDM    TENB,T6
08894  M01S01972.274l797 +++|          ZJN    CMD4        IF UNIQUE EQUIPMENT NUMBER
08895  M01S01973.274l797 +++|          LMD    EQ
08896  M01S01974.274l797 +++|          NJN    CMD1        IF NOT CURRENT EST ORDINAL
08897  M01S01975.274l797 +++| CMD4     RJM    CDC         CLEAR ISMD CHANNELS
08898  M01S01976.274l797 +++|          LDD    EQ          SET EST ORDINAL
08899  M01S01977.274l797 +++|          STM    TENB,T6
08900  M01S01978.274l797 +++|          LJM    CMDX        RETURN
08901  M00S05527.set     +++| LPT      SPACE  4,10
08902  M00S05528.set     +++|***       EQXXX=LQ.
08903  M00S05529.set     +++|*         EQXXX=LR-P.
08904  M00S05530.set     +++|*         EQXXX=LS-P.
08905  M00S05531.set     +++|*         EQXXX=LT-P.
08906  M00S05532.set     +++|*
08907  M00S05533.set     +++|*         IF *-P* IS PRESENT, SPECIFIES 580 PFC PRINTER.
08908  M00S05534.set     +++|
08909  M00S05535.set     +++|
08910  M00S05536.set     +++| LPT1     AOD    KA
08911  M00S05537.set     +++|          LDC    200         SET 580 PFC BIT
08912  M00S05538.set     +++|          RAD    CN
08913  M00S05539.set     +++| LPT2     RJM    KWP         PROCESS KEYWORDS
08914  M00S05540.set     +++|
08915  M00S05541.set     +++| LPT      SUBR               ENTRY/EXIT
08916  M00S05542.set     +++|          LDD    CN          CLEAR 580 PFC BIT
08917  M00S05543.set     +++|          LPC    7577
08918  M00S05544.set     +++|          STD    CN
08919  M00S05545.set     +++|          LDI    KA          CHECK SEPARATOR
08920  M00S05546.set     +++|          LMN    1R-
08921  M00S05547.set     +++|          NJN    LPT2        IF NOT *-*
08922  M00S05548.set     +++|          AOD    KA          SKIP *-*
08923  M00S05549.set     +++|          LDI    KA          CHECK FOR 580 PFC
08924  M00S05550.set     +++|          LMN    1RP
08925  M00S05551.set     +++|          ZJN    LPT1        IF 580 PFC
08926  M00S05552.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
08927  M00S05553.set     +++|LXT       SPACE  4,10
08928  M00S05554.set     +++|***       EQXXX=LX.
08929  M00S05555.set     +++|*         EQXXX=LY.
08930  M00S05556.set     +++|
08931  M00S05557.set     +++|
08932  M00S05558.set     +++| LXT1     RJM    KWP         PROCESS KEYWORDS
08933  M00S05559.set     +++|          LDD    CN+1
08934  M00S05560.set     +++|          LPN    37
08935  M00S05561.set     +++|          STD    T1
08936  M00S05562.set     +++|          LDN    CNCX        SET NO LOAD OF NIP CONTROLWARE
08937  M00S05563.set     +++|          STM    TCHS,T1
08938  M00S05564.set     +++|          RJM    SCC         UPDATE CONTROLWARE TABLE
08939  M00S05565.set     +++|
08940  M00S05566.set     +++| LXT      SUBR               ENTRY/EXIT
08941  M00S05567.set     +++|          LDD    CN
08942  M00S05568.set     +++|          LPN    57
08943  M00S05569.set     +++|          LMN    20          SET CONTROLWARE LOAD REQUIRED
08944  M00S05570.set     +++|          STD    CN
08945  M00S05571.set     +++|          LDC    700         FORCE TRAIN = 7
08946  M00S05572.set     +++|          STD    CN+4
08947  M00S05573.set     +++|          UJN    LXT1        COMPLETE PROCESSING
Line S05574 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08948  M01S05574.274l797 ---| MMT      SPACE  4,10
Line S01979 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08949  M01S01979.274l797 +++| MMT      SPACE  4,20
08950  M00S05575.set     +++|***       EQXXX=MT-N.
08951  M01S01980.274l797 +++|*         EQXXX=NT-N.
08952  M01S01981.274l797 +++|*         EQXXX=CT-N.
08953  M01S01982.274l797 +++|*         EQXXX=AT-N.
Line S05576 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08954  M01S05576.274l797 ---|*         EQXXX=NT-N.
08955  M00S05577.set     ---|*
08956  M00S05578.set     ---|*         *N* CONSECUTIVE EST ENTRIES ARE GENERATED BEGINNING AT *XXX*.
Line S01983 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08957  M01S01983.274l797 +++|*
08958  M00S05579.set     +++|*         THE *N* UNITS BEGIN WITH THE UNIT NUMBER SPECIFIED BY *UN=*
Line S05580 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08959  M01S05580.274l797 ---|*         AND MUST BE NUMBERED CONSECUTIVELY.
Line S01984 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08960  M01S01984.274l797 +++|*         AND MUST BE NUMBERED CONSECUTIVELY.
08961  M01S01985.274l797 +++|*
08962  M01S01986.274l797 +++|*         FOR *AT* UNITS, THE ACS DRIVE INDEXES FOR THE *N* UNITS
08963  M01S01987.274l797 +++|*         BEGIN WITH THE DRIVE INDEX SPECIFIED BY *DR=* AND MUST BE
08964  M01S01988.274l797 +++|*         NUMBERED CONSECUTIVELY.
08965  M01S01989.274l797 +++|*
08966  M01S01990.274l797 +++|*         FOR *CT* AND *AT* UNITS DEFINED WITH DUAL CHANNEL ACCESS,
08967  M01S01991.274l797 +++|*         THE PRIMARY AND SECONDARY CHANNELS WILL BE REVERSED FOR EACH
08968  M01S01992.274l797 +++|*         CONSECUTIVE EST ENTRY GENERATED.
08969  M00S05581.set     +++|
08970  M00S05582.set     +++|
08971  M00S05583.set     +++| MMT      CON    0           ENTRY
08972  M00S05584.set     +++|          LDI    KA          CHECK SEPARATOR
08973  M00S05585.set     +++|          LMN    1R,
08974  M00S05586.set     +++|          ZJN    MMT1        IF *,*
08975  M00S05587.set     +++|          LMN    1R-&1R,
08976  M00S05588.set     +++|          NJN    MMT2        IF NOT *-*
08977  M00S05589.set     +++|          AOD    KA
08978  M00S05590.set     +++|          RJM    CDR         ASSEMBLE NUMBER OF UNITS
08979  M00S05591.set     +++|          LMN    1R,
08980  M00S05592.set     +++|          NJN    MMT2        IF INCORRECT SEPARATOR
08981  M00S05593.set     +++|          LDD    AB+4
08982  M00S05594.set     +++|          ZJN    MMT2        IF NULL UNIT COUNT
08983  M00S05595.set     +++|          SBN    21
08984  M00S05596.set     +++|          PJN    MMT2        IF UNIT COUNT TOO LARGE
08985  M00S05597.set     +++|          ADN    20
08986  M00S05598.set     +++| MMT1     ADN    1           SET UNIT COUNT
08987  M00S05599.set     +++|          STM    MMTA
08988  M00S05600.set     +++|          ADD    EQ
08989  M00S05601.set     +++|          SBK    ESMX+1
08990  M00S05602.set     +++|          MJN    MMT3        IF LAST UNIT DOES NOT EXCEED MAXIMUM
08991  M00S05603.set     +++| MMT2     JMP    ILL         PROCESS INCORRECT ENTRY
08992  M00S05604.set     +++|
08993  M00S05605.set     +++| MMT3     RJM    KWP         PROCESS KEYWORDS
08994  M00S05606.set     +++|          LDD    CN+4
08995  M00S05607.set     +++|          LPN    17
08996  M00S05608.set     +++|          ADM    MMTA
08997  M00S05609.set     +++|          SBN    21
08998  M00S05610.set     +++|          PJN    MMT2        IF UNIT NUMBER OVERFLOW
Line S05611 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08999  M01S05611.274l797 ---|          LDD    EQ
Line S01993 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09000  M01S01993.274l797 +++|          LDD    CN+3
09001  M01S01994.274l797 +++|          LMC    2RAT
09002  M01S01995.274l797 +++|          NJN    MMT3.1      IF NOT *AT* DEVICE
09003  M01S01996.274l797 +++|          LDM    EBUT+5+2
09004  M01S01997.274l797 +++|          LPN    7
09005  M01S01998.274l797 +++|          ADM    MMTA
09006  M01S01999.274l797 +++|          SBN    5
09007  M01S02000.274l797 +++|          PJN    MMT2        IF ACS DRIVE INDEX OVERFLOW
09008  M01S02001.274l797 +++| MMT3.1   LDD    EQ
09009  M00S05612.set     +++|          STD    T6
09010  M00S05613.set     +++|          ADM    MMTA        SET NEXT EST ORDINAL
09011  M00S05614.set     +++|          STD    T7
09012  M00S05615.set     +++| MMT4     LDD    EB          READ PREVIOUS EQUIPMENT DEFINITION
09013  M00S05616.set     +++|          SHN    5
09014  M00S05617.set     +++|          ADD    T6
09015  M00S05618.set     +++|          SHN    1
09016  M00S05619.set     +++|          CRD    AB
09017  M00S05620.set     +++|          LDD    AB          CHECK ORIGINAL EQUIPMENT STATUS
09018  M00S05621.set     +++|          SHN    21-13
Line S05622 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09019  M01S05622.274l797 ---|          MJN    MMT2        IF REDEFINING MS
Line S02002 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09020  M01S02002.274l797 +++|          MJP    MMT2        IF REDEFINING MS
09021  M00S05623.set     +++|          AOD    T6
09022  M00S05624.set     +++|          LMD    T7
09023  M00S05625.set     +++|          NJN    MMT4        IF NOT END OF UNITS
09024  M00S05626.set     +++|          RJM    CHD         CHECK ISMT DUAL CHANNEL ERROR
09025  M00S05627.set     +++|          LDD    CN+1        FIRST CHANNEL
09026  M00S05628.set     +++|          RJM    CHN         CHECK ISMT DUPLICATE CHANNEL ERROR
09027  M00S05629.set     +++|          LDD    CN+2        SECOND CHANNEL
09028  M00S05630.set     +++|          ZJN    MMT5        IF NO SECOND CHANNEL
09029  M00S05631.set     +++|          RJM    CHN         CHECK ISMT DUPLICATE CHANNEL ERROR
09030  M00S05632.set     +++| MMT5     LDD    EB
09031  M00S05633.set     +++|          SHN    5
09032  M00S05634.set     +++|          ADD    EQ          ENTER TAPE DEFINITION IN EST BUFFER
09033  M00S05635.set     +++|          SHN    1
09034  M00S05636.set     +++|          CWD    CN
09035  M00S05637.set     +++|          ADN    1
09036  M00S05638.set     +++|          CWM    EBUT+5,ON
09037  M00S05639.set     +++|          AOD    CN+4        ADVANCE UNIT NUMBER
Line S05640 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09038  M01S05640.274l797 ---|          AOD    EQ
Line S02003 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09039  M01S02003.274l797 +++|          LDD    CN+3
09040  M01S02004.274l797 +++|          LMC    2RAT
09041  M01S02005.274l797 +++|          NJN    MMT5.1      IF NOT *AT* DEVICE
09042  M01S02006.274l797 +++|          AOM    EBUT+5+2    ADVANCE ACS DRIVE INDEX
09043  M01S02007.274l797 +++| MMT5.1   AOD    EQ
09044  M00S05641.set     +++|          LMD    T7
Line S05642 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09045  M01S05642.274l797 ---|          NJN    MMT5        IF ALL UNITS NOT DEFINED
09046  M01S05643.274l797 ---|          SOD    EQ
Line S02008 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09047  M01S02008.274l797 +++|          ZJN    MMT6        IF ALL UNITS DEFINED
09048  M01S02009.274l797 +++|          RJM    RCC         REVERSE CHANNELS FOR CARTRIDGE TAPE
09049  M01S02010.274l797 +++|          UJN    MMT5        DEFINE REMAINING UNITS
09050  M01S02011.274l797 +++|
09051  M01S02012.274l797 +++| MMT6     SOD    EQ
09052  M00S05644.set     +++|          RJM    CLE         CHECK LAST EQUIPMENT
09053  M00S05645.set     +++|          JMP    KBR         RETURN
09054  M00S05646.set     +++|
09055  M00S05647.set     +++| MMTA     CON    0           UNIT COUNT
09056  M00S05648.set     +++| NAD      SPACE  4,15
09057  M00S05649.set     +++|**        EQXXX=NC.
09058  M00S05650.set     +++|
09059  M00S05651.set     +++|
09060  M00S05652.set     +++| NAD      SUBR               ENTRY/EXIT
09061  M00S05653.set     +++|          ZJN    NAD1        IF NOT INITIAL EQUIPMENT ENTRY
09062  M00S05654.set     +++|          LDC    3000        SET ALLOCATABLE, CONTROLWARE NOT LOADED
09063  M00S05655.set     +++|          RAD    CN
09064  M00S05656.set     +++| NAD1     RJM    KWP
09065  M00S05657.set     +++|          LDD    CN+1        CHANNEL NUMBER
09066  M00S05658.set     +++|          LPN    37
09067  M00S05659.set     +++|          STD    T1
09068  M00S05660.set     +++|          LDN    CNND        SET NO LOAD OF NAD CONTROLWARE
09069  M00S05661.set     +++|          STM    TCHS,T1
09070  M00S05662.set     +++|          RJM    SCC
09071  M00S05663.set     +++|          UJN    NADX        RETURN
Line S05664 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09072  M01S05664.274l797 ---| PDC      SPACE  4,10
09073  M01S05665.274l797 ---|***       EQXXX=DC.
09074  M01S05666.274l797 ---|
09075  M01S05667.274l797 ---|
09076  M01S05668.274l797 ---| PDC1     RJM    KWP         PROCESS KEYWORDS
09077  M01S05669.274l797 ---|
09078  M01S05670.274l797 ---| PDC      SUBR               ENTRY/EXIT
09079  M01S05671.274l797 ---|          LDC    MABL        CHECK PP SPEED
09080  M01S05672.274l797 ---|          CRD    CM
09081  M01S05673.274l797 ---|          LDD    CM+4
09082  M01S05674.274l797 ---|          SBN    2
09083  M01S05675.274l797 ---|          PJN    PDC1        IF 4X PP SPEED
09084  M01S05676.274l797 ---|          JMP    ILL         PROCESS KEYWORDS
09085  M01S05677.274l797 ---| PDD      SPACE  4,10
09086  M01S05678.274l797 ---|***       EQXXX=DD.
09087  M01S05679.274l797 ---|*         EQXXX=DG.
09088  M01S05680.274l797 ---|
09089  M01S05681.274l797 ---| PDD1     LDN    37          PRESET NO CHANNELS SPECIFIED
09090  M01S05682.274l797 ---|          STD    CN+1
09091  M01S05683.274l797 ---|          LDN    4           SET LIMIT TEST FOR DRIVE NUMBER
09092  M01S05684.274l797 ---|          RAM    SUNB
09093  M01S05685.274l797 ---|          RJM    KWP         PROCESS KEYWORDS
09094  M01S05686.274l797 ---|
09095  M01S05687.274l797 ---| PDD      SUBR               ENTRY/EXIT
09096  M01S05688.274l797 ---|          LDM    ISPF
09097  M01S05689.274l797 ---|          SHN    21-13
09098  M01S05690.274l797 ---|          PJN    PDD1        IF CYBER 810/815/825/830
09099  M01S05691.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
09100  M01S05692.274l797 ---|
09101  M01S05693.274l797 ---|
09102  M01S05694.274l797 ---| PDG      EQU    PDD         *DG* PROCESSOR
09103  M01S05695.274l797 ---| PDF      SPACE  4,10
09104  M01S05696.274l797 ---|***       EQXXX=DF.
09105  M01S05697.274l797 ---|*         EQXXX=DH.
Line S00046 Modification History
M01 (Added by) 271l716
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09106  M02S00046.274l797 ---|*         EQXXX=DN.
Line S00013 Modification History
M01 (Added by) 272l774
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09107  M02S00013.274l797 ---|*         EQXXX=EA.
09108  M02S00014.274l797 ---|*         EQXXX=EB.
09109  M02S00015.274l797 ---|*         EQXXX=EC.
09110  M02S00016.274l797 ---|*         EQXXX=ED.
09111  M02S00017.274l797 ---|*         EQXXX=EE.
09112  M02S00018.274l797 ---|*         EQXXX=EF.
Line S05698 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09113  M01S05698.274l797 ---|
09114  M01S05699.274l797 ---|
09115  M01S05700.274l797 ---| PDF1     LDC    PCC         SET CHANNEL PROCESSOR
09116  M01S05701.274l797 ---|          STM    TKWPA
Line S00047 Modification History
M01 (Added by) 271l716
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09117  M02S00047.274l797 ---|          LDM    TKWPB+2     *EQ* DEFINITION PARAMETERS
09118  M02S00048.274l797 ---|          SCN    37
09119  M02S00049.274l797 ---|          LMN    TDDB-EBUT+DVPR  SET LOCATION FOR CONTROLLER NUMBER
09120  M02S00050.274l797 ---|          STM    TKWPB+2
Line S05702 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09121  M01S05702.274l797 ---|          RJM    KWP         PROCESS KEYWORDS
09122  M01S05703.274l797 ---|
09123  M01S05704.274l797 ---| PDF      SUBR               ENTRY/EXIT
09124  M01S05705.274l797 ---|          LDM    .CCHN
09125  M01S05706.274l797 ---|          NJN    PDF1        IF *I4* IOU
09126  M01S05707.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
09127  M01S05708.274l797 ---|
09128  M01S05709.274l797 ---|
09129  M01S05710.274l797 ---| PDH      EQU    PDF         *DH* PROCESSOR
Line S00051 Modification History
M01 (Added by) 271l716
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09130  M02S00051.274l797 ---| PDN      EQU    PDF         *DN* PROCESSOR
Line S00019 Modification History
M01 (Added by) 272l774
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09131  M02S00019.274l797 ---| PEA      EQU    PDF         *EA* PROCESSOR
09132  M02S00020.274l797 ---| PEB      EQU    PDF         *EB* PROCESSOR
09133  M02S00021.274l797 ---| PEC      EQU    PDF         *EC* PROCESSOR
09134  M02S00022.274l797 ---| PED      EQU    PDF         *ED* PROCESSOR
09135  M02S00023.274l797 ---| PEE      EQU    PDF         *EE* PROCESSOR
09136  M02S00024.274l797 ---| PEF      EQU    PDF         *EF* PROCESSOR
09137  M00S05711.set     ---| KWP      SPACE  4,10
09138  M00S05712.set     ---|**        KWP - KEYWORD MAIN PROCESSOR.
09139  M00S05713.set     ---|*
09140  M00S05714.set     ---|*         ENTRY  (KA) = ADDRESS OF SEPARATOR CHARACTER.
09141  M00S05715.set     ---|*                (TA) = *TVRK* ENTRY ADDRESS.
09142  M00S05716.set     ---|
09143  M00S05717.set     ---|
09144  M00S05718.set     ---| KWP      SUBR               ENTRY/EXIT
09145  M00S05719.set     ---| KWP1     AOD    KA
09146  M00S05720.set     ---|          LDI    KA          ASSEMBLE KEYWORD
09147  M00S05721.set     ---|          SHN    6
09148  M00S05722.set     ---|          LMM    1,KA
09149  M00S05723.set     ---|          STD    AB
09150  M00S05724.set     ---|          LDN    2           ADVANCE KEYBOARD BUFFER ADDRESS
09151  M00S05725.set     ---|          RAD    KA
09152  M00S05726.set     ---|          LDI    KA
09153  M00S05727.set     ---|          LMN    1R=
09154  M00S05728.set     ---|          NJN    KWP3        IF INCORRECT SEPARATOR
09155  M00S05729.set     ---|          AOD    KA
09156  M00S05730.set     ---|          LDC    TKWP-TKWPL
09157  M00S05731.set     ---|          STD    T3
09158  M00S05732.set     ---| KWP2     LDN    TKWPL
09159  M00S05733.set     ---|          RAD    T3
09160  M00S05734.set     ---|          LDI    T3
09161  M00S05735.set     ---|          NJN    KWP4        IF NOT END OF TABLE
09162  M00S05736.set     ---| KWP3     JMP    ILL         PROCESS INCORRECT ENTRY
09163  M00S05737.set     ---|
09164  M00S05738.set     ---| KWP4     STD    T2
09165  M00S05739.set     ---|          LDD    AB
09166  M00S05740.set     ---|          LMI    T2
09167  M00S05741.set     ---|          NJN    KWP2        IF NOT MATCH
09168  M00S05742.set     ---|          RJM    VKW         VALIDATE KEYWORD
09169  M00S05743.set     ---|
09170  M00S05744.set     ---|*         EXIT TO KEYWORD PROCESSOR.
09171  M00S05745.set     ---|*         (T3) = ADDRESS OF *TKWP* ENTRY.
09172  M00S05746.set     ---|*         (KA) = ADDRESS OF KEYWORD VALUE FIRST CHARACTER.
09173  M00S05747.set     ---|
09174  M00S05748.set     ---|          LJM    1,T2        EXIT TO PROCESSOR
09175  M00S05749.set     ---|
09176  M00S05750.set     ---|*         RETURN FROM KEYWORD PROCESSOR.
09177  M00S05751.set     ---|*         (KA) = ADDRESS OF SEPARATOR CHARACTER.
09178  M00S05752.set     ---|
09179  M00S05753.set     ---| KWP5     LDI    KA          CHECK SEPARATOR
09180  M00S05754.set     ---|          LMN    1R,
09181  M00S05755.set     ---|          ZJN    KWP1        IF NOT END OF ENTRY
09182  M00S05756.set     ---|          LMN    1R.&1R,
09183  M00S05757.set     ---|          NJN    KWP3        IF INCORRECT SEPARATOR
09184  M00S05758.set     ---|          LDM    TRQP
09185  M00S05759.set     ---|          ZJN    KWP7        IF NOT INITIAL ENTRY
09186  M00S05760.set     ---|          LDN    KTWC
09187  M00S05761.set     ---|          STD    T2
09188  M00S05762.set     ---|          LDN    TVRKL
09189  M00S05763.set     ---|          RAD    TA
09190  M00S05764.set     ---| KWP6     SOD    TA
09191  M00S05765.set     ---|          LDI    TA
09192  M00S05766.set     ---|          STM    KWPA
09193  M00S05767.set     ---|          LDM    TRQP,T2
09194  M00S05768.set     ---|          LPC    **
09195  M00S05769.set     ---| KWPA     EQU    *-1
09196  M00S05770.set     ---|          LMI    TA
09197  M00S05771.set     ---|          NJN    KWP3        IF REQUIRED KEYWORD NOT SPECIFIED
09198  M00S05772.set     ---|          SOD    T2
09199  M00S05773.set     ---|          NJN    KWP6        IF MORE KEYWORDS TO CHECK
Line S05774 Modification History
M01 (Removed by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
09200  M01S05774.ns2644  ---| KWP7     LJM    KWPX        RETURN
Line S00059 Modification History
M01 (Added by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
09201  M01S00059.ns2644  +++| KWP7     LDD    CN
09202  M01S00060.ns2644  +++|          LPN    3
09203  M01S00061.ns2644  +++|          LMN    3
09204  M01S00062.ns2644  +++|          ZJN    KWP9        IF DEVICE IS DOWN
09205  M01S00063.ns2644  +++|          LDD    CN+1        CHECK PRIMARY CHANNEL
09206  M01S00064.ns2644  +++|          SHN    21-13
09207  M01S00065.ns2644  +++|          PJN    KWP9        IF NO PRIMARY CHANNEL
09208  M01S00066.ns2644  +++|          SHN    21-12-21+13
09209  M01S00067.ns2644  +++|          PJN    KWP9        IF CHANNEL IS UP
09210  M01S00068.ns2644  +++|          LDD    CN+2        CHECK SECONDARY CHANNEL
09211  M01S00069.ns2644  +++|          SHN    21-13
09212  M01S00070.ns2644  +++|          PJN    KWP8        IF NO SECONDARY CHANNEL
09213  M01S00071.ns2644  +++|          SHN    21-12-21+13
09214  M01S00072.ns2644  +++|          PJN    KWP9        IF CHANNEL IS UP
09215  M01S00073.ns2644  +++| KWP8     JMP    ILL         PROCESS INCORRECT ENTRY
09216  M01S00074.ns2644  +++|
09217  M01S00075.ns2644  +++| KWP9     LJM    KWPX        RETURN
Line S05775 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09218  M01S05775.274l797 ---|
09219  M01S05776.274l797 ---| PDI      EQU    KWP         *DI* PROCESSOR
09220  M01S05777.274l797 ---| PDJ      EQU    KWP         *DJ* PROCESSOR
09221  M01S05778.274l797 ---| PDM      EQU    KWP         *DM* PROCESSOR
09222  M01S05779.274l797 ---| PDK      EQU    KWP         *DK* PROCESSOR
09223  M01S05780.274l797 ---| PDL      EQU    KWP         *DL* PROCESSOR
09224  M01S05781.274l797 ---| PDQ      EQU    KWP         *DQ* PROCESSOR
09225  M01S05782.274l797 ---| PDB      EQU    KWP         *DB* PROCESSOR
09226  M01S05783.274l797 ---| PDX      EQU    KWP         *DX* PROCESSOR
09227  M01S05784.274l797 ---| PDY      EQU    KWP         *DY* PROCESSOR
09228  M01S05785.274l797 ---| PDZ      EQU    KWP         *DZ* PROCESSOR
09229  M01S05786.274l797 ---| PDA      EQU    KWP         *DA* PROCESSOR
09230  M01S05787.274l797 ---| PDV      EQU    KWP         *DV* PROCESSOR
09231  M01S05788.274l797 ---| PDW      EQU    KWP         *DW* PROCESSOR
09232  M00S05789.set     ---|          TITLE  MISCELLANEOUS EQUIPMENT DEFINITION SUBROUTINES.
09233  M00S05790.set     ---| CDC      SPACE  4,15
09234  M00S05791.set     ---|**        CDC - CLEAR ISMD CHANNELS.
09235  M00S05792.set     ---|*
09236  M00S05793.set     ---|*         ENTRY  (EBUT) = PREVIOUS EBUT *CM* EQUIPMENT ENTRY.
09237  M00S05794.set     ---|*
09238  M00S05795.set     ---|*         EXIT   CHANNEL NUMBERS ARE CLEARED IN ALL ISMD DEVICE ENTRIES
09239  M00S05796.set     ---|*                WHICH HAVE THE FIRST UNIT ON THIS *CM* EQUIPMENT.
09240  M00S05797.set     ---|*
09241  M00S05798.set     ---|*         USES   T1, T2, T3.
09242  M00S05799.set     ---|*
09243  M00S05800.set     ---|*         CALLS  SDC.
09244  M00S05801.set     ---|
09245  M00S05802.set     ---|
09246  M00S05803.set     ---| CDC      SUBR               ENTRY/EXIT
09247  M00S05804.set     ---|          LDM    EBUT+4      SAVE EQUIPMENT NUMBER
09248  M00S05805.set     ---|          SHN    -11
09249  M00S05806.set     ---|          STD    T1
09250  M00S05807.set     ---|          LDM    EBUT+3
09251  M00S05808.set     ---|          LMC    2RCM
09252  M00S05809.set     ---|          NJN    CDCX        IF NOT CONTROL MODULE
09253  M00S05810.set     ---|          STM    TENB,T1     CLEAR EST ORDINAL
09254  M00S05811.set     ---|          STD    T3
09255  M00S05812.set     ---|          LDN    37          SET NO CHANNEL SPECIFIED
09256  M00S05813.set     ---|          STD    T2
09257  M00S05814.set     ---|          RJM    SDC         SET ISMD CHANNELS
09258  M00S05815.set     ---|          UJN    CDCX        RETURN
09259  M00S05816.set     ---| CLE      SPACE  4,15
09260  M00S05817.set     ---|**        CLE - CHECK LAST EQUIPMENT.
09261  M00S05818.set     ---|*
09262  M00S05819.set     ---|*         ENTRY  (EQ) = CURRENT EST ORDINAL.
09263  M00S05820.set     ---|*                (LE) = LAST EQUIPMENT DEFINED.
09264  M00S05821.set     ---|*                (CN - CN+4) = CURRENT EQUIPMENT DEFINITION.
09265  M00S05822.set     ---|*
09266  M00S05823.set     ---|*         EXIT   (LE) = CURRENT LAST EQUIPMENT.
09267  M00S05824.set     ---|*                (EQ) = CURRENT EST ORDINAL + 1.
09268  M00S05825.set     ---|*
09269  M00S05826.set     ---|*         USES   T5, CN - CN+4.
09270  M00S05827.set     ---|*
09271  M00S05828.set     ---|*         CALLS  IBF.
09272  M00S05829.set     ---|
09273  M00S05830.set     ---|
09274  M00S05831.set     ---| CLE3     AOD    EQ          CHECK NEW EQUIPMENT DEFINITION
09275  M00S05832.set     ---|          SBD    LE
09276  M00S05833.set     ---|          PJN    CLE2        IF ORDINAL .GE. PREVIOUS HIGH
09277  M00S05834.set     ---|
09278  M00S05835.set     ---| CLE      SUBR               ENTRY/EXIT
09279  M00S05836.set     ---|          LDD    CN+3
09280  M00S05837.set     ---|          NJN    CLE3        IF DEFINING EQUIPMENT
09281  M00S05838.set     ---|          AOD    EQ
09282  M00S05839.set     ---|          LMD    LE
09283  M00S05840.set     ---|          NJN    CLEX        IF NOT CLEARING LAST EQUIPMENT
09284  M00S05841.set     ---| CLE1     SOD    LE
09285  M00S05842.set     ---|          SHN    14+1
09286  M00S05843.set     ---|          ADD    EB          SEARCH FOR LAST EQUIPMENT
09287  M00S05844.set     ---|          SHN    6
09288  M00S05845.set     ---|          CRD    CN
09289  M00S05846.set     ---|          LDD    CN+3
09290  M00S05847.set     ---|          ZJN    CLE1        IF EQUIPMENT UNDEFINED
09291  M00S05848.set     ---|          LDN    1
09292  M00S05849.set     ---| CLE2     RAD    LE          UPDATE LAST EQUIPMENT
09293  M00S05850.set     ---|          STD    T5
09294  M00S05851.set     ---|          LDN    UECF        SEND COUNT TO BUFFER PP
09295  M00S05852.set     ---|          RJM    IBF
09296  M00S05853.set     ---|          UJN    CLEX        RETURN
09297  M00S05854.set     ---| CML      SPACE  4,10
09298  M00S05855.set     ---|**        CML - CHECK MASS STORAGE LIMIT.
09299  M00S05856.set     ---|*
09300  M00S05857.set     ---|*         ENTRY  (CN - CN+4) = CURRENT EQUIPMENT DEFINITION.
Line S00505 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09301  M01S00505.284l847 +++|*                (EBUT - EBUT+4) = PREVIOUS EQUIPMENT DEFINITION.
09302  M00S05858.set     +++|
Line S05859 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09303  M01S05859.284l847 ---|
09304  M01S05860.284l847 ---| CML2     AOM    MSLM        ADVANCE MASS STORAGE LIMIT
09305  M00S05861.set     ---|
09306  M00S05862.set     ---| CML      SUBR               ENTRY/EXIT
09307  M00S05863.set     ---|          LDI    ES
09308  M00S05864.set     ---|          LMD    CN          CHECK REDEFINITION
09309  M00S05865.set     ---|          SHN    0-13
09310  M00S05866.set     ---|          ZJN    CMLX        IF NO CHANGE IN STATUS
09311  M01S05867.284l847 ---|          LDD    CN
09312  M01S05868.284l847 ---|          SHN    0-13
09313  M01S05869.284l847 ---|          ZJN    CML2        IF NEW EQUIPMENT NOT MASS STORAGE
09314  M01S05870.284l847 ---|          LDM    MSLM
09315  M01S05871.284l847 ---|          ZJN    CML1        IF MASS STORAGE LIMIT
09316  M01S05872.284l847 ---|          SOM    MSLM
Line S00506 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09317  M01S00506.284l847 +++|          AOM    MSLM        ADVANCE MASS STORAGE LIMIT
09318  M00S05873.set     +++|          UJN    CMLX        RETURN
Line S05874 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09319  M01S05874.284l847 ---|
09320  M01S05875.284l847 ---| CML1     LDC    CMLB        SET ERROR MESSAGE
09321  M01S05876.284l847 ---|          JMP    ILL1        DISPLAY ERROR
09322  M01S05877.284l847 ---|
09323  M01S05878.284l847 ---| CMLB     DATA   C*MS LIMIT EXCEEDED.*
09324  M00S05879.set     ---| EDC      SPACE  4,20
09325  M00S05880.set     ---|**        EDC - ENTER ISMD CHANNELS.
09326  M00S05881.set     ---|*
09327  M00S05882.set     ---|*         ENTRY  (CN - CN+4) = EQUIPMENT ENTRY.
09328  M00S05883.set     ---|*                (EQ) = CURRENT EST ORDINAL.
09329  M00S05884.set     ---|*
09330  M00S05885.set     ---|*         EXIT   (EQ) = CURRENT EST ORDINAL.
09331  M00S05886.set     ---|*                IF DEVICE TYPE = *CM*, THE CHANNEL NUMBERS ARE SET IN
09332  M00S05887.set     ---|*                   ALL ISMD ENTRIES WHICH HAVE THE FIRST UNIT ON THIS
09333  M00S05888.set     ---|*                   *CM* EQUIPMENT.
Line S05889 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09334  M01S05889.274l797 ---|*                IF DEVICE IS AN ISMD, A SEARCH IS MADE FOR THE *CM*
09335  M01S05890.274l797 ---|*                   EQUIPMENT WHICH CORRESPONDS TO THE FIRST UNIT - IF
09336  M01S05891.274l797 ---|*                   FOUND, THE CHANNEL NUMBERS ARE SET IN THE ISMD
09337  M01S05892.274l797 ---|*                   ENTRY.
09338  M00S05893.set     ---|*
09339  M00S05894.set     ---|*         USES   T1, T2, T3, CM - CM+4.
09340  M00S05895.set     ---|*
09341  M01S05896.274l797 ---|*         CALLS  EEB, SDC.
Line S02013 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09342  M01S02013.274l797 +++|*         CALLS  SDC.
09343  M00S05897.set     +++|
09344  M00S05898.set     +++|
Line S05899 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09345  M01S05899.274l797 ---| EDC2     LDD    CN+4        SET EQUIPMENT NUMBER
Line S02014 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09346  M01S02014.274l797 +++| EDC      SUBR               ENTRY/EXIT
09347  M01S02015.274l797 +++|          LDD    CN+3
09348  M01S02016.274l797 +++|          LMC    2RCM
09349  M01S02017.274l797 +++|          NJN    EDCX        IF NOT *CM* DEVICE
09350  M01S02018.274l797 +++|          LDD    CN+4        SET EQUIPMENT NUMBER
09351  M00S05900.set     +++|          SHN    -11
09352  M00S05901.set     +++|          STD    T1
09353  M00S05902.set     +++|          LDD    CN+1        SET CHANNEL NUMBERS
09354  M00S05903.set     +++|          STD    T2
09355  M00S05904.set     +++|          LDD    CN+2
09356  M00S05905.set     +++|          STD    T3
09357  M00S05906.set     +++|          RJM    SDC         SET ISMD CHANNELS
09358  M01S02019.274l797 +++|          UJN    EDCX        RETURN
09359  M01S02020.274l797 +++| RCC      SPACE  4,10
09360  M01S02021.274l797 +++|**        RCC - REVERSE CHANNELS FOR CARTRIDGE TAPE.
09361  M01S02022.274l797 +++|*
09362  M01S02023.274l797 +++|*         IF *CT* OR *AT* DEVICE WITH DUAL CHANNEL ACCESS DEFINED,
09363  M01S02024.274l797 +++|*         REVERSE THE PRIMARY AND SECONDARY CHANNELS.
09364  M01S02025.274l797 +++|*
09365  M01S02026.274l797 +++|*         ENTRY  (CN - CN+4) = FIRST WORD OF EST ENTRY.
09366  M01S02027.274l797 +++|*
09367  M01S02028.274l797 +++|*         EXIT   (CN - CN+4) = UPDATED FIRST WORD OF EST ENTRY.
09368  M01S02029.274l797 +++|*
09369  M01S02030.274l797 +++|*         USES   CN+1, CN+2, T1.
09370  M00S05907.set     +++|
Line S05908 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09371  M01S05908.274l797 ---| EDC      SUBR               ENTRY/EXIT
Line S02031 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09372  M01S02031.274l797 +++|
09373  M01S02032.274l797 +++| RCC      SUBR               ENTRY/EXIT
09374  M00S05909.set     +++|          LDD    CN+3
Line S05910 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09375  M01S05910.274l797 ---|          LMC    2RCM
09376  M01S05911.274l797 ---|          ZJN    EDC2        IF *CM* DEVICE
09377  M01S05912.274l797 ---|          LCN    0
09378  M01S05913.274l797 ---|          STD    T5
09379  M01S05914.274l797 ---| EDC1     AOD    T5          ADVANCE INDEX
09380  M01S05915.274l797 ---|          LDM    TFSD,T5
09381  M01S05916.274l797 ---|          ZJN    EDCX        IF END OF TABLE
09382  M01S05917.274l797 ---|          LMD    CN+3
09383  M01S05918.274l797 ---|          NJN    EDC1        IF NOT MATCHING DEVICE TYPE
09384  M01S05919.274l797 ---|          LDM    TDDB+DVUN+3 SAVE FIRST UNIT EQUIPMENT NUMBER
09385  M01S05920.274l797 ---|          LPN    70
09386  M01S05921.274l797 ---|          SHN    -3
09387  M01S05922.274l797 ---|          STD    T3
09388  M01S05923.274l797 ---|          LDM    TENB,T3
09389  M01S05924.274l797 ---|          ZJN    EDCX        IF NO *CM* DEFINED
09390  M01S05925.274l797 ---|          SHN    22-5
09391  M01S05926.274l797 ---|          ADD    EB
09392  M01S05927.274l797 ---|          SHN    6           READ CONTROL MODULE EST ENTRY
09393  M01S05928.274l797 ---|          CRD    CM
09394  M01S05929.274l797 ---|          LDD    CM+1        SET CHANNEL(S) INTO ISMD ENTRY
09395  M01S05930.274l797 ---|          STM    EBUT+1
09396  M01S05931.274l797 ---|          LDD    CM+2
09397  M01S05932.274l797 ---|          STM    EBUT+2
09398  M01S05933.274l797 ---|          RJM    EEB         ENTER EQUIPMENT ENTRY
09399  M01S05934.274l797 ---|          LJM    EDCX        RETURN
Line S02033 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09400  M01S02033.274l797 +++|          LMC    2RCT
09401  M01S02034.274l797 +++|          ZJN    RCC1        IF *CT* EQUIPMENT
09402  M01S02035.274l797 +++|          LMC    2RAT&2RCT
09403  M01S02036.274l797 +++|          NJN    RCCX        IF NOT *AT* EQUIPMENT
09404  M01S02037.274l797 +++| RCC1     LDD    CN+2
09405  M01S02038.274l797 +++|          ZJN    RCCX        IF NO SECOND CHANNEL
09406  M01S02039.274l797 +++|          STD    T1
09407  M01S02040.274l797 +++|          LDD    CN+1        REVERSE CHANNELS
09408  M01S02041.274l797 +++|          STD    CN+2
09409  M01S02042.274l797 +++|          LDD    T1
09410  M01S02043.274l797 +++|          STD    CN+1
09411  M01S02044.274l797 +++|          UJN    RCCX        RETURN
09412  M00S05935.set     +++| SDC      SPACE  4,15
09413  M00S05936.set     +++|**        SDC - SET ISMD CHANNELS.
09414  M00S05937.set     +++|*
09415  M00S05938.set     +++|*         ENTRY  (T1) = *CM* EQUIPMENT NUMBER.
09416  M00S05939.set     +++|*                (T2) = FIRST CHANNEL.
09417  M00S05940.set     +++|*                (T3) = SECOND CHANNEL.
09418  M00S05941.set     +++|*
09419  M00S05942.set     +++|*         EXIT   CHANNEL NUMBERS ARE SET IN ALL ISMD DEVICE ENTRIES
09420  M00S05943.set     +++|*                WHICH HAVE THE FIRST UNIT ON THIS *CM* EQUIPMENT.
09421  M00S05944.set     +++|*
09422  M00S05945.set     +++|*         USES   T5.
09423  M00S05946.set     +++|*
09424  M00S05947.set     +++|*         CALLS  EEB, SID, STA.
09425  M00S05948.set     +++|
09426  M00S05949.set     +++|
09427  M00S05950.set     +++| SDC2     LDD    T5          RESTORE *EQ* CONTENTS
09428  M00S05951.set     +++|          RJM    STA
09429  M00S05952.set     +++|
09430  M00S05953.set     +++| SDC      SUBR               ENTRY/EXIT
09431  M00S05954.set     +++|          LDD    EQ          SAVE CONTENTS OF *EQ*
09432  M00S05955.set     +++|          STD    T5
09433  M00S05956.set     +++|          RJM    EEB         SAVE *EBUT*
09434  M00S05957.set     +++|          LCN    0
09435  M00S05958.set     +++| SDC1     RJM    SID         SEARCH FOR ISMD DEVICE
09436  M00S05959.set     +++|          MJN    SDC2        IF NONE FOUND
09437  M00S05960.set     +++|          LDM    TDDB+DVUN+3  GET FIRST UNIT EQUIPMENT NUMBER
09438  M00S05961.set     +++|          LPN    70
09439  M00S05962.set     +++|          SHN    -3
09440  M00S05963.set     +++|          LMD    T1
09441  M00S05964.set     +++|          NJN    SDC1        IF NOT THIS *CM* EQUIPMENT NUMBER
09442  M00S05965.set     +++|          LDD    T2          SET CHANNEL NUMBERS
09443  M00S05966.set     +++|          STM    EBUT+1
09444  M00S05967.set     +++|          LDD    T3
09445  M00S05968.set     +++|          STM    EBUT+2
09446  M00S05969.set     +++|          RJM    EEB         ENTER EQUIPMENT ENTRY
09447  M00S05970.set     +++|          UJN    SDC1        FIND NEXT ISMD ENTRY
09448  M00S05971.set     +++| VKW      SPACE  4,10
09449  M00S05972.set     +++|**        VKW - VALIDATE KEYWORD.
09450  M00S05973.set     +++|*
09451  M00S05974.set     +++|*         ENTRY  (TA) = *TVRK* ENTRY ADDRESS.
09452  M00S05975.set     +++|*                (T3) = *TKWP* ENTRY ADDRESS.
09453  M00S05976.set     +++|*                (KA) = CHARACTER ADDRESS OF KEYWORD VALUE.
09454  M00S05977.set     +++|*
09455  M00S05978.set     +++|*         EXIT   (A) = (AB+4) = 0, IF NULL VALUE SPECIFIED.
09456  M00S05979.set     +++|*                TO *ILL* IF INCORRECT KEYWORD OR NULL VALUE SPECIFIED
09457  M00S05980.set     +++|*                AND NULL VALUE NOT ALLOWED.
09458  M00S05981.set     +++|*
09459  M00S05982.set     +++|*         USES   T5, T6, T7, AB+4.
09460  M00S05983.set     +++|*
09461  M00S05984.set     +++|*         CALLS  CSC.
09462  M00S05985.set     +++|
09463  M00S05986.set     +++|
09464  M00S05987.set     +++| VKW      SUBR               ENTRY/EXIT
09465  M00S05988.set     +++|          LDM    1,T3        GET KEYWORD BIT POSITION
09466  M00S05989.set     +++|          SHN    14
09467  M00S05990.set     +++|          LMD    TH
09468  M00S05991.set     +++|          ERRNZ  1000-SHNI   ADJUST IF VALUE CHANGES
09469  M00S05992.set     +++|          STM    VKWA
09470  M00S05993.set     +++|          SHN    -14         GET KEYWORD WORD OFFSET
09471  M00S05994.set     +++|          STD    T6
09472  M00S05995.set     +++|          ADD    TA          ADDRESS OF *TVRK* WORD
09473  M00S05996.set     +++|          STD    T5
09474  M00S05997.set     +++|          LDN    1           GENERATE KEYWORD BIT MASK
09475  M00S05998.set     +++| VKWA     SHN    **
09476  M00S05999.set     +++|          STD    T7
09477  M00S06000.set     +++|          STM    VKWB
09478  M00S06001.set     +++|          STM    VKWC
09479  M00S06002.set     +++|          LDI    T5          CHECK IF KEYWORD ALLOWED
09480  M00S06003.set     +++|          LPC    0
09481  M00S06004.set     +++| VKWB     EQU    *-1
09482  M00S06005.set     +++|          NJN    VKW2        IF KEYWORD IS ALLOWED
09483  M00S06006.set     +++| VKW1     JMP    ILL         PROCESS INCORRECT ENTRY
09484  M00S06007.set     +++|
09485  M00S06008.set     +++| VKW2     LDC    TRQP        SET KEYWORD SPECIFIED BIT
09486  M00S06009.set     +++|          RAD    T6
09487  M00S06010.set     +++|          LDI    T6
09488  M00S06011.set     +++|          LPC    0
09489  M00S06012.set     +++| VKWC     EQU    *-1
09490  M00S06013.set     +++|          NJN    VKW1        IF KEYWORD ALREADY PROCESSED
09491  M00S06014.set     +++|          LDD    T7
09492  M00S06015.set     +++|          RAI    T6
09493  M00S06016.set     +++|          RJM    CSC         CHECK FOR NULL VALUE
09494  M00S06017.set     +++|          NJN    VKW3        IF NOT NULL VALUE
09495  M00S06018.set     +++|          LDM    2,T3        CHECK *TKWP*
09496  M00S06019.set     +++|          SHN    21-5
09497  M00S06020.set     +++|          PJN    VKW1        IF NULL VALUE NOT ALLOWED
09498  M00S06021.set     +++|          LDN    0           CLEAR VALUE
09499  M00S06022.set     +++|          STD    AB+4
09500  M00S06023.set     +++| VKW3     LJM    VKWX        RETURN
09501  M00S06024.set     +++| STV      SPACE  4,10
09502  M00S06025.set     +++|**        STV - STORE KEYWORD VALUE.
09503  M00S06026.set     +++|*
09504  M00S06027.set     +++|*         ENTRY  (AB+4) = KEYWORD VALUE.
09505  M00S06028.set     +++|*                (T3) = ADDRESS OF KEYWORD PARAMETERS.
09506  M00S06029.set     +++|*                (CN - CN+4) = *EQDE* EST WORD.
09507  M00S06030.set     +++|*                (EBUT+5 - EBUT+11) = *EQAE* EST WORD.
09508  M00S06031.set     +++|*
09509  M00S06032.set     +++|*         EXIT   KEYWORD VALUE STORED IN EST ENTRY.
09510  M00S06033.set     +++|
09511  M00S06034.set     +++|
09512  M00S06035.set     +++| STV      SUBR               ENTRY/EXIT
09513  M00S06036.set     +++|          LDM    2,T3
09514  M00S06037.set     +++|          SHN    14          SET SHIFT COUNT
09515  M00S06038.set     +++|          LMD    TH
09516  M00S06039.set     +++|          ERRNZ  1000-SHNI   ADJUST IF VALUE CHANGES
09517  M00S06040.set     +++|          STM    STVB
09518  M00S06041.set     +++|          SHN    -14         SET EST ENTRY LOCATION
09519  M00S06042.set     +++|          LPN    37
09520  M00S06043.set     +++|          STD    T0
09521  M00S06044.set     +++|          SBN    5
09522  M00S06045.set     +++|          MJN    STV1        IF IN *EQDE* WORD
09523  M00S06046.set     +++|          LDC    EBUT
09524  M00S06047.set     +++|          UJN    STV2        PROCESS DATA
09525  M00S06048.set     +++|
09526  M00S06049.set     +++| STV1     LDN    CN
09527  M00S06050.set     +++| STV2     ADD    T0
09528  M00S06051.set     +++|          STD    T7
09529  M00S06052.set     +++|          LDM    3,T3        SET MASK
09530  M00S06053.set     +++|          STM    STVA
09531  M00S06054.set     +++|          LDI    T7          UPDATE EST ENTRY
09532  M00S06055.set     +++|          LPC    **
09533  M00S06056.set     +++| STVA     EQU    *-1
09534  M00S06057.set     +++|          STI    T7
09535  M00S06058.set     +++|          LDD    AB+4
09536  M00S06059.set     +++| STVB     SHN    **          POSITION KEYWORD VALUE
09537  M00S06060.set     +++|          RAI    T7          STORE KEYWORD VALUE
09538  M00S06061.set     +++|          UJN    STVX        RETURN
09539  M00S06062.set     +++|          TITLE  KEYWORD PROCESSORS.
09540  M00S06063.set     +++| AOK      SPACE  4,10
09541  M00S06064.set     +++|**        AOK - ASSEMBLE OCTAL KEYWORD VALUE.
09542  M00S06065.set     +++|*
09543  M00S06066.set     +++|*         ENTRY  (A) = 6/MINIMUM VALUE, 12/MAXIMUM VALUE+1
09544  M00S06067.set     +++|*
09545  M00S06068.set     +++|*         EXIT   TO *KWP5*, KEYWORD VALUE STORED.
09546  M00S06069.set     +++|*                TO *ILL* IF INCORRECT VALUE.
09547  M00S06070.set     +++|*
09548  M00S06071.set     +++|*         USES   T6, T7.
09549  M00S06072.set     +++|*
09550  M00S06073.set     +++|*         CALLS  CDR, STV.
09551  M00S06074.set     +++|
09552  M00S06075.set     +++|
09553  M00S06076.set     +++| AOK      BSS    0
09554  M00S06077.set     +++|          STD    T7          SAVE MAXIMUM VALUE+1
09555  M00S06078.set     +++|          SHN    -14
09556  M00S06079.set     +++|          STD    T6          SAVE MINIMUM VALUE
09557  M00S06080.set     +++|          RJM    CDR         ASSEMBLE KEYWORD VALUE
09558  M00S06081.set     +++|          LDD    AB+4
09559  M00S06082.set     +++|          SBD    T6
09560  M00S06083.set     +++|          PJN    AOK2        IF VALUE .GE. MINIMUM
09561  M00S06084.set     +++| AOK1     JMP    ILL         PROCESS INCORRECT ENTRY
09562  M00S06085.set     +++|
09563  M00S06086.set     +++| AOK2     LDD    AB+4
09564  M00S06087.set     +++|          SBD    T7
09565  M00S06088.set     +++|          PJN    AOK1        IF VALUE .GT. MAXIMUM
09566  M00S06089.set     +++|          RJM    STV         STORE VALUE
09567  M00S06090.set     +++|          JMP    KWP5        RETURN
Line S06091 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09568  M01S06091.274l797 ---| PAP      SPACE  4,10
09569  M01S06092.274l797 ---|***       AP=N.
Line S02045 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09570  M01S02045.274l797 +++| PCH      SPACE  4,10
09571  M01S02046.274l797 +++|***       CH=C1/C2.
09572  M00S06093.set     +++|*
Line S06094 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09573  M01S06094.274l797 ---|*         APRDECK NUMBER.
09574  M01S06095.274l797 ---|*         N = 0-77B.
09575  M01S06096.274l797 ---|
09576  M01S06097.274l797 ---|
09577  M01S06098.274l797 ---| PAP      DATA   H*AP*
09578  M01S06099.274l797 ---|          ZJN    PAP1        IF NULL VALUE
09579  M01S06100.274l797 ---|          RJM    CDR         ASSEMBLE APRDECK NUMBER
09580  M01S06101.274l797 ---|          LDD    AB+4
09581  M01S06102.274l797 ---|          SHN    -6
09582  M01S06103.274l797 ---|          ZJN    PAP1        IF .LE. 77B
09583  M01S06104.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
09584  M01S06105.274l797 ---|
09585  M01S06106.274l797 ---| PAP1     LDD    AB+4        SET APRDECK NUMBER
09586  M01S06107.274l797 ---|          STM    TDDB+DVAP
09587  M01S06108.274l797 ---|          JMP    KWP5       RETURN
09588  M01S06109.274l797 ---| PCC      SPACE  4,10
09589  M01S06110.274l797 ---|***       CH=C1N/C2N.
09590  M01S06111.274l797 ---|*
09591  M01S06112.274l797 ---|*         CONCURRENT CHANNEL + PORT NUMBER.
09592  M01S06113.274l797 ---|*         C1 = PRIMARY CHANNEL.
09593  M01S06114.274l797 ---|*         C2 = SECONDARY CHANNEL.
09594  M01S06115.274l797 ---|*         N = A FOR PORT A.
09595  M01S06116.274l797 ---|*           = B FOR PORT B.
09596  M01S06117.274l797 ---|
09597  M01S06118.274l797 ---|
09598  M01S06119.274l797 ---| PCC      DATA   H*CH*
09599  M01S06120.274l797 ---|          LDN    0           PRESET PORT A DEFINITIONS
09600  M01S06121.274l797 ---|          STD    CN+1
09601  M01S06122.274l797 ---|          STD    CN+2
Line S06123 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09602  M02S06123.274l797 ---|          RJM    CDR         ASSEMBLE CHANNEL NUMBER
Line S00076 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09603  M02S00076.274l797 ---|          LDN    CN+1        PRESET CHANNEL INDEX
09604  M02S00077.274l797 ---|          STD    T4
09605  M02S00078.274l797 ---| PCC1     RJM    CDR         ASSEMBLE CHANNEL NUMBER
Line S06124 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09606  M01S06124.274l797 ---|          LMN    1RA
Line S06125 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09607  M02S06125.274l797 ---|          ZJN    PCC1        IF PORT A SPECIFIED
Line S00079 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09608  M02S00079.274l797 ---|          ZJN    PCC2        IF PORT A SPECIFIED
Line S06126 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09609  M01S06126.274l797 ---|          LMN    1RB&1RA
Line S06127 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09610  M02S06127.274l797 ---|          NJN    PCC2        IF NOT PORT B (DEFAULT TO A)
Line S00080 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09611  M02S00080.274l797 ---|          NJN    PCC3        IF NOT PORT B (DEFAULT TO A)
Line S06128 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09612  M01S06128.274l797 ---|          LDC    200         SET PORT B INDICATOR
Line S06129 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09613  M02S06129.274l797 ---|          STD    CN+1
09614  M02S06130.274l797 ---| PCC1     AOD    KA          ADVANCE CHARACTER ADDRESS
09615  M02S06131.274l797 ---| PCC2     LDD    AB+4
09616  M02S06132.274l797 ---|          LMC    4040        SET CHANNEL ACCESSABLE AND CONCURRENT
09617  M02S06133.274l797 ---|          RAD    CN+1        SET PRIMARY CHANNEL
Line S00081 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09618  M02S00081.274l797 ---|          STI    T4
09619  M02S00082.274l797 ---| PCC2     AOD    KA          ADVANCE CHARACTER ADDRESS
09620  M02S00083.274l797 ---| PCC3     LDN    40          MARK CHANNEL CONCURRENT
09621  M02S00084.274l797 ---|          RAD    AB+4
09622  M02S00085.274l797 ---|          LMC    4000        MARK CHANNEL ACCESSIBLE
09623  M02S00086.274l797 ---|          RAI    T4          SET CHANNEL ENTRY
Line S06134 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09624  M01S06134.274l797 ---|          LPN    37
09625  M01S06135.274l797 ---|          SBM    .CCHN
Line S06136 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09626  M02S06136.274l797 ---|          MJN    PCC4        IF VALID CHANNEL NUMBER
09627  M02S06137.274l797 ---| PCC3     JMP    ILL         PROCESS INCORRECT ENTRY
09628  M02S06138.274l797 ---|
09629  M02S06139.274l797 ---| PCC4     LDI    KA          CHECK SEPARATOR
09630  M02S06140.274l797 ---|          LMN    1R/
09631  M02S06141.274l797 ---|          NJN    PCC7        IF NOT ANOTHER CHANNEL
09632  M02S06142.274l797 ---|          AOD    KA
09633  M02S06143.274l797 ---|          RJM    CDR         ASSEMBLE SECOND CHANNEL
09634  M02S06144.274l797 ---|          LMN    1RA
09635  M02S06145.274l797 ---|          ZJN    PCC5        IF SECOND CHANNEL ON PORT A
09636  M02S06146.274l797 ---|          LMN    1RB&1RA
09637  M02S06147.274l797 ---|          NJN    PCC6        IF NOT ON PORT B (DEFAULT TO PORT A)
09638  M02S06148.274l797 ---|          LDC    200         SET PORT B INDICATOR
09639  M02S06149.274l797 ---|          STD    CN+2
09640  M02S06150.274l797 ---| PCC5     AOD    KA          ADVANCE CHARACTER ADDRESS
09641  M02S06151.274l797 ---| PCC6     LDD    AB+4
09642  M02S06152.274l797 ---|          ZJN    PCC3        IF NULL SECOND CHANNEL
09643  M02S06153.274l797 ---|          LMD    CN+1
09644  M02S06154.274l797 ---|          LPN    37
09645  M02S06155.274l797 ---|          ZJN    PCC3        IF DUPLICATE CHANNELS
09646  M02S06156.274l797 ---|          LDD    AB+4
09647  M02S06157.274l797 ---|          LMC    4040        SET CHANNEL ACCESSABLE AND CONCURRENT
09648  M02S06158.274l797 ---|          RAD    CN+2
09649  M02S06159.274l797 ---|          LPN    37          CHECK SECONDARY CHANNEL
09650  M02S06160.274l797 ---|          SBM    .CCHN
09651  M02S06161.274l797 ---|          PJN    PCC3        IF INVALID CHANNEL NUMBER
09652  M02S06162.274l797 ---| PCC7     RJM    CSC
09653  M02S06163.274l797 ---|          NJN    PCC3        IF INVALID SEPARATOR
Line S00087 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09654  M02S00087.274l797 ---|          MJN    PCC5        IF VALID CHANNEL NUMBER
09655  M02S00088.274l797 ---| PCC4     JMP    ILL         PROCESS INCORRECT ENTRY
09656  M02S00089.274l797 ---|
09657  M02S00090.274l797 ---| PCC5     LDM    TCST,AB+4
09658  M02S00091.274l797 ---|          ZJN    PCC6        IF CHANNEL IS NOT DOWN
09659  M02S00092.274l797 ---|          LDC    3000        MARK CHANNEL DOWN
09660  M02S00093.274l797 ---|          RAI    T4
09661  M02S00094.274l797 ---| PCC6     RJM    CSC         CHECK SEPARATOR CHARACTER
09662  M02S00095.274l797 ---|          NJN    PCC7        IF NOT VALID KEYWORD SEPARATOR
09663  M02S00096.274l797 ---|          LDD    CN+1        PRIMARY CHANNEL
09664  M02S00097.274l797 ---|          LMD    CN+2        SECONDARY CHANNEL
09665  M02S00098.274l797 ---|          LPN    77
09666  M02S00099.274l797 ---|          ZJN    PCC4        IF DUPLICATE CHANNELS
Line S06164 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09667  M01S06164.274l797 ---|          JMP    KWP5        RETURN
Line S00100 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09668  M02S00100.274l797 ---|
09669  M02S00101.274l797 ---| PCC7     LMN    1R/&1R,
09670  M02S00102.274l797 ---|          NJN    PCC4        IF NO OTHER CHANNEL
09671  M02S00103.274l797 ---|          AOD    KA
09672  M02S00104.274l797 ---|          AOD    T4
09673  M02S00105.274l797 ---|          LMN    CN+3
09674  M02S00106.274l797 ---|          ZJN    PCC4        IF MORE THAN TWO CHANNELS SPECIFIED
09675  M02S00107.274l797 ---|          LJM    PCC1        PROCESS SECOND CHANNEL
Line S06165 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09676  M01S06165.274l797 ---| PCH      SPACE  4,10
09677  M01S06166.274l797 ---|***       CH=C1/.../CN.
09678  M01S06167.274l797 ---|*
09679  M00S06168.set     ---|*         CHANNEL NUMBER.
09680  M01S06169.274l797 ---|*         CN = 2, 4 OR 6, IF EQUIPMENT TYPE IS *DV* OR *DW*.
09681  M00S06170.set     ---|*         CN = 15B, IF EQUIPMENT TYPE IS *RM*.
09682  M00S06171.set     ---|*         CN = 0-13B, 20-33B, FOR ALL OTHER EQUIPMENT TYPES.
09683  M01S06172.274l797 ---|*         CN = C0-C11B FOR CONCURRENT CHANNELS 0-11B.
09684  M01S06173.274l797 ---|*         THE NUMBER OF CHANNELS ALLOWED IS DEVICE TYPE DEPENDENT.
09685  M00S06174.set     ---|
09686  M00S06175.set     ---|
09687  M00S06176.set     ---| PCH      DATA   H*CH*
09688  M00S06177.set     ---|          LDN    CN+1        SET CHANNEL BYTE ADDRESS
09689  M00S06178.set     ---|          STD    T4
09690  M01S06179.274l797 ---|          LDD    CN
09691  M01S06180.274l797 ---|          SHN    1-13        CHECK DEVICE TYPE
09692  M01S06181.274l797 ---|          LPN    2
09693  M01S06182.274l797 ---|          NJN    PCH1        IF MASS STORAGE
09694  M00S06183.set     ---|          LDM    2,MS
09695  M00S06184.set     ---|          LPN    77          MAXIMUM CHANNELS ALLOWED
09696  M01S06185.274l797 ---| PCH1     ADN    CN+1
Line S02047 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09697  M01S02047.274l797 +++|          ADN    CN+1
09698  M00S06186.set     +++|          STD    T3
09699  M00S06187.set     +++|          LDN    0           CLEAR CHANNEL BUFFER
09700  M00S06188.set     +++|          STD    CN+1
09701  M00S06189.set     +++|          STD    CN+2
09702  M00S06190.set     +++|          LDD    CN+3
09703  M00S06191.set     +++|          LMC    2RRM
Line S06192 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09704  M01S06192.274l797 ---|          NJN    PCH3        IF NOT TYPE *RM*
Line S02048 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09705  M01S02048.274l797 +++|          NJN    PCH7        IF NOT TYPE *RM*
09706  M00S06193.set     +++|          RJM    CDR
09707  M00S06194.set     +++|          LDD    AB+4
09708  M00S06195.set     +++|          SBN    15
09709  M00S06196.set     +++|          NJN    PCH6        IF INCORRECT CHANNEL NUMBER
09710  M00S06197.set     +++|          LDC    4000+CHMX
09711  M00S06198.set     +++|          LJM    PCH9        SET CHANNEL DATA
09712  M00S06199.set     +++|
Line S06200 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09713  M01S06200.274l797 ---| PCH3     LMC    2RDV&2RRM
09714  M01S06201.274l797 ---|          ZJN    PCH4        IF TYPE *DV*
09715  M01S06202.274l797 ---|          LMN    1RW&1RV
09716  M01S06203.274l797 ---|          ZJN    PCH4        IF TYPE *DW*
09717  M01S06204.274l797 ---|          LDC    LDNI        SET FIRST CHANNEL
09718  M01S06205.274l797 ---|          STM    VCNA
09719  M01S06206.274l797 ---|          UJN    PCH7        ASSEMBLE FIRST CHANNEL NUMBER
09720  M01S06207.274l797 ---|
09721  M01S06208.274l797 ---| PCH4     LDC    VCP
09722  M01S06209.274l797 ---|          STM    PCHA
09723  M00S06210.set     ---| PCH5     LDD    T4
09724  M00S06211.set     ---|          SBD    T3
09725  M00S06212.set     ---|          MJN    PCH7        IF MORE CHANNELS ALLOWED
09726  M00S06213.set     ---| PCH6     JMP    ILL         PROCESS INCORRECT ENTRY
09727  M00S06214.set     ---|
09728  M00S06215.set     ---| PCH7     LDC    4000        SET CHANNEL ACCESSIBLE
09729  M00S06216.set     ---|          STI    T4
09730  M00S06217.set     ---|          LDI    KA          CHECK SEPARATOR
09731  M00S06218.set     ---|          SBN    1R8
09732  M00S06219.set     ---|          PJN    PCH6        IF NULL CHANNEL PARAMETER
09733  M01S06220.274l797 ---|          ADN    1R8-1RC
09734  M01S06221.274l797 ---|          NJN    PCH8        IF NOT A CONCURRENT CHANNEL
09735  M01S06222.274l797 ---|          LDN    40
09736  M01S06223.274l797 ---|          RAI    T4          SET CONCURRENCY ATTRIBUTE
09737  M01S06224.274l797 ---|          AOD    KA
09738  M01S06225.274l797 ---| PCH8     RJM    CDR         ASSEMBLE CHANNEL NUMBER
Line S02049 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09739  M01S02049.274l797 +++|          RJM    CDR         ASSEMBLE CHANNEL NUMBER
09740  M00S06226.set     +++|          RJM    VCN         VALIDATE CHANNEL NUMBER
Line S06227 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09741  M01S06227.274l797 ---|*         RJM    VCP         (VALIDATE CHANNEL PAIR)
09742  M01S06228.274l797 ---| PCHA     EQU    *-1
09743  M00S06229.set     ---|          LDD    AB+4        APPEND CHANNEL NUMBER
09744  M00S06230.set     ---| PCH9     RAI    T4
09745  M00S06231.set     ---|          LPN    77          CHECK CHANNEL DATA
Line S00108 Modification History
M01 (Added by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
09746  M01S00108.ns2644  +++|          STD    AB+4
Line S06232 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09747  M01S06232.274l797 ---|          SBN    40
09748  M01S06233.274l797 ---|          MJN    PCH11       IF NOT A CONCURRENT CHANNEL
09749  M01S06234.274l797 ---|          SBM    .CCHN
09750  M01S06235.274l797 ---|          MJN    PCH11       IF VALID CHANNEL NUMBER
09751  M01S06236.274l797 ---| PCH10    JMP    ILL         PROCESS INCORRECT ENTRY
09752  M01S06237.274l797 ---|
Line S06238 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09753  M02S06238.274l797 ---| PCH11    RJM    CSC         CHECK SEPARATOR CHARACTER
09754  M02S06239.274l797 ---|          NJN    PCH12       IF INVALID KEYWORD SEARATOR
Line S00109 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09755  M02S00109.274l797 ---| PCH11    LDM    TCST,AB+4
Line S02050 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09756  M01S02050.274l797 +++|          LDM    TCST,AB+4
Line S00110 Modification History
M01 (Added by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
09757  M01S00110.ns2644  +++|          ZJN    PCH12       IF CHANNEL IS NOT DOWN
09758  M01S00111.ns2644  +++|          LDC    3000        MARK CHANNEL DOWN
09759  M01S00112.ns2644  +++|          RAI    T4
09760  M01S00113.ns2644  +++| PCH12    RJM    CSC         CHECK SEPARATOR CHARACTER
Line S00114 Modification History
M01 (Added by) ns2644
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09761  M02S00114.274l797 ---|          NJN    PCH13       IF INVALID KEYWORD SEARATOR
Line S02051 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09762  M01S02051.274l797 +++|          NJN    PCH13       IF INVALID KEYWORD SEPARATOR
09763  M00S06240.set     +++|          JMP    KWP5        RETURN
09764  M00S06241.set     +++|
Line S06242 Modification History
M01 (Removed by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
09765  M01S06242.ns2644  ---| PCH12    LMN    1R/&1R,
Line S00115 Modification History
M01 (Added by) ns2644
Seq #  *Modification Id* Act 
----------------------------+
09766  M01S00115.ns2644  +++| PCH13    LMN    1R/&1R,
Line S06243 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09767  M01S06243.274l797 ---|          NJN    PCH10       IF VALID SEPARATOR
Line S02052 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09768  M01S02052.274l797 +++|          NJN    PCH6        IF INVALID SEPARATOR
09769  M00S06244.set     +++|          AOD    T4
09770  M00S06245.set     +++|          AOD    KA
09771  M00S06246.set     +++|          LJM    PCH5        PROCESS NEXT CHANNEL
Line S06247 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
09772  M01S06247.272l774 ---| PCI      SPACE  4,10
09773  M01S06248.272l774 ---|***       CI=X.
09774  M01S06249.272l774 ---|*
09775  M01S06250.272l774 ---|*         CSU IDENTIFIER.
09776  M01S06251.272l774 ---|*         X = A-M.
09777  M01S06252.272l774 ---|
09778  M01S06253.272l774 ---|
09779  M01S06254.272l774 ---| PCI      DATA   H*CI*
09780  M01S06255.272l774 ---|          LDI    KA          GET CSU IDENTIFIER
09781  M01S06256.272l774 ---|          STD    AB+4
09782  M01S06257.272l774 ---|          SBN    1RM+1
09783  M01S06258.272l774 ---|          MJN    PCI1        IF VALID CSU IDENTIFIER
09784  M01S06259.272l774 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
09785  M01S06260.272l774 ---|
09786  M01S06261.272l774 ---| PCI1     RJM    STV         STORE VALUE
09787  M01S06262.272l774 ---|          AOD    KA          ADVANCE CHARACTER ADDRESS
09788  M01S06263.272l774 ---|          JMP    KWP5        RETURN
09789  M01S06264.272l774 ---| PCP      SPACE  4,10
09790  M01S06265.272l774 ---|***       CP=N.
09791  M01S06266.272l774 ---|*
09792  M01S06267.272l774 ---|*         POSITION OF MASS STORAGE TRANSPORT (MST) ON THE CSU.
09793  M01S06268.272l774 ---|*         N = 0-3.
09794  M01S06269.272l774 ---|
09795  M01S06270.272l774 ---|
09796  M01S06271.272l774 ---| PCP      DATA   H*CP*
09797  M01S06272.272l774 ---|          LDN    4           SET MAXIMUM VALUE +1
09798  M01S06273.272l774 ---|          JMP    AOK         ASSEMBLE KEYWORD VALUE
09799  M00S06274.set     ---| PCW      SPACE  4,10
09800  M00S06275.set     ---|***       CW=CC.
09801  M00S06276.set     ---|*
09802  M00S06277.set     ---|*         CONTROL MODULE CONTROLWARE.
09803  M00S06278.set     ---|*         CC = *CM*, *NCM*, *C2*, OR *NC2*.
09804  M00S06279.set     ---|
09805  M00S06280.set     ---|
09806  M00S06281.set     ---| PCW      DATA   H*CW*
09807  M00S06282.set     ---|          LDN    TCMCL       INITIALIZE TABLE OFFSET
09808  M00S06283.set     ---|          STD    T7
09809  M00S06284.set     ---|          SOD    KA
09810  M00S06285.set     ---|          LDN    4
09811  M00S06286.set     ---|          RJM    ASN
09812  M00S06287.set     ---|          NJN    PCW2        IF ERROR IN ASSEMBLY
09813  M00S06288.set     ---| PCW1     LCN    3
09814  M00S06289.set     ---|          RAD    T7
09815  M00S06290.set     ---|          PJN    PCW3        IF NOT END OF TABLE
09816  M00S06291.set     ---| PCW2     JMP    ILL         PROCESS INCORRECT ENTRY
09817  M00S06292.set     ---|
09818  M00S06293.set     ---| PCW3     LDM    TCMC,T7
09819  M00S06294.set     ---|          LMD    CM
09820  M00S06295.set     ---|          NJN    PCW1        IF NO MATCH
09821  M00S06296.set     ---|          LDM    TCMC+1,T7
09822  M00S06297.set     ---|          LMD    CM+1
09823  M00S06298.set     ---|          NJN    PCW1        IF NO MATCH
09824  M00S06299.set     ---|          LDM    TCMC+2,T7
09825  M00S06300.set     ---|          STD    AB+4
09826  M00S06301.set     ---|          RJM    STV         STORE VALUE
09827  M00S06302.set     ---|          JMP    KWP5        RETURN
09828  M00S06303.set     ---| TCMC     SPACE  4,10
09829  M00S06304.set     ---|*         TCMC - TABLE OF CONTROL MODULE CONTROLWARE TYPES.
09830  M00S06305.set     ---|
09831  M00S06306.set     ---|
09832  M00S06307.set     ---| TCMC     BSS    0
09833  M00S06308.set     ---|          VFD    24/0LCM,12/CMCW
09834  M00S06309.set     ---|          VFD    24/0LNCM,12/CMCW+40
09835  M00S06310.set     ---|          VFD    24/0LC2,12/C2CW
09836  M00S06311.set     ---|          VFD    24/0LNC2,12/C2CW+40
09837  M00S06312.set     ---| TCMCL    EQU    *-TCMC      TABLE LENGTH
Line S02053 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09838  M01S02053.274l797 +++| PDR      SPACE  4,10
09839  M01S02054.274l797 +++|***       DR=N.
09840  M01S02055.274l797 +++|*
09841  M01S02056.274l797 +++|*         ACS DRIVE INDEX.
09842  M01S02057.274l797 +++|*         N = 0-3.
09843  M01S02058.274l797 +++|
09844  M01S02059.274l797 +++|
09845  M01S02060.274l797 +++| PDR      DATA   H*DR*
09846  M01S02061.274l797 +++|          LDN    4           SET MAXIMUM VALUE + 1
09847  M01S02062.274l797 +++|          JMP    AOK         ASSEMBLE KEYWORD VALUE
09848  M00S06313.set     +++| PEQ      SPACE  4,10
09849  M00S06314.set     +++|***       EQ=N.
09850  M00S06315.set     +++|*
09851  M00S06316.set     +++|*         EQUIPMENT (CONTROLLER) NUMBER.
09852  M00S06317.set     +++|*         N = 0-7.
09853  M00S06318.set     +++|
09854  M00S06319.set     +++|
09855  M00S06320.set     +++| PEQ      DATA   H*EQ*
09856  M00S06321.set     +++|          LDN    10          SET MAXIMUM VALUE + 1
09857  M00S06322.set     +++|          JMP    AOK         ASSEMBLE KEYWORD VALUE
Line S06323 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09858  M01S06323.274l797 ---| PET      SPACE  4,10
09859  M01S06324.274l797 ---|***       ET=MT.
09860  M01S06325.274l797 ---|*         ET=MT/PT.  (*DP* TYPE EQUIPMENT ONLY).
09861  M01S06326.274l797 ---|*         ET=MT/PT/CT.  (*DP* TYPE EQUIPMENT ONLY).
09862  M01S06327.274l797 ---|*
09863  M01S06328.274l797 ---|*         EXTENDED MEMORY TYPE (DEFAULT = E1,D1).
09864  M01S06329.274l797 ---|*         MT = MEMORY TYPE.
09865  M01S06330.274l797 ---|*              E1 - ECS 1.
09866  M01S06331.274l797 ---|*              E2 - ECS 2.
09867  M01S06332.274l797 ---|*              LE - LCME.
09868  M01S06333.274l797 ---|*              EM - UEM.
09869  M01S06334.274l797 ---|*              ES - ESM.
Line S00001 Modification History
M01 (Added by) ns2693
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09870  M02S00001.274l797 ---|*              SN - STORNET.
Line S06335 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09871  M01S06335.274l797 ---|*         PT = PATH TYPE.
09872  M01S06336.274l797 ---|*              D1 - DC135 DDP (DEFAULT FOR MT = E1/E2).
09873  M01S06337.274l797 ---|*              D2 - DC145 PARITY ENHANCED DDP OR ESM LOW SPEED PORT.
Line S06338 Modification History
M01 (Removed by) ns2693
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09874  M02S06338.274l797 ---|*                   (DEFAULT FOR MT = ES).
Line S00002 Modification History
M01 (Added by) ns2693
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09875  M02S00002.274l797 ---|*                   (DEFAULT FOR MT = ES OR SN).
Line S06339 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09876  M01S06339.274l797 ---|*         CT = CPU TYPE.
09877  M01S06340.274l797 ---|*              NC - NO CPU COUPLER.
Line S00003 Modification History
M01 (Added by) ns2693
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09878  M02S00003.274l797 ---|*                   (DEFAULT FOR MT = SN).
Line S06341 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09879  M01S06341.274l797 ---|
09880  M01S06342.274l797 ---|
09881  M01S06343.274l797 ---| PET      DATA   H*ET*
09882  M01S06344.274l797 ---|          LDN    CFGL        GET HARDWARE MODE
09883  M01S06345.274l797 ---|          CRD    CM
09884  M01S06346.274l797 ---|          LDD    CM+3
09885  M01S06347.274l797 ---|          SHN    4-12
09886  M01S06348.274l797 ---|          LPN    20
09887  M01S06349.274l797 ---|          ADC    4511        4531 = EXTENDED, 4511 = ECS ADDRESSING
09888  M01S06350.274l797 ---|          STM    TMTO+ESMP+2
09889  M01S06351.274l797 ---|          LDC    TMTOL*10000+TMTO  CHECK MEMORY TYPE
09890  M01S06352.274l797 ---|          RJM    CET
09891  M01S06353.274l797 ---|          RJM    CSC         CHECK SEPARATOR CHARACTER
09892  M01S06354.274l797 ---|          ZJN    PET3        IF NO PATH TYPE/CPU TYPE SPECIFIED
09893  M01S06355.274l797 ---|          LMN    1R/&1R,
09894  M01S06356.274l797 ---|          ZJN    PET2        IF CORRECT SEPARATOR
09895  M01S06357.274l797 ---| PET1     JMP    ILL         PROCESS INCORRECT ENTRY
09896  M01S06358.274l797 ---|
09897  M01S06359.274l797 ---| PET2     LDD    CN+3
09898  M01S06360.274l797 ---|          LMC    2RDP
09899  M01S06361.274l797 ---|          NJN    PET1        IF NOT TYPE *DP*
09900  M01S06362.274l797 ---|          AOD    KA
09901  M01S06363.274l797 ---|          LDI    KA
09902  M01S06364.274l797 ---|          LMN    1R/
09903  M01S06365.274l797 ---|          ZJN    PET4        IF NULL PATH TYPE
09904  M01S06366.274l797 ---|          LDC    TPTOL*10000+TPTO  CHECK PATH TYPE
09905  M01S06367.274l797 ---|          RJM    CET
09906  M01S06368.274l797 ---|          RJM    CSC         CHECK SEPARATOR CHARACTER
09907  M01S06369.274l797 ---| PET3     ZJN    PET5        IF NO CPU TYPE
09908  M01S06370.274l797 ---|          LMN    1R/&1R,
09909  M01S06371.274l797 ---|          NJN    PET1        IF NOT CORRECT SEPARATOR
09910  M01S06372.274l797 ---| PET4     AOD    KA
09911  M01S06373.274l797 ---|          LDC    TCTOL*10000+TCTO  CHECK CPU TYPE
09912  M01S06374.274l797 ---|          RJM    CET
09913  M01S06375.274l797 ---| PET5     JMP    KWP5        RETURN
09914  M01S06376.274l797 ---|          SPACE  4,10
09915  M01S06377.274l797 ---|**        EXTENDED MEMORY TYPE OPTION TABLES.
09916  M01S06378.274l797 ---|*
09917  M01S06379.274l797 ---|*         ENTRY = 3 WORDS
09918  M01S06380.274l797 ---|*T,       12/ OP,12/ MASK,1/D,2/ R,3/ MT,3/ CT,3/ PT
Figure

0235689101112232429 PT CT MT RD MASK OP3035 OP

09919  M01S06381.274l797 ---|*
09920  M01S06382.274l797 ---|*         OP = MNEMONIC.
09921  M01S06383.274l797 ---|*         MASK = *DILL* BYTE 3 MASK.
09922  M01S06384.274l797 ---|*         R = RESERVED.
09923  M01S06385.274l797 ---|*         D = DEVICE SUPPORTS DIRECT TRANSFER.
09924  M01S06386.274l797 ---|*         MT = MEMORY TYPE.
09925  M01S06387.274l797 ---|*              0 = RESERVED.
09926  M01S06388.274l797 ---|*              1 = E1 (ECS 1).
09927  M01S06389.274l797 ---|*              2 = E2 (ECS 2).
09928  M01S06390.274l797 ---|*              3 = LE (LCME).
09929  M01S06391.274l797 ---|*              4 = EM (UEM).
09930  M01S06392.274l797 ---|*              5 = ES (ESM).
Line S06393 Modification History
M01 (Removed by) 261l700
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09931  M02S06393.274l797 ---|*              6-7 = RESERVED.
Line S00084 Modification History
M01 (Added by) 261l700
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09932  M02S00084.274l797 ---|*              6 = SN (STORNET).
09933  M02S00085.274l797 ---|*              7 = RESERVED.
Line S06394 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09934  M01S06394.274l797 ---|*
09935  M01S06395.274l797 ---|*         CT = CPU TYPE
09936  M01S06396.274l797 ---|*              0 = NO CPU PATH.
09937  M01S06397.274l797 ---|*              1 = ECS MODE.
09938  M01S06398.274l797 ---|*              2 = LCME.
09939  M01S06399.274l797 ---|*              3 = ESM MODE.
09940  M01S06400.274l797 ---|*              4 = UEM CPU INTERFACE.
09941  M01S06401.274l797 ---|*              5 - 7 = RESERVED.
09942  M01S06402.274l797 ---|*
09943  M01S06403.274l797 ---|*         PT = PP PATH TYPE.
09944  M01S06404.274l797 ---|*              0 = NO DDP.
09945  M01S06405.274l797 ---|*              1 = DC145 PARITY ENHANCED DDP
09946  M01S06406.274l797 ---|*                  OR ESM LOW SPEED PORT.
09947  M01S06407.274l797 ---|*              2 = DC135 DDP.
09948  M01S06408.274l797 ---|*              3-7 = RESERVED
09949  M01S06409.274l797 ---|
09950  M01S06410.274l797 ---|
09951  M01S06411.274l797 ---| TMTO     BSS    0           TABLE OF MEMORY TYPE OPTIONS
09952  M01S06412.274l797 ---|          CON    2RE1,0,4112  ECS 1, DC135 DDP
09953  M01S06413.274l797 ---|          CON    2RE2,0,4212  ECS 2, DC135 DDP
09954  M01S06414.274l797 ---|          CON    2RLE,0,4320  LCME
09955  M01S06415.274l797 ---|          CON    2REM,0,4440  UEM
09956  M01S06416.274l797 ---| ESMP     EQU    *-TMTO      POINTER FOR ESM ENTRY
09957  M01S06417.274l797 ---|          CON    2RES,0,4511  ESM, LSP
Line S00086 Modification History
M01 (Added by) 261l700
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09958  M02S00086.274l797 ---|          CON    2RSN,0,0601  STORNET
Line S06418 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09959  M01S06418.274l797 ---| TMTOL    EQU    *-TMTO
09960  M01S06419.274l797 ---|
09961  M01S06420.274l797 ---| TPTO     BSS    0           TABLE OF PATH TYPE OPTIONS
09962  M01S06421.274l797 ---|          CON    2RD1,-7,2   DC135 DDP
09963  M01S06422.274l797 ---|          CON    2RD2,-7,1   DC145 PARITY ENHANCED DDP
09964  M01S06423.274l797 ---| TPTOL    EQU    *-TPTO
09965  M01S06424.274l797 ---|
09966  M01S06425.274l797 ---| TCTO     BSS    0           TABLE OF CPU TYPE OPTIONS
09967  M01S06426.274l797 ---|          CON    2RNC,-4077,1  NO CPU COUPLER
09968  M01S06427.274l797 ---| TCTOL    EQU    *-TCTO
09969  M00S06428.set     ---| PFC      SPACE  4,10
09970  M00S06429.set     ---|***       FC=XX.
09971  M00S06430.set     ---|*
09972  M00S06431.set     ---|*         FORMS CODE.
09973  M00S06432.set     ---|*         XX = 2 ALPHANUMERIC CHARACTERS IN THE RANGE AA-99.
09974  M00S06433.set     ---|
09975  M00S06434.set     ---|
09976  M00S06435.set     ---| PFC      DATA   H*FC*
09977  M00S06436.set     ---|          ZJN    PFC3        IF NULL VALUE
09978  M00S06437.set     ---|          SOD    KA
09979  M00S06438.set     ---|          LDN    3           ASSEMBLE FORMS CODE
09980  M00S06439.set     ---|          RJM    ASN
09981  M00S06440.set     ---|          NJN    PFC1        IF INCORRECT FORMS CODE
09982  M00S06441.set     ---|          LDD    T0
09983  M00S06442.set     ---|          SBN    2
09984  M00S06443.set     ---|          ZJN    PFC2        IF 2 CHARACTERS
09985  M00S06444.set     ---| PFC1     JMP    ILL         PROCESS INCORRECT ENTRY
09986  M00S06445.set     ---|
09987  M00S06446.set     ---| PFC2     LDD    CM
09988  M00S06447.set     ---|          STD    AB+4
09989  M00S06448.set     ---| PFC3     RJM    STV         STORE VALUE
09990  M00S06449.set     ---|          JMP    KWP5        RETURN
09991  M00S06450.set     ---| PIB      SPACE  4,10
09992  M00S06451.set     ---|***       IB=N.
09993  M00S06452.set     ---|*
09994  M00S06453.set     ---|*         INSTALLATION BYTE.
09995  M00S06454.set     ---|*         N = 0B - 7777B.
09996  M00S06455.set     ---|
09997  M00S06456.set     ---|
09998  M00S06457.set     ---| PIB      DATA   H*IB*
09999  M00S06458.set     ---|          RJM    AOD         ASSEMBLE INSTALLATION BYTE VALUE
10000  M00S06459.set     ---|          STM    EBUT+5
10001  M00S06460.set     ---|          JMP    KWP5        RETURN
10002  M00S06461.set     ---| PID      SPACE  4,10
10003  M00S06462.set     ---|***       ID=N.
10004  M00S06463.set     ---|*
10005  M01S06464.274l797 ---|*         IDENTIFIER.
Line S02063 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10006  M01S02063.274l797 +++|*         UNIT RECORD ID.
10007  M00S06465.set     +++|*         N = 0-67B.
10008  M00S06466.set     +++|
10009  M00S06467.set     +++|
10010  M00S06468.set     +++| PID      DATA   H*ID*
10011  M00S06469.set     +++|          ZJN    PID1        IF NULL VALUE
10012  M00S06470.set     +++|          RJM    CDR         ASSEMBLE ID
10013  M00S06471.set     +++|          LDD    AB+4
10014  M00S06472.set     +++|          SBN    IDLM
10015  M00S06473.set     +++|          MJN    PID1        IF VALID ID
10016  M00S06474.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
10017  M00S06475.set     +++|
10018  M00S06476.set     +++| PID1     RJM    STV         STORE VALUE
10019  M00S06477.set     +++|          JMP    KWP5        RETURN
Line S06478 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10020  M01S06478.274l797 ---| PMA      SPACE  4,10
10021  M01S06479.274l797 ---|***       MA=STATUS.
Line S02064 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10022  M01S02064.274l797 +++| PLS      SPACE  4,10
10023  M01S02065.274l797 +++|***       LS=N.
10024  M00S06480.set     +++|*
Line S06481 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10025  M01S06481.274l797 ---|*         EXTENDED MEMORY MAINTENANCE MODE.
10026  M01S06482.274l797 ---|*         STATUS = *ON* OR *OFF*.
Line S02066 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10027  M01S02066.274l797 +++|*         ACS LSM INDEX.
10028  M01S02067.274l797 +++|*         N = 0-17B.
10029  M00S06483.set     +++|
10030  M00S06484.set     +++|
Line S06485 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10031  M01S06485.274l797 ---| PMA      DATA   H*MA*
10032  M01S06486.274l797 ---|          RJM    AST         ASSEMBLE MAINTENANCE MODE STATUS
10033  M01S06487.274l797 ---|          SHN    21-0
10034  M01S06488.274l797 ---|          PJN    PMA1        IF *ON* OR *OFF*
10035  M01S06489.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
10036  M01S06490.274l797 ---|
10037  M01S06491.274l797 ---| PMA1     LDM    TDDB+DVED   SET STATUS
10038  M01S06492.274l797 ---|          SHN    23-11
10039  M01S06493.274l797 ---|          SCN    2
10040  M01S06494.274l797 ---|          LMD    AB+4
10041  M01S06495.274l797 ---|          LMN    2
10042  M01S06496.274l797 ---|          SHN    11-1
10043  M01S06497.274l797 ---|          STM    TDDB+DVED
10044  M01S06498.274l797 ---|          JMP    KWP5        RETURN
10045  M01S06499.274l797 ---| PMC      SPACE  4,10
10046  M01S06500.274l797 ---|***       MC=N.
10047  M01S06501.274l797 ---|*
10048  M01S06502.274l797 ---|*         ESM SIDE DOOR PORT CHANNEL NUMBER.
10049  M01S06503.274l797 ---|*         N = 0-13B, 20B-33B.
10050  M01S06504.274l797 ---|
10051  M01S06505.274l797 ---|
10052  M01S06506.274l797 ---| PMC      DATA   H*MC*
10053  M01S06507.274l797 ---|          RJM    CDR         ASSEMBLE CHANNEL NUMBER
10054  M01S06508.274l797 ---|          LDC    LDNI        SET FIRST CHANNEL
10055  M01S06509.274l797 ---|          STM    VCNA
10056  M01S06510.274l797 ---|          RJM    VCN         VALIDATE CHANNEL NUMBER
10057  M01S06511.274l797 ---|          RJM    STV         STORE VALUE
10058  M01S06512.274l797 ---|          JMP    KWP5        RETURN
Line S02068 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10059  M01S02068.274l797 +++| PLS      DATA   H*LS*
10060  M01S02069.274l797 +++|          LDN    20          SET MAXIMUM VALUE + 1
10061  M01S02070.274l797 +++|          JMP    AOK         ASSEMBLE KEYWORD VALUE
Line S06513 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10062  M01S06513.272l774 ---| PMI      SPACE  4,10
10063  M01S06514.272l774 ---|***       MI=N.
10064  M01S06515.272l774 ---|*
10065  M01S06516.272l774 ---|*         MSA MSID.
10066  M01S06517.272l774 ---|*         N = 0-17B.
10067  M01S06518.272l774 ---|
10068  M01S06519.272l774 ---|
10069  M01S06520.272l774 ---| PMI      DATA   H*MI*
10070  M01S06521.272l774 ---|          LDN    20          SET MAXIMUM VALUE+1
10071  M01S06522.272l774 ---|          JMP    AOK         ASSEMBLE KEYWORD VALUE
10072  M00S06523.set     ---| PND      SPACE  4,10
10073  M00S06524.set     ---|***       ND=N.
10074  M00S06525.set     ---|*
10075  M00S06526.set     ---|*         NPU NODE NUMBER.
10076  M00S06527.set     ---|*         N = 1-377B.
10077  M00S06528.set     ---|
10078  M00S06529.set     ---|
10079  M00S06530.set     ---| PND      DATA   H*ND*
10080  M00S06531.set     ---|          LDC    1S12+400    SET MINIMUM VALUE, MAXIMUM VALUE+1
10081  M00S06532.set     ---|          JMP    AOK         ASSEMBLE KEYWORD VALUE
10082  M00S06533.set     ---| PNT      SPACE  4,10
10083  M00S06534.set     ---|***       NT=N.
10084  M00S06535.set     ---|*
10085  M00S06536.set     ---|*         MDI NODE NUMBER.
10086  M00S06537.set     ---|*         N = 1-377B.
10087  M00S06538.set     ---|
10088  M00S06539.set     ---|
10089  M00S06540.set     ---| PNT      DATA   H*NT*
10090  M00S06541.set     ---|          LDC    1S12+400    SET MINIMUM VALUE, MAXIMUM VALUE+1
Line S02071 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10091  M01S02071.274l797 +++|          JMP    AOK         ASSEMBLE KEYWORD VALUE
10092  M01S02072.274l797 +++| PPA      SPACE  4,10
10093  M01S02073.274l797 +++|***       PA=N.
10094  M01S02074.274l797 +++|*
10095  M01S02075.274l797 +++|*         ACS PANEL INDEX.
10096  M01S02076.274l797 +++|*         N = 0-23B.
10097  M01S02077.274l797 +++|
10098  M01S02078.274l797 +++|
10099  M01S02079.274l797 +++| PPA      DATA   H*PA*
10100  M01S02080.274l797 +++|          LDN    24          SET MAXIMUM VALUE + 1
10101  M00S06542.set     +++|          JMP    AOK         ASSEMBLE KEYWORD VALUE
10102  M00S06543.set     +++| PPI      SPACE  4,10
10103  M00S06544.set     +++|***       PI=N.
10104  M00S06545.set     +++|*
10105  M00S06546.set     +++|*         PIP INDEX.
10106  M00S06547.set     +++|*         N = 1-4.
10107  M00S06548.set     +++|
10108  M00S06549.set     +++|
10109  M00S06550.set     +++| PPI      DATA   H*PI*
10110  M00S06551.set     +++|          LDC    1S12+5      SET MINIMUM VALUE, MAXIMUM VALUE+1
10111  M00S06552.set     +++|          JMP    AOK         ASSEMBLE KEYWORD VALUE
10112  M00S06553.set     +++| PPS      SPACE  4,10
10113  M00S06554.set     +++|***       PS=X.
10114  M00S06555.set     +++|*
10115  M00S06556.set     +++|*         PAPER SIZE.
10116  M00S06557.set     +++|*         X = *S* (SHORT) OR *L* (LONG).
10117  M00S06558.set     +++|
10118  M00S06559.set     +++|
10119  M00S06560.set     +++| PPS      DATA   H*PS*
10120  M00S06561.set     +++|          LDI    KA
10121  M00S06562.set     +++|          LMN    1RL
10122  M00S06563.set     +++|          ZJN    PPS2        IF LONG PAPER
10123  M00S06564.set     +++|          LMN    1RS&1RL
10124  M00S06565.set     +++|          ZJN    PPS1        IF SHORT PAPER
10125  M00S06566.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
10126  M00S06567.set     +++|
10127  M00S06568.set     +++| PPS1     LDD    CN
10128  M00S06569.set     +++|          SHN    -7          USE PFC FLAG TO SET LAST PFC LOADED FLAG
10129  M00S06570.set     +++|          LPN    1
10130  M00S06571.set     +++|          LMN    2           SET SHORT PAPER FLAG
10131  M00S06572.set     +++| PPS2     STD    AB+4
10132  M00S06573.set     +++|          RJM    STV         STORE VALUE
10133  M00S06574.set     +++|          AOD    KA
10134  M00S06575.set     +++|          JMP    KWP5        RETURN
10135  M00S06576.set     +++| PPT      SPACE  4,10
10136  M00S06577.set     +++|***       PT=N.
10137  M00S06578.set     +++|*
Line S06579 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10138  M01S06579.272l774 ---|*         PORT NUMBER.
10139  M01S06580.272l774 ---|*         N = 0-7 (MSA PORT NUMBER) IF *CS* OR *CT* EQUIPMENT TYPE.
10140  M01S06581.272l774 ---|*           = 0 OR 1 (MULTIPLEXER PORT NUMBER) IF *RM* EQUIPMENT TYPE.
Line S00025 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10141  M01S00025.272l774 +++|*         PORT NUMBER OR NUMBER OF PORTS.
10142  M01S00026.272l774 +++|*         N = 0 OR 1 (MULTIPLEXER PORT NUMBER) IF *RM* EQUIPMENT TYPE.
10143  M00S06582.set     +++|*           = 1-1000B (NUMBER OF PORTS) IF *TT* STIMULATOR.
10144  M00S06583.set     +++|
10145  M00S06584.set     +++|
10146  M00S06585.set     +++| PPT      DATA   H*PT*
10147  M00S06586.set     +++|          RJM    CDR         ASSEMBLE PORT NUMBER
10148  M00S06587.set     +++|          LDD    CN+3
Line S06588 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10149  M01S06588.272l774 ---|          LMC    2RRM
10150  M01S06589.272l774 ---|          ZJN    PPT4        IF *RM* EQUIPMENT TYPE
10151  M01S06590.272l774 ---|          LMC    2RTT&2RRM
Line S00027 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10152  M01S00027.272l774 +++|          LMC    2RTT
10153  M00S06591.set     +++|          ZJN    PPT5        IF *TT* STIMULATOR EQUIPMENT TYPE
Line S06592 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10154  M01S06592.272l774 ---|          LDD    AB+4        MSA PORT NUMBER
10155  M01S06593.272l774 ---|          SBN    10
10156  M01S06594.272l774 ---|          MJN    PPT2        IF .LE. 7
Line S00028 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10157  M01S00028.272l774 +++|          LDD    AB+4        MULTIPLEXER PORT NUMBER
10158  M01S00029.272l774 +++|          SHN    -1
10159  M01S00030.272l774 +++|          ZJN    PPT2        IF .LE. 1
10160  M00S06595.set     +++| PPT1     JMP    ILL         PROCESS INCORRECT ENTRY
10161  M00S06596.set     +++|
Line S06597 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10162  M01S06597.272l774 ---| PPT2     LCN    7           SET MASK IN *TKWP* ENTRY
Line S00031 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10163  M01S00031.272l774 +++| PPT2     LCN    1           SET MASK IN *TKWP* ENTRY
10164  M00S06598.set     +++| PPT3     STM    3,T3
10165  M00S06599.set     +++|          RJM    STV         STORE VALUE
10166  M00S06600.set     +++|          JMP    KWP5        RETURN
Line S06601 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10167  M01S06601.272l774 ---|
10168  M01S06602.272l774 ---| PPT4     LDD    AB+4        MULTIPLEXER PORT NUMBER
10169  M01S06603.272l774 ---|          SHN    -1
10170  M01S06604.272l774 ---|          NJN    PPT1        IF NOT 0 OR 1
10171  M01S06605.272l774 ---|          LCN    1
10172  M01S06606.272l774 ---|          UJN    PPT3        SET MASK
10173  M00S06607.set     ---|
10174  M00S06608.set     ---| PPT5     LDD    AB+4        NUMBER OF PORTS TO STIMULATE
10175  M00S06609.set     ---|          ZJN    PPT1        IF .EQ. 0
10176  M00S06610.set     ---|          SBN    1
10177  M00S06611.set     ---|          SHN    -11
10178  M00S06612.set     ---|          NJN    PPT1        IF .GT. 1000B
10179  M00S06613.set     ---|          LDD    AB+4
10180  M00S06614.set     ---|          LPC    777
10181  M00S06615.set     ---|          STD    AB+4
10182  M00S06616.set     ---|          LDC    7000
10183  M00S06617.set     ---|          UJN    PPT3        SET MASK
10184  M00S06618.set     ---| PSA      SPACE  4,10
10185  M00S06619.set     ---|***       SA=STATUS.
10186  M00S06620.set     ---|*
Line S06621 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10187  M01S06621.274l797 ---|*         SYSTEM AUTOSTART MODULE (SAM) FLAG.
Line S02081 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10188  M01S02081.274l797 +++|*         255X SYSTEM AUTOSTART MODULE (SAM) FLAG.
10189  M00S06622.set     +++|*         STATUS = *ON* OR *OFF*.
10190  M00S06623.set     +++|*
10191  M00S06624.set     +++|*         *ON* = *SAM* IS PRESENT.
10192  M00S06625.set     +++|*         *OFF* = *SAM* IS ABSENT.
10193  M00S06626.set     +++|
10194  M00S06627.set     +++|
10195  M00S06628.set     +++| PSA      DATA   H*SA*
10196  M00S06629.set     +++|          RJM    AST         ASSEMBLE *SAM* STATUS
10197  M00S06630.set     +++|          SHN    21-0
10198  M00S06631.set     +++|          PJN    PSA2        IF *ON* OR *OFF*
10199  M00S06632.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
10200  M00S06633.set     +++|
10201  M00S06634.set     +++| PSA2     LMN    1           COMPLEMENT FLAG
10202  M00S06635.set     +++|          STD    AB+4
10203  M00S06636.set     +++|          RJM    STV         STORE VALUE
10204  M00S06637.set     +++|          JMP    KWP5        RETURN
10205  M00S06638.set     +++| PST      SPACE  4,10
10206  M00S06639.set     +++|***       ST=STATUS.
10207  M00S06640.set     +++|*
10208  M00S06641.set     +++|*         DEVICE STATUS.
Line S06642 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10209  M01S06642.274l797 ---|*         STATUS = *ON* OR *IDLE* OR *OFF* OR *DOWN*.
Line S02082 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10210  M01S02082.274l797 +++|*         STATUS = *ON* OR *OFF* OR *DOWN*.
10211  M00S06643.set     +++|*
Line S06644 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10212  M01S06644.274l797 ---|*         *ON* OR *IDLE* = EQUIPMENT AVAILABLE FOR ACCESS.
Line S02083 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10213  M01S02083.274l797 +++|*         *ON* = EQUIPMENT AVAILABLE FOR ACCESS.
10214  M00S06645.set     +++|*         *OFF* OR *DOWN* = EQUIPMENT UNAVAILABLE FOR ACCESS.
Line S06646 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10215  M01S06646.274l797 ---|*
10216  M01S06647.274l797 ---|*         *IDLE* IS NOT VALID FOR AN EQUIPMENT WHICH IS DEFINED AS A
10217  M01S06648.274l797 ---|*         NON-MASS STORAGE DEVICE.
10218  M01S06649.274l797 ---|*
10219  M01S06650.274l797 ---|*         *OFF* OR *DOWN* IS NOT VALID FOR AN EQUIPMENT WHICH IS
10220  M01S06651.274l797 ---|*         DEFINED AS A SYSTEM, FAMILY, OR CHECKPOINT DEVICE.
10221  M00S06652.set     ---|
10222  M00S06653.set     ---|
10223  M00S06654.set     ---| PST      DATA   H*ST*
10224  M00S06655.set     ---|          RJM    AST         ASSEMBLE STATUS
10225  M01S06656.274l797 ---|          ZJN    PST3        IF *ON*
10226  M01S06657.274l797 ---|          LPN    2
10227  M01S06658.274l797 ---|          NJN    PST2        IF *OFF* OR *DOWN*
10228  M01S06659.274l797 ---|          LDD    CN
10229  M01S06660.274l797 ---|          SHN    21-13
10230  M01S06661.274l797 ---|          MJN    PST3        IF *IDLE* AND MASS STORAGE DEVICE
10231  M01S06662.274l797 ---| PST1     JMP    ILL         PROCESS INCORRECT ENTRY
10232  M01S06663.274l797 ---|
10233  M01S06664.274l797 ---| PST2     LDD    CN
10234  M01S06665.274l797 ---|          SHN    21-13
10235  M01S06666.274l797 ---|          PJN    PST3        IF NOT MASS STORAGE DEVICE
10236  M01S06667.274l797 ---|          SHN    21-12-21+13
10237  M01S06668.274l797 ---|          MJN    PST1        IF SYSTEM DEVICE
10238  M01S06669.274l797 ---|          LDM    .PFNL+3
10239  M01S06670.274l797 ---|          SBD    EQ
10240  M01S06671.274l797 ---|          ZJN    PST1        IF FAMILY EQUIPMENT
10241  M01S06672.274l797 ---|          LDM    TDDB+DVPR
10242  M01S06673.274l797 ---|          LPN    2
10243  M01S06674.274l797 ---|          NJN    PST1        IF CHECKPOINT DEVICE
10244  M01S06675.274l797 ---| PST3     RJM    STV         STORE VALUE
Line S02084 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10245  M01S02084.274l797 +++|          RJM    STV         STORE VALUE
10246  M00S06676.set     +++|          JMP    KWP5        RETURN
Line S06677 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10247  M01S06677.274l797 ---| PSZ      SPACE  4,10
10248  M01S06678.274l797 ---|***       SZ=N.
10249  M01S06679.274l797 ---|*
10250  M01S06680.274l797 ---|*         SIZE OF EXTENDED MEMORY.
10251  M01S06681.274l797 ---|*         N = VALUE  (ECS 1 AVAILABLE)  (ECS 2, ESM, OR LCME AVAILABLE)
10252  M01S06682.274l797 ---|*             400B   (125K)             (131K)
10253  M01S06683.274l797 ---|*             1000B  (250K)             (262K)
10254  M01S06684.274l797 ---|*             2000B  (500K)             (524K)
10255  M01S06685.274l797 ---|*             4000B  (1000K)            (1048K)
10256  M01S06686.274l797 ---|*             10000B (2000K)            (2096K)
10257  M01S06687.274l797 ---|*
10258  M01S06688.274l797 ---|*         N = 10B (4K) THROUGH 10000B-MINCM (2000K-MINCM) FOR UEM.
10259  M01S06689.274l797 ---|*
10260  M01S06690.274l797 ---|*         FOR UEM, ECS 2, LCM AND ESM, SZ MAY BE ANY VALUE BETWEEN AND
10261  M01S06691.274l797 ---|*         INCLUDING 10B (4K WORDS) AND 10000B (2M WORDS).  THE SUM OF
10262  M01S06692.274l797 ---|*         UEM SIZE + NVE SIZE + MINCM SIZE (65K USED IF NOT SPECIFIED)
10263  M01S06693.274l797 ---|*         MUST BE .LE. THE PHYSICAL MAIN MEMORY SIZE RETURNED BY *CTI*.
10264  M01S06694.274l797 ---|*
10265  M01S06695.274l797 ---|*         FOR UEM AND ESM, *SZ* MAY BE UP TO 100000B (16M WORDS).
10266  M01S06696.274l797 ---|
10267  M01S06697.274l797 ---|
10268  M01S06698.274l797 ---| PSZ      DATA   H*SZ*
10269  M01S06699.274l797 ---|          RJM    AOD         ASSEMBLE SIZE
10270  M01S06700.274l797 ---|          STM    TDDB+DVES+1
10271  M01S06701.274l797 ---|          LDD    AB+3
10272  M01S06702.274l797 ---|          STM    TDDB+DVES
10273  M01S06703.274l797 ---|          SCN    17
10274  M01S06704.274l797 ---|          NJN    PSZ1        IF TOO MANY DIGITS
10275  M01S06705.274l797 ---|          LDM    EBUT+7
10276  M01S06706.274l797 ---|          LPC    300
10277  M01S06707.274l797 ---|          STD    T1          SAVE PREVIOUS XM SHIFT
10278  M01S06708.274l797 ---|          LDD    AB+3
10279  M01S06709.274l797 ---|          SHN    14
10280  M01S06710.274l797 ---|          LMD    AB+4
10281  M01S06711.274l797 ---|          SBN    10
10282  M01S06712.274l797 ---|          PJN    PSZ2        IF .GE. 10K
10283  M01S06713.274l797 ---| PSZ1     JMP    ILL         PROCESS INCORRECT ENTRY
10284  M01S06714.274l797 ---|
10285  M01S06715.274l797 ---| PSZ2     ADN    10-1
10286  M01S06716.274l797 ---|          SHN    -14
10287  M01S06717.274l797 ---|          ZJN    PSZ5        IF .LE. 2M WORDS
10288  M01S06718.274l797 ---|          SHN    -1
10289  M01S06719.274l797 ---|          ZJN    PSZ4        IF .LE. 4M WORDS
10290  M01S06720.274l797 ---|          SHN    -1
10291  M01S06721.274l797 ---|          ZJN    PSZ3        IF .LE. 8M WORDS
10292  M01S06722.274l797 ---|          SHN    -1
10293  M01S06723.274l797 ---|          NJN    PSZ1        IF .GT. 16M WORDS
10294  M01S06724.274l797 ---|          LDN    1
10295  M01S06725.274l797 ---| PSZ3     ADN    1
10296  M01S06726.274l797 ---| PSZ4     ADN    1
10297  M01S06727.274l797 ---| PSZ5     SHN    6
10298  M01S06728.274l797 ---|          SBD    T1
10299  M01S06729.274l797 ---|          MJN    PSZ6        IF PREVIOUS SHIFT OKAY
10300  M01S06730.274l797 ---|          RAM    EBUT+7
10301  M01S06731.274l797 ---| PSZ6     JMP    KWP5        RETURN
10302  M00S06732.set     ---| PTF      SPACE  4,10
10303  M00S06733.set     ---|***       TF=XXX.
10304  M00S06734.set     ---|*
10305  M00S06735.set     ---|*         TAPE FLAG.
10306  M00S06736.set     ---|*         XXX = ATS - DEVICE IS 67X (ATS) UNIT.
10307  M00S06737.set     ---|*               FSC - DEVICE IS FSC UNIT.
10308  M00S06738.set     ---|*               MTS - DEVICE IS 66X (MTS) UNIT.
10309  M00S06739.set     ---|*               IST - DEVICE IS ISMT UNIT.
10310  M00S06740.set     ---|*               CMTGE - DEVICE IS 698 (CMTS) UNIT.
10311  M00S06741.set     ---|*               ATSGE - ATS UNIT WITH GE (6250 CPI) CAPABILITY.
10312  M00S06742.set     ---|*               FSCGE - FSC UNIT WITH GE (6250 CPI) CAPABILITY.
10313  M00S06743.set     ---|
10314  M00S06744.set     ---|
10315  M00S06745.set     ---| PTF      DATA   H*TF*
10316  M00S06746.set     ---|          LDI    KA          ASSEMBLE TAPE FLAG
10317  M00S06747.set     ---|          SHN    6
10318  M00S06748.set     ---|          LMM    1,KA
10319  M00S06749.set     ---|          STD    AB
10320  M00S06750.set     ---|          LDN    2
10321  M00S06751.set     ---|          RAD    KA
10322  M00S06752.set     ---|          LDI    KA
10323  M00S06753.set     ---|          SHN    6
10324  M00S06754.set     ---|          STD    AB+1
10325  M00S06755.set     ---|          AOD    KA
10326  M00S06756.set     ---|          LDC    TTFO-3      SEARCH TAPE FLAG OPTION TABLE
10327  M00S06757.set     ---|          STD    T1
10328  M00S06758.set     ---| PTF1     LDN    3
10329  M00S06759.set     ---|          RAD    T1
10330  M00S06760.set     ---|          LDI    T1          COMPARE FIRST 2 CHARACTERS
10331  M00S06761.set     ---|          ZJN    PTF2        IF END OF TABLE
10332  M00S06762.set     ---|          LMD    AB
10333  M00S06763.set     ---|          NJN    PTF1        IF NOT MATCH
10334  M00S06764.set     ---|          LDM    1,T1        COMPARE NEXT CHARACTER
10335  M00S06765.set     ---|          SCN    77
10336  M00S06766.set     ---|          LMD    AB+1
10337  M00S06767.set     ---|          NJN    PTF1        IF NOT MATCH
10338  M00S06768.set     ---|          LDM    2,T1        SET TAPE FLAG VALUE
10339  M00S06769.set     ---|          STD    AB+4
10340  M00S06770.set     ---|          RJM    CIT         CHECK ISMT DEVICES
10341  M00S06771.set     ---|          RJM    CSC         CHECK SEPARATOR CHARACTER
10342  M00S06772.set     ---|          ZJN    PTF4        IF *,* OR *.*
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/set.005.txt ยท Last modified: by 127.0.0.1