ibm:vm370-lib:macro:namesys.macro_src
Table of Contents
NAMESYS Source
References
- Fixes Applied : 1
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [R11206DK]
Source Listing
- NAMESYS.MACRO.txt
- MACRO 00004000
- &LABEL NAMESYS &SYSNAME=,&SYSSIZE=,&VSYSRES=, X00005000
- &VSYSADR=,&SYSCYL=,&SYSVOL=,&SYSSTRT=,&SYSPGCT=, X00006000
- &PROTECT=,&SYSPGNM=,&SYSHRSG= 00007000
- GBLA &SW 00008000
- LCLA &PCT,&SCT,&A,&B,&K2,&K3,&K4(16),&K5 00009000
- LCLA &T1,&T2,&T3,&T4 00009100
- LCLC &LOCTR 00009200
- LCLC &CSIZE,&C1 00010000
- LCLA &SEG,&SEGB(78),&SEGE(78),&S @VA11206 00010010
- DMKSNTBL CSECT 00011100
- AIF ('&SW' NE '1').BEG 00012100
- ORG *-4 00015000
- .BEG ANOP 00016000
- &SW SETA 1 00016500
- S&SYSNDX EQU * 00017000
- DC AL4(E&SYSNDX-S&SYSNDX) DISPLACEMENT TO NEXT ENT. 00018000
- AIF ('&SYSSIZE' EQ '').SIZERR 00019000
- &A SETA 1 00020000
- &B SETA K'&SYSSIZE 00021000
- .SZLOOP ANOP 00022000
- AIF ('&SYSSIZE'(&A,1) EQ 'K').S1 00023000
- &A SETA &A+1 00024000
- AIF ('&A' GT '&B').SIZERR 00025000
- AGO .SZLOOP 00026000
- .S1 ANOP 00027000
- &A SETA &A-1 00028000
- &CSIZE SETC '&SYSSIZE'(1,&A) 00029000
- DC AL4(&CSIZE*1024) 00030000
- AIF ('&SYSNAME' EQ '').NAMERR 00031000
- &A SETA 1 00032000
- &B SETA K'&SYSNAME 00033000
- AIF (&B GT 3).NAMOK 00034000
- .NAMLOOP ANOP 00035000
- AIF ('&SYSNAME'(&A,1) GT 'F').NAMOK 00036000
- &A SETA &A+1 00037000
- AIF ('&A' GT '&B').NAMER1 00038000
- AGO .NAMLOOP 00039000
- .NAMOK ANOP 00040000
- DC CL8'&SYSNAME' SYSTEM NAME 00041000
- AIF ('&VSYSADR' NE 'IGNORE').VLDRES 00042100
- DC XL6'FFFFFFFFFFFF' VOLUME NOT REQUIRED ONLINE 00042200
- AGO .SKIPRES 00042300
- .VLDRES ANOP 00042400
- AIF ('&VSYSRES' EQ '').VSYSERR 00042500
- DC CL6'&VSYSRES' VOLUME SERIAL CONTAINING VSYSRES 00042600
- .SKIPRES ANOP 00042700
- AIF ('&VSYSADR' EQ '').VADRERR 00042800
- AIF ('&VSYSADR' NE 'IGNORE').VLDADR 00042900
- DC X'FFFF' NOT REQUIRED ONLINE(VSYSRES) 00043000
- AGO .SKIPADR 00043100
- .VLDADR ANOP 00043200
- DC XL2'&VSYSADR' VIRTUAL ADDRESS OF VSYSRES 00043300
- .SKIPADR ANOP 00043400
- AIF ('&SYSVOL' EQ '').SVOLERR 00043500
- DC CL6'&SYSVOL' VOLUME CONTAINING SAVED SYSTEM 00043600
- AIF ('&VSYSADR' NE 'IGNORE').VLDCYL 00043700
- DC XL2'FFFF' VOLUME NOT REQUIRED ONLINE 00043800
- AGO .SKIPCYL 00043900
- .VLDCYL ANOP 00044000
- AIF ('&SYSCYL' EQ '').CYLERR 00044100
- DC AL2(&SYSCYL) CYLINDER DISPLACEMENT FOR VSYSRES 00044200
- .SKIPCYL ANOP 00044300
- AIF ('&SYSSTRT' EQ '').STRTERR 00050000
- &A SETA 1 00051000
- DC AL2(&SYSSTRT(&A)) CYLINDER 00052000
- &A SETA &A+1 00053000
- AIF ('&SYSSTRT(&A)' EQ '0').PERR 00054000
- DC AL1(&SYSSTRT(&A)) PAGE NUMBER 00055000
- DC AL1(0) 00056000
- &T4 SETA 0 00057100
- AIF ('&SYSPGCT' EQ '').NOPGCT 00057200
- &T4 SETA &SYSPGCT 00057300
- .NOPGCT ANOP 00057400
- X&SYSNDX DC AL4(&T4) NUMBER OF SAVED PAGES 00057500
- &LOCTR SETC 'X'.'&SYSNDX' 00057600
- AIF ('&SYSPGNM' EQ '').PGNMERR 00059000
- AIF ('&SYSPGNM'(1,1) EQ '(').PARMX1 00059100
- MNOTE 8,'(SYSPGNM) OPERAND NOT ENCLOSED WITHIN PARENTHESES' 00059200
- .PARMX1 ANOP 00059300
- &PCT SETA N'&SYSPGNM NUMBER OF ENTRIES 00060000
- &K2 SETA 1 00061000
- .Q1 ANOP 00062000
- &K4(&K2) SETA K'&SYSPGNM(&K2) 00063000
- AIF ('&K2' EQ '&PCT').Q2 00064000
- &K2 SETA &K2+1 00065000
- AGO .Q1 00066000
- .Q2 ANOP 00067000
- DC AL2(&PCT) NUMBER OF ENTRIES 00068000
- AIF ('&PROTECT' EQ '').NOPROCT 00068100
- AIF ('&PROTECT' EQ 'ON').NOPROCT 00068150
- AIF ('&PROTECT' NE 'OFF').PROTERR 00068200
- DC AL1(0) RESERVED 00068225
- DC AL1(128) NAMED SYSTEM FLAG 00068250
- AGO .BLDPGNM 00068300
- .NOPROCT ANOP 00068350
- DC AL1(0) RESERVED 00068375
- DC AL1(0) NAMED SYSTEM FLAG 00068400
- .BLDPGNM ANOP 00068450
- DS 0F 00069000
- &K2 SETA 1 00070000
- .Q3 ANOP 00071000
- &K3 SETA 1 00072000
- .Q4 ANOP 00073000
- AIF ('&SYSPGNM(&K2)'(&K3,1) EQ '-').Q5 00074000
- AIF ('&K3' EQ '&K4(&K2)').SING 00075000
- &K3 SETA &K3+1 00076000
- AGO .Q4 00077000
- .SING ANOP 00078000
- &C1 SETC '&SYSPGNM(&K2)' 00079000
- &SEG SETA &C1 @VA11206 00079010
- &SEG SETA &SEG/16 @VA11206 00079020
- &SEGB(&K2) SETA &SEG @VA11206 00079030
- &SEGE(&K2) SETA &SEG @VA11206 00079040
- DC 2AL2(&C1) SINGLE PAGE 00080000
- &T3 SETA &T3+1 00080100
- AGO .NXTIT 00081000
- .Q5 ANOP 00082000
- &K5 SETA &K3-1 00083000
- &C1 SETC '&SYSPGNM(&K2)'(1,&K5) 00084000
- &SEG SETA &C1 @VA11206 00084010
- &SEGB(&K2) SETA &SEG/16 @VA11206 00084020
- DC AL2(&C1) START PAGE NUMBER 00085000
- &T1 SETA &C1 00085100
- &K5 SETA &K4(&K2)-&K3 00086000
- &K3 SETA &K3+1 00087000
- &C1 SETC '&SYSPGNM(&K2)'(&K3,&K5) 00088000
- &SEG SETA &C1 @VA11206 00088010
- &SEGE(&K2) SETA &SEG/16 @VA11206 00088020
- DC AL2(&C1) END PAGE NUMBER 00089000
- &T2 SETA &C1+1 00089100
- &T3 SETA &T2-&T1+&T3 00089200
- .NXTIT ANOP 00090000
- AIF ('&K2' EQ '&PCT').Q6 00091000
- &K2 SETA &K2+1 00092000
- AGO .Q3 00093000
- .Q6 ANOP 00094000
- &A SETA 1 00095000
- &B SETA 1 00096000
- AIF ('&T4' EQ '&T3').OKPGCT 00096100
- ORG &LOCTR 00096200
- DC AL4(&T3) NUMBER OF SAVED PAGES 00096300
- ORG 00096450
- AIF ('&SYSPGCT' EQ '').OKPGCT 00096500
- AIF ('&SYSPGCT' EQ '&T3').OKPGCT 00096600
- MNOTE 4,'(SYSPGCT) NOT EQUAL TO NUMBER OF SAVED PAGES' 00096700
- MNOTE *,'NUMBER OF SAVED PAGES HAS BEEN SET TO &T3' 00096800
- .OKPGCT ANOP 00096900
- AIF ('&SYSHRSG' EQ '').NOSEG 00097000
- AIF ('&SYSHRSG'(1,1) EQ '(').PARMX2 00097100
- MNOTE 8,'(SYSHRSG) OPERAND NOT ENCLOSED WITHIN PARENTHESES' 00097200
- .PARMX2 ANOP 00097300
- &SCT SETA N'&SYSHRSG 00098000
- DC AL2(&SCT) 00099000
- .SEGLOOP ANOP 00100000
- AIF ('&B' GT '&SCT').END 00101000
- &C1 SETC '&SYSHRSG(&A)' @VA11206 00101005
- &SEG SETA &C1 @VA11206 00101010
- &S SETA 1 @VA11206 00101015
- .SEGCK ANOP 00101020
- AIF (&S GT &PCT).SEGERR @VA11206 00101025
- AIF (&SEG LT &SEGB(&S)).SEGINCR @VA11206 00101030
- AIF (&SEG GT &SEGE(&S)).SEGINCR @VA11206 00101035
- AGO .SEGGD @VA11206 00101040
- .SEGINCR ANOP 00101045
- &S SETA &S+1 @VA11206 00101050
- AGO .SEGCK @VA11206 00101055
- .SEGERR ANOP 00101060
- MNOTE 12,'(SYSHRSG) NOT WITHIN (SYSPGNM) RANGE' @VA11206 00101065
- .SEGGD ANOP 00101070
- DC AL1(&SYSHRSG(&A)) 00102000
- &A SETA &A+1 00103000
- &B SETA &B+1 00104000
- AGO .SEGLOOP 00105000
- .NOSEG DC AL2(0) 00106000
- .END ANOP 00107000
- DS 0F 00108000
- E&SYSNDX EQU * 00109000
- DC X'00000000' 00110000
- AGO .EXIT 00111000
- .NAMERR ANOP 00112000
- MNOTE 12,'NO SYSNAME SPECIFIED' 00113000
- MEXIT 00114000
- .NAMER1 ANOP 00115000
- MNOTE 12,'INVALID SYSNAME SPECIFIED' 00116000
- MEXIT 00117000
- .SIZERR ANOP 00118000
- MNOTE 12,'NO MINIMUM CORE SIZE SPECIFIED' 00119000
- MEXIT 00120000
- .VSYSERR ANOP 00121000
- MNOTE 12,'NO VIRTUAL SYSRES SPECIFIED' 00122000
- MEXIT 00123000
- .VADRERR ANOP 00124000
- MNOTE 12,'NO VIRTUAL SYSRES ADDRESS SPECIFIED' 00125000
- MEXIT 00126000
- .CYLERR ANOP 00127000
- MNOTE 12,'NO SYSRES CYLINDER SPECIFIED' 00128000
- MEXIT 00129000
- .SVOLERR ANOP 00130000
- MNOTE 12,'NO VOL SER FOR SYSVOL SPECIFIED' 00131000
- MEXIT 00132000
- .STRTERR ANOP 00133000
- MNOTE 12,'NO STARTING ADDRESS FOR SAVED SYSTEM SPECIFIED' 00134000
- MEXIT 00135000
- .PERR ANOP 00136000
- MNOTE 12,'DASD PAGE NUMBER MUST BE "1" OR MORE' 00137000
- MEXIT 00138000
- .PAGERR ANOP 00142000
- MNOTE 12,'INVALID PAGE NUMBER' 00143000
- MEXIT 00144000
- .PGNMERR ANOP 00145000
- MNOTE 12,'NO PAGE NUMBERS SPECIFIED' 00146000
- MEXIT 00147000
- .PROTERR ANOP 00147100
- MNOTE 12,'INVALID PROTECT KEYWORD SPECIFIED' 00147300
- MEXIT 00147500
- .EXIT ANOP 00148000
- MEND 00149000
ibm/vm370-lib/macro/namesys.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator