HEADING:300-2552-00 (P20479.ID) PASS 'B' MARK ID NUMBER 1-8-97 SH
STEP
1 GOTO STEP 9
2 PRIN "NO ZERO DUMMY ROUTINE"
3 PRIN "NO DATALOGGING ROUTINE"
4 PRIN "NO DRIFT TEST ROUTINE"
5 QUIT
6 GOTO STEP 70
7 GOTO STEP 83
8 IF DUM 807 = 00 THEN LET DUM 807 = 01
9 IF DUM 801 = 00 THEN GOTO STEP 83
10 MOVE POS 100 SPD 0
11 GOSU STEP 30 5.00000E+00 9.00000E+00 5.28300E+03 3.20000E+03
12 LET DLTA 900 = POS 900 - POS 899
13 DISP DLTA 900
14 MOVE POS 899 SPD 0
15 MOVE POS 800 SPD 0
16 LET J = 02
17 LET K = 03
18 LET L = 04
19 LET DUM 805 = DUM 799 / 1.00000E+04
20 LET DUM 888 = DUM 807 / 1.00000E+02
21 LET STRG 11 = %4.4 DUM 805
22 LET STRG 10 = %2.2 DUM 888
23 LET STRG 12 = J J STRG 333 + K L STRG 11 + K J STRG 10
24 PRIN "LOT/SERIAL # IS: " STRG 12
25 CGEN DENS 1 SCAL 1 POS 801 STRG 12
26 MOVE POS 899 SPD 0
27 PRIN ""
28 HAND
29 EXIT
30 IF DUM 807 = 00 THEN GOTO STEP 37
31 PRIN STRG 3
32 PRIN "PROGRAM STOPPED AT PART # " DUM 807
33 PRIN STRG 3
34 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1
35 READ TTY:;DUM 808 %1.0 THEN QUIT
36 LET DUM 807 = 00
37 SHOM REG 30
38 SHOM REG 0
39 LET DUM 998 = VALU 3
40 LET DUM 999 = VALU 4
41 LET REG 990 = 00
42 LET REG 991 = 00
43 PRIN "ALIGN THETA"
44 ALIN POS 998 REF 999 REG 998
45 PRIN "ALIGN X-Y"
46 ALIN POS 0 REF 0 REG 0
47 LET DLTA 995 = DLTA 993
48 LET DLTA 998 = POS 997 - POS 999
49 GOSU STEP 74
50 LET REG 990 = REG 990 + 01
51 LET REG 991 = REG 991 + 01
52 LET REG 999 = ( REG 991 - 01 ) * DUM 999
53 LET REG 999 = REG 991 * DUM 999 - REG 999
54 LET DLTA 999 = REG 999 * DLTA 995
55 LET DLTA 998 = DLTA 998 + DLTA 999
56 GOSU STEP 74
57 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 51
58 IF REG 990 = VALU 1 THEN GOTO STEP 66
59 LET DLTA 995 = DLTA 995 * ( - 01 )
60 LET REG 999 = ( REG 990 - 01 ) * DUM 998
61 LET REG 999 = REG 990 * DUM 998 - REG 999
62 LET DLTA 997 = REG 999 * DLTA 994
63 LET DLTA 998 = DLTA 998 + DLTA 997
64 GOSU STEP 74
65 LET REG 991 = 00
66 IF REG 990 < VALU 1 THEN GOTO STEP 50
67 LET DUM 799 = DUM 799 + 01
68 LET DUM 807 = 00
69 LET DUM 808 = 00
70 SHOM REG 30
71 SHOM REG 31
72 SHOM REG 32
73 QUIT
74 LET DUM 807 = DUM 807 + 01
75 IF DUM 808 > DUM 807 THEN EXIT
76 SMOV DLTA 998 SPD 0 REG 0
77 SMOV DLTA 0 SPD 0 REG 0
78 LET DLTA 998 = 00
79 PRIN ""
80 PRIN "PART # " DUM 807
81 GOSU STEP 12
82 EXIT
83 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1
84 READ TTY:;"_" STRG 333 %1.0 THEN QUIT
85 PRIN "LOT NUMBER IS " STRG 333
86 PRIN " "
"ENTER TODAY'S DATE >" STRG 1
87 READ TTY:;"_" STRG 350 %1.0 THEN QUIT
88 PRIN "DATE IS: " STRG 350
89 PRIN STRG 3
90 LET DUM 801 = 01
91 PRIN "POSITIONS SET FOR 16 PHASE ONLY"
92 QUIT
DENS
1 SPD 1 PWR 1
2 SPD 2 PWR 1
99 SPD 99 PWR 1
REG
1 00
2 00
3 00
4 00
30 03
31 00
32 04
50 00
990 01
991 01
998 -01
999 06200
POS
100 -333, 467
800 1440, 70
801 2740, 70
899 -349, 460
900 -349, 460
997 13415, -8964
998 -11907, 19636
999 13415, 19636
REF
999 POS 999
CODE
1 2, 2, 0, 0
2 3, 3, 0, 0
3 3, 3, 50, 0
4 3, 4, 50, 0
5 3, 5, 50, 0
6 3, 6, 50, 0
7 3, 7, 50, 0
8 8, 2, 0, 0
10 3, 8, 200, 0
DUM
799 1.00000E+00
800 0.00000E+00
801 1.00000E+00
802 0.00000E+00
803 0.00000E+00
804 0.00000E+00
805 2.60000E-03
806 0.00000E+00
807 0.00000E+00
808 1.00000E+00
809 8.00000E+01
810 -8.00000E+01
811 3.30000E+01
812 1.50000E+01
813 1.50000E+01
814 1.60000E+02
888 2.00000E-02
998 5.28300E+03
999 3.20000E+03
SPD
1 1.20000E+01, 1.20000E+01
2 1.40000E+01, 1.40000E+01
99 5.00000E+01, 5.00000E+01
PWR
1 100, 100
STRG
1 _
2 300-2552-00
3
10 .02
11 .0026
12 01002602
333 L01B
340 0
350 9 DEC 96
1000 Y
DLTA
900 0, 0
993 0, 1
994 -1, 0
995 0, 1
996 0, 0
997 -5283, 0
998 0, 0
999 0, 3200
SCAL
1 6.00000E+00
333 0.00000E+00