Google
 

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