Agilent Technologies E1346A Service Manual page 31

670 PRINT TABXY(1,1),"Channels 90-92 ";Path$(K);"
Measurements"
680 PRINT TABXY(1,3),"Connect DMM Sense and Input HI leads to
COMMON ";Path$(K)
690 PRINT TABXY(1,4),"Connect DMM Sense and Input LO leads to
VOLTAGE SENSE ";Path$(K)
700 DISP " Press Continue when connections are complete "
710 PAUSE
720 CLEAR SCREEN
730 J=100 ! Address Offset
740 FOR I=0 TO 2
750 OUTPUT @Mux;"CLOS (@"&VAL$(J)&")"
760 OUTPUT @Dmm;"TRIG SGL"
770 ENTER @Dmm;Value1(I,K)
780 OUTPUT @Mux;"OPEN (@"&VAL$(J)&")"
790 Result1(I,K)=Value1(I,K)-R(43-K)
800 IF Result1(I,K)<0. THEN Result1(I,K)=0.
810 IF Result1(I,K)>2.0 THEN
820 PRINT "Resistance for Channel ";(I+90);" ";Path$(K);"Relay is
>2.0 Ohms"
830 END IF
840 J=J+8
850 NEXT I
860 PRINT "Measurements complete for Channels 90-92";Path$(K)
870 IF K=1 THEN
880 DISP " Press Continue for Channels 90 - 92 ";Path$(K+1);"
measurements "
890 PAUSE
900 END IF
910 NEXT K
920 !
930 ! Measure channel 93 HI, LO, and G
940 !
950 DISP " Press Continue for Channel 93 HI, LO, and G measurements "
960 PAUSE
970 CLEAR SCREEN
980 J=193 ! Address offset
990 FOR K=0 TO 2
1000 PRINT TABXY(1,1),"Channel 93 HI, LO, and G Contact Resistance
Test"
1010 PRINT TABXY(1,3),"1. Connect DMM Sense and Input HI leads to
VOLTAGE SENSE ";Path$(K)
1020 PRINT TABXY(1,4),"2. Connect DMM Sense and Input LO leads to
CURRENT SOURCE ";Path$(K)
1030 DISP " Press Continue when connections are complete "
Verification Tests 2-13