Google
 

Trailing-Edge - PDP-10 Archives - BB-4160E-BM - sort-rel/bldsrt.ctl
There are 11 other files named bldsrt.ctl in the archive. Click here to see a list.
!BLDSRT.CTL
!
!USED TO SUBMIT THE .CTL FILE REQUIRED TO BUILD SORT/MERGE
!THIS FILE RUNS ON EITHER TOPS-20 OR TOPS-10 ON ALL SUPPORTED MONITORS
!SUBMIT WITH COMMAND	SUBMIT BLDSRT
!
!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 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
! ON TOPS-10 IN A MIC  FILE SORT.MIC
!	  OR IN A TECO FILE SORT.TEC
!IF THIS FILE IS ABSENT THEN ALL REQUIRED FILES ARE ASSUMED TO EXIST  ON DSK:
!
!IF LISTINGS ARE DESIRED, THE EMPTY FILE
!LISTEM.MAC SHOULD BE IN DSK:
!
!TEST FOR WHICH SYSTEM
@GOTO TOPS20	!TOPS20 VERSION
.GOTO TOPS10	!TOPS10 VERSION
TOPS20::
@TAKE SORT.CMD
!
!SUBMIT CTL FILE
!
@SUBMIT SORT/TIME:0:30:0/RESTART:YES
@GOTO OK
TOPS10::
!SEE IF WE NEED TO MODIFY THE CONTROL FILE FIRST
!
.TYPE SORT.TEC
.IF (ERROR) .GOTO NOMOD
!
!READ THE SORT.TEC FILE IN A TECO Q REGISTER
.R TECO
*ERSORT.TECAAAAAAHXA
*ERSORT.CTLEWSORT.CTMY<N.DO SORT.MIC;0LKGA>EX
!
!SUBMIT CTM (MODIFIED CTL) FILE
.SUBMIT SORT.CTM/TIME:0:30:0/RESTART:YES
.GOTO OK
!
!
NOMOD::
!SUBMIT CTL FILE
!
.SUBMIT SORT/TIME:0:30:0/RESTART:YES
.GOTO OK
OK::!END OF BLDSRT.CTL