C-4
10
DEF SEG=&HC400
‘ Memory address.
20
INITIALIZE=0
‘ Define call offsets.
30
SEND=9:ENTER=21
40
MY.ADDRESS%=21
‘ Set PC<>488 address.
50
INST.ADDRESS%=7
‘ Set 7001 address.
60
CONTROLLER%=0
‘ Set for system control.
70
CALL INITIALIZE (MY.ADDRESS%,
‘ Initialize system.
CONTROLLER%)
80
LINE INPUT “ENTER COMMAND
‘ Prompt for command message.
MESSAGE “;CMD$
90
CALL SEND (INST.ADDRESS%, CMD$
‘ send command message.
STATUS%)
100 IF RIGHT$(CMD$, 1) <> “?”
‘ Test for query. If command is a
THEN GOTO 80
query, goto 80.
110 RESPONSE$=SPACE$(80)
‘ Make room for data.
120 CALL ENTER (RESPONSE$,LENGTH%,
‘ Get response to query from 7001.
INST.ADDRESS%,STATUS%)
130 PRINT RESPONSE$
‘ Display response to query.
140 GOTO 80
‘ Display response to query.
150 END
Program 2
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...