$!	NAME:	VRSBUILD.COM
$!*CALL COPYRT.TXT
$!
$!	ASSEMBLE AND LINK 121 AND/OR 122 DRIVER
$!
$!	INITIAL RELEASE WITH REV. F DRIVER
$!
$ TYPE SYS$INPUT
             *** VERSATEC DRIVER FOR VAX COMPUTERS ***
 
LVDRIVER supports model 121 or model 126 controllers.
LWDRIVER supports model 122 controllers.
$ICONT:
$ INQUIRE ANS "Which driver should be built (LV, LW or BOTH)"
$ IF ANS.EQS."LV" THEN GOTO CONLV
$ IF (ANS.NES."LW") .AND. (ANS.NES."BOTH") THEN GOTO ICONT
$ VRSNAM="LW"
$ GOTO VRSASM
$CONLV:
$ VRSNAM="LV"
$VRSASM:
$ OPEN/WRITE FILE VRSNAME.MAR
$ WRITE FILE "VRSNAM=^A/''VRSNAM'/"
$ CLOSE FILE
$ WRITE SYS$OUTPUT "Assembling ''VRSNAM'DRIVER"
$ MACRO/OBJECT='VRSNAM'DRIVER VRSNAME+VRSDRIVER+SYS$LIBRARY:LIB/LIBRARY
$ WRITE SYS$OUTPUT "Assembled ''VRSNAM'DRIVER"
$ WRITE SYS$OUTPUT "Linking ''VRSNAM'DRIVER, ignore the LINK diagnostic"
$ WRITE SYS$OUTPUT "that ''VRSNAM'DRIVER has no transfer address."
$ LINK/NOTRACE/EXECUTABLE=SYS$SYSTEM:'VRSNAM'DRIVER.EXE-
 'VRSNAM'DRIVER,SYS$INPUT:/OPTIONS,SYS$SYSTEM:SYS.STB/SELECTIVE_SEARCH
BASE=0
$ WRITE SYS$OUTPUT "Linked ''VRSNAM'DRIVER"
$ DELETE 'VRSNAM'DRIVER.OBJ;*,VRSNAME.MAR;*
$ IF ((VRSNAM .EQS. "LW") .AND. (ANS .EQS. "BOTH")) THEN GOTO CONLV
$ EXIT