HEADING:H951 MINI-PROBE CAP TRIMS (P20043.C4) S&R 25'S 4/13/98 GF STEP 1 GOTO STEP 9 2 GOTO STEP 197 3 GOTO STEP 172 4 PRIN STRG 40 STRG 3 5 QUIT 6 GOTO STEP 252 7 GOTO STEP 263 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 263 10 GOTO STEP 15 11 GOTO STEP 219 12 GOTO STEP 120 13 REM " TYPE '11^T' TO CHANGE PART & LOT NUMBERS " 14 REM " TYPE '12^T' TO LIST INIT & TRIM VALUES OF LAST STRIP " 15 MOVE POS 990 SPD 0 16 IF DUM 807 = 00 THEN GOSU STEP 139 17 GOSU STEP 229 18 LET DLTA 900 = POS 900 - POS 899 19 DISP DLTA 900 20 MOVE POS 899 SPD 0 21 TEST UNK 55 CODE 56 TOL 55 ACC 24 REJ 0 REG 0 22 PRIN "BAD CONTACT ON PROBE CARD, CHECK SCAN'S A0,B0" STRG 3 23 QUIT 24 LET I = 00 25 LET L = 00 26 GOSU STEP 87 27 IF DUM 1 > 03 THEN IF DUM 1 < 2.70000E+01 THEN GOTO STEP 41 28 LET L = L + 01 29 IF L = 03 THEN GOTO STEP 33 30 SMOV DLTA 666 SPD 0 REG 0 31 SMOV DLTA 667 SPD 0 REG 0 32 GOTO STEP 26 33 PRIN STRG 3 "> > > BAD PROBE CONTACT < < <" 34 PRIN STRG 3 "> ADJUST PROBES , HIT RETURN TO TEST CAP <" 35 PRIN STRG 3 "> WHEN PROBES ARE OK TYPE '1' TO CONTINUE <" 36 PRIN STRG 3 "ENTER COMMAND # > " STRG 1 37 READ TTY:;DUM 55 %1.0 THEN QUIT 38 GOSU STEP 87 39 GOSU STEP 107 40 IF DUM 55 # 01 THEN GOTO STEP 36 41 LET DUM 100 = DUM 1 - NOM 1 42 IF DUM 100 < TOL 1 THEN LET REG 1 = 01 43 IF DUM 100 > ! TOL 1 THEN LET REG 1 = 01 44 IF REG 1 = 00 THEN GOTO STEP 46 45 PRIN "*** PRE-TRIM REJECT ***" STRG 3 46 GOSU STEP 113 1.00000E+03 47 IF REG 1 # 00 THEN GOTO STEP 77 48 LET DUM 809 = 00 49 FOR I = 1.00000E+00 TO 9.00000E+00 50 IF I = 9.00000E+00 THEN IF DUM 809 < 8.00000E+00 THEN GOTO STEP 71 51 LET J = I + 1.00000E+02 52 LET DUM 55 = DUM 1 - DUM J 53 IF DUM 55 < NOM 1 THEN GOTO STEP 71 54 LET DUM 55 = DUM 1 55 LET L = I * 02 56 LET K = L - 01 57 MOVE POS K SPD 0 58 SERP UNK 55 CODE 55 CUT 55 MODE 55 POS L DENS 1 BRAN 0 59 MOVE POS L SPD 0 60 SERP UNK 55 CODE 55 CUT 55 MODE 55 POS K DENS 1 BRAN 0 61 LET DUM 809 = DUM 809 + 01 62 GOSU STEP 87 63 LET J = I + 5.00000E+02 64 LET K = I + 6.00000E+02 65 LET L = I + 9.00000E+02 66 LET DUM 55 = DUM 55 - DUM 1 67 IF DUM 55 < 6.00000E-02 THEN GOTO STEP 71 68 LET DUM J = DUM J + DUM 55 69 IF DUM 55 > DUM K THEN LET DUM K = DUM 55 70 LET DUM L = DUM L + 01 71 NEXT I 72 LET DUM 100 = DUM 1 - NOM 1 73 IF DUM 100 < TOL 101 THEN LET REG 2 = 01 74 IF DUM 100 > ! TOL 101 THEN LET REG 2 = 01 75 IF REG 2 = 00 THEN GOTO STEP 80 76 PRIN "> TRIM REJECT <" STRG 3 77 PRIN "C= " DUM 1 " PF, " DUM 100 " PF DEV FROM NOM" STRG 3 78 MOVE POS 99 SPD 0 79 NIBL DLTA 99 POS 100 DENS 3 BRAN 0 80 IF DUM 807 # 4.90000E+01 THEN GOTO STEP 84 81 LET STRG 1000 = STRG 300 + " " + STRG 333 82 MOVE POS 101 SPD 0 83 CGEN DENS 2 SCAL 1 POS 102 STRG 1000 84 MOVE POS 899 SPD 0 85 LET REG 1 = 00 86 EXIT 87 LET K = 00 88 FOR J = 1.00000E+00 TO 1.00000E+01 89 LET DUM J = 00 90 NEXT J 91 LET K = K + 01 92 TALK DEV 10 STRG 10 93 FOR J = 1.00000E+00 TO 5.00000E+02 94 NEXT J 95 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 111 96 FOR J = 1.00000E+00 TO 2.00000E+02 97 NEXT J 98 LET DUM K = NOM 3 * 1.00000E+06 99 IF K < 2.00000E+00 THEN GOTO STEP 91 100 LET DUM 888 = DUM 888 + 01 101 LET J = K - 01 102 LET DUM 804 = DUM J - DUM K 103 IF DUM 804 > TOL 88 THEN IF DUM 804 < ! TOL 88 THEN GOTO STEP 106 104 IF K = 1.00000E+01 THEN GOTO STEP 109 105 GOTO STEP 91 106 LET DUM 1 = DUM K 107 PRIN BIT 10 "C=" DUM 1 " PF FNGR# " I 108 EXIT 109 PRIN STRG 3 "> ERROR! CAP VALUES NOT STABLE! CALL ENG! <" 110 QUIT 111 PRIN STRG 3 "ERROR, CANNOT TALK TO CAP METER!" STRG 3 112 EXIT 113 IF DUM 1 < 02 THEN IF DUM 1 > DUM 110 THEN GOTO STEP 117 114 LET DUM 500 = DUM 500 + DUM 1 115 LET DUM 600 = DUM 600 + ( DUM 1 * DUM 1 ) 116 LET DUM 700 = DUM 700 + 01 117 LET J = DUM 807 + VALU 1 118 LET DUM J = DUM 100 119 EXIT 120 GOSU STEP 165 121 PRIN " PART INIT DEV TRIM DEV" 122 LET DUM 804 = 00 123 FOR I = 1.00000E+00 TO 4.90000E+01 124 LET J = I + 1.00000E+03 125 LET K = I + 1.10000E+03 126 PRIN " " STRG 1 127 IF I < 1.00000E+01 THEN PRIN " " STRG 1 128 PRIN I " " %5.2 DUM J " " %5.2 DUM K STRG 1 129 IF DUM K > ! TOL 101 THEN PRIN "<<< REJ-HI" STRG 1 130 IF DUM K < TOL 101 THEN PRIN "<<< REJ-LOW" STRG 1 131 IF DUM K > ! TOL 101 THEN GOTO STEP 134 132 IF DUM K < TOL 101 THEN GOTO STEP 134 133 LET DUM 804 = DUM 804 + 1.00000E+00 134 PRIN " " 135 NEXT I 136 PRIN " " 137 PRIN DUM 804 " GOOD PARTS" 138 QUIT 139 FOR I = 1.00100E+03 TO 1.05000E+03 140 LET J = I + 1.00000E+02 141 LET DUM I = 9.99900E+03 142 LET DUM J = 9.99900E+03 143 NEXT I 144 EXIT 145 FOR J = 1.00000E+00 TO 1.90000E+01 146 IF DUM 333 = MASK J THEN GOTO STEP 152 147 NEXT J 148 PRIN STRG 3 149 PRIN "THAT PART NUMBER IS NOT AVAILABLE , TRY AGAIN. . ." STRG 3 150 PRIN STRG 3 151 GOTO STEP 219 152 LET I = DUM 333 153 LET L = 1.00000E+02 + ( REG I * 1.00000E+01 ) 154 FOR J = 1.01000E+02 TO 1.10000E+02 155 LET K = J + L 156 LET DUM J = DUM K 157 NEXT J 158 LET DUM 334 = I 159 LET NOM 1 = NOM I 160 LET TOL 101 = TOL I 161 LET TOL 153 = TOL 151 * TOL 101 162 LET TOL 154 = TOL 152 * DUM 110 163 LET TOL 1 = TOL 153 + TOL 154 164 LET STRG 300 = STRG I 165 PRIN "NOW TRIMMING PART # > 307-" STRG 300 166 PRIN STRG 3 167 PRIN "CURRENT LOT # IS > " STRG 333 168 PRIN " " 169 PRIN "NOMINAL = " NOM 1 " PF" 170 PRIN " " 171 EXIT 172 PRIN STRG 3 173 PRIN "PART: 307-" STRG 300 " LOT: " STRG 333 174 PRIN "" 175 PRIN "PRINT VALUE DATA FOR " DUM 700 " PARTS" 176 PRIN "" 177 PRIN "# OF 'EXTRA' CAP METER TESTS = " DUM 888 178 PRIN " " 179 LET DUM 55 = DUM 500 / DUM 700 180 LET DUM 800 = ( DUM 600 - ( DUM 500 * DUM 500 / DUM 700 ) ) 181 LET DUM 800 = SQRT ( DUM 800 * DUM 800 ) 182 LET DUM 800 = SQRT ( DUM 800 / ( DUM 700 - 01 ) ) 183 PRIN " AVERAGE(PF) STD DEV(PF)" 184 PRIN "C1" %9.3 DUM 55 %11.4 DUM 800 185 PRIN "" 186 PRIN " AVERAGE HIGHEST # OF BARS" 187 PRIN " CHANGE (PF) CHANGE (PF) TRIMMED" 188 PRIN "" 189 FOR I = 5.01000E+02 TO 5.09000E+02 190 LET J = I + 1.00000E+02 191 LET K = I + 4.00000E+02 192 LET DUM 55 = DUM I / DUM K 193 PRIN STRG I %9.2 DUM 55 STRG 1 194 PRIN %10.2 DUM J %10.0 DUM K 195 NEXT I 196 QUIT 197 PRIN STRG 5 198 GOSU STEP 139 199 LET DUM 1 = 00 200 LET DUM 55 = 00 201 LET DUM 700 = 00 202 LET DUM 888 = 00 203 FOR I = 8.00000E+02 TO 8.08000E+02 204 LET DUM I = 00 205 NEXT I 206 LET DUM 801 = 1.00000E+00 207 FOR I = 5.00000E+02 TO 5.09000E+02 208 LET DUM I = 00 209 LET J = I + 1.00000E+02 210 LET DUM J = 00 211 LET J = I + 4.00000E+02 212 LET DUM J = 00 213 NEXT I 214 LET NOM 2 = 00 215 LET NOM 3 = 00 216 GOSU STEP 145 217 PRIN "DUMMIES ZEROED" STRG 3 218 QUIT 219 GOSU STEP 165 220 PRIN "ENTER NEW PART # > " STRG 1 221 READ TTY:;DUM 333 %1.0 THEN QUIT 222 PRIN "ENTER NEW LOT # > " STRG 1 223 READ TTY:;"_" STRG 334 %1.0 THEN QUIT 224 LET J = 01 225 LET K = 04 226 LET STRG 333 = J K STRG 334 227 LET DUM 801 = 01 228 GOTO STEP 2 229 IF DUM 807 = 00 THEN GOTO STEP 236 230 PRIN STRG 3 231 PRIN "PART # >" DUM 807 "< WAS TRIMMED LAST." 232 PRIN STRG 3 233 PRIN "WHICH PART DO YOU WANT TO START ON ? " STRG 1 234 READ TTY:;DUM 808 %1.0 THEN QUIT 235 LET DUM 807 = 00 236 SHOM REG 30 237 SHOM REG 0 238 ALIN POS 998 REF 999 REG 998 239 ALIN POS 0 REF 0 REG 0 240 LET I = 00 241 GOSU STEP 87 242 IF DUM 1 > - 3.00000E-02 THEN IF DUM 1 < 3.00000E-02 THEN GOTO STEP 245 243 PRIN "CAP METER NOT ZEROED, MUST SET BEFORE TRIMMING" STRG 3 244 QUIT 245 LET DLTA 998 = POS 997 - POS 999 246 GOSU STEP 256 247 LET DLTA 998 = DLTA 998 + DLTA 999 248 GOSU STEP 256 249 IF DUM 807 < DUM 999 THEN GOTO STEP 247 250 LET DUM 807 = 00 251 LET DUM 808 = 00 252 SHOM REG 30 253 SHOM REG 31 254 SHOM REG 32 255 QUIT 256 LET DUM 807 = DUM 807 + 01 257 IF DUM 808 > DUM 807 THEN EXIT 258 SMOV DLTA 998 SPD 0 REG 0 259 LET DLTA 998 = 00 260 PRIN "PART # " DUM 807 261 GOSU STEP 18 262 EXIT 263 PRIN "SETUP FOR PART NUMBER > " STRG 300 " <, TYPE 11^T TO CHANGE." 264 PRIN "LOT NUMBER IS " STRG 333 265 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 -272, -2931 990 -725, -2051 997 16072, 6420 998 -14180, 7292 999 15621, 7292 REF 999 POS 999 NOM 1 1.04000E+01 2 -9.96700E-01 3 1.03700E-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.50000E-01, 6.30000E+00 55 -1.10000E+02, 2.50000E+01 88 -4.10000E-02, 4.10000E-02 101 -2.50000E-01, 2.50000E-01 151 1.00000E+00, 0.00000E+00 152 0.00000E+00, 1.00000E+00 153 -2.50000E-01, 0.00000E+00 154 0.00000E+00, 6.30000E+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.03700E+01 2 1.03700E+01 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 0.00000E+00 100 -3.00083E-02 101 1.60000E+00 102 1.10000E+00 103 8.00000E-01 104 6.00000E-01 105 5.50000E-01 106 4.50000E-01 107 3.00000E-01 108 1.60000E-01 109 1.90000E-01 110 6.30000E+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 8.06000E+02 334 8.06000E+02 500 3.29847E+03 501 2.92287E+02 502 1.85079E+02 503 2.84700E+01 504 1.62100E+01 505 1.35900E+01 506 2.00000E+01 507 2.43399E+01 508 2.23400E+01 509 0.00000E+00 600 4.24127E+04 601 1.34000E+00 602 9.60001E-01 603 6.60000E-01 604 5.19999E-01 605 4.89994E-01 606 3.60003E-01 607 2.89999E-01 608 2.59998E-01 609 0.00000E+00 700 2.57000E+02 709 0.00000E+00 800 5.53751E-01 801 1.00000E+00 802 0.00000E+00 803 0.00000E+00 804 -9.99832E-03 805 0.00000E+00 806 0.00000E+00 807 0.00000E+00 808 0.00000E+00 809 4.00000E+00 888 1.08600E+03 900 0.00000E+00 901 2.45000E+02 902 2.13000E+02 903 4.60000E+01 904 3.40000E+01 905 2.90000E+01 906 5.80000E+01 907 9.30000E+01 908 9.70000E+01 909 0.00000E+00 998 5.08000E+02 999 4.90000E+01 1000 1.60000E+01 1001 2.17999E+00 1002 2.27999E+00 1003 2.19999E+00 1004 2.24000E+00 1005 2.34999E+00 1006 2.45999E+00 1007 2.83999E+00 1008 2.72999E+00 1009 2.62999E+00 1010 2.42999E+00 1011 2.50999E+00 1012 2.57999E+00 1013 2.59999E+00 1014 2.58999E+00 1015 2.71999E+00 1016 2.87000E+00 1017 2.93999E+00 1018 2.64999E+00 1019 2.49999E+00 1020 2.57999E+00 1021 2.68999E+00 1022 2.55999E+00 1023 2.72999E+00 1024 2.79999E+00 1025 2.92999E+00 1026 2.76999E+00 1027 2.70999E+00 1028 2.61999E+00 1029 2.63999E+00 1030 2.66999E+00 1031 2.60999E+00 1032 2.90000E+00 1033 2.93999E+00 1034 2.74999E+00 1035 2.62999E+00 1036 2.63999E+00 1037 2.60999E+00 1038 2.90999E+00 1039 2.72999E+00 1040 2.93999E+00 1041 2.96999E+00 1042 2.76999E+00 1043 2.72999E+00 1044 2.79999E+00 1045 2.69999E+00 1046 2.59999E+00 1047 2.65999E+00 1048 2.70999E+00 1049 2.68999E+00 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 0806 333 M52 334 M52 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 0806 M52 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 428, -3999 997 -1006, 1267 998 0, 0 999 -620, 0 SCAL 1 1.15000E+01