User`s manual

700 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+8;",16,";Traffic
710 !
720 !Write the location of the sequence base address (waveform index)
730 !to the Waveform Select register. Write the base address of
740 !of the sequence in sequence memory to the Sequence Base register.
750 !
760 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+10;",8,252"
770 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+32;",16,";Seq3_addr
780 !
790 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+10;",8,253"
800 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+32;",16,";Seq1_addr
810 !
820 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+10;",8,254"
830 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+32;",16,";Seq2_addr
840 !
850 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+10;",8,255"
860 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+32;",16,";Seq3_addr
870 !
880 OUTPUT @Cmd;"DIAG:POKE ";Base_addr+10;",8,0"
890 SUBEND
900 !
910 SUB Sinx_def
920 Sinx_def: !Define the waveform Sin(x)/x. Download the waveform data
930 !as a combined list (voltage and marker) of signed numbers
940 !in an indefinite length block. Download the sequence as a
950 !combined list (repetition count, marker, and segment address)
960 !in an indefinite length arbitrary block.
970 COM @Cmd,@Afg,@Afg1,Base_addr,Seq1_addr,Seq2_addr,Seq3_addr
980 INTEGER Waveform(1:4096)
990 INTEGER Sequence(1:2)
1000 REAL Addr_seg1
1010 FOR I=-2047 TO 2048
1020 IF I=0 THEN I=1.E-38
1030 Waveform(I+2048)=((SIN(2*PI*.53125*I/256))/(.53125*I/256)*.159154943092)/.00125
1040 !shift bits to dac code positions
1050 Waveform(I+2048)=SHIFT(Waveform(I+2048),-3)
1060 NEXT I
1070 !
1080 OUTPUT @Afg;"SOUR:LIST1:SEGM:SEL SIN_X" !segment name
1090 OUTPUT @Afg;"SOUR:LIST1:SEGM:DEF 4096" !segment size
1100 OUTPUT @Afg USING "#,K";"SOUR:LIST1:SEGM:COMB #0" !waveform points
1110 OUTPUT @Afg1;Waveform(*) !indefinite length block
1120 OUTPUT @Afg;CHR$(10);END !terminate with line feed (LF) and EOI
1130 !
1140 OUTPUT @Afg;"SOUR:LIST1:SEGM:ADDR?"
1150 ENTER @Afg;Addr_seg1
1160 Addr_seg1=Addr_seg1/8 ! /8 to set starting address (boundary) of segment
1170 !
1180 !Sequence (1) is the repetition count and marker enable for
1190 !segment SIN_X. Sequence (2) is the starting address of segment SIN_X.
Continued on Next Page
274 High Speed Operation Chapter 7