HEADING:307-1328-00 (P20100.C1) RES FINE TRIMS 2FEB99 BOB STEP 1 GOTO STEP 9 2 GOTO STEP 173 3 GOTO STEP 197 4 GOSU STEP 107 5 GOTO STEP 9 6 GOTO STEP 96 7 GOTO STEP 233 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 233 10 IF DUM 807 = 00 THEN GOSU STEP 57 11 GOTO STEP 14 12 GOTO STEP 63 13 REM "> TYPE 12^T TO PRINT INIT & TRIM VALUES FOR LAST STRIP <" 14 GOSU STEP 75 15 LET DLTA 900 = POS 900 - POS 899 16 DISP DLTA 900 17 MOVE POS 899 SPD 0 18 TEST UNK 1 CODE 1 TOL 1 ACC 20 REJ 0 REG 0 19 TEST UNK 1 CODE 2 TOL 1 ACC 0 REJ 0 REG 1 20 LET N = DUM 807 + 1.00000E+03 21 LET DUM N = DUM 1 22 LET DUM 101 = DUM 1 23 IF BIT 4 = 01 THEN GOTO STEP 26 24 IF REG 1 # 00 THEN GOTO STEP 49 25 REM " TRIM ROUTINE " 26 LET NOM 101 = NOM 1 27 IF BIT 4 = 01 THEN GOTO STEP 42 28 TEST UNK 101 CODE 10 TOL 1 ACC 0 REJ 43 REG 2 29 IF DUM 101 > TOL 101 THEN GOTO STEP 46 30 FOR I = 1.10000E+01 TO 1.30000E+01 02 31 LET M = 1.00000E+02 32 IF I = 1.30000E+01 THEN LET M = 1.01000E+02 33 LET J = I + 01 34 MOVE POS I SPD 0 35 IF DUM 101 > CUT M THEN GOTO STEP 41 36 NIBL DLTA 201 POS J DENS 1 BRAN 0 37 TRIM UNK 101 CODE M CUT M MODE M POS J DENS 1 BRAN 0 38 TRIM UNK 101 CODE 99 CUT 99 MODE 99 POS I DENS 200 BRAN 0 39 IF I = 1.30000E+01 THEN GOTO STEP 41 40 TEST UNK 101 CODE 10 TOL 1 ACC 0 REJ 43 REG 2 41 NEXT I 42 TEST UNK 101 CODE 10 TOL 101 ACC 45 REJ 0 REG 2 43 IF DUM 101 < 1.00000E+03 THEN GOTO STEP 45 44 TEST UNK 101 CODE 2 TOL 101 ACC 0 REJ 0 REG 0 45 IF BIT 4 = 01 THEN GOTO STEP 51 46 IF REG 50 = 01 THEN GOSU STEP 110 47 IF REG 2 = 00 THEN GOTO STEP 51 48 REM "REJECT MARK" 49 MOVE POS 97 SPD 0 50 NIBL DLTA 777 POS 98 DENS 1 BRAN 0 51 MOVE POS 899 SPD 0 52 LET N = DUM 807 + 1.10000E+03 53 LET DUM N = DUM 101 54 IF BIT 0 = 00 THEN GOSU STEP 149 55 HAND 56 EXIT 57 FOR I = 1.00100E+03 TO 1.05000E+03 58 LET J = I + 1.00000E+02 59 LET DUM I = 00 60 LET DUM J = 00 61 NEXT I 62 EXIT 63 PRIN "PART INIT DEV TRIM DEV" 64 FOR I = 1.00000E+00 TO 5.00000E+01 65 IF DUM 999 < I THEN QUIT 66 LET J = I + 1.00000E+03 67 LET K = I + 1.10000E+03 68 IF I < 1.00000E+01 THEN PRIN " " STRG 1 69 PRIN I " " DUM J " " DUM K STRG 1 70 IF DUM K > ! TOL 101 THEN PRIN "<< REJ-HI" STRG 1 71 IF DUM K < TOL 101 THEN PRIN "<< REJ-LO" STRG 1 72 PRIN " " 73 NEXT I 74 QUIT 75 IF DUM 807 = 00 THEN GOTO STEP 82 76 PRIN STRG 3 77 PRIN "PROGRAM STOPPED AT PART # " DUM 807 78 PRIN STRG 3 79 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 80 READ TTY:;DUM 808 %1.0 THEN QUIT 81 LET DUM 807 = 00 82 MOVE POS 990 SPD 0 83 SHOM REG 30 84 SHOM REG 0 85 REM "ALIGN THETA" 86 ALIN POS 998 REF 999 REG 998 87 REM "ALIGN X-Y" 88 ALIN POS 0 REF 0 REG 0 89 LET DLTA 998 = POS 997 - POS 999 90 GOTO STEP 92 91 LET DLTA 998 = DLTA 998 + DLTA 999 92 GOSU STEP 100 93 IF DUM 807 < DUM 999 THEN GOTO STEP 91 94 LET DUM 807 = 00 95 LET DUM 808 = 00 96 SHOM REG 30 97 SHOM REG 31 98 SHOM REG 32 99 QUIT 100 LET DUM 807 = DUM 807 + 01 101 IF DUM 808 > DUM 807 THEN EXIT 102 SMOV DLTA 998 SPD 0 REG 0 103 LET DLTA 998 = 00 104 PRIN "PART # " DUM 807 105 GOSU STEP 15 106 EXIT 107 LET REG 50 = 01 108 PRIN STRG 3 "DRIFT TEST ON" STRG 3 109 EXIT 110 GOSU STEP 139 01 111 LET I = 1.00000E+00 112 TEST UNK 1 CODE 2 TOL I ACC 0 REJ 0 REG 0 113 LET J = I + 3.00000E+02 114 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 115 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 116 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 117 PRIN BIT 11 "R" I " NOM" J "=" NOM J 118 LET M = DUM 811 119 GOSU STEP 138 1.20000E+02 120 GOSU STEP 130 01 121 GOSU STEP 126 02 122 PRIN "COMPLETE" STRG 3 123 LET REG 50 = 00 124 GOSU STEP 139 05 125 EXIT 126 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 127 READ TTY:;%1.0 THEN QUIT 128 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 129 PRIN "DRIFT IS BASED ON 120 SECONDS" 130 LET I = M 131 LET J = I + 3.00000E+02 132 IF VALU 1 = 02 THEN GOTO STEP 136 133 GOSU STEP 139 DUM 805 134 PRIN BIT 11 "TESTING R" I 135 TEST UNK 300 CODE 10 TOL I ACC 137 REJ 137 REG 0 136 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 137 EXIT 138 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 139 LET L = VALU 1 * 2.50000E+03 140 FOR K = 01 TO L 141 NEXT K 142 EXIT 143 IF NOM N < 00 THEN LET N = - NOM N 144 LET I = N 145 LET J = I + 3.00000E+02 146 LET K = I + 5.00000E+02 147 LET L = I + 1.00000E+02 148 EXIT 149 FOR N = 1.00000E+00 TO 1.01000E+02 150 GOSU STEP 143 151 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 154 152 PRIN "DID NOT LOG" 153 EXIT 154 NEXT N 155 PRIN "DATA LOGGING" 156 LET DUM 800 = DUM 800 + 01 157 FOR N = 1.00000E+00 TO 1.01000E+02 158 GOSU STEP 143 159 LET DUM J = DUM J + DUM I 160 LET DUM K = DUM K + ( DUM I * DUM I ) 161 NEXT N 162 GOSU STEP 165 1.00000E+00 1.80100E+03 1.82400E+03 163 GOSU STEP 165 1.01000E+02 1.82800E+03 1.85200E+03 164 EXIT 165 LET I = VALU 1 166 LET J = VALU 2 167 LET K = VALU 3 168 FOR L = J TO K 169 LET M = L + 01 170 IF DUM I > DUM L THEN IF DUM I < DUM M THEN LET REG L = REG L + 01 171 NEXT L 172 EXIT 173 FOR N = 1.00000E+00 TO 1.01000E+02 174 GOSU STEP 143 175 LET DUM I = 00 176 LET DUM J = 00 177 LET DUM K = 00 178 LET DUM L = 00 179 NEXT N 180 FOR I = 8.00000E+02 TO 8.08000E+02 181 LET DUM I = 00 182 NEXT I 183 GOSU STEP 57 184 GOSU STEP 190 1.80100E+03 1.85300E+03 185 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 186 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 187 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 188 PRIN "DUMS ARE ZEROED" STRG 3 189 QUIT 190 LET M = VALU 1 191 LET N = VALU 2 192 FOR I = M TO N 193 LET REG I = 00 194 NEXT I 195 PRIN "DISTRIBUTION DUMS ARE ZEROED" STRG 3 196 EXIT 197 GOSU STEP 217 198 FOR N = 01 TO 1.01000E+02 199 GOSU STEP 143 200 LET DUM 804 = DUM J / DUM 800 201 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 202 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 203 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 204 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 205 LET DUM 803 = I 206 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 207 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 208 NEXT N 209 GOSU STEP 223 1.00000E+00 1.80100E+03 1.82400E+03 210 REM "GOSU STEP 213" 211 GOSU STEP 223 1.01000E+02 1.82800E+03 1.85200E+03 212 PRIN "END OF DATA, " STRG 350 213 QUIT 214 PRIN STRG 3 "HIT PAGE THEN RETURN FOR NEXT PAGE. ." STRG 1 215 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 216 EXIT 217 PRIN STRG 2 ", LOT # " STRG 333 " DATA ON" DUM 800 " PARTS" STRG 1 218 PRIN " DATE: " STRG 350 219 PRIN " " 220 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 221 PRIN " NOMINAL" 222 EXIT 223 PRIN " " 224 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1 " DATE:" STRG 350 225 LET M = VALU 2 226 LET N = VALU 3 227 FOR I = M TO N 228 LET J = I + 01 229 REM "IF I = 1856 THEN GOSU STEP 213" 230 PRIN "# BETWEEN " %8.3 DUM I " AND " %8.3 DUM J " =" %6.0 REG I 231 NEXT I 232 EXIT 233 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 234 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 235 PRIN "LOT NUMBER IS " STRG 333 236 PRIN STRG 3 237 PRIN STRG 3 "ENTER TODAY'S DATE >" STRG 1 238 READ TTY:;"_" STRG 350 %1.0 THEN QUIT 239 PRIN "DATE IS " STRG 350 240 PRIN "POSITIONS SET FOR 16 PHASE, NO 4-16 PHASE ROUTINE." STRG 3 241 LET DUM 801 = 01 242 QUIT 243 FOR I = 1.80200E+03 TO 1.82400E+03 244 LET J = I + 01 245 LET DUM I = DUM J 246 NEXT I MODE 99 TURN 0 CROS 0 INC 0 100 TURN 0 CROS 100 INC 100 101 TURN 0 CROS 101 INC 101 DENS 1 SPD 1 PWR 1 5 SPD 5 PWR 1 101 SPD 101 PWR 1 200 SPD 200 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 101 NOM 1 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 01 998 -01 999 00 1801 00 1802 00 1803 00 1804 00 1805 00 1806 00 1807 00 1808 00 1809 00 1810 00 1811 00 1812 00 1813 00 1814 00 1815 00 1816 00 1817 00 1818 00 1819 00 1820 00 1821 00 1822 00 1823 00 1824 00 1825 00 1826 00 1827 00 1828 00 1829 00 1830 00 1831 00 1832 00 1833 00 1834 00 1835 00 1836 00 1837 00 1838 00 1839 00 1840 00 1841 00 1842 00 1843 00 1844 00 1845 00 1846 00 1847 00 1848 00 1849 00 1850 00 1851 00 1852 00 1853 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 -450, -2276 98 -450, -2532 99 650, -900 100 650, 1400 101 600, 0 102 600, 800 200 -60, -1850 201 -220, -1500 202 -145, -1800 899 -380, -1960 900 -1228, -6634 990 -1380, -2062 997 12004, 5168 998 -18204, 9742 999 11560, 9742 REF 999 POS 999 NOM 1 9.00000E+06 2 -1.01000E+02 101 9.00000E+06 301 9.00581E+06 SCAN 1 20, 6, 0, 0 CODE 1 3, 7, 100, 0 2 3, 5, 125, 0 10 3, 8, 200, 0 99 1, 0, 5, 0 100 3, 7, 25, 0 101 3, 7, 50, 0 TOL 1 -8.00000E-01, 5.00000E-02 101 -5.00000E-02, 5.00000E-02 DUM 1 0.00000E+00 5 -4.50000E+01 6 -2.00000E+01 7 -1.20000E+01 8 -9.00000E+00 9 -4.00000E+00 77 -3.50000E-01 78 -1.00000E+01 101 0.00000E+00 201 0.00000E+00 301 0.00000E+00 401 0.00000E+00 501 0.00000E+00 601 0.00000E+00 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 0.00000E+00 801 0.00000E+00 802 0.00000E+00 803 0.00000E+00 804 0.00000E+00 805 0.00000E+00 806 0.00000E+00 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 0.00000E+00 1002 0.00000E+00 1003 0.00000E+00 1004 0.00000E+00 1005 0.00000E+00 1006 0.00000E+00 1007 0.00000E+00 1008 0.00000E+00 1009 0.00000E+00 1010 0.00000E+00 1011 0.00000E+00 1012 0.00000E+00 1013 0.00000E+00 1014 0.00000E+00 1015 0.00000E+00 1016 0.00000E+00 1017 0.00000E+00 1018 0.00000E+00 1019 0.00000E+00 1020 0.00000E+00 1021 0.00000E+00 1022 0.00000E+00 1023 0.00000E+00 1024 0.00000E+00 1025 0.00000E+00 1026 0.00000E+00 1027 0.00000E+00 1028 0.00000E+00 1029 0.00000E+00 1030 0.00000E+00 1031 0.00000E+00 1032 0.00000E+00 1033 0.00000E+00 1034 0.00000E+00 1035 0.00000E+00 1036 0.00000E+00 1037 0.00000E+00 1038 0.00000E+00 1039 0.00000E+00 1040 0.00000E+00 1041 0.00000E+00 1042 0.00000E+00 1043 0.00000E+00 1044 0.00000E+00 1045 0.00000E+00 1046 0.00000E+00 1047 0.00000E+00 1048 0.00000E+00 1049 0.00000E+00 1050 0.00000E+00 1101 0.00000E+00 1102 0.00000E+00 1103 0.00000E+00 1104 0.00000E+00 1105 0.00000E+00 1106 0.00000E+00 1107 0.00000E+00 1108 0.00000E+00 1109 0.00000E+00 1110 0.00000E+00 1111 0.00000E+00 1112 0.00000E+00 1113 0.00000E+00 1114 0.00000E+00 1115 0.00000E+00 1116 0.00000E+00 1117 0.00000E+00 1118 0.00000E+00 1119 0.00000E+00 1120 0.00000E+00 1121 0.00000E+00 1122 0.00000E+00 1123 0.00000E+00 1124 0.00000E+00 1125 0.00000E+00 1126 0.00000E+00 1127 0.00000E+00 1128 0.00000E+00 1129 0.00000E+00 1130 0.00000E+00 1131 0.00000E+00 1132 0.00000E+00 1133 0.00000E+00 1134 0.00000E+00 1135 0.00000E+00 1136 0.00000E+00 1137 0.00000E+00 1138 0.00000E+00 1139 0.00000E+00 1140 0.00000E+00 1141 0.00000E+00 1142 0.00000E+00 1143 0.00000E+00 1144 0.00000E+00 1145 0.00000E+00 1146 0.00000E+00 1147 0.00000E+00 1148 0.00000E+00 1149 0.00000E+00 1150 0.00000E+00 1801 -2.00000E+00 1802 -1.00000E+00 1803 -9.50000E-01 1804 -9.00000E-01 1805 -8.50000E-01 1806 -8.00000E-01 1807 -7.50000E-01 1808 -7.00000E-01 1809 -6.50000E-01 1810 -6.00000E-01 1811 -5.50000E-01 1812 -5.00000E-01 1813 -4.50000E-01 1814 -4.00000E-01 1815 -3.50000E-01 1816 -3.00000E-01 1817 -2.50000E-01 1818 -2.00000E-01 1819 -1.50000E-01 1820 -1.00000E-01 1821 -5.00000E-02 1822 0.00000E+00 1823 5.00000E-02 1824 1.00000E-01 1825 2.00000E-01 1828 -1.20000E-01 1829 -1.10000E-01 1830 -1.00000E-01 1831 -9.00000E-02 1832 -8.00000E-02 1833 -7.00000E-02 1834 -6.00000E-02 1835 -5.00000E-02 1836 -4.00000E-02 1837 -3.00000E-02 1838 -2.00000E-02 1839 -1.00000E-02 1840 0.00000E+00 1841 1.00000E-02 1842 2.00000E-02 1843 3.00000E-02 1844 4.00000E-02 1845 5.00000E-02 1846 6.00000E-02 1847 7.00000E-02 1848 8.00000E-02 1849 9.00000E-02 1850 1.00000E-01 1851 1.10000E-01 1852 1.20000E-01 1853 1.30000E-01 CUT 99 5.00000E+01 100 -2.50000E-01 101 -3.50000E-02 CROS 100 -4.00000E-01 101 -1.50000E-01 INC 100 80 101 30 SPD 1 8.00000E+00, 8.00000E+00 5 5.00000E+00, 5.00000E+00 101 0.00000E+00, 1.00000E+01 200 1.00000E+01, 0.00000E+00 201 0.00000E+00, 2.00000E+01 202 3.00000E+01, 0.00000E+00 PWR 1 100, 100 STRG 1 _ 2 307-1328-00 FINE 3  333 M39B 350 26MAR97 444 FINE 1000 Y DLTA 201 80, 0 777 0, -240 900 1047, 957 997 550, -2166 998 0, 0 999 -620, 0 SCAL 300 1.60000E+01