HEADING:307-1328-00 (P20100.A1) RES COARSE TRIM 2FEB99 BOB STEP 1 GOTO STEP 9 2 GOTO STEP 196 3 GOTO STEP 220 4 GOSU STEP 130 5 GOTO STEP 9 6 GOTO STEP 119 7 GOTO STEP 257 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 257 10 IF DUM 807 = 00 THEN GOSU STEP 80 11 GOTO STEP 15 12 GOTO STEP 86 13 REM "> TYPE 12^T TO PRINT INIT & TRIM VALUES FOR LAST STRIP <" 14 REM "> IF REG 333 = 01 PROGRAM SKIPS PART # TRIM,FOR REWORKS <" 15 GOSU STEP 98 16 LET DLTA 900 = POS 900 - POS 899 17 DISP DLTA 900 18 MOVE POS 899 SPD 0 19 TEST UNK 1 CODE 3 TOL 1 ACC 22 REJ 0 REG 0 20 TEST UNK 1 CODE 2 TOL 1 ACC 0 REJ 0 REG 1 21 IF REG 1 # 00 THEN PRIN STRG 3 " INITIAL REJECT" 22 LET N = DUM 807 + 1.00000E+03 23 LET DUM N = DUM 1 24 LET DUM 101 = DUM 1 25 IF BIT 4 = 01 THEN GOTO STEP 27 26 IF REG 1 # 00 THEN GOTO STEP 62 27 REM " TRIM ROUTINE " 28 LET NOM 101 = NOM 1 29 IF BIT 4 = 01 THEN GOTO STEP 55 30 IF DUM 1 > DUM 55 THEN GOTO STEP 56 31 FOR I = 5.00000E+00 TO 9.00000E+00 32 IF DUM 1 > DUM I THEN LET L = I 33 NEXT I 34 IF DUM 1 > DUM 56 THEN GOTO STEP 38 35 FOR I = 1.00000E+00 TO 5.00000E+00 36 LET M = I + 7.00000E+02 37 GOTO STEP 40 38 FOR I = 1.00000E+00 TO 5.00000E+00 02 39 LET M = I + 7.10000E+02 40 LET K = I * 02 41 LET NOM 101 = DUM M * DUM 1 * NOM 1 / 1.00000E+02 + NOM 1 42 LET NOM 77 = NOM 101 43 TEST UNK 77 CODE 75 TOL 77 ACC 0 REJ 0 REG 0 44 LET NOM 77 = NOM 77 + ( NOM 77 * DUM 77 * TURN L / 1.00000E+04 ) 45 LET J = K - 01 46 MOVE POS J SPD 0 47 TRIM UNK 77 CODE 77 CUT 77 MODE 77 POS K DENS 77 BRAN 0 48 TRIM UNK 77 CODE 78 CUT 78 MODE 78 POS K DENS 77 BRAN 0 49 TRIM UNK 101 CODE 88 CUT 1 MODE 88 POS K DENS 101 BRAN 0 50 IF I < 5.00000E+00 THEN GOSU STEP 71 51 NEXT I 52 TRIM UNK 101 CODE 100 CUT 101 MODE 1 POS 10 DENS 101 BRAN 0 53 TRIM UNK 101 CODE 101 CUT 101 MODE 1 POS 10 DENS 101 BRAN 0 54 GOSU STEP 71 55 TEST UNK 101 CODE 7 TOL 101 ACC 58 REJ 0 REG 2 56 IF DUM 101 < 1.00000E+03 THEN GOTO STEP 58 57 TEST UNK 101 CODE 2 TOL 101 ACC 0 REJ 0 REG 0 58 IF REG 50 = 01 THEN GOSU STEP 133 59 IF REG 2 = 00 THEN GOTO STEP 64 60 IF REG 2 # 00 THEN PRIN STRG 3 "TRIM REJECT" 61 REM "REJECT MARK" 62 MOVE POS 97 SPD 0 63 NIBL DLTA 777 POS 98 DENS 1 BRAN 0 64 MOVE POS 899 SPD 0 65 LET N = DUM 807 + 1.10000E+03 66 LET DUM N = DUM 101 67 IF BIT 0 = 00 THEN GOSU STEP 172 68 IF DUM 807 = DUM 999 THEN GOSU STEP 74 69 HAND 70 EXIT 71 TRIM UNK 101 CODE 99 CUT 99 MODE 99 POS J DENS 201 BRAN 0 72 TRIM UNK 101 CODE 99 CUT 99 MODE 99 POS J DENS 202 BRAN 0 73 EXIT 74 IF REG 333 = 01 THEN EXIT 75 FOR I = 1.00000E+00 TO 2.00000E+00 76 MOVE POS 99 SPD 0 77 CGEN DENS 300 SCAL 300 POS 100 STRG 300 78 NEXT I 79 EXIT 80 FOR I = 1.00100E+03 TO 1.05000E+03 81 LET J = I + 1.00000E+02 82 LET DUM I = 00 83 LET DUM J = 00 84 NEXT I 85 EXIT 86 PRIN "PART INIT DEV TRIM DEV" 87 FOR I = 1.00000E+00 TO 5.00000E+01 88 IF DUM 999 < I THEN QUIT 89 LET J = I + 1.00000E+03 90 LET K = I + 1.10000E+03 91 IF I < 1.00000E+01 THEN PRIN " " STRG 1 92 PRIN I " " DUM J " " DUM K STRG 1 93 IF DUM K > ! TOL 101 THEN PRIN STRG 3 "<< REJ-HI >>" STRG 1 94 IF DUM K < TOL 101 THEN PRIN STRG 3 ">> REJ-LO <<" STRG 1 95 PRIN " " 96 NEXT I 97 QUIT 98 IF DUM 807 = 00 THEN GOTO STEP 105 99 PRIN STRG 3 100 PRIN "PROGRAM STOPPED AT PART # " DUM 807 101 PRIN STRG 3 102 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 103 READ TTY:;DUM 808 %1.0 THEN QUIT 104 LET DUM 807 = 00 105 MOVE POS 990 SPD 0 106 SHOM REG 30 107 SHOM REG 0 108 PRIN "ALIGN THETA" 109 ALIN POS 998 REF 999 REG 998 110 PRIN "ALIGN X-Y" 111 ALIN POS 0 REF 0 REG 0 112 LET DLTA 998 = POS 997 - POS 999 113 GOTO STEP 115 114 LET DLTA 998 = DLTA 998 + DLTA 999 115 GOSU STEP 123 116 IF DUM 807 < DUM 999 THEN GOTO STEP 114 117 LET DUM 807 = 00 118 LET DUM 808 = 00 119 SHOM REG 30 120 SHOM REG 31 121 SHOM REG 32 122 QUIT 123 LET DUM 807 = DUM 807 + 01 124 IF DUM 808 > DUM 807 THEN EXIT 125 SMOV DLTA 998 SPD 0 REG 0 126 LET DLTA 998 = 00 127 PRIN "PART # " DUM 807 128 GOSU STEP 16 129 EXIT 130 LET REG 50 = 01 131 PRIN STRG 3 "DRIFT TEST ON" STRG 3 132 EXIT 133 GOSU STEP 162 01 134 LET I = 1.00000E+00 135 TEST UNK 1 CODE 2 TOL I ACC 0 REJ 0 REG 0 136 LET J = I + 3.00000E+02 137 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 138 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 139 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 140 PRIN BIT 11 "R" I " NOM" J "=" NOM J 141 LET M = DUM 811 142 GOSU STEP 161 1.20000E+02 143 GOSU STEP 153 01 144 GOSU STEP 149 02 145 PRIN "COMPLETE" STRG 3 146 LET REG 50 = 00 147 GOSU STEP 162 05 148 EXIT 149 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 150 READ TTY:;%1.0 THEN QUIT 151 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 152 PRIN "DRIFT IS BASED ON 120 SECONDS" 153 LET I = M 154 LET J = I + 3.00000E+02 155 IF VALU 1 = 02 THEN GOTO STEP 159 156 GOSU STEP 162 DUM 805 157 PRIN BIT 11 "TESTING R" I 158 TEST UNK 300 CODE 10 TOL I ACC 160 REJ 160 REG 0 159 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 160 EXIT 161 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 162 LET L = VALU 1 * 2.50000E+03 163 FOR K = 01 TO L 164 NEXT K 165 EXIT 166 IF NOM N < 00 THEN LET N = - NOM N 167 LET I = N 168 LET J = I + 3.00000E+02 169 LET K = I + 5.00000E+02 170 LET L = I + 1.00000E+02 171 EXIT 172 FOR N = 1.00000E+00 TO 1.01000E+02 173 GOSU STEP 166 174 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 177 175 PRIN "DID NOT LOG" 176 EXIT 177 NEXT N 178 PRIN "DATA LOGGING" 179 LET DUM 800 = DUM 800 + 01 180 FOR N = 1.00000E+00 TO 1.01000E+02 181 GOSU STEP 166 182 LET DUM J = DUM J + DUM I 183 LET DUM K = DUM K + ( DUM I * DUM I ) 184 NEXT N 185 GOSU STEP 188 1.00000E+00 1.80100E+03 1.82400E+03 186 GOSU STEP 188 1.01000E+02 1.82800E+03 1.85300E+03 187 EXIT 188 LET I = VALU 1 189 LET J = VALU 2 190 LET K = VALU 3 191 FOR L = J TO K 192 LET M = L + 01 193 IF DUM I > DUM L THEN IF DUM I < DUM M THEN LET REG L = REG L + 01 194 NEXT L 195 EXIT 196 FOR N = 1.00000E+00 TO 1.01000E+02 197 GOSU STEP 166 198 LET DUM I = 00 199 LET DUM J = 00 200 LET DUM K = 00 201 LET DUM L = 00 202 NEXT N 203 FOR I = 8.00000E+02 TO 8.08000E+02 204 LET DUM I = 00 205 NEXT I 206 GOSU STEP 80 207 GOSU STEP 213 1.80100E+03 1.85400E+03 208 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 209 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 210 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 211 PRIN "DUMS ARE ZEROED" STRG 3 212 QUIT 213 LET M = VALU 1 214 LET N = VALU 2 215 FOR I = M TO N 216 LET REG I = 00 217 NEXT I 218 PRIN "DISTRIBUTION DUMS ARE ZEROED" STRG 3 219 EXIT 220 GOSU STEP 240 221 FOR N = 01 TO 1.01000E+02 222 GOSU STEP 166 223 LET DUM 804 = DUM J / DUM 800 224 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 225 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 226 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 227 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 228 LET DUM 803 = I 229 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 230 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 231 NEXT N 232 GOSU STEP 247 1.00000E+00 1.80100E+03 1.82400E+03 233 GOSU STEP 237 234 GOSU STEP 247 1.01000E+02 1.82800E+03 1.85300E+03 235 PRIN "END OF COARSE TRIM DATA, " STRG 350 236 QUIT 237 PRIN STRG 3 "HIT PAGE THEN RETURN FOR NEXT PAGE. ." STRG 1 238 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 239 EXIT 240 PRIN STRG 2 ", LOT # " STRG 333 " DATA ON" DUM 800 " PARTS" STRG 1 241 PRIN " DATE: " STRG 350 242 PRIN " " 243 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 244 PRIN " NOMINAL" 245 PRIN " " 246 EXIT 247 PRIN " " 248 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1 " DATE:" STRG 350 249 LET M = VALU 2 250 LET N = VALU 3 251 FOR I = M TO N 252 LET J = I + 01 253 IF I = 1.85600E+03 THEN GOSU STEP 237 254 PRIN "# BETWEEN " %8.3 DUM I " AND " %8.3 DUM J " =" %6.0 REG I 255 NEXT I 256 EXIT 257 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 258 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 259 PRIN "LOT NUMBER IS " STRG 333 260 PRIN STRG 3 261 PRIN STRG 3 "ENTER TODAY'S DATE >" STRG 1 262 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 263 PRIN "DATE IS " STRG 350 264 PRIN "POSITIONS SET FOR 16 PHASE, NO 4-16 PHASE ROUTINE." STRG 3 265 LET DUM 801 = 01 266 QUIT MODE 1 TURN 0 CROS 1 INC 1 77 TURN 0 CROS 77 INC 0 78 TURN 0 CROS 78 INC 78 88 TURN 0 CROS L INC L 99 TURN 0 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 5 SPD 5 PWR 1 77 SPD 77 PWR 1 101 SPD 101 PWR 1 201 SPD 201 PWR 1 202 SPD 202 PWR 1 300 SPD 5 PWR 1 UNK 1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 77 NOM 77 SCAN 1 MAT 0 FUNC 0 DUM 77 101 NOM 101 SCAN 1 MAT 0 FUNC 0 DUM 101 300 NOM J SCAN I MAT 0 FUNC 0 DUM I REG 1 00 2 00 3 00 4 00 5 00 6 00 30 03 31 00 32 04 50 00 333 00 998 -01 999 00 1801 00 1802 00 1803 00 1804 011 1805 055 1806 0174 1807 0400 1808 0535 1809 0476 1810 0451 1811 0402 1812 0165 1813 042 1814 012 1815 00 1816 00 1817 00 1818 00 1819 00 1820 031 1821 04 1822 00 1823 00 1824 00 1825 00 1826 00 1827 00 1828 04 1829 00 1830 00 1831 00 1832 00 1833 00 1834 00 1835 01 1836 01 1837 00 1838 01 1839 00 1840 05 1841 0207 1842 01211 1843 01137 1844 0414 1845 0177 1846 037 1847 05 1848 00 1849 04 1850 00 1851 00 1852 00 1853 00 1854 00 POS 1 -520, 1750 2 -260, 1250 3 -520, 1110 4 -260, 510 5 -520, 270 6 -260, -230 7 -520, -370 8 -260, -970 9 -520, -1110 10 -260, -1850 11 -480, 400 12 -260, 400 13 -480, 1880 14 -260, 1880 97 -470, -2276 98 -470, -2532 99 650, -1100 100 650, 1400 101 600, 0 102 600, 800 200 -60, -1850 201 -220, -1500 202 -145, -1800 899 -440, -2000 900 -338, -6800 990 0, 0 997 17360, 5094 998 -12368, 11884 999 17716, 11884 REF 999 POS 999 NOM 1 9.00000E+06 2 -1.01000E+02 77 8.40809E+06 101 9.00000E+06 301 8.97715E+06 SCAN 1 20, 6, 0, 0 CODE 2 3, 2, 75, 0 3 3, 3, 75, 0 4 3, 4, 75, 0 5 3, 5, 75, 0 6 3, 6, 75, 0 7 3, 7, 75, 0 10 3, 8, 200, 0 75 3, 4, 25, 0 77 2, 7, 50, 0 78 2, 7, 30, 0 88 2, 7, 5, 0 99 0, 0, 1, 0 100 3, 7, 50, 0 101 3, 7, 75, 0 TOL 1 -4.50000E+01, -1.00000E-01 77 -1.00000E+02, 1.00000E+02 101 -7.00000E-01, -1.00000E-01 DUM 1 -2.97991E+01 5 -4.50000E+01 6 -2.00000E+01 7 -1.20000E+01 8 -9.00000E+00 9 -4.00000E+00 55 -3.50000E-01 56 -1.00000E+01 77 -8.43164E+00 101 -1.79911E-01 201 0.00000E+00 301 -5.25019E+04 401 -6.89016E+02 501 1.55628E+06 601 4.71522E+03 701 7.70000E-01 702 5.80000E-01 703 3.90000E-01 704 2.00000E-01 705 0.00000E+00 711 6.00000E-01 713 3.00000E-01 715 0.00000E+00 777 1.05000E+00 800 1.84600E+03 801 1.00000E+00 802 0.00000E+00 803 1.01000E+02 804 -3.73248E-01 805 1.55444E+00 806 8.96640E+06 807 0.00000E+00 808 0.00000E+00 809 3.00000E+01 810 -7.00000E+01 811 1.00000E+00 812 1.00000E+00 813 5.00000E+00 814 4.90000E+01 820 0.00000E+00 998 5.08000E+02 999 4.90000E+01 1001 -2.49977E+01 1002 -2.60672E+01 1003 -2.82745E+01 1004 -3.03680E+01 1005 -3.20292E+01 1006 -3.15740E+01 1007 -3.37586E+01 1008 -3.24160E+01 1009 -3.30987E+01 1010 -3.12555E+01 1011 -3.08686E+01 1012 -3.26891E+01 1013 -3.27801E+01 1014 -3.32807E+01 1015 -3.17561E+01 1016 -3.36220E+01 1017 -3.27801E+01 1018 -3.27118E+01 1019 -3.17788E+01 1020 -3.25298E+01 1021 -3.08686E+01 1022 -2.80469E+01 1023 -2.85020E+01 1024 -2.94805E+01 1025 -2.80924E+01 1026 -2.77284E+01 1027 -2.73415E+01 1028 -2.56576E+01 1029 -2.57031E+01 1030 -2.62265E+01 1031 -2.50432E+01 1032 -2.66133E+01 1033 -2.56576E+01 1034 -2.53390E+01 1035 -2.52935E+01 1036 -2.60217E+01 1037 -2.56121E+01 1038 -2.59307E+01 1039 -2.52480E+01 1040 -2.68636E+01 1041 -2.58624E+01 1042 -2.61810E+01 1043 -2.60672E+01 1044 -2.72277E+01 1045 -2.80924E+01 1046 -2.71139E+01 1047 -2.68636E+01 1048 -2.77284E+01 1049 -2.97991E+01 1050 0.00000E+00 1101 -3.12178E-01 1102 -3.06489E-01 1103 -2.79467E-01 1104 -3.13600E-01 1105 -2.65244E-01 1106 -1.99822E-01 1107 -1.54311E-01 1108 -1.78489E-01 1109 -1.85600E-01 1110 -1.44356E-01 1111 -2.85155E-01 1112 -2.38222E-01 1113 -2.88000E-01 1114 -2.90844E-01 1115 -2.65244E-01 1116 -2.95111E-01 1117 -2.09778E-01 1118 -2.76622E-01 1119 -2.43911E-01 1120 -1.23022E-01 1121 -2.15467E-01 1122 -3.22133E-01 1123 -2.83733E-01 1124 -3.07911E-01 1125 -2.21156E-01 1126 -1.30133E-01 1127 -2.83733E-01 1128 -2.95111E-01 1129 -3.09333E-01 1130 -3.27822E-01 1131 -2.73778E-01 1132 -2.45333E-01 1133 -2.52444E-01 1134 -3.17867E-01 1135 -2.85155E-01 1136 -3.10755E-01 1137 -2.65244E-01 1138 -3.20711E-01 1139 -2.73778E-01 1140 -2.88000E-01 1141 -3.37778E-01 1142 -2.39644E-01 1143 -2.29689E-01 1144 -2.92267E-01 1145 -2.96533E-01 1146 -3.05067E-01 1147 -2.83733E-01 1148 -2.99378E-01 1149 -1.79911E-01 1150 0.00000E+00 1801 -5.00000E+01 1802 -4.75000E+01 1803 -4.50000E+01 1804 -4.25000E+01 1805 -4.00000E+01 1806 -3.75000E+01 1807 -3.50000E+01 1808 -3.25000E+01 1809 -3.00000E+01 1810 -2.75000E+01 1811 -2.50000E+01 1812 -2.25000E+01 1813 -2.00000E+01 1814 -1.75000E+01 1815 -1.50000E+01 1816 -1.25000E+01 1817 -1.00000E+01 1818 -7.50000E+00 1819 -5.00000E+00 1820 -2.50000E+00 1821 0.00000E+00 1822 2.50000E+00 1823 5.00000E+00 1824 7.50000E+00 1825 1.00000E+01 1828 -2.00000E+00 1829 -1.00000E+00 1830 -9.50000E-01 1831 -9.00000E-01 1832 -8.50000E-01 1833 -8.00000E-01 1834 -7.50000E-01 1835 -7.00000E-01 1836 -6.50000E-01 1837 -6.00000E-01 1838 -5.50000E-01 1839 -5.00000E-01 1840 -4.50000E-01 1841 -4.00000E-01 1842 -3.50000E-01 1843 -3.00000E-01 1844 -2.50000E-01 1845 -2.00000E-01 1846 -1.50000E-01 1847 -1.00000E-01 1848 -5.00000E-02 1849 0.00000E+00 1850 5.00000E-02 1851 1.00000E-01 1852 1.50000E-01 1853 2.00000E-01 1854 1.00000E+00 CUT 1 -6.00000E-01 77 2.00000E+00 78 -5.00000E-01 99 9.90000E+01 101 -4.20000E-01 TURN 5 7.80000E+01 6 6.60000E+01 7 6.40000E+01 8 5.40000E+01 9 4.40000E+01 CROS 1 -1.30000E+00 5 -6.50000E-01 6 -6.50000E-01 7 -6.50000E-01 8 -2.00000E+00 9 -2.00000E+00 77 -3.50000E-01 78 -9.00000E-01 INC 1 25 5 0 6 0 7 0 8 30 9 30 78 25 SPD 1 1.00000E+01, 1.00000E+01 5 5.00000E+00, 5.00000E+00 77 1.00000E+01, 0.00000E+00 101 0.00000E+00, 1.00000E+01 201 0.00000E+00, 1.00000E+01 202 1.00000E+01, 0.00000E+00 PWR 1 100, 100 STRG 1 _ 2 307-1328-00 3  300 1328 333 M52I 350 13 JULY 2004 1000 DLTA 201 70, 0 777 0, -240 900 102, -4800 997 550, -2166 998 0, 0 999 -620, 0 SCAL 300 1.60000E+01