Trailing-Edge
-
PDP-10 Archives
-
bb-d868b-bm_tops20_v3a_2020_dist
-
3a-sources/acct20.ctl
There are 3 other files named acct20.ctl in the archive. Click here to see a list.
!
! 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