Example: WriteDouble, ReadDouble

This is another example. An 8 byte register that represents the setpoint position of the large-offset-monochromator is read and written:

#!/bin/env perl
use Spectra; 

my $host = "131.169.221.186"; 
my $AMSPort = 801; 

$ret = adsReadDouble( $host, $AMSPort, 0xf020, 256, 8);
print " Sollposition  $ret \n"; 

$ret = adsWriteDouble( $host, $AMSPort, 0xf020, 256, 8, 9.444);

$ret = adsReadDouble( $host, $AMSPort, 0xf020, 256, 8);
print " Sollposition  $ret \n"; 

$ret = adsWriteDouble( $host, $AMSPort, 0xf020, 256, 8, 9.222);