User`s manual

160 CALL Wf_del
170 !
180 OUTPUT @Afg;"SOUR:FREQ1:FIX 200E3;"; !frequency
190 OUTPUT @Afg;":SOUR:FUNC:SHAP USER;"; !function
200 OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 5.11875V" !amplitude
210 !
220 CALL Ramp_wave
230 !
240 OUTPUT @Afg;"SOUR:FUNC:USER RAMP_OUT" !waveform sequence
250 OUTPUT @Afg;"INIT:IMM" !wait-for-arm state
260 !
270 WAIT .1!allow interrupt to be serviced
280 OFF INTR 7
290 END
300 !
310 SUB Ramp_wave
320 Ramp_wave: !Subprogram which defines a ramp waveform and output
330 !sequence.
340 COM @Afg,@Afg1
350 INTEGER Waveform(1:200) !Calculate waveform points as dac codes
360 FOR I=-100 TO 99
370 IF I=0 THEN
380 Waveform(I+101)=0+2 !set marker bit with this amplitude point
390 ELSE
400 Waveform(I+101)=(I*.050505)/.00125
410 !shift bits to dac code positions
420 Waveform(I+101)=SHIFT(Waveform(I+101),-3)
430 END IF
440 NEXT I
450 !
460 OUTPUT @Afg;"SOUR:ARB:DAC:SOUR INT" !dac data source
470 OUTPUT @Afg;"SOUR:ARB:DAC:FORM SIGN" !dac data format (signed)
480 !output marker as defined by segment list
490 OUTPUT @Afg;"SOUR:MARK:FEED ""SOUR:LIST1"""
500 OUTPUT @Afg;"SOUR:LIST1:SEGM:SEL RAMP" !segment name
510 OUTPUT @Afg;" SOUR:LIST1:SEGM:DEF 200" !segment size
520 OUTPUT @Afg USING "#,K";"SOUR:LIST1:SEGM:COMB #3402"
530 OUTPUT @Afg1;Waveform(*) !400 bytes: 3 digits (2 bytes/ampl point)
540 OUTPUT @Afg !CR LF
550 !
560 OUTPUT @Afg;"SOUR:LIST1:SSEQ:SEL RAMP_OUT" !sequence name
570 OUTPUT @Afg;" SOUR:LIST1:SSEQ:DEF 1" !sequence size
580 OUTPUT @Afg;" SOUR:LIST1:SSEQ:SEQ RAMP" !segment order
590 SUBEND
600 !
610 SUB Rst
620 Rst: !Subprogram which resets the E1445.
630 COM @Afg,Afg1
640 OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
650 ENTER @Afg;Complete
Continued on Next Page
Chapter 7 High Speed Operation 243