|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4826 (0x12da)
Types: s3xseg
Names: »S$E001«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E001«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E001 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 12 MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- SET GLOBAL * 00100000
.* VARIABLES FOR SYSTEM CONTROL FUNCTIONS * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . DK-#### * 00150000
.* * 00160000
.* DISK DEVICES SUPPORTED -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00170000
.* * 00180000
.* DEVICES REPRESENTED ARE, RESPCETIVELY: R2, F2, D1, D2 * 00190000
.* * 00200000
.* . UR-#### * 00210000
.* * 00220000
.* U/R DEVICES SUPPORTED -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00230000
.* * 00240000
.* DEVICES REPRESENTED ARE, RESPECTIVELY: MFCU, 1442, 5203, 1403 * 00250000
.* * 00260000
.* . PC-0/1 * 00270000
.* * 00280000
.* 1=PROGRAM REQUEST COUNTS SUPPORTED / 0=NOT SUPPORTED * 00290000
.* * 00300000
.* . SO-00/01/10 * 00310000
.* * 00320000
.* 00 -- NO SIGN-ON SECURITY CHECKING WHATSOEVER * 00330000
.* 01 -- USER ROUTINE PROVIDED FOR SIGN-ON SECURITY CHECKING * 00340000
.* 10 -- CCP PASSWORD CHECKING AT SIGN-ON * 00350000
.* * 00360000
.* . SH-0/1 * 00370000
.* * 00380000
.* 1=UPDATE FILE SHARING SUPPORTED / 0=NOT * 00390000
.* * 00400000
.* . FD-0/1 * 00410000
.* * 00420000
.* 1= 3741 U/R DEVICE SUPPORT / 0=NOT * 00430000
.* * 00440000
.********************************************************************** 00450000
$E001 &DK-,&UR-,&PC-,&SO-,&SH-,&FD- 00460000
.* 00470000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00480000
.* 00490000
GBLB &SHR . UPDATE FILE SHARING: 00500000
.* . 1=SUPPORTED / 0=NOT 00510000
.* 00520000
GBLB &USEON . USER SIGN-ON ROUTINE: 00530000
.* . 1=SUPPORTED / 0=NOT 00540000
.* 00550000
GBLB &SYSON . CCP PASSWORD SECURITY: 00560000
.* . 1=SUPPORTED / 0=NOT 00570000
.* 00580000
GBLB &PUCNT . PROGRAM REQUEST COUNTS: 00590000
.* . 1=SUPPORTED / 0=NOT 00600000
.* 00610000
GBLB &URMFU . MFCU SUPPORT: 00620000
.* . 1=SUPPORTED / 0=NOT 00630000
.* 00640000
GBLB &UR142 . 1442 SUPPORT: 00650000
.* . 1=SUPPORTED / 0=NOT 00660000
.* 00670000
GBLB &URPRT . 5203/1403 SUPPORT: 00680000
.* . 1=SUPPORTED / 0=NOT 00690000
.* 00700000
GBLB &D45 . 5445 SUPPORT: 00710000
.* . 1=SUPPORTED / 0=NOT 00720000
.* 00730000
GBLB &UR41 . 3741 U/R SUPPORT: 00740000
.* . 1=SUPPORTED / 0=NOT 00750000
.* 00760000
TEXT 00770000
.* 00780000
.*--------- SET FOR SUPPORT OF 5445 DISK ---------------------------* 00790000
.* 00800000
AIF ('&DK'(3,2) EQ '00').DKEND . SKIP IF *NO* 5445 00810000
.* 00820000
&D45 SETB 1 . 5445 SUPPORTED 00830000
.* 00840000
.DKEND ANOP . END OPERAND 'DK' 00850000
.* 00860000
.*--------- SET FOR SUPPORT OF MFCU --------------------------------* 00870000
.* 00880000
AIF ('&UR'(1,1) EQ '0').MFEND . SKIP IF *NO* MFCU SUPPORT 00890000
.* 00900000
&URMFU SETB 1 . MFCU SUPPORTED 00910000
.* 00920000
.MFEND ANOP . END SUB-OPERAND 'MF' OF 'UR' 00930000
.* 00940000
.*--------- SET FOR SUPPORT OF 1442 --------------------------------* 00950000
.* 00960000
AIF ('&UR'(2,1) EQ '0').RPEND . SKIP IF *NO* 1442 SUPPORT 00970000
.* 00980000
&UR142 SETB 1 . 1442 SUPPORTED 00990000
.* 01000000
.RPEND ANOP . END SUB-OPERAND 'RP' OF 'UR' 01010000
.* 01020000
.*--------- SET FOR SUPPORT OF 2503 OR 1403 ------------------------* 01030000
.* 01040000
AIF ('&UR'(3,2) EQ '00').PREND . SKIP IF *NO* PRINTER SUPPORT 01050000
.* 01060000
&URPRT SETB 1 . 5203 OR 1403 SUPPORTED 01070000
.* 01080000
.PREND ANOP . END SUB-OPERAND 'PR' OF 'UR' 01090000
.* 01100000
.*--------- SET FOR SUPPORT OF SHARED FILES ------------------------* 01110000
.* 01120000
AIF (&SH EQ '0').SHEND . SKIP IF *NO* FILE SHARING 01130000
.* 01140000
&SHR SETB 1 . FILE SHARING SUPPORTED 01150000
.* 01160000
.SHEND ANOP . END OPERAND 'SH' 01170000
.* 01180000
.*--------- SET FOR SUPPORT OF PROGRAM REQUEST COUNTS --------------* 01190000
.* 01200000
AIF (&PC EQ '0').PCEND . SKIP IF *NO* REQUEST COUNTING 01210000
.* 01220000
&PUCNT SETB 1 . PROGRAM REQUEST COUNTING 01230000
.* 01240000
.PCEND ANOP . END OPERAND 'PC' 01250000
.* 01260000
.*--------- SET FOR SECURITY OPTION --------------------------------* 01270000
.* 01280000
AIF (&SO EQ '00').SOEND . SKIP IF *NO* SECURITY CHECKING 01290000
.* 01300000
AIF (&SO EQ '01').USEC . SKIP IF USER SECURITY ROUTINE 01310000
.* 01320000
&SYSON SETB 1 . CCP PASSWORD 01330000
AGO .SOEND 01340000
.* 01350000
.USEC ANOP . USER SECURITY ROUTINE 01360000
&USEON SETB 1 01370000
.* 01380000
.SOEND ANOP . END OPERAND 'SO' 01390000
.* 01400000
.*--------- SET FOR SUPPORT OF 3741 U/R SUPPORT ---------------------* 01410000
.* 01420000
AIF (&FD EQ '0').FDEND . SKIP IF *NO* 3741 U/R SUPPORT 01430000
.* 01440000
&UR41 SETB 1 . 3741 U/R SUPPORT 01450000
.* 01460000
.FDEND ANOP . END OPERAND '3741' 01470000
.* 01480000
MEND 01490000