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

!
!  NAME: ACCT20.CTL
!  DATE: 18-FEB-76
! 
! THIS CONTROL FILE IS PROVIDED FOR INFORMATION PURPOSES ONLY.  THE
! PURPOSE OF THE FILE IS TO DOCUMENT THE PROCEDURES USED TO BUILD
! THE DISTRIBUTED SOFTWARE.  IT IS UNLIKELY THAT THIS CONTROL FILE
! WILL BE ABLE TO BE SUBMITTED WITHOUT MODIFICATION ON CONSUMER
! SYSTEMS.  PARTICULAR ATTENTION SHOULD BE GIVEN TO ERSATZ DEVICES
! AND STRUCTURE NAMES, PPN'S, AND OTHER SUCH PARAMETERS.  SUBMIT
! TIMES MAY VARY DEPENDING ON SYSTEM CONFIGURATION AND LOAD. THE
! AVAILABILITY OF SUFFICIENT DISK SPACE AND CORE IS MANDATORY.
! 
! 
!  FUNCTION:	THIS CONTROL FILE BUILDS ACCT20 FROM ITS BASIC 
! 		SOURCES.  
! 
!  REQUIRED INPUT FILES ON <SUBSYS>:
! 		FORTRA.EXE
! 		MACRO.EXE
! 		LINK.EXE
! 		CREF.EXE
! 
!  REQUIRED INPUT FILES ON <CONNECTED DIRECTORY>:
! 		ACCT20.FOR	; FORTRAN MAIN PACKAGE
! 		ACCSUB.MAC	; SUBROUTINE PACKAGE
! 
!  FILES CREATED BY THIS JOB IN <CONNECTED DIRECTORY>:
! 		ACCT20.EXE	; THE SAVE CORE IMAGE
! 		ACCT20.LOG	; THE LOG FILE
! 
!  GENERATED LISTINGS -- ON SPOOLED LPT:
! 		CROSS REFERENCE OF ACCT20.FOR
! 		CROSS REFERENCE OF ACCSUB.MAC
! 
!  SUBMIT WITH THE SWITCH "/TAG:CREF" TO OBTAIN 
!    LISTINGS OF THE SOURCE FILES
!
!
@DEF FOO: NUL:
@GOTO A
CREF:: @DEF FOO: DSK:
!
A::
!  LET BATCH NOT DO US IN
! 
@NOERROR
! 
! GO TO THE BETTER CHOICE
! 
! CHECK WHAT WE HAVE HERE
! 
@DIR ACC*.*,
@CHECK SEQ
@
@VDIRECT SYS:MACRO.EXE,SYS:CREF.EXE,SYS:LINK.EXE,SYS:FORLIB.REL,
@CHECKSUM SEQ
@
@VDIRECT SYS:MONSYM.UNV,SYS:MACSYM.UNV,SYS:MACREL.REL,SYS:PA1050.EXE,
@CHECKSUM SEQ
@
@
@RUN SYS:MACRO
@INFORMATION VERSION
@GET SYS:LINK
@INFORMATION VERSION
@GET SYS:CREF
@INFORMATION VERSION
! 
! COMPILE THE FORTRAN PORTION (LISTING TO LPT:)
! 
@FORTRA
*ACCT20,DSK:ACCT20=ACCT20.FOR/CROSS
! 
! ASSEMBLE THE SUBROUTINE PACKAGE
! 
@MACRO
*ACCSUB,ACCSUB/C=ACCSUB
! 
! NOW LINK THE STUFF TOGETHER
! 
@LINK
*ACCT20,ACCSUB/OTS:LOW/G
! 
! NOW SAVE IT
! 
@SAVE ACCT20
@INFORMATION VERSION
! 
! LET'S SEE WHAT WE HAVE
! 
@DIRECT ACC*.*,
@CHECKSUM SEQ
@
!
! AND GET THE CREF-LISTING
!
@R CREF
*FOO:ACCSUB.LST=ACCSUB.CRF
*FOO:ACCT20.LST=ACCT20.CRF
! 
! AND FINALLY CLEAN UP AFTERWARDS
! 
@DEL ACCT20.REL,ACCSUB.REL
@EXP