HEADING: (2767.A1) LANCER "PASS A" 3-MAR-05 STEVE D. STEP 1 GOTO STEP 9 2 GOTO STEP 179 3 GOTO STEP 199 4 GOSU STEP 112 5 GOTO STEP 9 6 GOTO STEP 99 7 GOTO STEP 222 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 222 10 REM " **********USE POSITION 300 TO ALIGN PROBES ******** " 11 GOSU STEP 66 3.00000E+00 3.00000E+00 1.00630E+04 1.00550E+04 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 FOR I = 1.00000E+01 TO 1.10000E+01 16 MOVE POS 200 SPD 0 17 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 201 DENS I BRAN 0 18 MOVE POS 202 SPD 0 19 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 203 DENS I BRAN 0 20 MOVE POS 204 SPD 0 21 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 205 DENS I BRAN 0 22 PRIN "PASS #" I 23 NEXT I 24 LET M = DUM 811 25 FOR I = 1.00000E+00 TO M 26 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 27 TEST UNK I CODE 2 TOL I ACC 29 REJ 0 REG 0 28 TEST UNK I CODE 3 TOL I ACC 0 REJ 0 REG 1 29 NEXT I 30 IF REG 1 # 00 THEN GOTO STEP 59 31 IF DUM 3 < - 3.00000E+00 THEN GOSU STEP 158 32 LET M = DUM 811 33 FOR I = 1.00000E+00 TO M 34 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 35 LET J = I * 2.00000E+00 36 LET K = J + 1.00000E+00 37 LET L = I + 1.00000E+02 38 MOVE POS J SPD 0 39 IF DUM I > - 4.50000E+01 THEN LET J = 3.00000E+00 40 IF DUM I > - 2.00000E+01 THEN LET J = 4.00000E+00 41 IF DUM I > - 1.00000E+01 THEN LET J = 5.00000E+00 42 IF DUM I > - 5.00000E+00 THEN LET J = 6.00000E+00 43 IF MASK I # - 01 THEN GOTO STEP 56 44 SERP UNK L CODE 5 CUT I MODE 2 POS K DENS I BRAN 0 45 TEST UNK L CODE 5 TOL L ACC 47 REJ 0 REG 0 46 TEST UNK L CODE 6 TOL L ACC 0 REJ 0 REG 0 47 LET J = I * 2.00000E+00 + 1.00000E+02 48 LET K = J + 1.00000E+00 49 MOVE POS J SPD 0 50 SERP UNK L CODE 6 CUT L MODE 2 POS K DENS I BRAN 0 51 TEST UNK L CODE 7 TOL L ACC 53 REJ 0 REG 0 52 TEST UNK L CODE 8 TOL L ACC 0 REJ 0 REG 2 53 IF REG 50 = 1.00000E+00 THEN GOSU STEP 117 54 NEXT I 55 IF REG 50 = 1.00000E+00 THEN GOSU STEP 125 56 IF REG 2 # 00 THEN GOTO STEP 61 57 PRIN "GOOD PART" 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 990 SPD 0 74 SHOM REG 30 75 SHOM REG 0 76 MOVE POS 300 SPD 0 77 LET DLTA 999 = DLTA 993 * VALU 4 78 LET DLTA 998 = POS 997 79 IF BIT 6 = 01 THEN GOTO STEP 85 80 PRIN "ALIGN PART THETA" 81 ALIN POS 998 REF 999 REG 998 82 PRIN "ALIGN X-Y" 83 ALIN POS 0 REF 0 REG 0 84 LET DLTA 998 = POS 997 - POS 999 85 GOTO STEP 95 86 LET J = VALU 2 87 LET K = VALU 1 * VALU 2 88 FOR M = J TO K J 89 IF DUM 807 = M THEN GOTO STEP 93 90 NEXT M 91 LET DLTA 998 = DLTA 998 + DLTA 999 92 GOTO STEP 95 93 LET DLTA 998 = DLTA 998 + ( VALU 3 * DLTA 994 ) 94 LET DLTA 999 = - DLTA 999 95 GOSU STEP 103 96 IF DUM 807 < ( VALU 1 * VALU 2 ) THEN GOTO STEP 86 97 LET DUM 807 = 00 98 LET DUM 808 = 00 99 SHOM REG 990 100 SHOM REG 0 101 SHOM REG 991 102 QUIT 103 LET DUM 807 = DUM 807 + 01 104 IF DUM 808 > DUM 807 THEN EXIT 105 SMOV DLTA 998 SPD 0 REG 0 106 ALIN POS 0 REF 0 REG 0 107 SMOV DLTA 0 SPD 0 REG 0 108 LET DLTA 998 = 00 109 PRIN "CIRCUIT # " DUM 807 110 GOSU STEP 12 111 EXIT 112 LET REG 50 = 01 113 PRIN STRG 3 "DRIFT TEST ON" STRG 3 114 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 115 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 116 EXIT 117 GOSU STEP 154 01 118 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 119 LET J = I + 3.00000E+02 120 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 121 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 122 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 123 PRIN BIT 11 "R" I " NOM" J "=" NOM J 124 EXIT 125 LET M = DUM 811 126 GOSU STEP 153 DUM 804 127 GOSU STEP 139 01 128 GOSU STEP 133 02 129 PRIN "COMPLETE" STRG 3 130 LET REG 50 = 00 131 GOSU STEP 154 05 132 EXIT 133 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 134 READ TTY:;%1.0 THEN QUIT 135 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 136 PRIN "DRIFT IS BASED ON 120 SECONDS" 137 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 138 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 139 FOR N = 01 TO M 140 GOSU STEP 149 141 IF NOM J < 00 THEN GOTO STEP 147 142 IF VALU 1 = 02 THEN GOTO STEP 146 143 GOSU STEP 154 DUM 805 144 PRIN BIT 11 "TESTING R" I 145 TEST UNK 300 CODE 10 TOL I ACC 147 REJ 147 REG 0 146 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 147 NEXT N 148 EXIT 149 IF NOM N < 00 THEN LET N = - NOM N 150 LET I = N 151 LET J = I + 3.00000E+02 152 EXIT 153 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 154 LET L = VALU 1 * 2.50000E+03 155 FOR K = 01 TO L 156 NEXT K 157 EXIT 158 LET M = DUM 811 159 FOR N = 01 TO M 160 GOSU STEP 173 161 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 164 162 PRIN "DID NOT LOG" 163 EXIT 164 NEXT N 165 PRIN "DATA LOGGING" 166 LET DUM 800 = DUM 800 + 01 167 FOR N = 01 TO M 168 GOSU STEP 173 169 LET DUM J = DUM J + DUM I 170 LET DUM K = DUM K + ( DUM I * DUM I ) 171 NEXT N 172 EXIT 173 IF NOM N < 00 THEN LET N = - NOM N 174 LET I = N 175 LET J = I + 3.00000E+02 176 LET K = I + 6.00000E+02 177 LET L = I + 1.00000E+02 178 EXIT 179 LET M = DUM 811 180 FOR N = 01 TO M 181 GOSU STEP 173 182 LET DUM I = 00 183 LET DUM J = 00 184 LET DUM K = 00 185 LET DUM L = 00 186 NEXT N 187 FOR I = 8.00000E+02 TO 8.08000E+02 188 LET DUM I = 00 189 NEXT I 190 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 191 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 192 IF STRG 1000 # "Y" THEN GOTO STEP 196 193 PRIN STRG 3 "SETTING SERIAL # (DUM 799) TO 0, WAS " DUM 799 194 LET DUM 799 = 00 195 REM "GOTO STEP 598 " 196 LET DUM 801 = 01 197 PRIN "DUMS ARE ZEROED" STRG 3 198 QUIT 199 GOSU STEP 213 200 LET M = DUM 811 201 FOR N = 01 TO M 202 GOSU STEP 173 203 LET DUM 804 = DUM J / DUM 800 204 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 205 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 206 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 207 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 208 LET DUM 803 = I 209 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 210 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 211 NEXT N 212 QUIT 213 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 214 PRIN " DATE: " STRG 350 215 PRIN " " 216 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 340 217 PRIN " " 218 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 219 PRIN " NOMINAL" 220 PRIN " " 221 EXIT 222 PRIN STRG 3 "ENTER NEW LOT NUMBER (WAS " STRG 333 " ) " STRG 1 223 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 224 PRIN "LOT NUMBER IS " STRG 333 225 PRIN " "  "ENTER TODAY'S DATE (WAS " STRG 340 ") " STRG 1 226 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 227 PRIN " NEW DATE IS " STRG 340 228 LET DUM 801 = 01 229 QUIT MODE 1 TURN 99 CROS 0 INC 99 2 TURN 99 CROS 0 INC 99 99 TURN 99 CROS 0 INC 99 121 TURN 99 CROS 2 INC 99 132 TURN 99 CROS 2 INC 99 200 TURN 99 CROS 0 INC 99 800 TURN 800 CROS 0 INC 800 DENS 1 SPD 1 PWR 1 2 SPD 1 PWR 1 10 SPD 10 PWR 1 11 SPD 11 PWR 1 21 SPD 1 PWR 1 32 SPD 1 PWR 1 101 SPD 2 PWR 1 102 SPD 2 PWR 1 121 SPD 2 PWR 1 132 SPD 2 PWR 1 800 SPD 800 PWR 800 UNK 1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 2 NOM 2 SCAN 2 MAT 0 FUNC 0 DUM 2 21 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 21 32 NOM 32 SCAN 32 MAT 0 FUNC 0 DUM 32 101 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 101 102 NOM 2 SCAN 2 MAT 0 FUNC 0 DUM 102 121 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 121 132 NOM 32 SCAN 32 MAT 0 FUNC 0 DUM 132 200 NOM 200 SCAN 1 MAT 0 FUNC 0 DUM 1 300 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 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 5 -01 11 -01 12 -01 13 -01 14 -01 15 -01 16 -01 17 -01 21 -01 31 -01 32 -01 POS 2 1173, -7442 3 1049, -7172 4 -3527, -6543 5 -3399, -6866 22 2794, -5863 23 2445, -5975 24 1927, -5971 25 2176, -5866 26 1122, -5779 27 993, -5548 28 1582, -5124 29 1148, -5264 31 1061, -2352 42 2034, -9756 43 1730, -9874 64 630, -1478 65 499, -1132 102 1171, -7442 103 1053, -7172 104 -3525, -6543 105 -3403, -6866 106 3187, 1987 107 3316, 1782 108 3222, 1416 109 2840, 1316 110 2790, -2143 111 2974, -1913 121 0, 0 122 2794, -5863 123 2445, -5975 124 1927, -5971 125 2176, -5866 126 1122, -5779 127 993, -5548 128 1582, -5124 129 1148, -5264 130 883, -2567 131 1061, -2352 142 2034, -9759 143 1730, -9871 164 628, -1478 165 503, -1132 200 -923, -6273 201 -267, -6337 202 -248, -6265 203 -317, -7906 204 -930, -7901 205 -835, -6254 300 -3251, -6875 899 43, -7679 900 43, -7679 901 1542, -1022 990 1367, -899 997 10717, -10623 998 -16707, 13536 999 13577, 13536 REF 999 POS 999 NOM 1 1.20000E+02 2 1.20000E+02 3 -2.10000E+01 21 1.20000E+02 22 -3.20000E+01 32 1.00000E+02 200 8.00000E+01 301 8.10137E+01 302 3.98002E+02 303 4.68002E+02 321 1.19813E+02 331 0.00000E+00 332 9.96253E+01 500 2.00000E+00 600 3.00000E+00 800 1.20000E+02 SCAN 1 11, 6, 0, 0 2 2, 4, 0, 0 21 10, 9, 0, 0 32 16, 19, 0, 0 800 22, 22, 0, 0 CODE 1 3, 1, 150, 0 2 3, 2, 150, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 6 3, 3, 0, 0 7 3, 4, 100, 0 8 3, 5, 100, 0 10 3, 5, 0, 0 21 3, 2, 0, 0 22 3, 3, 0, 0 31 3, 2, 0, 0 32 3, 2, 0, 0 200 3, 1, 0, 0 TOL 1 -5.00000E+01, 1.00000E+00 2 -5.00000E+01, 1.00000E+00 21 -5.00000E+01, 1.00000E+00 32 -5.00000E+01, 1.00000E+00 101 -1.00000E+00, 1.00000E+00 102 -1.00000E+00, 1.00000E+00 121 -1.00000E+00, 1.00000E+00 132 -1.00000E+00, 1.00000E+00 800 -1.00000E+02, 1.00000E+02 DUM 1 -5.20833E-02 2 -7.81250E-02 3 0.00000E+00 21 -7.81250E-02 31 1.41600E+01 32 -9.37500E-02 101 1.36719E-01 102 -8.46354E-02 121 -7.81250E-02 132 -7.81250E-02 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 3.00000E+00 808 0.00000E+00 809 0.00000E+00 810 0.00000E+00 811 3.10000E+01 812 0.00000E+00 813 0.00000E+00 CUT 1 -5.00000E-01 2 -5.00000E-01 21 -5.00000E-01 32 -5.00000E-01 99 1.00000E+00 101 -1.00000E-01 102 -1.00000E-01 121 -1.00000E-01 132 -1.00000E-01 200 -5.00000E-01 800 3.00000E+01 TURN 3 6.80000E+01 4 5.00000E+01 5 6.80000E+01 10 6.00000E+01 11 7.00000E+01 99 9.90000E+01 800 9.90000E+01 CROS 2 -1.00000E+00 INC 1 1 2 1 3 1 4 1 5 1 21 1 32 1 99 1 101 1 102 1 121 1 132 1 800 1 SPD 1 2.00000E+01, 2.00000E+01 2 2.50000E+01, 2.50000E+01 10 1.50000E+01, 1.50000E+01 11 2.00000E+01, 2.00000E+01 800 1.20000E+01, 1.20000E+01 PWR 1 100, 100 2 100, 100 800 100, 100 STRG 1 _ 2 0 3  333 340 350 > DATE < 1000 N DLTA 900 0, 0 993 0, 1 994 -1, 0 998 0, 0 999 0, 10055