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

;MIC file to create TOPS10 integration toolsclearinghouse tapes
;parameter is the tape drive to use.
;
;tools are located in [777,777,*]
;2 savesets are written:
;#1 has the documentation file, and the directory of the tape
;#2 has all of the subdirectories
;
;tape is written in non-interchange mode, at 1600 bpi
;
;two passes are made: one to write everything out, but with a
;dummy placeholder file for the directory file (T10TPx.DIR),
;the the real directory file is made, and the second pass writes
;it out with the other files.
;
;
.cop t10tp3.dir=nul:
.pa[777,777]
.R backup
*tape 'a
*rew
*den 1600
;
;PASS ONE
*ssname TENTAPE3
*save t10tp3.MEM[777,777],t10tp3.dir[777,777],-
*T10TP3.RNO[777,777],T10TP3.MIC[777,777]
*SSNAME LSMTOOLS3
*save [777,777,*]
*rew
;
;DIRECTORY PASS
*print t10tp3.dir[777,777]
*rew
;
;PASS TWO
*ssname TENTAPE3
*save t10tp3.MEM[777,777],t10tp3.dir[777,777],-
*T10TP3.RNO[777,777],T10TP3.MIC[777,777]
*SSNAME LSMTOOLS3
*save [777,777,*]
*rew
^C