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