Service manual

780 PAUSE
790 OUTPUT @Dmm;"PRESET NORM;FUNC OHM"
800 OUTPUT @Mux;"*RST"
810 !
820 ! Check for stuck tree switches
830 !
840 OUTPUT @Dmm;"TRIG SGL"
850 ENTER @Dmm;Value
860 IF Value<10000 THEN
870 CLEAR SCREEN
880 PRINT "Measurement indicates a stuck tree switch"
890 PRINT "Correct the problem before proceeding"
900 STOP
910 END IF
920 CLEAR SCREEN
930 FOR J = 0 TO 1
940 IF J=0 THEN
950 Ch$="00"
960 ELSE
970 Ch$="15"
980 END IF
990 OUTPUT @Mux;"SCAN:PORT ABUS"
1000 OUTPUT @Mux;"CLOS (@"&Cc$&Ch$&")"
1010 OUTPUT @Dmm;"TRIG SGL"
1020 ENTER @Dmm;Tree(I,J)
1030 OUTPUT @Mux;"OPEN (@"&Cc$&Ch$&")"
1040 IF Tree(I,J)>3100 THEN
1050 IF Ch$="00" THEN
1060 PRINT "Resistance for A Tree Switch ";Path$(I);
" is > 3.1 kOhms"
1070 ELSE
1080 PRINT "Resistance for B Tree Switch ";Path$(I);
" is > 3.1 kOhms"
1090 END IF
1100 END IF
1110 NEXT J
1120 PRINT "Measurements complete for tree switch ";Path$(I)
1130 IF I=0 THEN
1140 DISP "Press Continue for Tree Switch ";Path$(I+1);
" measurements"
1150 PAUSE
1160 END IF
1170 NEXT I
2-10 Verification Tests