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::