Controller Programs
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