EasyManua.ls Logo

Keithley 237

Keithley 237
314 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
PROGRAM
10
DEF SEG=&HC400
20
INITIALIZE=O
30
SEND=9:ENTER=21
40 MY.ADDRESS%=21
50 INST.ADDRESS%=16
60 CONTROLLER%=0
+
70
CALL INITIALIZE
(MY.ADDRESS%
1
CONTROLLER%)
80
LINE INPUT
"ENTER
COMMAND
STRING:"
;CMD$
90 CALL
SEND (INST.ADDRESS%
1
CMD$
1
STATUS%)
100 RESPONSE$=SPACE$(80)
COMMENTS
1
Memory
address
1
Define call offsets
1
Set PC<>488
address
1
Set
236/237/238
address
1
Set for
system
control
1
Initialize
system
1
Prompt
for
string
1
Send
command
string
1
Make
room
for
data
APPENDIXD
Controller
Programs
110 CALL ENTER
(RESPONSE$
1
LENGTH%
1
1
Get
response from
236/237/238
INST.ADDRESS%
1
STATUS%)
120 PRINT
RESPONSE$
1
Display response
1
Repeat
130
GOT080
140
END
Program2
Table
D-1.
BASIC Statements Necessary to
Send
Bus
Commands
Action
PC<>488
Statements
Transmit
command
string
(CMD$)
SEND=9
to device 16.
ADDRESS%=16
CALL
SEND(ADDRESS%
1
CMD$
1
STATUS%)
Obtain
string from device 16.
ENTER=21
ADDRESS%=16
RESPONSE$=SPACE$(50)
CALL
ENTER(RESPONSE$
1
LENGTH%
1
ADDRESS%
1
STATUS%)
Send
GTL
to
device 16.
TRANSMIT=3
CMD$="LISTEN
16 GTL"
CALL
TRANSMIT(CMD$
1
STATUS%)
Send
SOC
to
device 16.
TRANSMIT=3
CMD$=''USTEN
16
SOC"
CALL
TRANSMIT(CMD$
1
STATUS%)
Send
OCL
to
all devices.
TRANSMIT=3
CMD$=''USTEN
16 DCL"
CALL
TRANSMIT(CMD$
1
STATUS%)
Send
remote
enable.
TRANSMIT=3
CMD$="REN LISTEN 16"
CALL
TRANSMIT(CMD$
1
STATUS%)
Serial
poll
device 16.
SPOLL=12
ADDRESS%=16
CALL
SPOLL%(ADDRESS%
1
POLL%
1
STATUS%)
+
D-3

Other manuals for Keithley 237

Related product manuals