Service manual

200 PRINT TABXY(1,5),"Measure resistor R";I;"value (in Ohms)"
210 INPUT " Enter resistor value (in Ohms), then press Continue ",R(I)
220 NEXT I
230 CLEAR SCREEN
240 PRINT "Install Component Assembly and Test Fixture "
250 PRINT
260 PRINT " 1. Turn Mainframe power OFF"
270 PRINT " 2. Install E1345A Component Assembly into Mainframe "
280 PRINT " 3. Attach Test Fixture to Component Assembly"
290 PRINT " 4. Turn Mainframe power ON "
300 PRINT " 5. Press Continue when ready to begin testing "
310 PAUSE
320 CLEAR SCREEN
330 !
340
! Measure Channels 00-07 and Channel 90 (HI, LO, and GU)
350 !
360 OUTPUT @Dmm;"PRESET NORM;FUNC OHMF"
370 OUTPUT @Mux;"*RST"
380 FOR K=0 TO 2
390 PRINT TABXY(1,1),"Channel 00-07 and Channel 90 ";Path$(K);"
Measurements "
400 PRINT TABXY(1,3),"Connect DMM Sense and Input HI leads to
COMMON ";Path$(K)
410 PRINT TABXY(1,4),"Connect DMM Sense and Input LO leads to
VOLTAGE SENSE ";Path$(K)
420 DISP " Press Continue when connections are complete "
430 PAUSE
440 CLEAR SCREEN
450 FOR I=0 TO 8
460 IF I<8 THEN J=I+100
470 IF I=8 THEN J=190
480 OUTPUT @Mux;"CLOS (@"&VAL$(J)&")"
490 OUTPUT @Dmm;"TRIG SGL"
500 ENTER @Dmm;Value0(I,K)
510 OUTPUT @Mux;"OPEN (@"&VAL$(J)&")"
520 IF I<8 AND K=0 THEN Result0(I,K)=Value0(I,K)-R(20)
530 IF I<8 AND K=1 THEN Result0(I,K)=Value0(I,K)-R(21)
540 IF I<8 AND K=2 THEN Result0(I,K)=Value0(I,K)-R(22)
550 IF I=8 AND K=0 THEN Result0(I,K)=Value0(I,K)-(R(20)+R(26))
560 IF I=8 AND K=1 THEN Result0(I,K)=Value0(I,K)-(R(21)+R(27))
570 IF I=8 AND K=2 THEN Result0(I,K)=Value0(I,K)-(R(22)+R(28))
580 IF Result0(I,K)<0. THEN Result0(I,K)=0.
590 IF Result0(I,K)>2.0 THEN
Continued on Next Page
30 Verification Tests Chapter 2