User`s manual

1200 Sequence(1)=SHIFT(4096-1,-4)+Addr_seg1 DIV 65536
1210 Sequence(2)=Addr_seg1 MOD 65536-65536*(Addr_seg1 MOD 65536.32767)
1220 !
1230 OUTPUT @Afg;"SOUR:LIST1:SSEQ:SEL SEQ1" !sequence name
1240 OUTPUT @Afg;"SOUR:LIST1:SSEQ:DEF 1" !sequence size
1250 OUTPUT @Afg USING "#,K";"SOUR:LIST1:SSEQ:COMB #0" !segment execution order
1260 OUTPUT @Afg1;Sequence(*) !sequence list in indefinite length block
1270 OUTPUT @Afg;CHR$(10);END !terminate with Line Feed (LF) and EOI
1280 !
1290 OUTPUT @Afg;"SOUR:LIST1:SSEQ:ADDR?" !sequence location
1300 ENTER @Afg;Seq1_addr
1310 SUBEND
1320 !
1330 SUB Sind_def
1340 Sind_def: !Compute the damped sine waveform. Download the data
1350 !as a combined list (voltage and marker) of signed numbers
1360 !in an indefinite length block. Download the sequence as a
1370 !combined list (repetition count, marker, and segment address)
1380 !in an indefinite length arbitrary block.
1390 COM @Cmd,@Afg,@Afg1,Base_addr,Seq1_addr,Seq2_addr,Seq3_addr
1400 INTEGER Waveform(1:4096)
1410 INTEGER Sequence(1:2)
1420 REAL Addr_seg2
1430 A=4/4096
1440 W=(2*PI)/50
1450 FOR T=1 TO 4096
1460 Waveform(T)=EXP(-A*T)*SIN(W*T)/.00125
1470 !shift bits to dac code positions
1480 Waveform(T)=SHIFT(Waveform(T),-3)
1490 NEXT T
1500 !
1510 OUTPUT @Afg;"SOUR:LIST1:SEGM:SEL SIN_D" !segment name
1520 OUTPUT @Afg;"SOUR:LIST1:SEGM:DEF 4096" !segment size
1530 OUTPUT @Afg USING "#,K";"SOUR:LIST1:SEGM:COMB #0" !waveform points
1540 OUTPUT @Afg1;Waveform(*) !indefinite length block
1550 OUTPUT @Afg;CHR$(10);END !terminate with line feed (LF) and EOI
1560 !
1570 OUTPUT @Afg;"SOUR:LIST1:SEGM:ADDR?"
1580 ENTER @Afg;Addr_seg2
1590 Addr_seg2=Addr_seg2/8 ! /8 to set starting address (boundary) of segment
1600 !
1610 !Sequence (1) is the repetition count and marker enable for
1620 !segment SIN_D. Sequence (2) is the starting address of segment SIN_D.
1630 Sequence(1)=SHIFT(4096-1,-4)+Addr_seg1 DIV 65536
1640 Sequence(2)=Addr_seg2 MOD 65536-65536*(Addr_seg2 MOD 65536.32767)
1650 !
1660 OUTPUT @Afg;"SOUR:LIST1:SSEQ:SEL SEQ2" !sequence name
1670 OUTPUT @Afg;"SOUR:LIST1:SSEQ:DEF 1" !sequence size
1680 OUTPUT @Afg USING "#,K";"SOUR:LIST1:SSEQ:COMB #0"!segment execution order
1690 OUTPUT @Afg1;Sequence(*) !sequence list in indefinite length block
Continued on Next Page
Chapter 7 High Speed Operation 275