![HP E1340A Service Manual Download Page 66](http://html.mh-extra.com/html/hp/e1340a/e1340a_service-manual_160374066.webp)
490 !---------- Start of loop ----------
500 PRINT "CAL POINT","ERR CODE","READING (V)"
510 PRINT "---------","--------","-----------"
520 REPEAT
530 DISP "DC CALIBRATION IN PROGRESS: CAL POINT #"&VAL$(Thi1)
540 !
550 WAIT .5
570 GOSUB Read_dmm
!Get reading
580 IF Cal_point=6 THEN OUTPUT @Dmm;"RANGE 10"
590 !
600 OUTPUT @Afg;"CAL:DC:POINT? ";Reading
!Send cal value to AFG
610 ENTER @Afg;This_point,Err_num
!Returns current point, err code
620 PRINT This_point,Err_num,Reading
630 !
640 UNTIL (Err_num<>0) OR (This_point=0)
650 !
660 !---------- End of loop ----------
670 !IF ERROR, PRINT ERROR NUMBER & CAL POINT
680 IF Err_num=0 THEN
690 PRINT "CALIBRATION SUCCESSFUL"
700 ELSE
710 PRINT "CALIBRATION ERROR NUMBER "&VAL$(Err_num)&" AT CAL POINT
"&VAL$(This_point)
720 END IF
730 !
740 !---------- Quit ----------
750 OUTPUT @Afg;"*RST;*CLS"
!Reset AFG
760 LOCAL @Dmm
!Return DMM to local control
770 DISP
780 STOP
!End of main program
790 !
800 !---------- Subroutines ----------
810 Read_dmm: !
820 WAIT .5
830 OUTPUT @Dmm;"TRIG SGL"
840 ENTER @Dmm;Reading
!Get reading
850 Reading=PROUND(Reading,-10)
860 RETURN
870 !
880 Errmsg: !
890 BEEP
900 PAUSE
910 STOP
920 RETURN
930 END
68 Adjustments
Chapter
3
Summary of Contents for E1340A
Page 6: ...Notes 6 HP E1340A Arbitrary Function Generator Service Manual ...
Page 8: ......
Page 10: ...Notes 12 What s in this Manual HP E1340A Service Manual ...
Page 18: ...Notes 20 General Information Chapter 1 ...
Page 74: ...Notes 76 Adjustments Chapter 3 ...
Page 78: ...Notes 80 Replaceable Parts Chapter 4 ...
Page 104: ...Notes 106 Verification Tests C Programs Appendix A ...