Google
 

Trailing-Edge - PDP-10 Archives - k20v7a - utilities/mfg-update.mic
There is 1 other file named mfg-update.mic in the archive. Click here to see a list.
;	This Mic file installs MFG KLAD tape onto KLAD
;
@BUILD <MFG>
@PASSWORD MFG
@DEFAULT 777752
@PROTECTION 777740
@WHEEL
@MAXIMUM 4
@DIRECTORY 1
@USER 1
@USER 100
@PERMANENT 2500
@WORKING 2500
@
@BUILD <MFG.CMDS>
@FILES-ONLY
@DEFAULT 777752
@PROTECTION 777740
@DIRECTORY 1
@
@BUILD <MFG.UPD>
@FILES-ONLY
@DEFAULT 777752
@PROTECTION 777740
@DIRECTORY 1
@
@BUILD <MFG.SRC>
@FILES-ONLY
@DEFAULT 777752
@PROTECTION 777740
@DIRECTORY 1
@PERMANENT 1500
@WORKING 1500
@
@ERROR
@REW MTA0:
@IF (ERROR) @GOTO FATAL
@SKIP MTA0: 1
@IF (ERROR) @GOTO FATAL
!
@ERROR %
@DUMPER
*TAP MTA0:
*ACCOUNT SYSTEM
*SUPER ALWAYS
*RESTOR PS:<MFG>*.* <MFG>*.*
*RESTOR PS:<MFG.SRC>*.* <MFG.SRC>*.*
*RESTOR PS:<MFG.CMDS>*.* <MFG.CMDS>*.*
*RESTOR PS:<MFG.UPD>*.* <MFG.UPD>*.*
*REW
*EXIT
@IF (ERROR) @GOTO FATAL
;
@GOTO END2
!
FATAL::
;
;	CAN'T CONTINUE!
;
END2::
@DAY