Benchmark for Worst Case 3852A Function Changes

This program provides a benchmark for configuring the 3852S for a worst-case measurement. In other words: for each reading, the function is changed, the range is changed and the channel is changed. With these conditions, the reading rate was 31 readings/sec.10 ! RE-STORE "FUNC_BM:,1402,1"20 !21 ! READING RATE WITH FUNCTION CHANGE, RANGE CHANGE AND22 ! CHANNEL CHANGE: 31 RDGS/SEC.23 !30 DIM Rdgs(1:1000)40 ASSIGN @Dac TO 70950 CLEAR @Dac60 OUTPUT @Dac;"RESET"70 WAIT 180 !90 OUTPUT @Dac;"DISP OFF;DISABLE LABELS"100 OUTPUT @Dac;"REAL READS(999),T0,T1,T2,T"110 OUTPUT @Dac;"INTEGER I"120 OUTPUT @Dac;"USE 000"130 OUTPUT @Dac;"CONF DCV"140 OUTPUT @Dac;"RANGE 3"150 OUTPUT @Dac;"NPLC 0.0005"160 OUTPUT @Dac;"NRDGS 1"170 OUTPUT @Dac;"AZERO OFF"180 OUTPUT @Dac;"OCOMP OFF"190 OUTPUT @Dac;"DELAY 0"200 !210 OUTPUT @Dac;"SUB SPEEDY"220 OUTPUT @Dac;" TIMEDATE INTO T0"230 OUTPUT @Dac;" TIMEDATE INTO T1"235 OUTPUT @Dac;" CLOSE 190,191" ! CLOSE ISOLATION SWITCHES240 OUTPUT @Dac;" FOR I=1 TO 500"241 OUTPUT @Dac;" CLOSE 100"250 OUTPUT @Dac;" FUNC DCV 1;TRIG SGL;CHREAD 0 INTO READS"251 ! OUTPUT @Dac;" OPEN 100"252 OUTPUT @Dac;" CLOSE 101"260 OUTPUT @Dac;" FUNC OHMF 1000;TRIG SGL;CHREAD 0 INTO READS"261 ! OUTPUT @Dac;" OPEN 101"270 OUTPUT @Dac;" NEXT I"280 OUTPUT @Dac;" TIMEDATE INTO T2"290 OUTPUT @Dac;"SUBEND"300 !310 WAIT 2320 OUTPUT @Dac;"CALL SPEEDY"330 OUTPUT @Dac;"T=T2-T1-(T1-T0)"340 OUTPUT @Dac;"VREAD T"350 ENTER @Dac;T360 PRINT "TIME=";T370 PRINT "RATE=";1000/T;"RDGS/SEC"380 OUTPUT @Dac;"VREAD READS"390 ENTER @Dac;Rdgs(*)400 FOR I=1 TO 10410 PRINT Rdgs(I)420 NEXT I430 END