Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0126/apmake.ctl
There is 1 other file named apmake.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)
!
! REVISED FOR DEC-20 OPERATION BY PAUL ROBINSON, WESLEYAN UNIV. 25 JUL 80
!
!  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-20
!   SYS:MAKLIB
!   SYS:GLOB
!
!  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 MAKE THE LIBRARY
!
AP020::
@CHKPNT AP020
!
@APPEND APLOT.REL,APSUB.REL,APNAM.REL,APGLD.REL GLPLOT.REL
@IF (ERROR) @GOTO AP900
!
@APPEND APLOT.REL,APSUB.REL,APNAM.REL,APTEK.REL,APTEKM.REL TKPLOT.REL
@IF (ERROR) @GOTO AP900
!
@MAKLIB
*GLPLOT=GLPLOT/INDEX/NOLOCALS
@IF(ERROR) @GOTO AP900
!
@MAKLIB
*TKPLOT=TKPLOT/INDEX/NOLOCALS
@IF (ERROR) @GOTO AP900
!
!Create the GLOB listing
!
AP030::
@CHKPNT AP030
!
@GLOB
*APNAM,APGLD,APLOT,APSUB
*GLPLOT=
@IF(ERROR) @GOTO AP900
!
@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/DELETE
@IF(ERROR)
!
!End
!
@PLEASE ATOPLT - Successful
@GOTO AP999
!
!Error end
!
AP900::
@PLEASE ATOPLT - Fail
!
!
AP999::