Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99s-bb - 10,7/tsu/lodsrt.ctl
There are 15 other files named lodsrt.ctl in the archive. Click here to see a list.
.DO TSU
.MOUNT TAPE:/REELID:TSU/READ/REMARK:"BB-D489F-SB SORT V4D"
.RUN BACKUP
*TAPE TAPE:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE SRTSYS:=*.*
*RESTORE SRTSRC:=*.*
*REWIND
*EXIT
.DISMOUNT TAPE:
.MOUNT TAPE2:/REELID:TSU/READ/REMARK:"BB-PANKA-BB SORT KEYS"
.RUN BACKUP
*TAPE TAPE2:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE SRTSYS:=SRTSYS.KEY
*RESTORE SRTSRC:=SRTSRC.KEY
*REWIND
*EXIT
.DISMOUNT TAPE2: