|
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: 74422 (0x122b6)
Types: s3xseg
Names: »S$EGEN«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EGEN«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EGEN SYS/3 MOD 15 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 7, MODIFICATION LEVEL 0 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION FIRST PASS MACRO-INSTRUCTION -- MAKE FINAL * 00100000
.* CHECKS AND GENERATE SECOND PASS INPUT. * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . DSUNIT-R1/F1 * 00150000
.* * 00160000
.* SPECIFIES UNIT ON WHICH RESIDE: * 00170000
.* . LIBRARY MAINTENANCE PROGRAM ($MAINT) * 00180000
.* . OVERLAY LINKAGE EDITOR ($OLINK) * 00190000
.* . RELOCATABLE MODULES OF THE COMMUNICATIONS IOCS ($$ML.., * 00200000
.* $$BS.., $$BM..) * 00210000
.* * 00220000
.* . CCUNIT-R1/F1/R2/F2 * 00230000
.* * 00240000
.* . SPECIFIES UNIT ONTO WHICH ARE TO BE GENERATED ALL CCP LOAD * 00250000
.* MODULES (THAT IS, ALL DISK OUTPUT FROM GENERATION EXCEPT * 00260000
.* $CCPFILE, LANGUAGE SUPPORT ROUTINES, AND TEMPORARILY CREATED * 00270000
.* MODULES). * 00280000
.* * 00290000
.* . WKUNIT-UNIT/'UNIT1,UNIT2,UNIT3' * 00300000
.* * 00310000
.* SPECIFIES UNIT OR UNITS ON WHICH WORK FILES ARE TO BE * 00320000
.* ALLOCATED DURING GENERATION. IF A SINGLE UNIT IS SPECIFIED, * 00330000
.* ALL WORK FILES ARE ALLOCATED ON THAT UNIT. IF THREE UNITS * 00340000
.* ARE SPECIFIED, THEY ARE USED, RESPECTIVELY, FOR $SOURCE, * 00350000
.* $WORK, AND $WORK2. * 00360000
.* * 00370000
.* . WKPACK-NAME/'NAME1,NAME2,NAME3' * 00380000
.* * 00390000
.* SPECIFIES THE PACK NAMES THAT CORRESPOND WITH THE UNIT NAMES * 00400000
.* PREVIOUSLY SPECIFIED. * 00410000
.* * 00420000
.* . DIUNIT-R1/F1/R2/F2 * 00430000
.* * 00440000
.* SPECIFIES UNIT ON WHICH IS MOUNTED THE PID DISTRIBUTION PACK. * 00450000
.* 00460000
.* . MINRES-YES/NO * 00470000
.* * 00480000
.* SPECIFIES WHETHER TO GENERATE THE NORMAL RESIDENT CODE OR TO * 00490000
.* *MINIMIZE* THE RESIDENT CODE BY REMOVING CERTAIN ITEMS AND BY * 00500000
.* MAKING SEVERAL FUNCTIONS TRANSIENT. * 00510000
.* * 00520000
.* YES INDICATES MINIMIZE RESIDENT CODE -- DEFAULT IS NO. * 00530000
.* * 00540000
.* . CARD-YES/NO * 00550000
.* * 00560000
.* SPECIFIES WHETHER TO GENERATE PASS 2 STATEMENTS AS A CARD * 00570000
.* DECK OR AS SOURCE AND PROCEDURE MEMBERS. * 00580000
.* * 00590000
.********************************************************************** 00600000
$EGEN &DSUNIT-,&CCUNIT-,&WKUNIT-,&WKPACK-,&DIUNIT-,&MINRES-NO, X00610000
&CARD-YES 00620000
.* 00630000
.*--------- COMMON GLOBAL VARIABLES --------------------------------* 00640000
.* 00650000
GBLA &SEQ . SEQUENCE CONTROL: 00660000
.* . MUST BE 7/8/9 UPON ENTRY 00670000
.* . IF 8, THEN &BSC MUST BE 0 00680000
.* . IS MADE 10 AFTER PROCESSING 00690000
.* 00700000
GBLB &TERR . TERMINATION ERROR SWITCH 00710000
.* 00720000
.*--------- GLOBAL VARIABLES FROM $EFAC ----------------------------* 00730000
.* 00740000
GBLB &FDME . BOOLEAN--FROM ESCAPE-VALUE/NO 00750000
.* . 1=STRING SPECIFIED / 0=NO 00760000
.* 00770000
GBLC &X1DME,&X2DME . CHARACTER (8+2/8+8)--ESCAPE 00780000
.* . THE DATA MODE ESCAPE STRING, 00790000
.* . AS A CHARACTER OR HEX 00800000
.* . DC OPERAND LESS FINAL QUOTE: 00810000
.* . CHAR -- CL6'CCCCCC 00820000
.* . HEX -- XL6'XXXXXXXXXXXX 00830000
.* 00840000
GBLB &FPGC . BOOLEAN--FROM PGMCNT-YES/NO 00850000
.* . 1=YES / 0=NO 00860000
.* 00870000
GBLB &FDFF . BOOLEAN--FROM FORMAT-YES/NO 00880000
.* . 1=YES / 0=NO 00890000
.* 00900000
GBLB &FRUF . BOOLEAN--FROM RUF-YES/NO 00910000
.* . 1=YES / 0=NO 00920000
GBLB &FAI . BOOLEAN--FROM ACCEPT-YES/NO 00930000
.* 1=YES / 0=NO 00940000
.* 00950000
GBLB &FPBSY . BOOLEAN--FROM BSYPRT-YES/NO 00951000
.* 1=YES / 0=NO 00952000
.* 00953000
GBLB &FCPUM . BOOLEAN--FROM CPUMSG-YES/NO 00954000
.* . 1=YES / 0=NO 00955000
.* 00956000
.*--------- GLOBAL VARIABLES FROM $EPLG ----------------------------* 00960000
.* 00970000
GBLC &PLG . CHARACTER(4)--FROM LANG-XXXXX 00980000
.* . '1' = SUPPORTED / '0' = NOT 00990000
.* . (1) COBOL (3) ASSEM 01000000
.* . (2) FORTRAN (4) RPGII 01010000
.* 01020000
GBLC &UPCBL . CHARACTER(2)--PPUNIT (COBOL) 01030000
.* 01040000
GBLC &UPFOR . CHARACTER(2)--PPUNIT (FORTRAN) 01050000
.* 01060000
GBLC &UPASM . CHARACTER(2)--PPUNIT (ASSEM) 01070000
.* 01080000
GBLC &UPRPG . CHARACTER(2)--PPUNIT (RPG) 01090000
.* 01100000
.*--------- GLOBAL VARIABLES FROM $ESEC ----------------------------* 01110000
.* 01120000
GBLB &CPW . BOOLEAN--FROM SECURE-CCP 01130000
.* . 1 IF SECURE-CCP / ELSE 0 01140000
.* 01150000
GBLB &UPW . BOOLEAN--FROM SECURE-USER 01160000
.* . 1 IF SECURE-USER / ELSE 0 01170000
.* 01180000
GBLA &LUS . ARITHMETIC--NUMBER: LUSI-# 01190000
.* 01200000
.*--------- GLOBAL VARIABLES FROM $EFIL ----------------------------* 01210000
.* 01220000
GBLA &NS . ARITHMETIC--NUMBER: SETS-# 01230000
.* 01240000
GBLA &NPM . ARITHMETIC--NUMBER: PROGS-# 01250000
.* 01260000
GBLA &NDF . ARITHMETIC--NUMBER: DFILES-# 01270000
.* 01280000
GBLA &NT . ARITHMETIC--NUMBER: TERMS-# 01290000
.* 01300000
GBLA &DMP . ARITHMETIC--NUMBER: DUMPS-# 01310000
.* 01320000
GBLA &COR . ARITHMETIC--FROM CORE-NNK 01330000
.* . 192=48K 384=96K 01340000
.* . 256=64K 512=128K 01350000
.* . 1024=256K 01360000
.* 01370000
GBLC &UFIL . CHARACTER(2)--FROM FLUNIT-XX 01380000
.* 01390000
GBLC &PFIL . CHARACTER(6)--FROM FLPACK-XXX 01400000
.* 01410000
GBLA &TFIL . ARITHMETIC--NUMBER: TRKLOC-# 01420000
.* . 0 IF NOT SPECIFIED 01430000
.* 01440000
.*--------- GLOBAL VARIABLES FROM $EMLA ----------------------------* 01450000
.* 01460000
GBLA &MLA . ARITHMETIC--NUMBER: LINES-# 01470000
.* . 0 IF STATEMENT NOT USED 01480000
.* 01490000
GBLB &MNOX . BOOLEAN--FROM XLATE-YES/NO 01500000
.* . 1=NO / 0=YES * NOTE VALUE * 01510000
.* 01520000
.*--------- GLOBAL VARIABLES FROM $EMLD ----------------------------* 01530000
.* 01540000
GBLB &MT40 . BOOLEAN--SUPPORT 2740 DEVICE 01550000
.* . 1=SUPPORTED / 0=NOT 01560000
.* 01570000
GBLB &MT41 . BOOLEAN--SUPPORT 2741 DEVICE 01580000
.* . 1=SUPPORTED / 0=NOT 01590000
.* 01600000
GBLB &MT50 . BOOLEAN--SUPPORT 1050 DEVICE 01610000
.* . 1=SUPPORTED / 0=NOT 01620000
.* 01630000
GBLB &MFSC . BOOLEAN--SUPPORT STATION CNTRL 01640000
.* . 1=SUPPORTED / 0=NOT 01650000
.* 01660000
GBLB &MFSW . BOOLEAN--SUPPORT SWITCHED LINE 01670000
.* . 1=SUPPORTED / 0=NOT 01680000
.* 01690000
GBLB &MFBR . BOOLEAN--SUPPORT BUF RCV 01700000
.* . 1=SUPPORTED / 0=NOT 01710000
.* 01720000
GBLB &MFTC . BOOLEAN--SUPPORT TRANSMIT CTL 01730000
.* . 1=SUPPORTED / 0=NOT 01740000
.* 01750000
GBLB &MFCK . BOOLEAN--SUPPORT CHECKING TERM 01760000
.* . 1=SUPPORTED / 0=NOT 01770000
.* 01780000
GBLB &MFNK . BOOLEAN--SUPPORT NON-CHK TERM 01790000
.* . 1=SUPPORTED / 0=NOT 01800000
GBLB &XM4E . BOOLEAN--SUPPORT 2740 PTTCEBCD 01810000
.* . 1=SUPPORTED / 0=NOT 01820000
.* 01830000
GBLC &MD1 . CHARACTER(8)--MLTA DEVICES 01840000
.* . '1' = SUPPORTED / '0' = NOT 01850000
.* . (1) 1050 (5) 2740C 01860000
.* . (2) 1050D (6) 2740SC 01870000
.* . (3) 2740 (7) 2740D 01880000
.* . (4) 2740S (8) 2740DT 01890000
.* 01900000
GBLC &MD2 . CHARACTER(8)--MLTA DEVICES 01910000
.* . '1' = SUPPORTED / '0' = NOT 01920000
.* . (1) 2740DC (5) 2740M2SC 01930000
.* . (2) 2740DTC (6) 2740M2SCB 01940000
.* . (3) 2740M2S (7) 2741 01950000
.* . (4) 2740M2SB (8) 2741D 01960000
.* 01970000
GBLC &MD3 . CHARACTER(4)--MLTA DEVICES 01980000
.* . '1' = SUPPORTED / '0' = NOT 01990000
.* . (1) SYS7C (3) SYS7DC 02000000
.* . (2) SYS7SC (4) CMCSTD 02010000
.* 02020000
GBLC &MXC . CHARACTER(3)--FROM XMCODE 02030000
.* . '1' = SUPPORTED / '0' = NOT 02040000
.* . (1) XMCODE-CORR 02050000
.* . (2) XMCODE-PTTCEBCD (2740/1) 02060000
.* . (3) XMCODE-PTTCBCD 02070000
.* . (4) XMCODE-PTTCEBCD (1050) 02080000
.* 02090000
.*--------- GLOBAL VARIABLES FROM $EBSC ----------------------------* 02100000
.* 02110000
GBLB &INPOL . BOOLEAN--INTERVAL POLLING 02120000
.* . 0=NOT / 1=SUPPORT 02130000
GBLA &BSC . ARITHMETIC--NUMBER: BSCA-# 02140000
.* . 0 IF STATEMENT NOT USED 02150000
.* 02160000
GBLB &BIDA . BOOLEAN--DA SUPPORT 02170000
.* . 1=SUPPORT / 0=NOT 02180000
.* 02190000
GBLC &BLT . CHARACTER(4)--BSCA LINE TYPES 02200000
.* . '1' = SUPPORTED / '0' = NOT 02210000
.* . (1) PP-YES (3) CS-YES 02220000
.* . (2) MP-YES (4) DIAL-YES 02230000
.* 02240000
GBLC &BFA . CHARACTER(8)--BSCA FEATURES 02250000
.* . '1' = SUPPORTED / '0' = NOT 02260000
.* . (1) GETMSG (5) AUTORS 02270000
.* . (2) ITB (6) EBCDIC 02280000
.* . (3) RECSEP-XX (7) ASCII 02290000
.* . (4) RESPOL (8) XPRNCY 02300000
.* 02310000
GBLC &RSB . CHARACTER(2)--REC SEP CHAR (X) 02320000
.* 02330000
.*--------- GLOBAL VARIABLES FROM $EBSD ----------------------------* 02340000
.* 02350000
GBLC &BD1 . CHARACTER(8)--BSCA DEVICES 02360000
.* . '1' = SUPPORTED / '0' = NOT 02370000
.* . (1) 3275M1 (5) 3275M2 02380000
.* . (2) 3277M1 (6) 3277M2 02390000
.* . (3) 3284M1 (7) 3284M2 02400000
.* . (4) 3286M1 (8) 3286M2 02410000
.* 02420000
GBLC &BD2 . CHARACTER(8)--BSCA DEVICES 02430000
.* . '1' = SUPPORTED / '0' = NOT 02440000
.* . (1) 3735 (2) CPU 02450000
.* . (3) 3741 (4-8) NOT USED 02460000
.* 02470000
.*--------- LOCAL VARIABLES WITHIN $EGEN ---------------------------* 02480000
.* 02490000
LCLC &C,&D . CCUNIT, DIUNIT RESPECTIVELY 02500000
LCLB &MIN . MINIMUM RESIDENT SYSTEM 02510000
LCLA &N,&N1,&N2,&N3,&N4 02520000
LCLC &C1,&C2 02530000
LCLA &LVL . CURRENT SYSTEM LEVEL 02540000
LCLC &C3 02550000
LCLC &UWSRC,&UWWRK,&UWWK2 . UNITS FOR WORK FILES 02560000
LCLC &PWSRC,&PWWRK,&PWWK2 . PACKS FOR WORK FILES 02570000
LCLA &ASIZE . SIZE OF ASSIGNMENT FILE 02580000
LCLC &# FOR SINGLE BLANK 02590000
LCLB &CL . CARD GENERATION 02600000
.* 02610000
.*--------- PARAMETER TRANSFORMATION TABLES ------------------------* 02620000
.* 02630000
TABLE &DSUNIT . DSM UNIT 02640000
F1 TABDF F1 02650000
R1 TABDF R1 02660000
'' TABDF ?? . MISSING OPERAND 02670000
TABDF ** . INVALID PARAMETER 02680000
.* 02690000
TABLE &CCUNIT . CCP PRODUCTION UNIT 02700000
R1 TABDF R1 02710000
F1 TABDF F1 02720000
R2 TABDF R2 02730000
F2 TABDF F2 02740000
'' TABDF ?? . MISSING OPERAND 02750000
TABDF ** . INVALID PARAMETER 02760000
.* 02770000
TABLE &DIUNIT . PID DISTRIBUTION UNIT 02780000
R1 TABDF R1 02790000
F1 TABDF F1 02800000
R2 TABDF R2 02810000
F2 TABDF F2 02820000
'' TABDF ?? . MISSING OPERAND 02830000
TABDF ** . INVALID PARAMETER 02840000
.* 02850000
TABLE &MINRES . MINIMUM RESIDENT FUNCTION 02860000
YES TABDF 1 02870000
Y TABDF 1 02880000
NO TABDF 0 02890000
N TABDF 0 02900000
TABDF * . INVALID PARAMETER 02910000
.* 02920000
TABLE &CARD . CARD CCP GENERATION 02930000
YES TABDF 1 02940000
Y TABDF 1 02950000
NO TABDF 0 02960000
N TABDF 0 02970000
TABDF * . INVALID PARAMETER 02980000
TEXT 02990000
.* 03000000
.*--------- SET CURRENT SYSTEM LEVEL -------------------------------* 03010000
.* 03020000
&LVL SETA 3 . SET LEVEL OF CURRENT RELEASE 03030000
.* 03040000
.*--------- CHECK STATEMENT SEQUENCE -------------------------------* 03050000
.* 03060000
AIF (&SEQ LE '9').SEQ1 . SKIP UNLESS DUPLICATE 03070000
.* 03080000
*!605E DUPLICATE $EGEN STATEMENT -- CONTENTS IGNORED 03090000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03100000
*? *** THIS RECORD INDICATES TO $CC1PP THAT $EGEN WAS PROCESSED *** 03110000
MEXIT 03120000
.* 03130000
.SEQ1 ANOP 03140000
AIF (&SEQ LT '7').SEQER . SKIP IF MISSING PREV STMTS 03150000
AIF (&SEQ EQ '7').SEQOK . SKIP IF $EMLD LAST 03160000
AIF (&SEQ EQ '9').SEQOK . SKIP IF $EBSD LAST 03170000
AIF (&BSC EQ '0').SEQOK . SKIP IF NULL $EBSC LAST 03180000
.* 03190000
.SEQER ANOP 03200000
*!600E $EGEN STATEMENT OUT OF SEQUENCE -- OR PRECEDING STATEMENT ERROR 03210000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03220000
*? *** THIS RECORD INDICATES TO $CC1PP THAT $EGEN WAS PROCESSED *** 03230000
.* 03240000
.SEQOK ANOP . VALID SEQUENCE 03250000
.* 03260000
.*--------- DSUNIT-R1/F1 -------------------------------------------* 03270000
.* 03280000
AIF (&DSUNIT NE '??').DSYES . SKIP IF DSUNIT SPECIFIED 03290000
.* 03300000
*!610E MISSING 'DSUNIT' OPERAND -- MUST BE SPECIFIED 03310000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03320000
AGO .DSEND 03330000
.* 03340000
.DSYES ANOP . DSUNIT SPECIFIED 03350000
AIF (&DSUNIT NE '**').DSEND . SKIP IF VALID PARAMETER 03360000
.* 03370000
*!615E INVALID 'DSUNIT' PARAMETER -- MUST BE R1/F1 03380000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03390000
.* 03400000
.DSEND ANOP . END OPERAND 'DSUNIT' 03410000
.* 03420000
.*--------- CCUNIT-R1/F1/R2/F2 -------------------------------------* 03430000
.* 03440000
AIF (&CCUNIT NE '??').CCYES . SKIP IF CCUNIT SPECIFIED 03450000
.* 03460000
*!620E MISSING 'CCUNIT' OPERAND -- MUST BE SPECIFIED 03470000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03480000
AGO .CCEND 03490000
.* 03500000
.CCYES ANOP . CCUNIT SPECIFIED 03510000
AIF (&CCUNIT NE '**').CCOK . SKIP IF VALID PARAMETER 03520000
.* 03530000
*!625E INVALID 'CCUNIT' PARAMETER -- MUST BE R1/F1/R2/F2 03540000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03550000
AGO .CCEND 03560000
.* 03570000
.CCOK ANOP . VALID PARAMETER 03580000
&C SETC '&CCUNIT' 03590000
.* 03600000
.CCEND ANOP . END OPERAND 'CCUNIT' 03610000
.* 03620000
.*--------- WKUNIT-UNIT/'UNIT1,UNIT2,UNIT3' ------------------------* 03630000
.* 03640000
AIF (T'&WKUNIT NE 'O').WUYES . SKIP IF WKUNIT SPECIFIED 03650000
.* 03660000
*!630E MISSING 'WKUNIT' OPERAND -- MUST BE SPECIFIED 03670000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03680000
AGO .WUEND 03690000
.* 03700000
.WUYES ANOP . WKUNIT SPECIFIED 03710000
&N SETA K'&WKUNIT . LENGTH OF PARAMETER 03720000
AIF (&N NE '2').WU3 . SKIP IF MULTIPLE UNITS 03730000
.* 03740000
&UWSRC SETC '&WKUNIT' 03750000
&UWWRK SETC '&WKUNIT' 03760000
&UWWK2 SETC '&WKUNIT' 03770000
AGO .WUCHK 03780000
.* 03790000
.WU3 ANOP . WKUNIT SERIES 03800000
AIF (&N NE '8').WUERR . SKIP IF NOT 8 CHARS 03810000
&UWSRC SETC '&WKUNIT'(1,2) 03820000
&UWWRK SETC '&WKUNIT'(4,2) 03830000
&UWWK2 SETC '&WKUNIT'(7,2) 03840000
AIF ('&WKUNIT'(3,1) NE ',').WUERR . SKIP IF NOT COMMA 03850000
AIF ('&WKUNIT'(6,1) NE ',').WUERR . SKIP IF NOT COMMA 03860000
.* 03870000
.WUCHK ANOP . CHECK THAT EACH UNIT IS VALID 03880000
AIF (&UWSRC EQ 'R1').WUCK2 03890000
AIF (&UWSRC EQ 'F1').WUCK2 03900000
AIF (&UWSRC EQ 'R2').WUCK2 03910000
AIF (&UWSRC EQ 'F2').WUCK2 03920000
AIF (&UWSRC EQ 'D1').WUCK2 03930000
AIF (&UWSRC EQ 'D2').WUCK2 03940000
AIF (&UWSRC EQ 'D3').WUCK2 03950000
AIF (&UWSRC EQ 'D4').WUCK2 03960000
AGO .WUERR . SKIP IF ERROR 03970000
.* 03980000
.WUCK2 ANOP 03990000
AIF (&UWWRK EQ 'R1').WUCK3 04000000
AIF (&UWWRK EQ 'F1').WUCK3 04010000
AIF (&UWWRK EQ 'R2').WUCK3 04020000
AIF (&UWWRK EQ 'F2').WUCK3 04030000
AIF (&UWWRK EQ 'D1').WUCK3 04040000
AIF (&UWWRK EQ 'D2').WUCK3 04050000
AIF (&UWWRK EQ 'D3').WUCK3 04060000
AIF (&UWWRK EQ 'D4').WUCK3 04070000
AGO .WUERR . SKIP IF ERROR 04080000
.* 04090000
.WUCK3 ANOP 04100000
AIF (&UWWK2 EQ 'R1').WUEND 04110000
AIF (&UWWK2 EQ 'F1').WUEND 04120000
AIF (&UWWK2 EQ 'R2').WUEND 04130000
AIF (&UWWK2 EQ 'F2').WUEND 04140000
AIF (&UWWK2 EQ 'D1').WUEND 04150000
AIF (&UWWK2 EQ 'D2').WUEND 04160000
AIF (&UWWK2 EQ 'D3').WUEND 04170000
AIF (&UWWK2 EQ 'D4').WUEND 04180000
.* 04190000
.WUERR ANOP 04200000
*!635E INVALID 'WKUNIT' PARAMETER -- MUST BE R1/F1/R2/F2/D1/D2/D3/D4 04210000
*!635E -- OR SERIES OF 3. 04220000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04230000
.* 04240000
.WUEND ANOP . END OPERAND 'WKUNIT' 04250000
.* 04260000
.*--------- WKPACK-NAME/'NAME1,NAME2,NAME3' ------------------------* 04270000
.* 04280000
AIF (T'&WKPACK NE 'O').WPYES . SKIP IF WKPACK SPECIFIED 04290000
.* 04300000
*!640E MISSING 'WKPACK' OPERAND -- MUST BE SPECIFIED 04310000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04320000
AGO .WPEND 04330000
.* 04340000
.WPYES ANOP . WKPACK SPECIFIED 04350000
&N SETA K'&WKPACK . LENGTH OF PARAMETER 04360000
AIF (&N GT '20').WPERR . ERROR IF GT 20 CHARACTERS 04370000
.* 04380000
&N1 SETA 1 . INITIALIZE BASE POINTER 04390000
&N2 SETA &N1 . SET RUNNING POINTER 04400000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . ERR IF 1ST CHAR COMMA 04410000
.* 04420000
&N2 SETA &N2+1 . ADVANCE POINTER 04430000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04440000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 2ND CHAR 04450000
&N2 SETA &N2+1 . ADVANCE POINTER 04460000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04470000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 3RD CHAR 04480000
&N2 SETA &N2+1 . ADVANCE POINTER 04490000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04500000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 4TH CHAR 04510000
&N2 SETA &N2+1 . ADVANCE POINTER 04520000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04530000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 5TH CHAR 04540000
&N2 SETA &N2+1 . ADVANCE POINTER 04550000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04560000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 6TH CHAR 04570000
&N2 SETA &N2+1 . ADVANCE POINTER 04580000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04590000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 7TH CHAR 04600000
AIF (&N GE &N2).WPERR . ERROR IF 1 NAME GT 6 CHARS 04610000
.* 04620000
.WP11 ANOP . ONLY ONE NAME GIVEN. 04630000
&PWSRC SETC '&WKPACK' . ONE NAME FOR $SOURCE 04640000
&PWWRK SETC '&WKPACK' . SAME NAME FOR $WORK 04650000
&PWWK2 SETC '&WKPACK' . SAME NAME FOR $WORK2 04660000
AGO .WPEND . FINISHED THE OPERAND 04670000
.* 04680000
.WP1 ANOP . END OF SUBPARAMETER #1 04690000
&N3 SETA &N2-&N1 . LENGTH OF SUBPARAMETER 04700000
&PWSRC SETC '&WKPACK'(&N1,&N3) . SET SUBPARAMETER #1 04710000
.* 04720000
AIF (&N EQ &N2).WPERR . ERROR IF COMMA LAST 04730000
&N1 SETA &N2+1 . RESET BASE POINTER 04740000
&N2 SETA &N1 . RESET RUNNING POINTER 04750000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . ERR IF 1ST CHAR COMMA 04760000
.* 04770000
&N2 SETA &N2+1 . ADVANCE POINTER 04780000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 2ND CHAR 04790000
&N2 SETA &N2+1 . ADVANCE POINTER 04800000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 3RD CHAR 04810000
&N2 SETA &N2+1 . ADVANCE POINTER 04820000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 4TH CHAR 04830000
&N2 SETA &N2+1 . ADVANCE POINTER 04840000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 5TH CHAR 04850000
&N2 SETA &N2+1 . ADVANCE POINTER 04860000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 6TH CHAR 04870000
&N2 SETA &N2+1 . ADVANCE POINTER 04880000
AIF ('&WKPACK'(&N2,1) NE ',').WPERR . ERR IF NAME GT 6 CHARS 04890000
.* 04900000
.WP2 ANOP . END OF SUBPARAMETER #2 04910000
&N3 SETA &N2-&N1 . LENGTH OF SUBPARAMETER 04920000
&PWWRK SETC '&WKPACK'(&N1,&N3) . SET SUBPARAMETER #2 04930000
.* 04940000
AIF (&N EQ &N2).WPERR . ERROR IF COMMA LAST 04950000
&N1 SETA &N2+1 . RESET BASE POINTER 04960000
&N2 SETA &N1 . RESET RUNNING POINTER 04970000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . ERR IF 1ST CHAR COMMA 04980000
.* 04990000
&N2 SETA &N2+1 . ADVANCE POINTER 05000000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05010000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 2ND CHAR--ERR IF COMMA 05020000
&N2 SETA &N2+1 . ADVANCE POINTER 05030000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05040000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 3RD CHAR--ERR IF COMMA 05050000
&N2 SETA &N2+1 . ADVANCE POINTER 05060000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05070000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 4TH CHAR--ERR IF COMMA 05080000
&N2 SETA &N2+1 . ADVANCE POINTER 05090000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05100000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 5TH CHAR--ERR IF COMMA 05110000
&N2 SETA &N2+1 . ADVANCE POINTER 05120000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05130000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 6TH CHAR--ERR IF COMMA 05140000
&N2 SETA &N2+1 . ADVANCE POINTER 05150000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05160000
AGO .WPERR . ERR IF NAME GT 6 CHARS 05170000
.* 05180000
.WP3 ANOP . END OF SUBPARAMETER #3 05190000
&N3 SETA &N2-&N1 . LENGTH OF SUBPARAMETER #3 05200000
&PWWK2 SETC '&WKPACK'(&N1,&N3) . SET SUBPARAMETER #3 05210000
AGO .WPEND 05220000
.* 05230000
.WPERR ANOP . ERR IN WKPACK PARAMETER 05240000
*!645E INVALID 'WKPACK' PARAMETER--MUST BE 1-6 CHAR NAME OR SERIES OF 3 05250000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05260000
.* 05270000
.WPEND ANOP . END OPERAND 'WKPACK' 05280000
.* 05290000
.*--------- DETERMINE NO MISMATCH OF WKUNIT/WKPACK -----------------* 05300000
.* 05310000
.WK1 ANOP . CHECK $SOURCE/$WORK 05320000
AIF (&UWSRC EQ '').WKEND . SKIP IF NOT VALIDLY SPECIFIED 05330000
AIF (&PWWK2 EQ '').WKEND . SKIP IF NOT VALIDLY SPECIFIED 05340000
.* 05350000
&C1 SETC '&UWSRC' 05360000
AIF (&UWSRC NE &UWWRK).WK2 05370000
AIF (&PWSRC EQ &PWWRK).WK2 05380000
.* 05390000
*!637E WKUNIT/WKPACK ERROR -- PACKS &PWSRC AND &PWWRK BOTH ON UNIT &C1 05400000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05410000
AGO .WKEND 05420000
.* 05430000
.WK2 ANOP . CHECK $SOURCE/$WORK2 05440000
AIF (&UWSRC NE &UWWK2).WK3 05450000
AIF (&PWSRC EQ &PWWK2).WK3 05460000
.* 05470000
*!637E WKUNIT/WKPACK ERROR -- PACKS &PWSRC AND &PWWK2 BOTH ON UNIT &C1 05480000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05490000
AGO .WKEND 05500000
.* 05510000
.WK3 ANOP . CHECK $WORK/$WORK2 05520000
&C1 SETC '&UWWRK' 05530000
.* 05540000
AIF (&UWWRK NE &UWWK2).WKEND 05550000
AIF (&PWWRK EQ &PWWK2).WKEND 05560000
.* 05570000
*!637E WKUNIT/WKPACK ERROR -- PACKS &PWWRK AND &PWWK2 BOTH ON UNIT &C1 05580000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05590000
.* 05600000
.WKEND ANOP . END OPERAND 'WKPACK' 05610000
.* 05620000
.*--------- DIUNIT-R1/F1/R2/F2 -------------------------------------* 05630000
.* 05640000
AIF (&DIUNIT NE '??').DIYES . SKIP IF DIUNIT SPECIFIED 05650000
.* 05660000
*!650E MISSING 'DIUNIT' OPERAND -- MUST BE SPECIFIED 05670000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05680000
AGO .DIEND 05690000
.* 05700000
.DIYES ANOP . DIUNIT SPECIFIED 05710000
AIF (&DIUNIT NE '**').DIOK . SKIP IF VALID PARAMETER 05720000
.* 05730000
*!655E INVALID 'DIUNIT' PARAMETER -- MUST BE R1/F1/R2/F2 05740000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05750000
AGO .DIEND 05760000
.* 05770000
.DIOK ANOP . VALID PARAMETER 05780000
&D SETC '&DIUNIT' 05790000
.* 05800000
.*--------- CHECK CONFLICTS OF DIUNIT WITH CCUNIT AND PPUNITS ------* 05810000
.* 05820000
AIF (&CCUNIT NE &DIUNIT).DI2 . SKIP IF NO CCUNIT CONFLICT 05830000
.* 05840000
*!660E 'CCUNIT' SAME AS 'DIUNIT' -- NOT PERMITTED 05850000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05860000
.* 05870000
.DI2 ANOP 05880000
AIF (&DIUNIT EQ &UPCBL).DIUPX . IF MISMATCH WITH COBOL UNIT 05890000
AIF (&DIUNIT EQ &UPRPG).DIUPX . IF MISMATCH WITH RPG UNIT 05900000
AIF (&DIUNIT EQ &UPFOR).DIUPX . IF MISMATCH WITH FORTRAN UNIT 05910000
AIF (&DIUNIT NE &UPASM).DIEND . UNLESS MISMATCH WITH ASSEM 05920000
.* 05930000
.DIUPX ANOP 05940000
*!665E 'PPUNIT' FROM $EPLG STATEMENT SAME AS 'DIUNIT' -- NOT PERMITTED 05950000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05960000
.* 05970000
.DIEND ANOP . END OPERAND 'DIUNIT' 05980000
.* 05990000
.*--------- MINRES-YES/Y/NO/N (YES=1, NO=0) ------------------------* 06000000
.* 06010000
AIF (&MINRES NE '*').MROK . SKIP IF VALID PARAMETER 06020000
.* 06030000
*!670E INVALID 'MINRES' PARAMETER -- MUST BE YES/Y/NO/N 06040000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06050000
AGO .MREND 06060000
.* 06070000
.MROK ANOP . VALID PARAMETER 06080000
AIF (&MINRES NE '1').MREND . SKIP IF MINRES-NO 06090000
.* 06100000
&MIN SETB 1 . MINRES-YES 06110000
.MREND ANOP . END MINRES 06120000
.* 06130000
.*--------- CARD-YES/Y/NO/N (YES=1, NO=0) ------------------------* 06140000
.* 06150000
AIF (&CARD NE '*').CLOK . SKIP IF VALID PARAMETER 06160000
.* 06170000
*!680E INVALID 'CARD' PARAMETER -- MUST BE YES/Y/NO/N 06180000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06190000
AGO .CLEND 06200000
.* 06210000
.CLOK ANOP . VALID PARAMETER 06220000
AIF (&CARD EQ '0').CLEND . SKIP IF CARD-NO 06230000
.* 06240000
&CL SETB 1 . CARD-YES 06250000
.CLEND ANOP . END 'CARD' 06260000
.* 06270000
.*--------- CHECK CONFLICTS IN SUPPORT REQUESTED -------------------* 06280000
.* 06290000
AIF (&MLA NE '0').XX1 . SKIP IF MLTA SPECIFIED 06300000
AIF (&BSC NE '0').XX1 . SKIP IF BSCA SPECIFIED 06310000
.* 06320000
*!700E NO MLTA OR BSCA SUPPORT SPECIFIED -- AT LEAST ONE REQUIRED 06330000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06340000
.* 06350000
.XX1 ANOP . CHECK FOR DFF W/O GETMSG 06360000
AIF (&FDFF NE '1').XX3 . SKIP IF NO DFF REQUESTED 06370000
AIF ('&BFA'(1,1) EQ '1').XX2 . SKIP IF FORMAT *AND* GETMSG 06380000
.* 06390000
*!705E FORMAT-YES SPECIFIED IN $EFAC REQUIRES GETMSG-YES IN $EBSC 06400000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06410000
.* 06420000
.XX2 ANOP . CHECK DFF AGAINST 3270 DEVICE 06430000
AIF (&BD1 GT '00000000').XX3 . SKIP UNLESS DFF, NO 3270 06440000
.* 06450000
*!715E FORMAT-YES IN $EFAC REQUIRES 3270 DISPLAY DEVICE IN $EBSD 06460000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06470000
.* 06480000
.XX3 ANOP . CHECK 'PRUF' SUPPORT. 06490000
AIF (&FRUF NE '1').XX33 . SKIP IF NO PRUF REQUESTED 06500000
AIF ('&BFA'(1,1) EQ '1').XX22 . SKIP IF PRUF *AND* GETMSG 06510000
.* 06520000
*!706E PRUF-YES SPECIFIED IN $EFAC REQUIRES GETMSG-YES IN $EBSC 06530000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06540000
.* 06550000
.XX22 ANOP . CHECK PRUF AGAINST 3270 DEVICE 06560000
AIF (&BD1 GT '00000000').XX33 . SKIP UNLESS DFF, NO 3270 06570000
.* 06580000
*!716E PRUF-YES IN $EFAC REQUIRES 3270 DISPLAY DEVICE IN $EBSD 06590000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06600000
.* 06610000
.XX33 ANOP . CHECK AT LEAST ONE PGM LANG 06620000
AIF (&PLG NE '0000').XX4 . SKIP IF AT LEAST 1 06630000
.* 06640000
*!710E NO PROGRAMMING LANGUAGE SUPPORTED -- AT LEAST ONE REQUIRED 06650000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06660000
.XX4 ANOP 06670000
.* 06680000
.*--------- SET STATEMENT SEQUENCE AND EXIT IF ERRORS --------------* 06690000
.* 06700000
&SEQ SETA 10 . INDICATE $EGEN PROCESSED 06710000
AIF (&TERR NE '1').NOERR . SKIP IF *NO* ERRORS 06720000
.* 06730000
*? *** THIS RECORD INDICATES TO $CC1PP THAT $EGEN WAS PROCESSED *** 06740000
MEXIT . EXIT NOW IF *ERRORS* 06750000
.* 06760000
.NOERR ANOP . NO ERRORS -- PROCEED 06770000
.* 06780000
.*--------- HOUSEKEEP FOR UNSPECIFIED INFORMATION ------------------* 06790000
.* 06800000
&# SETC ' ' . SINGLE BLANK 06810000
AIF (&BD1 NE '').HK010 . SKIP IF $EBSD SPECIFIED 06820000
.* 06830000
&BD1 SETC '00000000' . SET BSCA DEVICES BYTE 1 06840000
&BD2 SETC '00000000' . SET BSCA DEVICES BYTE 2 06850000
&BFA SETC '00000000' . SET BSCA FACILITIES 06860000
&BLT SETC '0000' . SET BSCA LINE TYPES 06870000
&INPOL SETB 0 . SET NO INTERVAL POLLING 06880000
.* 06890000
.HK010 ANOP 06900000
AIF (&RSB NE '').HK015 . SKIP IF RECSEP BYTE KNOWN 06910000
.* 06920000
&RSB SETC '1E' . SET DEFAULT RECSEP BYTE 06930000
.* 06940000
.HK015 ANOP 06950000
AIF (&MD1 NE '').HK020 . SKIP IF $EMLD SPECIFIED 06960000
.* 06970000
&MD1 SETC '00000000' . SET MLTA DEVICES BYTE 1 06980000
&MD2 SETC '00000000' . SET MLTA DEVICES BYTE 2 06990000
&MD3 SETC '0000' . SET MLTA DEVICES BYTE 3 07000000
&MXC SETC '0000' . SET MLTA TRANSMISSION CODES 07010000
.* 07020000
.HK020 ANOP . END HOUSEKEEPING 07030000
.* 07040000
.*--------- DETERMINE THE SIZE REQUIRED FOR $CCPFILE ---------------* 07050000
.* 07060000
&ASIZE SETA 1 . SECTORS OF 1 SIT 07070000
&ASIZE SETA &ASIZE+(5*&NT+255)/256 . ADD SECTORS OF 1 TAT 07080000
&ASIZE SETA &ASIZE+(40*(&MLA+&BSC)+255)/256 . ADD SECTORS OF 1 LCT 07090000
&ASIZE SETA &ASIZE+(18*&NT+255)/256 . ADD SECTORS OF 1 TUT 07100000
&ASIZE SETA &ASIZE+(22+11*&NT+255)/256 . ADD SECTORS OF 1 TNT 07110000
.* 07120000
AIF (&MFSW).AZSTT . SKIP IF SWITCHED LINES 07130000
AIF ('&BLT'(4,1) NE '1').AZNSW . SKIP IF *NO* SWITCHED LINES 07140000
.AZSTT ANOP . PERFORM IF SWITCHED LINES 07150000
&ASIZE SETA &ASIZE+(25*&NT+255)/256 . ADD SECTORS OF 1 STT 07160000
.* 07170000
.AZNSW ANOP . CONTINUE HERE 07180000
&ASIZE SETA &ASIZE+(20*&NDF+255)/256 . ADD SECTORS OF 1 FCT 07190000
&ASIZE SETA &ASIZE+(&NPM+4)/5 . ADD SECTORS OF 1 PCT 07200000
&ASIZE SETA (2+&NS*&ASIZE+23)/24 . HEADER+ASSIGNMENT **TRACKS** 07210000
&ASIZE SETA &ASIZE+(&DMP*&COR)/24 ADD TRACKS OF DUMP SPACE. 07220000
.* 07230000
.AZCOM ANOP . CONTINUE HERE 07240000
.AZEND ANOP . END DETERMINATION OF $CCPFILE 07250000
.* 07260000
.*--------- ASSURE THAT $CCPFILE WILL FIT IF TRKLOC SPECIFIED ------* 07270000
.* 07280000
&N SETA &TFIL+&ASIZE-1 . HIGHEST TRACK USED 07290000
AIF (&N LE '405').TRKOK . SKIP IF NOT BEYOND END 07300000
.* 07310000
&TFIL SETA 406-&ASIZE . SET NEW TRACK 07320000
*!720W TRACK LOCATION OF $CCPFILE CHANGED TO &TFIL BECAUSE OF FILE SIZE 07330000
.* 07340000
.TRKOK ANOP . END CHECK OF $CCPFILE TRKLOC 07350000
.* 07360000
.*--------- OUTPUT THE $CCPFILE ESTABLISHMENT GROUP ----------------* 07370000
.* 07380000
AIF (&CL EQ '1').CL10 . SKIP IF CARD GENERATION. 07390000
*¢// COPY NAME-$CC1FC,LIBRARY-P 07400000
.CL10 ANOP . CONTINUE HERE. 07410000
.* 07420000
* --- PREPARE THE INITIAL CONTENTS OF $CCPFILE --- 07430000
* 07440000
*** FIRST, USE THE SCP GENERATOR TO CONVERT THE CONTENTS OF THE 07450000
*** CCP CONFIGURATION RECORD AND THE ASSIGNMENT DIRECTORY TO ENCODED 07460000
*** FORM -- SAVE THIS ENCODED INFORMATION AS A RELOCATABLE MODULE 07470000
*** NAMED $CC1FC -- THE INFORMATION WILL LATER BE WRITTEN TO THE 07480000
*** FIRST TWO SECTORS OF $CCPFILE AS THE CCP CONFIGURATION RECORD 07490000
*** AND THE ASSIGNMENT SET DIRECTORY 07500000
* 07510000
*¢// NOHALT 07520000
*¢// LOAD $CGDRV,&DIUNIT 07530000
*¢// SWITCH 0XXXXXXX 07540000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S 07550000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-5,RETAIN-S 07560000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-5,RETAIN-S 07570000
.* 07580000
AIF (&CL EQ '1').CL20 . SKIP IF CARD GENERATION. 07590000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1FC 07600000
*¢// RUN 07610000
*¢// CEND 07620000
*¢// COPY NAME-$CC1FC,LIBRARY-S 07630000
AGO .CL30 07640000
.CL20 ANOP . CONTINUE HERE. 07650000
*¢// RUN 07660000
.CL30 ANOP . CONTINUE HERE. 07670000
.* 07680000
$CC1FC TITLE 'CCP&#.CONFIGURATION&#.RECORD&#.AND&#.DIRECTORY' 07690000
$CC1FC START 0 MODULE NAME 07700000
EXTRN $CC1BF REFERENCE TO MODULE WHICH INITS 07710000
EJECT 07720000
*********************************************************************** 07730000
* C C P C O N F I G U R A T I O N R E C O R D * 07740000
*********************************************************************** 07750000
SPACE 2 07760000
* THIS SET OF 256 BYTES -- A SECTOR ON DISK -- INDICATES TO CCP THOSE 07770000
* DEVICES AND SYSTEM FACILITIES YOU SPECIFIED DURING CCP GENERATION 07780000
SPACE 1 07790000
CFGVRF DC XL2'EBD7' TWO BYTES *ALWAYS* HEX 'EBD7' 07800000
SPACE 1 07810000
CFGRV1 DC 6XL1'00' *RESERVED* 07820000
SPACE 1 07830000
CFGFA2 DC BL1'0&FPGC.0&CPW&UPW&FDME&FDFF&FRUF' FACILITIES--BYTE 2 07840000
CFGRV2 DC 2XL1'00' *RESERVED* 07850000
CFGPLG DC BL1'&PLG.0000' PROGRAMMING LANGUAGES SUPPORTED 07860000
SPACE 1 07870000
CFGCBO DC XL2'00C7' CONSOLE INTERRUPT BRANCH OFFSET 07880000
AIF (&FDME).CFDME . SKIP IF DME 07890000
CFGESC DC CL6'&#' *NO* DATA MODE ESCAPE STRING 07900000
AGO .CFCM1 . SKIP TO COMMON CODE 07910000
.CFDME ANOP . IF DME 07920000
CFGESC DC &X1DME&X2DME' . DATA MODE ESCAPE CHAR STRING 07930000
.CFCM1 ANOP 07940000
CFGLUS DC IL2'&LUS' LENGTH OF USER SECURITY DATA 07950000
CFGRV3 DC 4XL1'00' *RESERVED* 07960000
SPACE 1 07970000
CFGNS DC IL1'&NS' MAX NUMBER SETS 07980000
CFGNPM DC IL1'&NPM' MAX NUMBER PROGRAMS 07990000
CFGNDF DC IL1'&NDF' MAX NUMBER DISK FILES 08000000
CFGNT DC IL1'&NT' MAX NUMBER TERMINALS 08010000
CFGDMP DC IL1'&DMP' MAX NUMBER CORE DUMPS 08020000
CFGSC DC IL2'&COR' MEMORY # SECTORS (192-512) 08030000
CFGRV4 DC 3XL1'00' *RESERVED* 08040000
SPACE 1 08050000
CFGTP DC AL1(16*&MLA+&BSC) NUMBER COMMUNICATIONS LINES 08060000
SPACE 1 08070000
CFGMD1 DC BL1'&MD1' MLTA DEVICES--BYTE 1 08080000
CFGMD2 DC BL1'&MD2' MLTA DEVICES--BYTE 2 08090000
CFGMD3 DC BL1'&MD3.0000' MLTA DEVICES--BYTE 3 08100000
CFGRV5 DC 2XL1'00' *RESERVED* 08110000
CFGMXC DC BL1'&MXC.000&MNOX' MLTA TRANSMISSION CODES 08120000
CFGRV6 DC 2XL1'00' *RESERVED* 08130000
SPACE 1 08140000
CFGBLT DC BL1'&BLT.0000' BSC LINE TYPES SUPPORTED 08150000
CFGBFA DC BL1'&BFA' BSC FACILITIES 08160000
CFGBF1 DC BL1'&INPOL.0000000' BSC FACILITIES CONTINUED 08170000
CFGRV7 DC 1XL1'00' *RESERVED* 08180000
CFGRSB DC XL1'&RSB' RECORD SEPARATOR BYTE 08190000
CFGBD1 DC BL1'&BD1' BSCA DEVICES--BYTE 1 08200000
CFGBD2 DC BL1'&BD2' BSCA DEVICES--BYTE 2 08210000
SPACE 1 08220000
DC 204XL1'FF' FILLED WITH HEX 'FF' 08230000
EJECT 08240000
*********************************************************************** 08250000
* $ C C P F I L E D I R E C T O R Y * 08260000
*********************************************************************** 08270000
SPACE 2 08280000
* THIS SET OF 256 BYTES -- A SECOND SECTOR ON DISK -- SERVES AS A 08290000
* DIRECTORY TO THE CONTENTS OF THIS FILE FOR THE CCP ASSIGNMENT AND 08300000
* STARTUP PROGRAMS -- EACH FIELD IS INITIALLY ZERO 08310000
SPACE 1 08320000
DIRNSA DC IL1'0' CURRENT NUMBER ASSIGNMENT SETS 08330000
DIRRS1 DC IL2'0' * RESERVED * 08340000
DIRDAT DC XL3'000000' DATE LAST MODIFIED 08350000
DIRDID DC XL1'00' EXECUTION DEFAULT SET 08360000
DIRNFX DC XL1'00' *** UNUSED *** 08370000
DIRRS2 DC IL2'0' * RESERVED * 08380000
DIRRS3 DC IL1'0' * RESERVED * 08390000
DIRBD@ DC XL2'0000' LOCATION BEGIN DUMP AREA 08400000
DIRED@ DC XL2'0000' LOCATION END DUMP AREA 08410000
DIRRS5 DC XL2'0000' * RESERVED * 08420000
SPACE 1 08430000
* ASSIGNMENT SET DIRECTORY ENTRIES START HERE 08440000
SPACE 1 08450000
DC 239XL1'FF' INITIALLY UNUSED PORTION 08460000
SPACE 5 08470000
END $CC1FC 08480000
.* 08490000
AIF (&CL EQ '1').CL40 . SKIP IF CARD GENERATION. 08500000
*¢// CEND 08510000
*¢// COPY NAME-$CC1LC,LIBRARY-P 08520000
AGO .CL50 08530000
.CL40 ANOP . CONTINUE HERE. 08540000
*¢/* 08550000
.CL50 ANOP . CONTINUE HERE. 08560000
.* 08570000
*** USE THE OVERLAY LINKAGE EDITOR TO JOIN THE ABOVE MODULE WITH 08580000
*** ANOTHER MODULE CAPABLE OF WRITING THE INFORMATION TO $CCPFILE -- 08590000
*** SAVE THE RESULTING LOAD MODULE $CC1BF ON THE DISTRIBUTION PACK 08600000
*** FOR LATER INITIALIZATION OF $CCPFILE 08610000
* 08620000
*¢// LOAD $OLINK,&DIUNIT 08630000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S 08640000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-10,RETAIN-S 08650000
*¢// RUN 08660000
*¢// PHASE NAME-$CC1BF,UNIT-&DIUNIT,RETAIN-R,LINKADD-X'4000' 08670000
*¢// OPTIONS ENTRY-EXECBF,LEVEL-&LVL 08680000
*¢// INCLUDE NAME-'$CC1FC,$CC1BF',UNIT-&DIUNIT 08690000
*¢// END 08700000
.* 08710000
AIF (&CL EQ '1').CL70 . SKIP IF CARD GENERATION. 08720000
*¢// CEND 08730000
*¢// COPY NAME-$CC1#1,LIBRARY-P 08740000
.CL70 ANOP . CONTINUE HERE. 08750000
.* 08760000
.*--------- BUILD THE STRING THAT DETERMINES TRANSLATE SUPPORT -----* 08770000
.* 08780000
&C1 SETC '' . MAKE INITIALLY NULL 08790000
&C2 SETC '' . MAKE INITIALLY NULL 08800000
.* 08810000
.* CREATE THE FIRST MXL STRING 08820000
.* 08830000
&C3 SETC '&MXC'(3,1) . '1'=2740/1 PTTCBCD / '0'=NO 08840000
&C1 SETC '&C1&C3' 08850000
&C1 SETC '&C1&XM4E' 08860000
&C3 SETC '&MXC'(1,1) . '1'=CORR / '0'=NO 08870000
&C1 SETC '&C1&C3' 08880000
&C1 SETC '&C1&MT50' 08890000
&C1 SETC '&C1&XM4E' 08900000
&C3 SETC '&MXC'(1,1) . '1'=CORR / '0'=NO 08910000
&C1 SETC '&C1&C3' 08920000
&C3 SETC '&MXC'(3,1) . '1'=2740/1 PTTCBCD / '0'=NO 08930000
&C1 SETC '&C1&C3' 08940000
&C1 SETC '&C1&MT50' 08950000
.* 08960000
.* CREATE THE SECOND MXL STRING 08970000
.* 08980000
&C3 SETC '&MXC'(3,1) . '1'=2740/1 PTTCBCD / '0'=NO 08990000
&C2 SETC '&C2&C3' 09000000
&C2 SETC '&C2&XM4E' 09010000
&C3 SETC '&MXC'(1,1) . '1'=CORR / '0'=NO 09020000
&C2 SETC '&C2&C3' 09030000
&C2 SETC '&C2&MT50' 09040000
AIF ('&BFA'(8,1) NE '1').MXL00 . SKIP IF *NO* BSCA ASCII 09050000
.* 09060000
&C2 SETC '&C2.11' . INCLUDE ASCII SUPPORT 09070000
AGO .MXL99 09080000
.* 09090000
.MXL00 ANOP . *NO* ASCII SUPPORT 09100000
&C2 SETC '&C2.00' . EXCLUDE ASCII SUPPORT 09110000
.* 09120000
.MXL99 ANOP . END BUILD TRANSLATE LIST 09130000
.* 09140000
.*--------- OUTPUT THE RESIDENT MODULE CREATION GROUP --------------* 09150000
.* 09160000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 09170000
* --- CREATE THE EXECUTION STAGE RESIDENT MODULES --- 09180000
* 09190000
*** USE THE MACRO PROCESSOR TO EXPAND SOURCE CODE OF THE FIRST 09200000
*** OF THE RESIDENT MODULES - $CC4#1 09210000
* 09220000
*¢// LOAD $MPXDV,&DIUNIT 09230000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-130,RETAIN-T 09240000
.* 09250000
AIF (&CL EQ '1').CL80 . SKIP IF CARD GENERATION. 09260000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1#1 09270000
*¢// RUN 09280000
*¢// CEND 09290000
*¢// COPY NAME-$CC1#1,LIBRARY-S 09300000
AGO .CL85 09310000
.CL80 ANOP . CONTINUE HERE. 09320000
*¢// RUN 09330000
.CL85 ANOP . CONTINUE HERE. 09340000
.* 09350000
$CC4#1 TITLE 'BEGIN&#.CCP&#.SYSTEM&#.CONTROL&#.MODULE' 09360000
$CC4#1 START X'4400' CCP SYSTEM CONTROL MODULE 09370000
$E000 #M-&MLA,#B-&BSC,DF-&FDFF,DE-&FDME,MS-&MIN,RF-&FRUF,RS-&FAI 09380000
$E001 PC-&FPGC,SO-&CPW&UPW 09390000
$E002 ML-&MFSC&MFSW,MT-&MT50&MT41&MFBR,MF-&MNOX,MS-&FCPUM 09400000
$E003 BL-&BLT,BF-&BFA,BT-&BD1&BD2,INP-&INPOL,BIA-&BIDA,BY-&FPBSY 09410000
TITLE 'EQUATES&#.--&#.COMMON&#.VALUES' 09420000
$EEQU 09430000
TITLE 'EQUATES&#.--&#.CCP&#.COMMUNICATIONS&#.AREA' 09440000
$ECOM ID-0,DF-&FDFF 09450000
TITLE 'EQUATES&#.--&#.TASK&#.CONTROL&#.BLOCK' 09460000
$ETCB 09470000
TITLE 'EQUATES&#.--&#.FOR&#.PROGRAM&#.APPENDED&#.STORAGE' 09480000
$EPAS 09490000
TITLE 'EQUATES&#.--&#.FOR&#.SYSLOG' 09500000
$LOGD 09510000
TITLE 'EQUATES&#.--&#.FOR&#.SYSTEM&#.COMM&#.AREAS' 09520000
$EDSM RB-Y,SP-Y 09530000
TITLE 'EQUATES&#.--&#.TASK&#.COMPLETION&#.CODES' 09540000
$ETCC DF-&FDFF 09550000
TITLE 'EQUATES&#.--&#.COMMUNICATIONS&#.PARAMETER&#.LIST' 09560000
$ECPL 09570000
TITLE 'EQUATES&#.--&#.TERMINAL&#.ATTRIBUTES&#.SET' 09580000
$ETAS 09590000
TITLE 'EQUATES&#.--&#.TERMINAL&#.UNIT&#.BLOCK' 09600000
$ETUB 09610000
TITLE 'EQUATES&#.--&#.LINE&#.CONTROL&#.BLOCK' 09620000
$ELCB 09630000
.* 09640000
AIF (&BSC EQ '0').GEN10 . SKIP IF *NO* BSCA SUPPORT 09650000
.* 09660000
TITLE 'EQUATES&#.--&#.BSCA&#.DTF' 09670000
$DTOB 09680000
.* 09690000
AIF (&FDFF NE '1').XDFF . SKIP IF NO DFF. 09700000
.* 09710000
TITLE 'EQUATES&#.--&#.DFF&#.--&#.TERMINATION&#.CODES' 09720000
$EDFT 09730000
TITLE 'EQUATES&#.--&#.FORMAT&#.TABLES' 09740000
$EFT 09750000
TITLE 'EQUATES&#.--&#.TERMINAL&#.TABLE' 09760000
$ETT 09770000
TITLE 'EQUATES&#.--&#.DFF&#.FDT' 09780000
$EFDT 09790000
TITLE 'EQUATES&#.--&#.DISK&#.IOB' 09800000
$EIOB 09810000
.* 09820000
.XDFF ANOP . CONTINUE HERE. 09830000
AIF (&MLA EQ '0').GEN10 SKIP IF NO MLTA. 09840000
.* 09850000
$DTOM AT1-Y,AT2-Y,CMP-Y,OPC-Y,OSC-Y,SNS-Y,TFT-Y 09860000
.* 09870000
.GEN10 ANOP . CONTINUE HERE 09880000
TITLE 'EQUATES&#.--&#.TERMINAL&#.NAME&#.TABLE' 09890000
$ETNT 09900000
TITLE 'EQUATES&#.--&#.TRANSLATE/MOVE&#.LIST' 09910000
$ETML 09920000
TITLE 'CCP&#.COMMON&#.AREA' 09930000
$E030 09940000
$E038 MXL-&C1&C2,CON-1 09950000
$E060 09960000
.* 09970000
AIF (&FDFF NE '1').XXDFF . SKIP IF NO DFF. 09980000
.* 09990000
$E065 10000000
.XXDFF ANOP 10010000
END $CC4#1 10020000
.* 10030000
AIF (&CL EQ '1').CL90 . SKIP IF CARD GENERATION. 10040000
*¢// CEND 10050000
*¢// COPY NAME-$CC1#A,LIBRARY-P 10060000
AGO .CL100 10070000
.CL90 ANOP 10080000
*¢/* 10090000
.CL100 ANOP . CONTINUE HERE. 10100000
*** USE THE SCP GENERATOR TO PROCESS THIS SOURCE CODE INTO A 10110000
*** RELOCATABLE MODULE 10120000
* 10130000
*¢// LOAD $CGDRV,&DIUNIT 10140000
*¢// SWITCH 1XXXXXXX 10150000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,RETAIN-S 10160000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S 10170000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-040,RETAIN-S 10180000
*¢// RUN 10190000
.* 10200000
AIF (&CL EQ '1').CL105 . SKIP IF CARD GENERATION. 10210000
*¢// CEND 10220000
*¢// COPY NAME-$CC1L1,LIBRARY-P 10230000
.CL105 ANOP . CONTINUE HERE. 10240000
*** USE THE OVERLAY LINKAGE EDITOR TO FORM THE FIRST RESIDENT MODULE 10250000
*** AS A LOAD MODULE NAMED $CC4#1. 10260000
* 10270000
*¢// LOAD $OLINK,&DIUNIT 10280000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S 10290000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S 10300000
*¢// RUN 10310000
*¢// OPTIONS ENTRY-$CC4II,MAP-XREF,LEVEL-&LVL 10320000
*¢// PHASE NAME-$CC4#1,UNIT-&CCUNIT,RETAIN-R,LINKADD-X'4400',RLD-NO 10330000
*¢// CATEGORY NAME-$CC4V1,VALUE-100 10340000
*¢// INCLUDE NAME-'$CC4#1,$CC4PI,$CC4MS,$CC4V1',UNIT-&DIUNIT 10350000
.* 10360000
AIF (&FDFF NE '1').NODFF . SKIP IF NO DFF. 10370000
.* 10380000
*¢// INCLUDE NAME-$CC4MX,UNIT-&DIUNIT 10390000
AGO .GEN11 SKIP NO DFF MODULE. 10400000
.* 10410000
.NODFF ANOP . CONTINUE HERE IF NO DFF. 10420000
*¢// INCLUDE NAME-$CC4MV,UNIT-&DIUNIT 10430000
.* 10440000
.GEN11 ANOP . CONTINUE HERE. 10450000
*¢// INCLUDE NAME-'$CC4TI,$CC4CP,$CC4OC,$CC4NQ,$CC4DQ',UNIT-&DIUNIT 10460000
*¢// END 10470000
.* 10480000
AIF (&CL EQ '1').CL120 . SKIP IF CARD GENERATION. 10490000
*¢// CEND 10500000
*¢// COPY NAME-$CC1VT,LIBRARY-P 10510000
.CL120 ANOP . CONTINUE HERE. 10520000
.* 10530000
*** USE THE MACRO PROCESSOR TO EXPAND SOURCE CODE OF THE ADDRESS 10540000
*** VECTOR TABLE - $CC4VT 10550000
* 10560000
*¢// LOAD $MPXDV,&DIUNIT 10570000
*¢// SWITCH 1XXXXXXX 10580000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-50,RETAIN-T 10590000
.* 10600000
AIF (&CL EQ '1').CL125 . SKIP IF CARD GENERATION. 10610000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1VT 10620000
*¢// RUN 10630000
*¢// CEND 10640000
*¢// COPY NAME-$CC1VT,LIBRARY-S 10650000
AGO .CL130 10660000
.CL125 ANOP . CONTINUE HERE. 10670000
*¢// RUN 10680000
.CL130 ANOP . CONTINUE HERE. 10690000
.* 10700000
$CC4VT TITLE 'ADDRESS&#.--&#.VECTOR&#.--&#.TABLE' 10710000
$CC4VT START 0 10720000
$E000 #M-&MLA,#B-&BSC,DF-&FDFF,DE-&FDME,MS-&MIN 10730000
$E002 ML-&MFSC&MFSW,MT-&MT50&MT41&MFBR,MF-&MNOX,MS-&FCPUM 10740000
$E003 BL-&BLT,BF-&BFA,BT-&BD1&BD2,INP-&INPOL,BIA-&BIDA,BY-&FPBSY 10750000
$E033 MD1-&MD1,MD2-&MD2,MD3-&MD3,BF-&BFA 10760000
END $CC4VT 10770000
.* 10780000
AIF (&CL EQ '1').CL150 . SKIP IF CARD GENERATION. 10790000
*¢// CEND 10800000
*¢// COPY NAME-$CC1VS,LIBRARY-P 10810000
AGO .CL155 10820000
.CL150 ANOP . CONTINUE HERE. 10830000
.* 10840000
*¢/* 10850000
.CL155 ANOP 10860000
.* 10870000
*** USE THE SCP GENERATOR TO PROCESS THIS SOURCE CODE INTO A 10880000
*** RELOCATABLE MODULE - $CC4VT 10890000
* 10900000
*¢// LOAD $CGDRV,&DIUNIT 10910000
*¢// SWITCH 1XXXXXXX 10920000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,RETAIN-S 10930000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S 10940000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-040,RETAIN-S 10950000
*¢// RUN 10960000
.* 10970000
AIF (&CL EQ '1').CL180 . SKIP IF CARD GENERATION. 10980000
*¢// CEND 10990000
*¢// COPY NAME-$CC1#2,LIBRARY-P 11000000
.CL180 ANOP . CONTINUE HERE. 11010000
.* 11020000
*** USE THE MACRO PROCESSOR TO EXPAND SOURCE CODE OF THE SECOND 11030000
*** RESIDENT MODULE - $CC4#2 11040000
* 11050000
*¢// LOAD $MPXDV,&DIUNIT 11060000
*¢// SWITCH 1XXXXXXX 11070000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-180,RETAIN-T 11080000
.* 11090000
AIF (&CL EQ '1').CL200 . SKIP IF CARD GENERATION. 11100000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1#2 11110000
*¢// RUN 11120000
*¢// CEND 11130000
*¢// COPY NAME-$CC1#2,LIBRARY-S 11140000
AGO .CL210 11150000
.CL200 ANOP . CONTINUE HERE. 11160000
*¢// RUN 11170000
.CL210 ANOP . CONTINUE HERE. 11180000
.* 11190000
$CC4#2 TITLE 'BEGIN&#.CCP&#.COMMUNICATIONS&#.CONTROL&#.MODULE' 11200000
$CC4#2 START 0 CCP COMMUNICATIONS CNTRL MODULE 11210000
$E000 #M-&MLA,#B-&BSC,DF-&FDFF,DE-&FDME,MS-&MIN,RF-&FRUF,RS-&FAI 11220000
$E002 ML-&MFSC&MFSW,MT-&MT50&MT41&MFBR,MF-&MNOX,MS-&FCPUM 11230000
$E003 BL-&BLT,BF-&BFA,BT-&BD1&BD2,INP-&INPOL,BIA-&BIDA,BY-&FPBSY 11240000
TITLE 'EQUATES&#.--&#.COMMON&#.VALUES' 11250000
$EEQU 11260000
TITLE 'EQUATES&#.--&#.CCP&#.COMMUNICATIONS&#.AREA' 11270000
$ECOM ID-0,DF-&FDFF,CP-Y,AM-Y,TM-Y,CM-Y 11280000
TITLE 'EQUATES&#.--&#.TASK&#.CONTROL&#.BLOCK' 11290000
$ETCB 11300000
TITLE 'EQUATES&#.--&#.DSM&#.TCB' 11310000
$EDSM NP-Y,NC-Y,SP-N 11320000
TITLE 'EQUATES&#.--&#.COMMUNICATIONS&#.PARAMETER&#.LIST' 11330000
$ECPL RTNCD-EXCP 11340000
TITLE 'EQUATES&#.--&#.TERMINAL&#.ATTRIBUTES&#.SET' 11350000
$ETAS 11360000
TITLE 'EQUATES&#.--&#.TERMINAL&#.UNIT&#.BLOCK' 11370000
$ETUB 11380000
TITLE 'EQUATES&#.--&#.LINE&#.CONTROL&#.BLOCK' 11390000
$ELCB MLTA-&MLA,BSCA-&BSC 11400000
TITLE 'EQUATES&#.--&#.TRANSLATE/MOVE&#.LIST' 11410000
$ETML 11420000
.* 11430000
AIF (&BSC EQ '0').GEN20 . SKIP IF *NO* BSCA SUPPORT 11440000
.* 11450000
TITLE 'EQUATES&#.--&#.BSCA&#.COMMON&#.VALUES' 11460000
$EBEQ IOB-Y,WKA-Y,POL-Y,CKL-Y,CMD-CM,MIN-Y 11470000
TITLE 'EQUATES&#.--&#.BSCA&#.DTF' 11480000
$DTOB 11490000
.* 11500000
.GEN20 ANOP . CONTINUE HERE 11510000
AIF (&MLA EQ '0').GEN15 . SKIP IF *NO* MLTA SUPPORT 11520000
.* 11530000
TITLE 'EQUATES&#.--&#.MLTA&#.DTF' 11540000
$DTOM AT1-Y,AT2-Y,CMP-Y,OPC-Y,OSC-Y,SNS-Y,TFT-Y 11550000
.* 11560000
.GEN15 ANOP . CONTINUE HERE 11570000
$E038 MXL-&C1&C2 11580000
$E070 11590000
AIF (&BSC EQ '0').GEN25 . SKIP IF *NO* BSCA SUPPORT 11600000
$E072 11610000
$E080 11620000
$E085 11630000
.GEN25 ANOP . CONTINUE HERE 11640000
AIF (&MLA EQ '0').GEN26 . SKIP IF *NO* MLTA SUPPORT 11650000
$E075 11660000
$E082 11670000
$E087 11680000
.GEN26 ANOP . CONTINUE HERE 11690000
$E090 11700000
$E092 11710000
AIF (&BSC EQ '0').GEN30 . SKIP IF *NO* BSCA SUPPORT 11720000
$E093 11730000
.GEN30 ANOP . CONTINUE HERE 11740000
AIF (&MLA EQ '0').GEN40 . SKIP IF *NO* MLTA SUPPORT 11750000
$E094 11760000
.GEN40 ANOP . CONTINUE HERE 11770000
AIF (&FDME NE '1').GEN95 . SKIP IF *NO* DATA MODE ESCAPE 11780000
$E095 DMESTR-&X1DME&X2DME' 11790000
AGO .GEN99 11800000
.GEN95 ANOP . *NO* DATA MODE ESCAPE 11810000
$E095 11820000
.GEN99 ANOP . CONTINUE HERE 11830000
END $CC4#2 11840000
.* 11850000
AIF (&CL EQ '1').CL220 . SKIP IF CARD GENERATION. 11860000
*¢// CEND 11870000
*¢// COPY NAME-$CC1#B,LIBRARY-P 11880000
AGO .CL230 11890000
.CL220 ANOP 11900000
*¢/* 11910000
.CL230 ANOP . CONTINUE HERE. 11920000
.* 11930000
*** USE THE SCP GENERATOR TO PROCESS THIS SOURCE CODE INTO A 11940000
*** RELOCATABLE MODULE - $CC4#2 11950000
* 11960000
*¢// LOAD $CGDRV,&DIUNIT 11970000
*¢// SWITCH 1XXXXXXX 11980000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,RETAIN-S 11990000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-050,RETAIN-S 12000000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-050,RETAIN-S 12010000
*¢// RUN 12020000
.* 12030000
AIF (&CL EQ '1').CL240 . SKIP IF CARD GENERATION. 12040000
*¢// CEND 12050000
*¢// COPY NAME-$CC1LE,LIBRARY-P 12060000
.CL240 ANOP . CONTINUE HERE. 12070000
.* 12080000
*¢// LOAD $OLINK,&DIUNIT LINKEDIT $CC4#2 12090000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S 12100000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S 12110000
*¢// RUN 12120000
*¢// OPTIONS ENTRY-$CC4CM,MAP-XREF,LEVEL-&LVL 12130000
*¢// PHASE NAME-$CC4#2,UNIT-&CCUNIT,RETAIN-R,LINKADD-X'0000' 12140000
*¢// CATEGORY NAME-$CC4V2,VALUE-100 12150000
AIF (&FDFF NE '1').NDFF . SKIP IF NO DFF 12160000
.* 12170000
*¢// INCLUDE NAME-'$CC4VT,$CC4DF,$CC4#2,$CC4V2',UNIT-&DIUNIT 12180000
AGO .NC01 12190000
.* 12200000
.NDFF ANOP . CONTINUE HERE. 12210000
*¢// INCLUDE NAME-'$CC4VT,$CC4#2,$CC4V2',UNIT-&DIUNIT 12220000
.NC01 ANOP 12230000
AIF (&BSC EQ '0').GXNBM . SKIP IF *NO* BSCA SUPPORT 12240000
.* 12250000
*¢// INCLUDE NAME-'$CC4IB,$CC4BT',UNIT-&DIUNIT 12260000
.* 12270000
AIF ('&BLT'(4,1) EQ '1').BSMS INCLUDE $$BSMS IF DIAL-YES 12280000
AIF (&BD2 EQ '00000000').GXN32 SKIP IF 3270 ONLY. 12290000
.* 12300000
.BSMS ANOP . INCLUDE MODULE $$BSMS 12310000
*¢// INCLUDE NAME-$$BSMS,UNIT-&DSUNIT 12320000
AGO .GXBS . SKIP OVER 3270 ONLY MODULE. 12330000
.* 12340000
.GXN32 ANOP . CONTINUE HERE. 12350000
AIF (&MINRES EQ '1').C4M1 . SKIP IF MINRES-YES 12360000
AIF ('&BFA'(4,1) NE '1').C4M1 . SKIP IF RESPOL-NO 12370000
.* 12380000
*¢// INCLUDE NAME-$CC4M2,UNIT-&DIUNIT 12390000
AGO .GXBS . SKIP IF RESPOL-YES 12400000
.* 12410000
.C4M1 ANOP . INCLUDE MODULE $CC4M1 12420000
*¢// INCLUDE NAME-$CC4M1,UNIT-&DIUNIT 12430000
.* 12440000
.GXBS ANOP . CONTINUE HERE 12450000
AIF (&BSC LE '1').GXB1L . SKIP IF SINGLE BSCA ONLY 12460000
.* 12470000
*¢// INCLUDE NAME-$$BSAT,UNIT-&DSUNIT 12480000
.* 12490000
.GXB1L ANOP . CONTINUE HERE 12500000
AIF ('&BLT'(3,1) NE '1').GXBNC . SKIP IF CS-NO 12510000
.* 12520000
*¢// INCLUDE NAME-$$BSLG,UNIT-&DSUNIT 12530000
AIF ('&BFA'(4,1) NE '1').GXBNC . SKIP IF RESPOL-NO 12540000
.* 12550000
*¢// INCLUDE NAME-'$$BSMA,$$BSMB,$$BSMC,$$BSMF',UNIT-&DSUNIT 12560000
.* 12570000
.GXBNC ANOP . CONTINUE HERE 12580000
AIF ('&BLT'(2,1) NE '1').GXNAF . SKIP IF MP-NO 12590000
AIF ('&BFA'(5,1) NE '1').GXNAF . SKIP IF MP-YES, AUTORS-NO 12600000
.* 12610000
*¢// INCLUDE NAME-$$BSMD,UNIT-&DSUNIT 12620000
.* 12630000
.GXNAF ANOP 12640000
AIF (&BIDA EQ '0').GXNBM . SKIP IF NO IDA SUPPORT 12650000
.* 12660000
*¢// INCLUDE NAME-$$BSID,UNIT-&DSUNIT 12670000
.* 12680000
.GXNBM ANOP 12690000
AIF (&MLA EQ '0').GXNOM . SKIP *NO* MLTA SUPPORT 12700000
.* 12710000
*¢// INCLUDE NAME-$CC4IM,UNIT-&DIUNIT 12720000
*¢// INCLUDE NAME-'$$MLDI,$$MLRR',UNIT-&DSUNIT 12730000
.* 12740000
AIF (&MFSC NE '1').GXNSC . SKIP IF *NO* STATION CONTROL 12750000
AIF (&MFNK NE '1').GXN00 . SKIP IF *NO* NON-CHECKING TERM 12760000
AIF (&MFSW NE '1').GXN00 . SKIP IF *NO* SWITCHED SUPPORT 12770000
*¢// INCLUDE NAME-'$$MLIA,$$MLIB,$$MLID,$$MLIF',UNIT-&DSUNIT 12780000
AIF (&MFSC NE '1').GXNSC . SKIP IF *NO* STATION CONTROL 12790000
AGO .GXNSW 12800000
.* 12810000
.GXN00 ANOP 12820000
*¢// INCLUDE NAME-'$$MLIA,$$MLIB',UNIT-&DSUNIT 12830000
.GXNSC ANOP . CONTINUE HERE 12840000
AIF (&MFNK NE '1').GXNNK . SKIP IF *NO* NON-CHECKING TERM 12850000
AIF (&MFSW NE '1').NC05 . SKIP IF *NO* SWITCHED SUPPORT 12860000
*¢// INCLUDE NAME-'$$MLID,$$MLIF',UNIT-&DSUNIT 12870000
AGO .GXNSW 12880000
.* 12890000
.NC05 ANOP 12900000
*¢// INCLUDE NAME-$$MLID,UNIT-&DSUNIT 12910000
.* 12920000
.GXNNK ANOP . CONTINUE HERE 12930000
AIF (&MFSW NE '1').GXNSW . SKIP IF *NO* SWITCHED SUPPORT 12940000
.* 12950000
*¢// INCLUDE NAME-$$MLIF,UNIT-&DSUNIT 12960000
.* 12970000
.GXNSW ANOP . CONTINUE HERE 12980000
AIF (&MFCK NE '1').GXNCK . SKIP IF *NO* CHECKING TERMINAL 12990000
AIF ('&MD1'(1,1) NE '1').NC10 . SKIP IF NO TYPE-1050 13000000
*¢// INCLUDE NAME-'$$MLIG,$$MLTM',UNIT-&DSUNIT 13010000
AGO .MTV02 13020000
.* 13030000
.NC10 ANOP 13040000
*¢// INCLUDE NAME-$$MLIG,UNIT-&DSUNIT 13050000
.* 13060000
.GXNCK ANOP . CONTINUE HERE 13070000
AIF ('&MD1'(1,1) NE '1').MTV02 . SKIP IF NO TYPE-1050 13080000
.* 13090000
*¢// INCLUDE NAME-$$MLTM,UNIT-&DSUNIT 13100000
.* 13110000
.MTV02 ANOP . CONTINUE HERE 13120000
AIF ('&MD1'(2,1) NE '1').MTV03 . SKIP IF NO TYPE-1050D 13130000
.* 13140000
*¢// INCLUDE NAME-$$MLTB,UNIT-&DSUNIT 13150000
.* 13160000
.MTV03 ANOP . CONTINUE HERE 13170000
AIF ('&MD1'(4,1) EQ '1').MTVX3 . SKIP IF TYPE-2740S 13180000
AIF ('&MD2'(3,2) EQ '00').MTV04 . SKIP IF NEITHER 2740M2S/SB 13190000
.* 13200000
.MTVX3 ANOP . 2740S/2740M2S/2740M2SB 13210000
*¢// INCLUDE NAME-$$MLTC,UNIT-&DSUNIT 13220000
.* 13230000
.MTV04 ANOP . CONTINUE HERE 13240000
AIF ('&MD1'(3,1) NE '1').MTV05 . SKIP IF NO TYPE-2740 13250000
AIF ('&MD1'(7,1) NE '1').NC15 . SKIP IF NO TYPE-2740D 13260000
*¢// INCLUDE NAME-'$$MLTD,$$MLTF',UNIT-&DSUNIT 13270000
AGO .MTV06 13280000
.* 13290000
.NC15 ANOP 13300000
*¢// INCLUDE NAME-$$MLTD,UNIT-&DSUNIT 13310000
.* 13320000
.MTV05 ANOP . CONTINUE HERE 13330000
AIF ('&MD1'(7,1) NE '1').MTV06 . SKIP IF NO TYPE-2740D 13340000
.* 13350000
*¢// INCLUDE NAME-$$MLTF,UNIT-&DSUNIT 13360000
.* 13370000
.MTV06 ANOP . CONTINUE HERE 13380000
AIF ('&MD1'(5,1) EQ '1').MTVX6 . SKIP IF TYPE-2740C 13390000
AIF ('&MD3'(1,1) NE '1').MTV07 . SKIP UNLESS TYPE-SYS7C 13400000
.* 13410000
.MTVX6 ANOP . TYPE-2740C/SYS7C 13420000
*¢// INCLUDE NAME-$$MLTG,UNIT-&DSUNIT 13430000
.* 13440000
.MTV07 ANOP . CONTINUE HERE 13450000
AIF ('&MD2'(1,1) EQ '1').MTVX7 . SKIP IF TYPE-2740DC 13460000
AIF ('&MD3'(3,1) NE '1').MTV08 . SKIP UNLESS TYPE-SYS7DC 13470000
.* 13480000
.MTVX7 ANOP . TYPE-2740DC/SYS7DC 13490000
*¢// INCLUDE NAME-$$MLTH,UNIT-&DSUNIT 13500000
.* 13510000
.MTV08 ANOP . CONTINUE HERE 13520000
AIF ('&MD1'(8,1) NE '1').MTV09 . SKIP UNLESS TYPE-2740DT 13530000
AIF ('&MD2'(2,1) NE '1').NC20 . SKIP UNLESS TYPE-2740DTC 13540000
*¢// INCLUDE NAME-'$$MLTI,$$MLTL',UNIT-&DSUNIT 13550000
AGO .MTV10 13560000
.* 13570000
.NC20 ANOP 13580000
*¢// INCLUDE NAME-$$MLTI,UNIT-&DSUNIT 13590000
.* 13600000
.MTV09 ANOP . CONTINUE HERE 13610000
AIF ('&MD2'(2,1) NE '1').MTV10 . SKIP UNLESS TYPE-2740DTC 13620000
.* 13630000
*¢// INCLUDE NAME-$$MLTL,UNIT-&DSUNIT 13640000
.* 13650000
.MTV10 ANOP . CONTINUE HERE 13660000
AIF ('&MD1'(1,1) EQ '1').MTV11 . SKIP IF TYPE-1050--INCLUDED 13670000
AIF ('&MD1'(6,1) EQ '1').MTVXA . SKIP IF TYPE-2740SC 13680000
AIF ('&MD2'(5,2) NE '00').MTVXA . SKIP IF TYPE-2740M2SC/SCB 13690000
AIF ('&MD3'(2,1) NE '1').MTV11 . SKIP UNLESS TYPE-SYS7C 13700000
.* 13710000
.MTVXA ANOP . TYPE-2740SC/2740M2SC(B)/SYS7SC 13720000
*¢// INCLUDE NAME-$$MLTM,UNIT-&DSUNIT 13730000
.* 13740000
.MTV11 ANOP . CONTINUE HERE 13750000
AIF ('&MD2'(7,1) NE '1').MTV12 . SKIP UNLESS TYPE-2741 13760000
AIF ('&MD2'(8,1) EQ '1').MTV20 . SKIP IF TYPE-2741D 13770000
AIF ('&MD3'(4,1) NE '1').MTV21 . SKIP UNLESS TYPE-CMCSTD 13780000
.MTV20 ANOP 13790000
*¢// INCLUDE NAME-'$$MLTO,$$MLTP',UNIT-&DSUNIT 13800000
AGO .MTV99 13810000
.MTV21 ANOP 13820000
AIF ('&MD2'(7,1) NE '1').MTV12 . SKIP UNLESS TYPE-2741 13830000
.* 13840000
*¢// INCLUDE NAME-$$MLTO,UNIT-&DSUNIT 13850000
.* 13860000
.MTV12 ANOP . CONTINUE HERE 13870000
AIF ('&MD2'(8,1) EQ '1').MTVXC . SKIP IF TYPE-2741D 13880000
AIF ('&MD3'(4,1) NE '1').MTV99 . SKIP UNLESS TYPE-CMCSTD 13890000
.* 13900000
.MTVXC ANOP 13910000
*¢// INCLUDE NAME-$$MLTP,UNIT-&DSUNIT 13920000
.* 13930000
.MTV99 ANOP . END INCLUDE TRANSFER VECTORS 13940000
.GXNOM ANOP . CONTINUE HERE 13950000
.* 13960000
*¢// END 13970000
.* 13980000
.*--------- LINK EDIT THE LOADABLE COMMUNICATIONS TRACE ------------* 13990000
.* 14000000
AIF (&BSC EQ '0').LET02 . SKIP IF BSCA NOT SUPPORTED 14010000
.* 14020000
AIF (&CL EQ '1').CL270 . SKIP IF CARD GENERATION. 14030000
*¢// CEND 14040000
*¢// COPY NAME-$CC1BT,LIBRARY-P 14050000
.CL270 ANOP . CONTINUE HERE. 14060000
.* 14070000
*** USE THE OVERLAY LINKAGE EDITOR TO CREATE THE LOADABLE BSCA TRACE 14080000
*** SERVICE AID 14090000
* 14100000
*¢// LOAD $OLINK,&DIUNIT 14110000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S 14120000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-40,RETAIN-S 14130000
*¢// RUN 14140000
*¢// PHASE NAME-$CC$BS,UNIT-&CCUNIT,RETAIN-R 14150000
*¢// OPTIONS LEVEL-&LVL 14160000
*¢// INCLUDE NAME-$CC$BS,UNIT-&DIUNIT 14170000
*¢// INCLUDE NAME-$$BSTT,UNIT-&DSUNIT 14180000
*¢// END 14190000
.* 14200000
.LET02 ANOP . CONTINUE HERE 14210000
.* 14220000
AIF (&MLA EQ '0').LET99 . SKIP IF MLTA NOT SUPPORTED 14230000
.* 14240000
AIF (&CL EQ '1').CL300 . SKIP IF CARD GENERATION. 14250000
*¢// CEND 14260000
*¢// COPY NAME-$CC1MT,LIBRARY-P 14270000
.CL300 ANOP . CONTINUE HERE. 14280000
.* 14290000
*** USE THE OVERLAY LINKAGE EDITOR TO CREATE THE LOADABLE MLTA TRACE 14300000
*** SERVICE AID 14310000
* 14320000
*¢// LOAD $OLINK,&DIUNIT 14330000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S 14340000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-40,RETAIN-S 14350000
*¢// RUN 14360000
*¢// PHASE NAME-$CC$ML,UNIT-&CCUNIT,RETAIN-R 14370000
*¢// OPTIONS LEVEL-&LVL 14380000
*¢// INCLUDE NAME-$CC$ML,UNIT-&DIUNIT 14390000
*¢// INCLUDE NAME-$$MLDT,UNIT-&DSUNIT 14400000
*¢// END 14410000
.LET99 ANOP . CONTINUE HERE 14420000
.* 14430000
AIF (&CL EQ '1').CL360 . SKIP IF CARD GENERATION. 14440000
*¢// CEND 14450000
*¢// COPY NAME-$CC1C1,LIBRARY-P 14460000
.CL360 ANOP . CONTINUE HERE. 14470000
.* 14480000
.*--------- OUTPUT THE CCP MODULE COPY GROUP -----------------------* 14490000
.* 14500000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 14510000
* --- COPY REQUIRED LOAD MODULES FOR ALL STAGES OF CCP --- 14520000
* 14530000
*¢// LOAD $MAINT,&DSUNIT 14540000
*¢// RUN 14550000
*¢// COPY FROM-&D,TO-&C,LIBRARY-O,RETAIN-R,NAME-$CC1BF 14560000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPAS 14570000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCY.ALL,NEWNAME-$CC2 14580000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPAL 14590000
.* 14600000
AIF (&FDFF NE '1').AYNOF . SKIP IF NO DFF REQUESTED 14610000
.* 14620000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPDF 14630000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPPF 14640000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCZ.ALL,NEWNAME-$CC2 14650000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPDT 14660000
AIF (&DSUNIT EQ &C).AYNOF . SKIP IF CCP AND DSM SAME @01 14670000
*¢// COPY FROM-&DSUNIT,TO-&C,RETAIN-R,LIBRARY-O,NAME-$OLBO 14680000
*¢// COPY FROM-&DSUNIT,TO-&C,RETAIN-R,LIBRARY-O,NAME-$OLFTP 14690000
*¢// COPY FROM-&DSUNIT,TO-&C,RETAIN-R,LIBRARY-O,NAME-$OLER 14700000
.* 14710000
.AYNOF AIF (&UPW NE '1').AYNOU . SKIP IF NOT SECURE-USER 14720000
.* 14730000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPAU 14740000
.* 14750000
.AYNOU ANOP . CONTINUE HERE 14760000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCP 14770000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC3.ALL 14780000
.* STARTUP TRANSIENT 14790000
.* 14800000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4SU 14810000
.* 14820000
.* DUMMY USER SECURITY ROUTINE 14830000
.* 14840000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4YA 14850000
.* 14860000
.* SYSTEM OPERATOR COMMAND ROUTINES 14870000
.* 14880000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCS.ALL,NEWNAME-$CC4 14890000
.* 14900000
.* TERMINAL OPERATOR COMMAND ROUTINES 14910000
.* 14920000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCT.ALL,NEWNAME-$CC4 14930000
.* 14940000
.* MESSAGE-ISSUING MODULES 14950000
.* 14960000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCE.ALL,NEWNAME-$CC4 14970000
.* 14980000
.* COMMUNICATIONS MANAGEMENT -- MLTA ROUTINES 14990000
.* 15000000
AIF (&MLA EQ '0').CPXL5 . SKIP IF *NO* MLTA 15010000
AIF (&CL EQ '1').CL365 . SKIP IF CARD GENERATION. 15020000
*¢// END 15030000
*¢// CEND 15040000
*¢// COPY NAME-$CC1C2,LIBRARY-P 15050000
*¢// LOAD $MAINT,&DSUNIT 15060000
*¢// RUN 15070000
.CL365 ANOP . CONTINUE HERE 15080000
.* 15090000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCM.ALL,NEWNAME-$CC4 15100000
.* 15110000
.CPY10 ANOP . CONTINUE HERE 15120000
.* 15130000
.* COPY TRANSLATE ROUTINES 15140000
AIF ('&MXC'(3,1) NE '1').CPXL2 .SKIP IF NO PTTCBCD CODE 15150000
.* 15160000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J1 15170000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J7 15180000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J9 15190000
.* 15200000
.CPXL2 ANOP . CONTINUE HERE 15210000
AIF (&XM4E NE '1').CPXL3 . SKIP IF NO 2740/1 PTTCEBCD 15220000
.* 15230000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J2 15240000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J5 15250000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JA 15260000
.* 15270000
.CPXL3 ANOP . CONTINUE HERE 15280000
AIF ('&MXC'(1,1) NE '1').CPXL4 . SKIP IF NO CORR CODE 15290000
.* 15300000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J3 15310000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J6 15320000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JB 15330000
.* 15340000
.CPXL4 ANOP . CONTINUE HERE 15350000
AIF (&MT50 NE '1').CPXL5 . SKIP IF NO 1050 CODE 15360000
.* 15370000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J4 15380000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J8 15390000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JC 15400000
.* 15410000
.CPXL5 ANOP . CONTINUE HERE 15420000
AIF (&CL EQ '1').CL367 . SKIP IF CARD GENERATION. 15430000
*¢// END 15440000
*¢// CEND 15450000
*¢// COPY NAME-$CC1C3,LIBRARY-P 15460000
*¢// LOAD $MAINT,&DSUNIT 15470000
*¢// RUN 15480000
.CL367 ANOP . CONTINUE HERE 15490000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JE 15495000
AIF ('&BFA'(7,1) NE '1').CPXL9 . SKIP IF NO ASCII 15500000
.* 15510000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JD 15520000
.* 15540000
.CPXL9 ANOP . CONTINUE HERE 15550000
.* 15560000
.* COMMUNICATIONS MANAGEMENT -- COMMON 15570000
.* 15580000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCC.ALL,NEWNAME-$CC4 15590000
.* 15600000
.* COMMUNICATIONS MANAGEMENT -- BSCA ROUTINES 15610000
.* 15620000
AIF (&BSC EQ '0').CPY14 . SKIP IF *NO* BSCA SUPPORT 15630000
.* 15640000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCB.ALL,NEWNAME-$CC4 15650000
.* 15660000
AGO .CPY16 15660800
.* 15661600
.CPY14 ANOP . CONTINUE HERE 15662400
.* 15663200
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCBBC,NEWNAME-$CC4BC 15664000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCBBF,NEWNAME-$CC4BF 15664800
.* 15665600
AGO .CPY20 15666400
.* 15667200
.CPY16 ANOP . CONTINUE HERE 15668000
.* 15668800
AIF (&MINRES NE '1').CPY20 . SKIP IF *MINRES* NO 15670000
.* 15680000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCD.ALL,NEWNAME-$CC4 15690000
.* 15700000
.CPY20 ANOP . CONTINUE HERE 15710000
.* 15720000
.* COMMUNICATIONS INTERFACE ROUTINES 15730000
.* 15740000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCI.ALL,NEWNAME-$CC4 15750000
.* 15760000
.* DFF TRANSIENT ROUTINES 15770000
.* 15780000
AIF (&FDFF NE '1').CPY30 . SKIP IF *NO* DFF SUPPORT 15790000
.* 15800000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCF.ALL,NEWNAME-$CC4 15810000
.* 15820000
.CPY30 ANOP . CONTINUE HERE 15830000
.* 15840000
.* COMMAND PROCESSOR MAINLINE ROUTINES 15850000
.* 15860000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCG.ALL,NEWNAME-$CC4 15870000
.* 15880000
.* PROGRAM REQUEST ROUTINES 15890000
.* 15900000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCR.ALL,NEWNAME-$CC4 15910000
.* 15920000
.* ALLOCATATION ROUTINES 15930000
.* 15940000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCA.ALL,NEWNAME-$CC4 15950000
.* 15960000
.* DATA MANAGEMENT -- OPEN 15970000
.* 15980000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCO.ALL,NEWNAME-$CC4 15990000
.* 16000000
.* DATA MANAGEMENT -- CLOSE 16010000
.* 16020000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCL.ALL,NEWNAME-$CC4 16030000
.* 16040000
.* TASK TERMINATION/DEALLOCATION 16050000
.* 16060000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCX.ALL,NEWNAME-$CC4 16070000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC5SH 16080000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPDD 16090000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-CCPIVP 16110000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC6.ALL,NEWNAME-$CCP 16120000
AIF (&CL EQ '1').CL395 . SKIP IF CARD GENERATION. 16130000
*¢// COPY FROM-&D,TO-&C,LIBRARY-S,NAME-$CGSST,RETAIN-R 16140000
.CL395 ANOP 16150000
*¢// END 16160000
.* 16170000
.*--------- OUTPUT THE USER SECURITY MODULE CREATION GROUP ---------* 16180000
.* 16190000
AIF (&UPW NE '1').Z9END . SKIP IF NOT SECURE-USER 16200000
.* 16210000
AIF (&CL EQ '1').CL400 . SKIP IF CARD GENERATION. 16220000
*¢// CEND 16230000
*¢// COPY NAME-$CC1US,LIBRARY-P 16240000
.CL400 ANOP . CONTINUE HERE. 16250000
.* 16260000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 16270000
* --- CREATE EMPTY USER SECURITY INFORMATION MODULE --- 16280000
* 16290000
*** USE SCP GENERATOR TO CREATE THE MODULE $CC4Z9 16300000
* 16310000
*¢// LOAD $CGDRV,&DIUNIT 16320000
*¢// SWITCH 0XXXXXXX 16330000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S 16340000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-10,RETAIN-S 16350000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-10,RETAIN-S 16360000
.* 16370000
AIF (&CL EQ '1').CL410 . SKIP IF CARD GENERATION. 16380000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1US 16390000
*¢// RUN 16400000
*¢// CEND 16410000
*¢// COPY NAME-$CC1US,LIBRARY-S 16420000
AGO .CL420 16430000
.CL410 ANOP . CONTINUE HERE. 16440000
*¢// RUN 16450000
.CL420 ANOP . CONTINUE HERE. 16460000
.* 16470000
$CC4Z9 TITLE 'MODULE&#.TO&#.HOLD&#.USER&#.SECURITY&#.INFORMATION' 16480000
*********************************************************************** 16490000
* U S E R S E C U R I T Y I N F O R M A T I O N * 16500000
*********************************************************************** 16510000
SPACE 2 16520000
* THIS MODULE IS CREATED -- WITH NULL CONTENTS -- AS THE PLACE TO 16530000
* HOLD SECURITY INFORMATION THAT WILL BE USED, DURING THE EXECUTION 16540000
* OF CCP, BY YOUR OWN SIGN-ON CHECKING ROUTINE. THE INFORMATION IS 16550000
* FILLED IN THIS MODULE BY THE SUPPLIED PROGRAM $CCPAU. 16560000
SPACE 1 16570000
$CC4Z9 START 0 MODULE NAME 16580000
DC &LUS.XL1'00' &LUS BYTES, INITIALLY HEX ZEROS 16590000
END $CC4Z9 16600000
.* 16610000
AIF (&CL EQ '1').CL430 . SKIP IF CARD GENERATION. 16620000
*¢// CEND 16630000
*¢// COPY NAME-$CC1UL,LIBRARY-P 16640000
AGO .CL440 16650000
.CL430 ANOP 16660000
*¢/* 16670000
.CL440 ANOP . CONTINUE HERE. 16680000
* 16690000
*** USE OVERLAY LINKAGE EDITOR TO FORM $CC4Z9 AS A LOAD MODULE 16700000
* 16710000
*¢// LOAD $OLINK,&DIUNIT 16720000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S 16730000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-10,RETAIN-S 16740000
*¢// RUN 16750000
*¢// PHASE NAME-$CC4Z9,UNIT-&CCUNIT,RETAIN-R 16760000
*¢// INCLUDE NAME-$CC4Z9,UNIT-&DIUNIT 16770000
*¢// END 16780000
.Z9END ANOP . END OUTPUT USER SECURITY 16790000
.* 16800000
.*--------- OUTPUT THE $CCPFILE ALLOCATION GROUP -------------------* 16810000
.* 16820000
AIF (&CL EQ '1').CL470 . SKIP IF CARD GENERATION. 16830000
*¢// CEND 16840000
*¢// COPY NAME-$CC1BF,LIBRARY-P 16850000
.CL470 ANOP 16860000
.* 16870000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 16880000
* --- ALLOCATE $CCPFILE AND WRITE INITIAL CONTENTS --- 16890000
* 16900000
*** EXECUTE THE PREVIOUSLY CREATED LOAD MODULE $CC1BF TO WRITE THE 16910000
*** INITIAL CONTENTS OF $CCPFILE 16920000
* 16930000
AIF (&UFIL EQ &DIUNIT).FANOP . SKIP IF TO DISTRIBUTION PACK 16940000
.* 16950000
*¢// PAUSE ASSURE UNIT &UFIL CONTAINS PACK &PFIL -- THEN CONTINUE 16960000
.* 16970000
.FANOP ANOP . CONTINUE HERE 16980000
.* 16990000
*¢// LOAD $CC1BF,&DIUNIT 17000000
.* 17010000
AIF (&TFIL EQ '0').FANOT . SKIP IF TRKLOC NOT SPECIFIED 17020000
.* 17030000
*¢// FILE NAME-$CCPFILE,UNIT-&UFIL,PACK-&PFIL,TRACKS-&ASIZE,RETAIN-P, 17040000
*¢// LOCATION-&TFIL 17050000
AGO .FACOM . JOIN COMMON CODE 17060000
.* 17070000
.FANOT ANOP 17080000
*¢// FILE NAME-$CCPFILE,UNIT-&UFIL,PACK-&PFIL,TRACKS-&ASIZE,RETAIN-P 17090000
.* 17100000
.FACOM ANOP . CONTINUE HERE 17110000
*¢// RUN 17120000
.* 17130000
.*--------- OUTPUT THE COPY PROGRAM SUPPORT GROUP ------------------* 17140000
.* 17150000
AIF ('&PLG'(1,1) NE '1').PP020 . SKIP IF NO COBOL 17160000
AIF (&CL EQ '1').CL501 . SKIP IF CARD GENERATION. 17170000
*¢// CEND 17180000
*¢// COPY NAME-$CC1CO,LIBRARY-P 17190000
.CL501 ANOP . CONTINUE HERE. 17200000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 17210000
* 17220000
*** COPY SUBROUTINES FOR USE WITH COBOL TO PROGRAM PREPARATION PACK 17230000
* 17240000
*¢// PAUSE ASSURE COBOL PROGRAM PACK ON UNIT &UPCBL -- THEN CONTINUE 17250000
*¢// LOAD $MAINT,&DSUNIT 17260000
*¢// RUN 17270000
*¢// COPY FROM-&DIUNIT,TO-&UPCBL,RETAIN-R,LIBRARY-R,NAME-CCPCIO 17280000
*¢// END 17290000
.* 17300000
.PP020 ANOP 17310000
AIF ('&PLG'(2,1) NE '1').PP030 . SKIP IF NO FORTRAN 17320000
AIF (&CL EQ '1').CL503 . SKIP IF CARD GENERATION. 17330000
*¢// CEND 17340000
*¢// COPY NAME-$CC1FT,LIBRARY-P 17350000
.CL503 ANOP . CONTINUE HERE. 17360000
.* 17370000
*** COPY SUBROUTINES FOR USE WITH FORTRAN TO PROGRAM PREPARATION PACK 17380000
* 17390000
*¢// PAUSE ASSURE FORTRAN PROGRAM PACK ON UNIT &UPFOR -- THEN CONTINUE 17400000
*¢// LOAD $MAINT,&DSUNIT 17410000
*¢// RUN 17420000
*¢// COPY FROM-&DIUNIT,TO-&UPFOR,RETAIN-R,LIBRARY-R,NAME-CCPFIO 17430000
*¢// END 17440000
.* 17450000
.PP030 ANOP 17460000
AIF ('&PLG'(3,1) NE '1').PP050 . SKIP IF NO ASSEM 17470000
AIF (&CL EQ '1').CL505 . SKIP IF CARD GENERATION. 17480000
*¢// CEND 17490000
*¢// COPY NAME-$CC1AS,LIBRARY-P 17500000
.CL505 ANOP . CONTINUE HERE. 17510000
.* 17520000
*** COPY MACRO DEFINITIONS AND ANY REQUIRED SUBROUTINES FOR USE WITH 17530000
*** BASIC ASSEMBLER TO PROGRAM PREPARATION PACK 17540000
* 17550000
*¢// PAUSE ASSURE BASIC ASSEMBLER PACK ON UNIT &UPASM -- THEN CONTINUE 17560000
*¢// LOAD $MAINT,&DSUNIT 17570000
*¢// RUN 17580000
*¢// COPY FROM-&DIUNIT,TO-&UPASM,RETAIN-R,LIBRARY-S,NAME-$N.ALL 17590000
*¢// END 17600000
.* 17610000
.PP050 ANOP . CONTINUE HERE 17620000
AIF ('&PLG'(4,1) NE '1').PP010 . SKIP IF NO RPG SUPPORT 17630000
AIF (&CL EQ '1').CL507 . SKIP IF CARD GENERATION. 17640000
*¢// CEND 17650000
*¢// COPY NAME-$CC1RG,LIBRARY-P 17660000
.CL507 ANOP . CONTINUE HERE. 17670000
.* 17680000
*** COPY SUBROUTINES FOR USE WITH RPG II TO PROGRAM PREPARATION PACK 17690000
* 17700000
*¢// PAUSE ASSURE RPG II PROGRAM PACK ON UNIT &UPRPG -- THEN CONTINUE 17710000
*¢// LOAD $MAINT,&DSUNIT 17720000
*¢// RUN 17730000
*¢// COPY FROM-&DIUNIT,TO-&UPRPG,RETAIN-R,LIBRARY-R,NAME-SUBR.ALL 17740000
*¢// END 17750000
.* 17760000
.PP010 ANOP 17770000
.* 17780000
.*--------- OUTPUT THE AUXILIARY MODULES GROUP ---------------------* 17790000
.* 17800000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 17810000
.* 17820000
AIF (&CL NE '1').CL510 . SKIP IF CARDLESS GENERATION 17830000
* --- PUNCH OUT THE AUXILIARY ELEMENTS REQUIRED IN CARD FORM --- 17840000
* 17850000
*** PUNCH SAMPLE ASSIGNMENT SET AND STARTUP OCL 17860000
* 17870000
AGO .CL520 . SKIP CARDLESS 17880000
.CL510 ANOP . CONTINUE HERE 17890000
*¢// CEND 17900000
*¢// COPY NAME-$CC1ND,LIBRARY-P 17910000
* 17920000
*** PRINT SAMPLE ASSIGNMENT SET TO BE USED WITH INSTALLATION 17930000
*** VERIFICATION PROGRAM 17940000
* 17950000
.CL520 ANOP 17960000
*¢// LOAD $MAINT,&DSUNIT 17970000
*¢// RUN 17980000
.* 17990000
AIF (&CL EQ '1').CL525 . SKIP IF CARD GENERATION. 18000000
.* 18010000
*¢// COPY FROM-&D,TO-PRINT,LIBRARY-S,NAME-$CGSST 18020000
*¢// COPY FROM-&D,TO-PRINT,LIBRARY-S,NAME-$CGCND 18030000
AGO .CL530 18040000
.CL525 ANOP 18050000
.* 18060000
*¢// COPY FROM-&D,TO-PRTPCH,LIBRARY-S,NAME-$CGSET 18070000
*¢// COPY FROM-&D,TO-PRINT,LIBRARY-S,NAME-$CGEND 18080000
.CL530 ANOP 18090000
*¢// END 18100000
.* 18110000
AIF (&CL EQ '1').CL700 . SKIP IF CARD GENERATION. 18120000
*¢// CEND 18130000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 18140000
.* 18150000
.* BUILD THE PROCEDURE THAT WILL PERFORM CCP GENERATION PASS 2. 18160000
.* 18170000
*¢// COPY NAME-$CCPSA,LIBRARY-P 18180000
*** PERFORM CCP GENERATION PASS 2 *** 18190000
* 18200000
*¢// CALL $CC1FC,&DIUNIT *** ASSEMBLE $CC1FC 18210000
*¢// CALL $CC1LC,&DIUNIT *** CREATE R-MODULE $CC1FC 18220000
*¢// CALL $CC1#1,&DIUNIT *** EXPAND $CC4#1 MOCROS 18230000
*¢// CALL $CC1#A,&DIUNIT *** ASSEMBLE $CC4#1 18240000
*¢// CALL $CC1L1,&DIUNIT *** CREATE $CC4#1 18250000
*¢// CALL $CC1VT,&DIUNIT *** EXPAND $CC4VT MACROS 18260000
*¢// CALL $CC1VS,&DIUNIT *** ASSEMBLEC$CC4VT 18270000
*¢// CALL $CC1#2,&DIUNIT *** EXPAND $CC4#2 MACROS 18280000
*¢// CALL $CC1#B,&DIUNIT *** ASSEMBLE $CC4#2 18290000
*¢// CALL $CC1LE,&DIUNIT *** CREATE $CC4#2 18300000
AIF (&BSC EQ '0').CL550 . SKIP IF BSCA NOT SUPPORTED 18310000
*¢// CALL $CC1BT,&DIUNIT *** CREATE BSCA TRACE MODULE 18320000
.CL550 ANOP 18330000
AIF (&MLA EQ '0').CL560 . SKIP IF MLTA NOT SUPPORTED 18340000
*¢// CALL $CC1MT,&DIUNIT *** CREATE MLTA TRACE MODULE 18350000
.CL560 ANOP 18360000
*¢// CALL $CC1C1,&DIUNIT *** COPY REQUIRED CCP MODULES 18370000
AIF (&MLA EQ '0').CL565 . SKIP IF MLTA NOT SUPPORTED 18380000
*¢// CALL $CC1C2,&DIUNIT *** COPY REQUIRED CCP MODULES 18390000
.CL565 ANOP 18400000
*¢// CALL $CC1C3,&DIUNIT *** COPY REQUIRED CCP MODULES 18410000
AIF (&UPW NE '1').CL570 . SKIP IF NOT SECURE-USER 18420000
*¢// CALL $CC1US,&DIUNIT *** ASSEMBLE USER SECURITY 18430000
*¢// CALL $CC1UL,&DIUNIT *** CREATE USER SECURITY $CC4Z9 18440000
.CL570 ANOP 18450000
*¢// CALL $CC1BF,&DIUNIT *** CREATE $CCPFILE 18460000
AIF ('&PLG'(1,1) NE '1').CL580 . SKIP IF NO COBOL 18470000
*¢// CALL $CC1CO,&DIUNIT *** COPY COBOL MODULES 18480000
.CL580 ANOP 18490000
AIF ('&PLG'(2,1) NE '1').CL590 . SKIP IF NO FORTRAN 18500000
*¢// CALL $CC1FT,&DIUNIT *** COPY FORTRAN MODULES 18510000
.CL590 ANOP 18520000
AIF ('&PLG'(3,1) NE '1').CL600 . SKIP IF NO ASSEM 18530000
*¢// CALL $CC1AS,&DIUNIT *** COPY ASSEMBLER MODULES 18540000
.CL600 ANOP 18550000
AIF ('&PLG'(4,1) NE '1').CL610 . SKIP IF NO RPG SUPPORT 18560000
*¢// CALL $CC1RG,&DIUNIT *** COPY RPGII MODULES 18570000
.CL610 ANOP 18580000
*¢// CALL $CC1ND,&DIUNIT *** COPY SAMPLE ASSIGNMENT 18590000
*¢// CEND 18600000
*¢// END 18610000
.CL700 ANOP . CONTINUE HERE. 18620000
*?? *** END OF PASS 1 OUTPUT *** 18630000
MEND 18640000