HEADING:300-2365-02 (P20480.B1) "B PASS" S&R 25'S 12-24-96 GF STEP 1 GOTO STEP 9 2 GOTO STEP 144 3 GOTO STEP 124 4 GOSU STEP 206 5 GOTO STEP 9 6 GOTO STEP 193 7 GOTO STEP 163 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 163 10 MOVE POS 100 SPD 0 11 GOSU STEP 172 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 IF BIT 4 = 01 THEN GOTO STEP 24 16 FOR I = 8.00000E+00 TO 4.50000E+01 17 IF NOM I < - 01 THEN LET I = - NOM I 18 TEST UNK I CODE 1 TOL I ACC 20 REJ 0 REG 0 19 TEST UNK I CODE 22 TOL I ACC 0 REJ 0 REG 1 20 LET DUM 777 = NOM I + ( NOM I * DUM I / 1.00000E+02 ) 21 NEXT I 22 IF DUM 8 < - 2.00000E+00 THEN GOSU STEP 108 23 IF REG 1 # 00 THEN GOTO STEP 64 24 REM "FINAL TEST" 25 FOR I = 4.50000E+01 TO 4.50000E+01 26 IF NOM I < 00 THEN LET I = - NOM I 27 IF MASK I = 00 THEN GOTO STEP 57 28 LET J = I * 02 29 LET K = J + 1.00000E+00 30 LET L = I + 1.00000E+02 31 IF BIT 4 = 01 THEN GOTO STEP 52 32 GOSU STEP 80 33 IF I = 4.50000E+01 THEN GOSU STEP 89 34 IF I = 4.50000E+01 THEN GOTO STEP 52 35 MOVE POS J SPD 0 36 LET NOM 300 = NOM I + ( NOM I * DUM I * TURN I / 1.00000E+04 ) 37 LET J = 3.00000E+02 38 LET N = 2.00000E+02 39 IF I = 1.50000E+01 THEN LET N = 2.01000E+02 40 TRIM UNK 300 CODE 104 CUT 208 MODE 208 POS K DENS 100 BRAN 0 41 TRIM UNK 300 CODE 105 CUT 108 MODE 108 POS K DENS 100 BRAN 0 42 LET J = I * 02 43 LET N = N - 1.00000E+02 44 TRIM UNK L CODE 106 CUT I MODE I POS K DENS 100 BRAN 0 45 REM " GOSUB BOX TRIMS " 46 GOSU STEP 70 47 IF MASK I # 02 THEN GOTO STEP 52 48 LET J = I * 02 + 1.00000E+02 49 LET K = J + 01 50 MOVE POS J SPD 0 51 TRIM UNK L CODE 6 CUT L MODE L POS K DENS 1 BRAN 0 52 TEST UNK L CODE 25 TOL L ACC 0 REJ 0 REG 2 53 LET DUM 777 = NOM I + ( NOM I * DUM I / 1.00000E+02 ) 54 LET DUM 806 = DUM I - DUM 806 55 IF BIT 11 = 01 THEN PRIN "R" I " BOX CHANGE = " DUM 806 56 IF REG 50 = 01 THEN GOSU STEP 211 57 NEXT I 58 IF REG 50 = 01 THEN GOSU STEP 219 59 IF REG 2 # 00 THEN GOTO STEP 66 60 PRIN "GOOD PART" 61 MOVE POS 800 SPD 0 62 CGEN DENS 333 SCAL 335 POS 801 "B" 63 GOTO STEP 67 64 PRIN " INITIAL REJECT" STRG 3 65 GOTO STEP 67 66 PRIN " TRIM REJECT" STRG 3 67 MOVE POS 899 SPD 0 68 HAND 69 EXIT 70 IF BIT 11 = 01 THEN TEST UNK I CODE 5 TOL I ACC 0 REJ 0 REG 0 71 LET DUM 806 = DUM I 72 IF NOM I > 5.00000E+05 THEN GOTO STEP 252 73 REM "SINGLE BOX TRIMS" 74 NIBL DLTA L POS J DENS 800 BRAN 79 75 LET K = 9.90000E+01 76 IF I = 1.50000E+01 THEN LET K = 9.80000E+01 77 REM "** CLOSE OFF BOX TRIM ***" 78 TRIM UNK I CODE 2 CUT 99 MODE 100 POS J DENS K BRAN 0 79 EXIT 80 LET N = 02 81 IF DUM I > - 4.50000E+01 THEN LET N = 03 82 IF DUM I > - 2.00000E+01 THEN LET N = 04 83 IF DUM I > - 1.00000E+01 THEN LET N = 05 84 IF DUM I > - 5.00000E+00 THEN LET N = 06 85 IF NOM I > 9.00000E+04 THEN LET N = N + 1.00000E+01 86 LET M = 01 87 IF NOM I < 5.00000E+01 THEN LET M = 02 88 EXIT 89 LET POS 190 = POS 90 90 LET POS 191 = POS 91 91 FOR K = 01 TO 04 92 GOSU STEP 80 93 LET J = ( K * 1.00000E+02 ) + I 94 LET M = J + 01 95 MOVE POS 190 SPD 0 96 TRIM UNK 45 CODE N CUT 45 MODE 45 POS 191 DENS 2 BRAN 0 97 NIBL DLTA 45 POS 190 DENS 245 BRAN 0 98 NIBL DLTA J POS 190 DENS 145 BRAN 0 99 NIBL DLTA M POS 191 DENS 345 BRAN 0 100 TRIM UNK 45 CODE 2 CUT 99 MODE 100 POS 190 DENS 245 BRAN 0 101 TRIM UNK 45 CODE 2 CUT 99 MODE 100 POS 190 DENS 345 BRAN 0 102 LET POS 190 = POS 190 + DLTA 888 103 LET POS 191 = POS 191 + DLTA 889 104 TEST UNK 45 CODE N TOL 45 ACC 0 REJ 0 REG 0 105 IF DUM 45 > DUM 245 THEN EXIT 106 NEXT K 107 EXIT 108 FOR I = 8.00000E+00 TO 4.50000E+01 109 IF NOM I < - 01 THEN LET I = - NOM I 110 GOSU STEP 159 111 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 114 112 PRIN "DID NOT LOG" 113 EXIT 114 NEXT I 115 PRIN "DATA LOGGING" 116 LET DUM 800 = DUM 800 + 01 117 FOR I = 8.00000E+00 TO 4.50000E+01 118 IF NOM I < - 01 THEN LET I = - NOM I 119 GOSU STEP 159 120 LET DUM J = DUM J + DUM I 121 LET DUM K = DUM K + ( DUM I * DUM I ) 122 NEXT I 123 EXIT 124 GOSU STEP 137 125 FOR I = 8.00000E+00 TO 4.50000E+01 126 IF NOM I < - 01 THEN LET I = - NOM I 127 GOSU STEP 159 128 LET DUM 804 = DUM J / DUM 800 129 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 130 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 131 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 132 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 133 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 134 PRIN %15.3 DUM 806 %15.3 NOM I 135 NEXT I 136 QUIT 137 PRIN STRG 2 " LOT " STRG 333 " PRETRIM DATA ON " DUM 800 " PARTS" 138 PRIN " " 139 PRIN " DATE: " STRG 340 140 PRIN " " 141 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 142 PRIN " NOMINAL" 143 EXIT 144 FOR I = 8.00000E+00 TO 4.50000E+01 145 IF NOM I < - 01 THEN LET I = - NOM I 146 GOSU STEP 159 147 LET DUM I = 00 148 LET DUM J = 00 149 LET DUM K = 00 150 NEXT I 151 FOR I = 8.00000E+02 TO 8.08000E+02 152 LET DUM I = 00 153 NEXT I 154 PRIN "SAVING PROGRAM ?" STRG 1 155 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 156 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 157 PRIN "DUMMIES ZEROED" STRG 3 158 QUIT 159 LET J = I + 3.00000E+02 160 LET K = I + 6.00000E+02 161 LET L = I + 1.00000E+02 162 EXIT 163 PRIN STRG 3 "ENTER LOT NUMBER > " STRG 1 164 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 165 PRIN STRG 3 "ENTER TODAY'S DATE > " STRG 1 166 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 167 PRIN "LOT NUMBER IS: " STRG 333 168 PRIN "TODAY'S DATE IS: " STRG 340 169 PRIN STRG 3 170 LET DUM 801 = 01 171 QUIT 172 IF DUM 807 = 00 THEN GOTO STEP 179 173 PRIN STRG 3 174 PRIN "PROGRAM STOPPED AT PART # " DUM 807 175 PRIN STRG 3 176 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 177 READ TTY:;DUM 808 %1.0 THEN QUIT 178 LET DUM 807 = 00 179 SHOM REG 30 180 SHOM REG 0 181 REM "ALIGN THETA" 182 ALIN POS 998 REF 999 REG 998 183 REM "ALIGN X-Y" 184 ALIN POS 0 REF 0 REG 0 185 LET DLTA 998 = POS 997 - POS 999 186 GOTO STEP 189 187 LET J = DUM 807 + 1.00000E+03 188 LET DLTA 998 = DLTA 998 + DLTA J 189 GOSU STEP 197 190 IF DUM 807 < DUM 999 THEN GOTO STEP 187 191 LET DUM 807 = 00 192 LET DUM 808 = 00 193 SHOM REG 30 194 SHOM REG 0 195 SHOM REG 32 196 QUIT 197 LET DUM 807 = DUM 807 + 01 198 IF DUM 808 > DUM 807 THEN EXIT 199 SMOV DLTA 998 SPD 0 REG 0 200 SMOV DLTA 0 SPD 0 REG 0 201 LET DLTA 998 = 00 202 PRIN "" 203 PRIN "PART # " DUM 807 204 GOSU STEP 12 205 EXIT 206 LET REG 50 = 01 207 PRIN STRG 3 "DRIFT TEST ON" STRG 3 208 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 209 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 210 EXIT 211 GOSU STEP 248 01 212 TEST UNK I CODE 12 TOL I ACC 0 REJ 0 REG 0 213 LET J = I + 3.00000E+02 214 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 215 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 216 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 217 PRIN BIT 11 "R" I " NOM" J "=" NOM J 218 EXIT 219 LET M = DUM 811 220 GOSU STEP 247 DUM 804 221 GOSU STEP 233 01 222 GOSU STEP 227 02 223 PRIN "COMPLETE" STRG 3 224 LET REG 50 = 00 225 GOSU STEP 248 05 226 EXIT 227 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 228 READ TTY:;%1.0 THEN QUIT 229 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 230 PRIN "DRIFT IS BASED ON 120 SECONDS" 231 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 232 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 233 FOR N = 01 TO M 234 GOSU STEP 243 235 IF MASK I = 00 THEN GOTO STEP 241 236 IF VALU 1 = 02 THEN GOTO STEP 240 237 GOSU STEP 248 DUM 805 238 PRIN BIT 11 "TESTING R" I 239 TEST UNK 300 CODE 10 TOL I ACC 241 REJ 241 REG 0 240 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 241 NEXT N 242 EXIT 243 IF NOM N < 00 THEN LET N = - NOM N 244 LET I = N 245 LET J = I + 3.00000E+02 246 EXIT 247 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 248 LET L = VALU 1 * 2.50000E+03 249 FOR K = 01 TO L 250 NEXT K 251 EXIT 252 REM "** MBOX.GF **" 253 LET DUM 802 = L 254 LET DUM 803 = M 255 LET M = I + 8.00000E+02 256 LET L = 00 257 LET M = 8.00000E+02 + L 258 NIBL DLTA M POS J DENS 800 BRAN 271 259 LET M = 8.01000E+02 + L 260 NIBL DLTA M POS J DENS 800 BRAN 271 261 LET DUM 805 = 00 262 LET M = 8.02000E+02 + L 263 NIBL DLTA M POS J DENS 800 BRAN 267 264 LET DLTA 877 = - DLTA M 265 NIBL DLTA 877 POS K DENS 1 BRAN 0 266 GOTO STEP 259 267 LET DUM 805 = DUM 805 + 01 268 IF DUM 805 > DUM 825 THEN GOTO STEP 274 269 LET M = M + 01 270 GOTO STEP 263 271 LET L = DUM 802 272 LET M = DUM 803 273 EXIT 274 PRIN STRG 3 "CANNOT DO BOX TRIM!! CHECK POSITIONS!" 275 PRIN STRG 3 "PROGRAM STOPPED ON R" I ", FIX OR GET HELP!" 276 QUIT MODE 8 TURN 0 CROS 8 INC 8 9 TURN 0 CROS 8 INC 8 11 TURN 0 CROS 11 INC 11 13 TURN 0 CROS 13 INC 13 15 TURN 0 CROS 15 INC 11 17 TURN 0 CROS 8 INC 8 19 TURN 0 CROS 19 INC 11 45 TURN 45 CROS 45 INC 45 99 TURN 99 CROS 0 INC 99 100 TURN 0 CROS 0 INC 0 108 TURN 0 CROS 108 INC 108 111 TURN 0 CROS 111 INC 11 115 TURN 0 CROS 115 INC 11 119 TURN 0 CROS 119 INC 11 208 TURN 0 CROS 208 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 98 SPD 98 PWR 1 99 SPD 99 PWR 1 100 SPD N PWR 1 145 SPD 145 PWR 1 245 SPD 245 PWR 1 333 SPD 333 PWR 1 345 SPD 345 PWR 1 800 SPD 800 PWR 0 998 SPD 998 PWR 1 999 SPD 999 PWR 1 UNK 8 NOM 8 SCAN 8 MAT 0 FUNC 0 DUM 8 9 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 9 11 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 11 13 NOM 13 SCAN 13 MAT 0 FUNC 0 DUM 13 15 NOM 15 SCAN 15 MAT 0 FUNC 0 DUM 15 17 NOM 17 SCAN 17 MAT 0 FUNC 0 DUM 17 19 NOM 19 SCAN 19 MAT 0 FUNC 0 DUM 19 45 NOM 45 SCAN 45 MAT 0 FUNC 0 DUM 45 108 NOM 8 SCAN 8 MAT 0 FUNC 0 DUM 108 109 NOM 9 SCAN 9 MAT 108 FUNC 0 DUM 9 111 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 11 113 NOM 13 SCAN 13 MAT 108 FUNC 0 DUM 13 115 NOM 15 SCAN 15 MAT 0 FUNC 0 DUM 15 117 NOM 17 SCAN 17 MAT 0 FUNC 0 DUM 17 119 NOM 19 SCAN 19 MAT 0 FUNC 0 DUM 19 145 NOM 45 SCAN 45 MAT 0 FUNC 0 DUM 45 300 NOM J SCAN I MAT 0 FUNC 0 DUM I REG 1 00 2 00 3 00 4 00 30 03 32 04 50 00 998 -01 999 00 MASK 8 01 9 01 11 02 13 01 15 02 17 01 19 02 45 04 POS 8 3, 0 16 5037, 2990 17 5511, 1637 18 -5727, -3975 19 -5290, -5171 22 -6090, -5830 23 -5236, -5978 26 -709, -4375 27 -182, -5587 30 1240, -5169 31 1114, -5813 34 4113, -2620 35 4613, -3815 38 5100, -5280 39 5732, -5403 90 -1025, 5200 91 -6300, 4455 99 -25041, -20260 100 829, -3540 122 -6090, -5770 123 -5235, -5770 130 1290, -5170 131 1290, -5810 138 5100, -5230 139 5730, -5230 154 -8160, 5297 155 -8676, 3106 190 -1825, 5200 191 -5500, 3375 254 -8400, 3099 255 -8400, 4915 262 2393, 4963 263 1968, 5079 325 -380, 0 551 -7676, -116 552 -6860, -202 553 -7617, 350 554 -7181, 298 701 0, -1 702 1, 0 800 -9722, -2237 801 -9722, -2517 899 370, -370 900 580, 16 901 95, -1845 997 11168, -8534 998 -19973, 23365 999 -19973, -18987 REF 999 POS 999 NOM 1 -8.00000E+00 8 9.90000E+05 9 9.01000E+05 10 -1.10000E+01 11 9.90000E+04 12 -1.30000E+01 13 9.01000E+05 14 -1.50000E+01 15 1.09900E+05 16 -1.70000E+01 17 9.00000E+05 18 -1.90000E+01 19 1.00000E+05 20 -4.50000E+01 45 4.93500E+01 300 9.46936E+04 308 9.88604E+05 309 8.98852E+05 311 9.88640E+04 313 8.98852E+05 315 1.10076E+05 317 8.99836E+05 319 9.98630E+04 345 4.92510E+01 SCAN 8 14, 15, 0, 0 9 2, 4, 3, 0 11 3, 4, 0, 0 13 5, 7, 3, 0 15 3, 7, 5, 0 17 8, 10, 3, 0 19 9, 10, 3, 0 45 18, 20, 0, 0 CODE 1 3, 3, 50, 0 2 3, 2, 0, 0 3 3, 3, 25, 0 4 3, 4, 25, 0 5 3, 5, 25, 0 6 3, 6, 25, 0 10 3, 8, 300, 0 12 3, 2, 75, 0 13 3, 3, 75, 0 14 3, 4, 75, 0 15 3, 5, 75, 0 22 3, 2, 150, 0 25 3, 5, 150, 0 81 8, 1, 0, 0 99 1, 1, 0, 0 104 3, 5, 25, 0 105 3, 6, 60, 0 106 3, 7, 75, 0 TOL 8 -5.00000E+01, 2.00000E-01 9 -5.00000E+01, 3.50000E-01 11 -5.00000E+01, 2.00000E-01 13 -5.00000E+01, 3.50000E-01 15 -5.00000E+01, 2.00000E-01 17 -5.00000E+01, 2.00000E-01 19 -5.00000E+01, 2.00000E-01 45 -5.00000E+01, 0.00000E+00 108 -2.00000E-01, 2.00000E-01 109 -1.50000E-01, 1.50000E-01 111 -2.00000E-01, 2.00000E-01 113 -1.50000E-01, 1.50000E-01 115 -2.00000E-01, 2.00000E-01 117 -2.00000E-01, 2.00000E-01 119 -2.00000E-01, 2.00000E-01 145 -3.00000E-01, 0.00000E+00 DUM 5 -1.90000E+01 8 -1.21212E-01 9 -1.99778E-01 11 -1.21212E-01 13 -2.42397E-01 15 -1.41947E-01 17 -1.45778E-01 19 -1.12000E-01 45 -7.96286E-01 108 -1.24444E-01 208 -5.60808E-01 245 -2.50000E-01 308 -5.84760E+01 309 -5.48102E+01 311 -4.56889E+01 313 -6.05070E+01 315 -6.32648E+01 317 -6.15040E+01 319 -7.07520E+01 340 1.00000E+00 345 -5.46732E+01 499 4.79705E+00 608 1.70972E+03 609 1.50208E+03 611 1.04374E+03 613 1.83055E+03 615 2.00122E+03 617 1.89137E+03 619 2.50292E+03 645 1.49458E+03 777 4.89570E+01 799 0.00000E+00 800 2.00000E+00 801 1.00000E+00 802 1.17000E+02 803 1.00000E+00 804 0.00000E+00 805 3.00000E+00 806 -3.60403E+01 807 6.00000E+00 808 5.00000E+00 809 4.00000E+01 810 -8.00000E+01 811 4.50000E+01 812 8.00000E+00 813 1.00000E+01 825 8.00000E+00 999 6.00000E+00 CUT 8 -1.50000E-01 9 -1.00000E-01 11 -7.00000E-01 13 -1.20000E-01 15 -7.00000E-01 17 -1.50000E-01 19 -8.00000E-01 45 0.00000E+00 99 9.90000E+01 108 0.00000E+00 111 -1.50000E-01 115 -1.60000E-01 119 -1.50000E-01 145 -6.14488E+00 208 1.00000E+00 TURN 8 8.70000E+01 9 8.90000E+01 11 1.80000E+01 13 8.70000E+01 15 1.50000E+01 17 8.70000E+01 19 1.50000E+01 45 7.50000E+01 99 9.90000E+01 CROS 8 -1.00000E+00 11 -1.00000E+00 13 -1.60000E+00 15 -1.00000E+00 19 -1.50000E+00 45 -2.00000E-01 108 -4.00000E-01 111 -2.00000E-01 115 -2.50000E-01 119 -2.50000E-01 208 1.00000E-01 INC 8 7 11 1 13 5 45 0 99 6 108 4 SPD 1 1.00000E+01, 1.00000E+01 2 5.00000E+00, 5.00000E+00 98 0.00000E+00, 1.00000E+01 99 1.00000E+01, 0.00000E+00 100 0.00000E+00, 1.00000E+01 101 1.00000E+01, 0.00000E+00 145 0.00000E+00, 5.00000E+00 200 1.00000E+01, 0.00000E+00 201 0.00000E+00, 1.00000E+01 245 1.50000E+01, 0.00000E+00 333 4.00000E+00, 4.00000E+00 345 0.00000E+00, 1.50000E+01 800 3.00000E+02, 3.00000E+02 998 7.00000E+00, 7.00000E+00 999 1.30000E+01, 1.30000E+01 PWR 1 100, 100 STRG 1 _ 2 300-2365-02 'B' 3  333 L03A 340 3 JAN 97 1000 Y DLTA 45 80, 0 111 -10, 40 115 40, 10 119 -10, 40 145 0, 380 146 0, -377 245 0, 620 246 0, -617 345 0, 850 346 0, -847 445 0, 1090 446 0, -1087 800 -8, 0 801 0, 150 802 -560, 0 803 -490, 0 804 -420, 0 805 -350, 0 806 -280, 0 807 -210, 0 808 -140, 0 809 -70, 0 877 350, 0 888 -200, 0 889 200, -270 900 210, 386 998 0, -14224 999 -14233, 0 1000 0, 0 1001 0, 14224 1002 0, 14224 1003 -21336, 0 1004 0, -14224 1005 0, -14224 1006 0, 0 SCAL 335 9.00000E+00