Controller Programs
C-9
IBM PC/XT/AT with National
GPIB PC Interface
Introduction
The following program sends a command message to
the Model 7001 from an IBM PC/XT/AT computer and
displays a response message 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 conÞgured as
described in the instruction manual.
Directions
1. Using the front panel MENU key and the GPIB
menu item, set the primary address of the Model
7001 to 7.
2. With the power off, connect the Model 7001 to the
IEEE-488 interface installed in the IBM computer.
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 lines 1-6 which are now in
memory. Modify the address in lines 1 and 2, as de-
scribed in the National instruction manual.
6. Run the program and type in the desired com-
mand message. For example, to request the cur-
rently deÞned Scan List, type in :SCAN? and press
the return key. The Scan List will appear on the
computer CRT.
10 CLS Clear screen.
20 NA$=”GPIB0”:CALL IBFIND (NA$,BRD0%) Find board descriptor.
30 NA$=”DEV1”:CALL IBFIND(NA$,M7001%) Find instrument descriptor.
40 V%=7:CALL IBPAD(M7001%,V%) Set primary address to 7.
50 V%=&H102:CALL IBPOKE(BRD0%,V%) Set timeouts.
60 V%=1:CALL IBSRE(BRD0%,V%) Set REN true.
70 INPUT “ENTER COMMAND MESSAGE “:CMD$ Prompt for command.
80 IF CMD$=”EXIT” THEN 160 See if program is to be halted.
90 IF CMD$+ “ “ THEN 70 Check for null input.
100 CALL IBWRT (M7001%,CMD$) Send command message.
110 IF RIGHT$(CMD$, 1) <> “>” THEN GOTO 70 Check for query command.
120 RD$=SPACE$(100) Define reading input buffer.
130 CALL IBRD(M7001%,RD$) Address 7001 to talk.
140 PRINT RD$ Display message response.
150 GOTO 70 Repeat.
160 V%=0:CALL IBONL(M7001%,V%) Close the instrument file.
170 CALL IBONL(BRD0%,V%)
180 END
Artisan Scientific - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisan-scientific.com
To Next Page
Loading...
Need help?
General
