Service manual

540 IF Opc <> 1 THEN 520
550 ! Check for stuck relays
560 OUTPUT @Dmm;"TRIG SGL"
570 ENTER @Dmm;A
580 IF A<1.E+6 THEN
590 PRINT "Stuck relay found"
600 PRINT "Correct the problem and re-run test"
610 STOP
620 END IF
630 ! Begin contact resistance test
640 FOR J=0 TO Row
650 IF J<10 THEN
660 Row$=Ph$&VAL$(J)
670 ELSE
680 Row$=VAL$(J)
690 END IF
700 FOR K=0 TO Col
710 IF K<10 THEN
720 Col$=Ph$&VAL$(K)
730 ELSE
740 Col$=VAL$(K)
750 END IF
760 OUTPUT @Sw;"CLOS (@"&Cc$&Row$&Col$&")"
770 OUTPUT @Sw;"*OPC?"
780 ENTER @Sw;Opc
790 IF Opc <> 1 THEN 770
800 OUTPUT @Dmm;"TRIG SGL"
810 IF T=0 THEN
820 ENTER @Dmm;Val_h(J,K)
830 IF Val_h(J,K)<0 THEN Val_h(J,K)=0
840 IF Val_h(J,K)>2.7 THEN
850 PRINT "Row ";J;" to Column ";K;Path$(T);" path is > 2.7 Ohms"
860 IF Val_h(J,K)>99.9999 THEN Val_h(J,K)=99.9999
870 END IF
880 ELSE
890 ENTER @Dmm;Val_l(J,K)
900 IF Val_l(J,K)<0 THEN Val_l(J,K)=0
910 IF Val_l>2.7 THEN
920 PRINT "Row ";J;" to Column ";K;Path$(T);" path is > 2.7 Ohms"
930 IF Val_l(J,K)>99.9999 THEN Val_l(J,K)=99.9999
940 END IF
950 END IF
960 OUTPUT @Sw;"OPEN (@"&Cc$&Row$&Col$&")"
Agilent E1465A/66A/67A Service Manual Verification Tests 27