|
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: 5842 (0x16d2)
Types: s3xseg
Names: »S$E001«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E001«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E001 * 00040000
.* * 00050000
.* PROGRAM NUMBER - 5704-SC2 * 00053000
.* * 00056000
.* MODIFICATION LEVEL: VERSION 4, MODIFICATION LEVEL 0 * 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
.* * 00392000
.* . RR-0/1 * 00394000
.* * 00396000
.* 1=RESIDENT PROGRAM REQUEST SUPPORTED / 0=NOT * 00398000
.* * 00400000
.* . MVT-0/1 * 00402000
.* * 00404000
.* 1=TNT MOVE-OUT SUPPORTED / 0=NOT SUPPORTED * 00406000
.* * 00408000
.* CHANGE ACTIVITY - $E001 * 00408500
.* RELEASE 04 * 00409000
.* @01 APAR/S313503 - U- PC WITH BSCC AND NO DFF @01 00409500
.********************************************************************** 00410000
$E001 &DK-,&UR-,&PC-,&SO-,&SH-,&RR-,&MVT-,&MOV- @01 00420000
.* 00430000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00440000
.* 00450000
GBLB &SHR . UPDATE FILE SHARING: 00460000
.* . 1=SUPPORTED / 0=NOT 00470000
.* 00480000
GBLB &USEON . USER SIGN-ON ROUTINE: 00490000
.* . 1=SUPPORTED / 0=NOT 00500000
.* 00510000
GBLB &SYSON . CCP PASSWORD SECURITY: 00520000
.* . 1=SUPPORTED / 0=NOT 00530000
.* 00540000
GBLB &PUCNT . PROGRAM REQUEST COUNTS: 00550000
.* . 1=SUPPORTED / 0=NOT 00560000
.* 00570000
GBLB &URMFU . MFCU SUPPORT: 00580000
.* . 1=SUPPORTED / 0=NOT 00590000
.* 00600000
GBLB &UR142 . 1442 SUPPORT: 00610000
.* . 1=SUPPORTED / 0=NOT 00620000
.* 00630000
GBLB &URPRT . 5203/1403 SUPPORT: 00640000
.* . 1=SUPPORTED / 0=NOT 00650000
.* 00660000
GBLB &D45 . 5445 SUPPORT: 00670000
.* . 1=SUPPORTED / 0=NOT 00680000
.* 00682000
GBLB &RPR . RES PROG REQUEST SUPPORT: 00684000
.* . 1=SUPPORTED / 0=NOT 00686000
.* 00690000
GBLB &MTNT . TNT MOVEOUT SUPPORT: 00692000
.* . 1=SUPPORTED / 0=NOT 00694000
.* 00696000
GBLB &MDFF . DFF MOVEOUT SUPPORT: @01 00697000
.* . 1=SUPPORTED / 0=NOT @01 00698000
.* @01 00699000
TEXT 00700000
.* 00710000
.*--------- SET FOR SUPPORT OF 5445 DISK ---------------------------* 00720000
.* 00730000
AIF ('&DK'(3,2) EQ '00').DKEND . SKIP IF *NO* 5445 00740000
.* 00750000
&D45 SETB 1 . 5445 SUPPORTED 00760000
.* 00770000
.DKEND ANOP . END OPERAND 'DK' 00780000
.* 00790000
.*--------- SET FOR SUPPORT OF MFCU --------------------------------* 00800000
.* 00810000
AIF ('&UR'(1,1) EQ '0').MFEND . SKIP IF *NO* MFCU SUPPORT 00820000
.* 00830000
&URMFU SETB 1 . MFCU SUPPORTED 00840000
.* 00850000
.MFEND ANOP . END SUB-OPERAND 'MF' OF 'UR' 00860000
.* 00870000
.*--------- SET FOR SUPPORT OF 1442 --------------------------------* 00880000
.* 00890000
AIF ('&UR'(2,1) EQ '0').RPEND . SKIP IF *NO* 1442 SUPPORT 00900000
.* 00910000
&UR142 SETB 1 . 1442 SUPPORTED 00920000
.* 00930000
.RPEND ANOP . END SUB-OPERAND 'RP' OF 'UR' 00940000
.* 00950000
.*--------- SET FOR SUPPORT OF 2503 OR 1403 ------------------------* 00960000
.* 00970000
AIF ('&UR'(3,2) EQ '00').PREND . SKIP IF *NO* PRINTER SUPPORT 00980000
.* 00990000
&URPRT SETB 1 . 5203 OR 1403 SUPPORTED 01000000
.* 01010000
.PREND ANOP . END SUB-OPERAND 'PR' OF 'UR' 01020000
.* 01030000
.*--------- SET FOR SUPPORT OF SHARED FILES ------------------------* 01040000
.* 01050000
AIF (&SH EQ '0').SHEND . SKIP IF *NO* FILE SHARING 01060000
.* 01070000
&SHR SETB 1 . FILE SHARING SUPPORTED 01080000
.* 01090000
.SHEND ANOP . END OPERAND 'SH' 01100000
.* 01110000
.*--------- SET FOR SUPPORT OF PROGRAM REQUEST COUNTS --------------* 01120000
.* 01130000
AIF (&PC EQ '0').PCEND . SKIP IF *NO* REQUEST COUNTING 01140000
.* 01150000
&PUCNT SETB 1 . PROGRAM REQUEST COUNTING 01160000
.* 01170000
.PCEND ANOP . END OPERAND 'PC' 01180000
.* 01190000
.*--------- SET FOR SUPPORT OF RESIDENT PROGRAM REQUEST ------------* 01190500
.* 01191000
AIF (&RR EQ '0').RREND . SKIP IF *NO* RES REQUEST 01191500
.* 01192000
&RPR SETB 1 . RESIDENT PROGRAM REQUEST 01192500
.* 01193000
.RREND ANOP . END OPERAND 'RR' 01193500
.* 01194000
.*--------- SET FOR SUPPORT OF TNT MOVE-OUT ------------------------* 01194500
.* 01195000
AIF (&MVT EQ '0').MVEND . SKIP IF *NO* TNT MOVE-OUT 01195500
.* 01196000
&MTNT SETB 1 . TNT MOVE-OUT 01196500
.* 01197000
.MVEND ANOP . END OPERAND 'MVT' 01197500
.* 01198000
.*--------- SET FOR SECURITY OPTION --------------------------------* 01200000
.* 01210000
AIF (&SO EQ '00').SOEND . SKIP IF *NO* SECURITY CHECKING 01220000
.* 01230000
AIF (&SO EQ '01').USEC . SKIP IF USER SECURITY ROUTINE 01240000
.* 01250000
&SYSON SETB 1 . CCP PASSWORD 01260000
AGO .SOEND 01270000
.* 01280000
.USEC ANOP . USER SECURITY ROUTINE 01290000
&USEON SETB 1 01300000
.* 01310000
.SOEND ANOP . END OPERAND 'SO' 01320000
AIF (&MOV NE '1').NMOV . SKIP IF NO DFF MOVE-OUT 01321000
.* 01322000
&MDFF SETB 1 . DFF MOVE-OUT 01323000
.* 01324000
.NMOV ANOP . END OPERAND 'MOV' 01325000
.* 01330000
MEND 01340000