Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

! Control file to build PANTT.EXE for inhouse release
!
!
!First make sure we know what is going into the product
@VD *.*,SYS:MACRO.EXE,SYS:LINK.EXE,SYS:CREF.EXE,
@CHECK SEQ
@
!
! Now go build the .REL files
!
@MACRO
*NUL:,DSK:PARUNV.CRF/C=PARUNV
*PARSE.REL,PARSE.CRF/C=PARSE
*PANTT.REL,PANTT.CRF/C=PANTT
@IF (ERROR) @GOTO PUNT
!
! Build a listing file
!
@APPEND PANTT.CRF,PARSE.CRF PARUNV.CRF
@CREF
*PANTT.LST=PARUNV.CRF
@IF (ERROR) @GOTO PUNT
@DELETE PARUNV.CRF,PANTT.CRF,PARSE.CRF
@IF (ERROR) @GOTO PUNT
!
! Now load the result
!
@LINK
*TTY:/LOG/LOGLEV:0
*PANTT/GO
@IF (ERROR) @GOTO PUNT
@SAVE PANTT
@INFO VER
@GOTO DONE
!
! Clean up after any errors
!
PUNT::
@BOMB PANTT:PANTT.CTL,ASSEMBLY ERRORS EXIST
@IF (ERROR) !IGNORE IT
@PRINT PANTT.LOG
@DELETE PARUNV.CRF,PANTT.CRF,PARSE.CRF,PARUNV.UNV,PARUNV.REL,PANTT.REL,PARSE.REL
DONE::
!
! Take a final directory
!
@VD *.*,
@CHECK SEQ
@
!JOB DONE