DECLARE SUB rampinit ()
DECLARE SUB gpibinit (gpibin%, gpibout%)
DECLARE SUB bit488setpar (gpibin%, gpibout%, bit488addr$)
DECLARE SUB dac488init ()
DECLARE SUB dac488setpar (gpibin%, gpibout%, dac488addr$)
DECLARE SUB dac488hrsetpar (gpibin%, gpibout%, dac488hraddr$)
DECLARE SUB psdac488setpar (gpibin%, gpibout%, psdac488addr$)
DECLARE SUB pshp3457setpar (gpibin%, gpibout%, pshp3457addr$)
DECLARE SUB hp3457init ()
DECLARE SUB hp3457setpar (gpibin%, gpibout%, hp3457addr$)
DECLARE SUB imagexit ()
DECLARE SUB imaginit ()
DECLARE SUB imagoperate ()
DECLARE SUB imagsetpar (logfile$, imagconfig$, imagramprate!, imagnmeasave%, imaglimit!)
DECLARE SUB ibopsetpar (imaghpchan%, vtransperimag!, imagtstable%)
DECLARE SUB idacsetpar (imagdacchan%, imagpervdac!, imagtstable%, imaghpchan%, vtransperimag!)
DECLARE SUB idachrsetpar (imagdacchan%, imagpervdac!, imagtstable%, imaghpchan%, vtransperimag!)
DECLARE SUB ips123setpar (logfile$, imagconfig$, imagtstable%)
DECLARE SUB imansetpar (imaghpchan%, vtransperimag!)
DECLARE SUB fileinitlog (logfile$)

'****************************************************************************
'Program RAMP
'This program ramps the power supply.
'
'Zachary Wolf
'12/4/95
'****************************************************************************

'Common area for run time parameters
COMMON SHARED /gpibio/ gpibinP%, gpiboutP%
COMMON SHARED /filenames/ logfileP$, strdatfileP$, hardatfileP$, strpltfileP$, harpltfileP$
COMMON SHARED /testinfo/ projectP$, magtypeP$, magnameP$, barcodeP$, teststandP$, coilnameP$, operatorP$, runP$, commentP$

'Include the constants used in the program
'Execute assignment statements
REM $INCLUDE: 'param.inc'

'Prepare the screen
CLS

'Print a message about the program
PRINT
PRINT "Program RAMP"
PRINT "This program lets the user operate the power supply."

'Initialize the software and hardware
CALL rampinit

'Operate the power supply
CALL imagoperate

'Prepare to exit the program
CALL imagexit

'Message
PRINT "The program is finished."

END

SUB rampinit

'****************************************************************************
'This subroutine does all the initialization for the program.
'Most parameters come from param.inc.
'
'Zachary Wolf
'9/20/95
'****************************************************************************

'Hardware init

'Initialize the GPIB
CALL gpibinit(gpibinP%, gpiboutP%)

'Set the parameters for the HP3457
CALL hp3457setpar(gpibinP%, gpiboutP%, hp3457addrP$)
'CALL hp3457init

'Set the parameters for the DAC488 (used for PS and the Reset signal)
CALL dac488setpar(gpibinP%, gpiboutP%, dac488addrP$)
'CALL dac488init

'Set the parameters for the DAC488HR
CALL dac488hrsetpar(gpibinP%, gpiboutP%, dac488hraddrP$)

'Set the parameters for the Kepco supply
CALL bit488setpar(gpibinP%, gpiboutP%, bit488addrP$)

'Set the parameters for the PS123 DAC488
CALL psdac488setpar(gpibinP%, gpiboutP%, psdac488addrP$)

'Set the parameters for the PS123 HP3457
CALL pshp3457setpar(gpibinP%, gpiboutP%, pshp3457addrP$)

'Software init

'Open all files
CALL fileinitlog(logfileP$)

'Set the parameters for the magnet current control
CALL imagsetpar(logfileP$, imagconfigP$, imagramprateP!, imagnmeasaveP%, imaglimitP!)

'Set the parameters for the Kepco power supply control
CALL ibopsetpar(imaghpchanP%, vtransperimagP!, imagtstableP%)

'Set the parameters for DAC488 power supply control
CALL idacsetpar(imagdacchanP%, imagpervdacP!, imagtstableP%, imaghpchanP%, vtransperimagP!)

'Set the parameters for DAC488HR power supply control
CALL idachrsetpar(imagdacchanP%, imagpervdacP!, imagtstableP%, imaghpchanP%, vtransperimagP!)

'Set the parameters for the PS123 power system
CALL ips123setpar(logfileP$, imagconfigP$, imagtstableP%)

'Set the parameters for manual power system operation
CALL imansetpar(imaghpchanP%, vtransperimagP!)

'Initialize the power sypply system
CALL imaginit

END SUB