LeCroy 9410 - Page 209

Appendix A
1-99 <DECL.BAS>
i00 CLS
Ii0 PRINT "Control of the 9450 (address 4) via GPIB and IBM PC"
115
PRINT "": PRINT "Options : EX to exit LC local mode"
120 PRINT
"
ST store data RC recall data": PRINT""
125 LOOP=I
130 CMDIS = "?_@$" "Unlisten, Untalk, Board talker, Device listener
135 CMD2S = "?_ D" "Unlisten, Untalk, Board listener, Device talker
140 BDNAMES= "GPIB0": CALL IBFIND(BDNAME$,BRD0%)
145 IF BRD0% < 0 THEN GOTO 420
150 CALL IBSIC(BRD0%): IF IBSTA% < 0 THEN GOTO 425
155 WHILE LOOP
160 LINE INPUT "Enter command (EX --> Exit) : ",CMD$
165 V% = I: CALL IBSRE(BRD0%,V%)
170 IF CMD$ = "ex" OR CMD$ = "EX" THEN LOOP = FALSE: GOTO 205
175 IF CMD$ = "st" OR CMD$ = "ST" THEN GOSUB 285: GOTO 200
180
IF CMDS = "rc" OR CMD$ = "RC" THEN GOSUB 365: GOTO 200
185
IF CMD$ = "Ic" OR CMD$ = "LC" THEN GOSUB 240: GOTO 200
190 IF CMD$ = "" THEN GOTO 200
195 CALL IBCMD(BRD0%,CMDI$): CALL IBWRT(BRD0%,CMD$): GOSUB
200
WEND
205 CALL IBSIC(BRD0%): V%=0: CALL IBSRE(BRD0%,V%)
210 CALL IBSIC(BRD0%)
215 END
220
"
230 "LOCAL MODE
235
"
240 V% = 0: CALL IBSRE(BRD0%,V%): PRINT
245 RETURN
250
"
260 "SUBROUTINE GETDATA
265
"
270 CALL IBCMD(BRD0%,CMD2$): CALL IBRD(BRD0%,RD$): I=IBCNT%
275 FOR J=l TO I: PRINT MIDS(RD$,J,I);: NEXT J: PRINT
280 RETURN
285
"
290 "SUBROUTINE STORE DATA
295
"
300
RDIS=SPACE$(3)
305
LINE INPUT "Specify trace (EA,EB,MC,MD,FE,FF,CI,C2): ",TRACES
310 LINE INPUT "Enter filename : ",FILES
315 CALL IBCMD(BRD0%,CMDI$)
320 CMD$="WFSU NP,0,SP,0,FP,0,SN,0;CHDR SHORT"
321 CALL IBWRT(BRD0%,CMD$)
325
CMD$=TRACE$+":WF?": CALL IBWRT(BRD0%,CMDS)
330 CALL IBCMD(BRD0%,CMD2S): CALL IBRD(BRD0%,RDIS)
203