Trailing-Edge
-
PDP-10 Archives
-
k20v7c
-
mfg/src/save-tape-mfg.mic
There are no other files named save-tape-mfg.mic in the archive.
;
; Mount scratch tape on MTA0 write enabled and ONLINE.
; Type "^P" when ready.
;
GETMTA::
;
=^B
!
@ERROR
@REW MTA0:
@IF (NOERROR) @GOTO BEGIN1
;
; repair probem and type "^P".
;
@BACKTO GETMTA::
!
BEGIN1::
!
@COPY <MFG.SRC>MFG-RESTOR.MIC MTA0:
@IF (ERROR) @GOTO FATAL
!
@DUMPER
*TAP MTA0:
*SSNAME MFG Directory
*SAVE <MFG>*.* PS:<MFG>*.*
*SSNAME MFG Sources
*SAVE <MFG.SRC>*.* PS:<MFG.SRC>*.*
*SSNAME MFG Command files
*SAVE <MFG.CMDS>*.* PS:<MFG.CMDS>*.*
*SSNAME MFG Updates
*SAVE <MFG.UPD>*.* PS:<MFG.UPD>*.*
*REWIND
*EXIT
!
; DONE!
;
@GOTO END1
FATAL::
;
; CAN'T CONTINUE...
;
END1::
@DAY