Agilent Technologies E1446A Car Amplifier User Manual


 
500 ENTER @Amp;Complete
510 SUBEND
520 !
530 SUB Errmsg
540 Errmsg: !Subprogram which displays E1445/E1446 programming errors
550 COM @Afg,@Amp
560 DIM Message$[256]
570 !Read AFG (at sec addr 10) status byte register, clear service
580 !request bit
590 B=SPOLL(@Afg)
600 IF BIT(B,6) THEN !AFG requested service
610 !End of statement if error occurs among coupled commands
620 OUTPUT @Afg;""
630 OUTPUT @Afg;"ABORT" !abort output waveform
640 PRINT "E1445A errors"
650 PRINT
660 REPEAT
670 OUTPUT @Afg;"SYST:ERR?" !read AFG error queue
680 ENTER @Afg;Code,Message$
690 PRINT Code,Message$
700 UNTIL Code=0
710 STOP
720 END IF
730 !
740 !Read AMP (at sec addr 11) status byte register, clear service
750 !request bit
760 B=SPOLL(@Amp)
770 IF BIT(B,6) THEN !amplifier requested service
780 !End of statement if error occurs among coupled commands
790 OUTPUT @Amp;""
800 PRINT "E1446A errors"
810 PRINT
820 REPEAT
830 OUTPUT @Amp;"SYST:ERR?"!read AMP error queue
840 ENTER @Amp;Code,Message$
850 PRINT Code,Message$
860 UNTIL Code=0
870 END IF
880 STOP
890 SUBEND
Setting DC Voltage Offsets Programming the Agilent E1446A 2-25