User`s manual

1700 OUTPUT @Afg;CHR$(10);END !terminate with Line Feed (LF) and EOI
1710 !
1720 OUTPUT @Afg;"SOUR:LIST1:SSEQ:ADDR?" !sequence location
1730 ENTER @Afg;Seq2_addr
1740 SUBEND
1750 !
1760 SUB Spike_def
1770 Spike_def: !Compute the waveform (sine wave with spike). Download the
1780 !data as a combined list (voltage and marker) of signed
1790 !numbers in an indefinite length block. Download the sequence as
1800 !a combined list (repetition count, marker, and segment address)
1810 !in an indefinite length arbitrary block.
1820 COM @Cmd,@Afg,@Afg1,Base_addr,Seq1_addr,Seq2_addr,Seq3_addr
1830 INTEGER Waveform(1:4096)
1840 INTEGER Sequence(1:2)
1850 REAL Addr_seg3
1860 FOR I=1 TO 4096
1870 Waveform(I)=SIN(2*PI*(I/4096))/.00125
1880 NEXT I
1890 Width=50
1900 FOR J=1 TO Width
1910 I=1024-Width+J
1920 Waveform(I)=Waveform(I)+.9*J/Width/.00125
1930 NEXT J
1940 FOR J=1 TO Width-1
1950 I=1024+Width-J
1960 Waveform(I)=Waveform(I)+.9*J/Width/.00125
1970 NEXT J
1980 !
1990 !shift bits to dac code positions
2000 FOR I=1 TO 4096
2010 Waveform(I)=SHIFT(Waveform(I),-3)
2020 NEXT I
2030 !
2040 OUTPUT @Afg;"SOUR:LIST1:SEGM:SEL SPIKE" !segment name
2050 OUTPUT @Afg;"SOUR:LIST1:SEGM:DEF 4096" !segment size
2060 OUTPUT @Afg USING "#,K";"SOUR:LIST1:SEGM:COMB #0"!waveform points
2070 OUTPUT @Afg1;Waveform(*) !indefinite length block
2080 OUTPUT @Afg;CHR$(10);END !terminate with line feed (LF) and EOI
2090 !
2100 OUTPUT @Afg;"SOUR:LIST1:SEGM:ADDR?"
2110 ENTER @Afg;Addr_seg3
2120 Addr_seg3=Addr_seg3/8 !/8 to set starting address (boundary) of segment
2130 !
2140 !Sequence (1) is the repetition count and marker enable for
2150 !segment SPIKE. Sequence (2) is the starting address of segment SPIKE.
2160 Sequence(1)=SHIFT(4096-1,-4)+Addr_seg3 DIV 65536
2170 Sequence(2)=Addr_seg3 MOD 65536.-65536.*(Addr_seg3 MOD 65536.32767)
2180 !
2190 OUTPUT @Afg;"SOUR:LIST1:SSEQ:SEL SEQ3" !sequence name
Continued on Next Page
276 High Speed Operation Chapter 7