Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50547/pltlib/v12/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
=EB PLTUNV.MAC/INPLACE^[ NTable of Contents for^[ 0L .,ZK GC HT EX^[^[
.MIC RETURN
CREF::.;CREF::
COMPIL::.;COMPIL::
.COMPILE/'A PLTUNV.MAC
.COMPILE/'A SYMBOL.MAC,DSKPLT.MAC
.COMPILE/'A PLOT.REL=PLOT.MAC+PLTDSK.MAC+PLTRGS.MAC+PLTTEK.MAC+PLTIOD.MAC
.DIRECT *.REL ;End of PLTLIB.MIC