Trailing-Edge
-
PDP-10 Archives
-
BB-H580C-SB_1981
-
pkgsrt.ctl
There is 1 other file named pkgsrt.ctl in the archive. Click here to see a list.
!PKGSRT.CTL
!
!USED TO BUILD THE SORT RELEASE TAPE
!THIS FILE RUNS ON EITHER TOPS-20 OR TOPS-10 ON ALL SUPPORTED MONITORS
!SUBMIT WITH COMMAND SUBMIT PKGSRT
!
!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, 1981 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 COBOL.TEC
!IF THIS FILE IS ABSENT THEN ALL REQUIRED FILES ARE ASSUMED TO EXIST ON DSK:
!
@GOTO TOPS20 !TOPS20 VERSION
.GOTO TOPS10 !TOPS10 VERSION
TOPS20::
!
@TAKE SORT.CMD
@IF (ERROR) !IGNORE IT
!
!CREATE THE DIRECTORY LISTING UNLESS ALREADY DONE
!
@ERROR %
@VDIR SORT-DOCUMENTATION:SORT.BD
@IF (NOERROR) @GOTO NEXT !ASSUME ALL DONE
@ERROR ?
!
@VDIR SORT-BINARY:*.*,
@CHECK SEQ
@OUTPUT SORT-DOCUMENTATION:SORT.BD
@
!
@VDIR SORT-SOURCE:*.*,
@CHECK SEQ
@OUTPUT SORT-DOCUMENTATION:SORT.SD
@
!
@VDIR SORT-BUILD:*.*,
@CHECK SEQ
@OUTPUT SORT-DOCUMENTATION:SORT.RD
@
!
NEXT::
@ERROR ?
!
@MOUNT TAPE MTA0: /VOLID:SORT /WRITE-ENABLE
@DUMPER
*TAPE MTA0:
*DEN 1600
*REWIND
*SSNAME SORT-DOCUMENTATION
*SAVE SORT-DOCUMENTATION:*.*
*SSNAME SORT-BINARY
*SAVE SORT-BINARY:*.*
*SSNAME SORT-SOURCE
*SAVE SORT-SOURCE:*.*
*SSNAME SORT-BUILD
*SAVE SORT-BUILD:*.*
*REWIND
*CHECK
*CHECK
*CHECK
*CHECK
*REWIND
*CHECKSUM SEQ
*PRINT LPT:SORT.DIRECTORY
@DISMOUNT TAPE MTA0:
@GOTO OK
TOPS10::
.MOUNT MTB:MTB0/WE/REELID:SORT/VID:"TU-70 1600BPI 9TRK"
.R BACKUP
*TAPE MTB0:
*DEN 1600
*INTERCHANGE
*REWIND
*SSNAME "SORT-DOCUMENTATION"
*SAVE DSK:[10,131005]*.*
*SSNAME "SORT-SOURCE"
*SAVE DSK:[10,131006]*.*
*SSNAME "SORT-KL-BUILD"
*SAVE DSK:[10,131015]*.*
*SSNAME "SORT-KI-BUILD"
*SAVE DSK:[10,131016]*.*
*SSNAME "SORT-KA-BUILD"
*SAVE DSK:[10,131017]*.*
*REWIND
.R DIRECT
LPT:SORT.DIR=MTB0:*.*/CHECK
.UNLOAD MTB0:
.GOTO OK
OK::!ALL DONE