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

! UPD ID= 82 on 9/23/83 at 4:38 PM by FONG                              
!SORT.CTL	VERSION 5
!USED TO MAKE THE ONE AND ONLY SORT.
!THIS FILE RUNS ON TOPS-20 ONLY.
!SUBMIT WITH COMMAND	SUBMIT SORT/TIME:0:30:00/RESTART:YES
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1979, 1983 BY DIGITAL EQUIPMENT CORPORATION
!
!IF ANY NON-STANDARD ASSEMBLY SWITCHES ARE DESIRED THEY SHOULD BE
!	INSERTED IN SRTPRM.MAC
!
!INSTALLATION SPECIFIC ASSIGNMENTS SHOULD BE PUT IN THE FOLLOWING FILE:
! ON TOPS-20 IN A TAKE FILE SORT.CMD
!NOTE, IN GENERAL THIS CONTROL FILE WILL NOT RUN WITHOUT THE ABOVE
!DEFINITION FILE BEING PRESENT.
!
!IF LISTINGS ARE DESIRED, THE EMPTY FILE
!LISTEM.MAC SHOULD BE IN DSK:.
!
!THIS CONTROL FILE CREATES:
! IN SORT-BUILD:
!	SORT.EXE
!	SORT.MAP
!	SORT.GLB
!
!

START::
@CHKPNT START::
!REQUIRED FILES:
!<FIELD-IMAGE>	MACRO.EXE
!		MAKLIB.EXE
!		CREF.EXE
!		LINK.EXE
!		MACTEN.UNV
!		MACSYM.UNV
!		MONSYM.UNV
!		MACREL.REL	(IF COBOL)
!
!<SYS>		PA1050.EXE
!
!<UNSUPPORTED>	GLOB.EXE
!
!<SELF>		SORT.CTL
!
!	SORT SOURCES
!<SORT-SOURCE>	SORT.MAC	SRTPRM.MAC	SRTSTA.MAC
!		SRTCMD.MAC	SRTJSS.MAC	SRTCMP.MAC
!		SRTFLT.MAC	SRTCBL.MAC	SRTCER.MAC
!		SRTDTR.MAC	COPYRT.MAC	COPYRT.TXT
!

!SET UP THE DEFAULTS
!
@ERROR
@TAKE SORT.CMD
@IF (ERROR) !IGNORE IT
!
!MAKE A RECORD OF WHAT IS BEING USED
!
@GET SYS:MACRO
@INFO VERSION
@GET SYS:MAKLIB
@INFO VERSION
@GET SYS:LINK
@INFO VERSION
@GET SYS:CREF
@INFO VERSION
@GET SYS:PA1050
@INFO VERSION
@GET SYS:GLOB
@IF (ERROR) @!GLOB IS NOT SUPPORTED
@INFO VERSION
!
!GET CHECKSUMS SO WE KNOW WHAT WE HAVE
!FIRST THE SYSTEM SOFTWARE
!
@VD SYS:MACRO.EXE,SYS:MAKLIB.EXE,SYS:LINK.EXE,SYS:PA1050.EXE,SYS:CREF.EXE,SYS:GLOB.EXE,UNV:MACTEN.UNV,UNV:MACSYM.UNV,UNV:MONSYM.UNV,SYS:MACREL.REL,
@CHECK SEQ
@
!
!NEXT THE SORT SOURCES
!
@VD SORT.MAC,SRT*.MAC,SORT.CTL,SORT.CMD,
@CHECK SEQ
@
!

!
!  CREATE COPYRT.UNV

@MACRO
*COPYRT=COPYRT
@IF (ERROR) @GOTO TRUBLE

!  CREATE SORT.EXE
!
@ERROR %
@DIR LISTEM.MAC
@IF (ERROR) @GOTO NOLIST	!CREF NOT WANTED
!
@ERROR
@MACRO
*SRTPRM,SRTPRM/C=SRTPRM
*SRTSTA,SRTSTA/C=SRTSTA
*SRTCBL,SRTCBL/C=SRTCBL
*SRTCMD,SRTCMD/C=SRTCMD
*SRTJSS,SRTJSS/C=SRTJSS
*SRTCER,SRTCER/C=SRTCER
*SRTCMP,SRTCMP/C=SRTCMP
*SRTFLT,SRTFLT/C=SRTFLT
*SRTDTR,SRTDTR/C=SRTDTR
*SORT,SORT/C=SORT
@IF (ERROR) @GOTO TRUBLE
!
@CREF
*DSK:SRTPRM.LZT=SRTPRM
*DSK:SRTSTA.LZT=SRTSTA
*DSK:SRTCBL.LZT=SRTCBL
*DSK:SRTCMD.LZT=SRTCMD
*DSK:SRTJSS.LZT=SRTJSS
*DSK:SRTCER.LZT=SRTCER
*DSK:SRTCMP.LZT=SRTCMP
*DSK:SRTFLT.LZT=SRTFLT
*DSK:SRTDTR.LZT=SRTDTR
*DSK:SORT.LZT=SORT
@IF (ERROR) @GOTO TRUBLE
@GOTO DONCRF
!
NOLIST::
@ERROR
@MACRO
*SRTPRM=SRTPRM
*SRTSTA=SRTSTA
*SRTCBL=SRTCBL
*SRTCMD=SRTCMD
*SRTJSS=SRTJSS
*SRTCER=SRTCER
*SRTCMP=SRTCMP
*SRTFLT=SRTFLT
*SRTDTR=SRTDTR
*SORT=SORT
@IF (ERROR) @GOTO TRUBLE
!
DONCRF::
!
! APPEND THE COPYRIGHT STATEMENT TO ALL THE UNV FILES TO PROTECT THEM
!
@APPEND COPYRT.TXT COPYRT.UNV
@APPEND COPYRT.TXT SRTPRM.UNV
!
@LINK
*SORT.EXE/SAV,SORT.MAP/MAP=SRTSTA,SRTCBL,SRTCMD,SRTJSS,SRTCER,SRTCMP,SRTFLT,SRTDTR,SORT,/SYMSEG:PSECT:CODE/GO
@IF (ERROR) @GOTO TRUBLE
!
!GENERATE GLOB LISTING
!
!SEE IF GLOB COMMAND GIVES US AN ERROR
!
@GLOB
@IF (ERROR) @GOTO NOGLOB
!
*SRTSTA,SRTCBL,SRTCMD,SRTJSS,SRTCER,SRTCMP,SRTFLT,SRTDTR,SORT
*SORT.GLB=
!
NOGLOB::
@VD SORT.EXE,SORT.MAP,SORT.GLB,
@CHECK SEQ
@
!
CLNUP::
! CLEAN UP AFTER BUILD
!  DELETE UNNEEDED FILES.
!
@DELETE SRTPRM.REL
!@DELETE SRTSTA.REL,SRTCBL.REL,SRTCMD.REL,SRTJSS.REL,SRTCER.REL,SRTCMP.REL,SRTFLT.REL,SRTDTR.REL,SORT.REL
@IF (ERROR)!
@EXPUNGE
@IF (ERROR)!
!
!  TELL OPERATOR HOW WE DID.
@!GET TO MONITOR LEVEL
@PLEASE -- SORT CREATION SUCCESSFUL
@GOTO OK
!
TRUBLE::@PLEASE -- STAND-ALONE SORT CREATION UNSUCCESSFUL
FAIL::
OK::!END OF SORT.CTL