Keithley 237

PROGRAM
BUS.INIT
SEND.INTERFACE.CLEAR
REMOTE.ENABLE.ON
SYNCHRONOUS.GPIB
?GPIB.DEVICES
16 GPIB.DEVICE 236
EO
I.
ON
EOS.ON
10
EOS.CHARACTER
1000 TIMEOUT
?GPIB.DEVICE
+
COMMENTS
\ Initialize
bus
\ Take control
of
bus
\ Allow remote operation
\ Make
sure
ASYST
is
in
sync.
mode
\ List controller parameters
\ Set 236/2:37/2:38 address
and
name
\ Enable
end
or
identify
\ Enable
end
of
string terminator
\
Use
LF terminator
\
Set
timeout
of
1sec
\List
236/237/238 parameters
\ Allocate
100
bytes for
user
input
APPENDIXD
Controller
Programs
100 STRING COMMAND
100 STRING RESPONSE
\Allocate
100
bytes for
236/2:37/238
response
: GET.INPUT \ Definition for
user
input
CR."
ENTER COMMAND STRING:"
\Prompt
user
"INPUT
COMMAND":=
\
Get
DOCs
:MAIN
BEGIN
ME
GET.INPUT
236
COMMAND GPIB.WRITE
RESPONSE
GPIB.READ
CR
RESPONSE ''TYPE
AGAIN
\ Definition for
main
program
\Start
loop
\ Make controller current device
\ Get
DOCs from
user
\Make
236/2:37/2:38
current device
\Send
DOCs
to 236/237/238
\ Get response
\ Display response
\ Return for
more
commands
+
D-5