Programming Examples

Sending Queries to the Logic Analyzer

150 !

160! ************* INTITIALIZE VARIABLE FOR NUMBER OF BYTES *****************

170! The variable "Numbytes" contains the number of bytes in the buffer.

180!

190REAL Numbytes

200Numbytes=0

210!

220! ************** RE-INITIALIZE TRANSFER BUFFER POINTERS ******************

230!

240CONTROL @Buff,3;1

250CONTROL @Buff,4;0

260!

270! *********************** SEND THE DATA QUERY **************************

280OUTPUT 707;":SYSTEM:HEADER ON"

290OUTPUT 707;":SYSTEM:LONGFORM ON"

300OUTPUT @Comm;"SELECT 2"

310OUTPUT @Comm;":SYSTEM:DATA?"

320!

330! ******************** ENTER THE BLOCK DATA HEADER *********************

340! Enter the block data header in the proper format.

350!

360ENTER @Comm USING "#,B";Byte

370PRINT CHR$(Byte);

380WHILE Byte<>35

390ENTER @Comm USING "#,B";Byte

400PRINT CHR$(Byte);

410END WHILE

420ENTER @Comm USING "#,B";Byte

430PRINT CHR$(Byte);

440Byte=Byte-48

450IF Byte=1 THEN ENTER @Comm USING "#,D";Numbytes

460IF Byte=2 THEN ENTER @Comm USING "#,DD";Numbytes

470IF Byte=3 THEN ENTER @Comm USING "#,DDD";Numbytes

480IF Byte=4 THEN ENTER @Comm USING "#,DDDD";Numbytes

490IF Byte=5 THEN ENTER @Comm USING "#,DDDDD";Numbytes

500IF Byte=6 THEN ENTER @Comm USING "#,DDDDDD";Numbytes

510IF Byte=7 THEN ENTER @Comm USING "#,DDDDDDD";Numbytes

520IF Byte=8 THEN ENTER @Comm USING "#,DDDDDDDD";Numbytes

530Str1$=DVAL$(Numbytes,10)

531! DVAL$ returns an 11 character string

532PRINT Str1$[12-Byte]

540!

18–20