HEADING: (2767.B1) LANCER - A PASS 2-FEB-06 STEVE D. STEP 1 GOTO STEP 9 2 GOTO STEP 220 3 GOTO STEP 240 4 GOSU STEP 153 5 GOTO STEP 9 6 GOTO STEP 140 7 GOTO STEP 263 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 263 10 REM "**********NOTE - SUBSTRATE ORENTATION - NUMBER TO THE LEFT ****" 11 REM " ****** USE POSITION 300 TO ALIGN PROBES **** " 12 GOSU STEP 107 3.00000E+00 3.00000E+00 1.00630E+04 1.00550E+04 13 LET DLTA 900 = POS 900 - POS 899 14 DISP DLTA 900 15 MOVE POS 899 SPD 0 16 REM "***************CAPACITOR TEST ****************" 17 GOTO STEP 35 18 FOR I = 5.00000E+02 TO 5.06000E+02 19 PRIN "TEST CAP NO " I 20 TEST UNK I CODE 500 TOL 500 ACC 0 REJ 24 REG 0 21 TEST UNK I CODE 501 TOL 500 ACC 0 REJ 24 REG 0 22 PRIN "CAPACITOR SHORT REJECT # " I 23 LET REG 3 = 1.00000E+00 24 NEXT I 25 IF BIT 4 # 00 THEN GOTO STEP 68 26 IF REG 3 # 00 THEN GOTO STEP 100 27 LET M = DUM 811 28 FOR I = 1.00000E+00 TO M 29 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 30 TEST UNK I CODE 2 TOL I ACC 32 REJ 0 REG 0 31 TEST UNK I CODE 3 TOL I ACC 0 REJ 0 REG 1 32 NEXT I 33 IF REG 1 # 00 THEN GOTO STEP 100 34 IF DUM 3 < - 3.00000E+00 THEN GOSU STEP 199 35 REM "****************TRIM GOLD RESONATOR ************" 36 FOR I = 1.00000E+01 TO 1.10000E+01 37 LET N = I - 9.00000E+00 38 PRIN "RESONATOR TRIM PASS " N 39 GOTO STEP 58 40 MOVE POS 200 SPD 0 41 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 201 DENS I BRAN 0 42 MOVE POS 202 SPD 0 43 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 203 DENS I BRAN 0 44 MOVE POS 204 SPD 0 45 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 205 DENS I BRAN 0 46 MOVE POS 206 SPD 0 47 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 207 DENS I BRAN 0 48 MOVE POS 208 SPD 0 49 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 209 DENS I BRAN 0 50 MOVE POS 210 SPD 0 51 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 211 DENS I BRAN 0 52 MOVE POS 212 SPD 0 53 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 213 DENS I BRAN 0 54 MOVE POS 214 SPD 0 55 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 215 DENS I BRAN 0 56 MOVE POS 216 SPD 0 57 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 217 DENS I BRAN 0 58 MOVE POS 218 SPD 0 59 ALIN POS 0 REF 0 REG 0 60 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 219 DENS 200 BRAN 0 61 GOTO STEP 66 62 MOVE POS 220 SPD 0 63 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 221 DENS 200 BRAN 0 64 MOVE POS 222 SPD 0 65 SERP UNK 200 CODE 200 CUT 200 MODE 200 POS 223 DENS 200 BRAN 0 66 NEXT I 67 GOTO STEP 140 68 LET M = DUM 811 69 FOR I = 1.00000E+00 TO M 70 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 71 LET J = I * 2.00000E+00 72 LET K = J + 1.00000E+00 73 LET L = I + 1.00000E+02 74 MOVE POS J SPD 0 75 IF DUM I > - 4.50000E+01 THEN LET J = 3.00000E+00 76 IF DUM I > - 2.00000E+01 THEN LET J = 4.00000E+00 77 IF DUM I > - 1.00000E+01 THEN LET J = 5.00000E+00 78 IF DUM I > - 5.00000E+00 THEN LET J = 6.00000E+00 79 IF MASK I # - 01 THEN GOTO STEP 94 80 IF BIT 4 # 00 THEN GOTO STEP 88 81 SERP UNK L CODE 5 CUT I MODE 2 POS K DENS I BRAN 0 82 TEST UNK L CODE 5 TOL L ACC 84 REJ 0 REG 0 83 TEST UNK L CODE 6 TOL L ACC 0 REJ 0 REG 0 84 LET J = I * 2.00000E+00 + 1.00000E+02 85 LET K = J + 1.00000E+00 86 MOVE POS J SPD 0 87 SERP UNK L CODE 6 CUT L MODE 2 POS K DENS I BRAN 0 88 TEST UNK L CODE 7 TOL L ACC 90 REJ 0 REG 0 89 TEST UNK L CODE 8 TOL L ACC 0 REJ 0 REG 2 90 IF REG 50 = 1.00000E+00 THEN GOSU STEP 158 91 NEXT I 92 IF REG 50 = 1.00000E+00 THEN GOSU STEP 166 93 IF BIT 4 # 00 THEN GOTO STEP 99 94 IF REG 2 # 00 THEN GOTO STEP 102 95 PRIN "GOOD PART" 96 MOVE POS 800 SPD 0 97 CGEN DENS 800 SCAL 800 POS 801 STRG 333 98 NEXT I 99 GOTO STEP 104 100 PRIN "INITAL REJECT" STRG 3 101 GOTO STEP 104 102 PRIN "TRIM REJECT" STRG 3 103 GOTO STEP 104 104 MOVE POS 899 SPD 0 105 HAND 106 EXIT 107 IF DUM 807 = 00 THEN GOTO STEP 114 108 PRIN STRG 3 109 PRIN "PROGRAM STOPPED AT CIRCUIT # " DUM 807 110 PRIN STRG 3 111 PRIN "WHICH CIRCUIT # DO YOU WANT TO START ON ? " STRG 1 112 READ TTY:;DUM 808 %1.0 THEN QUIT 113 LET DUM 807 = 00 114 MOVE POS 990 SPD 0 115 SHOM REG 30 116 SHOM REG 0 117 MOVE POS 300 SPD 0 118 LET DLTA 999 = DLTA 993 * VALU 4 119 LET DLTA 998 = POS 997 120 IF BIT 6 = 01 THEN GOTO STEP 126 121 PRIN "ALIGN PART THETA" 122 ALIN POS 998 REF 999 REG 998 123 PRIN "ALIGN X-Y" 124 ALIN POS 0 REF 0 REG 0 125 LET DLTA 998 = POS 997 - POS 999 126 GOTO STEP 136 127 LET J = VALU 2 128 LET K = VALU 1 * VALU 2 129 FOR M = J TO K J 130 IF DUM 807 = M THEN GOTO STEP 134 131 NEXT M 132 LET DLTA 998 = DLTA 998 + DLTA 999 133 GOTO STEP 136 134 LET DLTA 998 = DLTA 998 + ( VALU 3 * DLTA 994 ) 135 LET DLTA 999 = - DLTA 999 136 GOSU STEP 144 137 IF DUM 807 < ( VALU 1 * VALU 2 ) THEN GOTO STEP 127 138 LET DUM 807 = 00 139 LET DUM 808 = 00 140 SHOM REG 990 141 SHOM REG 0 142 SHOM REG 991 143 QUIT 144 LET DUM 807 = DUM 807 + 01 145 IF DUM 808 > DUM 807 THEN EXIT 146 SMOV DLTA 998 SPD 0 REG 0 147 ALIN POS 0 REF 0 REG 0 148 SMOV DLTA 0 SPD 0 REG 0 149 LET DLTA 998 = 00 150 PRIN "CIRCUIT # " DUM 807 151 GOSU STEP 13 152 EXIT 153 LET REG 50 = 01 154 PRIN STRG 3 "DRIFT TEST ON" STRG 3 155 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 156 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 157 EXIT 158 GOSU STEP 195 01 159 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 160 LET J = I + 3.00000E+02 161 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 162 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 163 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 164 PRIN BIT 11 "R" I " NOM" J "=" NOM J 165 EXIT 166 LET M = DUM 811 167 GOSU STEP 194 DUM 804 168 GOSU STEP 180 01 169 GOSU STEP 174 02 170 PRIN "COMPLETE" STRG 3 171 LET REG 50 = 00 172 GOSU STEP 195 05 173 EXIT 174 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 175 READ TTY:;%1.0 THEN QUIT 176 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 177 PRIN "DRIFT IS BASED ON 120 SECONDS" 178 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 179 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 180 FOR N = 01 TO M 181 GOSU STEP 190 182 IF NOM J < 00 THEN GOTO STEP 188 183 IF VALU 1 = 02 THEN GOTO STEP 187 184 GOSU STEP 195 DUM 805 185 PRIN BIT 11 "TESTING R" I 186 TEST UNK 300 CODE 10 TOL I ACC 188 REJ 188 REG 0 187 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 188 NEXT N 189 EXIT 190 IF NOM N < 00 THEN LET N = - NOM N 191 LET I = N 192 LET J = I + 3.00000E+02 193 EXIT 194 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 195 LET L = VALU 1 * 2.50000E+03 196 FOR K = 01 TO L 197 NEXT K 198 EXIT 199 LET M = DUM 811 200 FOR N = 01 TO M 201 GOSU STEP 214 202 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 205 203 PRIN "DID NOT LOG" 204 EXIT 205 NEXT N 206 PRIN "DATA LOGGING" 207 LET DUM 800 = DUM 800 + 01 208 FOR N = 01 TO M 209 GOSU STEP 214 210 LET DUM J = DUM J + DUM I 211 LET DUM K = DUM K + ( DUM I * DUM I ) 212 NEXT N 213 EXIT 214 IF NOM N < 00 THEN LET N = - NOM N 215 LET I = N 216 LET J = I + 3.00000E+02 217 LET K = I + 6.00000E+02 218 LET L = I + 1.00000E+02 219 EXIT 220 LET M = DUM 811 221 FOR N = 01 TO M 222 GOSU STEP 214 223 LET DUM I = 00 224 LET DUM J = 00 225 LET DUM K = 00 226 LET DUM L = 00 227 NEXT N 228 FOR I = 8.00000E+02 TO 8.08000E+02 229 LET DUM I = 00 230 NEXT I 231 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 232 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 233 IF STRG 1000 # "Y" THEN GOTO STEP 237 234 PRIN STRG 3 "SETTING SERIAL # (DUM 799) TO 0, WAS " DUM 799 235 LET DUM 799 = 00 236 REM "GOTO STEP 598 " 237 LET DUM 801 = 01 238 PRIN "DUMS ARE ZEROED" STRG 3 239 QUIT 240 GOSU STEP 254 241 LET M = DUM 811 242 FOR N = 01 TO M 243 GOSU STEP 214 244 LET DUM 804 = DUM J / DUM 800 245 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 246 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 247 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 248 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 249 LET DUM 803 = I 250 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 251 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 252 NEXT N 253 QUIT 254 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 255 PRIN " DATE: " STRG 350 256 PRIN " " 257 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 340 258 PRIN " " 259 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 260 PRIN " NOMINAL" 261 PRIN " " 262 EXIT 263 PRIN STRG 3 "ENTER NEW LOT NUMBER (WAS " STRG 333 " ) " STRG 1 264 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 265 PRIN "LOT NUMBER IS " STRG 333 266 LET DUM 801 = 01 267 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 200 SPD 12 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 500 NOM 500 SCAN I MAT 0 FUNC 0 DUM 500 501 NOM 500 SCAN I MAT 0 FUNC 0 DUM 500 502 NOM 500 SCAN I MAT 0 FUNC 0 DUM 500 503 NOM 500 SCAN I MAT 0 FUNC 0 DUM 500 504 NOM 500 SCAN I MAT 0 FUNC 0 DUM 500 505 NOM 500 SCAN I MAT 0 FUNC 0 DUM 500 506 NOM 500 SCAN I MAT 0 FUNC 0 DUM 500 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 1798, -4061 3 1683, -3797 4 -2902, -3173 5 -2770, -3469 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 2629, -6371 43 2347, -6500 64 1225, 1900 65 1145, 2226 102 1794, -4061 103 1687, -3797 104 -2900, -3173 105 -2775, -3469 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 2629, -6375 143 2347, -6498 164 1223, 1900 165 1143, 2226 200 460, -4605 201 310, -4500 202 393, -2884 203 300, -4605 204 -300, -2880 205 390, -3005 206 -369, -4509 207 -215, -4612 208 -320, -4595 209 -208, -2900 210 -287, -5320 211 -208, -5118 212 -212, -5211 213 -725, -5122 214 400, -5118 215 300, -5310 216 800, -5210 217 305, -5113 218 300, -5179 219 -215, -5179 220 366, -4600 221 366, -5130 222 -274, -4600 223 -274, -5130 300 -3182, -6964 800 -3972, 1258 801 -3972, 2258 899 670, -4351 900 230, -7864 990 1367, -899 997 -2006, 62 998 -9165, 4024 999 793, 4025 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.70000E+06 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 14, 21, 0, 0 2 2, 2, 0, 0 21 10, 9, 0, 0 32 16, 19, 0, 0 500 12, 13, 0, 0 501 6, 6, 0, 0 502 3, 3, 0, 0 503 1, 2, 0, 0 504 8, 4, 0, 0 505 9, 9, 0, 0 506 20, 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 500 8, 2, 0, 0 501 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 500 -1.50000E+02, 1.50000E+02 800 -1.00000E+02, 1.00000E+02 DUM 1 -1.75521E+01 2 -1.70312E+01 3 0.00000E+00 21 -1.77083E+01 31 1.41600E+01 32 -1.65625E+01 101 9.22336E+18 102 9.22336E+18 121 9.22336E+18 131 0.00000E+00 132 9.22336E+18 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 321 0.00000E+00 322 0.00000E+00 332 0.00000E+00 500 0.00000E+00 601 0.00000E+00 602 0.00000E+00 621 0.00000E+00 631 0.00000E+00 632 0.00000E+00 799 0.00000E+00 800 0.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 1.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 2.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 2.00000E+01, 2.00000E+01 11 3.50000E+01, 3.50000E+01 12 1.50000E+01, 1.50000E+01 800 1.00000E+01, 1.00000E+01 PWR 1 100, 100 2 100, 100 800 100, 100 STRG 1 _ 2 0 3  333 L04 340 350 > DATE < 1000 Y DLTA 900 -440, -3513 993 0, 1 994 -1, 0 998 0, 0 999 0, 10055 SCAL 800 1.20000E+01