Service manual
580  END IF 
590  OUTPUT @Mux;"OPEN (@"&Cc$&"00)" 
600  OUTPUT @Mux;"CLOS (@"&Cc$&"15)" 
610  OUTPUT @Dmm;"TRIG SGL" 
620  ENTER @Dmm;Result (I,3) 
630  IF Result (I,3) > .01 THEN 
640  PRINT "Tree B path leakage out of tolerance ";Result$(I,3);" Volts"
650  END IF 
660  OUTPUT @Mux;"*RST" 
670  IF I < 5 THEN 
680  PRINT "Test ";I+1;" complete" 
690  PRINT "Turn power supply OFF" 
700  PRINT "Press Continue for test ";I+2 
710  PAUSE  
720  END IF 
730 NEXT I 
740 PRINT "Leakage tests complete" 
750 DISP "Press Continue to print measurement results" 
760 PAUSE 
770 CLEAR SCREEN 
780 ! 
790 ! Print results 
800 ! 
810 Format:IMAGE K,3X,D.DDDD," Vdc",3X,D.DDDD," Vdc",3X,D.DDDD,
" Vdc",3X,D.DDDD," Vdc" 
820 PRINT 
830 PRINT "         Positive polarity leakage " 
840 PRINT "          Direct   Channels  Tree A
Tree B" 
850 PRINT USING Format;"HI to LO 
",Result(0,0),Result(0,1),Result(0,2),Result(0,3) 
860 PRINT USING Format;"HI to Chassis
",Result(1,0),Result(1,1),Result(1,2),Result(1,3) 
870 PRINT USING Format;"LO to Chasis
",Result(2,0),Result(2,1),Result(2,2),Result(2,3) 
880 PRINT
890 PRINT "          Negative polarity leakage " 
900 PRINT "           Direct   Channels  Tree A
Tree B" 
910 PRINT USING Format;"HI to LO
",Result(3,0),Result(3,1),Result(3,2),Result(3,3) 
920 PRINT USING Format;"HI to Chassis
",Result(4,0),Result(4,1),Result(4,2),Result(4,3) 
930 PRINT USING Format;"LO to Chasis
",Result(5,0),Result(5,1),Result(5,2),Result(5,3) 
940 END 
Verification Tests 2-21










