DECLARE SUB dac488hrsavev (ctrl%, v!)
DECLARE SUB vcoilntvsim (n%, t!, 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 hp3457cntv (c%, n%, t!, v!())

'****************************************************************************
'This subroutine calls the simulator to simulate a coil voltage.
'
'Input:
'  c%, the DVM channel to read
'  n%, the number of voltage samples
'  t!, the time between voltage samples
'
'Output:
'  v!(0 to n%-1), the measured voltages
'
'Zachary Wolf
'5/21/94
'****************************************************************************

'Call the simulator
'CALL vcoilntvsim(n%, t!, v!())

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 dac488hrsavev(0, v!)

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