module SWCTL_CLD
DEFINE VERB SWCTL
!   IMAGE sys$system:SWCTL.EXE
     parameter p1,prompt="SWAn:",value(required,type=$device),label=UNIT
     parameter p2,label=FNAM,prompt="Disk",value(type=$infile)
     parameter p3,label=ALTHST,prompt="Disk",value(type=$infile)
     parameter p4,label=AHS2,prompt="Disk",value(type=$infile)
     parameter p5,label=AHS3,prompt="Disk",value(type=$infile)
     parameter p6,label=AHS4,prompt="Disk",value(type=$infile)
     parameter p7,label=AHS5,prompt="Disk",value(type=$infile)
     parameter p8,label=AHS6,prompt="Disk",value(type=$infile)
     parameter p9,label=AHS7,prompt="Disk",value(type=$infile)
     parameter p10,label=AHS8,prompt="Disk",value(type=$infile)
     parameter p11,label=AHS9,prompt="Disk",value(type=$infile)
	qualifier DEASSIGN
	qualifier SETUP
	qualifier SHARE
	qualifier SERVE
	qualifier OVERRIDE
! Usage: SWCTL SWAn: disk: altdsk:
! where SWAn: is a unit of the switching driver and disk: and altdsk: are
! the main and alternate disk devices. It is required with this version
! of the code that SWA0: be assigned first since its process will double
! as the server for all swaps.
!
! switches:
! /DEASSIGN	Turns off switching
! /SETUP	turns on switching
! either /setup or /deassign should be there.