Agilent Technologies E1446A Car Amplifier User Manual


 
60 !Set up error checking
70 ON INTR 7 CALL Errmsg
80 ENABLE INTR 7;2
90 OUTPUT @Afg;"*CLS"
100 OUTPUT @Afg;"*SRE 32"
110 OUTPUT @Afg;"*ESE 60"
120 !
130 !Call the subprograms
140 Rst
150 Offset
160 !
170 WAIT .1 !allow interrupt to be serviced
180 OFF INTR 7
190 END
200 !
210 SUB Offset
220 Offset: !Subprogram which sets up the E1445A and E1446A
230 COM @Afg
240 OUTPUT @Afg;"SOUR:FREQ1:FIX 1E3;"; !frequency
250 OUTPUT @Afg;":SOUR:FUNC:SHAP SIN;"; !function
260 OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL .4VPP;"; !amplitude
270 OUTPUT @Afg;":OUTP:LOAD:AUTO ON;"; !couple load to impedance
280 OUTPUT @Afg;":OUTP:IMP 50" !impedance
290 !
300 !Set up the Agilent E1446A
310 OUTPUT @Afg;"INP1:IMP 50" !input impedance
320 OUTPUT @Afg;"INP1:ATT 20" !input attenuation (dB)
330 OUTPUT @Afg;"OUTP2:IMP 50;"; !main output impedance
340 OUTPUT @Afg;":OUTP2:ATT 0;"; !main output attenuation (dB)
350 OUTPUT @Afg;":SOUR2:VOLT:LEV:IMM:OFFS 8" !DC offset
360 !
370 OUTPUT @Afg;"INIT:IMM" !E1445A wait-for-arm state
380 SUBEND
390 !
400 SUB Rst
410 Rst: !Subprogram which resets the E1445A and E1446A
420 COM @Afg
430 OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
440 ENTER @Afg;Complete
450 SUBEND
460 !
470 SUB Errmsg
480 Errmsg: !Subprogram which displays E1445/E1446 programming errors
490 COM @Afg
500 DIM Message$[256]
Continued on Next Page
2-22 Programming the Agilent E1446A Setting DC Voltage Offsets