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