HEADING:P20522.A1 RIGHT ANGLE (F0705.R) S&R MODEL 25 1/NOV/04 STEVE D STEP 1 GOTO STEP 9 2 GOTO STEP 160 3 GOTO STEP 178 4 GOSU STEP 92 5 GOTO STEP 9 6 GOTO STEP 81 7 GOTO STEP 232 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOSU STEP 232 10 GOTO STEP 12 11 REM " ****** USE POSITION 100 TO ALIGN HEAD TO PROBES ******" 12 GOSU STEP 57 13 LET DLTA 900 = POS 900 - POS 899 14 DISP DLTA 900 15 MOVE POS 899 SPD 0 16 LET M = DUM 811 17 FOR I = 1.00000E+00 TO M 18 IF NOM I < - 1.00000E+00 THEN LET I = - NOM I 19 TEST UNK I CODE 4 TOL I ACC 21 REJ 0 REG 0 20 TEST UNK I CODE 3 TOL I ACC 0 REJ 0 REG 1 21 NEXT I 22 IF DUM 3 < - 3.00000E+00 THEN GOSU STEP 146 23 IF REG 1 # 00 THEN GOTO STEP 51 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 LET J = I * 2.00000E+00 28 LET K = J + 1.00000E+00 29 LET L = I + 1.00000E+02 30 IF MASK I # 01 THEN GOTO STEP 46 31 MOVE POS J SPD 0 32 LET J = 2.00000E+00 33 IF DUM I > - 4.50000E+01 THEN LET J = 3.00000E+00 34 IF DUM I > - 2.00000E+01 THEN LET J = 4.00000E+00 35 IF DUM I > - 1.00000E+01 THEN LET J = 5.00000E+00 36 IF DUM I > - 5.00000E+00 THEN LET J = 6.00000E+00 37 SERP UNK L CODE J CUT I MODE L POS K DENS I BRAN 0 38 TEST UNK L CODE 7 TOL L ACC 40 REJ 0 REG 0 39 TEST UNK L CODE 8 TOL L ACC 40 REJ 0 REG 0 40 LET J = I * 2.00000E+00 + 1.00000E+02 41 MOVE POS J SPD 0 42 SERP UNK L CODE 6 CUT L MODE L POS K DENS I BRAN 0 43 TEST UNK L CODE 7 TOL L ACC 45 REJ 0 REG 0 44 TEST UNK L CODE 8 TOL L ACC 45 REJ 0 REG 2 45 IF REG 50 = 01 THEN GOSU STEP 97 46 NEXT I 47 IF REG 50 = 01 THEN GOSU STEP 105 48 IF REG 2 # 00 THEN GOTO STEP 53 49 PRIN " GOOD PART " 50 GOTO STEP 54 51 PRIN "INITAL REJECT " STRG 3 52 GOTO STEP 54 53 PRIN "TRIM REJECT" STRG 3 54 MOVE POS 899 SPD 0 55 HAND 56 EXIT 57 IF DUM 807 = 00 THEN GOTO STEP 64 58 PRIN STRG 3 59 PRIN "PROGRAM STOPPED AT PART # " DUM 807 60 PRIN STRG 3 61 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 62 READ TTY:;DUM 808 %1.0 THEN QUIT 63 LET DUM 807 = 00 64 MOVE POS 990 SPD 0 65 SHOM REG 990 66 SHOM REG 0 67 MOVE POS 100 SPD 0 68 LET DLTA 998 = POS 997 69 IF BIT 6 = 01 THEN GOTO STEP 75 70 PRIN "ALIGN THETA" 71 ALIN POS 998 REF 999 REG 998 72 PRIN "ALIGN X-Y" 73 ALIN POS 0 REF 0 REG 0 74 LET DLTA 998 = POS 997 - POS 999 75 GOTO STEP 77 76 LET DLTA 998 = DLTA 998 + DLTA 999 77 GOSU STEP 85 78 IF DUM 807 < DUM 999 THEN GOTO STEP 76 79 LET DUM 807 = 00 80 LET DUM 808 = 00 81 SHOM REG 990 82 SHOM REG 0 83 SHOM REG 991 84 QUIT 85 LET DUM 807 = DUM 807 + 01 86 IF DUM 808 > DUM 807 THEN EXIT 87 SMOV DLTA 998 SPD 0 REG 0 88 LET DLTA 998 = 00 89 PRIN "PART # " DUM 807 90 GOSU STEP 13 91 EXIT 92 LET REG 50 = 01 93 PRIN STRG 3 "DRIFT TEST ON" STRG 3 94 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 95 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 96 EXIT 97 GOSU STEP 134 01 98 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 99 LET J = I + 3.00000E+02 100 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 101 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 102 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 103 PRIN BIT 11 "R" I " NOM" J "=" NOM J 104 EXIT 105 LET M = DUM 811 106 GOSU STEP 133 DUM 804 107 GOSU STEP 119 01 108 GOSU STEP 113 02 109 PRIN "COMPLETE" STRG 3 110 LET REG 50 = 00 111 GOSU STEP 134 05 112 EXIT 113 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 114 READ TTY:;%1.0 THEN QUIT 115 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 116 PRIN "DRIFT IS BASED ON 120 SECONDS" 117 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 118 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 119 FOR N = 01 TO M 120 GOSU STEP 129 121 IF NOM J < 00 THEN GOTO STEP 127 122 IF VALU 1 = 02 THEN GOTO STEP 126 123 GOSU STEP 134 DUM 805 124 PRIN BIT 11 "TESTING R" I 125 TEST UNK 300 CODE 10 TOL I ACC 127 REJ 127 REG 0 126 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 127 NEXT N 128 EXIT 129 IF NOM N < 00 THEN LET N = - NOM N 130 LET I = N 131 LET J = I + 3.00000E+02 132 EXIT 133 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 134 LET L = VALU 1 * 2.50000E+03 135 FOR K = 01 TO L 136 NEXT K 137 EXIT 138 LET M = DUM 811 139 FOR N = 01 TO M 140 GOSU STEP 154 141 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 144 142 PRIN "DID NOT LOG" 143 EXIT 144 NEXT N 145 IF DUM 807 = 4.00000E+00 THEN GOTO STEP 147 146 PRIN "DATA LOGGING" 147 LET DUM 800 = DUM 800 + 01 148 FOR N = 01 TO M 149 GOSU STEP 154 150 LET DUM J = DUM J + DUM I 151 LET DUM K = DUM K + ( DUM I * DUM I ) 152 NEXT N 153 EXIT 154 IF NOM N < 00 THEN LET N = - NOM N 155 LET I = N 156 LET J = I + 3.00000E+02 157 LET K = I + 6.00000E+02 158 LET L = I + 1.00000E+02 159 EXIT 160 LET M = DUM 811 161 FOR N = 01 TO M 162 GOSU STEP 154 163 LET DUM I = 00 164 LET DUM J = 00 165 LET DUM K = 00 166 LET DUM L = 00 167 NEXT N 168 FOR I = 8.00000E+02 TO 8.08000E+02 169 LET DUM I = 00 170 NEXT I 171 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 172 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 173 IF STRG 1000 # "Y" THEN GOTO STEP 175 174 GOTO STEP 176 175 LET DUM 801 = 01 176 PRIN "DUMS ARE ZEROED" STRG 3 177 QUIT 178 GOSU STEP 192 179 LET M = DUM 811 180 FOR N = 01 TO M 181 GOSU STEP 154 182 LET DUM 804 = DUM J / DUM 800 183 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 184 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 185 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 186 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 187 LET DUM 803 = I 188 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 189 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 190 NEXT N 191 QUIT 192 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 193 PRIN " DATE: " STRG 350 194 PRIN " " 195 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 340 196 PRIN " " 197 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 198 PRIN " NOMINAL" 199 PRIN " " 200 EXIT 201 REM "VALU 1= TEST VALUE, 2= 1ST DUM/REG, 3= LAST DUM, 4= 0,1 OR 2" 202 IF VALU 4 < 2.00000E+00 THEN GOTO STEP 206 203 PRIN " " 204 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1 205 PRIN " " 206 LET J = VALU 2 207 LET K = VALU 3 208 FOR L = J TO K 209 IF REG L < 00 THEN LET L = - REG L 210 LET M = L + 01 211 IF VALU 4 > 00 THEN GOTO STEP 216 212 LET REG L = 00 213 NEXT L 214 PRIN STRG 3 "DISTRIBUTION DUMS ARE ZEROED" 215 EXIT 216 IF VALU 4 = 02 THEN GOTO STEP 221 217 IF VALU 1 > DUM L THEN IF VALU 1 < DUM M THEN LET REG L = REG L + 01 218 NEXT L 219 IF VALU 1 > DUM M THEN LET REG M = REG M + 01 220 EXIT 221 LET J = VALU 1 222 LET DUM 805 = NOM J + ( NOM J * DUM L / 1.00000E+02 ) 223 LET DUM 806 = NOM J + ( NOM J * DUM M / 1.00000E+02 ) 224 PRIN "# BETWEEN " %5.2 DUM L "% & " %5.2 DUM M STRG 1 225 IF DUM 806 < 1.00000E+04 THEN GOTO STEP 228 226 PRIN "% (" %8.0 DUM 805 "&" %8.0 DUM 806 "OHMS ) =" %6.0 REG L 227 GOTO STEP 229 228 PRIN "% (" %7.3 DUM 805 "&" %7.3 DUM 806 "OHMS ) =" %6.0 REG L 229 NEXT L 230 PRIN "# ABOVE " %5.2 DUM M "% =" %6.0 REG K 231 EXIT 232 PRIN STRG 3 "ENTER NEW LOT NUMBER (WAS " STRG 333 " ) " STRG 1 233 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 234 PRIN "LOT NUMBER IS " STRG 333 235 PRIN "" 236 PRIN "ENTER TODAY'S DATE (WAS " STRG 340 " ) " STRG 1 237 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 238 PRIN " NEW DATE IS " STRG 340 239 LET DUM 801 = 01 240 QUIT MODE 1 TURN 99 CROS 1 INC 99 99 TURN 99 CROS 0 INC 99 101 TURN 99 CROS 1 INC 99 DENS 1 SPD 1 PWR 1 2 SPD 1 PWR 1 101 SPD 2 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 101 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 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 999 07747 MASK 1 01 2 00 3 01 4 01 5 01 6 01 POS 1 33, -1770 2 1207, -323 3 1362, -239 4 3, 0 100 -505, -5190 101 33, -1766 102 1207, -317 103 1362, -245 104 0, 0 300 1437, -2206 899 1272, -166 900 -667, -4935 990 0, 0 997 13860, -1865 998 -14996, -2167 999 14612, -2167 REF 999 POS 999 NOM 1 7.50000E+01 2 7.50000E+01 301 7.49062E+01 302 7.50000E+01 SCAN 1 6, 18, 0, 0 2 6, 18, 0, 0 CODE 1 3, 1, 150, 0 2 3, 2, 150, 0 3 3, 2, 0, 0 4 3, 4, 0, 0 6 3, 2, 0, 0 7 3, 6, 0, 0 8 3, 3, 0, 0 9 3, 2, 0, 0 10 3, 2, 0, 0 TOL 1 -3.50000E+01, 1.00000E+00 2 -3.50000E+01, 2.00000E+00 101 -1.00000E+00, 1.00000E+00 DUM 1 9.22336E+18 2 -2.38333E+01 3 -2.37917E+01 4 -2.37917E+01 5 -2.76000E+00 6 -2.76000E+00 101 0.00000E+00 102 0.00000E+00 103 -3.20000E-01 104 -3.50000E-01 105 0.00000E+00 106 0.00000E+00 301 3.68934E+19 302 0.00000E+00 303 -8.97474E+03 304 -2.37917E+01 305 -2.13597E+03 306 -2.13597E+03 601 3.40281E+38 602 0.00000E+00 603 3.71968E+05 604 5.66043E+02 605 1.42574E+05 606 1.42574E+05 800 1.40000E+01 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 5.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 1.00000E+00 812 0.00000E+00 813 0.00000E+00 999 2.70000E+01 CUT 1 -5.00000E-01 101 -7.50000E-02 TURN 99 9.90000E+01 CROS 1 -5.00000E-01 4 -5.00000E-01 5 -5.00000E-01 101 -8.00000E-01 INC 99 1 SPD 0 1.00000E+01, 1.00000E+01 1 3.50000E+01, 3.50000E+01 2 4.50000E+01, 4.50000E+01 PWR 1 100, 100 STRG 1 _ 2 0 3  333 6 340 350 >DATE< 27/OCT/20 1000 N DLTA 900 -1939, -4769 998 -1081, 0 999 -1081, 0