Agilent Technologies 1670G Transferring the Logic Analyzer Configuration, 4315

340 !
350 ! ******* ************* TR ANSER THE SETUP **************** ****************
360 ! Transfer the setup from the logic analyzer to the buffer.
370 !
380 ! ********** RE-INITIALIZE TRANSFER BUFFER POINTERS ****************
390 ASSIGN @B uff TO BUFFER [N umbytes]
400 CONTROL @Buff,3;1
410 CONTROL @Buff,4;0
420 TRANSFER @Comm TO @Buff;COUNT Numbytes,WAIT
430 !
440 ! Get te rmination charac ter
450 ENTER @Comm;Term$
460 !
470 PRINT "**** GOT THE SETUP ****"
480 PRINT "Press Continue to continue the program."
490 PAUSE
500 ! ******* ************** S END THE SETUP ** **************** ****************
510 ! Make sure buffer is not empty.
520 !
530 IF Numbyt es=0 THEN
540 PRINT "BUFFER IS EMPTY"
550 PAUSE
560 END IF
570 !
580 ! ******* ************** S END THE SETUP CO MMAND ********** ****************
590 ! Send th e Setup command
600 !
610 OUTPUT @C omm USING "#,16A ";":SYSTEM:SETUP #8"
620 PRINT "SYSTEM:SETUP command has been sent"
630 PRINT "Press Continue to continue program."
640 PAUSE
650 !
660 ! ******* ************** S END THE BLOCK SE TUP ************ ****************
670 ! Send th e block length t o the Agilent 16 70G in the prope r
680 ! format.
690 !
700 OUTPUT @C omm USING "#,8A" ;Numbytes$
710 !
720 ! *********************** SAVE BUFFER POINTERS *************************
730 ! Save th e transfer buffe r pointer so it can be restored after the
740 ! transfer.
750 !
760 STATUS @B uff,5;Streg
770 !
Programming Examples
Transferring the Logic Analyzer Configuration
43–15