DECLARE SUB bit488savei (ctrl%, i!)
DECLARE SUB bit488savev (ctrl%, v!)

'****************************************************************************
'Module BIT488
'This module contains I/O subroutines for the Kepco BOP supplies
'driven by the BIT488 controller.
'
'Zachary Wolf
'7/28/95
'****************************************************************************

SUB bit488geti (i!)

'****************************************************************************
'This subroutine gets the output current from the Kepco BOP.
'
'Output:
' i!, the BOP current which is being output
'
'Zachary Wolf
'3/24/95
'****************************************************************************

'Get the output current last requested
CALL bit488savei(1, i!)

END SUB

SUB bit488getv (v!)

'****************************************************************************
'This subroutine gets the output voltage from the Kepco BOP.
'
'Output:
' v!, the BOP voltage which is being output
'
'Zachary Wolf
'3/24/95
'****************************************************************************

'Get the output voltage last requested
CALL bit488savev(1, v!)

END SUB

SUB bit488init

'****************************************************************************
'This subroutine initializes the Kepco BIT488 controller for the BOP supply.
'
'Zachary Wolf
'3/22/95
'****************************************************************************

'Message
PRINT
PRINT "Resetting the BIT488 routine..."

END SUB

SUB bit488savei (ctrl%, i!)

'****************************************************************************
'This subroutine saves the current the Kepco BOP was last requested
'to output.
'
'Input/Output
' ctrl%, control number indicating whether to save or return i!
'        0 = save, 1 = return
' i!, the current to store or return
'
'Zachary Wolf
'3/24/95
'****************************************************************************

'Define the storage variable
STATIC savei!

'Save or return v!
IF ctrl% = 0 THEN savei! = i!
IF ctrl% = 1 THEN i! = savei!

END SUB

SUB bit488savev (ctrl%, v!)

'****************************************************************************
'This subroutine saves the voltage the Kepco BOP was last requested
'to output.
'
'Input/Output
' ctrl%, control number indicating whether to save or return v!
'        0 = save, 1 = return
' v!, the voltage to store or return
'
'Zachary Wolf
'3/24/95
'****************************************************************************

'Define the storage variable
STATIC savev!

'Save or return v!
IF ctrl% = 0 THEN savev! = v!
IF ctrl% = 1 THEN v! = savev!

END SUB

SUB bit488seti (i!)

'****************************************************************************
'This subroutine has the Kepco BIT488 output a current i!.
'
'Input:
' i!, the current to output
'
'Zachary Wolf
'3/24/95
'****************************************************************************

'Save the updated output current
CALL bit488savei(0, i!)

END SUB

SUB bit488setpar (gpibin%, gpibout%, bit488addr$)

END SUB

SUB bit488setv (v!)

'****************************************************************************
'This subroutine has the Kepco BIT488 output a voltage v!.
'
'Input:
' v!, the voltage to output
'
'Zachary Wolf
'3/22/95
'****************************************************************************

'Save the updated output voltage
CALL bit488savev(0, v!)

END SUB