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