Google
 

Trailing-Edge - PDP-10 Archives - k20v7a - utilities/restor.mic
There are 2 other files named restor.mic in the archive. Click here to see a list.
;****************************************************************
;* Mic file to start the second phase of a FULL KLAD-20 RESTORE. *
;*								*
;* ASSUMPTIONS: EXEC.EXE and ERRMES.BIN in PS:<SYSTEM>		*
;*		DIRECTORY <UTILITIES> restored			*
;*								*
;*		FRONT-END-AREA previously defined as		*
;*		length of 9000 pages				*
;*                                                              *
;****************************************************************
;
MAGTAP::
;
;
@DEFINE MAG: MTA0:
;
;	Type "^P" when ready.
=^B
;
@
@ERROR
@ENABLE
;
@DAYTIME
@TERMINAL NO PAGE
@TERMINAL LENGTH 0
@DAYTIME
;
@RU <UTILITIES>DUMPER
*TAPE MAG:
*ACCSYS
*RESTORE <*>*.*.*PS:<FE-COPY>*.*.*
*EXIT
;
@CONN PS:<FE-COPY>
@RUN PS:<UTILITIES>COPYFE
*<FE-COPY>FRONT-END-FILE-SYSTEM.BIN
*<ROOT-DIRECTORY>FRONT-END-FILE-SYSTEM.BIN
@DELETE <FE-COPY>*.*
@EXPUNGE <FE-COPY>
@RESET
;
@ENABLE
@BUILD <OPERATOR>
*PASS KLAD
*ACC F-S
*
@
@CONN <SYSTEM>
@RU PS:<UTILITIES>MAKDMP
*CREATE PS:<SYSTEM>DUMP.EXE 4096
*EXIT
@
@UNLOAD MAG:
;
;	Mount tape 2 on tape drive.
;	Type "^P" when ready.
;
;NOTE:	To use magtape other than MTA0: redefine MAG:
;
=^B
;
@RU PS:<UTILITIES>DUMPER
*TAPE MAG:
*ACCSYS
*RESTORE <*>*.*.* <*>*.*.*
;*****************************************************************
;*	WHEN TAPE #1 HAS FINISHED, DUMPER WILL UNLOAD THE TAPE   *
;*	FROM UNIT 0 & DEMAND A NEW TAPE FILESPEC.		 *
;*								 *
;*	WHEN THE TAPE HAS BEEN UNLOADED, MOUNT TAPE #2           *
;*	& TYPE "MTA?:", ? IS THE # OF THE UNIT YOU ARE USING.    *
;*	CONTINUE UNTIL ALL TAPES ARE RESTORED.
;*								 *
;*	WHEN ALL TAPES HAVE BEEN RESTORED
;*	TYPE "^P" TO FINISH
;*								 *
;*****************************************************************
;
=^B
;
;
@GOTO END
%ERR::
;
;	ERROR in RESTOR.MIC
;
END::
@DAY
@KMIC