Call Default(Dnld_Time,Exe_Time,Tns_Time); Exe_Time; 460 Print; Print Using "44A,Dd.ddd";"The Transfer Time Using For Next Is ";Tns_Time - Agilent Technologies 3458A User Manual

340 Appendix D Optimizing Throughout and Reading Rate

440 PRINT USING "44A,DD,DDD";"The transfer time using FOR NEXT is

";Tns_time

450 PRINT USING "44A,DD.DDD";"The total time for AZERO off is";
Exe_time+Dnld_time+ Tns_time

460 PRINT

470 !
480 CALL Defeat(Dnld_time,Exe_time,Tns_time)

490 PRINT USING "44A,DD.DDD";"The execution time for program memory is

";Exe_time

500 PRINT USING "44A,DD,DDD";"The download time for transfering the SUB

is";Dnld_time

510 PRINT USING "44A,DD,DDD";"The transfer time using FOR NEXT is
";Tns_time
520 PRINT USING "44A,DD.DDD";"The total time for DEFEAT ON

is";Exe_time+Dnld_time+Tns_time

530 PRINT
540 !
550 END
560 SUB Default(REAL Dnld_time,Exe_time, Tns_time)
570 DIM A(37)
580 Exe_time=TlMEDATE
590 OUTPUT 722:"RESET;TRIG SYN"
600 OUTPUT 722;"OHM"
610 FOR I=1 TO 23
620 ENTER 722;A(I)
630 NEXT I
640 OUTPUT 722;"OHMF"
650 ENTER 722;A(24)
660 ENTER 722;A(25)
670 OUTPUT 722;"ACV"
680 ENTER 722;A(26)
690 ENTER 722;A(27)
700 OUTPUT 722;"DCV"
710 FOR I=28 TO 33
720 ENTER 722;A(I)
730 NEXT I
740 OUTPUT 722;"ACV"
750 ENTER 722;A(34)
760 OUTPUT 722;"DCV"
770 FOR I=35 TO 37
780 ENTER 722;A(I)
790 NEXT I
800 Exe_time=TIMEDATE-Exe_time
810 Dnld time=0
820 Tns_time=0
830 SUBEND
840 SUB Fixed(REAL Dnld_time,Exe_time,Tns_time)
850 DIM A(37)
860 Exe_time=TIMEDATE
870 OUTPUT 722;"RESET;TRIG SYN"
880 OUTPUT 722;"OHM,1E4
890 FOR I=1 TO 15
900 ENTER 722;A(I)
910 NEXT I
920 OUTPUT 722;"OHM,1E5"
930 FOR I=16 TO 23
940 ENTER 722;A(I)
950 NEXT I
960 OUTPUT 722;"OHMF,1E3"
970 ENTER 722;A(24)
980 ENTER 722;A(25)
990 OUTPUT 722;"ACV,250;ACBAND 250"
1000 ENTER 722;A(26)
1010 OUTPUT 722;"ACV 10;ACBAND 25000"
1020 ENTER 722;A(27)