HEADING: F0429 (FO429.A) COARSE TRIM S&R 25'S 3-21-96 STEP 1 GOTO STEP 9 2 GOTO STEP 179 3 GOTO STEP 197 4 GOSU STEP 112 5 GOTO STEP 9 6 GOTO STEP 101 7 GOTO STEP 242 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 242 10 MOVE POS 300 SPD 0 11 GOSU STEP 69 2.00000E+00 6.00000E+00 1.52400E+04 5.08000E+03 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 GOSU STEP 250 16 REM " *** INITIAL TEST ***" 17 LET M = DUM 811 18 FOR I = 01 TO M 19 IF NOM I < 00 THEN LET I = - NOM I 20 TEST UNK I CODE 2 TOL I ACC 22 REJ 0 REG 0 21 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 22 LET DUM 444 = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 23 PRIN BIT 4 "R" I "= " DUM 444 " OHMS" 24 NEXT I 25 IF DUM 2 < - 2.00000E+00 THEN GOSU STEP 158 26 IF REG 1 # 00 THEN GOTO STEP 56 27 PRIN "FINAL TEST" 28 LET M = DUM 811 29 FOR I = 01 TO M 30 IF NOM I < 00 THEN LET I = - NOM I 31 IF MASK I = 00 THEN NEXT I 32 LET J = I * 02 33 LET K = J + 01 34 LET L = I + 1.00000E+02 35 LET M = 02 36 IF DUM I > - 4.50000E+01 THEN LET M = 03 37 IF DUM I > - 2.00000E+01 THEN LET M = 04 38 IF DUM I > - 1.00000E+01 THEN LET M = 05 39 MOVE POS J SPD 0 40 IF MASK I > 02 THEN IF MASK I < 04 THEN GOTO STEP 43 41 TRIM UNK I CODE M CUT I MODE I POS K DENS 1 BRAN 0 42 GOTO STEP 44 43 SERP UNK I CODE 4 CUT I MODE I POS K DENS 1 BRAN 0 44 TEST UNK I CODE 5 TOL L ACC 0 REJ 0 REG 2 45 LET DUM 444 = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 46 PRIN "R " I " = " DUM 444 "OHMS" 47 IF REG 50 = 01 THEN GOSU STEP 117 48 NEXT I 49 IF REG 50 = 01 THEN GOSU STEP 125 50 IF REG 2 # 00 THEN GOTO STEP 58 51 REM "** TRIM LOT # ON GOOD PARTS **" 52 PRIN "GOOD PART" 53 REM "MOVE POS 800 SPD 0" 54 REM "CGEN DENS 1 SCAL 1 POS 801 STRG 333" 55 GOTO STEP 59 56 PRIN "INITIAL REJECT" STRG 3 57 GOTO STEP 59 58 PRIN "TRIM REJECT" STRG 3 59 MOVE POS 899 SPD 0 60 PRIN "" 61 HAND 62 EXIT 63 LET J = I * 02 + 1.00000E+02 64 LET K = J + 01 65 LET L = I + 1.00000E+02 66 MOVE POS J SPD 0 67 TRIM UNK I CODE 5 CUT L MODE L POS K DENS 1 BRAN 0 68 EXIT 69 IF DUM 807 = 00 THEN GOTO STEP 76 70 PRIN STRG 3 71 PRIN "PROGRAM STOPPED AT CIRCUIT # " DUM 807 72 PRIN STRG 3 73 PRIN "WHICH CIRCUIT # DO YOU WANT TO START ON ? " STRG 1 74 READ TTY:;DUM 808 %1.0 THEN QUIT 75 LET DUM 807 = 00 76 REM "MOVE POS 990" 77 SHOM REG 990 78 SHOM REG 0 79 LET DLTA 999 = DLTA 993 * VALU 4 80 LET DLTA 998 = POS 997 81 IF BIT 6 = 01 THEN GOTO STEP 87 82 PRIN "ALIGN PART THETA" 83 ALIN POS 998 REF 999 REG 998 84 PRIN "ALIGN X-Y" 85 ALIN POS 0 REF 0 REG 0 86 LET DLTA 998 = POS 997 - POS 999 87 GOTO STEP 97 88 LET J = VALU 2 89 LET K = VALU 1 * VALU 2 90 FOR M = J TO K J 91 IF DUM 807 = M THEN GOTO STEP 95 92 NEXT M 93 LET DLTA 998 = DLTA 998 + DLTA 999 94 GOTO STEP 97 95 LET DLTA 998 = DLTA 998 + ( VALU 3 * DLTA 994 ) 96 LET DLTA 999 = - DLTA 999 97 GOSU STEP 105 98 IF DUM 807 < ( VALU 1 * VALU 2 ) THEN GOTO STEP 88 99 LET DUM 807 = 00 100 LET DUM 808 = 00 101 SHOM REG 990 102 SHOM REG 0 103 SHOM REG 991 104 QUIT 105 LET DUM 807 = DUM 807 + 01 106 IF DUM 808 > DUM 807 THEN EXIT 107 SMOV DLTA 998 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 194 193 GOTO STEP 195 194 LET DUM 801 = 01 195 PRIN "DUMS ARE ZEROED" STRG 3 196 QUIT 197 GOSU STEP 211 198 LET M = DUM 811 199 FOR N = 01 TO M 200 GOSU STEP 173 201 LET DUM 804 = DUM J / DUM 800 202 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 203 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 204 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 205 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 206 LET DUM 803 = I 207 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 208 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 209 NEXT N 210 QUIT 211 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 212 PRIN " LOT # " STRG 333 " " STRG 350 213 PRIN " " 214 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 215 PRIN " NOMINAL" 216 PRIN " " 217 EXIT 218 LET DUM 802 = I 219 LET DUM 803 = L 220 LET DUM 804 = N 221 LET I = VALU 1 222 LET K = VALU 2 223 LET L = VALU 3 224 LET M = VALU 4 225 TEST UNK I CODE 98 TOL I ACC 0 REJ 0 REG 0 226 FOR J = L TO M 227 IF DUM I > DUM J THEN GOTO STEP 236 228 LET DUM 804 = DUM I 229 MOVE POS K SPD 300 230 LET K = K + 01 231 SERP UNK I CODE 99 CUT 99 MODE 99 POS K DENS 99 BRAN 0 232 TEST UNK I CODE 98 TOL I ACC 0 REJ 0 REG 0 233 LET K = K - 01 234 LET DUM 804 = DUM I - DUM 804 235 PRIN BIT 4 "BAR # " J "CHANGE = " DUM 804 "%" 236 LET K = K + 02 237 NEXT J 238 LET I = DUM 802 239 LET L = DUM 803 240 LET N = DUM 804 241 EXIT 242 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 243 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 244 PRIN  "ENTER TODAY'S DATE >" STRG 1 245 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 246 PRIN  "LOT NUMBER IS: " STRG 333 247 PRIN "TODAY'S DATE IS: " STRG 350 248 LET DUM 801 = 01 249 QUIT 250 FOR I = 1.01000E+02 TO 1.04000E+02 251 LET J = I * 02 252 LET K = J + 01 253 LET L = I + 1.00000E+02 254 MOVE POS J SPD 0 255 NIBL DLTA I POS K DENS 1 BRAN 0 256 NIBL DLTA L POS J DENS 1 BRAN 0 257 NEXT I 258 EXIT MODE 1 TURN 1 CROS 0 INC 1 2 TURN 2 CROS 0 INC 2 3 TURN 3 CROS 0 INC 3 4 TURN 4 CROS 0 INC 0 5 TURN 5 CROS 0 INC 0 99 TURN 99 CROS 0 INC 99 DENS 1 SPD 1 PWR 1 99 SPD 99 PWR 1 UNK 1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 2 NOM 2 SCAN 2 MAT 0 FUNC 0 DUM 2 3 NOM 3 SCAN 3 MAT 0 FUNC 0 DUM 3 4 NOM 4 SCAN 4 MAT 0 FUNC 0 DUM 4 5 NOM 5 SCAN 5 MAT 0 FUNC 0 DUM 5 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 MASK 1 03 2 03 3 03 4 01 5 01 POS 2 7450, -2910 3 1200, 745 4 125, -2500 5 -440, 765 6 0, 0 7 0, 0 8 0, 0 9 0, 0 10 0, 0 11 0, 0 202 848, -3020 203 848, 880 204 -1166, -2645 205 -1166, 920 206 -2595, -2645 207 -2595, 920 208 -4225, -2645 209 -4225, 920 300 -4712, 1294 800 0, 0 801 0, 0 899 1856, -1873 900 1856, -1873 990 0, 0 997 8882, -8321 998 -19043, 22022 999 10418, 22022 REF 999 POS 999 NOM 1 3.00000E+07 2 3.00000E+06 3 3.00000E+05 4 3.00000E+04 5 3.00000E+03 301 0.00000E+00 302 9.37781E+05 303 9.88480E+04 304 9.89025E+03 305 9.71828E+02 SCAN 1 15, 18, 0, 0 2 19, 23, 0, 0 3 20, 23, 0, 0 4 23, 21, 0, 0 5 22, 23, 0, 0 CODE 1 3, 1, 0, 0 2 3, 2, 50, 0 3 3, 3, 100, 0 4 3, 4, 50, 0 5 3, 3, 50, 0 6 3, 6, 50, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 98 3, 2, 100, 0 99 0, 0, 1, 0 TOL 1 -1.00000E+02, 1.00000E+02 2 -1.00000E+02, 1.00000E+02 3 -1.00000E+02, 1.00000E+02 4 -1.00000E+02, 1.00000E+02 5 -1.00000E+02, 1.00000E+02 101 -5.00000E+00, 5.00000E+00 102 -5.00000E+00, 5.00000E+00 103 -5.00000E+00, 5.00000E+00 104 -5.00000E+00, 5.00000E+00 105 -5.00000E+00, 5.00000E+00 DUM 1 -9.97542E+01 2 -9.88053E+01 3 -8.57066E+01 4 -1.05867E+01 5 -2.09000E+01 101 0.00000E+00 102 0.00000E+00 103 0.00000E+00 104 0.00000E+00 105 0.00000E+00 301 0.00000E+00 302 0.00000E+00 303 0.00000E+00 304 0.00000E+00 305 0.00000E+00 444 2.37300E+03 601 0.00000E+00 602 0.00000E+00 603 0.00000E+00 604 0.00000E+00 605 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 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 5.00000E+00 812 4.00000E+00 813 4.00000E+00 901 -2.30000E+01 902 -2.30000E+01 903 -2.30000E+01 904 -2.30000E+01 905 -7.50000E+00 906 -7.50000E+00 907 -7.50000E+00 908 -7.50000E+00 909 -7.50000E+00 910 -7.50000E+00 1000 4.00000E+00 CUT 2 -1.00000E+00 3 -1.00000E+00 4 -1.00000E+00 5 -1.00000E+00 99 9.90000E+01 TURN 1 7.50000E+01 2 7.50000E+01 3 7.50000E+01 4 0.00000E+00 5 0.00000E+00 99 9.90000E+01 INC 1 120 2 120 3 120 99 3 SPD 1 1.90000E+01, 1.90000E+01 99 1.00000E+02, 1.00000E+02 300 3.00000E+02, 3.00000E+02 PWR 1 100, 100 STRG 1 _ 2 F0429 CRSE 3  333 EE1 350 21 MARCH 96 1000 N DLTA 101 0, 3900 102 0, 3565 103 0, 3565 104 0, 3565 201 0, -3900 202 0, -3565 203 0, -3565 204 0, -3565 900 0, 0 993 0, 1 994 -1, 0 998 0, 0 999 0, 5080 SCAL 1 1.00000E+01 333 0.00000E+00