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

SUB dac488hrdo0 (l%)

'****************************************************************************
'This is a dummy routine used for debugging.
'
'Z. Wolf
'8/15/94
'****************************************************************************

END SUB

SUB dac488hrdo1 (l%)

'****************************************************************************
'This is a dummy routine used for debugging.
'
'Z. Wolf
'8/15/94
'****************************************************************************

END SUB

SUB dac488hrgetcv (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
'5/21/94
'****************************************************************************

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

END SUB

SUB dac488hrinit

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

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

END SUB

SUB dac488hrsavev (ctrl%, v!)

STATIC vsave!

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

END SUB

SUB dac488hrsetcv (c%, v!)

'****************************************************************************
'This is a dummy routine.
'
'Input:
'  v!, the voltage to output
'
'Zachary Wolf
'5/21/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 dac488hrsavev(1, v!)

END SUB

SUB dac488hrsetpar (gpibin%, gpibout%, dac488hraddr$)

END SUB

SUB dac488hrsetupcv (c%)

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

END SUB