MACRO 00001000
&LABEL NAMENCP &CPNAME=,&CPSIZE=,&CPTYPE=,&SYSVOL=,&SYSSTRT=, X00002000
&SYSPGCT= 00003000
.* THIS MACRO CREATED FOR VM/370 SUPPORT OF 3704 / 3705 00004000
GBLA &NCPSW 00005000
LCLA &A,&B,&D,&SIZERR 00006000
LCLC &CSIZE 00007000
DMKRNTBL CSECT 00008000
AIF ('&NCPSW' EQ '1').NTFIRST 00009000
&NCPSW SETA 1 00010000
AGO .BEG 00011000
.NTFIRST ANOP 00012000
ORG *-4 00013000
.BEG ANOP 00014000
S&SYSNDX EQU * 00015000
DC AL4(E&SYSNDX-S&SYSNDX) DISPLACEMENT TO NEXT ENT. 00016000
&SIZERR SETA 1 00017000
AIF ('&CPSIZE' EQ '').SIZERR 00018000
&A SETA 1 00019000
&B SETA K'&CPSIZE 00020000
.SZLOOP ANOP 00021000
AIF ('&CPSIZE'(&A,1) EQ 'K').S1 00022000
&A SETA &A+1 00023000
AIF ('&A' GT '&B').SIZER1 00024000
AGO .SZLOOP 00025000
.S1 ANOP 00026000
&A SETA &A-1 00027000
&CSIZE SETC '&CPSIZE'(1,&A) 00028000
AIF ('&CSIZE' GT '256').SIZER2 00029000
DC AL4(&CSIZE*1024) 00030000
.NAM1 ANOP 00031000
AIF ('&CPNAME' EQ '').NAMERR 00032000
&B SETA K'&CPNAME 00033000
AIF (&B LT 1).NAMER1 NAME LESS THAN 1 CHAR. - ERROR 00034000
AIF (&B GT 8).NAMER1 NAME GREATER THAN 8 CHARS. - ERROR 00035000
DC CL8'&CPNAME' SYSTEM NAME 00036000
.VOL1 ANOP 00037000
AIF ('&SYSVOL' EQ '').SVOLERR 00038000
DC CL6'&SYSVOL' VOL SER CONTAINING SAVED SYSTEM 00039000
.TYP1 ANOP 00040000
AIF ('&CPTYPE' EQ '').TYPERR 00041000
AIF ('&CPTYPE' EQ 'EP').EP 00042000
AIF ('&CPTYPE' EQ 'PEP').PEP 00043000
AIF ('&CPTYPE' EQ 'NCP').NCP 00044000
AGO .TYPER1 00045000
.EP DC X'02' SET UP EMULATOR FLAG 00046000
AGO .CPTYPOK 00047000
.PEP DC X'03' SET UP PARTITIONED EMULATOR FLAG 00048000
AGO .CPTYPOK 00049000
.NCP DC X'01' SET UP NCP NATIVE MODE FLAG 00050000
.CPTYPOK ANOP 00051000
DC X'00' CP*2 - RESERVED FOR FUTURE USE 00052000
.STRT1 ANOP 00053000
AIF ('&SYSSTRT' EQ '').STRTERR 00054000
&A SETA 1 00055000
DC AL2(&SYSSTRT(&A)) CYLINDER 00056000
&A SETA &A+1 00057000
AIF ('&SYSSTRT(&A)' EQ '0').PERR 00058000
DC AL1(&SYSSTRT(&A)) PAGE NUMBER 00059000
DC AL1(0) 00060000
.PGCT1 ANOP 00061000
AIF ('&SYSPGCT' EQ '').PGCTERR 00062000
AIF ('&CSIZE' EQ '0').SKPCHK 00063000
&D SETA &CSIZE/4+4 MAXIMUM PAGE COUNT 00064000
AIF (&SYSPGCT GT &D).PGCTER1 @VA02766 00065100
.SKPCHK ANOP 00066000
DC AL4(&SYSPGCT) NUMBER OF PAGES SAVED 00067000
.END ANOP 00068000
E&SYSNDX DS 0F 00069000
DC X'00000000' 00070000
SPACE 2 00071000
AGO .EXIT 00072000
.NAMERR MNOTE 12,'''CPNAME'' NOT SPECIFIED' 00073000
AGO .VOL1 00074000
.NAMER1 MNOTE 12,'INVALID ''CPNAME'' OPERAND' 00075000
AGO .VOL1 00076000
.SIZERR ANOP 00077000
&SIZERR SETA 0 00078000
MNOTE 12,'''CPSIZE'' NOT SPECIFIED' 00079000
AGO .NAM1 00080000
.SIZER1 ANOP 00081000
&SIZERR SETA 0 00082000
MNOTE 12,'INVALID ''CPSIZE'' OPERAND' 00083000
AGO .NAM1 00084000
.SIZER2 ANOP 00085000
&SIZERR SETA 0 00086000
MNOTE 12,'''CPSIZE'' VALUE EXCEEDS MAXIMUM (256K)' 00087000
AGO .NAM1 00088000
.TYPERR MNOTE 12,'''CPTYPE'' NOT SPECIFIED' 00089000
AGO .STRT1 00090000
.TYPER1 MNOTE 12,'INVALID ''CPTYPE'' OPERAND' 00091000
AGO .STRT1 00092000
.SVOLERR MNOTE 12,'''SYSVOL'' NOT SPECIFIED' 00093000
AGO .TYP1 00094000
.STRTERR MNOTE 12,'''SYSSTRT'' NOT SPECIFIED' 00095000
AGO .PGCT1 00096000
.PERR MNOTE 12,'''SYSSTRT'' PAGE NUMBER MUST BE ''1'' OR MORE' 00097000
AGO .PGCT1 00098000
.PGCTERR MNOTE 12,'''SYSPGCT'' NOT SPECIFIED' 00099000
AGO .END 00100000
.PGCTER1 MNOTE 12,'''SYSPGCT'' GREATER THAN NUMBER OF PAGES IMPLIED BY X00101000
''CPSIZE'' PARAMETER.' 00102000
AGO .END 00103000
.EXIT ANOP 00104000
MEND 00105000