DECLARE SUB dac488savev (ctrl%, v!)
'Open the parameter file
REM $INCLUDE: 'param.inc'

SUB dac488digout (lin%, sig%)

END SUB

SUB dac488getcv (c%, dacv!)

'****************************************************************************
'This is a dummy routine to help test the software without the hardware.
'
'Output:
' dacv!, the DAC voltage which is being output
'
'Zachary Wolf
'9/10/94
'****************************************************************************

'Get the current value of the DAC voltage
CALL dac488savev(0, dacv!)

END SUB

SUB dac488init

'****************************************************************************
'This is a dummy routine.
'
'Zachary Wolf
'5/21/94
'****************************************************************************

'Message
PRINT
PRINT "Initializing DAC routine..."

END SUB

SUB dac488savev (ctrl%, v!)

STATIC vsave!

IF ctrl% = 0 THEN
 v! = vsave!
ELSEIF ctrl% = 1 THEN
 vsave! = v!
END IF

END SUB

SUB dac488setcv (c%, v!)

'****************************************************************************
'This is a dummy routine.
'
'Input:
' v!, the voltage to output
'
'Zachary Wolf
'9/10/94
'****************************************************************************

'Test values
dacaddr$ = "dacaddr"
IF v! < .05 THEN
  volt$ = "0"
ELSEIF v! >= .05 AND v! < .1 THEN
  volt$ = ".05"
ELSE
  volt$ = STR$(v!)
END IF
PRINT "output " + dacaddr$ + ";V";
PRINT USING "###.#####"; v!;
PRINT " X"

'Message
'PRINT "V dac = "; v!

'Save the value
CALL dac488savev(1, v!)

END SUB

SUB dac488setpar (gpibin%, gpibout%, dac488addr$)

END SUB

SUB dac488setupcv (c%)

END SUB