Measurement Computing DAC488 v.1 - Manual (Page 50)

44 DAC488 Calibration DAC488 User’s Manual
260 'Determine if unit is a DAC488/2 or DAC488/4
270 PRINT#1,"OUTPUT ";DAD$;";P3XE?"
275 PRINT#1,"ENTER 09"
280 INPUT#2,A$
290 IF A$ = "E0" THEN DAC2$ = "N" ELSE DAC2$ = "Y"
300 PRINT#1,"OUTPUT ";DAD$;";P1C0A0R3V10X"
310 PRINT
320 PRINT#1,"CLEAR ";KAD$;",";DAD$
330 PRINT#1,"OUTPUT ";KAD$;";F0R3Z0P0S2T1B0G1M0K0Y0X"
340 IF DAC2$ <> "Y" THEN GOTO 370
350 PRINT#1,"OUTPUT ";DAD$;";P1C0A0R3V10XP2C0A0R3V10X"
360 GOTO 380
370 PRINT#1,"OUTPUT";DAD$; ";P1C0A0R3V10XP2C0A0R3V10XP3C0A0R3V10XP4C0A0R3V10XM0Y2X"
380 'Calibrate all DAC ports
390 '
400 IF DAC2$ = "Y" THEN LASTPORT = 2 ELSE LASTPORT = 4
410 FOR PORT = 1 TO LASTPORT
420 PRINT#1,"OUTPUT ";DAD$;";P";PORT;"A0R3V#0X"
430 GOSUB 600:REM do the port
440 NEXT PORT
450 PRINT "Calibration Complete! Save Calibration Constants in RAM? (Y/N)"
460 INPUT RESP$
470 'Print Calibration Reports
480 '
490 IF LEFT$(RESP$,1) <> "Y" AND LEFT$(RESP$,1) <> "y" THEN GOTO 510
500 PRINT #1,"output ";DAD$;";s3x"
510 PRINT "Print Verification report ?"
520 INPUT RESP$
530 IF LEFT$(RESP$,1) = "Y" OR LEFT$(RESP$,1) = "y" THEN GOSUB 1820
540 PRINT "Print Calibration report ?"
550 INPUT RESP$
560 IF LEFT$(RESP$,1) = "Y" OR LEFT$(RESP$,1) = "y" THEN GOSUB 1550
570 PRINT#1,"CLEAR ";KAD$;",";DAD$
580 KEY ON
590 END
600 'Calibrate a port subroutine
610 '
620 PRINT "Connect the output of port ";PORT;" to the DMM input"
630 PRINT"Press any key to continue "
640 IF INKEY$="" THEN GOTO 640
650 RANGE =3:FULLPOS =10!:FULLNEG =-10!
660 GOSUB 740:REM DO THE RANGE
670 RANGE =2:FULLPOS =5!:FULLNEG =-5!
680 GOSUB 740:REM DO THE RANGE
690 RANGE =1:FULLPOS =1!:FULLNEG =-1!
700 GOSUB 740:REM DO THE RANGE
710 RANGE =0:FULLPOS =0!:FULLNEG =0!
720 GOSUB 740:REM DO THE RANGE
730 PRINT "Finished Calibrating DAC port #";PORT:RETURN
740 'Calibrate a range subroutine
750 '
760 PRINT "Calibrating DAC port #";PORT;" ";FULLPOS;"volt range."
770 PRINT#1,"OUTPUT ";DAD$;";R";RANGE;"H0J128,128V0X"
780 IF RANGE < 2 THEN PRINT #1,"OUTPUT";KAD$;";R2X" ELSE PRINT #1,"OUTPUT";KAD$;";R3X"
790 IF RANGE = 0 THEN PADJ = 127:NADJ=127:GOTO 1110
800 GOSUB 1520:REM delay
810 PRINT#1,"ENTER ";KAD$
820 INPUT#2,ZEROVAL$:ZVAL!=VAL(ZEROVAL$)
830 PRINT#1,"OUTPUT ";DAD$;";V#4000X"
840 GOSUB 1520:REM delay
850 PRINT#1,"ENTER ";KAD$
860 INPUT#2,POSVAL$:PVAL!=VAL(POSVAL$)
870 PRINT#1,"OUTPUT ";DAD$;";V#-4000X"
880 GOSUB 1520:REM delay
890 PRINT#1,"ENTER ";KAD$
900 INPUT#2,NEGVAL$:NVAL!=VAL(NEGVAL$)
910 REM ROUTINE TO CALCULATE GAINBIT
920 '
930 PRINT#1,"OUTPUT ";DAD$;";R";RANGE;"V#4000J255,255X"
940 GOSUB 1520:REM delay