User`s manual

420 OUTPUT @Afg_m;"SOUR:MARK:ECLT0:FEED "SOUR:ROSC"" !feed ref osc
430 OUTPUT @Afg_m;"SOUR:MARK:ECLT0:STAT ON" !enable ECLT0 trig line
440 OUTPUT @Afg_m;"SOUR:MARK:ECLT1:FEED "ARM:STAR:LAY2"" !feed arm source
450 OUTPUT @Afg_m;"SOUR:MARK:ECLT1:STAT ON" !enable ECLT1 trig line
460 SUBEND
470 !
480 SUB Square_wave_s
490 Square_wave_s: !Subprogram which sets up servant AFG: square wave
500 !in phase with master AFG, reference oscillator source
510 !external.
520 COM @Afg_m,@Afg_s
530 OUTPUT @Afg_s;"SOUR:ROSC:SOUR ECLT0;"; !reference source
540 OUTPUT @Afg_s;":SOUR:ROSC:FREQ:EXT 40E6;"; !reference frequency
550 OUTPUT @Afg_s;":TRIG:STAR:SOUR INT2;"; !trigger source
560 OUTPUT @Afg_s;":SOUR:FREQ2:FIX .5E6;"; !frequency
570 OUTPUT @Afg_s;":SOUR:FUNC:SHAP SQU;"; !function
580 OUTPUT @Afg_s;":SOUR:VOLT:LEV:IMM:AMPL 5V" !amplitude
590 OUTPUT @Afg_s;":ARM:STAR:LAY2:SOUR ECLT1" !arm source
600 !
610 OUTPUT @Afg_s;"INIT:IMM" !wait-for-arm state
620 OUTPUT @Afg_s;"STAT:OPC:INIT OFF;*OPC?" !allow setup to complete
630 ENTER @Afg_s;Complete
640 SUBEND
650 !
660 SUB Rst
670 Rst: !Subprogram which resets the AFGs.
680 COM @Afg_m,@Afg_s
690 OUTPUT @Afg_m;"*RST;*OPC?" !reset the master AFG
700 ENTER @Afg_m;Complete
710 !
720 OUTPUT @Afg_s;"*RST;*OPC?" !reset the servant AFG
730 ENTER @Afg_s;Complete
740 SUBEND
750 !
760 SUB Errmsg
770 Errmsg: !Subprogram which displays E1445 programming errors
780 COM @Afg_m,@Afg_s
790 DIM Message$[256]
800 !Read AFG status byte register and clear service request bit
810 B=SPOLL(@Afg_m)
820 IF B THEN !master error
830 !End of statement if error occurs among coupled commands
840 OUTPUT @Afg_m;""
850 OUTPUT @Afg_m;"ABORT" !abort output waveform
860 PRINT "Master AFG"
870 PRINT
880 REPEAT
890 OUTPUT @Afg_m;"SYST:ERR?" !read AFG error queue
900 ENTER @Afg_m;Code,Message$
Continued on Next Page
Chapter 6 Marker Outputs/Multiple AFG Operations 221