.Title  VFSBoot Privileged program for restarting VFS_CONTROL
        .Ident  /1.01/

$PrcDef
$PQLDef
$PrvDef

        .Macro  Quota Which,Size
        .Byte   PQL$_'Which
        .IIf    NB,Size,        .Long   Size
        .EndM

        .PSect  Data,NoWrt,NoExe,Long

Quotas: Quota   AstLm,48
        Quota   BIOLm,32
        Quota   BytLm,65536
        Quota   CPULm,0
        Quota   DIOLm,32
        Quota   EnqLm,32
        Quota   FilLm,96
        Quota   PgFlQuota,4096
        Quota   PrcLm,0
        Quota   TQELm,32
        Quota   WSDefault,72
        Quota   WSExtent,256
        Quota   WSQuota,192
        Quota   ListEnd

        .Align  Long
Privs:  .Long   <<1@Prv$V_CMKrnl>!-
                 <1@Prv$V_ExQuota>!-
                 <1@Prv$V_Log_IO>!-
                 <1@Prv$V_NoAcnt>!-
                 <1@Prv$V_Oper>!-
                 <1@Prv$V_Phy_IO>!-
                 <1@Prv$V_PrmMbx>!-
                 <1@Prv$V_PSwapm>!-
                 <1@Prv$V_SetPri>!-
                 <1@Prv$V_SetPrv>!-
                 <1@Prv$V_SysNam>!-
                 <1@Prv$V_SysPrv>!-
                 <1@Prv$V_TmpMbx>>
        .Long   0

        .Align  Long
What:   .AsciD  /SYS$SYSTEM:LOGINOUT.EXE/

        .Align  Long
Name:   .AsciD  /VFS_CONTROL/

        .Align  Long
In:     .AsciD  /CS_SYS:VFS.COM/

        .Align  Long
Out:    .AsciD  /CS_SYS:VFS.LOG/

        .PSect  Code,NoWrt,Exe,PIC,Shr,Word

        .Entry  BootIt,^M<>
        $CrePrc_S Image=What,-
                Input=In,-
                Output=Out,-
                Error=Out,-
                PrvAdr=Privs,-
                Quota=Quotas,-
                PrcNam=Name,-
                BasPri=#10,-
                UIC=#^X00020003,-
                StsFlg=#Prc$M_SSRWait
        Ret

        .End    BootIt