HEADING:307-2553-00 (P20471.A1) RES COARSE TRIM 9/24/98 GF STEP 1 GOTO STEP 9 2 GOTO STEP 126 3 GOTO STEP 106 4 GOSU STEP 70 5 GOTO STEP 9 6 GOTO STEP 183 7 GOTO STEP 194 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 2000 = 00 THEN GOTO STEP 194 10 GOTO STEP 15 11 GOTO STEP 153 12 REM "" 13 REM "> TYPE 11^T TO PRINT INIT & TRIM VALUES FOR LAST STRIP <" 14 REM "" 15 MOVE POS 100 SPD 0 16 GOSU STEP 164 17 LET DLTA 900 = POS 900 - POS 899 18 DISP DLTA 900 19 MOVE POS 899 SPD 0 20 IF DUM 805 = 9.99000E+02 THEN TEST UNK 1 CODE 3 TOL 1 ACC 0 REJ 0 REG 0 21 LET DUM 805 = 00 22 IF BIT 4 = 01 THEN GOTO STEP 58 23 LET K = 00 24 TEST UNK 1 CODE 3 TOL 1 ACC 27 REJ 0 REG 0 25 IF DUM 1 < 5.00000E+01 THEN GOTO STEP 27 26 TEST UNK 1 CODE 1 TOL 1 ACC 0 REJ 0 REG 1 27 LET N = DUM 807 + 1.00000E+03 28 LET DUM N = DUM 1 29 IF DUM 1 < 2.50000E+01 THEN GOTO STEP 37 30 REM "BAD PROBE CONTACT" 31 LET K = K + 01 32 IF K = 03 THEN GOTO STEP 64 33 SMOV DLTA 666 SPD 0 REG 0 34 SMOV DLTA 667 SPD 0 REG 0 35 LET REG 1 = 00 36 GOTO STEP 24 37 IF DUM 1 < - 2.00000E+00 THEN GOSU STEP 97 38 LET N = DUM 807 + 1.10000E+03 39 IF REG 1 # 00 THEN LET DUM N = DUM 1 40 IF REG 1 # 00 THEN GOTO STEP 64 41 REM " TRIM ROUTINE " 42 LET J = 03 43 IF DUM 1 > - 2.00000E+01 THEN LET J = 04 44 IF DUM 1 > - 8.00000E+00 THEN LET J = 05 45 LET NOM 101 = NOM 1 + ( NOM 1 * DUM 1 * TURN 1 / 1.00000E+04 ) 46 MOVE POS 2 SPD 0 47 TRIM UNK 101 CODE 101 CUT 101 MODE 101 POS 3 DENS 101 BRAN 0 48 TRIM UNK 101 CODE 102 CUT 102 MODE 102 POS 3 DENS 101 BRAN 0 49 NIBL DLTA 802 POS 2 DENS 800 BRAN 0 50 NIBL DLTA 803 POS 3 DENS 1 BRAN 0 51 TRIM UNK 1 CODE 6 CUT 1 MODE 1 POS 3 DENS 201 BRAN 0 52 TEST UNK 201 CODE 9 TOL 101 ACC 0 REJ 0 REG 0 53 NIBL DLTA 800 POS 2 DENS 800 BRAN 0 54 NIBL DLTA 801 POS 2 DENS 800 BRAN 58 55 NIBL DLTA 802 POS 2 DENS 800 BRAN 0 56 NIBL DLTA 803 POS 3 DENS 1 BRAN 0 57 GOTO STEP 54 58 TEST UNK 201 CODE 9 TOL 101 ACC 0 REJ 0 REG 2 59 IF DUM 50 = 01 THEN GOTO STEP 79 60 IF BIT 4 = 01 THEN GOTO STEP 67 61 IF REG 2 # 00 THEN GOTO STEP 64 62 PRIN "GOOD PART" 63 GOTO STEP 67 64 MOVE POS 800 SPD 0 65 REM "CGEN DENS 1 SCAL 1 POS 801 'XXX'" 66 PRIN "REJECT PART" 67 MOVE POS 899 SPD 0 68 HAND 69 EXIT 70 LET DUM 50 = 1.00000E+00 71 LET DUM 801 = 00 72 LET DUM 802 = 00 73 PRIN "INITIAL DRIFT TEST" 74 PRIN " " 75 PRIN "PART #: " STRG 2 " DATE: " STRG 340 76 PRIN "LOT: " STRG 333 77 PRIN "DRIFT IS BASED ON 60 SECS" 78 EXIT 79 LET I = 3.01000E+02 80 LET K = I - 3.00000E+02 81 TEST UNK K CODE 7 TOL K ACC 0 REJ 0 REG 3 82 LET NOM I = ( 1.00000E+02 + DUM K ) * NOM K / 1.00000E+02 83 FOR M = 1.00000E+00 TO 2.50000E+03 84 NEXT M 85 TEST UNK I CODE 10 TOL K ACC 0 REJ 0 REG 3 86 FOR I = 1.00000E+00 TO 1.52000E+05 87 NEXT I 88 LET J = K + 1.00000E+02 89 LET L = K + 3.00000E+02 90 LET DUM J = DUM L 91 TEST UNK L CODE 10 TOL K ACC 0 REJ 0 REG 3 92 LET DUM 812 = DUM L - DUM J 93 PRIN "R" K " CHANGE = " DUM 812 94 PRIN "COMPLETE" 95 LET DUM 50 = 00 96 QUIT 97 PRIN "DATA LOG" 98 IF DUM 1 > DUM 809 THEN GOTO STEP 104 99 IF DUM 1 < DUM 810 THEN GOTO STEP 104 100 LET DUM 900 = DUM 900 + 1.00000E+00 101 LET DUM 501 = DUM 501 + DUM 1 102 LET DUM 601 = DUM 601 + ( DUM 1 * DUM 1 ) 103 EXIT 104 PRIN "DID NOT LOG" 105 EXIT 106 PRIN "PART #: " STRG 2 " LOT #: " STRG 333  "STRIP: " STRG 350 " DATE: " STRG 340 107 PRIN " " 108 PRIN "INITIAL DATA ON " DUM 900 " PARTS." 109 PRIN " " 110 LET I = 01 111 LET J = I + 5.00000E+02 112 LET K = I + 6.00000E+02 113 LET DUM 700 = DUM J / DUM 900 114 PRIN "R1 AVERAGE DEV = " %7.4 DUM 700 115 PRIN STRG 3 116 LET DUM 700 = NOM 1 + ( NOM 1 * ( DUM 700 / 1.00000E+02 ) ) 117 PRIN "R1 AVERAGE OHMS =" %8.0 DUM 700 118 PRIN STRG 3 119 LET DUM 800 = ( DUM K - ( DUM J * DUM J / DUM 900 ) ) 120 LET DUM 800 = SQRT ( DUM 800 * DUM 800 ) 121 LET DUM 800 = SQRT ( DUM 800 / ( DUM 900 - 1.00000E+00 ) ) 122 PRIN "R1 STANDARD DEV= " %7.4 DUM 800 123 PRIN STRG 3 124 PRIN "DATA BASED ON R1 NOMINAL OF > " %8.0 NOM 1 125 QUIT 126 LET DUM 1 = 00 127 LET DUM 101 = 00 128 LET DUM 501 = 00 129 LET DUM 601 = 00 130 FOR I = 8.00000E+02 TO 8.08000E+02 131 LET DUM I = 00 132 NEXT I 133 LET DUM 806 = 8.06000E+02 134 LET REG 5 = 00 135 LET REG 6 = 00 136 LET DUM 50 = 00 137 LET DUM 700 = 00 138 LET DUM 900 = 00 139 LET DUM 2000 = 00 140 FOR I = 1.00100E+03 TO 1.02500E+03 141 LET J = I + 1.00000E+02 142 LET DUM I = 00 143 LET DUM J = 00 144 NEXT I 145 PRIN "DUMMIES ZEROED" STRG 3 146 QUIT 147 REM "** SET PART VALUE DUMMIES TO '0' AT START OF STRIP **" 148 FOR I = 1.00100E+03 TO 1.02500E+03 149 LET J = I + 1.00000E+02 150 LET DUM I = 00 151 LET DUM J = 00 152 NEXT I 153 PRIN "PART INIT DEV TRIM DEV" 154 FOR I = 01 TO 2.50000E+01 155 LET J = I + 1.00000E+03 156 LET K = I + 1.10000E+03 157 IF I < 1.00000E+01 THEN PRIN " " STRG 1 158 PRIN I " " DUM J " " DUM K STRG 1 159 IF DUM K > ! TOL 101 THEN PRIN "<< REJ-HI" STRG 1 160 IF DUM K < TOL 101 THEN PRIN "<< REJ-LO" STRG 1 161 PRIN " " 162 NEXT I 163 QUIT 164 IF DUM 807 = 00 THEN GOTO STEP 171 165 PRIN STRG 3 166 PRIN "PART # >" DUM 807 "< WAS TRIMMED LAST." 167 PRIN STRG 3 168 PRIN " WHICH PART DO YOU WANT TO START ON ?" STRG 1 169 READ TTY:;DUM 808 %1.0 THEN QUIT 170 LET DUM 807 = 00 171 SHOM REG 30 172 SHOM REG 0 173 LET DUM 805 = 9.99000E+02 174 ALIN POS 998 REF 999 REG 998 175 ALIN POS 0 REF 0 REG 0 176 LET DLTA 998 = POS 997 - POS 999 177 GOSU STEP 187 178 LET DLTA 998 = DLTA 998 + DLTA 999 179 GOSU STEP 187 180 IF DUM 807 < DUM 999 THEN GOTO STEP 178 181 LET DUM 807 = 00 182 LET DUM 808 = 00 183 SHOM REG 30 184 SHOM REG 31 185 SHOM REG 32 186 QUIT 187 LET DUM 807 = DUM 807 + 01 188 IF DUM 808 > DUM 807 THEN EXIT 189 SMOV DLTA 998 SPD 0 REG 0 190 LET DLTA 998 = 00 191 PRIN "PART # " DUM 807 192 GOSU STEP 17 193 EXIT 194 PRIN STRG 3 195 PRIN "ENTER LOT NUMBER > " STRG 1 196 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 197 PRIN STRG 3 198 PRIN "ENTER TODAY'S DATE > " STRG 1 199 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 200 PRIN "" 201 PRIN STRG 3 202 PRIN "LOT NUMBER IS: " STRG 333 203 PRIN ""  "TODAY'S DATE IS: " STRG 340 204 LET DUM 2000 = 01 205 QUIT MODE 1 TURN 0 CROS 1 INC 1 101 TURN 0 CROS 101 INC 0 102 TURN 0 CROS 102 INC 102 DENS 1 SPD 1 PWR 1 101 SPD 101 PWR 1 201 SPD 201 PWR 1 800 SPD 800 PWR 0 UNK 1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 101 NOM 101 SCAN 1 MAT 0 FUNC 0 DUM 101 201 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 201 301 NOM 301 SCAN 1 MAT 0 FUNC 0 DUM 301 401 NOM 301 SCAN 1 MAT 0 FUNC 0 DUM 401 REG 1 00 2 00 3 00 4 00 5 00 6 00 10 01 20 04 30 03 31 00 32 04 990 02 991 01 998 -01 999 0774 MASK 1 01446 2 01505 3 01506 4 01516 5 01535 6 01650 7 01737 8 02206 9 02311 10 02370 11 02456 12 02457 13 02460 14 02461 15 02510 16 02511 17 02512 POS 2 1500, -1423 3 746, 2864 97 -83, -569 98 -83, -633 99 200, 0 100 -1060, -75 101 150, 0 102 150, 200 800 -22, -4205 801 494, -4205 899 538, 2936 900 -1061, -2753 997 13256, 6728 998 -17036, 16597 999 12437, 16597 REF 999 POS 999 NOM 1 4.50000E+06 101 3.61479E+06 201 9.66700E+06 301 4.48288E+06 SCAN 1 19, 6, 0, 0 CODE 1 3, 1, 75, 0 2 3, 2, 100, 0 3 3, 3, 100, 0 4 3, 4, 50, 0 5 3, 5, 50, 0 6 3, 6, 100, 0 7 3, 7, 200, 0 9 3, 7, 600, 0 10 3, 8, 200, 0 101 3, 5, 40, 0 102 3, 5, 70, 0 TOL 1 -4.50000E+01, 0.00000E+00 101 -6.00000E-01, 0.00000E+00 DUM 1 -1.48622E-01 50 0.00000E+00 55 0.00000E+00 101 7.36134E-04 201 -3.20000E-02 301 7.16058E-03 401 0.00000E+00 501 -2.37289E+04 502 0.00000E+00 601 5.70422E+05 602 0.00000E+00 666 1.00000E+00 700 0.00000E+00 701 8.00000E-01 702 6.00000E-01 703 4.00000E-01 704 2.00000E-01 705 0.00000E+00 706 0.00000E+00 799 3.00000E+01 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 8.06000E+02 807 3.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 1.00000E+00 812 6.42444E-03 814 1.22500E+03 815 1.70000E+01 837 8.37000E+02 838 8.38000E+02 846 8.46000E+02 861 8.61000E+02 900 9.96000E+02 936 9.36000E+02 991 9.91000E+02 998 5.08000E+02 999 3.00000E+01 1000 4.00000E+00 1001 -2.56121E+01 1002 -2.53390E+01 1003 -2.38372E+01 1004 -2.33820E+01 1005 -2.16754E+01 1006 -2.07879E+01 1007 -2.03783E+01 1008 -1.98777E+01 1009 -1.96046E+01 1010 -1.94681E+01 1011 -1.91495E+01 1012 -1.92405E+01 1013 -2.02190E+01 1014 -1.99915E+01 1015 -2.06514E+01 1016 -2.12658E+01 1017 -2.06969E+01 1018 -2.08789E+01 1019 -2.05604E+01 1020 -1.91495E+01 1021 -2.02418E+01 1022 -1.86261E+01 1023 -1.94226E+01 1024 -1.96956E+01 1025 -1.91268E+01 1026 -1.70560E+01 1027 -1.78752E+01 1028 -1.96046E+01 1029 -2.04238E+01 1030 -2.11520E+01 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 1158 1.15800E+03 1225 1.22500E+03 1272 1.27200E+03 1326 1.32600E+03 1327 1.32700E+03 1328 1.32800E+03 1329 1.32900E+03 1352 1.35200E+03 1353 1.35300E+03 1354 1.35400E+03 2000 1.00000E+00 CUT 1 -7.50000E-01 101 1.00000E+00 102 0.00000E+00 TURN 1 9.30000E+01 101 0.00000E+00 CROS 1 -1.00000E+00 77 -1.00000E-01 101 1.00000E-01 102 -1.00000E+00 INC 1 30 101 7 102 30 SPD 1 6.00000E+00, 6.00000E+00 101 6.00000E+00, 0.00000E+00 201 0.00000E+00, 6.00000E+00 800 3.00000E+02, 3.00000E+02 PWR 1 100, 100 STRG 1 _ 2 307-2553-00 3  5 H2553 20 1 333 L08 340 06/03/04 350 DLTA 101 2, -2 201 0, 50 202 0, 40 203 0, 25 666 508, 0 667 -508, 0 777 0, -60 800 8, 0 801 0, -150 802 320, 0 803 -320, 0 900 -1599, -5689 997 550, -2166 998 0, 0 999 -1016, 0 SCAL 1 7.00000E+00 5 4.00000E+00