| 
 | 
 | 
 | Performance Test and Calibration - B | 
| 1110 | ! | 
 | 
 | 
| 1120 | OUTPUT @Ld;"CAL:IPR:LEV P4" | 
 | |
| 1130 | ! | 
 | 
 | 
| 1140 | PRINT TABXY(20,20),"Calibrating IMON & IPROG P4 - 30 SECOND WAIT" | ||
| 1150 | WAIT 30 | 
 | 
 | 
| 1160 | CLEAR SCREEN | 
 | 
 | 
| 1170 | ! | 
 | 
 | 
| 1180 | INPUT "Measure voltage across current shunt and enter in volts",Ip4 | ||
| 1190 | ! | 
 | 
 | 
| 1200 | INPUT "Measure Imon voltage and enter in volts",Vimonp4 | ||
| 1210 | ! | 
 | 
 | 
| 1220 | INPUT "Measure Iprog voltage and enter in volts",Viprogp4 | ||
| 1230 | ! | 
 | 
 | 
| 1240 | Ip4=Ip4/Rshunt | 
 | |
| 1250 | ! | 
 | 
 | 
| 1260 | OUTPUT @Ld;"CAL:DATA ";Ip4,Vimonp4,Viprogp4 | 
 | |
| 1270 | ! | 
 | 
 | 
| 1280 | ! ******* | Calibrating Main Current DAC | ******** | 
| 1290 | ! | 
 | 
 | 
| 1300 | PRINT TABXY(10,10),"Disconnect instruments from IMON and IPROG terminals" | ||
| 1310 | DISP "Press CONT when ready to calibrate main current ADC" | ||
| 1320 | PAUSE | 
 | 
 | 
| 1330 | ! | 
 | 
 | 
| 1340 | CLEAR SCREEN | 
 | 
 | 
| 1350 | OUTPUT @Ld;"CAL:LEV P1" | 
 | |
| 1360 | PRINT TABXY(10,20),"Calibrating high current range P1 - 30 SECOND WAIT" | ||
| 1370 | WAIT 30 | 
 | 
 | 
| 1380 | CLEAR SCREEN | 
 | 
 | 
| 1390 | ! | 
 | 
 | 
| 1400 | INPUT "Measure voltage across current shunt and enter in volts",Ip1 | ||
| 1410 | ! | 
 | 
 | 
| 1420 | Ip1=Ip1/Rshunt | 
 | |
| 1430 | ! | 
 | 
 | 
| 1440 | OUTPUT @Ld;"CAL:DATA ";Ip11450 !1460 | OUTPUT @Ld;"CAL:LEV P2" | |
| 1470 | ! | 
 | 
 | 
| 1480 | PRINT TABXY(10,10),"Calibrating high current range P2 - 30 SECOND WAIT" | ||
| 1490 | WAIT 30 | 
 | 
 | 
| 1500 | CLEAR SCREEN | 
 | 
 | 
| 1510 | ! | 
 | 
 | 
| 1520 | INPUT "Measure voltage across current shunt and enter in volts",Ip2 | ||
| 1530 | ! | 
 | 
 | 
| 1540 | Ip2=Ip2/Rshunt | 
 | |
| 1550 | ! | 
 | 
 | 
| 1560 | OUTPUT @Ld;"CAL:DATA ";Ip2 | 
 | |
| 1570 | ! | 
 | 
 | 
| 1580 | OUTPUT @Ld;"INP:STAT OFF" | 
 | |
| 1590 | OUTPUT @Ld;"CURR:RANG MIN" | 
 | |
| 1600 | OUTPUT @Ld;"SENS:CURR:RANG MIN" | 
 | |
| 1610 | ! | 
 | 
 | 
| 1620 | CLEAR SCREEN | 
 | 
 | 
| 1630 | ! | 
 | 
 | 
| 1640 | INPUT "Enter value of low range current shunt in ohms",Rshuntl | ||
| 1650 | DISP "You have entered ";Rshuntl;" ohms" | 
 | |
| 1660 | INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$ | ||
| 1670 | IF UPC$(Y$)="Y" OR Y$="" THEN 1690 | 
 | |
| 1680 | IF UPC$(Y$)="N" OR Y$="n" THEN 1620 | 
 | |
93
