Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0126/ap10.ctl
There is 1 other file named ap10.ctl in the archive. Click here to see a list.
!	A T O P L T   B u i l d i n g   P r o c e d u r e
!
!  Rob Cook, La Trobe University, Bundoora, 3093
!  27-May-77	edit 1(3)
!
!  Required files:
!	APNAM.FOR	global COMMON initialisation
!	APGLD.FOR	Gould 4800 parameter definition
!	APTEK.FOR	Tektronix 4010 parameter definition
!	APLOT.FOR	principal ATOPLT subroutines
!	APSUB.FOR	basic plot interface subroutines
!	APTEKM.MAC	forces LINK library search of PIC:TEKLIB
!			for Tektronix 4010
!   SYS:FORTRAN-10
!   SYS:FUDGE2
!   SYS:GLOB
!   SYS:PIP
!   SYS:QUEUE
!
!  Outputs:
!	GLPLOT.REL	ATOPLT configured for a GOULD 4800 printer/plotter
!	TKPLOT.REL	ATOPLT configured for a TEKTRONIX 4012 terminal
!	*.LPT		CREF listings of the programs
!	*.GLB		GLOB cross reference of global symbols
!
!
AP010::
.CHKPNT AP010
!
.COMPIL/COMPIL/CREF APNAM,APLOT,APSUB
.IF(ERROR) .GOTO AP900
!
.COMPIL/COMPIL/CREF APGLD
.IF(ERROR) .GOTO AP900
!
.COMPIL/COMPIL/CREF APTEK,APTEKM
.IF(ERROR) .GOTO AP900
!
.CREF
.IF(ERROR) .GOTO AP900
!
!Now FUDGE all the binaries together
!
AP020::
.CHKPNT AP020
!
.R FUDGE2
*GLPLOT=APLOT,APSUB,APNAM,APGLD/A
*GLPLOT=GLPLOT/X
.IF(ERROR) .GOTO AP900
!
.R FUDGE2
*TKPLOT=APLOT,APSUB,APNAM,APTEK,APTEKM/A
*TKPLOT=TKPLOT/X
.IF(ERROR) .GOTO AP900
!
!Create the GLOB listing
!
AP030::
.CHKPNT AP030
!
.R GLOB
*APNAM,APGLD,APLOT,APSUB
*GLPLOT=
.IF(ERROR) .GOTO AP900
!
.R GLOB
*APNAM,APTEK,APTEKM,APLOT,APSUB
*TKPLOT=
.IF(ERROR) .GOTO AP900
!
!Delete all the waste materials
!
.DELETE APLOT.REL,APNAM.REL,APSUB.REL
.IF(ERROR)
.DELETE APGLD.REL
.IF(ERROR)
.DELETE APTEK.REL,APTEKM.REL
.IF(ERROR)
!
!Print the listings
!
.PRINT *.LPT,*.GLB/DISPOSE:RENAME
.IF(ERROR)
!
!End
!
.PLEASE ATOPLT - Successful
.GOTO AP999
!
!Error end
!
AP900::
.PLEASE ATOPLT - Fail
!
!
AP999::