! CNVL2D.COM	NAB	20-Mar-85/18-Apr-85.
!
!	Build CNVL2D.SAV from its parts.
!
DATE
TIME
!
DISPLAY		<Cleanup the DK device.>
SET	ERROR	NONE
DEL/NOQ	*.BAK
DEL	CNVL2D.(FOR,LST,MAP,OBJ,SAV)
DEL	 INIT.(FOR,LST,OBJ)
DEL	  GETPMS.(FOR,LST,OBJ)
DEL	   GETWTS.(FOR,LST,OBJ)
DEL	  TSTTSX.(FOR,LST,OBJ)
DEL	  RDFIL.(FOR,LST,OBJ)
DEL	 WORK.(FOR,LST,OBJ)
DEL	  MOVDAT.(FOR,LST,OBJ)
DEL	   FILTER.(FOR,LST,OBJ)
DEL	 QUIT.(FOR,LST,OBJ)
DEL	  WTFIL.(FOR,LST,OBJ)
SET 	ERROR	ERROR
SQU/NOQ	DK:
TIME
!
DISPLAY		<Preprocess the modules.>
! MP.SAV is from the DECUS C System, 11-SP-18 or 11-SP-68.
RUN	SY:MP
CNVL2D.PGM	CNVL2D.FOR
RUN	SY:MP
INIT.SUB	 INIT.FOR
RUN	SY:MP
GETPMS.SUB	  GETPMS.FOR
RUN	SY:MP
GETWTS.SUB	   GETWTS.FOR
RUN	SY:MP
TSTTSX.SUB	  TSTTSX.FOR
RUN	SY:MP
RDFIL.SUB	  RDFIL.FOR
RUN	SY:MP
WORK.SUB	 WORK.FOR
RUN	SY:MP
MOVDAT.SUB	  MOVDAT.FOR
RUN	SY:MP
FILTER.SUB	   FILTER.FOR
RUN	SY:MP
QUIT.SUB	 QUIT.FOR
RUN	SY:MP
WTFIL.SUB	  WTFIL.FOR
SQU/NOQ	DK:
TIME
!
DISPLAY		<Compile the modules.>
RUN	SY:FORTRAN
CNVL2D,CNVL2D=CNVL2D/W
 INIT,INIT=INIT/W
  GETPMS,GETPMS=GETPMS/W
   GETWTS,GETWTS=GETWTS/W
  TSTTSX,TSTTSX=TSTTSX/W
  RDFIL,RDFIL=RDFIL/W
 WORK,WORK=WORK/W
  MOVDAT,MOVDAT=MOVDAT/W
   FILTER,FILTER=FILTER/W
 QUIT,QUIT=QUIT/W
  WTFIL,WTFIL=WTFIL/W
^C
SQU/NOQ	DK:
TIME
!
DISPLAY		<Link the modules.>
! Use the MNKRT.OBJ array processor library for RT-11.
! Use the MNKTSX.OBJ array processor library for TSX-Plus.
! The MNK(RT,TSX).OBJ libraries are for the SKY Computers, Inc. Micro
!  Number Kruncher Array Processor.  See CNVL2D.DAT for means to
!  eliminate the requirement for this device.
RUN	SY:LINK
CNVL2D,CNVL2D/W=CNVL2D,SY:VRTARY,TSXLIB,MNKTSX/F//
INIT/O:1
WORK/O:1
QUIT/O:1
GETPMS/O:2
TSTTSX/O:2
RDFIL/O:2
MOVDAT/O:2
WTFIL/O:2
GETWTS/O:3
FILTER/O:3
//
^C
SQU/NOQ	DK:
TIME
!
DISPLAY		<Set the memory allocation for TSX-Plus.>
! This step is not required for RT-11.
RUN	SY:SETSIZ	CNVL2D/D:4
TIME
!
!	End of file, CNVL2D.COM.
                    