MACRO 00001000
&NAME SYSTEM &VOLID=,&EXADD=,&SYSMASK=0,&RUNKEY=0,&SWPTBL=,&PAGTBL=0 00002000
.* THIS MACRO DESCRIBES A SAVED SYSTEM 00003000
GBLA &SYSCNT 00004000
AIF (T'&NAME EQ 'O').CNT 00005000
&SYSCNT SETA &SYSCNT+1 00006000
DC CL8'&NAME' SYSNAME 00007000
DC CL6'&VOLID' SYSVOLID 00008000
DC XL1'&SYSMASK' SYSSMASK 00009000
DC XL.4'&RUNKEY',XL.4'0' SYSRNKEY 00010000
DC XL4'&EXADD' SYSEXADD 00011000
DC A(&SWPTBL) SYSSWPTB 00012000
DC A(&PAGTBL) SYSPAGTB 00013000
DC F'0' SYSRSV1 00014000
SPACE 3 00015000
MEXIT 00016000
.CNT ANOP 00017000
ENTRY SYSCNT 00018000
SYSCNT DC F'&SYSCNT' 00019000
EJECT 00020000
MEND 00021000