Agilent Technologies 1660AS TV Converter Box User Manual


 
280 OUTPUT 707;":SYSTEM:HEADER ON"
290 OUTPUT 707;":SYSTEM:LONGFORM ON"
300 OUTPUT @Comm;"SELECT 1"
310 OUTPUT @Comm;":SYSTEM:SETUP?"
320 !
330 ! ******************** ENTER THE BLOCK SETUP HEADER *********************
340 ! Enter the block setup 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 ENTER @Comm USING "#,D";Numbytes
460 IF Byte=2 THEN ENTER @Comm USING "#,DD";Numbytes
470 IF Byte=3 THEN ENTER @Comm USING "#,DDD";Numbytes
480 IF Byte=4 THEN ENTER @Comm USING "#,DDDD";Numbytes
490 IF Byte=5 THEN ENTER @Comm USING "#,DDDDD";Numbytes
500 IF Byte=6 THEN ENTER @Comm USING "#,DDDDDD";Numbytes
510 IF Byte=7 THEN ENTER @Comm USING "#,DDDDDDD";Numbytes
520 IF Byte=8 THEN ENTER @Comm USING "#,DDDDDDDD";Numbytes
530 PRINT Numbytes
540 !
550 ! ******************** TRANSER THE SETUP ********************************
560 ! Transfer the setup from the logic analyzer to the buffer.
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 SETUP ****"
650 PAUSE
660 ! ********************* SEND THE SETUP **********************************
670 ! Make sure buffer is not empty.
680 !
690 IF Numbytes=0 THEN
700 PRINT "BUFFER IS EMPTY"
710 GOTO 1170
720 END IF
730 !
Programming Examples
Transferring the logic analyzer configuration
36–15