Service manual

600 PRINT "Resistance for Channel";I;"Relay is >2.0 Ohms"
610 PAUSE
620 END IF
630 NEXT I
640 IF K<2 THEN
650 PRINT "Measurements complete for Channels 00 - 07 and 90
";Path$(K)
660 DISP " Press Continue for Channels 00 - 07 and 90 ";Path$(K+1);"
measurements "
670 PAUSE
680 ELSE
690 PRINT " Measurements complete for Channels 00 - 07 and 90
";Path$(K)
700 DISP " Press Continue for Channels 08 - 15 and 91-92 tests "
710 PAUSE
720 END IF
730 NEXT K
740 !
750
!Measure Channels 08-15 and Channels 91-92 (HI, LO, and GU)
760 !
770 OUTPUT @Mux;"*RST"
780 CLEAR SCREEN
790 FOR K=0 TO 2
800 PRINT TABXY(1,1),"Channels 08-15 and Channels 91-92
";Path$(K);" Measurements "
810 PRINT TABXY(1,3),"Connect DMM Sense and Input HI leads to
COMMON ";Path$(K)
820 PRINT TABXY(1,4),"Connect DMM Sense and Input LO leads to
CURRENT SOURCE ";Path$(K)
830 DISP " Press Continue when connections are complete "
840 PAUSE
850 CLEAR SCREEN
860 FOR I=0 TO 9
870 IF I<8 THEN J=I+108
880 IF I=8 THEN J=191
890 IF I=9 THEN J=192
900 OUTPUT @Mux;"CLOS (@"&VAL$(J)&")"
910 OUTPUT @Dmm;"TRIG SGL"
920 ENTER @Dmm;Value1(I,K)
930 OUTPUT @Mux;"OPEN (@"&VAL$(J)&")"
940 IF I<8 AND K=0 THEN Result1(I,K)=Value1(I,K)-R(23)
950 IF I<8 AND K=1 THEN Result1(I,K)=Value1(I,K)-R(24)
960 IF I<8 AND K=2 THEN Result1(I,K)=Value1(I,K)-R(25)
970 IF I=8 AND K=0 THEN Result1(I,K)=Value1(I,K)-(R(23)+R(29))
980 IF I=8 AND K=1 THEN Result1(I,K)=Value1(I,K)-(R(24)+R(30))
Continued on Next Page
Chapter 2 Verification Tests 31