HEADING: F0415A (F0415A.BK) BACK SIDE COARSE TRIM S&R 25'S 3-18-96 SH STEP 1 GOTO STEP 9 2 GOTO STEP 176 3 GOTO STEP 194 4 GOSU STEP 109 5 GOTO STEP 9 6 GOTO STEP 98 7 GOTO STEP 239 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 239 10 MOVE POS 300 SPD 0 11 GOSU STEP 66 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 REM " *** INITIAL TEST ***" 16 LET M = DUM 811 17 FOR I = 01 TO M 18 IF NOM I < 00 THEN LET I = - NOM I 19 TEST UNK I CODE 2 TOL I ACC 21 REJ 0 REG 0 20 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 21 NEXT I 22 IF DUM 2 < - 2.00000E+00 THEN GOSU STEP 155 23 IF REG 1 # 00 THEN GOTO STEP 53 24 GOSU STEP 215 2.00000E+00 1.04000E+02 9.01000E+02 9.10000E+02 25 PRIN "FINAL TEST" 26 LET M = DUM 811 27 FOR I = 01 TO M 28 IF NOM I < 00 THEN LET I = - NOM I 29 IF MASK I = 00 THEN NEXT I 30 LET J = I * 02 31 LET K = J + 01 32 LET L = I + 1.00000E+02 33 LET M = 02 34 IF DUM I > - 4.50000E+01 THEN LET M = 03 35 IF DUM I > - 2.00000E+01 THEN LET M = 04 36 IF DUM I > - 1.00000E+01 THEN LET M = 05 37 IF I = 02 THEN GOTO STEP 41 38 MOVE POS J SPD 0 39 TRIM UNK I CODE M CUT I MODE I POS K DENS 1 BRAN 0 40 GOTO STEP 41 41 TEST UNK I CODE 5 TOL L ACC 0 REJ 0 REG 2 42 LET DUM 444 = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 43 PRIN "R " I " = " DUM 444 "OHMS" 44 IF REG 50 = 01 THEN GOSU STEP 114 45 NEXT I 46 IF REG 50 = 01 THEN GOSU STEP 122 47 IF REG 2 # 00 THEN GOTO STEP 55 48 REM "** TRIM LOT # ON GOOD PARTS **" 49 PRIN "GOOD PART" 50 REM "MOVE POS 800 SPD 0" 51 REM "CGEN DENS 1 SCAL 1 POS 801 STRG 333" 52 GOTO STEP 56 53 PRIN "INITIAL REJECT" STRG 3 54 GOTO STEP 56 55 PRIN "TRIM REJECT" STRG 3 56 MOVE POS 899 SPD 0 57 PRIN "" 58 HAND 59 EXIT 60 LET J = I * 02 + 1.00000E+02 61 LET K = J + 01 62 LET L = I + 1.00000E+02 63 MOVE POS J SPD 0 64 TRIM UNK I CODE 5 CUT L MODE L POS K DENS 1 BRAN 0 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 REM "MOVE POS 990" 74 SHOM REG 990 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 LET DLTA 998 = 00 106 PRIN "CIRCUIT # " DUM 807 107 GOSU STEP 12 108 EXIT 109 LET REG 50 = 01 110 PRIN STRG 3 "DRIFT TEST ON" STRG 3 111 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 112 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 113 EXIT 114 GOSU STEP 151 01 115 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 116 LET J = I + 3.00000E+02 117 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 118 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 119 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 120 PRIN BIT 11 "R" I " NOM" J "=" NOM J 121 EXIT 122 LET M = DUM 811 123 GOSU STEP 150 DUM 804 124 GOSU STEP 136 01 125 GOSU STEP 130 02 126 PRIN "COMPLETE" STRG 3 127 LET REG 50 = 00 128 GOSU STEP 151 05 129 EXIT 130 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 131 READ TTY:;%1.0 THEN QUIT 132 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 133 PRIN "DRIFT IS BASED ON 120 SECONDS" 134 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 135 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 136 FOR N = 01 TO M 137 GOSU STEP 146 138 IF NOM J < 00 THEN GOTO STEP 144 139 IF VALU 1 = 02 THEN GOTO STEP 143 140 GOSU STEP 151 DUM 805 141 PRIN BIT 11 "TESTING R" I 142 TEST UNK 300 CODE 10 TOL I ACC 144 REJ 144 REG 0 143 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 144 NEXT N 145 EXIT 146 IF NOM N < 00 THEN LET N = - NOM N 147 LET I = N 148 LET J = I + 3.00000E+02 149 EXIT 150 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 151 LET L = VALU 1 * 2.50000E+03 152 FOR K = 01 TO L 153 NEXT K 154 EXIT 155 LET M = DUM 811 156 FOR N = 01 TO M 157 GOSU STEP 170 158 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 161 159 PRIN "DID NOT LOG" 160 EXIT 161 NEXT N 162 PRIN "DATA LOGGING" 163 LET DUM 800 = DUM 800 + 01 164 FOR N = 01 TO M 165 GOSU STEP 170 166 LET DUM J = DUM J + DUM I 167 LET DUM K = DUM K + ( DUM I * DUM I ) 168 NEXT N 169 EXIT 170 IF NOM N < 00 THEN LET N = - NOM N 171 LET I = N 172 LET J = I + 3.00000E+02 173 LET K = I + 6.00000E+02 174 LET L = I + 1.00000E+02 175 EXIT 176 LET M = DUM 811 177 FOR N = 01 TO M 178 GOSU STEP 170 179 LET DUM I = 00 180 LET DUM J = 00 181 LET DUM K = 00 182 LET DUM L = 00 183 NEXT N 184 FOR I = 8.00000E+02 TO 8.08000E+02 185 LET DUM I = 00 186 NEXT I 187 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 188 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 189 IF STRG 1000 # "Y" THEN GOTO STEP 191 190 GOTO STEP 192 191 LET DUM 801 = 01 192 PRIN "DUMS ARE ZEROED" STRG 3 193 QUIT 194 GOSU STEP 208 195 LET M = DUM 811 196 FOR N = 01 TO M 197 GOSU STEP 170 198 LET DUM 804 = DUM J / DUM 800 199 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 200 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 201 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 202 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 203 LET DUM 803 = I 204 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 205 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 206 NEXT N 207 QUIT 208 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 209 PRIN " LOT # " STRG 333 " " STRG 350 210 PRIN " " 211 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 212 PRIN " NOMINAL" 213 PRIN " " 214 EXIT 215 LET DUM 802 = I 216 LET DUM 803 = L 217 LET DUM 804 = N 218 LET I = VALU 1 219 LET K = VALU 2 220 LET L = VALU 3 221 LET M = VALU 4 222 TEST UNK I CODE 98 TOL I ACC 0 REJ 0 REG 0 223 FOR J = L TO M 224 IF DUM I > DUM J THEN GOTO STEP 233 225 LET DUM 804 = DUM I 226 MOVE POS K SPD 300 227 LET K = K + 01 228 SERP UNK I CODE 99 CUT 99 MODE 99 POS K DENS 99 BRAN 0 229 TEST UNK I CODE 98 TOL I ACC 0 REJ 0 REG 0 230 LET K = K - 01 231 LET DUM 804 = DUM I - DUM 804 232 PRIN BIT 4 "BAR # " J "CHANGE = " DUM 804 "%" 233 LET K = K + 02 234 NEXT J 235 LET I = DUM 802 236 LET L = DUM 803 237 LET N = DUM 804 238 EXIT 239 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 240 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 241 PRIN  "ENTER TODAY'S DATE >" STRG 1 242 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 243 PRIN  "LOT NUMBER IS: " STRG 333 244 PRIN "TODAY'S DATE IS: " STRG 350 245 LET DUM 801 = 01 246 QUIT MODE 2 TURN 2 CROS 0 INC 0 3 TURN 3 CROS 0 INC 0 4 TURN 4 CROS 0 INC 0 5 TURN 5 CROS 0 INC 0 99 TURN 99 CROS 0 INC 99 101 TURN 101 CROS 0 INC 0 102 TURN 0 CROS 0 INC 0 202 TURN 0 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 99 SPD 99 PWR 1 UNK 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 2 02 3 01 4 01 5 01 POS 6 -1648, 1295 7 -1900, -1429 8 3608, 1252 9 2171, -310 10 6866, -2261 11 6866, 411 104 -5530, 501 105 -5515, 745 106 -5530, -1046 107 -5515, -737 108 -4920, 468 109 -4905, 780 110 -4920, -1032 111 -4905, -745 112 -3390, 501 113 -3375, 748 114 -3390, -43 115 -3375, 318 116 -3390, -532 117 -3375, -225 118 -3390, -1029 119 -3375, -770 120 -3390, -1558 121 -3375, -1252 122 -3390, -2044 123 -3375, -1733 300 -5608, 1831 800 0, 0 801 0, 0 899 1856, -1873 900 1856, -1873 990 0, 0 997 8945, -8042 998 -15787, 21020 999 -15787, -4378 REF 999 POS 999 NOM 1 -2.00000E+00 2 1.00000E+06 3 1.00000E+05 4 1.00000E+04 5 1.00000E+03 302 9.37782E+05 303 9.88480E+04 304 9.89025E+03 305 9.71828E+02 SCAN 2 22, 21, 0, 0 3 20, 19, 0, 0 4 18, 15, 0, 0 5 14, 13, 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 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 102 -1.00000E+01, 1.00000E+01 103 -5.00000E+00, 5.00000E+00 104 -5.00000E+00, 5.00000E+00 105 -5.00000E+00, 5.00000E+00 DUM 2 -1.06880E+00 3 -1.12000E+00 4 -1.10000E+00 5 -1.10000E+00 102 0.00000E+00 103 0.00000E+00 104 0.00000E+00 105 0.00000E+00 302 -8.93696E+02 303 -2.33600E+02 304 -1.48880E+02 305 -4.73375E+02 444 9.89000E+02 602 6.65645E+04 603 4.60964E+03 604 1.88441E+03 605 1.87456E+04 800 1.20000E+01 801 1.00000E+00 802 5.00000E+00 803 1.05000E+02 804 7.11680E+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 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 0.00000E+00 2 0.00000E+00 3 1.00000E+01 4 5.50000E+01 5 0.00000E+00 99 9.90000E+01 101 7.50000E+01 INC 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 F0415A BACK 3  333 EE1 350 19 MARCH 96 1000 N DLTA 900 0, 0 993 0, 1 994 -1, 0 998 0, 0 999 0, -5080 SCAL 1 1.00000E+01 333 0.00000E+00