Controller Programs
C-3
10 DEF=SEG&HC400 ‘ Memory address.
20 INITIALIZE=0 ‘ Offset address of routine.
30 MY.ADDRESS%=21 ‘ Set PC<>488 address.
40 CONTROLLER%=0 ‘ Set for system control.
50 CALL INITIALIZE (MY.ADDRESS%, ‘ Initilize system.
CONTROLLER%)
Program 1
Table C-1
BASIC statements necessary to send bus commands
Action PC<>488 statements
Transmit command string
(CMD$) to device 7.
SEND =9
ADDRESS%=7
CALL SEND(ADDRESS%,CMD$,STATUS%)
Obtain string from device 7. ENTER=21
ADDRESS%=7
RESPONSE$=SPACE$(50)
CALL ENTER(RESPONSE$,LENGTH%,ADDRESS%,STATUS%)
Send GTL to device 7. TRANSMIT=3
CMD$=ÓLISTEN 7 GTLÓ
CALL TRANSMIT(CMD$,STATUS%)
Send SDC to device 7. TRANSMIT=3
CMD$=ÓLISTEN 7 SDCÓ
CALL TRANSMIT(CMD$,STATUS%)
Send DCL to all devices. TRANSMIT=3
CMD$=ÓLISTEN 7 DCLÓ
CALL TRANSMIT(CMD$,STATUS%)
Send remote enable. TRANSMIT=3
CMD$=ÓREN LISTEN 7Ó
CALL TRANSMIT(CMD$,STATUS%)
Serial poll device 7. SPOLL=12
ADDRESS%=7
CALL SPOLL%(ADDRESS%,POLL%,STATUS%)
Artisan Scientific - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisan-scientific.com