Agilent Technologies E1446A Car Amplifier User Manual


 
460 !Set up the Agilent E1446A
470 OUTPUT @Afg80;"INP1:IMP 50" !input 1 impedance
480 OUTPUT @Afg80;"INP1:ATT 0" !input 1 attenuation (dB)
490 OUTPUT @Afg80;"INP2:IMP 50" !input 2 impedance
500 OUTPUT @Afg80;"INP2:ATT 0" !input 2 attenuation (dB)
510 OUTPUT @Afg80;"OUTP3:IMP 50" !Diff + output impedance
520 !
530 OUTPUT @Afg80;"INIT:IMM" !E1445A wait-for-arm state (10)
540 OUTPUT @Afg88;"INIT:IMM" !E1445A wait-for-arm state (11)
550 SUBEND
560 !
570 SUB Rst
580 Rst: !Subprogram which resets the E1445As and E1446A
590 COM @Afg80,@Afg88
600 OUTPUT @Afg80;"*RST;*OPC?" !reset the AFG (sec addr 10)
610 ENTER @Afg80;Complete
620 !
630 OUTPUT @Afg88;"*RST;*OPC?" !reset the AFG (sec addr 11)
640 ENTER @Afg88;Complete
650 SUBEND
660 !
670 SUB Errmsg
680 Errmsg: !Subprogram which displays E1445/E1446 programming errors
690 COM @Afg80,@Afg88
700 DIM Message$[256]
710 !Read AFG (at sec addr 10) status byte register, clear service
720 !request bit
730 B=SPOLL(@Afg80)
740 !End of statement if error occurs among coupled commands
750 OUTPUT @Afg80;""
760 OUTPUT @Afg80;"ABORT" !abort output waveform
770 PRINT "E1445A (secondary address 10)"
780 PRINT
790 REPEAT
800 OUTPUT @Afg80;"SYST:ERR?" !read AFG error queue (sec addr 10)
810 ENTER @Afg80;Code,Message$
820 PRINT Code,Message$
830 UNTIL Code=0
840 PRINT
850 !
860 !Read AFG (at sec addr 11) status byte register, clear service
870 !request bit
Continued on Next Page
2-34 Programming the Agilent E1446A Summing Two Signals