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
Summary of Contents for 7001
Page 284: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 285: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 286: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 287: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 288: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 293: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 294: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 295: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 296: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 299: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 300: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 301: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 304: ......
Page 305: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 308: ......
Page 309: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 312: ......
Page 313: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 315: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...