User Tools

Site Tools


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

Deck SET Part 017

79 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S15043 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21075  M02S15043.271l716 ---|          UJN    SER5        ENTER VALUE
Line S15044 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21076  M02S15044.271l716 ---|
Line S15045 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21077  M02S15045.271l716 ---| SER2.1   RJM    AOD         CONVERT DIGITS
Line S15046 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21078  M02S15046.271l716 ---|          LDD    T4
Line S15047 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21079  M02S15047.271l716 ---|          NJN    SER4        IF NOT *PR* PARAMETER
Line S15048 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21080  M02S15048.271l716 ---|          LDD    AB+4
Line S15049 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21081  M02S15049.271l716 ---|          SBN    2
Line S15050 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21082  M02S15050.271l716 ---|          MJN    SER3        IF INCORRECT VALUE
Line S15051 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21083  M02S15051.271l716 ---|          SBN    MPRS-2
Line S15052 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21084  M02S15052.271l716 ---|          MJN    SER5        IF CORRECT VALUE
Line S15053 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21085  M02S15053.271l716 ---| SER3     JMP    ILL         PROCESS INCORRECT ENTRY
Line S15054 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21086  M02S15054.271l716 ---|
Line S15055 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21087  M02S15055.271l716 ---| SER4     SBN    TSVPD-TSVPA
Line S15056 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21088  M02S15056.271l716 ---|          PJN    SER6        IF FILE SIZE PARAMETER
Line S15057 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21089  M02S15057.271l716 ---|          ADN    TSVPD-TSVPB
Line S15058 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21090  M02S15058.271l716 ---|          NJN    SER5        IF NOT *AM* PARAMETER
Line S15059 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21091  M02S15059.271l716 ---|          LDD    AB+3
Line S15060 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21092  M02S15060.271l716 ---|          LPN    7
Line S15061 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21093  M02S15061.271l716 ---|          STM    SBUF-1,T4
Line S15062 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21094  M02S15062.271l716 ---| SER5     UJN    SER7        ENTER VALUE
Line S00413 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21095  M02S00413.271l750 ---| SER3     NJN    SER6        IF SERVICE CLASS ALLOWED
Line S00414 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21096  M02S00414.271l750 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
21097  M01S00158.271l750 +++| SER4     NJN    SER7        IF VALID VALUE
21098  M01S00159.271l750 +++| SER5     JMP    ILL         PROCESS INCORRECT ENTRY
21099  M01S00415.271l716 +++|
Line S00416 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21100  M02S00416.271l750 ---| SER5     LDD    AB+3        ENTER *AM* PARAMETER
Line S00417 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21101  M02S00417.271l750 ---|          LPN    7
21102  M01S00160.271l750 +++|*         PROCESS *AM* PARAMETER.
21103  M01S00161.271l750 +++|
21104  M01S00162.271l750 +++| SER6     LDD    AB+3        ALLOW *AM* UP TO 77777B
21105  M01S00418.271l716 +++|          STM    SBUF-1,T4
Line S00419 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21106  M02S00419.271l750 ---| SER6     LDD    AB+4        ENTER ASSEMBLY
Line S00420 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21107  M02S00420.271l750 ---| SER7     STM    SBUF,T4
21108  M01S00163.271l750 +++|          SCN    7
21109  M01S00164.271l750 +++|          UJN    SER8        CHECK VALUE RANGE
21110  M01S00165.271l750 +++|
21111  M01S00166.271l750 +++|*         CHECK VALUE RANGE.
21112  M01S00167.271l750 +++|
21113  M01S00168.271l750 +++| SER7     LDD    AB+3
21114  M01S00169.271l750 +++| SER8     ADD    AB+2
21115  M01S00170.271l750 +++|          ADD    AB+1
21116  M01S00171.271l750 +++|          ADD    AB
21117  M01S00172.271l750 +++|          NJN    SER5        IF VALUE TOO LARGE
21118  M01S00173.271l750 +++|
21119  M01S00174.271l750 +++|*         STORE VALUE.
21120  M01S00175.271l750 +++|
21121  M01S00176.271l750 +++|          LDD    AB+4        STORE VALUE
21122  M01S00177.271l750 +++|          STM    SBUF,T4
21123  M01S00421.271l716 +++|          LDI    KA          CHECK SEPARATOR
21124  M01S00422.271l716 +++|          LMN    1R,
Line S00423 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21125  M02S00423.271l750 ---|          ZJN    SER2        IF ANOTHER PARAMETER
21126  M01S00178.271l750 +++|          ZJP    SER2        IF MORE PARAMETERS TO PROCESS
21127  M01S00424.271l716 +++|          LDD    CA
21128  M01S00425.271l716 +++|          SHN    14
Line S00426 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21129  M02S00426.271l750 ---|          LMD    CA+1        STORE SERVICE CONTROL BLOCK
21130  M01S00179.271l750 +++|          LMD    CA+1        STORE JOB CONTROL BLOCK
21131  M01S00427.271l716 +++|          CWM    SBUF,T7
21132  M01S00428.271l716 +++|          JMP    KBR         RETURN
21133  M01S00429.271l716 +++|
Line S00430 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21134  M02S00430.271l750 ---| SER8     LDM    SERD,T4     SET PROCESSOR ADDRESS
Line S00431 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21135  M02S00431.271l750 ---|          STD    T6
Line S00432 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21136  M02S00432.271l750 ---|          RJM    AOD         CONVERT DIGITS
Line S00433 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21137  M02S00433.271l750 ---|*         LDD    AB+4
Line S00434 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21138  M02S00434.271l750 ---|          LJM    0,T6        EXIT TO PROCESSOR
21139  M01S00180.271l750 +++|*         PROCESS *PR* PARAMETER.
21140  M01S00435.271l716 +++|
Line S00436 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21141  M02S00436.271l750 ---|*         PROCESS *CB* PARAMETER.
21142  M01S00181.271l750 +++| SER9     SBN    2
21143  M01S00182.271l750 +++|          MJN    SER10       IF PRIORITY .LT. 2
21144  M01S00183.271l750 +++|          SBN    100-2
21145  M01S00184.271l750 +++|          MJN    SER7        IF PRIORITY .LE. 77B
21146  M01S00185.271l750 +++| SER10    JMP    ILL         PROCESS INCORRECT ENTRY
21147  M01S00437.271l716 +++|
Line S00438 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21148  M02S00438.271l750 ---| SER9     SHN    14          EXTRACT LOWER BOUND
Line S00439 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21149  M02S00439.271l750 ---|          STD    T0
Line S00440 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21150  M02S00440.271l750 ---|          SHN    -14         ISOLATE UPPER BOUND
Line S00441 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21151  M02S00441.271l750 ---|          SBD    T0
Line S00442 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21152  M02S00442.271l750 ---|          MJN    SER11       IF LOWER .GT. UPPER BOUND
Line S00443 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21153  M02S00443.271l750 ---|          LDD    T0
Line S00444 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21154  M02S00444.271l750 ---|          SBN    2
Line S00445 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21155  M02S00445.271l750 ---| SER10    PJN    SER6        IF CORRECT VALUE
Line S00446 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21156  M02S00446.271l750 ---| SER11    JMP    ILL         PROCESS INCORRECT ENTRY
21157  M01S00186.271l750 +++|*         PROCESS *RS* PARAMETER.
21158  M01S00447.271l716 +++|
Line S00448 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21159  M02S00448.271l750 ---|*         PROCESS *CW* PARAMETER.
21160  M01S00187.271l750 +++| SER11    LDM    SBUF+CSJT*5-SVJT*5+4  EXISTING *US* VALUE
21161  M01S00188.271l750 +++|          SBD    AB+4        SPECIFIED *RS* VALUE
21162  M01S00189.271l750 +++|          UJN    SER13       ENSURE *RS* .LE. *US*
21163  M01S00449.271l716 +++|
Line S00450 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21164  M02S00450.271l750 ---| SER12    LMN    7           COMPLEMENT WEIGHTING FACTOR
Line S00451 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21165  M02S00451.271l750 ---|          STD    AB+4
Line S00452 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21166  M02S00452.271l750 ---|          SHN    -3
Line S00453 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21167  M02S00453.271l750 ---|          ZJN    SER10       IF VALUE IN RANGE
Line S00454 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21168  M02S00454.271l750 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
21169  M01S00190.271l750 +++|*         PROCESS *US* PARAMETER.
21170  M01S15063.set     +++|
21171  M01S00191.271l750 +++| SER12    SBM    SBUF+CSJT*5-SVJT*5+3  EXISTING *RS* VALUE
21172  M01S00192.271l750 +++| SER13    MJN    SER10       IF *RS* .GT. *US*
21173  M01S00193.271l750 +++|          LDD    AB+4
21174  M01S00194.271l750 +++|          LJM    SER4        ENSURE PARAMETER NONZERO
21175  M01S00195.271l750 +++|
21176  M01S15064.set     +++|*         PROCESS INDEX ENTRY.
21177  M01S15065.set     +++|
Line S15066 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21178  M02S15066.271l716 ---| SER6     STD    T0          MULTIPLY BY 3
Line S00455 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21179  M02S00455.271l750 ---| SER13    LDD    T4          SET FIELD POSITION
21180  M01S00196.271l750 +++| SER14    LDD    T4          SET FIELD POSITION
21181  M01S00456.271l716 +++|          SBN    TSVPD-TSVP
21182  M01S00457.271l716 +++|          STD    T0          MULTIPLY BY 3
21183  M01S15067.set     +++|          SHN    1
21184  M01S15068.set     +++|          ADD    T0
21185  M01S15069.set     +++|          LMD    TH          SET SHIFT INSTRUCTION
21186  M01S15070.set     +++|          STM    SERA
21187  M01S15071.set     +++|          STM    SERB
21188  M01S15072.set     +++|          LCN    7           SET MASK FIELD
21189  M01S15073.set     +++| SERA     SHN    **
21190  M01S15074.set     +++|          STM    SERC
21191  M01S15075.set     +++|          LDD    AB+4        SET NEW INDEX VALUE
21192  M01S15076.set     +++|          SBN    10
Line S15077 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21193  M02S15077.271l716 ---|          PJN    SER3        IF INCORRECT INDEX
Line S00458 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21194  M02S00458.271l750 ---|          PJN    SER11       IF INCORRECT INDEX
21195  M01S00197.271l750 +++|          PJN    SER10       IF INCORRECT INDEX
21196  M01S15078.set     +++|          ADN    10
21197  M01S15079.set     +++| SERB     SHN    **
21198  M01S15080.set     +++|          STD    T3
21199  M01S15081.set     +++|          LDN    TSVPD-TSVP  SET SERVICE BLOCK INDEX
21200  M01S15082.set     +++|          STD    T4
21201  M01S15083.set     +++|          LDM    SBUF,T4     INSERT INDEX VALUE IN EXISTING BYTE
21202  M01S15084.set     +++|          LPC    **
21203  M01S15085.set     +++| SERC     EQU    *-1
21204  M01S15086.set     +++|          LMD    T3
Line S15087 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21205  M02S15087.271l716 ---|          STD    AB+4
Line S15088 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21206  M02S15088.271l716 ---| SER7     LDD    AB+4        ENTER ASSEMBLY
Line S15089 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21207  M02S15089.271l716 ---|          STM    SBUF,T4
Line S15090 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21208  M02S15090.271l716 ---|          LDI    KA
Line S15091 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21209  M02S15091.271l716 ---|          LMN    1R.
Line S15092 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21210  M02S15092.271l716 ---|          ZJN    SER8        IF END OF ENTRY
Line S15093 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21211  M02S15093.271l716 ---|          LJM    SER2        PROCESS NEXT PARAMETER
Line S15094 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21212  M02S15094.271l716 ---|
Line S15095 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21213  M02S15095.271l716 ---| SER8     LDD    CA          STORE SERVICE CONTROL WORDS
Line S15096 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21214  M02S15096.271l716 ---|          SHN    14
Line S15097 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21215  M02S15097.271l716 ---|          LMD    CA+1
Line S15098 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21216  M02S15098.271l716 ---|          CWM    SBUF,T7
Line S15099 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21217  M02S15099.271l716 ---|          JMP    KBR         RETURN
Line S00459 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21218  M02S00459.271l750 ---|          LJM    SER7        ENTER ASSEMBLY
21219  M01S00198.271l750 +++|          STD    AB+4
21220  M01S00199.271l750 +++|          LJM    SER7        CHECK VALUE RANGE
21221  M01S00460.271l716 +++|
21222  M01S00461.271l716 +++|
21223  M01S00462.271l716 +++| SERD     BSS    0           SERVICE COMMAND PROCESSORS
Line S00463 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21224  M02S00463.271l750 ---|          CON    SER9        *CB* PARAMETER
21225  M01S00200.271l750 +++|
21226  M01S00201.271l750 +++|          CON    ILL         UNUSED
21227  M01S00464.271l716 +++|          CON    SER7        *CT* PARAMETER
21228  M01S00465.271l716 +++|          CON    SER7        *CM* PARAMETER
21229  M01S00466.271l716 +++|          CON    SER7        *NJ* PARAMETER
21230  M01S00467.271l716 +++|          CON    SER7        *TD* PARAMETER
21231  M01S00202.271l750 +++|
21232  M01S00468.271l716 +++|          CON    SER7        *CP* PARAMETER
21233  M01S00469.271l716 +++|          CON    SER7        *TP* PARAMETER
21234  M01S00470.271l716 +++|          CON    SER7        *FL* PARAMETER
21235  M01S00471.271l716 +++|          CON    ILL         UNUSED
Line S00472 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21236  M02S00472.271l750 ---|          CON    SER5        *AM* PARAMETER
Line S00473 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21237  M02S00473.271l750 ---|          CON    SER3        *SD* PARAMETER
Line S00474 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21238  M02S00474.271l750 ---|          CON    SER12       *CW* PARAMETER
21239  M01S00203.271l750 +++|          CON    SER6        *AM* PARAMETER
21240  M01S00204.271l750 +++|
21241  M01S00205.271l750 +++|          CON    ILL         UNUSED
21242  M01S00206.271l750 +++|          CON    ILL         UNUSED
21243  M01S00475.271l716 +++|          CON    SER7        *EC* PARAMETER
21244  M01S00476.271l716 +++|          CON    ILL         UNUSED
21245  M01S00477.271l716 +++|          CON    SER7        *EM* PARAMETER
Line S00478 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21246  M02S00478.271l750 ---|          CON    SER13       *FS* PARAMETER
Line S00479 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21247  M02S00479.271l750 ---|          CON    SER13       *CS* PARAMETER
Line S00480 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21248  M02S00480.271l750 ---|          CON    SER13       *FC* PARAMETER
Line S00481 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21249  M02S00481.271l750 ---|          CON    SER13       *DS* PARAMETER
21250  M01S00207.271l750 +++|
21251  M01S00208.271l750 +++|          CON    SER14       *FS* PARAMETER
21252  M01S00209.271l750 +++|          CON    SER14       *CS* PARAMETER
21253  M01S00210.271l750 +++|          CON    SER14       *FC* PARAMETER
21254  M01S00211.271l750 +++|          CON    SER14       *DS* PARAMETER
21255  M01S00212.271l750 +++|          CON    SER3        *DT* PARAMETER
21256  M01S00213.271l750 +++|
21257  M01S00214.271l750 +++|          CON    SER9        *PR* PARAMETER
21258  M01S00215.271l750 +++|          CON    SER7        *IT* PARAMETER
21259  M01S00216.271l750 +++|          CON    SER7        *SE* PARAMETER
21260  M01S00217.271l750 +++|          CON    SER11       *RS* PARAMETER
21261  M01S00218.271l750 +++|          CON    SER12       *US* PARAMETER
21262  M01S15100.set     +++| SPC      SPACE  4,10
21263  M01S15101.set     +++|***       SPC,N=X,N=X.
21264  M01S15102.set     +++|*         USE X AS DEFAULT SYSTEM PAGE CHARGE FOR PRINT DENSITY N.
21265  M01S15103.set     +++|*         N      PRINT DENSITY (6 OR 8 LPI).
21266  M01S15104.set     +++|*         X      LINES CHARGED PER PRINT PAGE.
21267  M01S15105.set     +++|*         DEFAULT   6=64,8=85.
21268  M01S15106.set     +++|
21269  M01S15107.set     +++|
21270  M01S15108.set     +++| SPC      DATA   C*SPC,*
21271  M01S15109.set     +++|          SOD    KA
21272  M01S15110.set     +++| SPC1     AOD    KA
21273  M01S15111.set     +++|          LDC    TSPC        SEARCH PARAMETER TABLE
21274  M01S15112.set     +++|          RJM    SPT
21275  M01S15113.set     +++|          STD    T4          SAVE ORDINAL
21276  M01S15114.set     +++|          RJM    AOD
21277  M01S15115.set     +++|          SBK    /BIO/PSLL
21278  M01S15116.set     +++|          PJN    SPC3        IF .GE. TO LOWER LIMIT
21279  M01S15117.set     +++| SPC2     JMP    ILL         PROCESS INCORRECT ENTRY
21280  M01S15118.set     +++|
21281  M01S15119.set     +++| SPC3     SBK    /BIO/PSUL+1-/BIO/PSLL
21282  M01S15120.set     +++|          PJN    SPC2        IF .GT. UPPER LIMIT
21283  M01S15121.set     +++|          LDD    AB+4
21284  M01S15122.set     +++|          STM    .IPPL,T4
21285  M01S15123.set     +++|          LDI    KA          CHECK NEXT CHARACTER
21286  M01S15124.set     +++|          LMN    1R,
21287  M01S15125.set     +++|          ZJN    SPC1        IF MORE ENTRIES
21288  M01S15126.set     +++|          JMP    KBR         RETURN
21289  M01S15127.set     +++| SPD      SPACE  4,10
21290  M01S15128.set     +++|***       SPD=N.
21291  M01S15129.set     +++|*         SET SYSTEM DEFAULT PRINT DENSITY.
21292  M01S15130.set     +++|*         N      PRINT DENSITY (6 OR 8 LPI).
21293  M01S15131.set     +++|*         N      PRINT DENSITY (6 OR 8 LPI ).
21294  M01S15132.set     +++|*         DEFAULT = 6.
21295  M01S15133.set     +++|
21296  M01S15134.set     +++|
21297  M01S15135.set     +++| SPD      DATA   C*SPD*
21298  M01S15136.set     +++|          LDC    TSPD        TABLE OF PRINT DENSITIES
21299  M01S15137.set     +++|          RJM    SPT         SEARCH FOR PARAMETER
21300  M01S15138.set     +++|          ADN    3
21301  M01S15139.set     +++|          SHN    1+4         ORDINAL 0 OR 1 MAKES 6 OR 8 LPI
21302  M01S15140.set     +++|          STD    T1
21303  M01S15141.set     +++|          LDM    .IPPL+2
21304  M01S15142.set     +++|          LPC    7417
21305  M01S15143.set     +++|          LMD    T1          MERGE *PD*
21306  M01S15144.set     +++|          STM    .IPPL+2
21307  M01S15145.set     +++|          JMP    KBR         RETURN
21308  M01S15146.set     +++| SPI      SPACE  4,10
21309  M01S15147.set     +++|***       SPINDOWN.
21310  M01S15148.set     +++|*         ENABLE/DISABLE SPINDOWN.
21311  M01S15149.set     +++|*         DEFAULT = SPINDOWN ENABLED.
21312  M01S15150.set     +++|
21313  M01S15151.set     +++|
21314  M01S15152.set     +++| SPI      DATA   C*SPINDOWN.*
21315  M01S15153.set     +++|          LDN    1
21316  M01S15154.set     +++|          JMP    CSB         CHANGE STATUS BIT
21317  M01S15155.set     +++| SPL      SPACE  4,10
21318  M01S15156.set     +++|***       SPL=NNN.
21319  M01S15157.set     +++|*         SET SYSTEM DEFAULT PAGE LENGTH.
21320  M01S15158.set     +++|*         NNN    LINES PER PAGE.
21321  M01S15159.set     +++|*         DEFAULT = 60.
21322  M01S15160.set     +++|
21323  M01S15161.set     +++|
21324  M01S15162.set     +++| SPL      DATA   C*SPL=*
21325  M01S15163.set     +++|          RJM    ASD
21326  M01S15164.set     +++|          SBK    /BIO/PSLL
21327  M01S15165.set     +++|          PJN    SPL2        IF .GE. LOWER LIMIT
21328  M01S15166.set     +++| SPL1     JMP    ILL
21329  M01S15167.set     +++|
21330  M01S15168.set     +++| SPL2     SBK    /BIO/PSUL+1-/BIO/PSLL
21331  M01S15169.set     +++|          PJN    SPL1        IF .GT. UPPER LIMIT
21332  M01S15170.set     +++|          LDM    .IPPL+3
21333  M01S15171.set     +++|          LPC    377
21334  M01S15172.set     +++|          SHN    21-7
21335  M01S15173.set     +++|          LMD    AB+4        MERGE LOWER PORTION OF *SPS*
21336  M01S15174.set     +++|          SHN    14-4
21337  M01S15175.set     +++|          STM    .IPPL+3
21338  M01S15176.set     +++|          LDM    .IPPL+2
21339  M01S15177.set     +++|          SCN    17          CLEAR UPPER PORTION OF *SPS*
21340  M01S15178.set     +++|          SHN    4
21341  M01S15179.set     +++|          LMD    AB+4        MERGE UPPER PORTION OF *SPS*
21342  M01S15180.set     +++|          SHN    22-4
21343  M01S15181.set     +++|          STM    .IPPL+2
21344  M01S15182.set     +++|          JMP    KBR         RETURN
21345  M01S15183.set     +++| SPW      SPACE  4,10
21346  M01S15184.set     +++|***       SPW=NNN.
21347  M01S15185.set     +++|*         SET SYSTEM DEFAULT PRINT WIDTH.
21348  M01S15186.set     +++|*         NNN    WIDTH OF PRINT OUTPUT.
21349  M01S15187.set     +++|*         DEFAULT = 136.
21350  M01S15188.set     +++|
21351  M01S15189.set     +++| SPW      DATA   C*SPW=*
21352  M01S15190.set     +++|          RJM    ASD
21353  M01S15191.set     +++|          SBK    /BIO/PWLL
21354  M01S15192.set     +++|          PJN    SPW2        IF .GE. LOWER LIMIT
21355  M01S15193.set     +++| SPW1     JMP    ILL
21356  M01S15194.set     +++|
21357  M01S15195.set     +++| SPW2     SBK    /BIO/PWMX+1-/BIO/PWLL
21358  M01S15196.set     +++|          PJN    SPW1        IF .GT. UPPER LIMIT
21359  M01S15197.set     +++|          LDM    .IPPL+3
21360  M01S15198.set     +++|          LPC    7400
21361  M01S15199.set     +++|          LMD    AB+4
21362  M01S15200.set     +++|          STM    .IPPL+3     STORE *SPW*
21363  M01S15201.set     +++|          JMP    KBR         RETURN
21364  M01S15202.set     +++| SRST     SPACE  4,10
21365  M01S15203.set     +++|***       SRST=NNNN.
21366  M01S15204.set     +++|*         SET SECONDARY ROLLOUT SECTOR THRESHOLD.
21367  M01S15205.set     +++|*         NNNN   SECTOR COUNT SUCH THAT ALL ROLLOUT FILES SMALLER
21368  M01S15206.set     +++|*                THAN NNNN WILL PICK THEIR ROLLOUT DEVICE FROM THE
21369  M01S15207.set     +++|*                LIST OF SECONDARY ROLLOUT FILE DEVICES SPECIFIED BY
21370  M01S15208.set     +++|*                THE CMRDECK COMMAND *MSAL,S= *.
21371  M01S15209.set     +++|*         DEFAULT NNNN = 0.
21372  M01S15210.set     +++|
21373  M01S15211.set     +++|
21374  M01S15212.set     +++| SSR      DATA   C*SRST=*
21375  M01S15213.set     +++|          RJM    AOD
21376  M01S15214.set     +++|          STM    .IPRL+1
21377  M01S15215.set     +++|          JMP    KBR         RETURN
21378  M01S15216.set     +++| SUBCP    SPACE  4,10
21379  M01S15217.set     +++|***       SUBCP.
21380  M01S15218.set     +++|*         TOGGLE SUB-CONTROL POINT INITIALIZATION.
21381  M01S15219.set     +++|*         DEFAULT = SUB-CONTROL POINTS DISABLED.
21382  M01S15220.set     +++|
21383  M01S15221.set     +++|
21384  M01S15222.set     +++| SUBCP    DATA   C*SUBCP.*
21385  M01S15223.set     +++|          LDC    24000
21386  M01S15224.set     +++|          JMP    CSB         CHANGE STATUS BIT
21387  M01S15225.set     +++| SUC      SPACE  4,10
21388  M01S15226.set     +++|***       SECONDARY USER COMMANDS.
21389  M01S15227.set     +++|*         ENABLE/DISABLE SECONDARY USER COMMANDS.
21390  M01S15228.set     +++|*         DEFAULT = SECONDARY USER COMMANDS DISABLED.
21391  M01S15229.set     +++|*         THIS ENTRY IS IGNORED ON A SECURE SYSTEM.
21392  M01S15230.set     +++|
21393  M01S15231.set     +++|
21394  M01S15232.set     +++| SUC      DATA   C*SECONDARY USER COMMANDS.*
21395  M01S15233.set     +++|          LDM    .SSML
21396  M01S15234.set     +++|          LPN    7
21397  M01S15235.set     +++|          ZJN    SUC1        IF NOT SECURE SYSTEM
21398  M01S15236.set     +++|          JMP    KBR         RETURN
21399  M01S15237.set     +++|
21400  M01S15238.set     +++| SUC1     LDC    10020
21401  M01S15239.set     +++|          JMP    CSB         CHANGE STATUS BIT
21402  M01S15240.set     +++| SYD      SPACE  4,10
21403  M01S15241.set     +++|***       SYSTEM DEBUG.
21404  M01S15242.set     +++|*         ENABLE/DISABLE SYSTEM DEBUG.
21405  M01S15243.set     +++|*         DEFAULT = SYSTEM DEBUG DISABLED.
21406  M01S15244.set     +++|
21407  M01S15245.set     +++|
21408  M01S15246.set     +++| SYD      DATA   C*SYSTEM DEBUG.*
21409  M01S15247.set     +++|          LDC    30002
21410  M01S15248.set     +++|          JMP    CSB         CHANGE STATUS BIT
21411  M01S15249.set     +++| TCVM     SPACE  4,10
21412  M01S15250.set     +++|***       TCVM=CC.
21413  M01S15251.set     +++|*         SET ASSUMED TAPE CONVERSION MODE ACCORDING TO CC.
21414  M01S15252.set     +++|*         CC     CONVERSION MODE
21415  M01S15253.set     +++|*
21416  M01S15254.set     +++|*         AS     ASCII 9 TRACK CONVERSION
21417  M01S15255.set     +++|*         US     USASI 9 TRACK CONVERSION
21418  M01S15256.set     +++|*         EB     EBCDIC 9 TRACK CONVERSION
21419  M01S15257.set     +++|
21420  M01S15258.set     +++|
21421  M01S15259.set     +++| TCVM     DATA   C*TCVM=*
21422  M01S15260.set     +++|          LDC    TTCV        SEARCH PARAMETER TABLE
21423  M01S15261.set     +++|          RJM    SPT
21424  M01S15262.set     +++|          NJN    TCV1        IF CONVERSION NOT *AS*
21425  M01S15263.set     +++|          ADN    1
21426  M01S15264.set     +++| TCV1     ADN    1
21427  M01S15265.set     +++|          STM    .IPRL+3
21428  M01S15266.set     +++|          JMP    KBR         RETURN
21429  M01S15267.set     +++| TDEN     SPACE  4,10
21430  M01S15268.set     +++|***       TDEN=CC.
21431  M01S15269.set     +++|*         SET ASSUMED TAPE DENSITY ACCORDING TO CC.
21432  M01S15270.set     +++|*         CC     DENSITY
21433  M01S15271.set     +++|*
21434  M01S15272.set     +++|*         HI     556
21435  M01S15273.set     +++|*         LO     200
21436  M01S15274.set     +++|*         HY     800
21437  M01S15275.set     +++|*         HD     800 CPI
21438  M01S15276.set     +++|*         PE     1600 CPI
21439  M01S15277.set     +++|*         GE     6250 CPI
21440  M01S15278.set     +++|
21441  M01S15279.set     +++|
21442  M01S15280.set     +++| TDEN     DATA   C*TDEN=*
21443  M01S15281.set     +++|          LDC    TTDN        SEARCH PARAMETER TABLE
21444  M01S15282.set     +++|          RJM    SPT
21445  M01S15283.set     +++|          STD    T2
21446  M01S15284.set     +++|          SBN    3
21447  M01S15285.set     +++|          PJN    TDE1        IF NINE TRACK DENSITY
21448  M01S15286.set     +++|          AOD    T2
21449  M01S15287.set     +++|          LDM    .IPRL+4     SET *MT* DENSITY
Line S15288 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21450  M02S15288.274l797 ---|          SCN    37
21451  M01S02311.274l797 +++|          SCN    17
21452  M01S15289.set     +++|          LMD    T2
21453  M01S15290.set     +++|          UJN    TDE2
21454  M01S15291.set     +++|
21455  M01S15292.set     +++| TDE1     LDM    .IPRL+4     SET *NT* DENSITY
21456  M01S15293.set     +++|          LPN    77
21457  M01S15294.set     +++|          SHN    14
21458  M01S15295.set     +++|          LMD    T2
21459  M01S15296.set     +++|          SHN    6
21460  M01S15297.set     +++| TDE2     STM    .IPRL+4
21461  M01S15298.set     +++|          JMP    KBR         RETURN
Line S15299 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21462  M02S15299.274l797 ---| TDTR     SPACE  4,10
Line S15300 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21463  M02S15300.274l797 ---|***       TDTR=CC.
Line S15301 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21464  M02S15301.274l797 ---|*         SET DEFAULT TRACK TYPE FOR TAPES ACCORDING TO CC.
Line S15302 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21465  M02S15302.274l797 ---|*         CC     DEFAULT TRACK TYPE
21466  M01S02312.274l797 +++| TDTY     SPACE  4,10
21467  M01S02313.274l797 +++|***       TDTY=CC.
21468  M01S02314.274l797 +++|*         SET DEFAULT TAPE DEVICE TYPE ACCORDING TO CC.
21469  M01S02315.274l797 +++|*         CC     DEFAULT TAPE DEVICE TYPE
21470  M01S15303.set     +++|*
Line S15304 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21471  M02S15304.274l797 ---|*         MT     SEVEN TRACK DEFAULT
Line S15305 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21472  M02S15305.274l797 ---|*         NT     NINE TRACK DEFAULT
21473  M01S02316.274l797 +++|*         MT     SEVEN TRACK TAPE
21474  M01S02317.274l797 +++|*         CT     CARTRIDGE TAPE
21475  M01S02318.274l797 +++|*         NT     NINE TRACK TAPE
21476  M01S02319.274l797 +++|*         AT     ACS CARTRIDGE TAPE
21477  M01S15306.set     +++|
21478  M01S15307.set     +++|
Line S15308 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21479  M02S15308.274l797 ---| TDTR     DATA   C*TDTR=*
21480  M01S02320.274l797 +++| TDTY     DATA   C*TDTY=*
21481  M01S15309.set     +++|          LDC    TTDT        SEARCH PARAMETER TABLE
21482  M01S15310.set     +++|          RJM    SPT
Line S15311 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21483  M02S15311.274l797 ---|          SHN    5           SET MT/NT BIT
21484  M01S02321.274l797 +++|          SHN    4           SET TAPE DEVICE TYPE
21485  M01S15312.set     +++|          STD    T2
21486  M01S15313.set     +++|          LDM    .IPRL+4
Line S15314 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21487  M02S15314.274l797 ---|          SCN    40
21488  M01S02322.274l797 +++|          SCN    60
21489  M01S15315.set     +++|          LMD    T2
21490  M01S15316.set     +++|          UJN    TDE2        SET DEFAULT TAPE TYPE
21491  M01S15317.set     +++| TMS      SPACE  4,10
21492  M01S15318.set     +++|***       TMS.
21493  M01S15319.set     +++|*         ENABLE/DISABLE TAPE MANAGEMENT SYSTEM.
21494  M01S15320.set     +++|*         DEFAULT = TMS DISABLED.
21495  M01S15321.set     +++|
21496  M01S15322.set     +++|
21497  M01S15323.set     +++| TMS      DATA   C*TMS.*
21498  M01S15324.set     +++|          LDC    20001
21499  M01S15325.set     +++|          JMP    CSB         CHANGE STATUS BIT
21500  M01S00051.253l688 +++| TPS      SPACE  4,10
21501  M01S00052.253l688 +++|***       TAPE PF STAGING.
Line S00053 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21502  M02S00053.274l797 ---|*         ENABLE/DISABLE STAGING OF TAPE RESIDENT PERMANENT FILES.
21503  M01S02323.274l797 +++|*         ENABLE/DISABLE STAGING OF PERMANENT FILES FROM NON-ACS TAPE.
21504  M01S00054.253l688 +++|*         DEFAULT = TAPE PF STAGING DISABLED.
21505  M01S00055.253l688 +++|
21506  M01S00056.253l688 +++|
21507  M01S00057.253l688 +++| TPS      DATA   C*TAPE PF STAGING.*
21508  M01S00058.253l688 +++|          LDC    10200
21509  M01S00059.253l688 +++|          JMP    CSB         CHANGE STATUS BIT
21510  M01S00482.271l716 +++| TRA      SPACE  4,10
21511  M01S00483.271l716 +++|***       TRACE.
21512  M01S00484.271l716 +++|*         ENABLE/DISABLE TRACE.
21513  M01S00485.271l716 +++|*         DEFAULT = TRACE DISABLED.
21514  M01S00486.271l716 +++|
21515  M01S00487.271l716 +++|
21516  M01S00488.271l716 +++| TRA      DATA   C*TRACE.*
21517  M01S00489.271l716 +++|          LDC    20040
21518  M01S00490.271l716 +++|          JMP    CSB         CHANGE STATUS BIT
21519  M01S15326.set     +++| UNL      SPACE  4,10
21520  M01S15327.set     +++|***       UNLOCK.
21521  M01S15328.set     +++|
21522  M01S15329.set     +++|
21523  M01S15330.set     +++| UNL      DATA   C*UNLOCK.*
21524  M01S15331.set     +++|          LDI    T3          CHECK FIRST CHARACTER
21525  M01S15332.set     +++|          LMN    1RL
21526  M01S15333.set     +++|          STD    T3
21527  M01S15334.set     +++|          ZJN    UNL1        IF *LOCK* COMMAND
21528  M01S15335.set     +++|          LDM    .SSML
21529  M01S15336.set     +++|          LPN    77
21530  M01S15337.set     +++|          ZJN    UNL1        IF UNSECURED SYSTEM
21531  M01S15338.set     +++|          LDD    TH
21532  M01S15339.set     +++|*         LDC    400&1400
21533  M01S15340.set     +++| UNL1     LMC    1400
21534  M01S15341.set     +++|          JMP    CSB         CHANGE STATUS BIT
21535  M01S15342.set     +++| UEC      SPACE  4,10
21536  M01S15343.set     +++|***       USER EXTENDED MEMORY.
21537  M01S15344.set     +++|*         ENABLE/DISABLE USER EXTENDED MEMORY.
21538  M01S15345.set     +++|*         DEFAULT = USER EXTENDED MEMORY DISABLED.
21539  M01S15346.set     +++|
21540  M01S15347.set     +++|
21541  M01S15348.set     +++| UEC      DATA   C*USER EXTENDED MEMORY.*
21542  M01S15349.set     +++|          LDN    40
21543  M01S15350.set     +++|          JMP    CSB         CHANGE STATUS BIT
21544  M01S15351.set     +++|          SPACE  4,10
21545  M01S15352.set     +++|***       VEBL=NNNN.
21546  M01S15353.set     +++|*         SET LIMIT FOR NUMBER OF TIMES THAT *CPUMTR* WILL BYPASS
21547  M01S15354.set     +++|*         EXCHANGING TO *NOS/VE* WHEN THERE ARE PP EXCHANGES PENDING.
21548  M01S15355.set     +++|*         NNNN   MAXIMUM BYPASSES BEFORE EXCHANGE TO *NOS/VE*.
21549  M01S15356.set     +++|*         DEFAULT = 0.
21550  M01S15357.set     +++|*         MAXIMUM = 7777B.
21551  M01S15358.set     +++|
21552  M01S15359.set     +++|
21553  M01S15360.set     +++| VEB      DATA   C*VEBL=*
21554  M01S15361.set     +++|          LDC    VEBL
21555  M01S15362.set     +++|          CRD    CN
21556  M01S15363.set     +++|          RJM    ASD         ASSEMBLE BYPASS VALUE
21557  M01S15364.set     +++|          STD    CN+4
21558  M01S15365.set     +++|          LDC    VEBL        SET *VEBL* VALUE INTO CMR
21559  M01S15366.set     +++|          CWD    CN
21560  M01S15367.set     +++|          JMP    KBR         RETURN
21561  M01S15368.set     +++|          TITLE  PARAMETER TABLES.
21562  M01S15369.set     +++| TBDP     SPACE  4,10
21563  M01S15370.set     +++|**        TBDP - TABLE OF BOUNDS PARAMETERS.
21564  M01S15371.set     +++|
21565  M01S15372.set     +++|
21566  M01S15373.set     +++| TBDP     BSS    0
21567  M01S15374.set     +++|          CON    2RLA
21568  M01S15375.set     +++|          CON    2RUA
21569  M01S15376.set     +++|          CON    0
21570  M01S15377.set     +++| TCPM     SPACE  4,7
21571  M01S15378.set     +++|**        TCPM - TABLE OF CPUS.
21572  M01S15379.set     +++|
21573  M01S15380.set     +++| TCPM     BSS    0
21574  M01S15381.set     +++|          CON    2R0=
21575  M01S15382.set     +++|          CON    2R1=
21576  M01S15383.set     +++|          CON    0
21577  M01S15384.set     +++| TCSM     SPACE  4,10
21578  M01S15385.set     +++|**        TCSM - TABLE OF CHARACTER SET MODES.
21579  M01S15386.set     +++|
21580  M01S15387.set     +++|
21581  M01S15388.set     +++| TCSM     BSS    0
21582  M01S15389.set     +++|          CON    2R63        63 CHARACTER SET
21583  M01S15390.set     +++|          CON    2R64        64 CHARACTER SET
21584  M01S15391.set     +++|          CON    0           TERMINATOR
21585  M01S15392.set     +++| TDLP     SPACE  4,10
21586  M01S15393.set     +++|**        TDLP - TABLE OF DELAY PARAMETERS.
21587  M01S15394.set     +++|
21588  M01S15395.set     +++|
21589  M01S15396.set     +++| TDLP     BSS    0
21590  M01S15397.set     +++|          CON    2RJQ        EJT/QFT SCHEDULING
21591  M01S15398.set     +++|          CON    2RJS        JOB SCHEDULER
21592  M01S15399.set     +++|          CON    2RRL        RECALL DELAY REDUCTION LIMIT
21593  M01S15400.set     +++|          CON    2RCR        CPU RECALL
21594  M01S15401.set     +++|          CON    2RAR        AUTO RECALL
Line S15402 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21595  M02S15402.271l716 ---|          CON    2RMX        MAXIMUM JOB SWITCH
Line S15403 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21596  M02S15403.271l716 ---|          CON    2RMN        MINIMUM JOB SWITCH
Line S00491 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21597  M02S00491.271l750 ---|          CON    2RCI        CPU PRIORITY INCREMENTING
21598  M01S00492.271l716 +++|          CON    2RMP        MEMORY PAD
21599  M01S15404.set     +++|          CON    0
Line S15405 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21600  M02S15405.274l797 ---| TDTY     SPACE  4,10
Line S15406 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21601  M02S15406.274l797 ---|**        TDTY - TABLE OF MASS STORAGE DEVICE TYPES.
21602  M01S02324.274l797 +++| TMDT     SPACE  4,10
21603  M01S02325.274l797 +++|**        TMDT - TABLE OF MASS STORAGE DEVICE TYPES.
21604  M01S15407.set     +++|
21605  M01S15408.set     +++|
21606  M01S15409.set     +++|          LIST   G
21607  M01S15410.set     +++|
Line S15411 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21608  M02S15411.274l797 ---| TDTY     BSS    0
21609  M01S02326.274l797 +++| TMDT     BSS    0
21610  M01S15412.set     +++|          TBL    "MSEQ"
21611  M01S15413.set     +++|          CON    0           END OF TABLE
21612  M01S15414.set     +++|
21613  M01S15415.set     +++|          LIST   -G
21614  M01S15416.set     +++|          PURGMAC  TBLM
21615  M01S15417.set     +++| TJOT     SPACE  4,10
21616  M01S15418.set     +++|**        TJOT - TABLE OF JOB ORIGIN TYPES.
21617  M01S15419.set     +++|
21618  M01S15420.set     +++|
21619  M01S15421.set     +++| TJOT     BSS    0
21620  M01S15422.set     +++|          CON    2RSY,6060
21621  M01S15423.set     +++|          CON    2RBC,6060
21622  M01S15424.set     +++|          CON    2RRB,2REI
21623  M01S15425.set     +++|          CON    2RIA,2RTX
21624  M01S15426.set     +++|          CON    0
21625  M01S15427.set     +++| TJSC     SPACE  4,10
21626  M01S15428.set     +++|**        TJSC - TABLE OF JOB SERVICE CLASSES.
21627  M01S15429.set     +++|
21628  M01S15430.set     +++|
21629  M01S15431.set     +++| TJSC     DATA   H+"NMSC"+
21630  M01S15432.set     +++|          CON    0
21631  M01S15433.set     +++| TKCM     SPACE  4,10
21632  M01S15434.set     +++|**        TKCM - TABLE OF KEYPUNCH CONVERSION MODES.
21633  M01S15435.set     +++|
21634  M01S15436.set     +++|
21635  M01S15437.set     +++| TKCM     BSS    0
21636  M01S15438.set     +++|          CON    2R26        O26 KEYPUNCH CONVERSION MODE
21637  M01S15439.set     +++|          CON    2R29        O29 KEYPUNCH CONVERSION MODE
21638  M01S15440.set     +++|          CON    0           END OF TABLE
21639  M01S15441.set     +++| TLDA     SPACE  4,10
21640  M01S15442.set     +++|**        TLDA - TABLE OF LID ATTRIBUTE PARAMETERS.
21641  M01S15443.set     +++|
21642  M01S15444.set     +++|
21643  M01S15445.set     +++| TLDA     BSS    0
21644  M01S15446.set     +++|          CON    2R,H        HOST SYSTEM
21645  M01S15447.set     +++|          CON    2R,L        LINKED (REMOTE) SYSTEM
21646  M01S15448.set     +++|          CON    2R,D        LID IS DISABLED
21647  M01S15449.set     +++|          CON    2R,V        PRE-VALIDATE USER COMMANDS
21648  M01S15450.set     +++|          CON    0
21649  M01S15451.set     +++| TQPN     SPACE  4
21650  M01S15452.set     +++|**        TQPN - TABLE OF QUEUE PARAMETERS.
21651  M01S15453.set     +++|
21652  M01S15454.set     +++|
21653  M01S15455.set     +++| TQPN     BSS    0
21654  M01S15456.set     +++|          CON    2RIL        LOWER BOUND FOR INITIAL TIME SLICE
21655  M01S15457.set     +++|          CON    2RLP        LOWER PRIORITY RANGE
21656  M01S15458.set     +++|          CON    2RUP        UPPER PRIORITY RANGE
21657  M01S15459.set     +++|          CON    2RWF        WEIGHTING FACTOR FOR PRIORITY
21658  M01S15460.set     +++|          CON    2RIP        INITIAL SCHEDULING PRIORITY
21659  M01S15461.set     +++|          CON    0
21660  M01S15462.set     +++| TQUT     SPACE  4
21661  M01S15463.set     +++|**        TQUT - TABLE OF QUEUE TYPES.
21662  M01S15464.set     +++|
21663  M01S15465.set     +++|
21664  M01S15466.set     +++| TQUT     BSS    0
21665  M01S15467.set     +++|          CON    2RIN        INPUT QUEUE FILES
21666  M01S15468.set     +++| TQUTA    CON    2REX        EXECUTING JOBS
21667  M01S15469.set     +++|          CON    2ROT        OUTPUT QUEUE FILES
21668  M01S15470.set     +++|          CON    0
21669  M01S15471.set     +++| TSPC     SPACE  4,10
21670  M01S15472.set     +++|**        TSPC - TABLE OF PRINT DENSITIES.
21671  M01S15473.set     +++|
21672  M01S15474.set     +++| TSPC     BSS    0
21673  M01S15475.set     +++|          CON    2R6=
21674  M01S15476.set     +++|          CON    2R8=
21675  M01S15477.set     +++|          CON    0
21676  M01S15478.set     +++| TSPD     SPACE  4,10
21677  M01S15479.set     +++|**        TSPD - TABLE OF PRINT DENSITIES.
21678  M01S15480.set     +++|
21679  M01S15481.set     +++| TSPD     BSS    0
21680  M01S15482.set     +++|          CON    2R=6
21681  M01S15483.set     +++|          CON    2R=8
21682  M01S15484.set     +++|          CON    0
21683  M01S15485.set     +++| TSCM     SPACE  4,10
21684  M01S15486.set     +++|**        TSCM - TABLE OF SERVICE CLASS MASK BITS.
21685  M01S15487.set     +++|*
21686  M01S15488.set     +++|*         THIS TABLE IS INDEXED BY SERVICE CLASS VALUE.
21687  M01S15489.set     +++|*
21688  M01S15490.set     +++|*         ONLY SERVICE CLASSES DEFINED IN THIS TABLE ARE ALLOWED FOR
21689  M01S15491.set     +++|*         THE *DT* *SERVICE* PARAMETER AND THE *CLASS* AND *PCLASS*
21690  M01S15492.set     +++|*         DIRECTIVES.
21691  M01S15493.set     +++|
21692  M01S15494.set     +++|
21693  M01S15495.set     +++| TSCM     INDEX
21694  M01S15496.set     +++|          LIST   D
21695  M01S15497.set     +++| .SCL     HERE
21696  M01S15498.set     +++|          LIST   *
21697  M01S15499.set     +++|          INDEX  MXSC
21698  M01S15500.set     +++| TSVP     SPACE  4
21699  M01S15501.set     +++|**        TSVP - TABLE OF SERVICE PARAMETERS.
21700  M01S15502.set     +++|*         VALUES IN SERVICE CONTROL TABLE ARE ORDER DEPENDENT.
21701  M01S15503.set     +++|
21702  M01S15504.set     +++|
21703  M01S15505.set     +++| TSVP     BSS    0
Line S15506 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21704  M02S15506.271l716 ---| TSVPA    CON    2RPR        INITIAL CPU PRIORITY
Line S15507 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21705  M02S15507.271l716 ---|          ERRNZ  TSVPA-TSVP  (*PR* NOT FIRST PARAMETER)
Line S15508 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21706  M02S15508.271l716 ---|          CON    2RCP        CPU TIME SLICE
Line S00493 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21707  M02S00493.271l750 ---|          CON    2RCB        LOWER / UPPER BOUND - CPU PRIORITY
21708  M01S00219.271l750 +++|          CON    6060
21709  M01S00494.271l716 +++|          CON    2RCT        CONTROL POINT TIME SLICE
21710  M01S15509.set     +++|          CON    2RCM        CM TIME SLICE
21711  M01S15510.set     +++|          CON    2RNJ        NUMBER OF JOBS
21712  M01S15511.set     +++|          CON    2RTD        TIME OUT DELAY (SUSPENDED JOBS)
21713  M01S15512.set     +++|
Line S15513 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21714  M02S15513.271l716 ---|          CON    6060
21715  M01S00495.271l716 +++|          CON    2RCP        CONTROL POINT SLICE PRIORITY
21716  M01S15514.set     +++|          CON    2RTP        BASE PRIORITY FOR INTERACTIVE JOBS
21717  M01S15515.set     +++|          CON    2RFL        MAXIMUM FL/JOB
21718  M01S15516.set     +++|          CON    6060
Line S15517 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21719  M02S15517.271l716 ---| TSVPB    CON    2RAM        MAXIMUM MEMORY AVAILABLE FOR ALL JOBS
Line S15518 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21720  M02S15518.271l716 ---|          CON    6060
Line S15519 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21721  M02S15519.271l716 ---|          CON    6060
21722  M01S00496.271l716 +++|          CON    2RAM        MAXIMUM MEMORY AVAILABLE FOR ALL JOBS
21723  M01S00497.271l716 +++|
Line S00498 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21724  M02S00498.271l750 ---|          CON    2RSD        CPU JOB SWITCH DELAY TIME
Line S00499 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21725  M02S00499.271l750 ---|          CON    2RCW        CPU WEIGHTING FACTOR
21726  M01S00220.271l750 +++|          CON    6060
21727  M01S00221.271l750 +++|          CON    6060
21728  M01S15520.set     +++|          CON    2REC        MAXIMUM EXTENDED MEMORY/JOB
21729  M01S15521.set     +++|          CON    6060
Line S15522 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21730  M02S15522.271l716 ---| TSVPC    CON    2REM        MAXIMUM EXTENDED MEMORY FOR ALL JOBS
21731  M01S00500.271l716 +++|          CON    2REM        MAXIMUM EXTENDED MEMORY FOR ALL JOBS
21732  M01S15523.set     +++|
21733  M01S15524.set     +++| TSVPD    CON    2RFS        INDIVIDUAL INDIRECT ACCESS FILE SIZE
21734  M01S15525.set     +++|          CON    2RCS        CUMULATIVE INDIRECT ACCESS FILE SIZE
21735  M01S15526.set     +++|          CON    2RFC        NUMBER OF FILES IN CATALOG
21736  M01S15527.set     +++|          CON    2RDS        INDIVIDUAL DIRECT ACCESS FILE SIZE
Line S00222 Modification History
M01 (Added by) 271l750
M02 (Updated by) set74
Seq #  *Modification Id* Act 
----------------------------+
21737  M02S00222.set74   ---|          CON    2RDT        SERVICE CLASS TO ASSIGN ON A DETACH
21738  M01S00003.set74   +++| TSVPE    CON    2RDT        SERVICE CLASS TO ASSIGN ON AN ATTACH
21739  M01S15528.set     +++|
Line S15529 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21740  M02S15529.271l750 ---| TSVPE    CON    2RDT        SERVICE CLASS TO ASSIGN ON A DETACH
21741  M01S00223.271l750 +++|          CON    2RPR        CPU PRIORITY
21742  M01S00224.271l750 +++|          CON    2RIT        SYSTEM I/O CPU THRESHOLD
21743  M01S00225.271l750 +++|          CON    2RSE        CPU SLICE EXTENSION
21744  M01S00226.271l750 +++|          CON    2RRS        RECALL CPU SLICE
21745  M01S00227.271l750 +++|          CON    2RUS        UNEXTENDED CPU SLICE
21746  M01S00228.271l750 +++|
21747  M01S15530.set     +++|          CON    0
21748  M01S15531.set     +++| TTDN     SPACE  4
21749  M01S15532.set     +++|**        TTDN - TABLE OF TAPE DENSITIES.
21750  M01S15533.set     +++|
21751  M01S15534.set     +++|
21752  M01S15535.set     +++| TTDN     BSS    0
21753  M01S15536.set     +++|          CON    2RLO        200
21754  M01S15537.set     +++|          CON    2RHI        556
21755  M01S15538.set     +++|          CON    2RHY        800
21756  M01S15539.set     +++|          CON    2RHD        800
21757  M01S15540.set     +++|          CON    2RPE        1600
21758  M01S15541.set     +++|          CON    2RGE        6250
21759  M01S15542.set     +++|          CON    0
Line S15543 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21760  M02S15543.274l797 ---| TTDT     SPACE  4
Line S15544 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21761  M02S15544.274l797 ---|**        TTDT - TABLE OF TAPE TRACK TYPES.
21762  M01S02327.274l797 +++| TTDT     SPACE  4,10
21763  M01S02328.274l797 +++|**        TTDT - TABLE OF TAPE DEVICE TYPES.
21764  M01S15545.set     +++|
21765  M01S15546.set     +++|
21766  M01S15547.set     +++| TTDT     BSS    0
Line S15548 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21767  M02S15548.274l797 ---|          CON    2RMT        SEVEN TRACK
Line S15549 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21768  M02S15549.274l797 ---|          CON    2RNT        NINE TRACK
21769  M01S02329.274l797 +++|          CON    2RMT        SEVEN TRACK TAPE
21770  M01S02330.274l797 +++|          CON    2RCT        CARTRIDGE TAPE
21771  M01S02331.274l797 +++|          CON    2RNT        NINE TRACK TAPE
21772  M01S02332.274l797 +++|          CON    2RAT        ACS CARTRIDGE TAPE
21773  M01S15550.set     +++|          CON    0           END OF TABLE
21774  M01S15551.set     +++| TTCV     SPACE  4
21775  M01S15552.set     +++|**        TTCV - TABLE OF TAPE CONVERSION MODES.
21776  M01S15553.set     +++|
21777  M01S15554.set     +++|
21778  M01S15555.set     +++| TTCV     BSS    0
21779  M01S15556.set     +++|          CON    2RAS        ASCII 9 TRACK CONVERSION
21780  M01S15557.set     +++|          CON    2RUS        USASI 9 TRACK CONVERSION
21781  M01S15558.set     +++|          CON    2REB        EBCDIC 9 TRACK CONVERSION
21782  M01S15559.set     +++|          CON    0           END OF TABLE
21783  M01S15560.set     +++| TURE     SPACE  4,10
21784  M01S15561.set     +++|          TITLE  SUBROUTINES.
21785  M01S02333.274l797 +++|          AODSUB
21786  M01S02334.274l797 +++|          ASDSUB
21787  M01S02335.274l797 +++|          ASNSUB
21788  M01S15562.set     +++| AUN      SPACE  4,10
21789  M01S15563.set     +++|**        AUN - ASSEMBLE USER NAME.
21790  M01S15564.set     +++|*
21791  M01S15565.set     +++|*         ENTRY  (A) = NUMBER OF CHARACTERS TO ASSEMBLE.
21792  M01S15566.set     +++|*                (KA) = ADDRESS OF CHARACTER STRING.
21793  M01S15567.set     +++|*
21794  M01S15568.set     +++|*         EXIT   (CM - CM+4) = ASSEMBLED NAME.
21795  M01S15569.set     +++|*                (A) = 0 IF ASSEMBLY TERMINATED ON *,* OR *.*.
21796  M01S15570.set     +++|*                (T0) = NUMBER OF CHARACTERS ASSEMBLED.
21797  M01S15571.set     +++|*
21798  M01S15572.set     +++|*         USES   T0 - T2.
21799  M01S15573.set     +++|
21800  M01S15574.set     +++|
21801  M01S15575.set     +++| AUN2     AOD    T0          ADVANCE CHARACTER COUNT
21802  M01S15576.set     +++|          SBN    1
21803  M01S15577.set     +++|          SHN    21-0        FORM BUFFER ADDRESS
21804  M01S15578.set     +++|          ADN    CM
21805  M01S15579.set     +++|          STD    T1
21806  M01S15580.set     +++|          LMD    T1          CLEAR ADDRESS
21807  M01S15581.set     +++|          LMI    KA          INSERT CHARACTER
21808  M01S15582.set     +++|          MJN    AUN3        IF CHARACTER PACKED LOW
21809  M01S15583.set     +++|          SHN    6           POSITION CHARACTER HIGH
21810  M01S15584.set     +++| AUN3     RAI    T1          ASSEMBLE BYTE
21811  M01S15585.set     +++|          AOD    KA          ADVANCE CHARACTER BUFFER
21812  M01S15586.set     +++|          SOD    T2          DECREMENT CHARACTER COUNT
21813  M01S15587.set     +++|          NJN    AUN1        IF TO END OF ASSEMBLY
21814  M01S15588.set     +++|          LDD    T0
21815  M01S15589.set     +++|
21816  M01S15590.set     +++| AUN      SUBR               ENTRY/EXIT
21817  M01S15591.set     +++|          STD    T2          SET CHARACTER COUNT
21818  M01S15592.set     +++|          LDN    0           CLEAR ASSEMBLY BUFFER
21819  M01S15593.set     +++|          STD    T0
21820  M01S15594.set     +++|          CRD    CM
21821  M01S15595.set     +++|          AOD    KA          SKIP SEPARATOR
21822  M01S15596.set     +++| AUN1     LDI    KA          CHECK NEXT CHARACTER
21823  M01S15597.set     +++|          SBN    1R9+1
21824  M01S15598.set     +++|          MJN    AUN2        IF ALPHANUMERIC
21825  M01S15599.set     +++|          SBN    1R*-1R9-1
21826  M01S15600.set     +++|          ZJN    AUN2        IF (*)
21827  M01S15601.set     +++|          SBN    1R,-1R*
21828  M01S15602.set     +++|          ZJN    AUNX        IF *,*
21829  M01S15603.set     +++|          SBN    1R.-1R,
21830  M01S15604.set     +++|          ZJN    AUNX        IF *.*
21831  M01S15605.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
21832  M01S02336.274l797 +++|          CDRSUB
21833  M01S15606.set     +++| CPN      SPACE  4,10
21834  M01S15607.set     +++|**        CPN - COMPARE NAMES.
21835  M01S15608.set     +++|*
21836  M01S15609.set     +++|*         ENTRY  (A) = ADDRESS OF ASSEMBLED NAME.
21837  M01S15610.set     +++|*                (CN - CN+4) = NAME FROM COMMON LIBRARIES TABLE.
21838  M01S15611.set     +++|*
21839  M01S15612.set     +++|*         EXIT   (A) = 0 IF MATCH.
21840  M01S15613.set     +++|*
21841  M01S15614.set     +++|*         USES   T1.
21842  M01S15615.set     +++|
21843  M01S15616.set     +++|
21844  M01S15617.set     +++| CPN      SUBR               ENTRY/EXIT
21845  M01S15618.set     +++|          STD    T1
21846  M01S15619.set     +++|          LDI    T1
21847  M01S15620.set     +++|          LMD    CN
21848  M01S15621.set     +++|          NJN    CPNX        IF NO MATCH
21849  M01S15622.set     +++|          LDM    1,T1
21850  M01S15623.set     +++|          LMD    CN+1
21851  M01S15624.set     +++|          NJN    CPNX        IF NO MATCH
21852  M01S15625.set     +++|          LDM    2,T1
21853  M01S15626.set     +++|          LMD    CN+2
21854  M01S15627.set     +++|          NJN    CPNX        IF NO MATCH
21855  M01S15628.set     +++|          LDM    3,T1
21856  M01S15629.set     +++|          LMD    CN+3
21857  M01S15630.set     +++|          SCN    77
21858  M01S15631.set     +++|          UJN    CPNX        RETURN
21859  M01S15632.set     +++| ESS      SPACE  4,10
21860  M01S15633.set     +++|**        ESS - EDIT SUBSYSTEM TABLE.
21861  M01S15634.set     +++|*
21862  M01S15635.set     +++|*         ENTRY  (NC) = SYSTEM CONTROL POINT NUMBER.
21863  M01S15636.set     +++|*
21864  M01S15637.set     +++|*         EXIT   SUBSYSTEM TABLE COPIED TO CMR.
21865  M01S15638.set     +++|*
21866  M01S15639.set     +++|*         USES   T1, CM - CM+4.
21867  M01S15640.set     +++|
21868  M01S15641.set     +++|
21869  M01S15642.set     +++| ESS      SUBR               ENTRY/EXIT
21870  M01S15643.set     +++|          LDN    5*SSCTL-1
21871  M01S15644.set     +++|          STD    T1
21872  M01S15645.set     +++| ESS1     LDM    .SSCT,T1    CHECK SUBSYSTEM ENTRY
21873  M01S15646.set     +++|          SBD    NC
21874  M01S15647.set     +++|          MJN    ESS2        IF NOT RELATIVE CP
21875  M01S15648.set     +++|          LDD    NC
21876  M01S15649.set     +++|          ADN    1
21877  M01S15650.set     +++|          RAM    .SSCT,T1    SET ABSOLUTE CP
21878  M01S15651.set     +++| ESS2     SOD    T1
21879  M01S15652.set     +++|          PJN    ESS1        IF NOT END OF TABLE
21880  M01S15653.set     +++|          LDC    SSCP        FETCH TABLE POINTER
21881  M01S15654.set     +++|          CRD    CM
21882  M01S15655.set     +++|          LDN    SSCTL       SET TABLE LENGTH
21883  M01S15656.set     +++|          STD    T1
21884  M01S15657.set     +++|          LDD    CM+2        COPY TABLE TO CMR
21885  M01S15658.set     +++|          SHN    14
21886  M01S15659.set     +++|          LMD    CM+3
21887  M01S15660.set     +++|          CWM    .SSCT,T1
21888  M01S15661.set     +++|          UJN    ESSX        RETURN
21889  M01S15662.set     +++| SAC      SPACE  4,10
21890  M01S15663.set     +++|**        SAC - SET (ENABLE/DISABLE) ALL SECURITY CATEGORIES.
21891  M01S15664.set     +++|*
21892  M01S15665.set     +++|*         ENTRY  (A) = 0 TO DISABLE ALL CATEGORIES.
21893  M01S15666.set     +++|*                    = -0 TO ENABLE ALL CATEGORIES.
21894  M01S15667.set     +++|
21895  M01S15668.set     +++|
21896  M01S15669.set     +++| SAC      SUBR               ENTRY/EXIT
21897  M01S15670.set     +++|          STD    T0
21898  M01S15671.set     +++|          NJN    SAC1        IF ENABLING ALL CATEGORIES
21899  M01S15672.set     +++|          LDC    LDNI+0
21900  M01S15673.set     +++|          STM    SSCA        RESTORE SELECTIVE CATEGORY SPECIFICATION
21901  M01S15674.set     +++| SAC1     LDM    .SSML+2
21902  M01S15675.set     +++|          SHN    -10
21903  M01S15676.set     +++|          SHN    14
21904  M01S15677.set     +++|          LMD    T0          ENABLE/DISABLE ALL CATEGORIES
21905  M01S15678.set     +++|          STM    .SSML+3
21906  M01S15679.set     +++|          STM    .SSML+4
21907  M01S15680.set     +++|          SHN    -4
21908  M01S15681.set     +++|          STM    .SSML+2
21909  M01S15682.set     +++|          UJN    SACX        RETURN
21910  M01S15683.set     +++| SPT      SPACE  4
21911  M01S15684.set     +++|**        SPT - SEARCH PARAMETER TABLE.
21912  M01S15685.set     +++|*
21913  M01S15686.set     +++|*         ENTRY  (A) = FWA OF PARAMETER TABLE.
21914  M01S15687.set     +++|*                ((KA - KA+1)) = PARAMETER NAME.
21915  M01S15688.set     +++|*
21916  M01S15689.set     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
21917  M01S15690.set     +++|*                (T2) = TABLE ADDRESS OF ENTRY FOUND.
21918  M01S15691.set     +++|*                (T1) = ((T2)) = PARAMETER NAME.
21919  M01S15692.set     +++|*                (KA) = KEYBOARD BUFFER ADDRESS ADVANCED.
21920  M01S15693.set     +++|*
21921  M01S15694.set     +++|*         USES   T3.
21922  M01S15695.set     +++|
21923  M01S15696.set     +++|
21924  M01S15697.set     +++| SPT2     LDN    2           ADVANCE BUFFER ADDRESS
21925  M01S15698.set     +++|          RAD    KA
21926  M01S15699.set     +++|          LDD    T2          RETURN WITH INDEX
21927  M01S15700.set     +++|          SBD    T3
21928  M01S15701.set     +++|
21929  M01S15702.set     +++| SPT      SUBR               ENTRY/EXIT
21930  M01S15703.set     +++|          STD    T3          SET TABLE FWA
21931  M01S15704.set     +++|          STD    T2
21932  M01S15705.set     +++|          LDI    KA          ASSEMBLE PARAMETER NAME
21933  M01S15706.set     +++|          SHN    6
21934  M01S15707.set     +++|          LMM    1,KA
21935  M01S15708.set     +++|          STD    T1
21936  M01S15709.set     +++|          LDI    T2
21937  M01S15710.set     +++| SPT1     LMD    T1
21938  M01S15711.set     +++|          ZJN    SPT2        IF MATCH FOUND
21939  M01S15712.set     +++|          AOD    T2          ADVANCE TABLE
21940  M01S15713.set     +++|          LDI    T2
21941  M01S15714.set     +++|          NJN    SPT1        LOOP IF NOT END OF TABLE
21942  M01S15715.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
21943  M01S15716.set     +++|          SPACE  4,10
21944  M01S15717.set     +++|**        COMMON DECKS.
21945  M01S15718.set     +++|
21946  M01S15719.set     +++|
Line S15720 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21947  M02S15720.271l750 ---| CLT$     EQU    0           DEFINE GFT ACCESS TO CLT
Line S15721 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21948  M02S15721.271l750 ---| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
21949  M01S00229.271l750 +++| CLT$     EQU    0           DEFINE *COMPGFP* ACCESS TO CLT
21950  M01S00230.271l750 +++| JCB$     EQU    0           DEFINE *COMPGFP* ACCESS TO JCB
21951  M01S15722.set     +++|*CALL     COMPGFP
Line S15723 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21952  M02S15723.271l750 ---|*CALL     COMPRJC
21953  M01S15724.set     +++| VAL$     EQU    1
21954  M01S15725.set     +++| VAC$     EQU    1
21955  M01S15726.set     +++| SCH$     EQU    1
21956  M01S15727.set     +++|*CALL     COMPVLC
21957  M01S15728.set     +++|
21958  M01S15729.set     +++|
Line S15730 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21959  M02S15730.271l750 ---| IFP      HERE               DUMP IFP REMOTE CODE
Line S15731 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21960  M02S15731.271l750 ---|
Line S15732 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21961  M02S15732.271l750 ---|
21962  M01S15733.set     +++| SBUF     EQU    *
Line S15734 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
21963  M02S15734.271l750 ---|          ERRNG  7776-SBUF-5*JCTT+5*SVJT  BUFFER TOO LARGE
21964  M01S00231.271l750 +++|          ERRNG  7776-SBUF-5*CSAT+5*SVJT  BUFFER TOO LARGE
21965  M01S15735.set     +++|          TTL    SET/RCM - RECOVER CENTRAL MEMORY.
21966  M01S15736.set     +++|          TITLE
21967  M01S15737.set     +++|          IDENT  RCM,OVL
21968  M01S15738.set     +++|          QUAL   RCM
21969  M01S15739.set     +++|          ORG    OVL
21970  M01S15740.set     +++|*COMMENT  SET - RECOVER CENTRAL MEMORY.
Line S15741 Modification History
M01 (Added by) set
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
21971  M02S15741.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
21972  M01S00010.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
21973  M01S00501.271l716 +++|          SPACE  4,10
21974  M01S00502.271l716 +++| .DSE     SET    0
21975  M01S00503.271l716 +++|          SPACE  4,10
21976  M01S00504.271l716 +++|**        MCTSUB - SUBROUTINES COMMON TO MCT PROCESSING.
21977  M01S00505.271l716 +++|
21978  M01S00506.271l716 +++|
21979  M01S00507.271l716 +++|          QUAL
21980  M01S00508.271l716 +++| MCTSUB   MACRO
21981  M01S02337.274l797 +++|          LIST   G
21982  M01S00509.271l716 +++| CTE      SPACE  4,10
21983  M01S00510.271l716 +++|**        CTE - CREATE MEMORY CONTROL TABLE ENTRY.
21984  M01S00511.271l716 +++|*
21985  M01S00512.271l716 +++|*         ENTRY  (A) = CPA FL CONTROL WORD ADDRESS.
21986  M01S00513.271l716 +++|*                (KA) = CP/PCP NUMBER.
21987  M01S00514.271l716 +++|*                (NC) = SYSTEM CP NUMBER.
21988  M01S00515.271l716 +++|*                (CN) = RA/RAX BACKWARD LINK.
21989  M01S00516.271l716 +++|*                (CN+1) = RA/RAX FORWARD LINK.
21990  M01S00517.271l716 +++|*
21991  M01S00518.271l716 +++|*         USES   T1, AB - AB+4, CM - CM+4.
21992  M01S00519.271l716 +++|*
21993  M01S00520.271l716 +++|*         CALLS  GHA, SCA.
21994  M01S00521.271l716 +++|
21995  M01S00522.271l716 +++|
21996  M01S00523.271l716 +++| CTE      SUBR               ENTRY/EXIT
21997  M01S00524.271l716 +++|          STD    T1
21998  M01S00525.271l716 +++|          LDD    KA          SET CURRENT CPA/PCPA ADDRESS
21999  M01S00526.271l716 +++|          RJM    SCA
22000  M01S00527.271l716 +++|          ADD    T1          READ MEMORY CONTROL WORD
22001  M01S00528.271l716 +++|          CRD    CM
22002  M01S00529.271l716 +++|          LDD    CM+4        FORM RA/RAX + FL/FLX
22003  M01S00530.271l716 +++|          RAD    CM+3
22004  M01S00531.271l716 +++|          SHN    -14         NEXT POTENTIAL RA/RAX
22005  M01S00532.271l716 +++|          RAD    CM+2
22006  M01S00533.271l716 +++|          LDD    CN+1
22007  M01S00534.271l716 +++|          NJN    CTE1        IF NOT SYSTEM CP
22008  M01S00535.271l716 +++|          STD    CM+2
22009  M01S00536.271l716 +++|          UJN    CTE3        SET NO UNASSIGNED MEMORY
22010  M01S00537.271l716 +++|
22011  M01S00538.271l716 +++| CTE1     RJM    SCA
22012  M01S00539.271l716 +++|          ADD    T1          READ FL CONTROL WORD
22013  M01S00540.271l716 +++|          CRD    AB
22014  M01S00541.271l716 +++|          SHN    -7          CHECK CP/PCP
22015  M01S00542.271l716 +++|          LMD    NC
22016  M01S00543.271l716 +++|          NJN    CTE2        IF NOT SYSTEM CP
22017  M01S00544.271l716 +++|          LDD    T1
22018  M01S00545.271l716 +++|          RJM    GHA         GET HIGHEST ADDRESS
22019  M01S00546.271l716 +++| CTE2     LDD    AB+2
22020  M01S00547.271l716 +++|          SHN    14          RA/RAX OF FORWARD LINK
22021  M01S00548.271l716 +++|          LMD    AB+3
22022  M01S00549.271l716 +++|          SBD    AB          REMOVE NFL
22023  M01S00550.271l716 +++|          SBD    CM+3
22024  M01S00551.271l716 +++| CTE3     STD    CN+4        SUBTRACT CURRENT RA/RAX + FL/FLX
22025  M01S00552.271l716 +++|          SHN    -14
22026  M01S00553.271l716 +++|          SBD    CM+2        SET UNASSIGNED MEMORY
22027  M01S00554.271l716 +++|          STD    CN+3
22028  M01S00555.271l716 +++|          LCN    FLSW        CALCULATE MCT OFFSET
22029  M01S00556.271l716 +++|          RAD    T1
22030  M01S00557.271l716 +++|          ERRNZ  FLSW+2-ECSW  CODE DEPENDS ON VALUE
22031  M01S00558.271l716 +++|          SHN    21-1
22032  M01S00559.271l716 +++|          LMD    KA          INSERT CP/PCP NUMBER
22033  M01S00560.271l716 +++|          SHN    1
22034  M01S00561.271l716 +++|          ADC    0           APPEND BASE MCT ADDRESS
22035  M01S00562.271l716 +++| CTEA     EQU    *-1
22036  M01S00563.271l716 +++|          CWD    CN          STORE MCT WORD
22037  M01S00564.271l716 +++|          LDD    CN+4
22038  M01S00565.271l716 +++|          RAM    .ACML+1,T1
22039  M01S00566.271l716 +++|          SHN    -14         ACCUMULATE UNASSIGNED MEMORY
22040  M01S00567.271l716 +++|          ADD    CN+3
22041  M01S00568.271l716 +++|          RAM    .ACML,T1
22042  M01S00569.271l716 +++|          LJM    CTEX        RETURN
22043  M01S00570.271l716 +++|
22044  M01S00571.271l716 +++|
22045  M01S00572.271l716 +++| .ACML    BSS    0
22046  M01S00573.271l716 +++|          VFD    24/0        AVAILABLE CM (100B WORD BLOCKS)
22047  M01S00574.271l716 +++|          VFD    24/0        AVAILABLE USER XM (*UEBS* WORD BLOCKS)
22048  M01S00575.271l716 +++|          VFD    12/0        RESERVED
22049  M01S00576.271l716 +++| GHA      SPACE  4,10
22050  M01S00577.271l716 +++|**        GHA - GET HIGHEST MEMORY ADDRESS.
22051  M01S00578.271l716 +++|*
22052  M01S00579.271l716 +++|*         ENTRY  (A) = CPA FL CONTROL WORD ADDRESS.
22053  M01S00580.271l716 +++|*                (FL - FL+1) = EXECUTION FIELD LENGTH.
22054  M01S00581.271l716 +++|*
22055  M01S00582.271l716 +++|*         EXIT   (A) = 0.
22056  M01S00583.271l716 +++|*                (AB - AB+4) = FL CONTROL WORD IMAGE.
22057  M01S00584.271l716 +++|
22058  M01S00585.271l716 +++|
22059  M01S00586.271l716 +++| GHA1     LDD    FL+1        SET TOTAL CM FL
22060  M01S00587.271l716 +++|          STD    AB+3
22061  M01S00588.271l716 +++|          LDD    FL          CREATE FL CONTROL WORD IMAGE
22062  M01S00589.271l716 +++| GHA2     STD    AB+2
22063  M01S00590.271l716 +++|          LDN    0           CLEAR UNUSED FIELD
22064  M01S00591.271l716 +++|          STD    AB+1
22065  M01S00592.271l716 +++|          STD    AB          CLEAR NFL + FL ASSIGNED
22066  M01S00593.271l716 +++|          STD    AB+4
22067  M01S00594.271l716 +++|
22068  M01S00595.271l716 +++| GHA      SUBR               ENTRY/EXIT
22069  M01S00596.271l716 +++|          CRD    AB
22070  M01S00597.271l716 +++|          SBN    FLSW
22071  M01S00598.271l716 +++|          ZJN    GHA1        IF PROCESSING CM
22072  M01S00599.271l716 +++|          LDD    AB+1
22073  M01S00600.271l716 +++|          RAD    AB+3        FORM HIGHEST ADDRESS
22074  M01S00601.271l716 +++|          SHN    -14
22075  M01S00602.271l716 +++|          UJN    GHA2        CREATE FL CONTROL WORD IMAGE
22076  M01S00603.271l716 +++| SCA      SPACE  4,10
22077  M01S00604.271l716 +++|**        SCA - SET CP/PCP AREA ADDRESS.
22078  M01S00605.271l716 +++|*
22079  M01S00606.271l716 +++|*         ENTRY  (A) = CP/PCP NUMBER.
22080  M01S00607.271l716 +++|*                (NC) = SYSTEM CP NUMBER.
22081  M01S00608.271l716 +++|*
22082  M01S00609.271l716 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
22083  M01S00610.271l716 +++|
22084  M01S00611.271l716 +++|
22085  M01S00612.271l716 +++| SCA1     ADD    NC          SET REAL CP AREA ADDRESS
22086  M01S00613.271l716 +++|          SHN    7
22087  M01S00614.271l716 +++|
22088  M01S00615.271l716 +++| SCA      SUBR               ENTRY/EXIT
22089  M01S00616.271l716 +++|          SBD    NC
22090  M01S00617.271l716 +++|          MJN    SCA1        IF REAL CP
22091  M01S00618.271l716 +++|          ZJN    SCA1        IF SYSTEM CP
22092  M01S00619.271l716 +++|          SBN    1           SET PCP AREA ORDINAL
22093  M01S00620.271l716 +++|          SHN    7
22094  M01S00621.271l716 +++|          ADC    0           ADD BASE PCPA ADDRESS
22095  M01S00622.271l716 +++| SCAA     EQU    *-1
22096  M01S00623.271l716 +++|          UJN    SCAX        RETURN
22097  M01S02338.274l797 +++|
22098  M01S02339.274l797 +++|          LIST   *
22099  M01S00624.271l716 +++|          ENDM
22100  M01S00625.271l716 +++|          SPACE  4,10
22101  M01S00626.271l716 +++|**        MCTPRS - INLINE CODE TO PRESET *MCTSUB* SUBROUTINES.
22102  M01S00627.271l716 +++|*
22103  M01S00628.271l716 +++|*         EXIT   (NS) = MCT ENTRY COUNT.
22104  M01S00629.271l716 +++|*
22105  M01S00630.271l716 +++|*         USES   CM - CM+4.
22106  M01S00631.271l716 +++|
22107  M01S00632.271l716 +++|
22108  M01S00633.271l716 +++| MCTPRS   MACRO
22109  M01S02340.274l797 +++|          LIST   G
22110  M01S00634.271l716 +++|          LDC    MCTP        FETCH MCT POINTER
22111  M01S00635.271l716 +++|          CRD    CM
22112  M01S00636.271l716 +++|          LDD    CM+1        SET FWA OF MCT
22113  M01S00637.271l716 +++|          STM    CTEA
22114  M01S00638.271l716 +++|          LDD    CM
22115  M01S00639.271l716 +++|          RAM    CTEA-1
22116  M01S00640.271l716 +++|          LDD    CM+2        SET NUMBER OF MCT ENTRIES
22117  M01S00641.271l716 +++|          STD    NS
22118  M01S00642.271l716 +++|          ERRNZ  MCTP-PCPP   CODE DEPENDS ON VALUE
22119  M01S00643.271l716 +++|          LDD    CM+3
22120  M01S00644.271l716 +++|          RAM    SCAA-1
22121  M01S00645.271l716 +++|          LDD    CM+4        SET PCP AREA BASE ADDRESS
22122  M01S00646.271l716 +++|          STM    SCAA
22123  M01S02341.274l797 +++|          LIST   *
22124  M01S00647.271l716 +++|          ENDM
22125  M01S00648.271l716 +++|          QUAL   *
22126  M01S00649.271l716 +++|          TITLE  MAIN ROUTINE.
22127  M01S15742.set     +++| RCM      SPACE  4,10
22128  M01S15743.set     +++|**        RCM - RECOVER CENTRAL MEMORY.
22129  M01S15744.set     +++|
22130  M01S15745.set     +++|
22131  M01S15746.set     +++| RCM      RJM    INO         INITIALIZE OVERLAY
22132  M01S15747.set     +++|          RJM    DCB         DEFINE CM BUFFER SPACE
22133  M01S15748.set     +++|          RJM    PTR         PROCESS POINTERS
22134  M01S15749.set     +++|          RJM    IPS         INITIALIZE PP STATUS
Line S15750 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22135  M02S15750.271l716 ---|
Line S15751 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22136  M02S15751.271l716 ---|*         RECOVER DAYFILE POINTER AREA.
Line S15752 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22137  M02S15752.271l716 ---|
Line S15753 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22138  M02S15753.271l716 ---|          LDN    DFPP        FETCH POINTER WORD
Line S15754 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22139  M02S15754.271l716 ---|          CRD    CM
Line S15755 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22140  M02S15755.271l716 ---|          LDD    CM+1        SET POINTER ADDRESS
Line S15756 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22141  M02S15756.271l716 ---|          ADN    EXDF*3      INITIALIZE CENTRAL ADDRESS
Line S15757 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22142  M02S15757.271l716 ---|          STD    CA+1
22143  M01S00650.271l716 +++|          RJM    CEI         CLEAR EST INTERLOCKS
22144  M01S00651.271l716 +++|          RJM    VEM         VERIFY EI LEVEL / MICROCODE NAME
22145  M01S00652.271l716 +++|          LDN    DFPP
22146  M01S00653.271l716 +++|          CRD    CM          FETCH DAYFILE POINTER WORD
22147  M01S00654.271l716 +++|          LDD    CM+1
22148  M01S00655.271l716 +++|          ADN    EXDF*3
22149  M01S00656.271l716 +++|          STD    CA+1        INITIALIZE CENTRAL ADDRESS
22150  M01S15758.set     +++|          SHN    -14
22151  M01S15759.set     +++|          ADD    CM
22152  M01S15760.set     +++|          STD    CA
22153  M01S00657.271l716 +++|          RJM    ROV         LOAD AND EXECUTE *RCT*
22154  M01S00658.271l716 +++|
22155  M01S00659.271l716 +++| RCTL     BSS    0           LOAD ADDRESS FOR *RCT*
22156  M01S00660.271l716 +++|          TITLE  SUBROUTINES.
22157  M01S00661.271l716 +++|          SPACE  4,10
22158  M01S00662.271l716 +++|**        COMMON SUBROUTINES.
22159  M01S00663.271l716 +++|
22160  M01S00664.271l716 +++|
22161  M01S00665.271l716 +++|          IPPSUB
22162  M01S00666.271l716 +++|          MCTSUB
22163  M01S00667.271l716 +++|          SCSSUB
22164  M01S00668.271l716 +++|          SSESUB
22165  M01S00669.271l716 +++| CEI      SPACE  4,10
22166  M01S00670.271l716 +++|**        CEI - CLEAR EST INTERLOCKS (FOR SELECTED DEVICES).
22167  M01S00671.271l716 +++|*
22168  M01S00672.271l716 +++|*         USES   AB, T1.
22169  M01S00673.271l716 +++|*
22170  M01S00674.271l716 +++|*         CALLS  SSE.
22171  M01S00675.271l716 +++|
22172  M01S00676.271l716 +++|
22173  M01S00677.271l716 +++| CEI3     SOD    T1
22174  M01S00678.271l716 +++|          PJN    CEI1        IF NOT END OF DEVICE TYPES
22175  M01S00679.271l716 +++|
22176  M01S00680.271l716 +++| CEI      SUBR               ENTRY/EXIT
22177  M01S00681.271l716 +++|          LDN    CEITL-1
22178  M01S00682.271l716 +++|          STD    T1          SET DEVICE INDEX
22179  M01S00683.271l716 +++| CEI1     LDM    CEIT,T1
22180  M01S00684.271l716 +++|          LMC    1S17        SEARCH FOR SELECTED EQUIPMENT
22181  M01S00685.271l716 +++| CEI2     RJM    SSE
22182  M01S00686.271l716 +++|          NJN    CEI3        IF EQUIPMENT NOT FOUND
22183  M01S00687.271l716 +++|          LDM    CEIM,T1
22184  M01S00688.271l716 +++|          STM    CEIA        SET DEVICE MASK
22185  M01S00689.271l716 +++|          LDD    AB
22186  M01S00690.271l716 +++|          LPC    **          CLEAR INTERLOCKS
22187  M01S00691.271l716 +++| CEIA     EQU    *-1
22188  M01S00692.271l716 +++|          STD    AB
22189  M01S00693.271l716 +++|          SFA    EST,EQ
22190  M01S00694.271l716 +++|          ADK    EQDE        UPDATE EST ENTRY
22191  M01S00695.271l716 +++|          CWD    AB
22192  M01S00696.271l716 +++|          UJN    CEI2        SEARCH FOR NEXT EQUIPMENT
22193  M01S00697.271l716 +++|
22194  M01S00698.271l716 +++| CEIT     BSS    0           TABLE OF DEVICE TYPES
22195  M01S00699.271l716 +++|          CON    2RNC        NAD
22196  M01S00700.271l716 +++|          CON    2RND        MDI
22197  M01S00701.271l716 +++| CEITL    EQU    *-CEIT
22198  M01S00702.271l716 +++|
22199  M01S00703.271l716 +++| CEIM     BSS    0           TABLE OF DEVICE MASKS
22200  M01S00704.271l716 +++|          CON    3177        NAD
22201  M01S00705.271l716 +++|          CON    6777        MDI
22202  M01S00706.271l716 +++| IPS      SPACE  4,10
22203  M01S00707.271l716 +++|**        IPS - INITIALIZE PP STATUS.
22204  M01S00708.271l716 +++|*
22205  M01S00709.271l716 +++|*         EXIT   (CA - CA+1) = NEXT CM ADDRESS.
22206  M01S00710.271l716 +++|*
22207  M01S00711.271l716 +++|*         USES   T3, T4, T6, T7, CM - CM+4, CN - CN+4, CA - CA+1.
22208  M01S00712.271l716 +++|*
22209  M01S00713.271l716 +++|*         CALLS  APP, CLS, HPP.
22210  M01S00714.271l716 +++|
22211  M01S00715.271l716 +++|
22212  M01S00028.273l780 +++|*         CHECK FOR DISABLED PP-S.
22213  M01S00029.273l780 +++|
22214  M01S00716.271l716 +++| IPS3     LDM    .PPL,T4     CHECK PP STATUS RETURNED BY *CTI*
22215  M01S00717.271l716 +++|          SHN    21-0
22216  M01S00718.271l716 +++|          STM    .PPL,T4
22217  M01S00719.271l716 +++|          MJN    IPS4        IF PP DISABLED
22218  M01S00720.271l716 +++|          LDD    CM
22219  M01S00721.271l716 +++|          LMC    2R**
22220  M01S00722.271l716 +++|          NJN    IPS5        IF PP NOT OFF ON PREVIOUS DEADSTART
22221  M01S00723.271l716 +++|          LDD    T4
22222  M01S00724.271l716 +++|          SHN    4           CALCULATE CHANNEL NUMBER
22223  M01S00725.271l716 +++|          LMD    T3
22224  M01S00726.271l716 +++|          RJM    HPP         HANG PP
22225  M01S00727.271l716 +++| IPS4     LDD    CM
22226  M01S00728.271l716 +++|          NJN    IPS5        IF PP NAME IN PLACE
22227  M01S00729.271l716 +++|          LDD    T7
22228  M01S00730.271l716 +++|          CWM    IPSA,ON
22229  M01S00731.271l716 +++| IPS5     LDN    10          ADVANCE INPUT REGISTER ADDRESS
22230  M01S00732.271l716 +++|          RAD    T7
22231  M01S00733.271l716 +++|          CRD    CM
22232  M01S00734.271l716 +++|          AOD    T3          COUNT CHANNEL
22233  M01S00735.271l716 +++|          LMN    10D
22234  M01S00736.271l716 +++| IPS6     NJN    IPS3        IF PPS BANK NOT PROCESSED
22235  M01S00737.271l716 +++|          STD    T3
22236  M01S00738.271l716 +++|          AOD    T4          ADVANCE STATUS INDEX
22237  M01S00739.271l716 +++|          LCN    10D
22238  M01S00740.271l716 +++|          RAD    T6
22239  M01S00741.271l716 +++|          NJN    IPS6        IF ALL PP-S NOT CHECKED
22240  M01S00742.271l716 +++|          LDM    .CCHN
22241  M01S00743.271l716 +++|          ZJN    IPS9        IF NO CPP-S
22242  M01S00744.271l716 +++|          STD    T3
22243  M01S00745.271l716 +++| IPS7     LDM    .CPPL
22244  M01S00746.271l716 +++|          SHN    21-0
22245  M01S00747.271l716 +++|          STM    .CPPL
22246  M01S00748.271l716 +++|          PJN    IPS8        IF PP NOT DISABLED
22247  M01S00749.271l716 +++|          LDD    T7
22248  M01S00750.271l716 +++|          CWM    IPSA,ON
22249  M01S00751.271l716 +++| IPS8     LDN    10          ADVANCE INPUT REGISTER ADDRESS
22250  M01S00752.271l716 +++|          RAD    T7
22251  M01S00753.271l716 +++|          SOD    T3
22252  M01S00754.271l716 +++|          NJN    IPS7        IF NOT COMPLETE LOOP
22253  M01S00755.271l716 +++|
22254  M01S00756.271l716 +++| IPS9     LDD    CA+1        STORE PSEUDO PP INDICATOR
22255  M01S00757.271l716 +++|          SBN    10
22256  M01S00758.271l716 +++|          CWM    IPSA+2,ON
22257  M01S00759.271l716 +++|
22258  M01S00030.273l780 +++|*         CLEAR EXTENDED PP COMMUNICATION BLOCKS.
22259  M01S00031.273l780 +++|
22260  M01S00032.273l780 +++|          LDD    CN
22261  M01S00033.273l780 +++|          SHN    14
22262  M01S00034.273l780 +++|          ADD    CN+1
22263  M01S00035.273l780 +++|          SBD    CN+4
22264  M01S00036.273l780 +++|          SHN    PPXES-PPCES LENGTH OF EXTENDED PP COMMUNICATION AREA
22265  M01S00037.273l780 +++|          RJM    CLS         CLEAR EXTENDED PP COMMUNICATION AREA
22266  M01S00038.273l780 +++|
22267  M01S00760.271l716 +++| IPS      SUBR               ENTRY/EXIT
22268  M01S00039.273l780 +++|
22269  M01S00040.273l780 +++|*         CLEAR PP COMMUNICATION AREAS.
22270  M01S00041.273l780 +++|
22271  M01S00761.271l716 +++|          LDN    PPCP
22272  M01S00762.271l716 +++|          CRD    CN
22273  M01S00763.271l716 +++|          LDD    CN+4        SET FWA OF PP COMMUNICATION AREA
22274  M01S00764.271l716 +++|          STD    CA+1
22275  M01S00765.271l716 +++|          STD    T7
22276  M01S00766.271l716 +++|          CRD    CM
22277  M01S00767.271l716 +++|          STD    T3
22278  M01S00768.271l716 +++|          ADN    10
22279  M01S00769.271l716 +++|          STD    T4
22280  M01S00770.271l716 +++|          SHN    -14
22281  M01S00771.271l716 +++|          STD    CA
22282  M01S00772.271l716 +++|          LDM    .PPU        SET PP COUNT
22283  M01S00773.271l716 +++|          STD    T6
22284  M01S00774.271l716 +++|          ADM    .CCHN
22285  M01S00775.271l716 +++|          SHN    3           SET END OF COMMUNICATIONS AREA SCAN
22286  M01S00776.271l716 +++|          RAD    T4
22287  M01S00777.271l716 +++| IPS1     LDN    10          CLEAR COMMUNICATION AREA
22288  M01S00778.271l716 +++|          RJM    CLS
22289  M01S00779.271l716 +++|          LDD    CM
22290  M01S00780.271l716 +++|          LMC    2R**
22291  M01S00781.271l716 +++|          NJN    IPS2        IF PP NOT DISABLED ON PREVIOUS DEADSTART
22292  M01S00782.271l716 +++|          LDD    T3
22293  M01S00783.271l716 +++|          CWD    CM
22294  M01S00784.271l716 +++| IPS2     LDN    10          ADVANCE INPUT REGISTER ADDRESS
22295  M01S00785.271l716 +++|          RAD    T3
22296  M01S00786.271l716 +++|          CRD    CM          READ INPUT REGISTER
22297  M01S00787.271l716 +++|          LMD    T4
22298  M01S00788.271l716 +++|          NJN    IPS1        IF ALL PP-S NOT CHECKED
22299  M01S00789.271l716 +++|          STD    T3
22300  M01S00790.271l716 +++|          STD    T4
22301  M01S00791.271l716 +++|          RJM    APP         ASSIGN *CTI* INITIATED PP-S
22302  M01S00792.271l716 +++|          LDD    NC          INSERT SYSTEM CP INTO DISABLED PP IR
22303  M01S00793.271l716 +++|          RAM    IPSA+1
22304  M01S00794.271l716 +++|          LJM    IPS3        PROCESS PP COMMUNICATIONS AREA
22305  M01S00795.271l716 +++|
22306  M01S00796.271l716 +++| IPSA     VFD    18/3R***,6/**,36/
22307  M01S00797.271l716 +++|          VFD    24/3RCIO
22308  M01S00798.271l716 +++| PTR      SPACE  4,10
22309  M01S00799.271l716 +++|**        PTR - PROCESS POINTER AREA.
22310  M01S00800.271l716 +++|*
22311  M01S00801.271l716 +++|*         EXIT   (ID) = MACHINE ID.
22312  M01S00802.271l716 +++|*                (LD) = LINK DEVICE STATUS.
22313  M01S00803.271l716 +++|*
22314  M01S00804.271l716 +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T3 - T7, EN.
22315  M01S00805.271l716 +++|*
22316  M01S00806.271l716 +++|*         CALLS  SCS.
22317  M01S00807.271l716 +++|*
22318  M01S00808.271l716 +++|*         MACROS SFA.
22319  M01S00809.271l716 +++|
22320  M01S00810.271l716 +++|
22321  M01S00811.271l716 +++| PTR      SUBR               ENTRY/EXIT
22322  M01S00812.271l716 +++|          LDN    DSSL
22323  M01S00813.271l716 +++|          CRD    CM
22324  M01S00814.271l716 +++|          ADN    PLDP-DSSL   GET PLD POINTER
22325  M01S00815.271l716 +++|          CRD    CN
22326  M01S00816.271l716 +++|          LDN    0           DISABLE *SPLM*
22327  M01S00817.271l716 +++|          STD    CN
22328  M01S00818.271l716 +++|          STD    CN+1
22329  M01S00819.271l716 +++|          LDD    CM+4        SET RECOVERY MODE IN CMR
22330  M01S00820.271l716 +++|          SCN    7
22331  M01S00821.271l716 +++|          LMD    RM
22332  M01S00822.271l716 +++|          LMN    4           ADD DEADSTART IN PROGRESS FLAG
22333  M01S00823.271l716 +++|          STD    CM+4
22334  M01S00824.271l716 +++|          LDN    DSSL
22335  M01S00825.271l716 +++|          CWD    CM
22336  M01S00826.271l716 +++|          ADN    PLDP-DSSL   STORE LIBRARY LOCKED STATUS
22337  M01S00827.271l716 +++|          CWD    CN
22338  M01S00828.271l716 +++|          RJM    SCS         SET CPU STATUS
22339  M01S00829.271l716 +++|          LDN    JSCL
22340  M01S00830.271l716 +++|          CRD    CN
22341  M01S00831.271l716 +++|          ADN    PRBP-JSCL
22342  M01S00832.271l716 +++|          CRD    CM
22343  M01S00833.271l716 +++|          LDD    CM          INTERLOCK PROBE TABLES
22344  M01S00834.271l716 +++|          LPC    3777
22345  M01S00835.271l716 +++|          STD    CM
22346  M01S00836.271l716 +++|          LDC    4000        SET SCHEDULER ACTIVE
22347  M01S00837.271l716 +++|          STD    CN
22348  M01S00838.271l716 +++|          LDN    JSCL        STORE SCHEDULER INTERLOCK
22349  M01S00839.271l716 +++|          CWD    CN
22350  M01S00840.271l716 +++|          ADN    RDSL-JSCL   CLEAR LABEL CHECK CONTROL
22351  M01S00841.271l716 +++|          CWD    ZR
22352  M01S00842.271l716 +++|          ADN    PRBP-RDSL
22353  M01S00843.271l716 +++|          CWD    CM
22354  M01S00844.271l716 +++|          SBN    PRBP-SCRL
22355  M01S00845.271l716 +++|          CRD    CM
22356  M01S00846.271l716 +++|          LDD    CM          CLEAR EMERGENCY STEP STATUS
22357  M01S00847.271l716 +++|          LPC    -5600
22358  M01S00848.271l716 +++|          LMC    4000        SET *1MB* (ERROR LOGGING) ACTIVE
22359  M01S00849.271l716 +++|          STD    CM
22360  M01S00850.271l716 +++|          LDN    0           CLEAR *1CK* CALLED STATUS
22361  M01S00851.271l716 +++|          STD    CM+2
22362  M01S00852.271l716 +++|          LDN    ZERL
22363  M01S00853.271l716 +++|          CRD    AB
22364  M01S00854.271l716 +++|          ADN    DSDL-ZERL   STORE *DSD* BUFFER INTERLOCK
22365  M01S00855.271l716 +++|          CWD    CN
22366  M01S00856.271l716 +++|          SBN    DSDL-MMFL   PRESERVE MACHINE ID
22367  M01S00857.271l716 +++|          CRD    ID+LD*
22368  M01S00858.271l716 +++|          ADN    INWL-MMFL   STORE SCHEDULER INTERLOCK
22369  M01S00859.271l716 +++|          CWM    .INWL,ON
22370  M01S00860.271l716 +++|          SBN    INWL+1-SCRL
22371  M01S00861.271l716 +++|          CWD    CM
22372  M01S00862.271l716 +++|          LCN    0           INITIALIZE FLAG REGISTER STATUS
22373  M01S00863.271l716 +++|          STD    AB+3
22374  M01S00864.271l716 +++|          LDD    LD
22375  M01S00865.271l716 +++|          LPC    777
22376  M01S00866.271l716 +++|          ZJN    PTR1        IF NOT MMF ENVIRONMENT
22377  M01S00867.271l716 +++|          SFA    EST
22378  M01S00868.271l716 +++|          CRD    CM          READ EST ENTRY FOR LINK DEVICE
22379  M01S00869.271l716 +++|          ADN    EQAE-EQDE
22380  M01S00870.271l716 +++|          CRD    T3
22381  M01S00871.271l716 +++|          LDD    T3+2
22382  M01S00872.271l716 +++|          SHN    -6
22383  M01S00873.271l716 +++|          LPN    3
22384  M01S00874.271l716 +++|          STM    LDSH        SET SHIFT COUNT FOR LINK DEVICE
22385  M01S00875.271l716 +++|          LDD    CM+4
22386  M01S00876.271l716 +++|          SHN    3
22387  M01S00877.271l716 +++|          ADN    ALGL        FETCH LABEL TRACK FROM MST
22388  M01S00878.271l716 +++|          CRD    CM
22389  M01S00879.271l716 +++|          LDD    CM+1        SET LABEL TRACK
22390  M01S00880.271l716 +++|          STD    AB+4
22391  M01S00881.271l716 +++| PTR1     LDK    EXML        GET EXTENDED MEMORY PARAMETER
22392  M01S00882.271l716 +++|          CRD    CM
22393  M01S00883.271l716 +++|          ADK    MMFL-EXML
22394  M01S00884.271l716 +++|          CWD    ID+LD*
22395  M01S00885.271l716 +++|          ADK    MEFL-MMFL
22396  M01S00886.271l716 +++|          CRD    CN
22397  M01S00887.271l716 +++|          ADK    EFRL-MEFL
22398  M01S00888.271l716 +++|          CWD    AB
22399  M01S00889.271l716 +++|          LDD    CN+3        SET EXTENDED MEMORY PARAMETERS
22400  M01S00890.271l716 +++|          STM    EMFL
22401  M01S00891.271l716 +++|          LDD    CN+2
22402  M01S00892.271l716 +++|          SCN    37
22403  M01S00893.271l716 +++|          SHN    11
22404  M01S00894.271l716 +++|          STM    UESC
22405  M01S00895.271l716 +++|          SHN    2
22406  M01S00896.271l716 +++|          SCN    36
22407  M01S00897.271l716 +++|          STM    EMAF
22408  M01S00898.271l716 +++|          SHN    -20
22409  M01S00899.271l716 +++|          STM    EMSC
Line S00052 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22410  M02S00052.ns2709  ---|          RAM    PTRA
Line S00053 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22411  M02S00053.ns2709  ---|          LDK    UEML        FETCH UEM PARAMETERS
Line S00054 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22412  M02S00054.ns2709  ---|          CRD    AB
Line S00055 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22413  M02S00055.ns2709  ---|          LDD    AB+1
Line S00056 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22414  M02S00056.ns2709  ---| PTRA     SHN    3           SET UEM FL / 100B
Line S00057 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22415  M02S00057.ns2709  ---|*         SHN    3+EMSC
Line S00058 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22416  M02S00058.ns2709  ---|          STM    UEMZ+1
Line S00059 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22417  M02S00059.ns2709  ---|          SHN    -14
Line S00060 Modification History
M01 (Added by) 271l739
M02 (Updated by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22418  M02S00060.ns2709  ---|          STM    UEMZ
22419  M01S00900.271l716 +++|          LDD    CM+4
22420  M01S00901.271l716 +++|          LPC    777
22421  M01S00902.271l716 +++|          STD    EN
22422  M01S00903.271l716 +++|          ZJN    PTR2        IF NO EXTENDED MEMORY EQUIPMENT
22423  M01S00904.271l716 +++|          SFA    EST
22424  M01S00905.271l716 +++|          ADK    EQDE
22425  M01S00906.271l716 +++|          CRD    CM
22426  M01S00907.271l716 +++|          LDD    CM+4
22427  M01S00908.271l716 +++|          SHN    3
22428  M01S00909.271l716 +++|          ADK    DILL
22429  M01S00910.271l716 +++|          CRD    AB
22430  M01S00911.271l716 +++|          LDD    AB+3        SET EXTENDED MEMORY TYPE
22431  M01S00912.271l716 +++|          SHN    -6
22432  M01S00913.271l716 +++|          LPN    7
22433  M01S00914.271l716 +++|          STM    EMTY
22434  M01S00915.271l716 +++| PTR2     LJM    PTRX        RETURN
22435  M01S00916.271l716 +++| VEM      SPACE  4,10
22436  M01S00917.271l716 +++|**        VEM - VERIFY EI LEVEL AND MICROCODE NAME.
22437  M01S00918.271l716 +++|*
22438  M01S00919.271l716 +++|*         ENTRY  (HO) = HARDWARE OPTIONS.
22439  M01S00920.271l716 +++|*
22440  M01S00921.271l716 +++|*         EXIT   TO *DSE* IF EI LEVEL OR MICROCODE NAME ERROR.
22441  M01S00922.271l716 +++|*
22442  M01S00923.271l716 +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T7.
22443  M01S00924.271l716 +++|
22444  M01S00925.271l716 +++|
22445  M01S00926.271l716 +++| VEM      SUBR               ENTRY/EXIT
22446  M01S00927.271l716 +++|          LDM    C8XX
22447  M01S00928.271l716 +++|          NJN    VEMX        IF NOT CYBER 800 TYPE MAINFRAME
22448  M01S00929.271l716 +++|          LDC    MEBF
22449  M01S00930.271l716 +++|          CRD    CM          GET MICROCODE/EI NAMES PASSED BY *CTI*
22450  M01S00931.271l716 +++|          SBN    MEBF-SABL
22451  M01S00932.271l716 +++|          CRD    T1          GET MAINFRAME DESCRIPTOR ADDRESS
22452  M01S00933.271l716 +++|          ADN    EABL+CPEI-SABL
22453  M01S00934.271l716 +++|          CRD    AB
22454  M01S00935.271l716 +++|          LDD    AB+1        FETCH ORIGINAL MICROCODE NAME
22455  M01S00936.271l716 +++|          SCN    77
22456  M01S00937.271l716 +++|          SHN    6
22457  M01S00938.271l716 +++|          LMD    AB
22458  M01S00939.271l716 +++|          SHN    6
22459  M01S00940.271l716 +++|          ADN    1
22460  M01S00941.271l716 +++|          CRD    T3
22461  M01S00942.271l716 +++|          ADN    1
22462  M01S00943.271l716 +++|          CRD    CN
22463  M01S00944.271l716 +++|          LDD    T3+2
22464  M01S00945.271l716 +++|          SHN    21-0
22465  M01S00946.271l716 +++|          PJN    VEM1        IF CPU-0 IS ENABLED
22466  M01S00947.271l716 +++|          LDD    AB+1
22467  M01S00948.271l716 +++|          LPN    77
22468  M01S00949.271l716 +++|          SHN    14
22469  M01S00950.271l716 +++|          LMD    AB+2        FETCH MICROCODE FROM CPU-1 BLOCK
22470  M01S00951.271l716 +++|          ADN    2
22471  M01S00952.271l716 +++|          CRD    CN
22472  M01S00953.271l716 +++| VEM1     LDN    0           CLEAR MISMATCH FLAG
22473  M01S00954.271l716 +++|          STD    T5
22474  M01S00955.271l716 +++|          LDD    T1          GET ORIGINAL EI NAME
22475  M01S00956.271l716 +++|          SHN    14
22476  M01S00957.271l716 +++|          LMD    T1+1
22477  M01S00958.271l716 +++|          ADN    1
22478  M01S00959.271l716 +++|          CRD    AB
22479  M01S00960.271l716 +++|          LDN    3           COMPARE MICROCODE NAMES
22480  M01S00961.271l716 +++|          STD    T3
22481  M01S00962.271l716 +++| VEM2     LDM    CN,T3
22482  M01S00963.271l716 +++|          STM    VEMA+12,T3
22483  M01S00964.271l716 +++|          LMM    CM,T3
22484  M01S00965.271l716 +++|          ZJN    VEM3        IF VALUES MATCH
22485  M01S00966.271l716 +++|          STD    T5
22486  M01S00967.271l716 +++| VEM3     SOD    T3
22487  M01S00968.271l716 +++|          PJN    VEM2        IF COMPARE NOT COMPLETE
22488  M01S00969.271l716 +++|          LDD    T5
22489  M01S00970.271l716 +++|          NJN    VEM4        IF MICROCODE ERROR
22490  M01S00971.271l716 +++|          LDD    AB+3
22491  M01S00972.271l716 +++|          STM    VEMB+6      COMPARE EI LEVEL
22492  M01S00973.271l716 +++|          LMD    CM+4
22493  M01S00974.271l716 +++|          NJN    VEM5        IF EI ERROR
22494  M01S00975.271l716 +++|          LJM    VEMX        RETURN
22495  M01S00976.271l716 +++|
22496  M01S00977.271l716 +++| VEM4     LDC    VEMA        *MICROCODE MISMATCH*
22497  M01S00978.271l716 +++|          UJN    VEM6        DISPLAY ERROR AND HANG
22498  M01S00979.271l716 +++|
22499  M01S00980.271l716 +++| VEM5     LDC    VEMB        *EI MISMATCH*
22500  M01S00981.271l716 +++| VEM6     JMP    DSE         DISPLAY ERROR AND HANG
22501  M01S00982.271l716 +++|
22502  M01S00983.271l716 +++|
22503  M01S00984.271l716 +++| VEMA     DATA   C*MICROCODE MISMATCH,        *
22504  M01S00985.271l716 +++| VEMB     DATA   C*EI MISMATCH,  *
22505  M01S00986.271l716 +++|          TITLE  MEMORY MANAGEMENT ROUTINES.
22506  M01S00987.271l716 +++| CFC      SPACE  4,10
22507  M01S00988.271l716 +++|**        CFC - CHECK FL CONTROL WORDS.
22508  M01S00989.271l716 +++|*
22509  M01S00990.271l716 +++|*         ENTRY  (T6) = CP/PCP NUMBER.
22510  M01S00991.271l716 +++|*                (AB - AB+4) = FL CONTROL WORD FOR *FLSW*.
22511  M01S00992.271l716 +++|*                (CN - CN+4) = FL CONTROL WORD FOR *FLSW*+1.
22512  M01S00993.271l716 +++|*
22513  M01S00994.271l716 +++|*         CALLS  SCA.
22514  M01S00995.271l716 +++|
22515  M01S00996.271l716 +++|
22516  M01S00997.271l716 +++| CFC      SUBR               ENTRY/EXIT
22517  M01S00998.271l716 +++|          LDD    AB
22518  M01S00999.271l716 +++|          NJN    CFCX        IF NFL ASSIGNED
22519  M01S01000.271l716 +++|          LDD    AB+4
22520  M01S01001.271l716 +++|          ZJN    CFCX        IF NO FL
22521  M01S01002.271l716 +++|          SBD    AB+1
22522  M01S01003.271l716 +++|          STD    AB+4        ADJUST FL
22523  M01S01004.271l716 +++|          STD    CN+4
22524  M01S01005.271l716 +++|          LDD    AB+1        RESET NFL
22525  M01S01006.271l716 +++|          STD    AB
22526  M01S01007.271l716 +++|          RAD    AB+3        ADJUST RA
22527  M01S01008.271l716 +++|          SHN    -14
22528  M01S01009.271l716 +++|          RAD    AB+2
22529  M01S01010.271l716 +++|          LDD    AB
22530  M01S01011.271l716 +++|          RAD    CN+3
22531  M01S01012.271l716 +++|          LDN    0           CLEAR ROLLOUT VALUE OF NFL
22532  M01S01013.271l716 +++|          STD    AB+1
22533  M01S01014.271l716 +++|          LDD    T6          SET CP/PCP ADDRESS
22534  M01S01015.271l716 +++|          RJM    SCA
22535  M01S01016.271l716 +++|          ADN    FLSW+1
22536  M01S01017.271l716 +++|          CWD    CN          STORE FL CONTROL WORDS
22537  M01S01018.271l716 +++|          SBN    1
22538  M01S01019.271l716 +++|          CWD    AB
22539  M01S01020.271l716 +++|          UJN    CFCX        RETURN
22540  M01S01021.271l716 +++| DCB      SPACE  4,15
22541  M01S01022.271l716 +++|**        DCB - DEFINE CM BUFFER SPACE.
22542  M01S01023.271l716 +++|*
22543  M01S01024.271l716 +++|*         EXIT   (EB) = RA/100 FOR *CPUMLD*.
22544  M01S01025.271l716 +++|*
22545  M01S01026.271l716 +++|*         USES   EB, AB - AB+4, CN - CN+4.
22546  M01S01027.271l716 +++|*
22547  M01S01028.271l716 +++|*         CALLS  CMA, RFL.
22548  M01S01029.271l716 +++|
22549  M01S01030.271l716 +++|
22550  M01S01031.271l716 +++| DCB      SUBR               ENTRY/EXIT
22551  M01S01032.271l716 +++|          RJM    RFL         RELEASE FIELD LENGTH
22552  M01S01033.271l716 +++|          LDN    ZERL
22553  M01S01034.271l716 +++|          CRD    AB
22554  M01S01035.271l716 +++|          ADN    RPLP-ZERL   FETCH FWA OF RPL
22555  M01S01036.271l716 +++|          CRD    CN
22556  M01S01037.271l716 +++|          LDC    2S12+AB     CHECK AVAILABLE MEMORY
22557  M01S01038.271l716 +++|          RJM    CMA
22558  M01S01039.271l716 +++|          LDD    AB+1
22559  M01S01040.271l716 +++|          ZJN    DCB2        IF NO FREE MEMORY
22560  M01S01041.271l716 +++|          STD    EB
22561  M01S01042.271l716 +++|          ADC    CPML+PRSL-4001
22562  M01S01043.271l716 +++|          PJN    DCB2        IF REQUIRED FL CROSSES 131K
22563  M01S01044.271l716 +++|          LDD    AB+3
22564  M01S01045.271l716 +++|          SBK    CPML+PRSL
22565  M01S01046.271l716 +++| DCB1     PJN    DCBX        IF ENOUGH FL
22566  M01S01047.271l716 +++| DCB2     LDN    CMRL
22567  M01S01048.271l716 +++|          CRD    AB          GET CMR LENGTH
22568  M01S01049.271l716 +++|          LDD    CN
22569  M01S01050.271l716 +++|          SHN    14          FWA OF RPL
22570  M01S01051.271l716 +++|          LMD    CN+1
22571  M01S01052.271l716 +++|          ADN    77          ROUND RPL ADDRESS
22572  M01S01053.271l716 +++|          SHN    -6
22573  M01S01054.271l716 +++|          STD    EB          SET NEW LOAD ADDRESS FOR *CPUMLD*
22574  M01S01055.271l716 +++|          LDD    AB+4
22575  M01S01056.271l716 +++|          SBK    CPML+PRSL   CHECK FL NEEDED
22576  M01S01057.271l716 +++|          SBD    EB
22577  M01S01058.271l716 +++|          PJN    DCB1        IF REQUIRED FL IN CMR
22578  M01S01059.271l716 +++|          LDC    DCBA
22579  M01S01060.271l716 +++|          JMP    DSE         DISPLAY MESSAGE AND HANG
22580  M01S01061.271l716 +++|
22581  M01S01062.271l716 +++|
22582  M01S01063.271l716 +++| DCBA     DATA   C*LACKING MEMORY FOR CM RECOVERY.*
22583  M01S01064.271l716 +++| FFL      SPACE  4,20
22584  M01S01065.271l716 +++|**        FFL - FIND FORWARD LINK FOR MCT ENTRY.
22585  M01S01066.271l716 +++|*
22586  M01S01067.271l716 +++|*         ENTRY  (KA) = MCT ORDINAL.
22587  M01S01068.271l716 +++|*                (NS) = MCT ENTRY COUNT.
22588  M01S01069.271l716 +++|*                (T2) = MEMORY TYPE INDICATOR.
22589  M01S01070.271l716 +++|*                     = 0 FOR CENTRAL MEMORY.
22590  M01S01071.271l716 +++|*                     = 1 FOR EXTENDED MEMORY.
22591  M01S01072.271l716 +++|*                (CA - CA+1) = RA + FL OF CURRENT CP/PCP.
22592  M01S01073.271l716 +++|*
22593  M01S01074.271l716 +++|*         EXIT   (T7) = FL/FLX AT FORWARD LINK CP/PCP.
22594  M01S01075.271l716 +++|*                (CN+1) = CP/PCP NUMBER OF FORWARD LINK.
22595  M01S01076.271l716 +++|*                (T5 - T6) = RA/RAX AT FORWARD LINK CP/PCP.
22596  M01S01077.271l716 +++|*
22597  M01S01078.271l716 +++|*         ERROR  TO *DSE* IF FL CONTROL WORD ERROR.
22598  M01S01079.271l716 +++|*
Line S01080 Modification History
M01 (Added by) 271l716
M02 (Updated by) set69
Seq #  *Modification Id* Act 
----------------------------+
22599  M02S01080.set69   ---|*         USES   T3, T4, AB - AB+4, CM - CM+4.
22600  M01S00001.set69   +++|*         USES   T3 - T7, CM.
22601  M01S01081.271l716 +++|*
22602  M01S01082.271l716 +++|*         CALLS  RCW, SCA.
22603  M01S01083.271l716 +++|
22604  M01S01084.271l716 +++|
22605  M01S01085.271l716 +++| FFL7     AOM    CM,T2       SET CP/PCP SELECTED
22606  M01S01086.271l716 +++|          LDD    CN+1
22607  M01S01087.271l716 +++|          ZJN    FFL2        IF FORWARD LINK NOT FOUND
22608  M01S01088.271l716 +++|          RJM    SCA
22609  M01S01089.271l716 +++|          ADN    6           STORE SELECTION STATUS
22610  M01S01090.271l716 +++|          CWD    CM
22611  M01S01091.271l716 +++|
22612  M01S01092.271l716 +++| FFL      SUBR               ENTRY/EXIT
22613  M01S01093.271l716 +++|          LDN    0
22614  M01S01094.271l716 +++|          STD    CN+1        PRESET NO FORWARD LINK
22615  M01S01095.271l716 +++|          CRD    T3
22616  M01S01096.271l716 +++|          LDN    17          INITIALIZE FOR SCAN
22617  M01S01097.271l716 +++|          STD    T5
22618  M01S01098.271l716 +++|
22619  M01S01099.271l716 +++|*         FETCH FL CONTROL WORD FROM CP/PCP AREA.
22620  M01S01100.271l716 +++|
22621  M01S01101.271l716 +++| FFL1     RJM    RCW
22622  M01S01102.271l716 +++|          ZJN    FFL7        IF END OF SEARCH
22623  M01S01103.271l716 +++|          LDD    AB+2
22624  M01S01104.271l716 +++|          SBD    CA          VERIFY FL CONTROL WORD
22625  M01S01105.271l716 +++|          SHN    14
22626  M01S01106.271l716 +++|          ADD    AB+3
22627  M01S01107.271l716 +++|          SBD    CA+1        CHECK RA - CURRENT POSITION
22628  M01S01108.271l716 +++|          SBD    AB
22629  M01S01109.271l716 +++|          PJN    FFL3        IF NOT INVALID RA OR NFL
22630  M01S01110.271l716 +++| FFL2     LDC    =C*FL CONTROL WORD ERROR.*
22631  M01S01111.271l716 +++|          JMP    DSE         DISPLAY ERROR AND HANG
22632  M01S01112.271l716 +++|
22633  M01S01113.271l716 +++| FFL3     LDD    AB+2        COMPARE WITH PREVIOUS DISTANCE
22634  M01S01114.271l716 +++|          SBD    T5
22635  M01S01115.271l716 +++|          SHN    14
22636  M01S01116.271l716 +++|          ADD    AB+3        CHECK RA NEAREST CURRENT POSITION
22637  M01S01117.271l716 +++|          SBD    T6
22638  M01S01118.271l716 +++|          NJN    FFL5        IF NOT SAME RA
22639  M01S01119.271l716 +++|          LDD    T3
22640  M01S01120.271l716 +++|          NJN    FFL1        IF PREVIOUS CP/PCP HAD NFL ASSIGNED
22641  M01S01121.271l716 +++|          LDD    AB
22642  M01S01122.271l716 +++|          NJN    FFL4        IF THIS CP/PCP HAS NFL ASSIGNED
22643  M01S01123.271l716 +++|          LDD    T7
Line S01124 Modification History
M01 (Added by) 271l716
M02 (Updated by) set69
Seq #  *Modification Id* Act 
----------------------------+
22644  M02S01124.set69   ---|          NJN    FFL4        IF CP/PCP WITHOUT FL NOT FOUND
22645  M01S00002.set69   +++|          NJN    FFL4        IF PREVIOUS CP/PCP HAD FL
22646  M01S01125.271l716 +++|          LDD    NC
22647  M01S01126.271l716 +++|          SBD    T4
Line S01127 Modification History
M01 (Added by) 271l716
M02 (Updated by) set69
Seq #  *Modification Id* Act 
----------------------------+
22648  M02S01127.set69   ---|          PJN    FFL1        IF NOT PCP
22649  M01S00003.set69   +++| FFL3.1   PJN    FFL1        IF NOT PCP
22650  M01S00004.set69   +++|          LDD    KA
22651  M01S00005.set69   +++|          ZJN    FFL1        IF CP00 (CMR)
Proceed to Part 18
cdc/nos2.source/opl.opl871/deck/set.017.txt ยท Last modified: by 127.0.0.1