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

!%1(1)	GALAXY		4 MAY 1977	LARRY SAMBERG/RAP
!BATCH JOB TO GENERATE A DECSYSTEM-10 GALAXY SYSTEM
!
!TO GENERATE ALL THE GALAXY COMPONENTS WITHOUT LISTINGS:
!
!	.SUBMIT GALAXY/TIME/RESTART
!
!TO CAUSE GENERATION ALL LISTINGS FOR ALL THE COMPONENTS, INCLUDE
!	"/TAG:LIST/PAGES:1500"	 ON THE "SUBMIT" COMMAND.
!
!
!		NOTE:	GALGEN MUST BE RUN TO MAKE GALCNF.MAC
!			BEFORE THIS FILE IS RUN.
!
!NECESSARY FILES
!	QUASAR SOURCE FILES
!		GALCNF.MAC	CREATE BY RUNNING GALGEN
!		QSRMAC.MAC
!		QUASAR.MAC
!		QSRQUE.MAC
!		QSRT10.MAC
!		QSRIPC.MAC
!		QSRMEM.MAC
!		QSRFSS.MAC
!		QSRSCH.MAC
!		QSRADM.MAC
!	OTHER SOURCE FILES
!		BATCON.MAC
!		LPTSPL.MAC
!		LOGOUT.MAC
!		SPROUT.MAC
!		SPRINT.MAC
!		QMANGR.MAC
!		QUENCH.MAC
!		CSPMEM.MAC
!		CSPQSR.MAC
!		SBSMAC.MAC
!		SBSCOM.MAC
!	SYSTEM UNIVERSAL FILES
!		MACTEN.UNV
!		UUOSYM.UNV
!		SCNMAC.UNV
!		QPRM.UNV
!	SYSTEM UTILTITY MODULES
!		HELPER.REL
!		SCAN.REL
!		WILD.REL
!	BUILD UTILITIES
!		MACRO.EXE
!		CREF.EXE
!		GLOB.EXE
!		LINK.EXE
!		LNK???.EXE
!
!
!
!
!
!
!
!NORMAL ENTRY POINT
GALAXY::
.ERROR %
.DIRECT GALCNF.MAC
.IF (NOERROR) .GOTO GALX1:
! GALCNF.MAC WAS NOT FOUND, RUN GALGEN FIRST.
.KJOB
!
GALX1::
.ASSIGN NUL LPT		!CAUSE ALL LISTINGS TO GO TO NUL:
.GOTO ALL		!AND SKIP ALTERNATE ENTRY
!
!
!ENTRY POINT FOR LISTINGS
LIST::
ALL::
! INCLUDE ASSEMBLY WARNINGS AS ERRORS ALSO
!
.ERROR %
!
.ASSIGN DSK REL
.ASSIGN DSK UNV

!FIRST GET A CHECKSUMMED DIRECTORY OF ALL THE FILES
!
.DIRECT *.MAC/NOOPTION/CHECKSUM
.DIRECT *.UNV/NOOPTION/CHECKSUM
.DIRECT *.REL/NOOPTION/CHECKSUM
.DIRECT *.EXE/NOOPTION/CHECKSUM

! NOW ASSEMBLE ALL THE QUASAR-10 MODULES AND CUSP INTERFACE MODULES
!
.RUN MACRO	!USE FIELD IMAGE MACRO
*SBSMAC(P),SBSMAC/C=SBSMAC
*SBSCOM(P),SBSCOM/C=SBSCOM
*GALCNF(P),GALCNF/C=GALCNF
!
.IF (NOERROR) .GOTO CQUASR
.PLEASE	YOU FORGOT TO RUN GALGEN, PLEASE DO SO	...	^[
.GOTO FAILED
!
CQUASR::
*QSRMAC(P),QSRMAC/C=QSRMAC
*QUASAR(P),QUASAR/C=QUASAR
*QSRQUE(P),QSRQUE/C=QSRQUE
*QSRT10(P),QSRT10/C=QSRT10
*QSRIPC(P),QSRIPC/C=QSRIPC
*QSRMEM(P),QSRMEM/C=QSRMEM
*QSRFSS(P),QSRFSS/C=QSRFSS
*QSRSCH(P),QSRSCH/C=QSRSCH
*QSRADM(P),QSRADM/C=QSRADM
*CSPQSR(P),CSPQSR/C=CSPQSR
*CSPMEM(P),CSPMEM/C=CSPMEM
!
!NOW ASSEMBLE ALL THE OTHER COMPONENTS
!
*BATCON,BATCON/C=BATCON
*LPTSPL,LPTSPL/C=LPTSPL
*SPROUT,SPROUT/C=SPROUT
*LOGOUT,LOGOUT/C=LOGOUT
*QMANGR,QMANGR/C=QMANGR
*SPRINT,SPRINT/C=SPRINT
*QUENCH,QUENCH/C=QUENCH

! NOW GLOB ALL THE QUASAR-10 MODULES
!
!
GLOB::
.RUN GLOB
=LPT:QSRGLB=QUASAR,QSRQUE,QSRT10,QSRIPC,QSRMEM,QSRFSS,QSRSCH,QSRADM^[
!
! NOW LOAD AND SAVE QUASAR-10 WITH MAP
!
.RUN LINK
*LPT:QSRMAP/MAP=TTY:/LOG /LOGL:0 /HASHSIZE:10000 /CORE:50P
*QUASAR/GO
.NSAVE QUASAR
.VERSION
!
!NOW LOAD THE OTHER COMPONENTS
.RUN LINK
*TTY:/LOG /LOGL:0
*BATCON/GO
.NSSAVE BATCON
.VERSION
!
.RUN LINK
*TTY:/LOG /LOGL:0
*LPTSPL/GO
.NSSAVE LPTSPL
.VERSION
!
.RUN LINK
*TTY:/LOG /LOGL:0
*SPROUT/GO
.NSSAVE SPROUT
.VERSION
!
.RUN LINK
*TTY:/LOG /LOGL:0
*LOGOUT/GO
.NSSAVE LOGOUT
.VERSION
!
.RUN LINK
*TTY:/LOG /LOGL:0
*QMANGR/GO
.NSSAVE QMANGR
.VERSION
!
.RUN LINK
*TTY:/LOG /LOGL:0
*QMANGR,QUENCH/GO
.NSSAVE QUEUE
.VERSION
!
.RUN LINK
*TTY:/LOG /LOGL:0
*QMANGR,REL:HELPER,SPRINT/G
.NSSAVE SPRINT
.VERSION

! NOW GET CREF LISTINGS OF THE MODULES
!
CREF::
.NOERROR
.RUN CREF
*=GALCNF
*=SBSMAC
*=QSRMAC
*=QUASAR
*=QSRQUE
*=QSRT10
*=QSRIPC
*=QSRMEM
*=QSRFSS
*=QSRSCH
*=QSRADM
*=SBSCOM
*=CSPQSR
*=CSPMEM
*=LPTSPL
*=SPROUT
*=BATCON
*=LOGOUT
*=QMANGR
*=QUENCH
*=SPRINT

!THE LAST THING IS TO GET DIRECTORY OF THE PROGRAMS WE BUILT
!
.DIRECT *.EXE/NOOPTION/CHECKSUM/SINCE:LOGIN
!
!
.PLEASE	GALAXY-10 SYSTEM GENERATION COMPLETED      ...   ^[
.GOTO DONE:
!
!
!
!
! IN CASE OF ASSEMBLY, GLOB, LOAD, CREF ERRORS
!
%ERR::.GOTO FAILED
%CERR::
FAILED::.PLEASE    GALAXY-10 GENERATION FAILED     ...     ^[
DONE::
%FIN::
!
! END OF GALAXY-10 CONTROL FILE
!