User`s manual

270 OUTPUT @Afg;"SOUR:FUNC:USER SIN_X_OUT"
280 OUTPUT @Afg;"INIT:IMM"
290 !
300 WAIT .1 !allow interrupt to be serviced
310 OFF INTR 7
320 END
330 SUB Sinx_def
340 Sinx_def: !Define Sin(x)/x waveform and output sequence.
350 COM @Afg
360 DIM Waveform(1:4096)
370 FOR I=-2047 TO 2048
380 IF I=0 THEN I=1.E-38
390 Waveform(I+2048)=((SIN(2*PI*.53125*I/256))/(.53125*I/256)*.159154943092)
400 NEXT I
410 !
420 OUTPUT @Afg;"SOUR:LIST1:SEGM:SEL SIN_X" !select segment
430 OUTPUT @Afg;"SOUR:LIST1:SEGM:DEF 4096" !reserve memory
440 OUTPUT @Afg;"SOUR:LIST1:SEGM:VOLT";Waveform(*) !load points
450 !
460 OUTPUT @Afg;"SOUR:LIST1:SSEQ:SEL SIN_X_OUT" !select sequence
470 OUTPUT @Afg;"SOUR:LIST1:SSEQ:DEF 1" !number of segments
480 OUTPUT @Afg;"SOUR:LIST1:SSEQ:SEQ SIN_X" !segment order
490 SUBEND
500 !
510 SUB Rst
520 Rst: !Subprogram which resets the E1445.
530 COM @Afg
540 OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
550 ENTER @Afg;Complete
560 SUBEND
570 !
580 SUB Wf_del
590 Wf_del: !Subprogram which deletes all sequences and segments.
600 COM @Afg
610 OUTPUT @Afg;"FUNC:USER NONE" !select no sequences
620 OUTPUT @Afg;"LIST:SSEQ:DEL:ALL" !delete all sequences
630 OUTPUT @Afg;"LIST:SEGM:DEL:ALL" !delete all segments
640 SUBEND
650 !
660 SUB Errmsg
670 Errmsg: !Subprogram which displays E1445 programming errors
680 COM @Afg
690 DIM Message$[256]
700 !Read AFG status byte register and clear service request bit
710 B=SPOLL(@Afg)
720 !End of statement if error occurs among coupled commands
730 OUTPUT @Afg;""
740 OUTPUT @Afg;"ABORT" !abort output waveform
750 REPEAT
760 OUTPUT @Afg;"SYST:ERR?" !read AFG error queue
Continued on Next Page
Chapter 4 Sweeping and Frequency-Shift Keying 153