Keithley 486 Instruction Manual page 220

APPENDMD
Controller Progrms
IBM PC/XT/AT with National GPIB PC Interface
Introduction
The following program sends a command string to the
Model 486/487 from an IBM PC/XT/AT computer and
displays the instrument reading string on the CRT. The
computer must be equipped with the National GPIB PC
Interface and the DOS 2.00 (or later revision) operating
system. Interface software must be installed and config-
ured as described in the instruction manual.
Directions
I. using front panel MENU, set the primary address of
the Model 486/487 to 22.
2. With the power off, connect the Model 486/487 to
the IEEE-488 interface installed in the IBM com-
puter.
3. Type in BASICA on the computer keyboard to get
into the IBM interpretive BASIC language.
4. Place the interface software disk in the default drive,
type LOAD"DECL", and press the return key.
5. Add the lines below to line l-6 which are now in
memory. Modify the address in lines 1 and 2, as de-
scribed in the National instnxtion manual.
6. Run the program and type in the desired command
string. For example, to view the instrument model
number and firmware revision, type in U4X and
press the return key. The Model 486/487 firmware
revisionwillthen appear off the computer display. A
single readiigwilI appear for DDCs that have no re-
sponse
PROGRAM
COMMENTS
CLS
clear screen.
NA$="GpIBO":CALL IBFIND(NA$,BRDO%)
Find board descriptor.
30 NA$="DEVl":CALLIBFlND(NA$,M486%)
Find instrument descriptor.
40 V%=Z!zCALL IBPAD(M486%,V%)
Set primary address to 22.
50 V%=&I-I102:CALL IBI'OKE(BRDO%,V%) set timeouts.
60 V%=lCALL IBSRE(BRDO%,V%) Set REN he.
70
INPUT "COMMAND STRINC;CMD5
Prompt for command.
80
IF cML3$d,ExrY THEN 150 See if program is to be halted.
90
IF cMD$="" THEal 70
Check for nuIl input.
100 CALL IBWRT &f486%,CMD$) Address 486/487 to listen, send string.
110 RD$=SPACE$(lOD) Define reading input buffer.
120 CALL IBRDi.M486%,RD$)
Address 486/487 to talk, get reading.
130 mINTRD5 Display the string.
:z vG:zzLL IBoNL(M486%,V%)
Repeat.
Close the instnment file.
160 CALL IBONLcBRDil%,V%)
Close the board file.
170 END
D-7