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

SUB hp3457cmon (c%)

'****************************************************************************
'This routine displays the voltage applied to a specified channel of the
'HP3457 DVM on the front panel.  Voltages can be monitored while the
'program is running.
'
'
'Zachary Wolf
'5/23/94
'****************************************************************************

END SUB

SUB hp3457cv (c%, v!)

'****************************************************************************
'This is a dummy routine for testing.
'
'Input: c%, the DVM channel to read
'
'Output: v!, the measured voltage
'
'Zachary Wolf
'5/21/94
'****************************************************************************

'Return the DAC voltage
CALL dac488savev(0, v!)
'v! = 1!

END SUB

SUB hp3457init

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

'Message
PRINT
PRINT "Resetting the HP3457 routine"

END SUB