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