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

@ENABLE
;	Mic file to save -20 side of the KLAD on Magtapes.
;	(2nd part of SAVE.MIC)
;
;	Parameters:
;	A = Master Structure = 'A:
;	B = Magtape = MTA'B:
;
;	Type "^P" to continue. Type "^A" to abort.
;
@DEF MTA: MTA0:
=^B
;
@NOERROR
@DEF DSK:
@CONN <UTILITIES>
@DEL SAVE20.LOG
;
@ERROR
;
@ENABLE
@DAYTIME
;
@DEF DIS: 'A:
@MOU STR DIS:
;
ASSMAG::
@DEF MAG: MTA'B:
@ASSIGN MAG:
@IF (NOERROR) @GOTO REWMAG
;
;	? Can't assign MTA'B:
;	Repair problem and type "^P".
=^B
@BACKTO ASSMAG
;
REWMAG::
@REWIND MAG:
@IF (NOERROR) @GOTO PRIME
;
;	Put MTA'B: online. Type "^P" when ready.
;
=^B
@BACKTO REWMAG
;
PRIME::
;
@NOERROR
@SET FILE INVISIBLE DIS:<SPOOL>*.*
@SET FILE INVISIBLE DIS:<SYSTEM>DUMP.*
@DEL DIS:<6-DIAGNOSTICS>*.*.*
@EXP DIS:<6-DIAGNOSTICS>
@ERROR
;
TAPE2::
;*******************************************************************
;
;	Now to save the entire -20 side with DUMPER.
;
;	Note: To continue at this point with a differnt tape unit
;		redefine MAG: (i.e. @"DEF MAG: MTA1:")
;
TAPCHK::
;
;	Mount tape 2 on tape drive write enabled and online.
;	Type "^P" when ready
;
;*******************************************************************
;
;
=^B
;
;	Begin saving entire pack
;
@DUMPER
*TAPE MAG:
*ACCSYS
*REWIND
@IF (ERROR) @BACKTO TAPCHK
*
*SSNAME KLAD20-AC-7.0-A SYSTEM-COPY
*SAVE DIS:<*>*.*.* PS:<*>*.*.*
;
;
;	After the second tape (tape 2) is finished mount next
;	tape (write enabled) and reissue tape-drive spec
;	to DUMPER.
;
;	If a second tape drive is available you can
;	get it ready and online while the first is
;	is still writing and issue the new tape-drive spec
;	to DUMPER.
;
;	When all areas have been saved type "^P" to
;	finish.
;
;***********************************************************
;
=^B
;
@NOERROR
@SET FILE VISIBLE DIS:<SPOOL>*.*
@SET FILE VISIBLE DIS:<SYSTEM>DUMP.*
@ERROR
;
@GOTO END
%ERR::
;
;	ERROR in SAVE20.MIC
;
END::
@DAY
@KMIC