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
Содержание 7001
Страница 183: ...IEEE 488 Reference 5 64 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 185: ...IEEE 488 Reference 5 66 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 239: ...IEEE 488 Reference 5 120 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 284: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 285: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 286: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 287: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 288: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 293: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 294: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 295: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 296: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 298: ...Replaceable Parts 8 6 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 299: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 300: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 301: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 303: ...Replaceable Parts 8 8 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 304: ......
Страница 305: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 307: ...Replaceable Parts 8 10 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 308: ......
Страница 309: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 311: ...Replaceable Parts 8 12 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 312: ......
Страница 313: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...
Страница 315: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com...