13.07.2015 Views

Model 7002Switch System Instruction Manual - Advanced Test ...

Model 7002Switch System Instruction Manual - Advanced Test ...

Model 7002Switch System Instruction Manual - Advanced Test ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Controller Programs10 DEF SEG=&HC400 ‘ Memory address.20 INITIALIZE=0 ‘ Define call offsets.30 SEND=9:ENTER=2140 MY.ADDRESS%=21 ‘ Set PC488 address.50 INST.ADDRESS%=7 ‘ Set 7002 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) “?” ‘ <strong>Test</strong> for query. If command is aTHEN GOTO 80 query, goto 80.110 RESPONSE$=SPACE$(80) ‘ Make room for data.120 CALL ENTER (RESPONSE$,LENGTH%, ‘ Get response to query from 7002.INST.ADDRESS%,STATUS%)130 PRINT RESPONSE$ ‘ Display response to query.140 GOTO 80 ‘ Display response to query.150 ENDProgram 2B-4

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!