Google
 

Trailing-Edge - PDP-10 Archives - k20v7a - utilities/maklad.mic
There is 1 other file named maklad.mic in the archive. Click here to see a list.
@ENA
@TYPE <UTILITIES>WARNING.TXT
@CONN <UTILITIES>
@UNITS
;
;	PARAMETERS:
;		A = RH20 # = 'A
;		B = DRIVE = 'B
;		C = PS NUMBER (for CFS pack) = 'C
;
;
;	This MIC file will wipe out any pack which is spun up
;	on RH20 # 'A, CONTRL -1, Drive 'B (But not mounted)
;
;	Then submit MAKKLAD.CTL to build new KLAD from structure MAST: (Master)
;	(MAST: must be premounted via OPR command:
;	OPR>  "MOUNT STRUCTURE MAST: /STRUCTURE-ID:PS:"
;
;	TYPE ^P TO PROCEED (^A TO ABORT)
=^B
!
@SYS:CHECKD
CREATE PS'C:
KLAD
1
'A,-1,'B
10000
8800
*
N
EXIT
!NOW MOUNT IT FOR THE SYSTEM
@OPR
*MOU STR KLAD:/STR PS'C:
*WAIT 2
*EXIT
@
@SUB <UTILITIES>MAKLAD.CTL/BATCH:SUPER/OUT:NOL/TIME:10:00/REST:NO/PRIO:62
@DAY
@I B
@KMIC