Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/plot.ctl
There are 2 other files named plot.ctl in the archive. Click here to see a list.
;PLOT.CTL - This batch control file will put the CSM plotting software
;           into FORLIB.REL
;
;Input files:
;	DEC:FORLIB.V7	Unmodified FORLIB version 7
;
;	DSK:PLTLIB.MIC	Compiles PLTUNV.REL, PLOT.REL, SYMBOL.REL
;	    FORPLT.MIC	Updates FORLIB.REL
;
;	DSK:PLTUNV.MAC	FORTRAN-77 interface modules
;	    PLOT.MAC	Major portion of subroutine PLOT
;	    PLTDSK.MAC	Compressed disk file device driver
;	    PLTRGS.MAC	ReGIS device driver (GIGI, VT125, DMP4R)
;	    PLTTEK.MAC	Tektronix device driver (4006, 4010, 4012)
;	    PLTIOD.MAC	I/O and data (end of PLOT.REL)
;	    DSKPLT.MAC	Defines default plotter to be spooled DSK file
;	    TEKPLT.MAC	Defines default plotter to be TEKTRONIX terminals
;	    RGSPLT.MAC	Defines default plotter to be REGIS (GIGI,VT125)
;	    SYMBOL.MAC	Draws letters on the plotter
;	    SYMBOL.DAT	Data file for subroutine SYMBOL
;	    SETSYM.FOR	Reads SYMBOL.DAT for SYMBOL.REL under TOPS-20
;	    CPLOT1.REL	Miscellaneous CSM plotting routines
;	    CMISC1.REL	Miscellaneous CSM routines
;
;
;Output files: (which need to be moved to SYS:)
;	DSK:FORLIB.REL	With modifications
;	    SYMBOL.DAT

.PATH /CREATE:(DSKB,DSKA)	;*KLUDGE* ignore DSKS: for now
.IF(ERROR).;Ignore
.RUNOFF PLOT.MAN=PLOT.RNM
.IF(ERROR).;Ignore

COMPIL::		;Compile the 4 REL files
.NOERROR
.DO PLTLIB COMPILE

REMDEC::		;Remove unwanted DEC routines and add CSM routines
.NOERROR
.DO FORPLT REPLACE
.;*;.DELETE PLTUNV.UNV,PLTUNV.REL,PLOT.REL,SYMBOL.REL,DSKPLT.REL

DONE::			;Get directory of created files
.ERROR ?
.DIRECT FORLIB.REL, ???PLT.REL, SYMBOL.DAT