Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - utilities/makpak.mic
There is 1 other file named makpak.mic in the archive. Click here to see a list.
@ENA
@TYPE <UTILITIES>WARNING.TXT
@CONN <UTILITIES>
@UNITS
;
;	PARAMETERS:
;		A = RH20 CHANNEL # = 'A
;		B = DRIVE = 'B
;		C = PS NUMBER (for CFS pack) = 'C
;
;
;	THIS MIC FILE WILL WIPE OUT ANY PACK WHICH IS SPUN UP
;	ON  CHANNEL# 'A, CONTRL -1, DRIVE 'B (BUT NOT MOUNTED)
;
;	THEN SUBMIT MAKPAK.CTL TO BUILD NEW KLAD FROM PS: (MASTER)
;
;	TYPE ^P TO PROCEED (^A TO ABORT)
=^B
!
@SYS:CHECKD
CREATE PS'C:
KLAD
1
'A,-1,'B
15010
9000
*
N
EXIT
!NOW MOUNT IT FOR THE SYSTEM
@OPR
*MOU STR KLAD:/STR PS'C:
*WAIT 2
*EXIT
@
@SUB <UTILITIES>MAKPAK.CTL/BATCH:SUPER/OUT:NOL/TIME:10:00/REST:NO/PRIO:62
@DAY
@I B
@KMIC