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);