! SVSTDR.COM
!
!
! Author:  Nick Bourgeois			Version:  90l05a
!	   9605 Giddings Ave. NE
!	   Albuquerque, NM 87109
!		(505) 828-9566
!
!
! Description:
!
!	Compile and link the modules for the SVSTDR.SAV program.
!
!
! Edit Record:
!
!	13-Nov-90:  Original creation started.
!	05-Dec-90:  Original creation completed.
!
!***********************************************************************
!
DATE
TIME
!
DISPLAY		<Compile>
SET	ERROR	NONE
DEL/NOQ	*.(LST,OBJ)
SET	ERROR	WARNING
DISPLAY	CLRSCR
RUN	SY:F77	CLRSCR=CLRSCR/W
DISPLAY	GETDIR
RUN	SY:F77	GETDIR=GETDIR/W
DISPLAY	GETFLD
RUN	SY:F77	GETFLD=GETFLD/W
DISPLAY	GETID
RUN	SY:F77	GETID=GETID/W
DISPLAY	GETLEN
RUN	SY:F77	GETLEN=GETLEN/W
DISPLAY	GETXOR
RUN	SY:F77	GETXOR=GETXOR/W
DISPLAY	GTSSNM
RUN	SY:F77	GTSSNM=GTSSNM/W
DISPLAY	MNTTAP
RUN	SY:F77	MNTTAP=MNTTAP/W
DISPLAY	OPNFIL
RUN	SY:F77	OPNFIL=OPNFIL/W
DISPLAY	POSTAP
RUN	SY:F77	POSTAP=POSTAP/W
DISPLAY	RDVOL1
RUN	SY:F77	RDVOL1=RDVOL1/W
DISPLAY	SDINIT
RUN	SY:F77	SDINIT=SDINIT/W
DISPLAY	SDQUIT
RUN	SY:F77	SDQUIT=SDQUIT/W
DISPLAY	SDWORK
RUN	SY:F77	SDWORK=SDWORK/W
DISPLAY	SLSVST
RUN	SY:F77	SLSVST=SLSVST/W
DISPLAY	SVSTDR
RUN	SY:F77	SVSTDR=SVSTDR/W
DISPLAY	WRTDIR
RUN	SY:F77	WRTDIR=WRTDIR/W
!
TIME
!
DISPLAY		<Link>
SET	ERROR	NONE
DEL	SVSTDR.(MAP,SAV)
SET	ERROR	ERROR
COPY/CONC	(GTSSNM+MNTTAP+OPNFIL+POSTAP+RDVOL1).OBJ	INIT.OBJ
COPY/CONC	(INIT+SDINIT+SLSVST).OBJ			INIT.OBJ
COPY/CONC	(GETDIR+GETFLD+GETID+GETLEN+GETXOR).OBJ		WORK.OBJ
COPY/CONC	(WORK+SDWORK+WRTDIR).OBJ			WORK.OBJ
RUN	SY:LINK
SVSTDR,SVSTDR=SVSTDR,MTLIB,SY:F77OTS/A/G/W//
CLRSCR/O:1
INIT/O:1
WORK/O:1
SDQUIT/O:1
//
^C
DEL	(INIT,WORK).OBJ
!
TIME
!
DISPLAY		<Set Memory Allocation>
RUN	SY:SETSIZ	SVSTDR/D:4
!
TIME
!
! End of file, SVSTDR.COM.