Keithley 2001

Controller Programs
G-3
Program 1
Table G-1
BASIC statements necessary to send bus commands
Action PC<>488 statements
Transmit command string (CMD$) to device 16.
Obtain string from device 16.
Send GTL to device 16.
Send SDC to device 16.
Send DCL to all devices.
Send remote enable.
Serial poll device 16.
SEND =9
ADDRESS%=16
CALL SEND(ADDRESS%,CMD$,STATUS%)
ENTER=21
ADDRESS%=16
RESPONSE$=SPACE$(50)
CALL ENTER(RESPONSE$,LENGTH%,ADDRESS%,STATUS%)
TRANSMIT=3
CMD$=”LISTEN 16 GTL”
CALL TRANSMIT(CMD$,STATUS%)
TRANSMIT=3
CMD$=”LISTEN 16 SDC”
CALL TRANSMIT(CMD$,STATUS%)
TRANSMIT=3
CMD$=”LISTEN 16 DCL”
CALL TRANSMIT(CMD$,STATUS%)
TRANSMIT=3
CMD$=”REN LISTEN 16”
CALL TRANSMIT(CMD$,STATUS%)
SPOLL=12
ADDRESS%=16
CALL SPOLL%(ADDRESS%,POLL%,STATUS%)
10
20
30
40
50
DEF SEG=&HC400
INITIALIZE=0
MY.ADDRESS%=21
CONTROLLER%=0
CALL INITIALIZE (MY.ADDRESS%, CONTROLLER%)
‘ Memory address.
‘ Offset address of routine.
‘ Set PC<>488 address.
‘ Set for system control.
‘ Initialize system