Trailing-Edge
-
PDP-10 Archives
-
k20v7c
-
mfg/src/mfg-tape-save.mic
There are no other files named mfg-tape-save.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 PS:<MFG>*.* PS:<MFG>*.*
*SSNAME MFG Sources
*SAVE PS:<MFG.SRC>*.* PS:<MFG.SRC>*.*
*SSNAME MFG Command files
*SAVE PS:<MFG.CMDS>*.* PS:<MFG.CMDS>*.*
*SSNAME MFG Updates
*SAVE PS:<MFG.UPD>*.* PS:<MFG.UPD>*.*
*REWIND
*EXIT
!
TERM WIDTH 132
TERM LOWERCASE
TERM NO RAISE
TERM NO INDICATE
TERM FORMFEED
TERM PAUSE COMMAND
!
;
;MFG TAPE (First file MFG-INSTALL.MIC written via COPY command)
;The rest is DUMPER format. Use <UTILITIES>INSTALL-MFG.MIC to install MFG tape.
@
@SKIP MTA0: 1
@DUMPER
*TAP MTA0:
*PRINT TTY:
*REWIND
*EXIT
!
; DONE!
;
@GOTO END1
;
FATAL::
;
; CAN'T CONTINUE...
;
END1::
@DAY