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)
	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.