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 !
740 ! ********************* SEND THE SETUP COMMAND **************************
750 ! Send the Setup command
760 !
770 OUTPUT @Comm USING "#,15A";":SYSTEM:SETUP #"
780 PRINT "SYSTEM:SETUP command has been sent. Press Continue to send setup"
790 PAUSE
800 !
810 ! ********************* SEND THE BLOCK SETUP ****************************
820 ! Send the block setup header to the module in the proper
821 ! format.
830 !
840 Byte=LEN(VAL$(Numbytes))
850 OUTPUT @Comm USING "#,B";(Byte+48)
860 IF Byte=1 THEN OUTPUT @Comm USING "#,A";VAL$(Numbytes)
870 IF Byte=2 THEN OUTPUT @Comm USING "#,AA";VAL$(Numbytes)
880 IF Byte=3 THEN OUTPUT @Comm USING "#,AAA";VAL$(Numbytes)
890 IF Byte=4 THEN OUTPUT @Comm USING "#,AAAA";VAL$(Numbytes)
900 IF Byte=5 THEN OUTPUT @Comm USING "#,AAAAA";VAL$(Numbytes)
910 IF Byte=6 THEN OUTPUT @Comm USING "#,AAAAAA";VAL$(Numbytes)
920 IF Byte=7 THEN OUTPUT @Comm USING "#,AAAAAAA";VAL$(Numbytes)
930 IF Byte=8 THEN OUTPUT @Comm USING "#,AAAAAAAA";VAL$(Numbytes)
940 !
950 ! *********************** SAVE BUFFER POINTERS *************************
960 ! Save the transfer buffer pointer so it can be restored after the
970 ! transfer.
980 !
990 STATUS @Buff,5;Streg
1000 !
1010 ! ************ TRANSFER SETUP TO THE MODULE ****************
1020 ! Transfer the setup from the buffer to the HP 16554A/HP 16555A/HP 16555D.
1030 !
1040 TRANSFER @Buff TO @Comm;COUNT Numbytes,WAIT
1050 !
Programming Examples
Transferring the Logic Analyzer Configuration
18–16
