User`s manual

BASIC Program Example (SWP_LEVL)
1 !RE-STORE"SWP_LEVL"
2 !This program enables output leveling over the 0 Hz to 10 MHz
3 !sweep.
4 !
10 !Assign I/O path between the computer and E1445A.
20 ASSIGN @Afg TO 70910
30 COM @Afg
40 !
50 !Set up error checking
60 ON INTR 7 CALL Errmsg
70 ENABLE INTR 7;2
80 OUTPUT @Afg;"*CLS"
90 OUTPUT @Afg;"*SRE 32"
100 OUTPUT @Afg;"*ESE 60"
110 !
120 !Call the subprograms
130 CALL Rst
140 CALL Swp_levl
150 !
160 WAIT .1 !allow interrupt to be serviced
170 OFF INTR 7
180 END
190 !
200 SUB Swp_levl
210 Swp_levl: !Subprogram which sets output leveling for sweeping from
220 !0 TO 10 MHz
230 COM @Afg
240 OUTPUT @Afg;"SOUR:FREQ1:MODE SWE;"; !sweep mode
250 OUTPUT @Afg;" :SOUR:FREQ1:STAR 0;"; !start frequency
260 OUTPUT @Afg;" :SOUR:FREQ1:STOP 10E6;"; !stop frequency
270 OUTPUT @Afg;" :SOUR:SWE:COUN INF;"; !sweep count
280 OUTPUT @Afg;":SOUR:FUNC:SHAP SIN;"; !function
290 OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 5 V" !amplitude
300 OUTPUT @Afg;"OUTP1:FILT:LPAS:FREQ 10 MHZ" !filter cutoff frequency
310 OUTPUT @Afg;"OUTP1:FILT:LPAS:STAT ON" !enable output filter
320 OUTPUT @Afg;"INIT:IMM" !wait-for-arm state
330 SUBEND
340 !
350 SUB Rst
360 Rst: !Subprogram which resets the E1445.
370 COM @Afg
380 OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
390 ENTER @Afg;Complete
400 SUBEND
410 !
420 SUB Errmsg
430 Errmsg: !Subprogram which displays E1445 programming errors
440 COM @Afg
Continued on Next Page
Chapter 4 Sweeping and Frequency-Shift Keying 145