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
Summary of Contents for 7001
Page 284: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 285: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 286: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 287: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 288: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 293: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 294: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 295: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 296: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 299: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 300: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 301: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 304: ......
Page 305: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 308: ......
Page 309: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 312: ......
Page 313: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Page 315: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...