Agilent Technologies 1660A, 1660AS Transferring the logic analyzer acquired data, 3618

200 Numbytes=0
210 !
220 ! ************** RE-INITIALIZE TRANSFER BUFFER POINTERS ******************
230 !
240 CONTROL @Buff,3;1
250 CONTROL @Buff,4;0
260 !
270 ! *********************** SEND THE DATA QUERY **************************
280 OUTPUT 707;": SYSTEM:HEADE R ON"
290 OUTPUT 707;": SYSTEM:LONGF ORM ON"
300 OUTPUT @Comm; "SELECT 1"
310 OUTPU T @Comm;":SY STEM:DATA?"
320 !
330 ! *********** ********* ENTE R THE BLOCK DATA HEA DER ********** ***********
340 ! Enter the block data header in the proper format.
350 !
360 ENTER @Comm USING "#,B";Byte
370 PRINT CHR$(Byte);
380 WHILE Byte<>35
390 ENTER @Comm USING "#,B";Byte
400 PRINT CHR$(Byte);
410 END WHILE
420 ENTER @Comm USING "#,B";Byte
430 PRINT CHR$(Byte);
440 Byte=Byte-48
450 IF Byte=1 THEN EN TER @Comm USING "# ,D";Numbytes
460 IF Byte=2 THEN EN TER @Comm USING "# ,DD";Numbyte s
470 IF Byte=3 THEN EN TER @Comm USING "# ,DDD";Numbyt es
480 IF Byte=4 THEN EN TER @Comm USING "# ,DDDD";Numby tes
490 IF Byte=5 THEN EN TER @Comm USING "# ,DDDDD";Numb ytes
500 IF Byte=6 THEN EN TER @Comm USING "# ,DDDDDD";Num bytes
510 IF Byte=7 THEN EN TER @Comm USING "# ,DDDDDDD";Nu mbytes
520 IF Byte=8 THEN EN TER @Comm USING "# ,DDDDDDDD";N umbytes
530 PRINT Numbytes
540 !
550 ! ******************** TRANSER THE DATA ********************************
560 ! Transfer the da ta from the logic an alyzer to the buff er.
570 !
580 TRANSFER @Comm TO @Buff;COUNT Numbytes,WAIT
600 !
610 ENTER @Comm USING "-K";Length$
620 PRINT "LENGTH of Length string is";LEN(Length$)
630 !
640 PRINT "**** GOT THE DATA ****"
650 PAUSE
Programming Examples
Transferring the logic analyzer acquired data
36–18