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