Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/pltlib/v12a/pltlib.mic
There are 2 other files named pltlib.mic in the archive. Click here to see a list.
.;PLTLIB.MIC - This MIC file compiles the CSM plotting package
.IF($A="").LET A="CREF"
.GOTO 'A

CONTEN::.;CONTEN::
.DO PLTLIB PLTUNV,	;Update table of contents for PLTUNV then PLOT.MAC

PLOT::.;PLOT::
.RUN TED:CONTEN
*PLOT.MAC
*PLOT.MAC
=Y
=EB PLOT.MAC/INPLACE^[ NContents -- PLOT^[ 2L .,ZK GC HT EX^[^[

.RUN TED:CONTEN
*PLTDSK.MAC
*PLTDSK.MAC
=Y
=EB PLOT.MAC/INPLACE^[ NContents -- PLTDSK^[ 2L .,ZK GC HT EX^[^[

.RUN TED:CONTEN
*PLTRGS.MAC
*PLTRGS.MAC
=Y
=EB PLOT.MAC/INPLACE^[ NContents -- PLTRGS^[ 2L .,ZK GC HT EX^[^[

.RUN TED:CONTEN
*PLTTEK.MAC
*PLTTEK.MAC
=Y
=EB PLOT.MAC/INPLACE^[ NContents -- PLTTEK^[ 2L .,ZK GC HT EX^[^[

.RUN TED:CONTEN
*PLTIOD.MAC
*PLTIOD.MAC
=Y
=EB PLOT.MAC/INPLACE^[ NContents -- PLTIOD^[ 2L .,ZK GC HT EX^[^[
.MIC RETURN


SYMBOL::.;SYMBOL::
.RUN TED:CONTEN
*SYMBOL.MAC
*SYMBOL plotter
=Y
=EB SYMBOL.MAC/INPLACE^[ NTable of Contents for^[ 0L .,ZK GC HT EX^[^[
.MIC RETURN


PLTUNV::.;PLTUNV::
.RUN TED:CONTEN
*PLTUNV.MAC
*PLOT universal definitions
=N
=:1EF EB PLTUNV.MAC/INPLACE^[ NTable of Contents for^[ 0L .,ZK GC HT EX^[^[
.MIC RETURN


CREF::.;CREF::
COMPIL::.;COMPIL::	;Create PLTUNV.REL, SYMBOL.REL, PLOT.REL
.ERROR ?
.COMPILE/'A PLTUNV.MAC  	;Definitions, FORTRAN-77 CHARACTER interface
.COMPILE RGSPLT.MAC,TEKPLT.MAC	;.PLOT. for REGIS and TEKTRONIX
.COMPILE/'A SYMBOL.MAC  	;Routines to plot characters and symbols
.COMPILE/'A SETSYM.FOR  	;Alternate implementation of SETSYM
.COMPILE/'A PLOT.REL=PLOT.MAC+PLTDSK.MAC+PLTRGS.MAC+PLTTEK.MAC+PLTIOD.MAC
.COPY PLTLIB.REL=PLTUNV.REL,SYMBOL.REL,PLOT.REL
.VERSION PLOT.*,PLT???.REL,???PLT.REL,SYMBOL.REL,SETSYM.REL,PLTUNV.UNV=PLTUNV.MAC
.IF(ERROR).DIRECT PLTUNV.MAC
.VERSION PLTLIB.SFD=PLOT.MAC/DATE
.IF(ERROR).DIRECT PLOT.MAC

.DIRECT *.REL		;End of PLTLIB.MIC
.'B 'C