Agilent Technologies Multiple Channel Controller 85330A - Manual (Page 100)

6-26 85330A Multiple Channel Controller
Programming
Programming Examples
1044 OUTPUT @Rec;”LISFREQ;” ! Turn on FREQ LIST.
1045 !
1046 IF Rec_averages>1 THEN
1047 OUTPUT @Rec;”AVERON”;Rec_averages;”;” ! Turn averaging on.
1048 ELSE
1049 OUTPUT @Rec;”AVEROFF;” ! Turn averaging off.
1050 END IF
1051 !
1052 ! MULTI-PARAMETER display only uses trigger if parameter is active.
1053 !
1054 OUTPUT @Rec;”STITOFF;”! STIMULUS TRIGGER OFF
1055 OUTPUT @Rec;”PAR1TON;”! PARAMETER 1 TRIGGER ON
1056 OUTPUT @Rec;”PAR2TON;”! PARAMETER 2 TRIGGER ON
1057 OUTPUT @Rec;”PAR3TON;”! PARAMETER 3 TRIGGER ON
1058 OUTPUT @Rec;”PAR4TON;”! PARAMETER 4 TRIGGER ON
1059 !
1060 ! Set all ratios for each displayed parameter to a common channel
1061 !
1062 OUTPUT @Rec;”PARA1;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio
1063 OUTPUT @Rec;”PARA2;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio
1064 OUTPUT @Rec;”PARA3;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio
1065 OUTPUT @Rec;”PARA4;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio
1066 !
1067 ! Set the active channels using the MULTI-PARAMETER display.
1068 !
1069 IF Chan_pts=1 THEN OUTPUT @Rec;”SINC;”
1070 IF Chan_pts=2 THEN OUTPUT @Rec;”TWOP;”
1071 IF Chan_pts=3 THEN OUTPUT @Rec;”THREEP;”
1072 IF Chan_pts=4 THEN OUTPUT @Rec;”FOURP;”
1073 !
1074 ! The first pass of a frequency sweep for the HP 8360A source is slower than
1075 ! subsequent sweeps, since the source is in learn mode. Take one slow one,
1076 ! then one fast one.
1077 !
1078 FOR Passes=1 TO 2 ! Take two passes: one slow, one fast.
1079 OUTPUT @Rec;”TRGSFRE;HOLD;” ! Use internal triggering for these sweeps.
1080 OUTPUT @Rec;”SING;” ! take a single sweep.
1081 FOR N=1 TO Chan_pts
1082 OUTPUT @Rec;”PARA”&VAL$(N)&”;”
1083 OUTPUT @Rec;”FORM3;OUTPDATA;”
1084 ENTER @Rec_data;Preamble,Data_bytes
1085 ENTER @Rec_data;Data_freq(*)
1086 NEXT N
1087 NEXT Passes
1088 !