#########################################################################
# DLISET macro set
#
# macro set to set the amplification ranges of a DLI 99539 current amplifier
# using a MeasurementComputing PCI-DIO24 digital I/O
#
# author:   dm smilgies 2/02
# revision: dm smilgies 3/02
#
# hardware requirements: 
# PCI-DIO24 has to be configured in "config" and "gsetup"
# custom cable from PCI-DIO24 D-37 connector to DLI99539 D-37 connector
# DLI99539 in remote mode for all installed channels
#
# macro list
#   dliinit	initialize settings
#   dliset      set unit and gain
#   dlishow	show units and gain values
#   dlitest     run through all possible settings
#   diotest     test of DIO24 board
#
# list of global variables 
#   NAMP	number of current amplifier units used (set by dliinit)
#   AMP[1]	gain of unit 1
#   ...
#   AMP[8]	gain of unit 8
#########################################################################



#########################################################################
# DLISET
#
# macro set to set the amplification ranges of a DLI 99539 current amplifier
# using a MeasurementComputing PCI-DIO24 digital I/O
#
# author: dm smilgies 3/02
#########################################################################

def dliset '{

###   checks   ###

# check arguments
if($#!=2) {
p "usage: dliset unit gain"
exit}
# check input
local unit,gain
# check unit
unit=$1
if (unit<0||unit>8) {
p "choose unit between 0=all, 1, 2, ...,",NAMP
exit}
if (unit>NAMP) {p "warning: only",NAMP,"units initialized -> type  dliinit  to update"}
# check gain
gain=$2
if (gain<4||gain>11) {
p "choose gain exponent between 4 and 10, CAL=11"
exit}


###   keep record of the amplifier status   ###

global AMP[]
local i,j

for(i=1;i<NAMP+1;i++) {
   if(unit==i) {AMP[i]=gain}
}

if(unit==0) {
   for(j=1;j<NAMP+1;j++) {
      AMP[j]=gain
   }
}


###   encode commands   ###

local out1,out2,out3,check1,check2

#encode unit
#unit chosen by register bank A / RW_ADDR1
#each unit corresponds to one bit:
#unit1->1, unit2->2, unit3->4, unit4->8, ..., unit8->128
#negative logic: unit active, if TTL=LO
if(unit==0) {
   out1=0
}
else {
   out1=255-pow(2,unit-1)
}

#encode gain
#gain chosen by register bank C / RW_ADDR3 
#gain exponent set by bits 1,2,4
out2=gain-4

# out3 foreseen as flag for local/remote toggle switch
# flag at bit 8
out3=0
# out3=pow(2,3)
# (note: does not seem to work   smi 3/02)

# value to write to register
out2=out2+out3


###    write to registers   ###

# write range to register bank C
port_put(RW_ADDR3,out2)
# delay of 1/100 sec needed for synchronization
sleep(0.01)
# read back
check2=port_get(RW_ADDR3)
if(check2!=out2) {
p "warning: output error -> out2=",out2,"check2=",check2
exit}
sleep(0.01)

# enable unit with register bank A
port_put(RW_ADDR1,out1)
sleep(0.01)
# read back
check1=port_get(RW_ADDR1)
if(check1!=out1) {
p "warning: output error -> out1=",out1,"check1=",check1
exit}
sleep(0.01)

# disable all units
port_put(RW_ADDR1,255)
sleep(0.01)
# read back
check1=port_get(RW_ADDR1)
if(check1!=255) {
p "warning: output error -> out1=255","check1=",check1
exit}

}'


#########################################################################
# DLISHOW
#
# macro to show the amplification ranges of a DLI 99539 current amplifier
# using a MeasurementComputing PCI-DIO24 digital I/O
#
# author: dm smilgies 3/02
#########################################################################

global NAMP

def dlishow '{
local i

p "status of DLI 99539"
p "currrent amplifier ranges"
p "========================="
for(i=1;i<NAMP+1;i++) {
   if(AMP[i]<11) {
      p "unit",i,":  10e" AMP[i] ,"V/A"
      }
   else {
      p "unit",i,":  in calibration mode"
      }
   }
}'


#########################################################################
# DLIINIT
#
# macro to initialize DLISET and DLISHOW
#
# author: dm smilgies 3/02
#########################################################################

def dliinit '{
global NAMP

# input number of used units
NAMP=getval("Number of current amplifier units used",NAMP)

# set all units to the 1e4 range
if(yesno("Are all units of the DLI 99539 set to REMOTE",1)) {dliset 0 4}
p "\nNote: In order to initialize macroset, all gains were set to 1e4 V/A."
p "Gain values for",NAMP,"units can now be set with  dliset [unit] [gain]."
p "Gain values for all units can be displayed with  dlishow."

}'


#########################################################################
# DLITEST
#
# macro to test range settings
#
# author: dm smilgies 3/02
#########################################################################

def dlitest '{
local i,j
for(i=1;i<NAMP+1;i++) {
   for(j=4;j<12;j++) {   
      dliset i j
   }
}
dliset 0 4
p "end of test"
}'


#########################################################################
#
# DIOTEST
#
# test of MeasurementComputing PCI-DIO24
# author: dm smilgies 3/03
#
#########################################################################

def diotest '{

# set all register banks to R/W
port_put(RW_ADDR4,128)

# write to registers and read them back
p "bank A   RW_ADDR1"
for(i=0;i<256;i++) {
	port_put(RW_ADDR1,i)
	sleep(0.01)
	check=port_get(RW_ADDR1)
	sleep(0.01)
	if(check!=i) {
	p "written\:",i,"read back\:",check
	}
}

p "bank B   RW_ADDR2"
for(i=0;i<256;i++) {
	port_put(RW_ADDR2,i)
	check=port_get(RW_ADDR2)
	if(check!=i) {
	p "written\:",i,"read back\:",check
	}
}

p "bank C   RW_ADDR3"
for(i=0;i<256;i++) {
	port_put(RW_ADDR3,i)
	check=port_get(RW_ADDR3)
	if(check!=i) {
	p "written\:",i,"read back\:",check
	}
}

}'


#########################################################################
### end of DLI macro set
#########################################################################