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