HEADING:H951 MINI-PROBE CAP TRIMS (P20043.C4) S&R 25'S 4/13/98 GF STEP 2 GOTO STEP 18 4 GOTO STEP 396 6 GOTO STEP 346 8 PRIN STRG 40 STRG 3 10 QUIT 12 GOTO STEP 506 14 GOTO STEP 528 16 IF DUM 807 = 00 THEN LET DUM 807 = 01 18 IF DUM 801 = 00 THEN GOTO STEP 528 20 GOTO STEP 30 22 GOTO STEP 440 24 GOTO STEP 242 30 MOVE POS 990 SPD 0 32 IF DUM 807 = 00 THEN GOSU STEP 280 34 GOSU STEP 460 36 LET DLTA 900 = POS 900 - POS 899 38 DISP DLTA 900 40 MOVE POS 899 SPD 0 42 TEST UNK 55 CODE 56 TOL 55 ACC 48 REJ 0 REG 0 44 PRIN "BAD CONTACT ON PROBE CARD, CHECK SCAN'S A0,B0" STRG 3 46 QUIT 48 LET I = 00 50 LET L = 00 52 GOSU STEP 174 54 IF DUM 1 > 03 THEN IF DUM 1 < 2.70000E+01 THEN GOTO STEP 82 56 LET L = L + 01 58 IF L = 03 THEN GOTO STEP 66 60 SMOV DLTA 666 SPD 0 REG 0 62 SMOV DLTA 667 SPD 0 REG 0 64 GOTO STEP 52 66 PRIN STRG 3 "> > > BAD PROBE CONTACT < < <" 68 PRIN STRG 3 "> ADJUST PROBES , HIT RETURN TO TEST CAP <" 70 PRIN STRG 3 "> WHEN PROBES ARE OK TYPE '1' TO CONTINUE <" 72 PRIN STRG 3 "ENTER COMMAND # > " STRG 1 74 READ TTY:;DUM 55 %1.0 THEN QUIT 76 GOSU STEP 174 78 GOSU STEP 216 80 IF DUM 55 # 01 THEN GOTO STEP 72 82 LET DUM 100 = DUM 1 - NOM 1 84 IF DUM 100 < TOL 1 THEN LET REG 1 = 01 86 IF DUM 100 > ! TOL 1 THEN LET REG 1 = 01 88 IF REG 1 = 00 THEN GOTO STEP 92 90 PRIN "*** PRE-TRIM REJECT ***" STRG 3 92 GOSU STEP 228 1.00000E+03 94 IF REG 1 # 00 THEN GOTO STEP 154 96 LET DUM 809 = 00 98 FOR I = 1.00000E+00 TO 9.00000E+00 100 IF I = 9.00000E+00 THEN IF DUM 809 < 8.00000E+00 THEN GOTO STEP 142 102 LET J = I + 1.00000E+02 104 LET DUM 55 = DUM 1 - DUM J 106 IF DUM 55 < NOM 1 THEN GOTO STEP 142 108 LET DUM 55 = DUM 1 110 LET L = I * 02 112 LET K = L - 01 114 MOVE POS K SPD 0 116 SERP UNK 55 CODE 55 CUT 55 MODE 55 POS L DENS 1 BRAN 0 118 MOVE POS L SPD 0 120 SERP UNK 55 CODE 55 CUT 55 MODE 55 POS K DENS 1 BRAN 0 122 LET DUM 809 = DUM 809 + 01 124 GOSU STEP 174 126 LET J = I + 5.00000E+02 128 LET K = I + 6.00000E+02 130 LET L = I + 9.00000E+02 132 LET DUM 55 = DUM 55 - DUM 1 134 IF DUM 55 < 6.00000E-02 THEN GOTO STEP 142 136 LET DUM J = DUM J + DUM 55 138 IF DUM 55 > DUM K THEN LET DUM K = DUM 55 140 LET DUM L = DUM L + 01 142 NEXT I 144 LET DUM 100 = DUM 1 - NOM 1 146 IF DUM 100 < TOL 101 THEN LET REG 2 = 01 148 IF DUM 100 > ! TOL 101 THEN LET REG 2 = 01 150 IF REG 2 = 00 THEN GOTO STEP 160 152 PRIN "> TRIM REJECT <" STRG 3 154 PRIN "C= " DUM 1 " PF, " DUM 100 " PF DEV FROM NOM" STRG 3 156 MOVE POS 99 SPD 0 158 REM "NIBL DLTA 99 POS 100 DENS 3 BRAN 0" 160 IF DUM 807 # 4.90000E+01 THEN GOTO STEP 168 162 LET STRG 1000 = STRG 300 + " " + STRG 333 164 MOVE POS 101 SPD 0 166 CGEN DENS 2 SCAL 1 POS 102 STRG 1000 168 MOVE POS 899 SPD 0 170 LET REG 1 = 00 172 EXIT 174 LET K = 00 176 FOR J = 1.00000E+00 TO 1.00000E+01 178 LET DUM J = 00 180 NEXT J 182 LET K = K + 01 184 TALK DEV 10 STRG 10 186 FOR J = 1.00000E+00 TO 5.00000E+02 188 NEXT J 190 LISN DEV 2 WAIT 1 "_" 01 STRG 11 0.00000E+00 02 STRG 12  NOM 3 01 STRG 13 NOM 2 %1.0 THEN GOTO STEP 224 192 FOR J = 1.00000E+00 TO 2.00000E+02 194 NEXT J 196 LET DUM K = NOM 3 * 1.00000E+06 198 IF K < 2.00000E+00 THEN GOTO STEP 182 200 LET DUM 888 = DUM 888 + 01 202 LET J = K - 01 204 LET DUM 804 = DUM J - DUM K 206 PRIN " " DUM 804 208 IF DUM 804 > TOL 88 THEN IF DUM 804 < ! TOL 88 THEN GOTO STEP 214 210 IF K = 1.00000E+01 THEN GOTO STEP 220 212 GOTO STEP 182 214 LET DUM 1 = DUM K 216 PRIN "C=" DUM 1 " PF FNGR# " I 218 EXIT 220 PRIN STRG 3 "> ERROR! CAP VALUES NOT STABLE! CALL ENG! <" 222 QUIT 224 PRIN STRG 3 "ERROR, CANNOT TALK TO CAP METER!" STRG 3 226 EXIT 228 IF DUM 1 < 02 THEN IF DUM 1 > DUM 110 THEN GOTO STEP 236 230 LET DUM 500 = DUM 500 + DUM 1 232 LET DUM 600 = DUM 600 + ( DUM 1 * DUM 1 ) 234 LET DUM 700 = DUM 700 + 01 236 LET J = DUM 807 + VALU 1 238 LET DUM J = DUM 100 240 EXIT 242 GOSU STEP 332 244 PRIN " PART INIT DEV TRIM DEV" 246 LET DUM 804 = 00 248 FOR I = 1.00000E+00 TO 4.90000E+01 250 LET J = I + 1.00000E+03 252 LET K = I + 1.10000E+03 254 PRIN " " STRG 1 256 IF I < 1.00000E+01 THEN PRIN " " STRG 1 258 PRIN I " " %5.2 DUM J " " %5.2 DUM K STRG 1 260 IF DUM K > ! TOL 101 THEN PRIN "<<< REJ-HI" STRG 1 262 IF DUM K < TOL 101 THEN PRIN "<<< REJ-LOW" STRG 1 264 IF DUM K > ! TOL 101 THEN GOTO STEP 270 266 IF DUM K < TOL 101 THEN GOTO STEP 270 268 LET DUM 804 = DUM 804 + 1.00000E+00 270 PRIN " " 272 NEXT I 274 PRIN " " 276 PRIN DUM 804 " GOOD PARTS" 278 QUIT 280 FOR I = 1.00100E+03 TO 1.05000E+03 282 LET J = I + 1.00000E+02 284 LET DUM I = 9.99900E+03 286 LET DUM J = 9.99900E+03 288 NEXT I 290 EXIT 292 FOR J = 1.00000E+00 TO 1.90000E+01 294 IF DUM 333 = MASK J THEN GOTO STEP 306 296 NEXT J 298 PRIN STRG 3 300 PRIN "THAT PART NUMBER IS NOT AVAILABLE , TRY AGAIN. . ." STRG 3 302 PRIN STRG 3 304 GOTO STEP 440 306 LET I = DUM 333 308 LET L = 1.00000E+02 + ( REG I * 1.00000E+01 ) 310 FOR J = 1.01000E+02 TO 1.10000E+02 312 LET K = J + L 314 LET DUM J = DUM K 316 NEXT J 318 LET DUM 334 = I 320 LET NOM 1 = NOM I 322 LET TOL 101 = TOL I 324 LET TOL 153 = TOL 151 * TOL 101 326 LET TOL 154 = TOL 152 * DUM 110 328 LET TOL 1 = TOL 153 + TOL 154 330 LET STRG 300 = STRG I 332 PRIN "NOW TRIMMING PART # > 307-" STRG 300 334 PRIN STRG 3 336 PRIN "CURRENT LOT # IS > " STRG 333 338 PRIN " " 340 PRIN "NOMINAL = " NOM 1 " PF" 342 PRIN " " 344 EXIT 346 PRIN STRG 3 348 PRIN "PART: 307-" STRG 300 " LOT: " STRG 333 350 PRIN "" 352 PRIN "PRINT VALUE DATA FOR " DUM 700 " PARTS" 354 PRIN "" 356 PRIN "# OF 'EXTRA' CAP METER TESTS = " DUM 888 358 PRIN " " 360 LET DUM 55 = DUM 500 / DUM 700 362 LET DUM 800 = ( DUM 600 - ( DUM 500 * DUM 500 / DUM 700 ) ) 364 LET DUM 800 = SQRT ( DUM 800 * DUM 800 ) 366 LET DUM 800 = SQRT ( DUM 800 / ( DUM 700 - 01 ) ) 368 PRIN " AVERAGE(PF) STD DEV(PF)" 370 PRIN "C1" %9.3 DUM 55 %11.4 DUM 800 372 PRIN "" 374 PRIN " AVERAGE HIGHEST # OF BARS" 376 PRIN " CHANGE (PF) CHANGE (PF) TRIMMED" 378 PRIN "" 380 FOR I = 5.01000E+02 TO 5.09000E+02 382 LET J = I + 1.00000E+02 384 LET K = I + 4.00000E+02 386 LET DUM 55 = DUM I / DUM K 388 PRIN STRG I %9.2 DUM 55 STRG 1 390 PRIN %10.2 DUM J %10.0 DUM K 392 NEXT I 394 QUIT 396 PRIN STRG 5 398 GOSU STEP 280 400 LET DUM 1 = 00 402 LET DUM 55 = 00 404 LET DUM 700 = 00 406 LET DUM 888 = 00 408 FOR I = 8.00000E+02 TO 8.08000E+02 410 LET DUM I = 00 412 NEXT I 414 LET DUM 801 = 1.00000E+00 416 FOR I = 5.00000E+02 TO 5.09000E+02 418 LET DUM I = 00 420 LET J = I + 1.00000E+02 422 LET DUM J = 00 424 LET J = I + 4.00000E+02 426 LET DUM J = 00 428 NEXT I 430 LET NOM 2 = 00 432 LET NOM 3 = 00 434 GOSU STEP 292 436 PRIN "DUMMIES ZEROED" STRG 3 438 QUIT 440 GOSU STEP 332 442 PRIN "ENTER NEW PART # > " STRG 1 444 READ TTY:;DUM 333 %1.0 THEN QUIT 446 PRIN "ENTER NEW LOT # > " STRG 1 448 READ TTY:;"_" STRG 334 %1.0 THEN QUIT 450 LET J = 01 452 LET K = 04 454 LET STRG 333 = J K STRG 334 456 LET DUM 801 = 01 458 GOTO STEP 4 460 IF DUM 807 = 00 THEN GOTO STEP 474 462 PRIN STRG 3 464 PRIN "PART # >" DUM 807 "< WAS TRIMMED LAST." 466 PRIN STRG 3 468 PRIN "WHICH PART DO YOU WANT TO START ON ? " STRG 1 470 READ TTY:;DUM 808 %1.0 THEN QUIT 472 LET DUM 807 = 00 474 SHOM REG 30 476 SHOM REG 0 478 ALIN POS 998 REF 999 REG 998 480 ALIN POS 0 REF 0 REG 0 482 LET I = 00 484 GOSU STEP 174 486 IF DUM 1 > - 3.00000E-02 THEN IF DUM 1 < 3.00000E-02 THEN GOTO STEP 492 488 PRIN "CAP METER NOT ZEROED, MUST SET BEFORE TRIMMING" STRG 3 490 QUIT 492 LET DLTA 998 = POS 997 - POS 999 494 GOSU STEP 514 496 LET DLTA 998 = DLTA 998 + DLTA 999 498 GOSU STEP 514 500 IF DUM 807 < DUM 999 THEN GOTO STEP 496 502 LET DUM 807 = 00 504 LET DUM 808 = 00 506 SHOM REG 30 508 SHOM REG 31 510 SHOM REG 32 512 QUIT 514 LET DUM 807 = DUM 807 + 01 516 IF DUM 808 > DUM 807 THEN EXIT 518 SMOV DLTA 998 SPD 0 REG 0 520 LET DLTA 998 = 00 522 PRIN "PART # " DUM 807 524 GOSU STEP 36 526 EXIT 528 PRIN "SETUP FOR PART NUMBER > " STRG 300 " <, TYPE 11^T TO CHANGE." 530 PRIN "LOT NUMBER IS " STRG 333 532 QUIT MODE 55 TURN 55 CROS 0 INC 55 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 UNK 55 NOM 55 SCAN 55 MAT 0 FUNC 0 DUM 55 DEV 2 0101 10 041 REG 1 00 2 00 3 00 4 00 30 03 31 00 32 04 333 00 397 00 472 03 806 00 837 01 838 00 846 01 861 01 936 02 991 04 998 -01 999 0774 1158 03 1225 00 1226 00 1272 00 1326 05 1327 00 1328 00 1329 01 1352 03 MASK 1 01446 2 01505 3 01506 4 01516 5 01535 6 01650 7 01737 8 02206 9 02311 10 02312 11 02370 12 02456 13 02457 14 02460 15 02461 16 02510 17 0615 18 02512 19 0730 POS 1 -872, -1960 2 -852, -1640 3 -872, -1128 4 -852, -832 5 -872, -544 6 -852, -252 7 -872, -88 8 -852, 168 9 -872, 236 10 -852, 508 11 -872, 500 12 -852, 748 13 -872, 724 14 -852, 932 15 -872, 936 16 -852, 1148 17 -880, -2500 18 -612, -2540 99 -1012, -1612 100 -1012, -2292 101 -40, -2450 102 -40, 200 899 -700, 1068 900 609, -3307 990 300, -2400 997 17898, -1629 998 -12207, -719 999 17595, -719 REF 999 POS 999 NOM 1 8.20000E+00 2 -4.86700E-01 3 1.03300E-05 55 5.00000E+02 397 1.08000E+01 472 8.20000E+00 806 1.04000E+01 837 1.47000E+01 838 1.90000E+00 846 1.45000E+01 861 1.35000E+01 936 1.79000E+01 991 1.26000E+01 1158 9.40000E+00 1225 1.04000E+01 1226 1.05000E+01 1272 1.12000E+01 1326 1.14000E+01 1327 1.04000E+01 1328 1.19000E+01 1329 1.45000E+01 1352 9.35000E+00 SCAN 55 0, 0, 0, 0 CODE 55 1, 1, 5, 0 56 8, 1, 5, 0 TOL 1 -2.00000E-01, 5.50000E+00 55 -1.10000E+02, 2.50000E+01 88 -4.10000E-02, 4.10000E-02 101 -2.00000E-01, 2.00000E-01 151 1.00000E+00, 0.00000E+00 152 0.00000E+00, 1.00000E+00 153 -2.00000E-01, 0.00000E+00 154 0.00000E+00, 5.50000E+00 397 -2.50000E-01, 2.50000E-01 472 -2.00000E-01, 2.00000E-01 806 -2.50000E-01, 2.50000E-01 837 -2.50000E-01, 2.50000E-01 838 -2.50000E-01, 2.50000E-01 846 -2.50000E-01, 2.50000E-01 861 -2.50000E-01, 2.50000E-01 936 -2.50000E-01, 2.50000E-01 991 -2.50000E-01, 2.50000E-01 1158 -2.50000E-01, 2.50000E-01 1225 -2.50000E-01, 2.50000E-01 1226 -2.50000E-01, 2.50000E-01 1272 -2.00000E-01, 2.00000E-01 1326 -2.50000E-01, 2.50000E-01 1327 -2.50000E-01, 2.50000E-01 1328 -2.50000E-01, 2.50000E-01 1329 -2.50000E-01, 2.50000E-01 1352 -2.50000E-01, 2.50000E-01 DUM 1 1.03300E+01 2 0.00000E+00 3 0.00000E+00 4 0.00000E+00 5 0.00000E+00 6 0.00000E+00 7 0.00000E+00 8 0.00000E+00 9 0.00000E+00 10 0.00000E+00 55 1.03300E+01 100 2.13999E+00 101 1.20000E+00 102 9.00000E-01 103 7.00000E-01 104 5.00000E-01 105 5.00000E-01 106 4.00000E-01 107 3.00000E-01 108 1.60000E-01 109 1.90000E-01 110 5.50000E+00 201 1.60000E+00 202 1.10000E+00 203 8.00000E-01 204 6.00000E-01 205 5.50000E-01 206 4.50000E-01 207 3.00000E-01 208 1.60000E-01 209 1.90000E-01 210 6.30000E+00 211 1.70000E+00 212 1.30000E+00 213 9.00000E-01 214 6.00000E-01 215 4.00000E-01 216 3.00000E-01 217 2.50000E-01 218 1.60000E-01 219 1.90000E-01 220 6.30000E+00 221 1.60000E+00 222 1.20000E+00 223 8.00000E-01 224 5.00000E-01 225 3.50000E-01 226 2.50000E-01 227 2.00000E-01 228 1.60000E-01 229 1.90000E-01 230 6.00000E+00 231 1.20000E+00 232 9.00000E-01 233 7.00000E-01 234 5.00000E-01 235 5.00000E-01 236 4.00000E-01 237 3.00000E-01 238 1.60000E-01 239 1.90000E-01 240 5.50000E+00 241 1.70000E+00 242 1.30000E+00 243 9.00000E-01 244 6.00000E-01 245 4.00000E-01 246 3.00000E-01 247 2.50000E-01 248 1.60000E-01 249 1.90000E-01 250 6.30000E+00 251 1.60000E+00 252 1.10000E+00 253 8.00000E-01 254 6.00000E-01 255 5.50000E-01 256 4.50000E-01 257 3.00000E-01 258 1.60000E-01 259 1.90000E-01 260 6.30000E+00 333 4.72000E+02 334 4.72000E+02 500 4.09959E+02 501 0.00000E+00 502 0.00000E+00 503 0.00000E+00 504 0.00000E+00 505 0.00000E+00 506 0.00000E+00 507 0.00000E+00 508 0.00000E+00 509 0.00000E+00 600 4.20191E+03 601 0.00000E+00 602 0.00000E+00 603 0.00000E+00 604 0.00000E+00 605 0.00000E+00 606 0.00000E+00 607 0.00000E+00 608 0.00000E+00 609 0.00000E+00 700 4.00000E+01 709 0.00000E+00 800 0.00000E+00 801 1.00000E+00 802 0.00000E+00 803 0.00000E+00 804 0.00000E+00 805 0.00000E+00 806 0.00000E+00 807 8.00000E+00 808 1.00000E+00 809 2.00000E+00 888 3.89000E+02 900 0.00000E+00 901 0.00000E+00 902 0.00000E+00 903 0.00000E+00 904 0.00000E+00 905 0.00000E+00 906 0.00000E+00 907 0.00000E+00 908 0.00000E+00 909 0.00000E+00 998 5.08000E+02 999 4.90000E+01 1000 1.60000E+01 1001 1.95000E+00 1002 2.06000E+00 1003 2.10999E+00 1004 2.13000E+00 1005 2.15999E+00 1006 2.13000E+00 1007 2.09000E+00 1008 2.13999E+00 1009 9.99900E+03 1010 9.99900E+03 1011 9.99900E+03 1012 9.99900E+03 1013 9.99900E+03 1014 9.99900E+03 1015 9.99900E+03 1016 9.99900E+03 1017 9.99900E+03 1018 9.99900E+03 1019 9.99900E+03 1020 9.99900E+03 1021 9.99900E+03 1022 9.99900E+03 1023 9.99900E+03 1024 9.99900E+03 1025 9.99900E+03 1026 9.99900E+03 1027 9.99900E+03 1028 9.99900E+03 1029 9.99900E+03 1030 9.99900E+03 1031 9.99900E+03 1032 9.99900E+03 1033 9.99900E+03 1034 9.99900E+03 1035 9.99900E+03 1036 9.99900E+03 1037 9.99900E+03 1038 9.99900E+03 1039 9.99900E+03 1040 9.99900E+03 1041 9.99900E+03 1042 9.99900E+03 1043 9.99900E+03 1044 9.99900E+03 1045 9.99900E+03 1046 9.99900E+03 1047 9.99900E+03 1048 9.99900E+03 1049 9.99900E+03 1050 9.99900E+03 1101 9.99900E+03 1102 9.99900E+03 1103 9.99900E+03 1104 9.99900E+03 1105 9.99900E+03 1106 9.99900E+03 1107 9.99900E+03 1108 9.99900E+03 1109 9.99900E+03 1110 9.99900E+03 1111 9.99900E+03 1112 9.99900E+03 1113 9.99900E+03 1114 9.99900E+03 1115 9.99900E+03 1116 9.99900E+03 1117 9.99900E+03 1118 9.99900E+03 1119 9.99900E+03 1120 9.99900E+03 1121 9.99900E+03 1122 9.99900E+03 1123 9.99900E+03 1124 9.99900E+03 1125 9.99900E+03 1126 9.99900E+03 1127 9.99900E+03 1128 9.99900E+03 1129 9.99900E+03 1130 9.99900E+03 1131 9.99900E+03 1132 9.99900E+03 1133 9.99900E+03 1134 9.99900E+03 1135 9.99900E+03 1136 9.99900E+03 1137 9.99900E+03 1138 9.99900E+03 1139 9.99900E+03 1140 9.99900E+03 1141 9.99900E+03 1142 9.99900E+03 1143 9.99900E+03 1144 9.99900E+03 1145 9.99900E+03 1146 9.99900E+03 1147 9.99900E+03 1148 9.99900E+03 1149 9.99900E+03 1150 9.99900E+03 CUT 55 9.00000E+01 TURN 55 9.90000E+01 INC 55 4 SPD 1 3.30000E+01, 3.30000E+01 2 3.00000E+00, 3.00000E+00 3 2.00000E+01, 2.00000E+01 PWR 1 100, 100 WAIT 1 1, 2000 STRG 1 _ 3  5  10 R20XPCXDFX*XG 11 O 12 P+ 13 D 31 ENTER NEW PART # 32 ENTER NEW LOT # 40 NO DRIFT TEST 300 2472 333 M37G 334 M37G 397 2397 472 2472 501 BAR 1 502 BAR 2 503 BAR 3 504 BAR 4 505 BAR 5 506 BAR 6 507 BAR 7 508 BAR 8 509 BAR 9 806 0806 837 0837 838 0838 846 0846 861 0861 936 0936 991 0991 1000 2472 M18B 1158 1158 1225 1225 1226 1226 1272 1272 1326 1326 1327 1327 1328 1328 1329 1329 1352 1352 DLTA 99 0, -680 666 620, 0 667 -620, 0 900 1309, -4375 997 -1006, 1267 998 0, 0 999 -620, 0 SCAL 1 1.15000E+01