Controller Programs
C-8
BUS.INIT \ Initialize bus
SEND.INTERFACE.CLEAR \ TAKE CONTROL OF BUS
REMOTE.ENABLE.ON \ Allow remote operation
SYNCHRONOUS.GPIB \ Make sure ASYST is in sync. mode
?GPIB.DEVICES \ List controller parameters
07 GPIB.DEVICE 7001 \ Set 7001 address and name
EOI.ON \ Enable end or identify
EOS.ON \ Enable end of string terminator
10 EOS.CHARACTER \ Use LF terminator
1000 TIMEOUT \ Set timeout for 1sec
?GPIB.DEVICE \ List 7001 parameters
100 STRING COMMAND \ Allocate 100 bytes for user input
100 STRING RESPONSE \ Allocate 100 bytes for 7001 response
:GET.OUTPUT \ Definition for 7001 output
RESPONSE GPIB.READ \ Get response
CR RESPONSE “TYPE \ Display response
;
: GET.INPUT \ Definition for user input
CR .” Enter command string: “ \ Prompt user
“INPUT COMMAND “:= \ Get commands
“?” COMMAND “WITHIN \ Test for query
IF 7001 \ If query, make 7001 current device
COMMAND GPIB.WRITE \ Send commands to 7001
GET.OUTPUT \ Get response from 7001
ELSE 7001 \ If not query, make 7001 current device
COMMAND GPIB.WRITE \ Send commands to 7001
THEN
;
: MAIN \ Definition for main program
BEFIN \ Start loop
ME \ Make controller current device
GET.INPUT \ Get commands from user
AGAIN \ Return for more commands
; \ <Control-Break> to exit
Artisan Scientific - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisan-scientific.com