ibm:vm370-lib:macro:namencp.macro_src
Table of Contents
NAMENCP Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- NAMENCP.MACRO.txt
- 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
ibm/vm370-lib/macro/namencp.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator