HEADING:2768.A1 (P20525.A1) LANCER "PASS A" 3-MAR-05 STEVE D STEP 1 GOTO STEP 9 2 GOTO STEP 178 3 GOTO STEP 198 4 GOSU STEP 111 5 GOTO STEP 9 6 GOTO STEP 98 7 GOTO STEP 221 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 221 10 MOVE POS 300 SPD 0 11 REM " **********USE POSITION 300 TO ALIGN PROBES ******** " 12 GOSU STEP 66 3.00000E+00 3.00000E+00 1.00570E+04 9.24900E+03 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 NOM I < - 1.00000E+00 THEN LET I = - NOM I 19 IF BIT 4 = 1.00000E+00 THEN IF MASK I # 00 THEN GOTO STEP 22 20 TEST UNK I CODE 2 TOL I ACC 22 REJ 0 REG 0 21 TEST UNK I CODE 3 TOL I ACC 0 REJ 0 REG 1 22 NEXT I 23 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 26 24 IF REG 1 # 00 THEN GOTO STEP 59 25 IF DUM 3 < - 3.00000E+00 THEN GOSU STEP 157 26 LET M = DUM 811 27 FOR I = 1.00000E+00 TO M 28 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 29 LET J = I * 2.00000E+00 30 LET K = J + 1.00000E+00 31 LET L = I + 1.00000E+02 32 MOVE POS J SPD 0 33 IF DUM I > - 4.50000E+01 THEN LET J = 3.00000E+00 34 IF DUM I > - 2.00000E+01 THEN LET J = 4.00000E+00 35 IF DUM I > - 1.00000E+01 THEN LET J = 5.00000E+00 36 IF DUM I > - 5.00000E+00 THEN LET J = 6.00000E+00 37 IF MASK I # - 01 THEN GOTO STEP 52 38 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 46 39 SERP UNK L CODE J CUT I MODE 2 POS K DENS 1 BRAN 0 40 TEST UNK L CODE 5 TOL L ACC 42 REJ 0 REG 0 41 TEST UNK L CODE 6 TOL L ACC 0 REJ 0 REG 0 42 LET J = I * 2.00000E+00 + 1.00000E+02 43 LET K = J + 1.00000E+00 44 MOVE POS J SPD 0 45 SERP UNK L CODE 6 CUT L MODE 2 POS K DENS 2 BRAN 0 46 TEST UNK L CODE 7 TOL L ACC 48 REJ 0 REG 0 47 TEST UNK L CODE 8 TOL L ACC 0 REJ 0 REG 2 48 IF REG 50 = 1.00000E+00 THEN GOSU STEP 116 49 NEXT I 50 IF REG 50 = 1.00000E+00 THEN GOSU STEP 124 51 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 63 52 IF REG 2 # 00 THEN GOTO STEP 61 53 PRIN "GOOD PART" 54 FOR I = 1.00000E+00 TO 2.00000E+00 55 MOVE POS 800 SPD 0 56 CGEN DENS 3 SCAL 1 POS 801 STRG 333 57 NEXT I 58 GOTO STEP 63 59 PRIN "INITAL REJECT" STRG 3 60 GOTO STEP 63 61 PRIN "TRIM REJECT" STRG 3 62 GOTO STEP 63 63 MOVE POS 899 SPD 0 64 HAND 65 EXIT 66 IF DUM 807 = 00 THEN GOTO STEP 73 67 PRIN STRG 3 68 PRIN "PROGRAM STOPPED AT CIRCUIT # " DUM 807 69 PRIN STRG 3 70 PRIN "WHICH CIRCUIT # DO YOU WANT TO START ON ? " STRG 1 71 READ TTY:;DUM 808 %1.0 THEN QUIT 72 LET DUM 807 = 00 73 MOVE POS 300 SPD 0 74 SHOM REG 30 75 SHOM REG 0 76 LET DLTA 999 = DLTA 993 * VALU 4 77 LET DLTA 998 = POS 997 78 IF BIT 6 = 01 THEN GOTO STEP 84 79 PRIN "ALIGN PART THETA" 80 ALIN POS 998 REF 999 REG 998 81 PRIN "ALIGN X-Y" 82 ALIN POS 0 REF 0 REG 0 83 LET DLTA 998 = POS 997 - POS 999 84 GOTO STEP 94 85 LET J = VALU 2 86 LET K = VALU 1 * VALU 2 87 FOR M = J TO K J 88 IF DUM 807 = M THEN GOTO STEP 92 89 NEXT M 90 LET DLTA 998 = DLTA 998 + DLTA 999 91 GOTO STEP 94 92 LET DLTA 998 = DLTA 998 + ( VALU 3 * DLTA 994 ) 93 LET DLTA 999 = - DLTA 999 94 GOSU STEP 102 95 IF DUM 807 < ( VALU 1 * VALU 2 ) THEN GOTO STEP 85 96 LET DUM 807 = 00 97 LET DUM 808 = 00 98 SHOM REG 990 99 SHOM REG 0 100 SHOM REG 991 101 QUIT 102 LET DUM 807 = DUM 807 + 01 103 IF DUM 808 > DUM 807 THEN EXIT 104 SMOV DLTA 998 SPD 0 REG 0 105 REM "ALIN POS 0 REF 0 REG 0" 106 REM "SMOV DLTA 0 SPD 0 REG 0 " 107 LET DLTA 998 = 00 108 PRIN "CIRCUIT # " DUM 807 109 GOSU STEP 13 110 EXIT 111 LET REG 50 = 01 112 PRIN STRG 3 "DRIFT TEST ON" STRG 3 113 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 114 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 115 EXIT 116 GOSU STEP 153 01 117 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 118 LET J = I + 3.00000E+02 119 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 120 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 121 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 122 PRIN BIT 11 "R" I " NOM" J "=" NOM J 123 EXIT 124 LET M = DUM 811 125 GOSU STEP 152 DUM 804 126 GOSU STEP 138 01 127 GOSU STEP 132 02 128 PRIN "COMPLETE" STRG 3 129 LET REG 50 = 00 130 GOSU STEP 153 05 131 EXIT 132 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 133 READ TTY:;%1.0 THEN QUIT 134 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 135 PRIN "DRIFT IS BASED ON 120 SECONDS" 136 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 137 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 138 FOR N = 01 TO M 139 GOSU STEP 148 140 IF NOM J < 00 THEN GOTO STEP 146 141 IF VALU 1 = 02 THEN GOTO STEP 145 142 GOSU STEP 153 DUM 805 143 PRIN BIT 11 "TESTING R" I 144 TEST UNK 300 CODE 10 TOL I ACC 146 REJ 146 REG 0 145 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 146 NEXT N 147 EXIT 148 IF NOM N < 00 THEN LET N = - NOM N 149 LET I = N 150 LET J = I + 3.00000E+02 151 EXIT 152 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 153 LET L = VALU 1 * 2.50000E+03 154 FOR K = 01 TO L 155 NEXT K 156 EXIT 157 LET M = DUM 811 158 FOR N = 01 TO M 159 GOSU STEP 172 160 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 163 161 PRIN "DID NOT LOG" 162 EXIT 163 NEXT N 164 PRIN "DATA LOGGING" 165 LET DUM 800 = DUM 800 + 01 166 FOR N = 01 TO M 167 GOSU STEP 172 168 LET DUM J = DUM J + DUM I 169 LET DUM K = DUM K + ( DUM I * DUM I ) 170 NEXT N 171 EXIT 172 IF NOM N < 00 THEN LET N = - NOM N 173 LET I = N 174 LET J = I + 3.00000E+02 175 LET K = I + 6.00000E+02 176 LET L = I + 1.00000E+02 177 EXIT 178 LET M = DUM 811 179 FOR N = 01 TO M 180 GOSU STEP 172 181 LET DUM I = 00 182 LET DUM J = 00 183 LET DUM K = 00 184 LET DUM L = 00 185 NEXT N 186 FOR I = 8.00000E+02 TO 8.08000E+02 187 LET DUM I = 00 188 NEXT I 189 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 190 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 191 IF STRG 1000 # "Y" THEN GOTO STEP 195 192 PRIN STRG 3 "SETTING SERIAL # (DUM 799) TO 0, WAS " DUM 799 193 LET DUM 799 = 00 194 REM "GOTO STEP 598 " 195 LET DUM 801 = 01 196 PRIN "DUMS ARE ZEROED" STRG 3 197 QUIT 198 GOSU STEP 212 199 LET M = DUM 811 200 FOR N = 01 TO M 201 GOSU STEP 172 202 LET DUM 804 = DUM J / DUM 800 203 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 204 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 205 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 206 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 207 LET DUM 803 = I 208 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 209 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 210 NEXT N 211 QUIT 212 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 213 PRIN " DATE: " STRG 350 214 PRIN " " 215 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 340 216 PRIN " " 217 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 218 PRIN " NOMINAL" 219 PRIN " " 220 EXIT 221 PRIN STRG 3 "ENTER NEW LOT NUMBER (WAS " STRG 333 " ) " STRG 1 222 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 223 PRIN "LOT NUMBER IS " STRG 333 224 PRIN " "  "ENTER TODAY'S DATE (WAS " STRG 340 ") " STRG 1 225 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 226 PRIN " NEW DATE IS " STRG 340 227 LET DUM 801 = 01 228 QUIT MODE 2 TURN 99 CROS 0 INC 99 99 TURN 99 CROS 0 INC 99 800 TURN 800 CROS 0 INC 800 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 800 SPD 800 PWR 800 UNK 10 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 10 11 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 11 12 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 12 13 NOM 13 SCAN 13 MAT 0 FUNC 0 DUM 13 14 NOM 14 SCAN 14 MAT 0 FUNC 0 DUM 14 21 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 21 31 NOM 31 SCAN 31 MAT 0 FUNC 0 DUM 31 32 NOM 32 SCAN 32 MAT 0 FUNC 0 DUM 32 36 NOM 36 SCAN 36 MAT 0 FUNC 0 DUM 36 41 NOM 41 SCAN 41 MAT 0 FUNC 0 DUM 41 42 NOM 42 SCAN 42 MAT 0 FUNC 0 DUM 42 110 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 110 111 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 111 112 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 112 113 NOM 13 SCAN 13 MAT 0 FUNC 0 DUM 113 114 NOM 14 SCAN 14 MAT 0 FUNC 0 DUM 114 121 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 121 131 NOM 31 SCAN 31 MAT 0 FUNC 0 DUM 131 132 NOM 32 SCAN 32 MAT 0 FUNC 0 DUM 132 136 NOM 36 SCAN 36 MAT 0 FUNC 0 DUM 136 141 NOM 41 SCAN 41 MAT 0 FUNC 0 DUM 141 142 NOM 42 SCAN 42 MAT 0 FUNC 0 DUM 142 300 NOM J SCAN I MAT 0 FUNC 0 DUM I 800 NOM 800 SCAN 800 MAT 0 FUNC 0 DUM 0 REG 1 00 2 00 3 00 4 00 30 03 31 00 32 04 50 00 990 03 991 04 998 -01 MASK 1 -01 2 -01 3 -01 4 -01 10 -01 11 -01 12 -01 13 -01 14 -01 15 -01 21 -01 31 -01 32 -01 36 -01 41 -01 42 -01 POS 20 552, -2756 21 344, -3046 22 -1476, -2313 23 -1304, -2558 24 -946, -2405 25 -598, -2323 26 834, -3032 27 1290, -2924 28 896, -2261 29 788, -1996 42 -2899, 505 43 -3018, 767 62 -847, -134 63 -960, 117 64 -333, 2335 65 -218, 2032 72 419, 481 73 546, 238 82 675, 4192 83 470, 4089 84 4627, 4070 85 4970, 4147 120 552, -2758 121 344, -3040 122 -1471, -2313 123 -1308, -2558 124 -946, -2402 125 -598, -2326 126 834, -3029 127 1290, -2928 128 894, -2261 129 790, -1996 130 883, -2567 131 1061, -2352 142 -2902, 505 143 -3014, 767 162 -851, -134 163 -956, 119 164 -330, 2335 165 -221, 2032 172 421, 481 173 543, 238 182 675, 4188 183 470, 4092 184 4627, 4073 185 4970, 4145 300 -345, -8927 800 -1042, 5248 801 -1751, 4983 899 747, -1937 900 -1029, -7973 901 1542, -1022 990 196, -5293 997 10506, -9192 998 -13380, 10602 999 13245, 10602 REF 999 POS 999 NOM 1 -1.00000E+01 10 2.89000E+02 11 1.82000E+03 12 7.00000E+01 13 8.33000E+00 14 1.00000E+03 15 -2.10000E+01 16 -2.10000E+01 21 1.20000E+02 22 -3.10000E+01 31 1.20000E+02 32 1.20000E+02 33 -3.60000E+01 36 1.20000E+02 37 -4.10000E+01 41 1.20000E+02 42 5.00000E+01 300 0.00000E+00 301 8.10137E+01 302 3.98002E+02 303 4.68002E+02 304 6.97502E+01 305 4.90769E+01 310 2.88547E+02 311 1.81744E+03 312 6.98672E+01 313 8.31299E+00 314 9.98594E+02 315 1.20000E+02 316 8.00000E+01 317 8.00000E+01 321 1.19785E+02 331 1.19820E+02 332 1.19766E+02 336 1.19816E+02 341 1.19801E+02 342 4.99277E+01 410 1.20000E+02 420 5.00000E+01 500 2.00000E+00 600 3.00000E+00 800 1.20000E+02 SCAN 1 6, 8, 0, 0 10 6, 8, 0, 0 11 5, 3, 0, 0 12 5, 5, 0, 0 13 10, 8, 0, 0 14 2, 10, 0, 0 21 22, 22, 0, 0 31 11, 1, 0, 0 32 20, 16, 0, 0 36 12, 21, 0, 0 41 21, 18, 0, 0 42 13, 15, 0, 0 800 22, 22, 0, 0 CODE 2 3, 2, 0, 0 3 3, 4, 0, 0 4 3, 3, 0, 0 5 3, 4, 0, 0 6 3, 5, 0, 0 7 3, 4, 0, 0 8 3, 5, 0, 0 10 3, 5, 200, 0 11 3, 2, 0, 0 12 3, 2, 0, 0 13 3, 2, 100, 0 14 3, 2, 0, 0 21 3, 2, 0, 0 26 3, 2, 0, 0 31 3, 2, 0, 0 32 3, 2, 0, 0 36 3, 2, 0, 0 41 3, 3, 0, 0 42 3, 3, 0, 0 TOL 10 -5.00000E+01, 1.00000E+00 11 -5.00000E+01, 1.00000E+00 12 -5.00000E+01, 1.00000E+00 13 -5.00000E+01, 1.00000E+00 14 -5.00000E+01, 1.00000E+00 21 -5.00000E+01, 1.00000E+00 31 -5.00000E+01, 1.00000E+00 32 -5.00000E+01, 1.00000E+00 36 -5.00000E+01, 1.00000E+00 41 -5.00000E+01, 1.00000E+00 42 -5.00000E+01, 1.00000E+00 110 -1.00000E+00, 1.00000E+00 111 -1.00000E+00, 1.00000E+00 112 -1.00000E+00, 1.00000E+00 113 -1.00000E+00, 1.00000E+00 114 -1.00000E+00, 1.00000E+00 121 -1.00000E+00, 1.00000E+00 131 -1.00000E+00, 1.00000E+00 132 -1.00000E+00, 1.00000E+00 136 -1.00000E+00, 1.00000E+00 141 -1.00000E+00, 1.00000E+00 142 -1.00000E+00, 1.00000E+00 800 -1.00000E+02, 1.00000E+02 DUM 1 0.00000E+00 3 0.00000E+00 10 -9.08304E+00 11 -1.88462E+01 12 -1.02679E+01 13 -1.68573E+01 14 -1.01500E+01 21 -1.90625E+01 31 -1.41146E+01 32 -1.20833E+01 36 -1.70833E+01 41 -1.09375E+01 42 -1.86250E+01 110 -1.62197E-01 111 -1.37363E-01 112 -2.00893E-01 113 -3.85912E-01 114 -1.75000E-01 121 -1.30208E-01 131 -1.17187E-01 132 -1.75781E-01 136 -1.69271E-01 141 -1.88802E-01 142 -1.56250E-01 301 0.00000E+00 302 0.00000E+00 303 0.00000E+00 304 0.00000E+00 305 0.00000E+00 306 0.00000E+00 307 0.00000E+00 308 0.00000E+00 309 0.00000E+00 310 0.00000E+00 311 0.00000E+00 312 0.00000E+00 313 0.00000E+00 314 0.00000E+00 315 0.00000E+00 316 0.00000E+00 317 0.00000E+00 318 0.00000E+00 319 0.00000E+00 320 0.00000E+00 321 0.00000E+00 331 0.00000E+00 332 0.00000E+00 336 0.00000E+00 341 0.00000E+00 342 0.00000E+00 410 0.00000E+00 420 0.00000E+00 610 0.00000E+00 611 0.00000E+00 612 0.00000E+00 613 0.00000E+00 614 0.00000E+00 621 0.00000E+00 631 0.00000E+00 632 0.00000E+00 636 0.00000E+00 641 0.00000E+00 642 0.00000E+00 799 0.00000E+00 800 0.00000E+00 801 1.00000E+00 802 0.00000E+00 803 0.00000E+00 804 1.20000E+02 805 0.00000E+00 806 0.00000E+00 807 0.00000E+00 808 0.00000E+00 809 0.00000E+00 810 0.00000E+00 811 4.20000E+01 812 0.00000E+00 813 0.00000E+00 CUT 10 -5.50000E-01 11 -5.50000E-01 12 -5.70000E-01 13 -6.40000E-01 14 -5.50000E-01 21 -5.50000E-01 31 -5.50000E-01 32 -5.50000E-01 36 -5.50000E-01 41 -5.50000E-01 42 -5.50000E-01 99 1.00000E+00 110 -1.30000E-01 111 -1.40000E-01 112 -1.60000E-01 113 -3.20000E-01 114 -1.80000E-01 121 -1.60000E-01 131 -1.30000E-01 132 -1.80000E-01 136 -1.60000E-01 141 -1.50000E-01 142 -1.30000E-01 800 3.00000E+01 TURN 99 9.90000E+01 800 9.90000E+01 CROS 2 -1.00000E+00 INC 10 1 11 1 12 1 13 1 14 1 21 1 31 1 32 1 36 1 41 1 42 1 99 1 111 1 112 1 113 1 114 1 121 1 131 1 132 1 136 1 141 1 142 1 800 1 SPD 1 2.00000E+01, 2.00000E+01 2 3.00000E+01, 3.00000E+01 3 5.00000E+00, 5.00000E+00 800 1.20000E+01, 1.20000E+01 PWR 1 100, 100 2 100, 100 800 100, 100 STRG 1 _ 2 0 3  333 L01 340 9/15/06 350 > DATE < 1000 N DLTA 900 -1776, -6036 993 0, 1 994 -1, 0 998 0, 0 999 0, 9249 SCAL 1 1.00000E+01