@Echo Control File to Build a Kermit-20 Tape
!
! Get the devices ready and online
!
MOUNTT:: @CHKPNT MOUNTT
@Mount Tape (NAME) K: -
@ /Label-Type:Unlabeled -
@ ! Use next two for testing ! -
@ /NoUnload -
@ /Volid:K20MIT -
@ !Use next three for new tapes! -
@ !/New ! -
@ !/Remark:"Use RESPOND with tape file name as volume and then IDENTIFY tape" ! -
@ !/Operator ! -
@ /Write-Enabled
@Mount Structure STAR: /Remark:"System Local Sources Structure"
!
! Define and check some logicals
!
@Define OWC: PS:<OINKY.WILDE.CANTERVILLE>
@Info Logical O:
@Info Logical AK:
@Info Logical KH:
@Info Logical K20D:
@Info Logical K20S:
@Info Logical K20T:
!
! Get and condition dumper for the save
!
DUMPER:: @CHKPNT DUMPER
@Define MTA-DUMPER: K:
@DUMPER
*Rewind
*Checksum By-Pages
*Files
!
!Write the tape
!
T20EXE:: @CHKPNT T20EXE
!--Saveset 1
*SSName Kermit-20 Executable (Tops-20)
*Save AK:*.EXE.0
SOURCE:: @CHKPNT SOURCE
!--Saveset 2
*SSName Kermit-20 Macro source, CREF listing, related source and control files
*Save K20S:*.*.0
K20DOC:: @CHKPNT K20DOC
!--Saveset 3
*SSName Kermit documentation
*Save K20D:*.*.0
TESTNG:: @CHKPNT TESTNG
!--Saveset 4
*SSName Testing Control and Log files
*Save K20T:*.*.0
DATA:: @CHKPNT DATA
!--Saveset 5
*SSName Small ASCII data files, The Ghost of Canterville from project Gutenberg
*Save OWC:*.TXT.0,DOC:ALICES.PDP10.0
!--Saveset 6
*SSName Larger ASCII data files, all commonly on PANDA distribution
*Save DOC:JSYS_REFERENCE.MEM.0,DOC:ASSEMBLER-GUIDE.DOC.0
!--Saveset 7
*SSName Tops-10 Test files, all commonly on Tops-10
*Save KH:*.*.0
!--Saveset 8
*SSName 8 bit test data, Gigantor song downloaded from Internet
*Save O:DAP-VALUES.CSV.0,O:GIGANTOR.WAV.0,O:HALFCHAT.EXE,O:PDFSECURITY.PDF.0,O:TIGHTVNC-1_3_9-SETUP.EXE,O:VNCVIEWER.EXE.0
!
!Now make sure everything came out right
!
CHECK:: @CHKPNT CHECK
*Rewind
*Check !Saveset 1!
*Check !Saveset 2!
*Check !Saveset 3!
*Check !Saveset 4!
*Check !Saveset 5!
*Check !Saveset 6!
*Check !Saveset 7!
*Check !Saveset 8!
!
!Produce listing of files
!
PRINT:: @CHKPNT PRINT
*Rewind
*Print K20TAP.LST
*Rewind
*Quit
@Info Fork
!
!Release devices and close up shop
!
RELEAS:: @CHKPNT RELEAS
@Rewind K:
@Dismount Tape K:
@Connect
@Dismount Structure STAR: