|
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: 99568 (0x184f0)
Types: s3xseg
Names: »S$EGEN«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EGEN«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EGEN SYS/3 MOD 15...5704-SC2-2 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 5, 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
.* . DPUNIT-D1/D2/D3/D31/D32/D33/D34/D4/D41/D42/D43/D44 * 00590700
.* * 00591400
.* SPECIFIES UNIT ON WHICH IS LOCATED THE $CCPDUMP FILE. * 00592100
.* THE DEFAULT IS D2. * 00592800
.* * 00593500
.* . DPPACK-NAME * 00594200
.* * 00594900
.* SPECIFIES THE PACK NAME THAT CORRESPONDS TO THE UNIT OF * 00595600
.* $CCPDUMP. THE DEFAULT IS D2D2D2. * 00596300
.* * 00597000
.* * 00597700
.* * 00598400
.********************************************************************** 00600000
$EGEN &DSUNIT-,&CCUNIT-,&WKUNIT-,&WKPACK-,&DIUNIT-,&MINRES-NO, X00610000
&CARD-YES,&DPUNIT-D2,&DPPACK-D2D2D2 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
GBLB &FROC . BOOLEAN--FROM RESOPN-YES/NO 00943000
.* . 1=YES / 0=NO 00946000
GBLB &FPBSY . BOOLEAN--FROM PTRBSY-YES/NO 00946100
.* . 1=YES / 0=NO 00946200
GBLB &FSIO . BOOLEAN--FROM SIOC-YES/NO 00946300
.* . 1=YES / 0=NO 00946400
GBLB &FMOVT . BOOLEAN--FROM MOVTNT-YES/NO 00946500
.* . 1=YES / 0=NO 00946600
GBLB &FMOV . BOOLEAN--FROM MOVDFF-YES/NO 00946700
.* 1=YES / 0=NO 00946800
GBLB &FRPR . BOOLEAN--FROM RESREQ-YES/NO 00946900
.* 1=YES / 0=NO 00947000
GBLB &FORUF . BOOLEAN--FROM OPPRUF-YES/NO 00947100
.* 1=YES / 0=NO 00947200
GBLB &FCPUM . BOOLEAN--FROM CPUMSG-YES/NO 00947300
.* 1=YES / 0=NO 00947400
GBLC &FPFK . CHARACTER--FROM LOWCAS- 00947500
.* NO=X'FF' 00947600
.* PF1=1 00947700
.* PF2=2 00947800
.* PF3=3 00947900
.* PF4=4 00948000
.* PF5=5 00948100
.* PF6=6 00948200
.* PF7=7 00948300
.* PF8=8 00948400
.* PF9=9 00948500
.* PF10=; 00948600
.* PF11=# 00948700
.* PF12=@ 00948800
.* 00950000
GBLB &FTTSK . BOOLEAN -- TASK-TO-TASK 00952000
.* . SUPPORT 00954000
.* . 1=SUPPORT, 0=NOT 00956000
.* 00958000
.*--------- 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
.* . 96K=384 128K=512 01340000
.* . 160K=640 192K=768 01350000
.* . 224K=896 256K=1024 01360000
.* . 384K=1536 512K=2048 01370000
.* 01375000
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
.* 01431000
GBLA &DP . ARITHMATIC--NUMBER: DPTRAC-# 01432000
.* . 0 IF NOT SPECIFIED 01433000
.* 01434000
.* 01435000
.* 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
GBLB &BSPOR . BOOLEAN -- BSCA PORTLINE 02332000
.* . SUPPORT 02334000
.* . 1=SUPPORT, 0=NOT 02336000
.* 02338000
.*--------- 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-6) NOT USED 02460000
.* . (7) TASK-TO-TASK 02470000
.* . (8) BSCA PORTLINE 02470300
.* 02470400
.* 02470500
.*--------- GLOBAL VARIABLES FROM $ECSC ----------------------------* 02470600
.* 02470900
GBLB &CAIPL . BOOLEAN--INTERVAL POLLING 02471200
.* . 0=NOT / 1=SUPPORT (BSCC) 02471500
GBLA &MLC . ARITHMETIC--NUMBER: BSCC-# 02471800
.* . 0 IF STATEMENT NOT USED 02472100
.* 02472400
GBLC &MCFA . CHARACTER(8)--BSCC FEATURES 02472700
.* . '1' = SUPPORTED / '0' = NOT 02473000
.* . (1) GETMSG (5) RESERVED 02473300
.* . (2) ITB (6) EBCDIC 02473600
.* . (3) RECSEP-XX (7) ASCII 02473900
.* . (4) RESERVED (8) XPRNCY 02474200
.* 02474500
GBLC &CARSB . CHARACTER(2)--REC SEP CHAR (X) 02474800
.* 02475100
GBLB &BCPOR . BOOLEAN -- BSCC PORTLINE 02475120
.* . SUPPORT 02475140
.* . 1=SUPPORT, 0=NOT 02475160
.* 02475180
GBLB &BCCS . BOOLEAN -- BSCC CONTROL 02475200
.* . STATION SUPPORT 02475220
.* . 1=SUPPORT, 0=NOT 02475240
.* 02475260
GBLB &BCPP . BOOLEAN -- BSCC POINT-TO- 02475280
.* . POINT SUPPORT 02475300
.* . 1=SUPPORT, 0=NOT 02475320
.* 02475340
.*--------- GLOBAL VARIABLES FROM $ECSD ----------------------------* 02475400
.* 02475700
GBLC &CAD1 . CHARACTER(8)--BSCC DEVICES 02476000
.* . '1' = SUPPORTED / '0' = NOT 02476300
.* . (1) 3275M1 (5) 3275M2 02476600
.* . (2) 3277M1 (6) 3277M2 02476900
.* . (3) 3284M1 (7) 3284M2 02477200
.* . (4) 3286M1 (8) 3286M2 02477500
.* 02477800
GBLC &CAD2 . CHARACTER(8)--BSCC DEVICES 02478100
.* . '1' = SUPPORTED / '0' = NOT 02478400
.* . (1) 3735 (2) CPU 02478700
.* . (3) 3741 (4-7) NOT USED 02479000
.* . (8) BSCC PORTLINE 02479300
.* 02479600
.*--------- LOCAL VARIABLES WITHIN $EGEN ---------------------------* 02480000
.* 02490000
LCLC &C,&D,&DPU . CCUNIT,DIUNIT,DPUNIT RESP. 02500000
LCLC &XDPU . HEX EQUIVALENT OF DPUNIT 02505000
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
LCLC &DPPCK . PACK FOR $CCPDUMP 02575000
LCLA &ASIZE . SIZE OF ASSIGNMENT FILE 02580000
LCLA &DSIZE . SIZE OF $CCPDUMP FILE 02583000
LCLA &MSIZE . MIN. SIZE OF $CCPDUMP FILE 02586000
LCLC &# . FOR A SINGLE BLANK 02590000
LCLB &CL . CARD GENERATION 02600000
LCLC &W1 . WORK VARIABLE FOR BSCA 02602000
.* . DEVICE SUPPORT 02604000
LCLC &W2 . WORK VARIABLE FOR BSCC 02606000
.* . DEVICE SUPPORT 02608000
.* 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 &DPUNIT . $CCPDUMP UNIT 02850600
D1 TABDF D1 02851200
D2 TABDF D2 02851800
D3 TABDF D3 02852400
D31 TABDF D31 02853000
D32 TABDF D32 02853600
D33 TABDF D33 02854200
D34 TABDF D34 02854800
D4 TABDF D4 02855400
D41 TABDF D41 02856000
D42 TABDF D42 02856600
D43 TABDF D43 02857200
D44 TABDF D44 02857800
TABDF *** . INVALID PARAMETER 02858400
.* 02859000
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 4 . SET LEVEL OF CURRENT RELEASE 03030000
.* 03040000
.*--------- CHECK STATEMENT SEQUENCE -------------------------------* 03050000
.* 03060000
AIF (&SEQ LE '12').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 (&SEQ EQ '11').SEQOK . SKIP IF $ECSD LAST 03171000
AIF (&SEQ NE '8').SEQ2 . SKIP IF NOT $EBSC 03172000
AIF (&BSC EQ '0').SEQOK . OK IF BSCA-0 03173000
.SEQ2 ANOP 03174000
AIF (&SEQ NE '10').SEQER . ERROR IF NOT $ECSC 03175000
AIF (&MLC EQ '0').SEQOK . OK IF BSCC-0 03176000
.* 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 GT '3').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 GT '11').WUERR . SKIP IF GT 11 CHARS 03810000
&N1 SETA 3 . ASSUME 1ST COMMA IN 3RD LOC. 03820000
&N2 SETA 6 . ASSUME 2ND COMMA IN 6TH LOC. 03830000
AIF ('&WKUNIT'(3,1) EQ ',').WU4 . FOUND 1ST COMMA, CHECK 03840000
.* . FOR SECOND 03850000
AIF ('&WKUNIT'(4,1) NE ',').WUERR . SKIP IF NOT COMMA 03860000
&N1 SETA 4 . RESET 1ST AND 2ND 03870000
&N2 SETA 7 . COMMA LOCATIONS 03880000
.* 03890000
.WU4 ANOP . CONTINUE 03900000
AIF ('&WKUNIT'(&N2,1) EQ ',').WUSET . FOUND 2ND COMMA, SET 03910000
.* . WKUNITS 03920000
&N2 SETA &N2+1 . BUMP 2ND COMMA POINTER 03930000
AIF ('&WKUNIT'(&N2,1) NE ',').WUERR . SKIP IF 2ND COMMA NOT 03940000
.* . FOUND 03950000
.WUSET ANOP . SET WKUNIT VALUES 03960000
&UWSRC SETC '&WKUNIT'(1,&N1-1) . SET $SOURCE FILE UNIT 03970000
&UWWRK SETC '&WKUNIT'(&N1+1,&N2-&N1-1) . SET $WORK FILE UNIT 03980000
&UWWK2 SETC '&WKUNIT'(&N2+1,&N-&N2) . SET $WORK2 FILE UNIT 03990000
.* 04000000
.WUCHK ANOP . CHECK THAT EACH UNIT IS VALID 04010000
AIF (&UWSRC EQ 'R1').WUCK2 04020000
AIF (&UWSRC EQ 'F1').WUCK2 04030000
AIF (&UWSRC EQ 'R2').WUCK2 04040000
AIF (&UWSRC EQ 'F2').WUCK2 04050000
AIF (&UWSRC EQ 'D1').WUCK2 04060000
AIF (&UWSRC EQ 'D2').WUCK2 04070000
AIF (&UWSRC EQ 'D3').WUCK2 04080000
AIF (&UWSRC EQ 'D31').WUCK2 04090000
AIF (&UWSRC EQ 'D32').WUCK2 04100000
AIF (&UWSRC EQ 'D33').WUCK2 04110000
AIF (&UWSRC EQ 'D34').WUCK2 04120000
AIF (&UWSRC EQ 'D4').WUCK2 04130000
AIF (&UWSRC EQ 'D41').WUCK2 04140000
AIF (&UWSRC EQ 'D42').WUCK2 04150000
AIF (&UWSRC EQ 'D43').WUCK2 04160000
AIF (&UWSRC EQ 'D44').WUCK2 04170000
AGO .WUERR . SKIP IF ERROR 04180000
.* 04190000
.WUCK2 ANOP 04200000
AIF (&UWWRK EQ 'R1').WUCK3 04210000
AIF (&UWWRK EQ 'F1').WUCK3 04220000
AIF (&UWWRK EQ 'R2').WUCK3 04230000
AIF (&UWWRK EQ 'F2').WUCK3 04240000
AIF (&UWWRK EQ 'D1').WUCK3 04250000
AIF (&UWWRK EQ 'D2').WUCK3 04260000
AIF (&UWWRK EQ 'D3').WUCK3 04270000
AIF (&UWWRK EQ 'D31').WUCK3 04280000
AIF (&UWWRK EQ 'D32').WUCK3 04290000
AIF (&UWWRK EQ 'D33').WUCK3 04300000
AIF (&UWWRK EQ 'D34').WUCK3 04310000
AIF (&UWWRK EQ 'D4').WUCK3 04320000
AIF (&UWWRK EQ 'D41').WUCK3 04330000
AIF (&UWWRK EQ 'D42').WUCK3 04340000
AIF (&UWWRK EQ 'D43').WUCK3 04350000
AIF (&UWWRK EQ 'D44').WUCK3 04360000
AGO .WUERR . SKIP IF ERROR 04370000
.* 04380000
.WUCK3 ANOP 04390000
AIF (&UWWK2 EQ 'R1').WUEND 04400000
AIF (&UWWK2 EQ 'F1').WUEND 04410000
AIF (&UWWK2 EQ 'R2').WUEND 04420000
AIF (&UWWK2 EQ 'F2').WUEND 04430000
AIF (&UWWK2 EQ 'D1').WUEND 04440000
AIF (&UWWK2 EQ 'D2').WUEND 04450000
AIF (&UWWK2 EQ 'D3').WUEND 04460000
AIF (&UWWK2 EQ 'D31').WUEND 04470000
AIF (&UWWK2 EQ 'D32').WUEND 04480000
AIF (&UWWK2 EQ 'D33').WUEND 04490000
AIF (&UWWK2 EQ 'D34').WUEND 04500000
AIF (&UWWK2 EQ 'D4').WUEND 04510000
AIF (&UWWK2 EQ 'D41').WUEND 04520000
AIF (&UWWK2 EQ 'D42').WUEND 04530000
AIF (&UWWK2 EQ 'D43').WUEND 04540000
AIF (&UWWK2 EQ 'D44').WUEND 04550000
.* 04560000
.WUERR ANOP 04570000
*!635E INVALID 'WKUNIT' PARAMETER -- MUST BE R1/F1/R2/F2/D1/D2/D3, 04580000
*!635E -- D31/D32/D33/D34/D4/D41/D42/, 04590000
*!635E -- D43/D44 OR SERIES OF THREE. 04600000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04610000
.* 04620000
.WUEND ANOP . END OPERAND 'WKUNIT' 04630000
.* 04640000
.*--------- WKPACK-NAME/'NAME1,NAME2,NAME3' ------------------------* 04650000
.* 04660000
AIF (T'&WKPACK NE 'O').WPYES . SKIP IF WKPACK SPECIFIED 04670000
.* 04680000
*!640E MISSING 'WKPACK' OPERAND -- MUST BE SPECIFIED 04690000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04700000
AGO .WPEND 04710000
.* 04720000
.WPYES ANOP . WKPACK SPECIFIED 04730000
&N SETA K'&WKPACK . LENGTH OF PARAMETER 04740000
AIF (&N GT '20').WPERR . ERROR IF GT 20 CHARACTERS 04750000
.* 04760000
&N1 SETA 1 . INITIALIZE BASE POINTER 04770000
&N2 SETA &N1 . SET RUNNING POINTER 04780000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . ERR IF 1ST CHAR COMMA 04790000
.* 04800000
&N2 SETA &N2+1 . ADVANCE POINTER 04810000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04820000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 2ND CHAR 04830000
&N2 SETA &N2+1 . ADVANCE POINTER 04840000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04850000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 3RD CHAR 04860000
&N2 SETA &N2+1 . ADVANCE POINTER 04870000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04880000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 4TH CHAR 04890000
&N2 SETA &N2+1 . ADVANCE POINTER 04900000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04910000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 5TH CHAR 04920000
&N2 SETA &N2+1 . ADVANCE POINTER 04930000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04940000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 6TH CHAR 04950000
&N2 SETA &N2+1 . ADVANCE POINTER 04960000
AIF (&N2 GT &N).WP11 . SKIP IF END-OF-VALUE 04970000
AIF ('&WKPACK'(&N2,1) EQ ',').WP1 . 7TH CHAR 04980000
AIF (&N GE &N2).WPERR . ERROR IF 1 NAME GT 6 CHARS 04990000
.* 05000000
.WP11 ANOP . ONLY ONE NAME GIVEN. 05010000
&PWSRC SETC '&WKPACK' . ONE NAME FOR $SOURCE 05020000
&PWWRK SETC '&WKPACK' . SAME NAME FOR $WORK 05030000
&PWWK2 SETC '&WKPACK' . SAME NAME FOR $WORK2 05040000
AGO .WPEND . FINISHED THE OPERAND 05050000
.* 05060000
.WP1 ANOP . END OF SUBPARAMETER #1 05070000
&N3 SETA &N2-&N1 . LENGTH OF SUBPARAMETER 05080000
&PWSRC SETC '&WKPACK'(&N1,&N3) . SET SUBPARAMETER #1 05090000
.* 05100000
AIF (&N EQ &N2).WPERR . ERROR IF COMMA LAST 05110000
&N1 SETA &N2+1 . RESET BASE POINTER 05120000
&N2 SETA &N1 . RESET RUNNING POINTER 05130000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . ERR IF 1ST CHAR COMMA 05140000
.* 05150000
&N2 SETA &N2+1 . ADVANCE POINTER 05160000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 2ND CHAR 05170000
&N2 SETA &N2+1 . ADVANCE POINTER 05180000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 3RD CHAR 05190000
&N2 SETA &N2+1 . ADVANCE POINTER 05200000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 4TH CHAR 05210000
&N2 SETA &N2+1 . ADVANCE POINTER 05220000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 5TH CHAR 05230000
&N2 SETA &N2+1 . ADVANCE POINTER 05240000
AIF ('&WKPACK'(&N2,1) EQ ',').WP2 . 6TH CHAR 05250000
&N2 SETA &N2+1 . ADVANCE POINTER 05260000
AIF ('&WKPACK'(&N2,1) NE ',').WPERR . ERR IF NAME GT 6 CHARS 05270000
.* 05280000
.WP2 ANOP . END OF SUBPARAMETER #2 05290000
&N3 SETA &N2-&N1 . LENGTH OF SUBPARAMETER 05300000
&PWWRK SETC '&WKPACK'(&N1,&N3) . SET SUBPARAMETER #2 05310000
.* 05320000
AIF (&N EQ &N2).WPERR . ERROR IF COMMA LAST 05330000
&N1 SETA &N2+1 . RESET BASE POINTER 05340000
&N2 SETA &N1 . RESET RUNNING POINTER 05350000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . ERR IF 1ST CHAR COMMA 05360000
.* 05370000
&N2 SETA &N2+1 . ADVANCE POINTER 05380000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05390000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 2ND CHAR--ERR IF COMMA 05400000
&N2 SETA &N2+1 . ADVANCE POINTER 05410000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05420000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 3RD CHAR--ERR IF COMMA 05430000
&N2 SETA &N2+1 . ADVANCE POINTER 05440000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05450000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 4TH CHAR--ERR IF COMMA 05460000
&N2 SETA &N2+1 . ADVANCE POINTER 05470000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05480000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 5TH CHAR--ERR IF COMMA 05490000
&N2 SETA &N2+1 . ADVANCE POINTER 05500000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05510000
AIF ('&WKPACK'(&N2,1) EQ ',').WPERR . 6TH CHAR--ERR IF COMMA 05520000
&N2 SETA &N2+1 . ADVANCE POINTER 05530000
AIF (&N2 GT &N).WP3 . SKIP IF END-OF-STRING 05540000
AGO .WPERR . ERR IF NAME GT 6 CHARS 05550000
.* 05560000
.WP3 ANOP . END OF SUBPARAMETER #3 05570000
&N3 SETA &N2-&N1 . LENGTH OF SUBPARAMETER #3 05580000
&PWWK2 SETC '&WKPACK'(&N1,&N3) . SET SUBPARAMETER #3 05590000
AGO .WPEND 05600000
.* 05610000
.WPERR ANOP . ERR IN WKPACK PARAMETER 05620000
*!645E INVALID 'WKPACK' PARAMETER--MUST BE 1-6 CHAR NAME OR SERIES OF 3 05630000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05640000
.* 05650000
.WPEND ANOP . END OPERAND 'WKPACK' 05660000
.* 05670000
.*--------- DETERMINE NO MISMATCH OF WKUNIT/WKPACK -----------------* 05680000
.* 05690000
.WK1 ANOP . CHECK $SOURCE/$WORK 05700000
AIF (&UWSRC EQ '').WKEND . SKIP IF NOT VALIDLY SPECIFIED 05710000
AIF (&PWWK2 EQ '').WKEND . SKIP IF NOT VALIDLY SPECIFIED 05720000
.* 05730000
&C1 SETC '&UWSRC' 05740000
AIF (&UWSRC NE &UWWRK).WK2 05750000
AIF (&PWSRC EQ &PWWRK).WK2 05760000
.* 05770000
*!637E WKUNIT/WKPACK ERROR -- PACKS &PWSRC AND &PWWRK BOTH ON UNIT &C1 05780000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05790000
AGO .WKEND 05800000
.* 05810000
.WK2 ANOP . CHECK $SOURCE/$WORK2 05820000
AIF (&UWSRC NE &UWWK2).WK3 05830000
AIF (&PWSRC EQ &PWWK2).WK3 05840000
.* 05850000
*!637E WKUNIT/WKPACK ERROR -- PACKS &PWSRC AND &PWWK2 BOTH ON UNIT &C1 05860000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05870000
AGO .WKEND 05880000
.* 05890000
.WK3 ANOP . CHECK $WORK/$WORK2 05900000
&C1 SETC '&UWWRK' 05910000
.* 05920000
AIF (&UWWRK NE &UWWK2).WKEND 05930000
AIF (&PWWRK EQ &PWWK2).WKEND 05940000
.* 05950000
*!637E WKUNIT/WKPACK ERROR -- PACKS &PWWRK AND &PWWK2 BOTH ON UNIT &C1 05960000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 05970000
.* 05980000
.WKEND ANOP . END OPERAND 'WKPACK' 05990000
.* 06000000
.*--------- DIUNIT-R1/F1/R2/F2 -------------------------------------* 06010000
.* 06020000
AIF (&DIUNIT NE '??').DIYES . SKIP IF DIUNIT SPECIFIED 06030000
.* 06040000
*!650E MISSING 'DIUNIT' OPERAND -- MUST BE SPECIFIED 06050000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06060000
AGO .DIEND 06070000
.* 06080000
.DIYES ANOP . DIUNIT SPECIFIED 06090000
AIF (&DIUNIT NE '**').DIOK . SKIP IF VALID PARAMETER 06100000
.* 06110000
*!655E INVALID 'DIUNIT' PARAMETER -- MUST BE R1/F1/R2/F2 06120000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06130000
AGO .DIEND 06140000
.* 06150000
.DIOK ANOP . VALID PARAMETER 06160000
&D SETC '&DIUNIT' 06170000
.* 06180000
.*--------- CHECK CONFLICTS OF DIUNIT WITH CCUNIT AND PPUNITS ------* 06190000
.* 06200000
AIF (&CCUNIT NE &DIUNIT).DI2 . SKIP IF NO CCUNIT CONFLICT 06210000
.* 06220000
*!660E 'CCUNIT' SAME AS 'DIUNIT' -- NOT PERMITTED 06230000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06240000
.* 06250000
.DI2 ANOP 06260000
AIF (&DIUNIT EQ &UPCBL).DIUPX . IF MISMATCH WITH COBOL UNIT 06270000
AIF (&DIUNIT EQ &UPRPG).DIUPX . IF MISMATCH WITH RPG UNIT 06280000
AIF (&DIUNIT EQ &UPFOR).DIUPX . IF MISMATCH WITH FORTRAN UNIT 06290000
AIF (&DIUNIT NE &UPASM).DIEND . UNLESS MISMATCH WITH ASSEM 06300000
.* 06310000
.DIUPX ANOP 06320000
*!665E 'PPUNIT' FROM $EPLG STATEMENT SAME AS 'DIUNIT' -- NOT PERMITTED 06330000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06340000
.* 06350000
.DIEND ANOP . END OPERAND 'DIUNIT' 06360000
.* 06370000
.*--------- MINRES-YES/Y/NO/N (YES=1, NO=0) ------------------------* 06380000
.* 06390000
AIF (&MINRES NE '*').MROK . SKIP IF VALID PARAMETER 06400000
.* 06410000
*!670E INVALID 'MINRES' PARAMETER -- MUST BE YES/Y/NO/N 06420000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06430000
AGO .MREND 06440000
.* 06450000
.MROK ANOP . VALID PARAMETER 06460000
AIF (&MINRES NE '1').MREND . SKIP IF MINRES-NO 06470000
.* 06480000
&MIN SETB 1 . MINRES-YES 06490000
.MREND ANOP . END MINRES 06500000
.* 06510000
.*--------- CARD-YES/Y/NO/N (YES=1, NO=0) ------------------------* 06520000
.* 06530000
AIF (&CARD NE '*').CLOK . SKIP IF VALID PARAMETER 06540000
.* 06550000
*!680E INVALID 'CARD' PARAMETER -- MUST BE YES/Y/NO/N 06560000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06570000
AGO .CLEND 06580000
.* 06590000
.CLOK ANOP . VALID PARAMETER 06600000
AIF (&CARD EQ '0').CLEND . SKIP IF CARD-NO 06610000
.* 06620000
&CL SETB 1 . CARD-YES 06630000
.CLEND ANOP . END 'CARD' 06640000
.* 06650000
.* 06650100
.*--------DPUNIT-D1/D2/D3/D31/D32/D33/D34/D4/D41/D42/D43/D44----------* 06650200
.* 06650300
AIF (&DPUNIT NE '***').DPOK . SKIP IF VALID PARAMETER 06650400
.* 06650500
*!632E INVALID 'DPUNIT' PARAMETER -- MUST BE D1/D2/D3/D31/D32/D33/D34 06650600
*!632E D4/D41/D42/D43/D44 06650700
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06650800
AGO .DPEND 06650900
.* 06651000
.DPOK ANOP . VALID PARAMETER 06651100
&DPU SETC '&DPUNIT' . SET $CCPDUMP UNIT 06651200
.* 06651300
.DPD1 ANOP . CONTINUE 06651400
AIF (&DPU NE 'D1').DPD2 06651500
&XDPU SETC 'C0' . SET Q-BYTE 06651600
AGO .DPEND 06651700
.* 06651800
.DPD2 ANOP . CONTINUE 06651900
AIF (&DPU NE 'D2').DPD3 06652000
&XDPU SETC 'C8' . SET Q-BYTE 06652100
AGO .DPEND .CONTINUE 06652200
.* 06652300
.DPD3 ANOP . CONTINUE 06652400
AIF (&DPU NE 'D3').DPD31 06652500
&XDPU SETC 'D0' . SET Q-BYTE 06652600
AGO .DPEND 06652700
.* 06652800
.DPD31 ANOP . CONTINUE 06652900
AIF (&DPU NE 'D31').DPD32 06653000
&XDPU SETC 'D0' . SET Q-BYTE 06653100
AGO .DPEND 06653200
.* 06653300
.DPD32 ANOP . CONTINUE 06653400
AIF (&DPU NE 'D32').DPD33 06653500
&XDPU SETC 'D1' . SET Q-BYTE 06653600
AGO .DPEND 06653700
.* 06653800
.DPD33 ANOP . CONTINUE 06653900
AIF (&DPU NE 'D33').DPD34 06654000
&XDPU SETC 'D2' . SET Q-BYTE 06654100
AGO .DPEND 06654200
.* 06654300
.DPD34 ANOP . CONTINUE 06654400
AIF (&DPU NE 'D34').DPD4 06654500
&XDPU SETC 'D3' . SET Q-BYTE 06654600
AGO .DPEND 06654700
.* 06654800
.DPD4 ANOP . CONTINUE 06654900
AIF (&DPU NE 'D4').DPD41 06655000
&XDPU SETC 'D8' . SET Q-BYTE 06655100
AGO .DPEND 06655200
.* 06655300
.DPD41 ANOP . CONTINUE 06655400
AIF (&DPU NE 'D41').DPD42 06655500
&XDPU SETC 'D8' . SET Q-BYTE 06655600
AGO .DPEND 06655700
.* 06655800
.DPD42 ANOP . CONTINUE 06655900
AIF (&DPU NE 'D42').DPD43 06656000
&XDPU SETC 'D9' . SET Q-BYTE 06656100
AGO .DPEND 06656200
.* 06656300
.DPD43 ANOP . CONTINUE 06656400
AIF (&DPU NE 'D43').DPD44 06656500
&XDPU SETC 'DA' . SET Q-BYTE 06656600
AGO .DPEND 06656700
.* 06656800
.DPD44 ANOP . ASSUME D44 IF NOT OTHERS 06656900
&XDPU SETC 'DB' . SET Q-BYTE 06657000
.* 06657100
.DPEND ANOP 06657200
.* 06657300
AIF (&DP NE '0').DQEND . SKIP IF TRACE TRACKS NOT '0' 06657400
AIF (&DMP NE '0').DQEND . SKIP IF DUMPS NOT '0' 06657500
&XDPU SETC '00' . SET Q BYTE TO '00' WHEN DUMPS 06657600
.* 06657700
.DQEND ANOP 06657800
.* 06657900
.*------------------- DPPACK-NAME ----------------------------------* 06658000
.* 06658100
&N SETA K'&DPPACK . LENGTH OF PARAMETER 06658200
AIF (&N GT '6').DPERR . ERROR IF GT 6 CHARACTERS 06658300
&DPPCK SETC '&DPPACK' . SET PACK CHARACTER STRING 06658400
AGO .DPEN . CONTINUE 06658500
.* 06658600
.DPERR ANOP 06658700
.* 06658800
*!633E INVALID 'DPPACK' PARAMETER -- MUST NOT BE MORE THAN 6 CHARACTERS 06658900
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06659000
.DPEN ANOP . CONTINUE 06659100
.* 06659200
.* 06659300
.*--------- CHECK CONFLICTS IN SUPPORT REQUESTED -------------------* 06660000
.* 06670000
AIF (&MLA NE '0').XX1 . SKIP IF MLTA SPECIFIED 06680000
AIF (&BSC NE '0').XX1 . SKIP IF BSCA SPECIFIED 06690000
AIF (&MLC NE '0').XX1 . SKIP IF MLCA SPECIFIED 06695000
.* 06700000
*!700E NO MLTA,BSCA, OR BSCC SUPPORT SPECIFIED -- AT LEAST ONE REQUIRED 06710000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06720000
.* 06730000
.XX1 ANOP . CHECK FOR DFF W/O GETMSG 06740000
AIF (&FDFF NE '1').XX3 . SKIP IF NO DFF REQUESTED 06750000
AIF ('&BFA'(1,1) EQ '1').XX2 . SKIP IF FORMAT *AND* GETMSG 06760000
AIF ('&MCFA'(1,1) EQ '1').XX2 . SKIP IF FORMAT *AND* GETMSG 06765000
.* 06770000
*!705E FORMAT-YES SPECIFIED IN $EFAC REQUIRES GETMSG-YES IN $EBSC 06780000
*!705E OR $ECSC 06785000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06790000
.* 06800000
.XX2 ANOP . CHECK DFF AGAINST 3270 DEVICE 06810000
AIF (&BD1 GT '00000000').XX3 . SKIP UNLESS DFF, NO 3270 06820000
AIF (&CAD1 GT '00000000').XX3 . SKIP UNLESS DFF, NO 3270 06825000
.* 06830000
*!715E FORMAT-YES IN $EFAC REQUIRES 3270 DISPLAY DEVICE IN $EBSD 06840000
*!715E OR $ECSD 06845000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06850000
.* 06860000
.XX3 ANOP . CHECK 'PRUF' SUPPORT. 06870000
AIF (&FRUF NE '1').XX33 . SKIP IF NO PRUF REQUESTED 06880000
AIF ('&BFA'(1,1) EQ '1').XX22 . SKIP IF PRUF *AND* GETMSG 06890000
AIF ('&MCFA'(1,1) EQ '1').XX22 . SKIP IF PRUF *AND* GETMSG 06895000
.* 06900000
*!706E PRUF-YES SPECIFIED IN $EFAC REQUIRES GETMSG-YES IN $EBSC 06910000
*!706E OR $ECSC 06915000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06920000
.* 06930000
.XX22 ANOP . CHECK PRUF AGAINST 3270 DEVICE 06940000
AIF (&BD1 GT '00000000').XX33 . SKIP UNLESS DFF, NO 3270 06950000
AIF (&CAD1 GT '00000000').XX33 . SKIP UNLESS DFF, NO 3270 06955000
.* 06960000
*!716E PRUF-YES IN $EFAC REQUIRES 3270 DISPLAY DEVICE IN $EBSD 06970000
*!716E OR $ECSD 06975000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 06980000
.* 06990000
.XX33 ANOP . CHECK FOR DFF W/O GETMSG 06995000
.XX77 ANOP . CHECK AT LEAST ONE PGM LANG 07000000
AIF (&PLG NE '0000').XX4 . SKIP IF AT LEAST 1 07010000
.* 07020000
*!710E NO PROGRAMMING LANGUAGE SUPPORTED -- AT LEAST ONE REQUIRED 07030000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 07040000
.XX4 ANOP 07050000
AIF ('&BD2'(2,1) EQ '1').XX44 . SKIP IF TYPE-CPU IN $EBSD 07051000
AIF ('&BFA'(5,1) NE '1').XX44 . SKIP IF AUTORS-NO IN $EBSC 07052000
.* 07053000
*!717E AUTORS-YES IN $EBSC REQUIRES TYPE-CPU IN A $EBSD 07054000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 07055000
.* 07056000
.XX44 ANOP 07057000
.* 07060000
.*--------- SET STATEMENT SEQUENCE AND EXIT IF ERRORS --------------* 07070000
.* 07080000
&SEQ SETA 13 . INDICATE $EGEN PROCESSED 07090000
AIF (&TERR NE '1').NOERR . SKIP IF *NO* ERRORS 07100000
.* 07110000
*? *** THIS RECORD INDICATES TO $CC1PP THAT $EGEN WAS PROCESSED *** 07120000
MEXIT . EXIT NOW IF *ERRORS* 07130000
.* 07140000
.NOERR ANOP . NO ERRORS -- PROCEED 07150000
.* 07160000
.*--------- HOUSEKEEP FOR UNSPECIFIED INFORMATION ------------------* 07170000
.* 07180000
&W1 SETC '' . NULL OUT BSCA WORK VARIABLE 07180500
&W2 SETC '' . NULL OUT BSCC WORK VARIABLE 07181000
&W1 SETC '&BD2'(1,4) . MOVE IN BSCA DEVICE SUPPORT 07181500
&W1 SETC '&W1.00' . ZERO OUT THE NEXT 2 POSITIONS 07182000
&W1 SETC '&W1&FTTSK' . ADD TASK-TO-TASK SUPPORT 07182500
.* . 1=YES / 0=NO 07183000
&W1 SETC '&W1&BSPOR' . ADD BSCA PORTLINE SUPPORT 07183500
.* . 1=YES/0=NO 07184000
&BD2 SETC '&W1' . PLACE WORK VARIABLE BACK 07184500
.* . IN BSCA BYTE 2 07185000
&W2 SETC '&CAD2'(1,4) . MOVE IN BSCC DEVICE SUPPORT 07185500
&W2 SETC '&W2.000' . ZERO OUT THE NEXT 3 POSITIONS 07186000
&W2 SETC '&W2&BCPOR' . ADD BSCC PORTLINE SUPPORT 07186500
.* . 1=YES/0=NO 07187000
&CAD2 SETC '&W2' . PLACE WORK VARIABLE BACK 07187500
.* . BSCC BYTE 2 07188000
&# SETC ' ' . SINGLE BLANK 07190000
AIF (&BD1 NE '').HK010 . SKIP IF $EBSD SPECIFIED 07200000
.* 07210000
&BD1 SETC '00000000' . SET BSCA DEVICES BYTE 1 07220000
&BD2 SETC '000000' . SET BSCA DEVICES BYTE 2 07230000
&BD2 SETC '&BD2&FTTSK' . ADD TASK-TO-TASK SUPPORT 07232000
&BD2 SETC '&BD2.0' . ZERO OUT BIT INDICATING 07234000
.* . BSCA PORTLINE SUPPORT 07236000
&BFA SETC '00000000' . SET BSCA FACILITIES 07240000
&BLT SETC '0000' . SET BSCA LINE TYPES 07250000
&INPOL SETB 0 . SET NO INTERVAL POLLING 07260000
.* 07270000
.HK010 ANOP 07280000
AIF (&RSB NE '').HK015 . SKIP IF RECSEP BYTE KNOWN 07290000
.* 07300000
&RSB SETC '1E' . SET DEFAULT RECSEP BYTE 07310000
.* 07320000
.HK015 ANOP 07330000
AIF (&CAD1 NE '').HK017 . SKIP IF $ECAD SPECIFIED 07330600
.* 07331200
&CAD1 SETC '00000000' . SET MLCA DEVICES BYTE 1 07331800
&CAD2 SETC '00000000' . SET MLCA DEVICES BYTE 2 07332400
&MCFA SETC '00000000' . SET MLCA FACILITIES 07333000
&CAIPL SETB 0 . SET NO INTERVAL POLLING 07333600
.* 07334200
.HK017 ANOP 07334800
AIF (&CARSB NE '').HK018 . SKIP IF RECSEP BYTE KNOWN 07335400
.* 07336000
&CARSB SETC '1E' . SET DEFAULT RECSEP BYTE 07336600
.* 07337200
.HK018 ANOP 07337800
.* 07338400
AIF (&MD1 NE '').HK020 . SKIP IF $EMLD SPECIFIED 07340000
.* 07350000
&MD1 SETC '00000000' . SET MLTA DEVICES BYTE 1 07360000
&MD2 SETC '00000000' . SET MLTA DEVICES BYTE 2 07370000
&MD3 SETC '0000' . SET MLTA DEVICES BYTE 3 07380000
&MXC SETC '0000' . SET MLTA TRANSMISSION CODES 07390000
.* 07400000
.HK020 ANOP . END HOUSEKEEPING 07410000
.* 07420000
.*--------- DETERMINE THE SIZE REQUIRED FOR $CCPDUMP ---------------* 07420300
.* 07420600
&DSIZE SETA 1 . 1 RECORD FOR DIRECTORY 07420900
&DSIZE SETA (&DSIZE+(&DMP*(&COR+1))+47)/48 . ADD TRACKS FOR CORE DUMPS 07421200
&DSIZE SETA &DSIZE+&DP . ADD TRACKS FOR TRACE DUMPS 07421500
.* 07421800
AIF (&DSIZE LE '1').DPND . SKIP IF # OF TRACKS LE 1 07422100
.* 07422400
AIF (&DSIZE LE '3320').DP1 . SKIP IF # OF TRACKS LE 3320 07422700
&DSIZE SETA 3320 . SET TO 3320 TRACK MAXIMUM 07423000
.* 07423300
.DP1 ANOP . CONTINUE 07423600
.* 07423900
AIF (&DP GE '6').DTND . SKIP IF # OF TRACKS GT 5 07424200
&DP SETA 6 . SET TRACE TRACKS TO MIN. 07424500
.* 07424800
.DTND ANOP . CONTINUE 07425100
.* 07425400
&MSIZE SETA (&COR+49)/48+&DP . COMPUTE MIN SIZE FOR $CCPDUMP 07425700
AIF (&MSIZE LE &DSIZE).DPND . SKIP IF # OF TRACKS GT MINIMUM 07426000
&DSIZE SETA &MSIZE . DEFAULT TO MINIMUM SIZE 07426300
.* 07426600
.DPND ANOP . CONTINUE 07426900
.* 07427200
.* 07427500
.* 07427800
.*--------- DETERMINE THE SIZE REQUIRED FOR $CCPFILE ---------------* 07430000
.* 07440000
&ASIZE SETA 1 . SECTORS OF 1 SIT 07450000
&ASIZE SETA &ASIZE+(5*&NT+255)/256 . ADD SECTORS OF 1 TAT 07460000
&ASIZE SETA &ASIZE+(40*(&MLA+&BSC+&MLC)+255)/256 .ADD SEC'S OF 1 LCT 07470000
&ASIZE SETA &ASIZE+(18*&NT+255)/256 . ADD SECTORS OF 1 TUT 07480000
&ASIZE SETA &ASIZE+(22+11*&NT+255)/256 . ADD SECTORS OF 1 TNT 07490000
.* 07500000
AIF (&MFSW).AZSTT . SKIP IF SWITCHED LINES 07510000
AIF ('&BLT'(4,1) NE '1').AZNSW . SKIP IF *NO* SWITCHED LINES 07520000
.AZSTT ANOP . PERFORM IF SWITCHED LINES 07530000
&ASIZE SETA &ASIZE+(25*&NT+255)/256 . ADD SECTORS OF 1 STT 07540000
.* 07550000
.AZNSW ANOP . CONTINUE HERE 07560000
&ASIZE SETA &ASIZE+(20*&NDF+255)/256 . ADD SECTORS OF 1 FCT 07570000
&ASIZE SETA &ASIZE+(&NPM+4)/5 . ADD SECTORS OF 1 PCT 07580000
&ASIZE SETA (2+&NS*&ASIZE+23)/24 . HEADER+ASSIGNMENT **TRACKS** 07590000
.* 07602000
AIF (&ASIZE LE '400').AZCOM . SKIP IF # OF TRACKS LE 400 07604000
&ASIZE SETA 400 . SET TO 400 TRACK MAXIMUM 07606000
.* 07610000
.AZCOM ANOP . CONTINUE HERE 07620000
.AZEND ANOP . END DETERMINATION OF $CCPFILE 07630000
.* 07640000
.*--------- ASSURE THAT $CCPFILE WILL FIT IF TRKLOC SPECIFIED ------* 07650000
.* 07660000
&N SETA &TFIL+&ASIZE-1 . HIGHEST TRACK USED 07670000
AIF (&N LE '405').TRKOK . SKIP IF NOT BEYOND END 07680000
.* 07690000
&TFIL SETA 406-&ASIZE . SET NEW TRACK 07700000
*!775W TRACK LOCATION OF $CCPFILE CHANGED TO &TFIL BECAUSE OF FILE SIZE 07710000
.* 07720000
.TRKOK ANOP . END CHECK OF $CCPFILE TRKLOC 07730000
.* 07740000
.*--------- OUTPUT THE $CCPFILE ESTABLISHMENT GROUP ----------------* 07750000
.* 07760000
AIF (&CL EQ '1').CL10 . SKIP IF CARD GENERATION. 07770000
*¢// COPY NAME-$CC1FC,LIBRARY-P 07780000
.CL10 ANOP . CONTINUE HERE. 07790000
.* 07800000
* --- PREPARE THE INITIAL CONTENTS OF $CCPFILE --- 07810000
* 07820000
*** FIRST, USE THE SCP GENERATOR TO CONVERT THE CONTENTS OF THE 07830000
*** CCP CONFIGURATION RECORD AND THE ASSIGNMENT DIRECTORY TO ENCODED 07840000
*** FORM -- SAVE THIS ENCODED INFORMATION AS A RELOCATABLE MODULE 07850000
*** NAMED $CC1FC -- THE INFORMATION WILL LATER BE WRITTEN TO THE 07860000
*** FIRST TWO SECTORS OF $CCPFILE AS THE CCP CONFIGURATION RECORD 07870000
*** AND THE ASSIGNMENT SET DIRECTORY 07880000
* 07890000
*¢// NOHALT 07900000
*¢// LOAD $CGDRV,&DIUNIT 07910000
*¢// SWITCH 0XXXXXXX 07920000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S, 07930000
*¢// SHARE-NO 07940000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-5,RETAIN-S, 07950000
*¢// SHARE-NO 07960000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-5,RETAIN-S, 07970000
*¢// SHARE-NO 07980000
.* 07990000
AIF (&CL EQ '1').CL20 . SKIP IF CARD GENERATION. 08000000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1FC 08010000
*¢// RUN 08020000
*¢// CEND 08030000
*¢// COPY NAME-$CC1FC,LIBRARY-S 08040000
AGO .CL30 08050000
.CL20 ANOP . CONTINUE HERE. 08060000
*¢// RUN 08070000
.CL30 ANOP . CONTINUE HERE. 08080000
.* 08090000
$CC1FC TITLE 'CCP&#.CONFIGURATION&#.RECORD&#.AND&#.DIRECTORY' 08100000
$CC1FC START 0 MODULE NAME 08110000
EXTRN $CC1BF REFERENCE TO MODULE WHICH INITS 08120000
EJECT 08130000
*********************************************************************** 08140000
* C C P C O N F I G U R A T I O N R E C O R D * 08150000
*********************************************************************** 08160000
SPACE 2 08170000
* THIS SET OF 256 BYTES -- A SECTOR ON DISK -- INDICATES TO CCP THOSE 08180000
* DEVICES AND SYSTEM FACILITIES YOU SPECIFIED DURING CCP GENERATION 08190000
SPACE 1 08200000
CFGVRF DC XL2'EBD7' TWO BYTES *ALWAYS* HEX 'EBD7' 08210000
SPACE 1 08220000
CFGCA1 DC BL1'&MCFA' BSCC FACILITIES BYTE ONE 08221000
CFGCA2 DC BL1'&CAIPL.&BCPP.&BCCS.00000' FACILITIES BYTE TWO 08222000
CFGRSM DC XL1'&CARSB' RECORD SEPARATOR BYTE (BSCC) 08223000
CFGYD1 DC BL1'&CAD1' BSCC DEVICES--BYTE 1 08224000
CFGYD2 DC BL1'&CAD2' BSCC DEVICES--BYTE 2 08225000
CFGTP1 DC AL1(&MLC) NUMBER OF BSCC LINES 08226000
SPACE 1 08240000
CFGFA2 DC BL1'0&FPGC.0&CPW&UPW&FDME&FDFF&FRUF' FACILITIES--BYTE 2 08250000
CFGFLA DC BL1'&FROC.&FRPR.&FMOV.&FSIO.&FMOVT.000' CCP FLAG A 08255000
CFGDPQ DC XL1'&XDPU' Q-BYTE OF $CCPDUMP FILE 08260000
CFGPLG DC BL1'&PLG.0000' PROGRAMMING LANGUAGES SUPPORTED 08270000
SPACE 1 08280000
CFGCBO DC XL2'00C7' CONSOLE INTERRUPT BRANCH OFFSET 08290000
AIF (&FDME).CFDME . SKIP IF DME 08300000
CFGESC DC CL6'&#' *NO* DATA MODE ESCAPE STRING 08310000
AGO .CFCM1 . SKIP TO COMMON CODE 08320000
.CFDME ANOP . IF DME 08330000
CFGESC DC &X1DME&X2DME' . DATA MODE ESCAPE CHAR STRING 08340000
.CFCM1 ANOP 08350000
CFGLUS DC IL2'&LUS' LENGTH OF USER SECURITY DATA 08360000
CFGRV3 DC 4XL1'00' *RESERVED* 08370000
SPACE 1 08380000
CFGNS DC IL1'&NS' MAX NUMBER SETS 08390000
CFGNPM DC IL2'&NPM' MAX NUMBER PROGRAMS 08400000
CFGNDF DC IL1'&NDF' MAX NUMBER DISK FILES 08410000
CFGNT DC IL1'&NT' MAX NUMBER TERMINALS 08420000
CFGDMP DC IL1'&DMP' MAX NUMBER CORE DUMPS 08430000
CFGSC DC IL2'&COR' MEMORY # SECTORS (384-2048) 08440000
CFGRV4 DC 3XL1'00' *RESERVED* 08450000
SPACE 1 08460000
CFGTP DC AL1(16*&MLA+&BSC) NUMBER COMMUNICATIONS LINES 08470000
SPACE 1 08480000
CFGMD1 DC BL1'&MD1' MLTA DEVICES--BYTE 1 08490000
CFGMD2 DC BL1'&MD2' MLTA DEVICES--BYTE 2 08500000
CFGMD3 DC BL1'&MD3.0000' MLTA DEVICES--BYTE 3 08510000
CFGRV5 DC 2XL1'00' *RESERVED* 08520000
CFGMXC DC BL1'&MXC.000&MNOX' MLTA TRANSMISSION CODES 08530000
CFGRV6 DC 2XL1'00' *RESERVED* 08540000
SPACE 1 08550000
CFGBLT DC BL1'&BLT.0000' BSC LINE TYPES SUPPORTED 08560000
CFGBFA DC BL1'&BFA' BSC FACILITIES 08570000
CFGBF1 DC BL1'&INPOL.0000000' BSC FACILITIES CONTINUED 08580000
CFGRV7 DC 1XL1'00' *RESERVED* 08590000
CFGRSB DC XL1'&RSB' RECORD SEPARATOR BYTE (BSCA) 08600000
CFGBD1 DC BL1'&BD1' BSCA DEVICES--BYTE 1 08610000
CFGBD2 DC BL1'&BD2' BSCA DEVICES--BYTE 2 08620000
SPACE 1 08630000
SPACE 1 08635000
DC 203XL1'FF' FILLED WITH HEX 'FF' 08640000
EJECT 08650000
*********************************************************************** 08660000
* $ C C P F I L E D I R E C T O R Y * 08670000
*********************************************************************** 08680000
SPACE 2 08690000
* THIS SET OF 256 BYTES -- A SECOND SECTOR ON DISK -- SERVES AS A 08700000
* DIRECTORY TO THE CONTENTS OF THIS FILE FOR THE CCP ASSIGNMENT AND 08710000
* STARTUP PROGRAMS -- EACH FIELD IS INITIALLY ZERO 08720000
SPACE 1 08730000
DIRNSA DC IL1'0' CURRENT NUMBER ASSIGNMENT SETS 08740000
DIRRS1 DC IL2'0' * RESERVED * 08750000
DIRDAT DC XL3'000000' DATE LAST MODIFIED 08760000
DIRDID DC XL1'00' EXECUTION DEFAULT SET 08770000
DIRNFX DC XL1'00' *** UNUSED *** 08780000
DIRRS2 DC IL2'0' * RESERVED * 08790000
DIRRS3 DC IL1'0' * RESERVED * 08800000
DIRBD@ DC XL2'0000' LOCATION BEGIN DUMP AREA 08810000
DIRED@ DC XL2'0000' LOCATION END DUMP AREA 08820000
DIRRS5 DC XL2'0000' * RESERVED * 08830000
SPACE 1 08840000
* ASSIGNMENT SET DIRECTORY ENTRIES START HERE 08850000
SPACE 1 08860000
DC 239XL1'FF' INITIALLY UNUSED PORTION 08870000
SPACE 5 08880000
END $CC1FC 08890000
.* 08900000
AIF (&CL EQ '1').CL40 . SKIP IF CARD GENERATION. 08910000
*¢// CEND 08920000
*¢// COPY NAME-$CC1LC,LIBRARY-P 08930000
AGO .CL50 08940000
.CL40 ANOP . CONTINUE HERE. 08950000
*¢/* 08960000
.CL50 ANOP . CONTINUE HERE. 08970000
.* 08980000
*** USE THE OVERLAY LINKAGE EDITOR TO JOIN THE ABOVE MODULE WITH 08990000
*** ANOTHER MODULE CAPABLE OF WRITING THE INFORMATION TO $CCPFILE -- 09000000
*** SAVE THE RESULTING LOAD MODULE $CC1BF ON THE DISTRIBUTION PACK 09010000
*** FOR LATER INITIALIZATION OF $CCPFILE 09020000
* 09030000
*¢// LOAD $OLINK,&DSUNIT 09040000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S, 09050000
*¢// SHARE-NO 09060000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-10,RETAIN-S, 09070000
*¢// SHARE-NO 09080000
*¢// RUN 09090000
*¢// PHASE NAME-$CC1BF,UNIT-&DIUNIT,RETAIN-R,LINKADD-X'4000' 09100000
*¢// OPTIONS ENTRY-EXECBF,LEVEL-&LVL 09110000
*¢// INCLUDE NAME-'$CC1FC,$CC1BF',UNIT-&DIUNIT 09120000
*¢// END 09130000
.* 09140000
AIF (&CL EQ '1').CL70 . SKIP IF CARD GENERATION. 09150000
*¢// CEND 09160000
*¢// COPY NAME-$CC1#1,LIBRARY-P 09170000
.CL70 ANOP . CONTINUE HERE. 09180000
.* 09190000
.*--------- BUILD THE STRING THAT DETERMINES TRANSLATE SUPPORT -----* 09200000
.* 09210000
&C1 SETC '' . MAKE INITIALLY NULL 09220000
&C2 SETC '' . MAKE INITIALLY NULL 09230000
.* 09240000
.* CREATE THE FIRST MXL STRING 09250000
.* 09260000
&C3 SETC '&MXC'(3,1) . '1'=2740/1 PTTCBCD / '0'=NO 09270000
&C1 SETC '&C1&C3' 09280000
&C1 SETC '&C1&XM4E' 09290000
&C3 SETC '&MXC'(1,1) . '1'=CORR / '0'=NO 09300000
&C1 SETC '&C1&C3' 09310000
&C1 SETC '&C1&MT50' 09320000
&C1 SETC '&C1&XM4E' 09330000
&C3 SETC '&MXC'(1,1) . '1'=CORR / '0'=NO 09340000
&C1 SETC '&C1&C3' 09350000
&C3 SETC '&MXC'(3,1) . '1'=2740/1 PTTCBCD / '0'=NO 09360000
&C1 SETC '&C1&C3' 09370000
&C1 SETC '&C1&MT50' 09380000
.* 09390000
.* CREATE THE SECOND MXL STRING 09400000
.* 09410000
&C3 SETC '&MXC'(3,1) . '1'=2740/1 PTTCBCD / '0'=NO 09420000
&C2 SETC '&C2&C3' 09430000
&C2 SETC '&C2&XM4E' 09440000
&C3 SETC '&MXC'(1,1) . '1'=CORR / '0'=NO 09450000
&C2 SETC '&C2&C3' 09460000
&C2 SETC '&C2&MT50' 09470000
AIF ('&BFA'(8,1) NE '1').MXL00 . SKIP IF *NO* BSCA ASCII 09480000
.* 09490000
&C2 SETC '&C2.11' . INCLUDE ASCII SUPPORT 09500000
AGO .MXL99 09510000
.* 09520000
.MXL00 ANOP . *NO* ASCII SUPPORT 09530000
&C2 SETC '&C2.00' . EXCLUDE ASCII SUPPORT 09540000
.* 09550000
.MXL99 ANOP . END BUILD TRANSLATE LIST 09560000
.* 09570000
.*--------- OUTPUT THE RESIDENT MODULE CREATION GROUP --------------* 09580000
.* 09590000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 09600000
* --- CREATE THE EXECUTION STAGE RESIDENT MODULES --- 09610000
* 09620000
*** USE THE MACRO PROCESSOR TO EXPAND SOURCE CODE OF THE FIRST 09630000
*** OF THE RESIDENT MODULES - $CC4#1 09640000
* 09650000
*¢// LOAD $MPXDV,&DIUNIT 09660000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-130,RETAIN-T, 09670000
*¢// SHARE-NO 09680000
.* 09690000
AIF (&CL EQ '1').CL80 . SKIP IF CARD GENERATION. 09700000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1#1 09710000
*¢// RUN 09720000
*¢// CEND 09730000
*¢// COPY NAME-$CC1#1,LIBRARY-S 09740000
AGO .CL85 09750000
.CL80 ANOP . CONTINUE HERE. 09760000
*¢// RUN 09770000
.CL85 ANOP . CONTINUE HERE. 09780000
.* 09790000
$CC4#1 TITLE 'BEGIN&#.CCP&#.SYSTEM&#.CONTROL&#.MODULE' 09800000
$CC4#1 START X'4600' CCP SYSTEM CONTROL MODULE 09810000
$E000 #M-&MLA,#B-&BSC,DF-&FDFF,DE-&FDME,MS-&MIN,RF-&FRUF,RS-&FAI 09820000
$E001 PC-&FPGC,SO-&CPW&UPW,RR-&FRPR,MVT-&FMOVT,MOV-&FMOV 09830000
$E002 ML-&MFSC&MFSW,MT-&MT50&MT41&MFBR,MF-&MNOX,MS-&FCPUM 09840000
$E003 BL-&BLT,BF-&BFA,BT-&BD1&BD2,INP-&INPOL,BIA-&BIDA,BY-&FPBSY 09850000
$E004 CS#-&MLC,CSI-&CAIPL,CT-&CAD1&CAD2,CSF-&MCFA,SIOC-&FSIO 09855000
$E005 AP-&BSPOR,CP-&BCPOR,TK-&FTTSK,PP-&BCPP,CS-&BCCS 09857000
TITLE 'EQUATES&#.--&#.COMMON&#.VALUES' 09860000
$EEQU 09870000
TITLE 'EQUATES&#.--&#.CCP&#.COMMUNICATIONS&#.AREA' 09880000
$ECOM ID-0,DF-&FDFF 09890000
TITLE 'EQUATES&#.--&#.TASK&#.CONTROL&#.BLOCK' 09900000
$ETCB 09910000
TITLE 'EQUATES&#.--&#.FOR&#.PROGRAM&#.APPENDED&#.STORAGE' 09920000
$EPAS 09930000
TITLE 'EQUATES&#.--&#.FOR&#.SYSLOG' 09940000
$LOGD 09950000
TITLE 'EQUATES&#.--&#.FOR&#.SYSTEM&#.COMM&#.AREAS' 09960000
$EDSM RB-Y,SP-Y 09970000
TITLE 'EQUATES&#.--&#.TASK&#.COMPLETION&#.CODES' 09980000
$ETCC DF-&FDFF 09990000
TITLE 'EQUATES&#.--&#.COMMUNICATIONS&#.PARAMETER&#.LIST' 10000000
$ECPL 10010000
TITLE 'EQUATES&#.--&#.TERMINAL&#.ATTRIBUTES&#.SET' 10020000
$ETAS 10030000
TITLE 'EQUATES&#.--&#.TERMINAL&#.UNIT&#.BLOCK' 10040000
$ETUB 10050000
TITLE 'EQUATES&#.--&#.LINE&#.CONTROL&#.BLOCK' 10060000
$ELCB 10070000
.* 10080000
AIF (&FDFF NE '1').XDFF . SKIP IF NO DFF. 10140000
.* 10150000
TITLE 'EQUATES&#.--&#.DFF&#.--&#.TERMINATION&#.CODES' 10160000
$EDFT 10170000
TITLE 'EQUATES&#.--&#.FORMAT&#.TABLES' 10180000
$EFT 10190000
TITLE 'EQUATES&#.--&#.TERMINAL&#.TABLE' 10200000
$ETT 10210000
TITLE 'EQUATES&#.--&#.DFF&#.FDT' 10220000
$EFDT 10230000
TITLE 'EQUATES&#.--&#.DISK&#.IOB' 10240000
$EIOB 10250000
.* 10260000
.XDFF ANOP . CONTINUE HERE. 10270000
AIF (&MLA EQ '0').GEN10 SKIP IF NO MLTA. 10280000
.* 10290000
$DTOM AT1-Y,AT2-Y,CMP-Y,OPC-Y,OSC-Y,SNS-Y,TFT-Y 10300000
.* 10310000
.GEN10 ANOP . CONTINUE HERE 10320000
TITLE 'EQUATES&#.--&#.TERMINAL&#.NAME&#.TABLE' 10330000
$ETNT 10340000
TITLE 'EQUATES&#.--&#.TRANSLATE/MOVE&#.LIST' 10350000
$ETML 10360000
TITLE 'CCP&#.COMMON&#.AREA' 10370000
$E030 ROC-&FROC,ORF-&FORUF,PF-&FPFK 10380000
.* 10381000
AIF (&FROC EQ '0').NO31 . SKIP IF RESOPN-NO . . . 10382000
.* 10383000
$E031 10384000
.* 10385000
.NO31 ANOP . CONTINUE 10386000
$E060 10400000
.* 10410000
AIF (&FDFF NE '1').XXDFF . SKIP IF NO DFF. 10420000
.* 10430000
$E065 10440000
.XXDFF ANOP 10450000
$E038 MXL-&C1&C2,CON-1 10455000
END $CC4#1 10460000
.* 10470000
AIF (&CL EQ '1').CL90 . SKIP IF CARD GENERATION. 10480000
*¢// CEND 10490000
*¢// COPY NAME-$CC1#A,LIBRARY-P 10500000
AGO .CL100 10510000
.CL90 ANOP 10520000
*¢/* 10530000
.CL100 ANOP . CONTINUE HERE. 10540000
*** USE THE SCP GENERATOR TO PROCESS THIS SOURCE CODE INTO A 10550000
*** RELOCATABLE MODULE 10560000
* 10570000
*¢// LOAD $CGDRV,&DIUNIT 10580000
*¢// SWITCH 1XXXXXXX 10590000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,RETAIN-S,SHARE-NO 10600000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S, 10610000
*¢// SHARE-NO 10620000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-040,RETAIN-S, 10630000
*¢// SHARE-NO 10640000
*¢// RUN 10650000
.* 10660000
AIF (&CL EQ '1').CL105 . SKIP IF CARD GENERATION. 10670000
*¢// CEND 10680000
*¢// COPY NAME-$CC1L1,LIBRARY-P 10690000
.CL105 ANOP . CONTINUE HERE. 10700000
*** USE THE OVERLAY LINKAGE EDITOR TO FORM THE FIRST RESIDENT MODULE 10710000
*** AS A LOAD MODULE NAMED $CC4#1. 10720000
* 10730000
*¢// LOAD $OLINK,&DIUNIT 10740000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S, 10750000
*¢// SHARE-NO 10760000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S, 10770000
*¢// SHARE-NO 10780000
*¢// RUN 10790000
*¢// OPTIONS ENTRY-$CC4II,MAP-XREF,LEVEL-&LVL 10800000
*¢// PHASE NAME-$CC4#1,UNIT-&CCUNIT,RETAIN-R,LINKADD-X'4600',RLD-NO 10810000
.* 10813000
AIF (&FROC EQ '0').NOOP1 . SKIP OF RESOPN-NO 10816000
*¢// CATEGORY NAME-$CC4VR,VALUE-100 10820000
*¢// INCLUDE NAME-'$CC4#1,$CC4MS,$CC4VR',UNIT-&DIUNIT 10830000
AGO .CKDFF 10835000
.* 10840000
.NOOP1 ANOP . CONTINUE 10841000
*¢// CATEGORY NAME-$CC4V1,VALUE-100 10842000
*¢// INCLUDE NAME-'$CC4#1,$CC4MS,$CC4V1',UNIT-&DIUNIT 10843000
.* 10844000
.CKDFF ANOP . CONTINUE 10845000
*¢// INCLUDE NAME-$CC4MV,UNIT-&DIUNIT 10910000
.* 10920000
.GEN11 ANOP . CONTINUE HERE. 10930000
.* 10930200
*¢// INCLUDE NAME-$CC4TI,UNIT-&DIUNIT 10930400
.* 10930600
AIF (&FROC EQ '1').NOOPN . SKIP OF RESOPN-YES 10931000
.* 10932000
*¢// INCLUDE NAME-$CC4OC,UNIT-&DIUNIT 10932500
.* 10935000
.NOOPN ANOP . CONTINUE 10936000
AIF (&FRPR EQ '1').RESPR . SKIP OF RESREQ-YES 10936100
.* 10936200
*¢// INCLUDE NAME-$CC4CP,UNIT-&DIUNIT 10936300
.* 10936400
.RESPR ANOP . CONTINUE 10936500
.* 10947000
*¢// INCLUDE NAME-$CC4PI,UNIT-&DIUNIT 10948000
.* 10949000
*¢// END 10950000
.* 10960000
AIF (&CL EQ '1').CL120 . SKIP IF CARD GENERATION. 10970000
*¢// CEND 10980000
*¢// COPY NAME-$CC1VT,LIBRARY-P 10990000
.CL120 ANOP . CONTINUE HERE. 11000000
.* 11010000
*** USE THE MACRO PROCESSOR TO EXPAND SOURCE CODE OF THE ADDRESS 11020000
*** VECTOR TABLE - $CC4VT 11030000
* 11040000
*¢// LOAD $MPXDV,&DIUNIT 11050000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-50,RETAIN-T, 11060000
*¢// SHARE-NO 11070000
.* 11080000
AIF (&CL EQ '1').CL125 . SKIP IF CARD GENERATION. 11090000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1VT 11100000
*¢// RUN 11110000
*¢// CEND 11120000
*¢// COPY NAME-$CC1VT,LIBRARY-S 11130000
AGO .CL130 11140000
.CL125 ANOP . CONTINUE HERE. 11150000
*¢// RUN 11160000
.CL130 ANOP . CONTINUE HERE. 11170000
.* 11180000
$CC4VT TITLE 'ADDRESS&#.--&#.VECTOR&#.--&#.TABLE' 11190000
$CC4VT START 0 11200000
$E000 #M-&MLA,#B-&BSC,DF-&FDFF,DE-&FDME,MS-&MIN 11210000
$E002 ML-&MFSC&MFSW,MT-&MT50&MT41&MFBR,MF-&MNOX,MS-&FCPUM 11220000
$E003 BL-&BLT,BF-&BFA,BT-&BD1&BD2,INP-&INPOL,BIA-&BIDA,BY-&FPBSY 11230000
$E005 AP-&BSPOR,CP-&BCPOR,TK-&FTTSK,PP-&BCPP,CS-&BCCS 11235000
$E033 MD1-&MD1,MD2-&MD2,MD3-&MD3,BF-&BFA 11240000
END $CC4VT 11250000
.* 11260000
AIF (&CL EQ '1').CL150 . SKIP IF CARD GENERATION. 11270000
*¢// CEND 11280000
*¢// COPY NAME-$CC1VS,LIBRARY-P 11290000
AGO .CL155 11300000
.CL150 ANOP . CONTINUE HERE. 11310000
.* 11320000
*¢/* 11330000
.CL155 ANOP 11340000
.* 11350000
*** USE THE SCP GENERATOR TO PROCESS THIS SOURCE CODE INTO A 11360000
*** RELOCATABLE MODULE - $CC4VT 11370000
* 11380000
*¢// LOAD $CGDRV,&DIUNIT 11390000
*¢// SWITCH 1XXXXXXX 11400000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,RETAIN-S, 11410000
*¢// SHARE-NO 11420000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S, 11430000
*¢// SHARE-NO 11440000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-040,RETAIN-S, 11450000
*¢// SHARE-NO 11460000
*¢// RUN 11470000
.* 11480000
AIF (&CL EQ '1').CL180 . SKIP IF CARD GENERATION. 11490000
*¢// CEND 11500000
*¢// COPY NAME-$CC1#2,LIBRARY-P 11510000
.CL180 ANOP . CONTINUE HERE. 11520000
.* 11530000
*** USE THE MACRO PROCESSOR TO EXPAND SOURCE CODE OF THE SECOND 11540000
*** RESIDENT MODULE - $CC4#2 11550000
* 11560000
*¢// LOAD $MPXDV,&DIUNIT 11570000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-180,RETAIN-T, 11580000
*¢// SHARE-NO 11590000
.* 11600000
AIF (&CL EQ '1').CL200 . SKIP IF CARD GENERATION. 11610000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1#2 11620000
*¢// RUN 11630000
*¢// CEND 11640000
*¢// COPY NAME-$CC1#2,LIBRARY-S 11650000
AGO .CL210 11660000
.CL200 ANOP . CONTINUE HERE. 11670000
*¢// RUN 11680000
.CL210 ANOP . CONTINUE HERE. 11690000
.* 11700000
$CC4#2 TITLE 'BEGIN&#.CCP&#.COMMUNICATIONS&#.CONTROL&#.MODULE' 11710000
$CC4#2 START 0 CCP COMMUNICATIONS CNTRL MODULE 11720000
$E000 #M-&MLA,#B-&BSC,DF-&FDFF,DE-&FDME,MS-&MIN,RF-&FRUF,RS-&FAI 11730000
$E002 ML-&MFSC&MFSW,MT-&MT50&MT41&MFBR,MF-&MNOX,MS-&FCPUM 11740000
$E003 BL-&BLT,BF-&BFA,BT-&BD1&BD2,INP-&INPOL,BIA-&BIDA,BY-&FPBSY 11750000
$E004 CS#-&MLC,CSI-&CAIPL,CT-&CAD1&CAD2,CSF-&MCFA,SIOC-&FSIO 11755000
$E005 AP-&BSPOR,CP-&BCPOR,TK-&FTTSK,PP-&BCPP,CS-&BCCS 11757000
TITLE 'EQUATES&#.--&#.COMMON&#.VALUES' 11760000
$EEQU 11770000
TITLE 'EQUATES&#.--&#.CCP&#.COMMUNICATIONS&#.AREA' 11780000
$ECOM ID-0,DF-&FDFF,CP-Y,AM-Y,TM-Y,CM-Y 11790000
TITLE 'EQUATES&#.--&#.TASK&#.CONTROL&#.BLOCK' 11800000
$ETCB 11810000
TITLE 'EQUATES&#.--&#.DSM&#.TCB' 11820000
$EDSM NP-Y,NC-Y,SP-N 11830000
TITLE 'EQUATES&#.--&#.COMMUNICATIONS&#.PARAMETER&#.LIST' 11840000
$ECPL RTNCD-EXCP 11850000
TITLE 'EQUATES&#.--&#.TERMINAL&#.ATTRIBUTES&#.SET' 11860000
$ETAS 11870000
TITLE 'EQUATES&#.--&#.TERMINAL&#.UNIT&#.BLOCK' 11880000
$ETUB 11890000
TITLE 'EQUATES&#.--&#.LINE&#.CONTROL&#.BLOCK' 11900000
$ELCB MLTA-&MLA,BSCA-&BSC 11910000
TITLE 'EQUATES&#.--&#.TRANSLATE/MOVE&#.LIST' 11920000
$ETML 11930000
.* 11940000
AIF (&BSC EQ '0').GEN01 . SKIP IF *NO* BSCA SUPPORT 11950000
.* 11960000
TITLE 'EQUATES&#.--&#.BSCA&#.COMMON&#.VALUES' 11970000
$EBEQ IOB-Y,WKA-Y,POL-Y,CKL-Y,CMD-CM,MIN-Y 11980000
TITLE 'EQUATES&#.--&#.BSCA&#.DTF' 11990000
$DTOB 12000000
.* 12010000
.GEN01 ANOP . CONTINUE HERE 12020000
AIF (&MLA EQ '0').GEN15 . SKIP IF *NO* MLTA SUPPORT 12030000
.* 12040000
TITLE 'EQUATES&#.--&#.MLTA&#.DTF' 12050000
$DTOM AT1-Y,AT2-Y,CMP-Y,OPC-Y,OSC-Y,SNS-Y,TFT-Y 12060000
.* 12070000
.GEN15 ANOP . CONTINUE HERE 12080000
AIF (&BSPOR EQ '1').GEN18 . EXPAND TP EQUATES 12081000
AIF (&FTTSK EQ '0').GEN20 . SKIP IF NO TTASK 12082000
.GEN18 ANOP 12083000
TITLE 'EQUATES FOR PORTLINE OPERATION' 12084000
$ETPX 12085000
.GEN20 ANOP 12086000
$E038 MXL-&C1&C2 12090000
$E070 12100000
AIF (&BSC EQ '0').GEN25 . SKIP IF *NO* BSCA SUPPORT 12110000
$E072 12120000
$E080 12130000
$E085 12140000
.GEN25 ANOP . CONTINUE HERE 12150000
AIF (&MLA EQ '0').GEN26 . SKIP IF *NO* MLTA SUPPORT 12160000
$E075 12170000
$E082 12180000
$E087 12190000
.GEN26 ANOP . CONTINUE HERE 12200000
$E090 12210000
$E092 12220000
AIF (&BSC EQ '0').GEN17 . CHECK IF *NO* BSCA SUPPORT 12230000
AGO .GEN16 . GENERATE $E093 IF BSCA 12231000
.* 12232000
.GEN17 ANOP . CONTINUE 12233000
AIF (&MLC EQ '0').GEN30 . SKIP IF NO BSCA AND NO BSCC 12234000
.GEN16 ANOP . CONTINUE 12235000
$E093 12240000
.GEN30 ANOP . CONTINUE HERE 12250000
AIF (&MLA EQ '0').GEN40 . SKIP IF *NO* MLTA SUPPORT 12260000
$E094 12270000
.GEN40 ANOP . CONTINUE HERE 12280000
AIF (&FDME NE '1').GEN95 . SKIP IF *NO* DATA MODE ESCAPE 12290000
$E095 DMESTR-&X1DME&X2DME' 12300000
AGO .GEN99 12310000
.GEN95 ANOP . *NO* DATA MODE ESCAPE 12320000
$E095 12330000
.GEN99 ANOP . CONTINUE HERE 12340000
END $CC4#2 12350000
.* 12360000
AIF (&CL EQ '1').CL220 . SKIP IF CARD GENERATION. 12370000
*¢// CEND 12380000
*¢// COPY NAME-$CC1#B,LIBRARY-P 12390000
AGO .CL230 12400000
.CL220 ANOP 12410000
*¢/* 12420000
.CL230 ANOP . CONTINUE HERE. 12430000
.* 12440000
*** USE THE SCP GENERATOR TO PROCESS THIS SOURCE CODE INTO A 12450000
*** RELOCATABLE MODULE - $CC4#2 12460000
* 12470000
*¢// LOAD $CGDRV,&DIUNIT 12480000
*¢// SWITCH 1XXXXXXX 12490000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,RETAIN-S,SHARE-NO 12500000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-050,RETAIN-S, 12510000
*¢// SHARE-NO 12520000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-050,RETAIN-S, 12530000
*¢// SHARE-NO 12540000
*¢// RUN 12550000
.* 12560000
AIF (&CL EQ '1').CL240 . SKIP IF CARD GENERATION. 12570000
*¢// CEND 12580000
*¢// COPY NAME-$CC1LE,LIBRARY-P 12590000
.CL240 ANOP . CONTINUE HERE. 12600000
.* 12610000
*¢// LOAD $OLINK,&DIUNIT LINKEDIT $CC4#2 12620000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S, 12630000
*¢// SHARE-NO 12640000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S, 12650000
*¢// SHARE-NO 12660000
*¢// RUN 12670000
*¢// OPTIONS ENTRY-$CC4CM,MAP-XREF,LEVEL-&LVL 12680000
*¢// PHASE NAME-$CC4#2,UNIT-&CCUNIT,RETAIN-R,LINKADD-X'0000' 12690000
*¢// CATEGORY NAME-$CC4V2,VALUE-100 12700000
.* 12750000
*¢// INCLUDE NAME-'$CC4VT,$CC4#2,$CC4V2',UNIT-&DIUNIT 12770000
.NC01 ANOP 12780000
AIF (&BSC EQ '0').GXNBM . SKIP IF *NO* BSCA SUPPORT 12790000
.* 12800000
*¢// INCLUDE NAME-'$CC4IB,$CC4BT',UNIT-&DIUNIT 12810000
.* 12820000
AIF ('&BD2'(1,3) NE '000').C4M1 . SKIP IF OTHER THAN 3270 12910000
AIF ('&BLT'(1,4) NE '0010').C4M1 . SKIP IF OTHER THAN CS LINES 12920000
.* 12930000
*¢// INCLUDE NAME-$CC4M1,UNIT-&DIUNIT 12940000
AGO .GXBS . 12950000
.* 12960000
.C4M1 ANOP .INCLUDE MODULE $CC4M2 12970000
*¢// INCLUDE NAME-$CC4M2,UNIT-&DIUNIT 12980000
.* 12990000
.GXBS ANOP . CONTINUE HERE 13000000
AIF (&BSC LE '1').GXB1L . SKIP IF SINGLE BSCA ONLY 13010000
.* 13020000
*¢// INCLUDE NAME-$$BSAT,UNIT-&DSUNIT 13030000
.* 13040000
.GXB1L ANOP . CONTINUE HERE 13050000
AIF ('&BLT'(3,1) NE '1').GXBNC . SKIP IF CS-NO 13060000
.* 13070000
*¢// INCLUDE NAME-$$BSLG,UNIT-&DSUNIT 13080000
AIF ('&BFA'(4,1) NE '1').GXBNC . SKIP IF RESPOL-NO 13090000
.* 13100000
*¢// INCLUDE NAME-'$$BSMA,$$BSMB,$$BSMC,$$BSMF',UNIT-&DSUNIT 13110000
.* 13120000
.GXBNC ANOP . CONTINUE HERE 13130000
AIF ('&BLT'(2,1) NE '1').GXNAF . SKIP IF MP-NO 13140000
AIF ('&BFA'(5,1) NE '1').GXNAF . SKIP IF MP-YES, AUTORS-NO 13150000
.* 13160000
*¢// INCLUDE NAME-$$BSMD,UNIT-&DSUNIT 13170000
.* 13180000
.GXNAF ANOP 13190000
AIF (&BIDA EQ '0').GXNBM . SKIP IF NO IDA SUPPORT 13200000
.* 13210000
*¢// INCLUDE NAME-$$BSID,UNIT-&DSUNIT 13220000
.* 13230000
.GXNBM ANOP 13240000
AIF (&MLA EQ '0').GXNOM . SKIP *NO* MLTA SUPPORT 13250000
.* 13260000
*¢// INCLUDE NAME-$CC4IM,UNIT-&DIUNIT 13270000
*¢// INCLUDE NAME-'$$MLDI,$$MLRR',UNIT-&DSUNIT 13280000
.* 13290000
AIF (&MFSC NE '1').GXNSC . SKIP IF *NO* STATION CONTROL 13300000
AIF (&MFNK NE '1').GXN00 . SKIP IF *NO* NON-CHECKING TERM 13310000
AIF (&MFSW NE '1').GXN00 . SKIP IF *NO* SWITCHED SUPPORT 13320000
*¢// INCLUDE NAME-'$$MLIA,$$MLIB,$$MLID,$$MLIF',UNIT-&DSUNIT 13330000
AIF (&MFSC NE '1').GXNSC . SKIP IF *NO* STATION CONTROL 13340000
AGO .GXNSW 13350000
.* 13360000
.GXN00 ANOP 13370000
*¢// INCLUDE NAME-'$$MLIA,$$MLIB',UNIT-&DSUNIT 13380000
.GXNSC ANOP . CONTINUE HERE 13390000
AIF (&MFNK NE '1').GXNNK . SKIP IF *NO* NON-CHECKING TERM 13400000
AIF (&MFSW NE '1').NC05 . SKIP IF *NO* SWITCHED SUPPORT 13410000
*¢// INCLUDE NAME-'$$MLID,$$MLIF',UNIT-&DSUNIT 13420000
AGO .GXNSW 13430000
.* 13440000
.NC05 ANOP 13450000
*¢// INCLUDE NAME-$$MLID,UNIT-&DSUNIT 13460000
.* 13470000
.GXNNK ANOP . CONTINUE HERE 13480000
AIF (&MFSW NE '1').GXNSW . SKIP IF *NO* SWITCHED SUPPORT 13490000
.* 13500000
*¢// INCLUDE NAME-$$MLIF,UNIT-&DSUNIT 13510000
.* 13520000
.GXNSW ANOP . CONTINUE HERE 13530000
AIF (&MFCK NE '1').GXNCK . SKIP IF *NO* CHECKING TERMINAL 13540000
AIF ('&MD1'(1,1) NE '1').NC10 . SKIP IF NO TYPE-1050 13550000
*¢// INCLUDE NAME-'$$MLIG,$$MLTM',UNIT-&DSUNIT 13560000
AGO .MTV02 13570000
.* 13580000
.NC10 ANOP 13590000
*¢// INCLUDE NAME-$$MLIG,UNIT-&DSUNIT 13600000
.* 13610000
.GXNCK ANOP . CONTINUE HERE 13620000
AIF ('&MD1'(1,1) NE '1').MTV02 . SKIP IF NO TYPE-1050 13630000
.* 13640000
*¢// INCLUDE NAME-$$MLTM,UNIT-&DSUNIT 13650000
.* 13660000
.MTV02 ANOP . CONTINUE HERE 13670000
AIF ('&MD1'(2,1) NE '1').MTV03 . SKIP IF NO TYPE-1050D 13680000
.* 13690000
*¢// INCLUDE NAME-$$MLTB,UNIT-&DSUNIT 13700000
.* 13710000
.MTV03 ANOP . CONTINUE HERE 13720000
AIF ('&MD1'(4,1) EQ '1').MTVX3 . SKIP IF TYPE-2740S 13730000
AIF ('&MD2'(3,2) EQ '00').MTV04 . SKIP IF NEITHER 2740M2S/SB 13740000
.* 13750000
.MTVX3 ANOP . 2740S/2740M2S/2740M2SB 13760000
*¢// INCLUDE NAME-$$MLTC,UNIT-&DSUNIT 13770000
.* 13780000
.MTV04 ANOP . CONTINUE HERE 13790000
AIF ('&MD1'(3,1) NE '1').MTV05 . SKIP IF NO TYPE-2740 13800000
AIF ('&MD1'(7,1) NE '1').NC15 . SKIP IF NO TYPE-2740D 13810000
*¢// INCLUDE NAME-'$$MLTD,$$MLTF',UNIT-&DSUNIT 13820000
AGO .MTV06 13830000
.* 13840000
.NC15 ANOP 13850000
*¢// INCLUDE NAME-$$MLTD,UNIT-&DSUNIT 13860000
.* 13870000
.MTV05 ANOP . CONTINUE HERE 13880000
AIF ('&MD1'(7,1) NE '1').MTV06 . SKIP IF NO TYPE-2740D 13890000
.* 13900000
*¢// INCLUDE NAME-$$MLTF,UNIT-&DSUNIT 13910000
.* 13920000
.MTV06 ANOP . CONTINUE HERE 13930000
AIF ('&MD1'(5,1) EQ '1').MTVX6 . SKIP IF TYPE-2740C 13940000
AIF ('&MD3'(1,1) NE '1').MTV07 . SKIP UNLESS TYPE-SYS7C 13950000
.* 13960000
.MTVX6 ANOP . TYPE-2740C/SYS7C 13970000
*¢// INCLUDE NAME-$$MLTG,UNIT-&DSUNIT 13980000
.* 13990000
.MTV07 ANOP . CONTINUE HERE 14000000
AIF ('&MD2'(1,1) EQ '1').MTVX7 . SKIP IF TYPE-2740DC 14010000
AIF ('&MD3'(3,1) NE '1').MTV08 . SKIP UNLESS TYPE-SYS7DC 14020000
.* 14030000
.MTVX7 ANOP . TYPE-2740DC/SYS7DC 14040000
*¢// INCLUDE NAME-$$MLTH,UNIT-&DSUNIT 14050000
.* 14060000
.MTV08 ANOP . CONTINUE HERE 14070000
AIF ('&MD1'(8,1) NE '1').MTV09 . SKIP UNLESS TYPE-2740DT 14080000
AIF ('&MD2'(2,1) NE '1').NC20 . SKIP UNLESS TYPE-2740DTC 14090000
*¢// INCLUDE NAME-'$$MLTI,$$MLTL',UNIT-&DSUNIT 14100000
AGO .MTV10 14110000
.* 14120000
.NC20 ANOP 14130000
*¢// INCLUDE NAME-$$MLTI,UNIT-&DSUNIT 14140000
.* 14150000
.MTV09 ANOP . CONTINUE HERE 14160000
AIF ('&MD2'(2,1) NE '1').MTV10 . SKIP UNLESS TYPE-2740DTC 14170000
.* 14180000
*¢// INCLUDE NAME-$$MLTL,UNIT-&DSUNIT 14190000
.* 14200000
.MTV10 ANOP . CONTINUE HERE 14210000
AIF ('&MD1'(1,1) EQ '1').MTV11 . SKIP IF TYPE-1050--INCLUDED 14220000
AIF ('&MD1'(6,1) EQ '1').MTVXA . SKIP IF TYPE-2740SC 14230000
AIF ('&MD2'(5,2) NE '00').MTVXA . SKIP IF TYPE-2740M2SC/SCB 14240000
AIF ('&MD3'(2,1) NE '1').MTV11 . SKIP UNLESS TYPE-SYS7C 14250000
.* 14260000
.MTVXA ANOP . TYPE-2740SC/2740M2SC(B)/SYS7SC 14270000
*¢// INCLUDE NAME-$$MLTM,UNIT-&DSUNIT 14280000
.* 14290000
.MTV11 ANOP . CONTINUE HERE 14300000
AIF ('&MD2'(7,1) NE '1').MTV12 . SKIP UNLESS TYPE-2741 14310000
AIF ('&MD2'(8,1) EQ '1').MTV20 . SKIP IF TYPE-2741D 14320000
AIF ('&MD3'(4,1) NE '1').MTV21 . SKIP UNLESS TYPE-CMCSTD 14330000
.MTV20 ANOP 14340000
*¢// INCLUDE NAME-'$$MLTO,$$MLTP',UNIT-&DSUNIT 14350000
AGO .MTV99 14360000
.MTV21 ANOP 14370000
AIF ('&MD2'(7,1) NE '1').MTV12 . SKIP UNLESS TYPE-2741 14380000
.* 14390000
*¢// INCLUDE NAME-$$MLTO,UNIT-&DSUNIT 14400000
.* 14410000
.MTV12 ANOP . CONTINUE HERE 14420000
AIF ('&MD2'(8,1) EQ '1').MTVXC . SKIP IF TYPE-2741D 14430000
AIF ('&MD3'(4,1) NE '1').MTV99 . SKIP UNLESS TYPE-CMCSTD 14440000
.* 14450000
.MTVXC ANOP 14460000
*¢// INCLUDE NAME-$$MLTP,UNIT-&DSUNIT 14470000
.* 14480000
.MTV99 ANOP . END INCLUDE TRANSFER VECTORS 14490000
.GXNOM ANOP . CONTINUE HERE 14500000
.* 14510000
*¢// END 14520000
.* 14530000
.* 14535000
.*--------- LINK EDIT THE LOADABLE COMMUNICATIONS TRACE ------------* 14540000
.* 14550000
AIF (&BSC EQ '0').LET02 . SKIP IF BSCA NOT SUPPORTED 14560000
.* 14570000
AIF (&CL EQ '1').CL270 . SKIP IF CARD GENERATION. 14580000
*¢// CEND 14590000
*¢// COPY NAME-$CC1BT,LIBRARY-P 14600000
.CL270 ANOP . CONTINUE HERE. 14610000
.* 14620000
*** USE THE OVERLAY LINKAGE EDITOR TO CREATE THE LOADABLE BSCA TRACE 14630000
*** SERVICE AID 14640000
* 14650000
*¢// LOAD $OLINK,&DIUNIT 14660000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S, 14670000
*¢// SHARE-NO 14680000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-40,RETAIN-S, 14690000
*¢// SHARE-NO 14700000
*¢// RUN 14710000
*¢// PHASE NAME-$CC$BS,UNIT-&CCUNIT,RETAIN-R 14720000
*¢// OPTIONS LEVEL-&LVL 14730000
*¢// INCLUDE NAME-$CC$BS,UNIT-&DIUNIT 14740000
*¢// INCLUDE NAME-$$BSTT,UNIT-&DSUNIT 14750000
*¢// END 14760000
.* 14770000
.LET02 ANOP . CONTINUE HERE 14780000
.* 14790000
AIF (&MLA EQ '0').LET99 . SKIP IF MLTA NOT SUPPORTED 14800000
.* 14810000
AIF (&CL EQ '1').CL300 . SKIP IF CARD GENERATION. 14820000
*¢// CEND 14830000
*¢// COPY NAME-$CC1MT,LIBRARY-P 14840000
.CL300 ANOP . CONTINUE HERE. 14850000
.* 14860000
*** USE THE OVERLAY LINKAGE EDITOR TO CREATE THE LOADABLE MLTA TRACE 14870000
*** SERVICE AID 14880000
* 14890000
*¢// LOAD $OLINK,&DSUNIT 14900000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S, 14910000
*¢// SHARE-NO 14920000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-40,RETAIN-S, 14930000
*¢// SHARE-NO 14940000
*¢// RUN 14950000
*¢// PHASE NAME-$CC$ML,UNIT-&CCUNIT,RETAIN-R 14960000
*¢// OPTIONS LEVEL-&LVL 14970000
*¢// INCLUDE NAME-$CC$ML,UNIT-&DIUNIT 14980000
*¢// INCLUDE NAME-$$MLDT,UNIT-&DSUNIT 14990000
*¢// END 15000000
.LET99 ANOP . CONTINUE HERE 15010000
.* 15020000
AIF (&CL EQ '1').CL305 . SKIP IF CARD GENERATION. 15030000
*¢// CEND 15040000
.CL305 ANOP . CONTINUE 15040080
AIF (&FSIO EQ '1').CL308 . SKIP IF SIOC 15040120
AIF (&MLC EQ '0').CL359 . SKIP IF NO BSCC 15040160
.CL308 ANOP . CONTINUE HERE. 15040200
AIF (&CL EQ '1').CL310 . SKIP IF CARD GENERATION. 15040240
*¢// COPY NAME-$CC1#M,LIBRARY-P 15040320
.CL310 ANOP . CONTINUE HERE. 15040400
.* 15040480
*** USE THE MACRO PROCESSOR TO EXPAND SOURCE CODE OF THE THIRD 15040560
*** RESIDENT MODULE - $CC4#M 15040640
* 15040720
*¢// LOAD $MPXDV,&DIUNIT 15040800
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-180,RETAIN-T, 15040880
*¢// SHARE-NO 15040960
.* 15041040
AIF (&CL EQ '1').CL315 . SKIP IF CARD GENERATION. 15041120
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1#M 15041200
*¢// RUN 15041280
*¢// CEND 15041360
*¢// COPY NAME-$CC1#M,LIBRARY-S 15041440
AGO .CL320 15041520
.CL315 ANOP . CONTINUE HERE. 15041600
*¢// RUN 15041680
.CL320 ANOP . CONTINUE HERE. 15041760
.* 15041840
$CC4#M TITLE 'BEGIN&#.CCP&#.COMMUNICATIONS&#.SUPERVISOR&#.MODULE' 15041920
$CC4#M START 0 CCP COMMUNICATIONS SUPERVISOR MODULE 15042000
$E000 #M-&MLA,#B-&BSC,DF-&FDFF,DE-&FDME,MS-&MIN,RF-&FRUF,RS-&FAI 15042080
$E001 PC-&FPGC,SO-&CPW&UPW 15042160
$E002 ML-&MFSC&MFSW,MT-&MT50&MT41&MFBR,MF-&MNOX,MS-&FCPUM 15042240
$E003 BL-&BLT,BF-&BFA,BT-&BD1&BD2,INP-&INPOL,BIA-&BIDA,BY-&FPBSY 15042320
$E004 CS#-&MLC,CSI-&CAIPL,CT-&CAD1&CAD2,CSF-&MCFA,SIOC-&FSIO 15042400
$E005 AP-&BSPOR,CP-&BCPOR,TK-&FTTSK,PP-&BCPP,CS-&BCCS 15042440
TITLE 'EQUATES&#.--&#.COMMON&#.VALUES' 15042480
$EEQU 15042560
TITLE 'EQUATES&#.--&#.CCP&#.COMMUNICATIONS&#.AREA' 15042640
$ECOM ID-0,DF-&FDFF,CP-Y,AM-N,TM-N,CM-Y 15042720
$E038 MXL-&C1&C2 15042800
TITLE 'EQUATES&#.--&#.TASK&#.CONTROL&#.BLOCK' 15042880
$ETCB 15042960
TITLE 'EQUATES&#.--&#.DSM&#.TCB' 15043040
$EDSM NP-Y,NC-Y,SP-N 15043120
TITLE 'EQUATES&#.--&#.COMMUNICATIONS&#.PARAMETER&#.LIST' 15043200
$ECPL RTNCD-EXCP 15043280
TITLE 'EQUATES&#.--&#.TERMINAL&#.ATTRIBUTES&#.SET' 15043360
$ETAS 15043440
TITLE 'EQUATES&#.--&#.TERMINAL&#.UNIT&#.BLOCK' 15043520
$ETUB 15043600
TITLE 'EQUATES&#.--&#.COMMUNICATIONS&#.LINE&#.BLOCK' 15043680
$ECLB 15043760
TITLE 'EQUATES&#.--&#.COMMUNICATIONS&#.SUPERVISOR&#.EQUATES' 15043840
$ECSE 15043920
TITLE 'EQUATES&#.--&#.TRANSLATE/MOVE&#.LIST' 15044000
$ETML 15044080
TITLE 'COMMUNICATIONS&#.SUPERVISOR&#.ENTRY&#.POINTS' 15044160
$ECSV CON-Y,SIOC-&FSIO,BSCC-&MLC 15044240
TITLE 'EQUATES&#.--&#.TPBUFFER&#.PORT&#.EXPANSION' 15044250
AIF (&BCPOR EQ '1').CLPOR . EXPAND PORT TP EQUATES 15044255
AIF (&FSIO EQ '0').CL321 . SKIP IF NO SIOC 15044260
.CLPOR ANOP 15044265
$ETPX 15044270
.CL321 ANOP . CONTINUE HERE. 15044280
$E100 15044320
$E110 15044400
$E120 15044480
$E130 15044560
$E140 15044640
AIF (&FDME NE '1').CL322 . SKIP IF *NO* DATA MODE ESCAPE 15044720
$E180 DMESTR-&X1DME&X2DME' 15044800
AGO .CL323 . SKIP IF DATA MODE ESCAPE 15044880
.CL322 ANOP . CONTINUE 15044960
$E180 15045040
.CL323 ANOP . CONTINUE 15045120
END CSSTRT 15045200
.* 15045280
AIF (&CL EQ '1').CL325 . SKIP IF CARD GENERATION. 15045360
*¢// CEND 15045440
*¢// COPY NAME-$CC1#C,LIBRARY-P 15045520
AGO .CL330 15045600
.CL325 ANOP 15045680
*¢/* 15045760
.CL330 ANOP . CONTINUE HERE. 15045840
.* 15045920
*** USE THE SCP GENERATOR TO PROCESS THIS SOURCE CODE INTO A 15046000
*** RELOCATABLE MODULE - $CC4#M 15046080
* 15046160
*¢// LOAD $CGDRV,&DIUNIT 15046240
*¢// SWITCH 1XXXXXXX 15046320
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,RETAIN-S,SHARE-NO 15046400
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-050,RETAIN-S, 15046480
*¢// SHARE-NO 15046560
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-050,RETAIN-S, 15046640
*¢// SHARE-NO 15046720
*¢// RUN 15046800
.* 15046880
AIF (&CL EQ '1').CL335 . SKIP IF CARD GENERATION. 15046960
*¢// CEND 15047040
*¢// COPY NAME-$CC1L3,LIBRARY-P 15047120
.CL335 ANOP . CONTINUE HERE. 15047200
.* 15047280
*¢// LOAD $OLINK,&DIUNIT LINKEDIT $CC4#M 15047360
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S, 15047440
*¢// SHARE-NO 15047520
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S, 15047600
*¢// SHARE-NO 15047680
*¢// RUN 15047760
*¢// OPTIONS ENTRY-CSSTRT,MAP-XREF,LEVEL-&LVL 15047840
*¢// PHASE NAME-$CC4#M,UNIT-&CCUNIT,RETAIN-R,LINKADD-X'0000' 15047920
*¢// INCLUDE NAME-$CC4#M,UNIT-&DIUNIT 15048000
*¢// INCLUDE NAME-$CC4UC,UNIT-&DIUNIT 15048010
.* 15048020
AIF (&MLC EQ '0').CL352 . SKIP IF NO BSCC 15048030
.* 15048040
*¢// INCLUDE NAME-$$BSYM,UNIT-&DSUNIT 15048080
*¢// INCLUDE NAME-$$BSYX,UNIT-&DSUNIT 15048160
*¢// INCLUDE NAME-$$BSYI,UNIT-&DSUNIT 15048240
*¢// END 15048280
.* 15048340
AGO .CL354 . SKIP OVER SIOC INCLUDES. 15048360
.CL352 ANOP . CONTINUE HERE. 15048380
.* 15048400
*¢// INCLUDE NAME-$$SIDM,UNIT-&DSUNIT 15048410
*¢// INCLUDE NAME-$$SIIO,UNIT-&DSUNIT 15048420
*¢// END 15048430
.* 15048440
AGO .CL356 . SKIP OVER SIOC LINKEDIT. 15048450
.CL354 ANOP . CONTINUE HERE. 15048460
.* 15048560
AIF (&FSIO EQ '0').CL356 . SKIP IF NO SIOC 15048563
.* 15048566
AIF (&CL EQ '1').CL355 . SKIP IF CARD GENERATION. 15048569
*¢// CEND 15048572
*¢// COPY NAME-$CC1L4,LIBRARY-P 15048575
.CL355 ANOP . CONTINUE HERE. 15048578
.* 15048581
*** USE THE OVERLAY LINKAGE EDITOR TO CREATE THE LOADABLE 15048584
*** SIOC MODULE - $CC4#S 15048587
* 15048590
*¢// LOAD $OLINK,&DIUNIT LINKEDIT $CC4#S 15048593
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-100,RETAIN-S, 15048596
*¢// SHARE-NO 15048599
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-040,RETAIN-S, 15048602
*¢// SHARE-NO 15048605
*¢// RUN 15048608
*¢// OPTIONS ENTRY-$CC4#S,MAP-XREF,LEVEL-&LVL 15048611
*¢// PHASE NAME-$CC4#S,UNIT-&CCUNIT,RETAIN-R,LINKADD-X'0000' 15048614
*¢// INCLUDE NAME-$CC4#S,UNIT-&DIUNIT 15048617
*¢// INCLUDE NAME-$$SIDM,UNIT-&DSUNIT 15048620
*¢// INCLUDE NAME-$$SIIO,UNIT-&DSUNIT 15048623
*¢// END 15048626
.* 15048629
.* 15048632
.CL356 ANOP . CONTINUE HERE. 15048635
.* 15048640
AIF (&CL EQ '1').CL360 . SKIP IF CARD GENERATION. 15048720
*¢// CEND 15048800
.CL359 ANOP . CONTINUE 15048880
AIF (&CL EQ '1').CL360 . SKIP IF CARD GENERATION. 15048960
*¢// COPY NAME-$CC1C1,LIBRARY-P 15050000
.CL360 ANOP . CONTINUE HERE. 15060000
.* 15070000
.*--------- OUTPUT THE CCP MODULE COPY GROUP -----------------------* 15080000
.* 15090000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 15100000
* --- COPY REQUIRED LOAD MODULES FOR ALL STAGES OF CCP --- 15110000
* 15120000
*¢// LOAD $MAINT,&DSUNIT 15130000
*¢// RUN 15140000
*¢// COPY FROM-&D,TO-&C,LIBRARY-O,RETAIN-R,NAME-$CC1BF 15150000
*¢// COPY FROM-&D,TO-&C,LIBRARY-O,RETAIN-R,NAME-$CC1DP 15155000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPAS 15160000
*¢// COPY FROM-&D,TO-&C,LIBRARY-O,RETAIN-R,NAME-$CCHRA,NEWNAME-$CCTRA 15165000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCY.ALL,NEWNAME-$CC2 15170000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPAL 15180000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-CCPPGM 15182000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$HACCP 15184000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCUUN,NEWNAME-$CC4UN 15186000
.* 15190000
AIF (&FDFF NE '1').AYNOF . SKIP IF NO DFF REQUESTED 15200000
.* 15210000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPDF 15220000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPPF 15230000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-CCPFMT 15240000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCZ.ALL,NEWNAME-$CC2 15250000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPDT 15260000
AIF (&DSUNIT EQ &C).AYNOF . SKIP IF CCP AND DSM SAME 15270000
*¢// COPY FROM-&DSUNIT,TO-&C,RETAIN-R,LIBRARY-O,NAME-$OLBO 15280000
*¢// COPY FROM-&DSUNIT,TO-&C,RETAIN-R,LIBRARY-O,NAME-$OLFTP 15290000
*¢// COPY FROM-&DSUNIT,TO-&C,RETAIN-R,LIBRARY-O,NAME-$OLER 15300000
.* 15310000
.AYNOF AIF (&UPW NE '1').AYNOU . SKIP IF NOT SECURE-USER 15320000
.* 15330000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPAU 15340000
.* 15350000
.AYNOU ANOP . CONTINUE HERE 15360000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCP 15370000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC3.ALL 15380000
.* STARTUP TRANSIENT 15390000
.* 15400000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4SU 15410000
.* 15420000
.* DUMMY USER SECURITY ROUTINE 15430000
.* 15440000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4YA 15450000
.* 15460000
.* SYSTEM OPERATOR COMMAND ROUTINES 15470000
.* 15480000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCS.ALL,NEWNAME-$CC4 15490000
.* 15500000
.* TERMINAL OPERATOR COMMAND ROUTINES 15510000
.* 15520000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCT.ALL,NEWNAME-$CC4 15530000
.* 15540000
.* MESSAGE-ISSUING MODULES 15550000
.* 15560000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCE.ALL,NEWNAME-$CC4 15570000
.* 15580000
.* COMMUNICATIONS MANAGEMENT -- MLTA ROUTINES 15590000
.* 15600000
AIF (&MLA EQ '0').CPXL5 . SKIP IF *NO* MLTA 15610000
AIF (&CL EQ '1').CL365 . SKIP IF CARD GENERATION. 15620000
*¢// END 15630000
*¢// CEND 15640000
*¢// COPY NAME-$CC1C2,LIBRARY-P 15650000
*¢// LOAD $MAINT,&DSUNIT 15660000
*¢// RUN 15670000
.CL365 ANOP . CONTINUE HERE 15680000
.* 15690000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCM.ALL,NEWNAME-$CC4 15700000
.* 15710000
.CPY10 ANOP . CONTINUE HERE 15720000
.* 15730000
.* COPY TRANSLATE ROUTINES 15740000
AIF ('&MXC'(3,1) NE '1').CPXL2 .SKIP IF NO PTTCBCD CODE 15750000
.* 15760000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J1 15770000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J7 15780000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J9 15790000
.* 15800000
.CPXL2 ANOP . CONTINUE HERE 15810000
AIF (&XM4E NE '1').CPXL3 . SKIP IF NO 2740/1 PTTCEBCD 15820000
.* 15830000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J2 15840000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J5 15850000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JA 15860000
.* 15870000
.CPXL3 ANOP . CONTINUE HERE 15880000
AIF ('&MXC'(1,1) NE '1').CPXL4 . SKIP IF NO CORR CODE 15890000
.* 15900000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J3 15910000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J6 15920000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JB 15930000
.* 15940000
.CPXL4 ANOP . CONTINUE HERE 15950000
AIF (&MT50 NE '1').CPXL5 . SKIP IF NO 1050 CODE 15960000
.* 15970000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J4 15980000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4J8 15990000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JC 16000000
.* 16010000
.CPXL5 ANOP . CONTINUE HERE 16020000
AIF (&CL EQ '1').CL367 . SKIP IF CARD GENERATION. 16030000
*¢// END 16040000
*¢// CEND 16050000
*¢// COPY NAME-$CC1C3,LIBRARY-P 16060000
*¢// LOAD $MAINT,&DSUNIT 16070000
*¢// RUN 16080000
.CL367 ANOP . CONTINUE HERE 16090000
AIF ('&BFA'(7,1) NE '1').CPXL9 . SKIP IF NO ASCII 16100000
.* 16110000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JD 16120000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4JE 16130000
.* 16140000
.CPXL9 ANOP . CONTINUE HERE 16150000
.* 16160000
.* COMMUNICATIONS MANAGEMENT -- COMMON 16170000
.* 16180000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCC.ALL,NEWNAME-$CC4 16190000
.* 16200000
.* COMMUNICATIONS MANAGEMENT -- BSCA ROUTINES 16210000
.* 16220000
AIF (&BSC EQ '0').CPY15 . SKIP IF *NO* BSCA SUPPORT 16230000
.* 16240000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCB.ALL,NEWNAME-$CC4 16250000
.* 16260000
AIF (&MINRES NE '1').CPY20 . SKIP IF *MINRES* NO 16270000
.* 16280000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCD.ALL,NEWNAME-$CC4 16290000
AGO .CPY20 . CONTINUE 16291000
.CPY15 ANOP . CONTINUE 16292000
AIF (&MLA EQ '0').CPY20 . SKIP IF NO MLTA 16293000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCBBC,NEWNAME-$CC4BC 16294000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCBBF,NEWNAME-$CC4BF 16295000
.* 16300000
.CPY20 ANOP . CONTINUE HERE 16310000
AIF (&FSIO EQ '1').CPY22 . SKIP IF SIOC 16311000
AIF (&MLC EQ '0').CPY25 . SKIP IF NO BSCC 16312000
.CPY22 ANOP . CONTINUE HERE 16313000
.* 16314000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCU.ALL,NEWNAME-$CC4 16316000
.* 16320000
.CPY25 ANOP . CONTINUE 16325000
.* COMMUNICATIONS INTERFACE ROUTINES 16330000
.* 16340000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCI.ALL,NEWNAME-$CC4 16350000
.* 16360000
.* DFF TRANSIENT ROUTINES 16370000
.* 16380000
AIF (&FDFF NE '1').CPY30 . SKIP IF *NO* DFF SUPPORT 16390000
.* 16400000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCF.ALL,NEWNAME-$CC4 16410000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC4DF 16415000
.* 16420000
.CPY30 ANOP . CONTINUE HERE 16430000
.* 16440000
.* COMMAND PROCESSOR MAINLINE ROUTINES 16450000
.* 16460000
AIF (&FRPR EQ '1').CPY31 . SKIP IF RESREQ-YES 16470000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCG.ALL,NEWNAME-$CC4 16471000
AGO .CPY32 16472000
.CPY31 ANOP 16473000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCGPC,NEWNAME-$CC4PC 16474000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCGPF,NEWNAME-$CC4PF 16475000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCGPK,NEWNAME-$CC4PK 16476000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCGPM,NEWNAME-$CC4PM 16477000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCGPT,NEWNAME-$CC4PT 16478000
.CPY32 ANOP 16479000
.* 16480000
.* PROGRAM REQUEST ROUTINES 16490000
.* 16500000
AIF (&FRPR EQ '1').CPY33 . SKIP IF RESREQ-YES 16505000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCR.ALL,NEWNAME-$CC4 16510000
AGO .CPY34 16511000
.CPY33 ANOP 16512000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC#PR,NEWNAME-$CCRPR 16513000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCRR4,NEWNAME-$CC4R4 16514000
.CPY34 ANOP 16515000
.* 16520000
.* ALLOCATATION ROUTINES 16530000
.* 16540000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCA.ALL,NEWNAME-$CC4 16550000
.* 16560000
.* DATA MANAGEMENT -- OPEN 16570000
.* 16580000
AIF (&FROC EQ '0').CPY35 . RESOPN-YES, COPY $CCROC . . . 16581000
.* 16582000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC#OC,NEWNAME-$CCROC 16583000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCOOR,NEWNAME-$CC4OP 16584000
AGO .CPY36 16585000
.* 16586000
.CPY35 ANOP . RESOPN-NO, TRANSIENTS COPIED 16587000
.* 16588000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCO.ALL,NEWNAME-$CC4 16590000
.* 16600000
.* DATA MANAGEMENT -- CLOSE 16610000
.* 16620000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCL.ALL,NEWNAME-$CC4 16630000
.* 16640000
.CPY36 ANOP . CONTINUE 16643000
.* 16646000
.* TASK TERMINATION/DEALLOCATION 16650000
.* 16660000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCX.ALL,NEWNAME-$CC4 16670000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC5SH 16680000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC5CL 16690000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CCPDD 16700000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-CCPIVP 16710000
*¢// COPY FROM-&D,TO-&C,RETAIN-R,LIBRARY-O,NAME-$CC6.ALL,NEWNAME-$CCP 16720000
AIF (&CL EQ '1').CL395 . SKIP IF CARD GENERATION. 16730000
*¢// COPY FROM-&D,TO-&C,LIBRARY-S,NAME-$CGSST,RETAIN-R 16740000
.CL395 ANOP 16750000
*¢// END 16760000
.* 16770000
.*--------- OUTPUT THE USER SECURITY MODULE CREATION GROUP ---------* 16780000
.* 16790000
AIF (&UPW NE '1').Z9END . SKIP IF NOT SECURE-USER 16800000
.* 16810000
AIF (&CL EQ '1').CL400 . SKIP IF CARD GENERATION. 16820000
*¢// CEND 16830000
*¢// COPY NAME-$CC1US,LIBRARY-P 16840000
.CL400 ANOP . CONTINUE HERE. 16850000
.* 16860000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 16870000
* --- CREATE EMPTY USER SECURITY INFORMATION MODULE --- 16880000
* 16890000
*** USE SCP GENERATOR TO CREATE THE MODULE $CC4Z9 16900000
* 16910000
*¢// LOAD $CGDRV,&DIUNIT 16920000
*¢// SWITCH 0XXXXXXX 16930000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S, 16940000
*¢// SHARE-NO 16950000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-10,RETAIN-S, 16960000
*¢// SHARE-NO 16970000
*¢// FILE NAME-$WORK2,UNIT-&UWWK2,PACK-&PWWK2,TRACKS-10,RETAIN-S, 16980000
*¢// SHARE-NO 16990000
.* 17000000
AIF (&CL EQ '1').CL410 . SKIP IF CARD GENERATION. 17010000
*¢// COMPILE UNIT-&DIUNIT,SOURCE-$CC1US 17020000
*¢// RUN 17030000
*¢// CEND 17040000
*¢// COPY NAME-$CC1US,LIBRARY-S 17050000
AGO .CL420 17060000
.CL410 ANOP . CONTINUE HERE. 17070000
*¢// RUN 17080000
.CL420 ANOP . CONTINUE HERE. 17090000
.* 17100000
$CC4Z9 TITLE 'MODULE&#.TO&#.HOLD&#.USER&#.SECURITY&#.INFORMATION' 17110000
*********************************************************************** 17120000
* U S E R S E C U R I T Y I N F O R M A T I O N * 17130000
*********************************************************************** 17140000
SPACE 2 17150000
* THIS MODULE IS CREATED -- WITH NULL CONTENTS -- AS THE PLACE TO 17160000
* HOLD SECURITY INFORMATION THAT WILL BE USED, DURING THE EXECUTION 17170000
* OF CCP, BY YOUR OWN SIGN-ON CHECKING ROUTINE. THE INFORMATION IS 17180000
* FILLED IN THIS MODULE BY THE SUPPLIED PROGRAM $CCPAU. 17190000
SPACE 1 17200000
$CC4Z9 START 0 MODULE NAME 17210000
DC &LUS.XL1'00' &LUS BYTES, INITIALLY HEX ZEROS 17220000
END $CC4Z9 17230000
.* 17240000
AIF (&CL EQ '1').CL430 . SKIP IF CARD GENERATION. 17250000
*¢// CEND 17260000
*¢// COPY NAME-$CC1UL,LIBRARY-P 17270000
AGO .CL440 17280000
.CL430 ANOP 17290000
*¢/* 17300000
.CL440 ANOP . CONTINUE HERE. 17310000
* 17320000
*** USE OVERLAY LINKAGE EDITOR TO FORM $CC4Z9 AS A LOAD MODULE 17330000
* 17340000
*¢// LOAD $OLINK,&DSUNIT 17350000
*¢// FILE NAME-$SOURCE,UNIT-&UWSRC,PACK-&PWSRC,TRACKS-10,RETAIN-S, 17360000
*¢// SHARE-NO 17370000
*¢// FILE NAME-$WORK,UNIT-&UWWRK,PACK-&PWWRK,TRACKS-10,RETAIN-S, 17380000
*¢// SHARE-NO 17390000
*¢// RUN 17400000
*¢// PHASE NAME-$CC4Z9,UNIT-&CCUNIT,RETAIN-R 17410000
*¢// INCLUDE NAME-$CC4Z9,UNIT-&DIUNIT 17420000
*¢// END 17430000
.Z9END ANOP . END OUTPUT USER SECURITY 17440000
.* 17790000
.*--------- OUTPUT THE COPY PROGRAM SUPPORT GROUP ------------------* 17800000
.* 17810000
AIF ('&PLG'(1,1) NE '1').PP020 . SKIP IF NO COBOL 17820000
AIF (&CL EQ '1').CL501 . SKIP IF CARD GENERATION. 17830000
*¢// CEND 17840000
*¢// COPY NAME-$CC1CO,LIBRARY-P 17850000
.CL501 ANOP . CONTINUE HERE. 17860000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 17870000
* 17880000
*** COPY SUBROUTINES FOR USE WITH COBOL TO PROGRAM PREPARATION PACK 17890000
* 17900000
*¢// PAUSE ASSURE COBOL PROGRAM PACK ON UNIT &UPCBL -- THEN CONTINUE 17910000
*¢// LOAD $MAINT,&DSUNIT 17920000
*¢// RUN 17930000
*¢// COPY FROM-&DIUNIT,TO-&UPCBL,RETAIN-R,LIBRARY-R,NAME-CCPCIO 17940000
*¢// END 17950000
.* 17960000
.PP020 ANOP 17970000
AIF ('&PLG'(2,1) NE '1').PP030 . SKIP IF NO FORTRAN 17980000
AIF (&CL EQ '1').CL503 . SKIP IF CARD GENERATION. 17990000
*¢// CEND 18000000
*¢// COPY NAME-$CC1FT,LIBRARY-P 18010000
.CL503 ANOP . CONTINUE HERE. 18020000
.* 18030000
*** COPY SUBROUTINES FOR USE WITH FORTRAN TO PROGRAM PREPARATION PACK 18040000
* 18050000
*¢// PAUSE ASSURE FORTRAN PROGRAM PACK ON UNIT &UPFOR -- THEN CONTINUE 18060000
*¢// LOAD $MAINT,&DSUNIT 18070000
*¢// RUN 18080000
*¢// COPY FROM-&DIUNIT,TO-&UPFOR,RETAIN-R,LIBRARY-R,NAME-CCPFIO 18090000
*¢// END 18100000
.* 18110000
.PP030 ANOP 18120000
AIF ('&PLG'(3,1) NE '1').PP050 . SKIP IF NO ASSEM 18130000
AIF (&CL EQ '1').CL505 . SKIP IF CARD GENERATION. 18140000
*¢// CEND 18150000
*¢// COPY NAME-$CC1AS,LIBRARY-P 18160000
.CL505 ANOP . CONTINUE HERE. 18170000
.* 18180000
*** COPY MACRO DEFINITIONS AND ANY REQUIRED SUBROUTINES FOR USE WITH 18190000
*** BASIC ASSEMBLER TO PROGRAM PREPARATION PACK 18200000
* 18210000
*¢// PAUSE ASSURE BASIC ASSEMBLER PACK ON UNIT &UPASM -- THEN CONTINUE 18220000
*¢// LOAD $MAINT,&DSUNIT 18230000
*¢// RUN 18240000
*¢// COPY FROM-&DIUNIT,TO-&UPASM,RETAIN-R,LIBRARY-S,NAME-$N.ALL 18250000
*¢// END 18260000
.* 18270000
.PP050 ANOP . CONTINUE HERE 18280000
AIF ('&PLG'(4,1) NE '1').PP010 . SKIP IF NO RPG SUPPORT 18290000
AIF (&CL EQ '1').CL507 . SKIP IF CARD GENERATION. 18300000
*¢// CEND 18310000
*¢// COPY NAME-$CC1RG,LIBRARY-P 18320000
.CL507 ANOP . CONTINUE HERE. 18330000
.* 18340000
*** COPY SUBROUTINES FOR USE WITH RPG II TO PROGRAM PREPARATION PACK 18350000
* 18360000
*¢// PAUSE ASSURE RPG II PROGRAM PACK ON UNIT &UPRPG -- THEN CONTINUE 18370000
*¢// LOAD $MAINT,&DSUNIT 18380000
*¢// RUN 18390000
*¢// COPY FROM-&DIUNIT,TO-&UPRPG,RETAIN-R,LIBRARY-R,NAME-SUBR.ALL 18400000
*¢// END 18410000
.* 18420000
.PP010 ANOP 18430000
.*--------- OUTPUT THE AUXILIARY MODULES GROUP ---------------------* 18450000
.* 18460000
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 18470000
.* 18480000
.AFM05 ANOP . CONTINUE 18485000
AIF (&CL NE '1').CL510 . SKIP IF CARDLESS GENERATION 18490000
* --- PUNCH OUT THE AUXILIARY ELEMENTS REQUIRED IN CARD FORM --- 18500000
* 18510000
*** PUNCH SAMPLE ASSIGNMENT SET AND STARTUP OCL 18520000
* 18530000
AGO .CL520 . SKIP CARDLESS 18540000
.CL510 ANOP . CONTINUE HERE 18550000
*¢// CEND 18560000
.AFM07 ANOP . CONTINUE 18565000
*¢// COPY NAME-$CC1ND,LIBRARY-P 18570000
* 18580000
*** PRINT SAMPLE ASSIGNMENT SET TO BE USED WITH INSTALLATION 18590000
*** VERIFICATION PROGRAM 18600000
* 18610000
.CL520 ANOP 18620000
*¢// LOAD $MAINT,&DSUNIT 18630000
*¢// RUN 18640000
.* 18650000
AIF (&CL EQ '1').CL525 . SKIP IF CARD GENERATION. 18660000
.* 18670000
*¢// COPY FROM-&D,TO-PRINT,LIBRARY-S,NAME-$CGSST 18680000
*¢// COPY FROM-&D,TO-PRINT,LIBRARY-S,NAME-$CGCND 18690000
AGO .CL530 18700000
.CL525 ANOP 18710000
.* 18720000
*¢// COPY FROM-&D,TO-PRTPCH,LIBRARY-S,NAME-$CGSET 18730000
*¢// COPY FROM-&D,TO-PRINT,LIBRARY-S,NAME-$CGEND 18740000
.CL530 ANOP 18750000
*¢// END 18760000
.* 18770000
.*--------- OUTPUT THE $CCPFILE ALLOCATION GROUP -------------------* 18770200
.* 18770400
AIF (&CL EQ '1').CL470 . SKIP IF CARD GENERATION. 18770600
*¢// CEND 18770800
*¢// COPY NAME-$CC1BF,LIBRARY-P 18771000
.CL470 ANOP 18771200
.* 18771400
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 18771600
* --- ALLOCATE $CCPFILE AND WRITE INITIAL CONTENTS --- 18771800
* 18772000
*** EXECUTE THE PREVIOUSLY CREATED LOAD MODULE $CC1BF TO WRITE THE 18772200
*** INITIAL CONTENTS OF $CCPFILE 18772400
* 18772600
AIF (&UFIL EQ &DIUNIT).FANOP . SKIP IF TO DISTRIBUTION PACK 18772800
.* 18773000
*¢// PAUSE ASSURE UNIT &UFIL CONTAINS PACK &PFIL -- THEN CONTINUE 18773200
.* 18773400
.FANOP ANOP . CONTINUE HERE 18773600
.* 18773800
*¢// LOAD $CC1BF,&DIUNIT 18774000
.* 18774200
AIF (&TFIL EQ '0').FANOT . SKIP IF TRKLOC NOT SPECIFIED 18774400
.* 18774600
*¢// FILE NAME-$CCPFILE,UNIT-&UFIL,PACK-&PFIL,TRACKS-&ASIZE,RETAIN-P, 18774800
*¢// LOCATION-&TFIL,SHARE-NO 18775000
AGO .FACOM . JOIN COMMON CODE 18775200
.* 18775400
.FANOT ANOP 18775600
*¢// FILE NAME-$CCPFILE,UNIT-&UFIL,PACK-&PFIL,TRACKS-&ASIZE,RETAIN-P, 18775800
*¢// SHARE-NO 18776000
.* 18776200
.FACOM ANOP . CONTINUE HERE 18776400
*¢// RUN 18776600
.* 18777600
.*-------------- CREATE THE $CCPDUMP FILE --------------------------* 18790300
.* 18790600
AIF (&CL EQ '1').AFM01 . SKIP IF CARD GENERATION. 18790900
*¢// CEND 18791200
AIF (&DSIZE LE '1').AFM07 . SKIP IF NO $CCPDUMP FILE 18791500
*¢// COPY NAME-$CC1DP,LIBRARY-P 18791800
.AFM01 ANOP 18792100
AIF (&DSIZE LE '1').AFM05 . SKIP IF NO $CCPDUMP FILE 18792400
.* 18792700
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 18793000
* --- ALLOCATE $CCPDUMP AND WRITE INITIAL CONTENTS --- 18793300
* 18793600
*** EXECUTE THE LOAD MODULE $CC1DP TO WRITE THE INTITIAL 18793900
*** CONTENTS OF $CCPDUMP 18794200
* 18794500
*¢// PAUSE ASSURE UNIT &DPU CONTAINS PACK &DPPCK -- THEN CONTINUE 18794800
*** IF CCP WILL BE EXECUTED ON A SYSTEM HAVING A DIFFERENT MAIN STORAGE 18795100
*** SIZE, $CCPDUMP MUST BE RECREATED ON THAT SYSTEM USING $CC1DP. 18795400
*¢// LOAD $CC1DP,&DIUNIT 18795700
*¢// FILE NAME-$CCPDUMP,UNIT-&DPU,PACK-&DPPCK,TRACKS-&DSIZE, 18796000
*¢// SHARE-NO,RETAIN-P 18796300
*¢// RUN 18796600
*¢// TRACE TRACKS-&DP 18796900
.* 18797200
AIF (&CL EQ '0').DAT01 . SKIP IF CARDLESS GENERATION. 18797500
*¢/* END OF $CCPDUMP INITIALIZATION 18797800
.DAT01 ANOP . CONTINUE 18798100
.* 18798400
AIF (&CL EQ '1').CL700 . SKIP IF CARD GENERATION. 18798700
*¢// CEND 18799000
.* 18799300
*?? *** BEGIN NEW PAGE IN OUTPUT LISTING *** 18800000
.* 18810000
.* BUILD THE PROCEDURE THAT WILL PERFORM CCP GENERATION PASS 2. 18820000
.* 18830000
*¢// COPY NAME-$CCPSA,LIBRARY-P 18840000
*** PERFORM CCP GENERATION PASS 2 *** 18850000
* 18860000
*¢// CALL $CC1FC,&DIUNIT *** ASSEMBLE $CC1FC 18870000
*¢// CALL $CC1LC,&DIUNIT *** CREATE R-MODULE $CC1FC 18880000
*¢// CALL $CC1#1,&DIUNIT *** EXPAND $CC4#1 MOCROS 18890000
*¢// CALL $CC1#A,&DIUNIT *** ASSEMBLE $CC4#1 18900000
*¢// CALL $CC1L1,&DIUNIT *** CREATE $CC4#1 18910000
*¢// CALL $CC1VT,&DIUNIT *** EXPAND $CC4VT MACROS 18920000
*¢// CALL $CC1VS,&DIUNIT *** ASSEMBLEC$CC4VT 18930000
*¢// CALL $CC1#2,&DIUNIT *** EXPAND $CC4#2 MACROS 18940000
*¢// CALL $CC1#B,&DIUNIT *** ASSEMBLE $CC4#2 18950000
*¢// CALL $CC1LE,&DIUNIT *** CREATE $CC4#2 18960000
AIF (&BSC EQ '0').CL550 . SKIP IF BSCA NOT SUPPORTED 18970000
*¢// CALL $CC1BT,&DIUNIT *** CREATE BSCA TRACE MODULE 18980000
.CL550 ANOP 18990000
AIF (&MLA EQ '0').CL560 . SKIP IF MLTA NOT SUPPORTED 19000000
*¢// CALL $CC1MT,&DIUNIT *** CREATE MLTA TRACE MODULE 19010000
.CL560 ANOP 19020000
AIF (&FSIO EQ '1').CL561 . SKIP IF SIOC SUPPORTED 19020500
AIF (&MLC EQ '0').CL563 . SKIP IF BSCC NOT SUPPORTED 19021000
.CL561 ANOP 19021500
*¢// CALL $CC1#M,&DIUNIT *** EXPAND $CC4#M MACROS 19022000
*¢// CALL $CC1#C,&DIUNIT *** ASSEMBLE $CC4#M 19023000
*¢// CALL $CC1L3,&DIUNIT *** CREATE $CC4#M 19024000
.CL563 ANOP 19025000
AIF (&FSIO EQ '0').CL564 . SKIP IF SIOC NOT SUPPORTED 19026000
AIF (&MLC EQ '0').CL564 . SKIP IF BSCC NOT SUPPORTED 19027000
*¢// CALL $CC1L4,&DIUNIT *** CREATE $CC4#S 19028000
.CL564 ANOP 19029000
*¢// CALL $CC1C1,&DIUNIT *** COPY REQUIRED CCP MODULES 19030000
AIF (&MLA EQ '0').CL565 . SKIP IF MLTA NOT SUPPORTED 19040000
*¢// CALL $CC1C2,&DIUNIT *** COPY REQUIRED CCP MODULES 19050000
.CL565 ANOP 19060000
*¢// CALL $CC1C3,&DIUNIT *** COPY REQUIRED CCP MODULES 19070000
AIF (&UPW NE '1').CL570 . SKIP IF NOT SECURE-USER 19080000
*¢// CALL $CC1US,&DIUNIT *** ASSEMBLE USER SECURITY 19090000
*¢// CALL $CC1UL,&DIUNIT *** CREATE USER SECURITY $CC4Z9 19100000
.CL570 ANOP 19110000
AIF ('&PLG'(1,1) NE '1').CL580 . SKIP IF NO COBOL 19130000
*¢// CALL $CC1CO,&DIUNIT *** COPY COBOL MODULES 19140000
.CL580 ANOP 19150000
AIF ('&PLG'(2,1) NE '1').CL590 . SKIP IF NO FORTRAN 19160000
*¢// CALL $CC1FT,&DIUNIT *** COPY FORTRAN MODULES 19170000
.CL590 ANOP 19180000
AIF ('&PLG'(3,1) NE '1').CL600 . SKIP IF NO ASSEM 19190000
*¢// CALL $CC1AS,&DIUNIT *** COPY ASSEMBLER MODULES 19200000
.CL600 ANOP 19210000
AIF ('&PLG'(4,1) NE '1').CL610 . SKIP IF NO RPG SUPPORT 19220000
*¢// CALL $CC1RG,&DIUNIT *** COPY RPGII MODULES 19230000
.CL610 ANOP 19240000
*¢// CALL $CC1ND,&DIUNIT *** COPY SAMPLE ASSIGNMENT 19250000
*¢// CALL $CC1BF,&DIUNIT *** CREATE $CCPFILE 19255000
AIF (&DSIZE LE '1').AFM10 . SKIP IF $CCPDUMP NOT WANTED 19256000
*¢// CALL $CC1DP,&DIUNIT *** CREATE $CCPDUMP FILE 19257000
.AFM10 ANOP 19258000
*¢// CEND 19260000
*¢// END 19270000
.CL700 ANOP . CONTINUE HERE. 19280000
*?? *** END OF PASS 1 OUTPUT *** 19290000
MEND 19300000