HEADING:H2642 GENRAD S&R 25'S 2-24-98 GF STEP 1 GOTO STEP 9 2 GOTO STEP 231 3 GOTO STEP 251 4 GOSU STEP 164 5 GOTO STEP 9 6 GOTO STEP 145 7 GOTO STEP 156 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 156 10 GOTO STEP 13 11 REM " TYPE 12^T FOR PART STATUS PRINTOUT " 12 GOTO STEP 91 13 IF DUM 807 < 02 THEN GOSU STEP 98 14 MOVE POS 100 SPD 0 15 GOSU STEP 103 2.00000E+00 2.00000E+00 1.52400E+04 1.52400E+04 16 LET DLTA 900 = POS 900 - POS 899 17 DISP DLTA 900 18 MOVE POS 899 SPD 0 19 LET M = DUM 811 20 FOR I = 01 TO M 21 IF NOM I < 00 THEN LET I = - NOM I 22 TEST UNK I CODE 3 TOL I ACC 24 REJ 0 REG 0 23 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 24 NEXT I 25 IF DUM 3 < - 2.00000E+00 THEN GOSU STEP 210 26 IF REG 1 # 00 THEN GOTO STEP 81 27 REM "****** CAP SHORT TEST ROUTINE ****************" 28 FOR I = 5.01000E+02 TO 5.06000E+02 29 TEST UNK 500 CODE 81 TOL 500 ACC 0 REJ 33 REG 0 30 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 33 REG 0 31 PRIN "SHORT # " I 32 LET REG 3 = 01 33 NEXT I 34 IF REG 3 # 00 THEN GOTO STEP 81 35 REM "**************************************************" 36 LET M = DUM 811 37 FOR I = 01 TO M 38 IF NOM I < 00 THEN LET I = - NOM I 39 LET J = I * 02 40 LET K = J + 1.00000E+00 41 LET L = I + 1.00000E+02 42 MOVE POS J SPD 0 43 LET J = 02 44 IF DUM I > - 4.50000E+01 THEN LET J = 03 45 IF DUM I > - 2.00000E+01 THEN LET J = 04 46 IF DUM I > - 1.00000E+01 THEN LET J = 05 47 LET N = 01 48 IF NOM I < 5.00000E+02 THEN LET N = 02 49 TRIM UNK L CODE J CUT I MODE I POS K DENS N BRAN 0 50 IF MASK I < 02 THEN GOTO STEP 57 51 REM "******** STEPS FOR 2 TRIMS ****************" 52 LET J = I * 02 + 1.00000E+02 53 LET K = J + 1.00000E+00 54 MOVE POS J SPD 0 55 TRIM UNK L CODE 6 CUT L MODE 100 POS K DENS N BRAN 0 56 REM "*******************************************" 57 TEST UNK L CODE 6 TOL L ACC 60 REJ 0 REG 2 58 TEST UNK L CODE 2 TOL 0 ACC 0 REJ 0 REG 0 59 IF DUM I > 00 THEN LET REG 4 = 01 60 IF REG 50 = 01 THEN GOSU STEP 169 61 NEXT I 62 IF REG 50 = 01 THEN GOSU STEP 177 63 IF REG 2 = 00 THEN GOTO STEP 70 64 IF REG 4 = 01 THEN GOTO STEP 81 65 LET REG 4 = 01 66 LET REG 2 = 00 67 PRIN "RE-TRIMMING PART" 68 GOTO STEP 36 69 REM "> TRIM LOT # ON GOOD PARTS <" 70 MOVE POS 96 SPD 0 71 CGEN DENS 333 SCAL 333 POS 97 STRG 333 72 LET DUM 799 = DUM 799 + 1.00000E+00 73 LET DUM 805 = DUM 799 / 1.00000E+04 74 LET K = 03 75 LET L = 04 76 LET STRG 11 = %4.4 DUM 805 77 LET STRG 1000 = K L STRG 11 78 PRIN "SERIAL # IS: " STRG 333 " " STRG 1000 79 MOVE POS 98 SPD 0 80 CGEN DENS 333 SCAL 334 POS 99 STRG 1000 81 MOVE POS 899 SPD 0 82 LET K = 8.01000E+02 83 IF REG 1 # 00 THEN LET K = 8.02000E+02 84 IF REG 2 # 00 THEN LET K = 8.03000E+02 85 IF REG 3 # 00 THEN LET K = 8.04000E+02 86 LET J = DUM 807 + 1.00000E+03 87 LET REG J = K 88 PRIN STRG K 89 HAND 90 EXIT 91 LET M = DUM 814 92 FOR I = 01 TO M 93 LET J = I + 1.00000E+03 94 LET K = REG J 95 PRIN "PART #" I " IS " STRG K 96 NEXT I 97 QUIT 98 LET M = DUM 814 + 1.00000E+03 99 FOR I = 1.00100E+03 TO M 100 LET REG I = 8.00000E+02 101 NEXT I 102 EXIT 103 IF DUM 807 = 00 THEN GOTO STEP 110 104 PRIN STRG 3 105 PRIN "PART # >" DUM 807 "< WAS TRIMMED LAST." 106 PRIN STRG 3 107 PRIN " WHICH PART DO YOU WANT TO START ON ?" STRG 1 108 READ TTY:;DUM 808 %1.0 THEN QUIT 109 LET DUM 807 = 00 110 SHOM REG 30 111 SHOM REG 0 112 LET DUM 998 = VALU 3 113 LET DUM 999 = VALU 4 114 LET REG 990 = 00 115 LET REG 991 = 00 116 LET DLTA 995 = DLTA 993 117 IF BIT 6 = 00 THEN GOTO STEP 121 118 LET DLTA 997 = POS 997 119 SMOV DLTA 997 SPD 0 REG 0 120 GOTO STEP 125 121 ALIN POS 998 REF 999 REG 998 122 ALIN POS 0 REF 0 REG 0 123 LET DLTA 995 = DLTA 993 124 LET DLTA 998 = POS 997 - POS 999 125 GOSU STEP 149 126 LET REG 990 = REG 990 + 01 127 LET REG 991 = REG 991 + 01 128 LET REG 999 = ( REG 991 - 01 ) * DUM 999 129 LET REG 999 = REG 991 * DUM 999 - REG 999 130 LET DLTA 999 = REG 999 * DLTA 995 131 LET DLTA 998 = DLTA 998 + DLTA 999 132 GOSU STEP 149 133 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 127 134 IF REG 990 = VALU 1 THEN GOTO STEP 142 135 LET DLTA 995 = DLTA 995 * ( - 01 ) 136 LET REG 999 = ( REG 990 - 01 ) * DUM 998 137 LET REG 999 = REG 990 * DUM 998 - REG 999 138 LET DLTA 997 = REG 999 * DLTA 994 139 LET DLTA 998 = DLTA 998 + DLTA 997 140 GOSU STEP 149 141 LET REG 991 = 00 142 IF REG 990 < VALU 1 THEN GOTO STEP 126 143 LET DUM 807 = 00 144 LET DUM 808 = 00 145 SHOM REG 30 146 SHOM REG 31 147 SHOM REG 32 148 GOTO STEP 91 149 LET DUM 807 = DUM 807 + 01 150 IF DUM 808 > DUM 807 THEN EXIT 151 SMOV DLTA 998 SPD 0 REG 0 152 LET DLTA 998 = 00 153 PRIN "PART # " DUM 807 154 GOSU STEP 16 155 EXIT 156 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 157 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 158 PRIN  "ENTER TODAY'S DATE > " STRG 1 159 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 160 PRIN  "LOT NUMBER IS: " STRG 333 161 PRIN "TODAY'S DATE IS: " STRG 350 162 LET DUM 801 = 01 163 QUIT 164 LET REG 50 = 01 165 PRIN STRG 3 "DRIFT TEST ON" STRG 3 166 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 167 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 168 EXIT 169 GOSU STEP 206 01 170 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 171 LET J = I + 3.00000E+02 172 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 173 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 174 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 175 PRIN BIT 11 "R" I " NOM" J "=" NOM J 176 EXIT 177 LET M = DUM 811 178 GOSU STEP 205 DUM 804 179 GOSU STEP 191 01 180 GOSU STEP 185 02 181 PRIN "COMPLETE" STRG 3 182 LET REG 50 = 00 183 GOSU STEP 206 05 184 EXIT 185 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 186 READ TTY:;%1.0 THEN QUIT 187 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 188 PRIN "DRIFT IS BASED ON 120 SECONDS" 189 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 190 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 191 FOR N = 01 TO M 192 GOSU STEP 201 193 IF NOM J < 00 THEN GOTO STEP 199 194 IF VALU 1 = 02 THEN GOTO STEP 198 195 GOSU STEP 206 DUM 805 196 PRIN BIT 11 "TESTING R" I 197 TEST UNK 300 CODE 10 TOL I ACC 199 REJ 199 REG 0 198 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 199 NEXT N 200 EXIT 201 IF NOM N < 00 THEN LET N = - NOM N 202 LET I = N 203 LET J = I + 3.00000E+02 204 EXIT 205 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 206 LET L = VALU 1 * 2.50000E+03 207 FOR K = 01 TO L 208 NEXT K 209 EXIT 210 LET M = DUM 811 211 FOR N = 01 TO M 212 GOSU STEP 225 213 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 216 214 PRIN "DID NOT LOG" 215 EXIT 216 NEXT N 217 PRIN "DATA LOGGING" 218 LET DUM 800 = DUM 800 + 01 219 FOR N = 01 TO M 220 GOSU STEP 225 221 LET DUM J = DUM J + DUM I 222 LET DUM K = DUM K + ( DUM I * DUM I ) 223 NEXT N 224 EXIT 225 IF NOM N < 00 THEN LET N = - NOM N 226 LET I = N 227 LET J = I + 3.00000E+02 228 LET K = I + 6.00000E+02 229 LET L = I + 1.00000E+02 230 EXIT 231 LET M = DUM 811 232 FOR N = 01 TO M 233 GOSU STEP 225 234 LET DUM I = 00 235 LET DUM J = 00 236 LET DUM K = 00 237 LET DUM L = 00 238 NEXT N 239 FOR I = 8.00000E+02 TO 8.08000E+02 240 LET DUM I = 00 241 NEXT I 242 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 243 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 244 IF STRG 1000 # "Y" THEN GOTO STEP 248 245 PRIN STRG 3 "SETTING SERIAL # (DUM 799) TO 0, WAS " DUM 799 246 LET DUM 799 = 00 247 GOTO STEP 249 248 LET DUM 801 = 01 249 PRIN "DUMS ARE ZEROED" STRG 3 250 QUIT 251 GOSU STEP 265 252 LET M = DUM 811 253 FOR N = 01 TO M 254 GOSU STEP 225 255 LET DUM 804 = DUM J / DUM 800 256 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 257 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 258 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 259 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 260 LET DUM 803 = I 261 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 262 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 263 NEXT N 264 QUIT 265 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 266 PRIN " DATE: " STRG 350 267 PRIN " " 268 PRIN "LOT #: " STRG 333 269 PRIN " " 270 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 271 PRIN " NOMINAL" 272 PRIN " " 273 EXIT MODE 3 TURN 3 CROS 0 INC 0 7 TURN 7 CROS 0 INC 0 9 TURN 9 CROS 0 INC 0 12 TURN 12 CROS 0 INC 0 16 TURN 16 CROS 0 INC 0 18 TURN 18 CROS 0 INC 0 19 TURN 19 CROS 0 INC 0 20 TURN 20 CROS 0 INC 0 21 TURN 21 CROS 0 INC 0 22 TURN 22 CROS 0 INC 0 100 TURN 0 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 333 SPD 333 PWR 1 UNK 3 NOM 3 SCAN 3 MAT 0 FUNC 0 DUM 3 7 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 7 9 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 9 12 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 12 16 NOM 16 SCAN 16 MAT 0 FUNC 0 DUM 16 18 NOM 18 SCAN 18 MAT 0 FUNC 0 DUM 18 19 NOM 19 SCAN 19 MAT 0 FUNC 0 DUM 19 20 NOM 20 SCAN 20 MAT 0 FUNC 0 DUM 20 21 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 21 22 NOM 22 SCAN 22 MAT 0 FUNC 0 DUM 22 103 NOM 3 SCAN 3 MAT 0 FUNC 0 DUM 103 107 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 107 109 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 109 112 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 112 116 NOM 16 SCAN 16 MAT 0 FUNC 0 DUM 116 118 NOM 18 SCAN 18 MAT 0 FUNC 0 DUM 118 119 NOM 19 SCAN 19 MAT 0 FUNC 0 DUM 119 120 NOM 20 SCAN 20 MAT 119 FUNC 0 DUM 120 121 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 121 122 NOM 22 SCAN 22 MAT 121 FUNC 0 DUM 122 300 NOM J SCAN I MAT 0 FUNC 0 DUM I 500 NOM 500 SCAN I MAT 0 FUNC 0 DUM 0 REG 1 00 2 00 3 00 4 00 5 00 30 03 31 00 32 04 50 00 990 02 991 01 998 -01 999 035610 1001 01441 1002 01441 1003 01441 1004 01441 MASK 3 01 7 01 9 01 12 01 16 01 18 01 19 02 20 02 21 02 22 02 POS 6 -5722, -5254 7 -5190, -5861 14 -3730, -5826 15 -3129, -5323 18 -4170, -3680 19 -3000, -3820 24 -5753, 8453 25 -5277, 7862 32 -3790, 7757 33 -3209, 8243 36 -4200, 6390 37 -3035, 6282 38 -1300, -1100 39 2000, -500 40 -1300, 2850 41 2000, 3350 42 -4270, 1280 43 -4560, 750 44 -4270, 2040 45 -4560, 1480 96 6160, 8780 97 6160, 6900 98 6160, 7930 99 6160, 6900 100 -3801, 556 138 -1400, -1100 139 -1400, -500 140 -1400, 2850 141 -1400, 3350 142 -4580, 1280 143 -4580, 750 144 -4580, 2040 145 -4580, 1480 899 -4707, 1910 900 -4820, 436 997 7663, -2919 998 -17564, 21181 999 11918, 21181 REF 999 POS 999 NOM 1 -3.00000E+00 3 6.40000E+03 4 -7.00000E+00 7 6.50000E+03 8 -9.00000E+00 9 1.00000E+03 10 -1.20000E+01 12 6.40000E+03 13 -1.60000E+01 16 6.50000E+03 17 -1.80000E+01 18 1.00000E+03 19 3.00000E+04 20 3.00000E+04 21 4.00000E+03 22 4.00000E+03 303 6.38259E+03 307 6.48734E+03 309 9.97593E+02 312 6.38472E+03 316 6.48550E+03 318 9.97304E+02 319 2.99276E+04 320 2.99166E+04 321 3.99491E+03 322 3.99323E+03 500 2.00000E+00 SCAN 3 6, 3, 0, 0 7 7, 4, 0, 0 9 10, 2, 0, 0 12 19, 20, 0, 0 16 17, 19, 0, 0 18 23, 23, 0, 0 19 12, 12, 0, 0 20 13, 11, 0, 0 21 1, 17, 0, 0 22 22, 18, 0, 0 501 19, 22, 0, 0 502 17, 14, 0, 0 503 2, 21, 0, 0 504 6, 0, 0, 0 505 7, 10, 0, 0 506 2, 5, 0, 0 CODE 1 3, 1, 0, 0 2 3, 2, 0, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 6 3, 6, 50, 0 10 3, 8, 200, 0 81 8, 1, 0, 0 TOL 3 -5.00000E+01, 7.50000E-01 7 -5.00000E+01, 7.50000E-01 9 -5.00000E+01, 7.50000E-01 12 -5.00000E+01, 7.50000E-01 16 -5.00000E+01, 7.50000E-01 18 -5.00000E+01, 7.50000E-01 19 -5.00000E+01, 0.00000E+00 20 -5.00000E+01, 0.00000E+00 21 -5.00000E+01, 0.00000E+00 22 -5.00000E+01, 0.00000E+00 103 -5.00000E-01, 5.00000E-01 107 -5.00000E-01, 5.00000E-01 109 -5.00000E-01, 5.00000E-01 112 -5.00000E-01, 5.00000E-01 116 -5.00000E-01, 5.00000E-01 118 -5.00000E-01, 5.00000E-01 119 -3.80000E-01, 0.00000E+00 120 -1.20000E-01, 1.20000E-01 121 -3.80000E-01, 0.00000E+00 122 -1.20000E-01, 1.20000E-01 500 -1.50000E+02, 1.50000E+02 DUM 1 0.00000E+00 2 0.00000E+00 3 -2.54531E+01 4 0.00000E+00 5 0.00000E+00 6 0.00000E+00 7 -2.80769E+01 8 0.00000E+00 9 -3.55875E+01 10 0.00000E+00 11 0.00000E+00 12 -1.84844E+01 16 -2.17692E+01 18 -2.83125E+01 19 -2.73733E+01 20 -2.50267E+01 21 -2.95375E+01 22 -3.01625E+01 103 -2.57812E-01 107 -2.65385E-01 109 -2.92187E-01 112 -2.05078E-01 116 -1.38462E-01 118 -2.12500E-01 119 -2.43333E-01 120 -4.67805E-02 121 -2.32812E-01 122 -3.60214E-02 301 0.00000E+00 302 0.00000E+00 303 -9.70344E+02 304 0.00000E+00 305 0.00000E+00 306 0.00000E+00 307 -1.09779E+03 308 0.00000E+00 309 -1.27251E+03 310 0.00000E+00 311 0.00000E+00 312 -9.88578E+02 316 -1.17046E+03 318 -1.27375E+03 319 -1.06060E+03 320 -1.05487E+03 321 -1.15774E+03 322 -1.19090E+03 601 0.00000E+00 602 0.00000E+00 603 2.13527E+04 604 0.00000E+00 605 0.00000E+00 606 0.00000E+00 607 2.79172E+04 608 0.00000E+00 609 3.83477E+04 610 0.00000E+00 611 0.00000E+00 612 2.23986E+04 616 3.12940E+04 618 3.73480E+04 619 2.59321E+04 620 2.54011E+04 621 3.09651E+04 622 3.26765E+04 799 7.60000E+01 800 4.50000E+01 801 1.00000E+00 802 0.00000E+00 803 2.20000E+01 804 -2.64645E+01 805 5.13447E+00 806 2.94142E+03 807 0.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 2.20000E+01 812 1.00000E+01 813 1.00000E+01 814 4.00000E+00 998 1.52400E+04 999 1.52400E+04 CUT 3 -3.00000E-01 7 -3.00000E-01 9 -3.00000E-01 12 -3.00000E-01 16 -3.00000E-01 18 -3.00000E-01 19 -5.00000E-01 20 -3.00000E-01 21 -5.00000E-01 22 -4.00000E-01 119 -2.50000E-01 120 -5.00000E-02 121 -2.50000E-01 122 -5.00000E-02 TURN 3 8.20000E+01 7 8.00000E+01 9 1.80000E+01 12 8.00000E+01 16 8.00000E+01 18 1.80000E+01 19 9.45000E+01 20 9.45000E+01 21 5.50000E+01 22 5.50000E+01 SPD 1 1.00000E+01, 1.00000E+01 2 7.00000E+00, 7.00000E+00 333 5.00000E+00, 5.00000E+00 PWR 1 100, 100 STRG 1 _ 2 H2642 3  11 .0076 333 EE1 350 18-MAR-98 800 NOT DONE YET 801 GOOD PART 802 INIT REJ (RES) 803 TRIM REJ (RES) 804 INIT REJ (SHORT) 1000 0076 DLTA 900 -113, -1474 993 0, 1 994 -1, 0 995 0, -1 996 0, 0 997 -15240, 0 998 0, 0 999 0, -15240 SCAL 333 1.20000E+01 334 1.20000E+01