Keithley 2002

Calibration Programs
B-15
clrscr(); /* Clear CRT. */
printf(“Model 2002 Calibration Program.\n");
printf(“This program controls the 5700A Calibrator.\n");
chkswit(); /* Check cal switch. */
fprintf(ieeeout,"output 16;;cal:prot:init\n");
for(i=0;i<=28;i++) { /* Loop for cal points. */
switch(i) {
case 0:
case 14:
case 28:fprintf(ieeeout,"output 4;stby\n");
printf("%s\n",msg[i]);
keypress();
break;
case 1:
case 16:printf("Connect calibrator to INPUT jacks.\n");
if (i==1) printf("Wait 3 minutes.\n");
keypress();
fprintf(ieeeout,"output 4;extsense off\n");
fprintf(ieeeout,"output 4;%s\n",msg[i]);
fprintf(ieeeout,"output 4;oper\n");
break;
case 2:
case 10:
case 11:
case 12:
case 13:
case 17:
case 18:
case 19:
case 20:
case 21:
case 22:
case 23:
case 24:
case 25:fprintf(ieeeout,"output 4;%s\n",msg[i]);
fprintf(ieeeout,"output 4;oper\n");
break;
case 3:
case 4:
case 5:
case 6:
case 7:
case 8: fprintf(ieeeout,"output 4;%s\n",msg[i]);
fprintf(ieeeout,"output 4;oper\n");
fprintf(ieeeout,"output 4;extsense on\n");
fprintf(ieeeout,"output 4;out?\n");
fprintf(ieeeout,"enter 4\n");
fgets(buf,100,ieeein);
j=0;
while (buf[j++] !=',');
buf[--j]=’\0’;
break;
case 9:
case 27:fprintf(ieeeout,"output 4;stby\n");
printf(“Connect calibrator to AMPS and “
"INPUT LO jacks.\n");
if (i==27) printf(“Select FRONT INPUTS\n");
keypress();
fprintf(ieeeout,"output 4;%s\n",msg[i]);
fprintf(ieeeout,"output 4;oper\n");
break;
case 15:printf("%s\n",msg[i]);
break;
case 26:printf("%s\n",msg[i]);
printf("Select REAR INPUT jacks with "
"FRONT/REAR switch.\n"
"Wait 3 minutes for thermal “
"equilibrium\n");