HEADING:H2738.B3 PASS B (P20519.B1) MODEL 25 10/OCT/04 STEVE D. STEP 1 GOTO STEP 9 2 GOTO STEP 177 3 GOTO STEP 195 4 GOSU STEP 109 5 GOTO STEP 9 6 GOTO STEP 89 7 GOTO STEP 249 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOSU STEP 249 10 GOTO STEP 12 11 REM " ****** USE POSITION 100 TO ALIGN HEAD TO PROBES ******" 12 GOSU STEP 65 13 LET DLTA 900 = POS 900 - POS 899 14 DISP DLTA 900 15 MOVE POS 899 SPD 0 16 LET M = DUM 811 17 FOR I = 1.00000E+00 TO M 18 IF DUM 807 = 4.00000E+00 THEN GOTO STEP 24 19 IF DUM 807 = 8.00000E+00 THEN GOTO STEP 24 20 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 21 TEST UNK I CODE 3 TOL I ACC 23 REJ 0 REG 0 22 TEST UNK I CODE 3 TOL I ACC 0 REJ 0 REG 1 23 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 27 24 NEXT I 25 IF DUM 3 < - 3.00000E+00 THEN GOSU STEP 163 26 IF REG 1 # 00 THEN GOTO STEP 59 27 LET M = DUM 811 28 FOR I = 1.00000E+00 TO M 29 IF DUM 807 = 4.00000E+00 THEN GOTO STEP 52 30 IF DUM 807 = 8.00000E+00 THEN GOTO STEP 52 31 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 32 LET J = I * 2.00000E+00 33 LET K = J + 1.00000E+00 34 LET L = I + 1.00000E+02 35 IF MASK I # 01 THEN GOTO STEP 52 36 MOVE POS J SPD 0 37 LET J = 2.00000E+00 38 IF DUM I > - 4.50000E+01 THEN LET J = 3.00000E+00 39 IF DUM I > - 2.00000E+01 THEN LET J = 4.00000E+00 40 IF DUM I > - 1.00000E+01 THEN LET J = 5.00000E+00 41 IF DUM I > - 5.00000E+00 THEN LET J = 6.00000E+00 42 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 49 43 SERP UNK I CODE J CUT I MODE I POS K DENS I BRAN 0 44 TEST UNK I CODE 7 TOL I ACC 46 REJ 0 REG 0 45 TEST UNK I CODE 8 TOL I ACC 0 REJ 0 REG 0 46 LET J = I * 2.00000E+00 + 1.00000E+02 47 MOVE POS J SPD 0 48 SERP UNK L CODE 6 CUT L MODE L POS K DENS I BRAN 0 49 TEST UNK L CODE 7 TOL L ACC 51 REJ 0 REG 0 50 TEST UNK L CODE 8 TOL L ACC 0 REJ 0 REG 2 51 IF REG 50 = 01 THEN GOSU STEP 114 52 NEXT I 53 IF REG 50 = 01 THEN GOSU STEP 122 54 IF REG 2 # 00 THEN GOTO STEP 61 55 IF DUM 807 = 4.00000E+00 THEN GOTO STEP 62 56 IF DUM 807 = 8.00000E+00 THEN GOTO STEP 62 57 PRIN " GOOD PART " 58 GOTO STEP 62 59 PRIN "INITAL REJECT " STRG 3 60 GOTO STEP 62 61 PRIN "TRIM REJECT" STRG 3 62 MOVE POS 899 SPD 0 63 HAND 64 EXIT 65 IF DUM 807 = 00 THEN GOTO STEP 72 66 PRIN STRG 3 67 PRIN "PROGRAM STOPPED AT PART # " DUM 807 68 PRIN STRG 3 69 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 70 READ TTY:;DUM 808 %1.0 THEN QUIT 71 LET DUM 807 = 00 72 MOVE POS 990 SPD 0 73 SHOM REG 990 74 SHOM REG 0 75 MOVE POS 100 SPD 0 76 LET DLTA 998 = POS 997 77 IF BIT 6 = 01 THEN GOTO STEP 83 78 PRIN "ALIGN THETA" 79 ALIN POS 998 REF 999 REG 998 80 PRIN "ALIGN X-Y" 81 ALIN POS 0 REF 0 REG 0 82 LET DLTA 998 = POS 997 - POS 999 83 GOTO STEP 85 84 LET DLTA 998 = DLTA 998 + DLTA 999 85 GOSU STEP 93 86 IF DUM 807 < DUM 999 THEN GOTO STEP 84 87 LET DUM 807 = 00 88 LET DUM 808 = 00 89 SHOM REG 990 90 SHOM REG 0 91 SHOM REG 991 92 QUIT 93 LET DUM 807 = DUM 807 + 01 94 IF DUM 808 > DUM 807 THEN EXIT 95 SMOV DLTA 998 SPD 0 REG 0 96 LET DLTA 998 = 00 97 IF DUM 807 = 4.00000E+00 THEN GOTO STEP 107 98 IF DUM 807 = 8.00000E+00 THEN GOTO STEP 107 99 LET DUM 700 = DUM 807 100 IF DUM 700 = 5.00000E+00 THEN LET DUM 700 = 4.00000E+00 101 IF DUM 700 = 6.00000E+00 THEN LET DUM 700 = 5.00000E+00 102 IF DUM 700 = 7.00000E+00 THEN LET DUM 700 = 6.00000E+00 103 IF DUM 700 = 9.00000E+00 THEN LET DUM 700 = 7.00000E+00 104 IF DUM 700 = 1.00000E+01 THEN LET DUM 700 = 8.00000E+00 105 IF DUM 700 = 1.10000E+01 THEN LET DUM 700 = 9.00000E+00 106 PRIN "PART # " DUM 700 107 GOSU STEP 13 108 EXIT 109 LET REG 50 = 01 110 PRIN STRG 3 "DRIFT TEST ON" STRG 3 111 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 112 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 113 EXIT 114 GOSU STEP 151 01 115 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 116 LET J = I + 3.00000E+02 117 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 118 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 119 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 120 PRIN BIT 11 "R" I " NOM" J "=" NOM J 121 EXIT 122 LET M = DUM 811 123 GOSU STEP 150 DUM 804 124 GOSU STEP 136 01 125 GOSU STEP 130 02 126 PRIN "COMPLETE" STRG 3 127 LET REG 50 = 00 128 GOSU STEP 151 05 129 EXIT 130 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 131 READ TTY:;%1.0 THEN QUIT 132 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 133 PRIN "DRIFT IS BASED ON 120 SECONDS" 134 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 135 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 136 FOR N = 01 TO M 137 GOSU STEP 146 138 IF NOM J < 00 THEN GOTO STEP 144 139 IF VALU 1 = 02 THEN GOTO STEP 143 140 GOSU STEP 151 DUM 805 141 PRIN BIT 11 "TESTING R" I 142 TEST UNK 300 CODE 10 TOL I ACC 144 REJ 144 REG 0 143 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 144 NEXT N 145 EXIT 146 IF NOM N < 00 THEN LET N = - NOM N 147 LET I = N 148 LET J = I + 3.00000E+02 149 EXIT 150 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 151 LET L = VALU 1 * 2.50000E+03 152 FOR K = 01 TO L 153 NEXT K 154 EXIT 155 LET M = DUM 811 156 FOR N = 01 TO M 157 GOSU STEP 171 158 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 161 159 PRIN "DID NOT LOG" 160 EXIT 161 NEXT N 162 IF DUM 807 = 4.00000E+00 THEN GOTO STEP 164 163 PRIN "DATA LOGGING" 164 LET DUM 800 = DUM 800 + 01 165 FOR N = 01 TO M 166 GOSU STEP 171 167 LET DUM J = DUM J + DUM I 168 LET DUM K = DUM K + ( DUM I * DUM I ) 169 NEXT N 170 EXIT 171 IF NOM N < 00 THEN LET N = - NOM N 172 LET I = N 173 LET J = I + 3.00000E+02 174 LET K = I + 6.00000E+02 175 LET L = I + 1.00000E+02 176 EXIT 177 LET M = DUM 811 178 FOR N = 01 TO M 179 GOSU STEP 171 180 LET DUM I = 00 181 LET DUM J = 00 182 LET DUM K = 00 183 LET DUM L = 00 184 NEXT N 185 FOR I = 8.00000E+02 TO 8.08000E+02 186 LET DUM I = 00 187 NEXT I 188 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 189 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 190 IF STRG 1000 # "Y" THEN GOTO STEP 192 191 GOTO STEP 193 192 LET DUM 801 = 01 193 PRIN "DUMS ARE ZEROED" STRG 3 194 QUIT 195 GOSU STEP 209 196 LET M = DUM 811 197 FOR N = 01 TO M 198 GOSU STEP 171 199 LET DUM 804 = DUM J / DUM 800 200 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 201 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 202 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 203 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 204 LET DUM 803 = I 205 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 206 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 207 NEXT N 208 QUIT 209 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 210 PRIN " DATE: " STRG 340 211 PRIN " " 212 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 350 213 PRIN " " 214 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 215 PRIN " NOMINAL" 216 PRIN " " 217 EXIT 218 REM "VALU 1= TEST VALUE, 2= 1ST DUM/REG, 3= LAST DUM, 4= 0,1 OR 2" 219 IF VALU 4 < 2.00000E+00 THEN GOTO STEP 223 220 PRIN " " 221 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1 222 PRIN " " 223 LET J = VALU 2 224 LET K = VALU 3 225 FOR L = J TO K 226 IF REG L < 00 THEN LET L = - REG L 227 LET M = L + 01 228 IF VALU 4 > 00 THEN GOTO STEP 233 229 LET REG L = 00 230 NEXT L 231 PRIN STRG 3 "DISTRIBUTION DUMS ARE ZEROED" 232 EXIT 233 IF VALU 4 = 02 THEN GOTO STEP 238 234 IF VALU 1 > DUM L THEN IF VALU 1 < DUM M THEN LET REG L = REG L + 01 235 NEXT L 236 IF VALU 1 > DUM M THEN LET REG M = REG M + 01 237 EXIT 238 LET J = VALU 1 239 LET DUM 805 = NOM J + ( NOM J * DUM L / 1.00000E+02 ) 240 LET DUM 806 = NOM J + ( NOM J * DUM M / 1.00000E+02 ) 241 PRIN "# BETWEEN " %5.2 DUM L "% & " %5.2 DUM M STRG 1 242 IF DUM 806 < 1.00000E+04 THEN GOTO STEP 245 243 PRIN "% (" %8.0 DUM 805 "&" %8.0 DUM 806 "OHMS ) =" %6.0 REG L 244 GOTO STEP 246 245 PRIN "% (" %7.3 DUM 805 "&" %7.3 DUM 806 "OHMS ) =" %6.0 REG L 246 NEXT L 247 PRIN "# ABOVE " %5.2 DUM M "% =" %6.0 REG K 248 EXIT 249 PRIN STRG 3 "ENTER NEW LOT NUMBER (WAS " STRG 333 " ) " STRG 1 250 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 251 PRIN "LOT NUMBER IS " STRG 333 252 PRIN "" 253 PRIN "ENTER TODAY'S DATE (WAS " STRG 340 " ) " STRG 1 254 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 255 PRIN " NEW DATE IS " STRG 340 256 LET DUM 801 = 01 257 QUIT MODE 7 TURN 99 CROS 7 INC 99 8 TURN 99 CROS 8 INC 99 9 TURN 99 CROS 9 INC 99 10 TURN 99 CROS 10 INC 99 99 TURN 99 CROS 0 INC 99 107 TURN 99 CROS 107 INC 99 108 TURN 99 CROS 108 INC 99 109 TURN 99 CROS 109 INC 99 110 TURN 99 CROS 110 INC 99 DENS 1 SPD 1 PWR 1 7 SPD 3 PWR 1 8 SPD 3 PWR 1 9 SPD 1 PWR 1 10 SPD 1 PWR 1 107 SPD 2 PWR 1 108 SPD 2 PWR 1 109 SPD 2 PWR 1 110 SPD 2 PWR 1 UNK 7 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 7 8 NOM 8 SCAN 8 MAT 0 FUNC 0 DUM 8 9 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 9 10 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 10 107 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 107 108 NOM 8 SCAN 8 MAT 107 FUNC 0 DUM 108 109 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 109 110 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 110 300 NOM J SCAN I MAT 0 FUNC 0 DUM I REG 1 00 2 00 3 00 4 00 50 00 990 03 991 04 998 -01 999 07747 MASK 1 00 2 00 3 01 4 01 5 01 6 01 7 01 8 01 9 01 10 01 POS 7 845, -2070 8 1022, -1210 9 2212, -1210 10 2030, -2070 11 -345, -661 12 -480, -276 13 -675, -690 14 -600, -2613 15 -459, -2583 16 760, -2575 17 570, -2608 18 -625, -2243 19 -424, -1270 20 769, -1270 21 593, -2243 100 -446, -5931 107 845, -2075 108 1022, -1215 109 2212, -1215 110 2030, -2075 111 -340, -661 112 -480, -276 113 -583, -2615 114 -600, -2610 115 -459, -2586 116 760, -2579 117 570, -2604 118 -625, -2250 119 -424, -1265 120 769, -1265 121 596, -2250 300 1437, -2206 899 541, -1222 900 10, -4625 990 634, -1147 997 10429, -1986 998 -13152, -2121 999 10662, -2121 REF 999 POS 999 NOM 1 -7.00000E+00 7 3.50000E+02 8 3.50000E+02 9 4.20000E+04 10 4.20000E+04 307 3.48000E+02 308 3.47750E+02 309 4.19520E+04 310 4.19680E+04 SCAN 7 3, 1, 0, 0 8 9, 11, 0, 0 9 3, 21, 0, 0 10 9, 15, 0, 0 CODE 1 3, 1, 150, 0 2 3, 2, 150, 0 3 3, 2, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 6 3, 3, 600, 0 7 3, 2, 500, 0 8 3, 2, 500, 0 9 3, 2, 0, 0 10 3, 2, 0, 0 TOL 7 -6.00000E+01, 5.00000E-01 8 -6.00000E+01, 5.00000E-01 9 -5.80000E+01, 5.00000E-01 10 -5.80000E+01, 5.00000E-01 107 -5.00000E-01, 5.00000E-01 108 -5.00000E-01, 5.00000E-01 109 -5.00000E-01, 5.00000E-01 110 -5.00000E-01, 5.00000E-01 DUM 1 0.00000E+00 2 0.00000E+00 3 -9.00000E+00 4 0.00000E+00 5 -2.76000E+00 6 0.00000E+00 7 -1.42857E-01 8 -2.50000E-01 9 -1.90476E-01 10 -2.28571E-01 101 0.00000E+00 102 0.00000E+00 103 -3.20000E-01 104 -3.50000E-01 105 0.00000E+00 106 0.00000E+00 107 0.00000E+00 108 0.00000E+00 109 0.00000E+00 110 0.00000E+00 301 -3.91058E+03 302 0.00000E+00 303 -8.95095E+03 304 0.00000E+00 305 -2.13597E+03 306 -2.13597E+03 307 -1.42857E-01 308 -2.50000E-01 309 -1.90476E-01 310 -2.28571E-01 601 8.81227E+04 602 0.00000E+00 603 3.71402E+05 604 0.00000E+00 605 1.42574E+05 606 1.42574E+05 607 2.04081E-02 608 6.25000E-02 609 3.62812E-02 610 5.22449E-02 700 1.00000E+00 800 1.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 1.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 1.00000E+01 812 0.00000E+00 813 0.00000E+00 999 1.10000E+01 CUT 7 -8.00000E-01 8 -8.00000E-01 9 -7.00000E-01 10 -7.00000E-01 107 -7.00000E-02 108 -1.00000E-02 109 -8.00000E-02 110 -8.00000E-02 TURN 99 9.90000E+01 CROS 7 -1.20000E+00 8 -1.20000E+00 9 -1.20000E+00 10 -1.20000E+00 107 -1.00000E+00 108 -1.00000E+00 109 -1.00000E+00 110 -1.00000E+00 INC 99 1 SPD 0 1.00000E+01, 1.00000E+01 1 1.80000E+01, 1.80000E+01 2 1.20000E+01, 1.20000E+01 3 3.00000E+00, 3.00000E+00 PWR 1 100, 100 STRG 1 _ 2 0 3  333 L06C 340 06/08/09 350 300-2738-00 1000 Y DLTA 900 -531, -3403 998 0, 0 999 -2337, 0