Specifications

162 Chapter 7
Measurement Result Processing
Using Marker Function
-"
960 PRINT " R",Ref_stim,Ref_low,Ref_meas,Ref_upp,Ref_judge$
970 FOR Mkr=1 TO 8
980 PRINT
Mkr,Mkr1_stim(Mkr),Mkr1_low(Mkr),Mkr1_meas(Mkr),Mkr1_upp(Mkr),Mkr1_
judge$(Mkr)
990 NEXT Mkr
1000 PRINT
"----------------------------------------------------------------"
1010 PRINT "total
"&All_judge$
1020 !
1030 END
1040 !
1050 SUB Sweep(@Agte4991a)
1060 DIM Buff$[9]
1070 INTEGER Swp_bool
1080 !
1090 OUTPUT @Agte4991a;"CALC:AVER?"
1100 ENTER @Agte4991a;Swp_bool
1110 IF Swp_bool=1 THEN OUTPUT @Agte4991a;"CALC:AVER:CLE"
1120 !
1130 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
1140 OUTPUT @Agte4991a;"STAT:OPER:NTR 16"
1150 OUTPUT @Agte4991a;"STAT:OPER:ENAB 16"
1160 OUTPUT @Agte4991a;"*SRE 128"
1170 OUTPUT @Agte4991a;"*CLS"
1180 OUTPUT @Agte4991a;"*OPC?"
1190 ENTER @Agte4991a;Buff$
1200 !
1210 ON INTR 7 GOTO Swp_end
1220 ENABLE INTR 7;2
1230 OUTPUT @Agte4991a;"INIT"
1240 DISP "Now Measuring..."
1250 Swp_wait: GOTO Swp_wait
1260 Swp_end: DISP "Sweep Complete"
1270 OFF INTR 7
1280 SUBEND