HEADING:300-2462-03 (P20478.A1) PASS 'A' S&R 25'S 4-8-97 SH STEP 1 GOTO STEP 9 2 PRIN "NO DUMMY ZERO ROUTINE" 3 PRIN "NO DATALOGGING OR DRIFT TEST ROUTINES" 4 QUIT 5 GOTO STEP 9 6 GOTO STEP 52 7 GOTO STEP 64 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 64 10 MOVE POS 100 SPD 0 11 GOSU STEP 28 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 REM "*** THRUHOLE CONTINUITY TEST ***" 16 FOR I = 6.01000E+02 TO 6.12000E+02 18 TEST UNK I CODE 1 TOL 600 ACC 20 REJ 0 REG 4 19 PRIN STRG 3 "THRU-HOLE REJECT # " I 20 NEXT I 21 IF REG 4 # 00 THEN GOTO STEP 25 22 PRIN "GOOD PART" 23 MOVE POS 800 SPD 0 24 CGEN DENS 1 SCAL 1 POS 801 "A" 25 MOVE POS 899 SPD 0 26 HAND 27 EXIT 28 IF DUM 807 = 00 THEN GOTO STEP 35 29 PRIN STRG 3 30 PRIN "PROGRAM STOPPED AT PART # " DUM 807 31 PRIN STRG 3 32 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 33 READ TTY:;DUM 808 %1.0 THEN QUIT 34 LET DUM 807 = 00 35 SHOM REG 30 36 SHOM REG 0 37 IF BIT 6 = 00 THEN GOTO STEP 40 38 LET DLTA 998 = POS 997 39 GOTO STEP 48 40 PRIN "ALIGN THETA" 41 ALIN POS 998 REF 999 REG 998 42 PRIN "ALIGN X-Y" 43 ALIN POS 0 REF 0 REG 0 44 LET DLTA 998 = POS 997 - POS 999 45 GOTO STEP 48 46 LET J = 9.99000E+02 47 LET DLTA 998 = DLTA 998 + DLTA J 48 GOSU STEP 56 49 IF DUM 807 < DUM 999 THEN GOTO STEP 46 50 LET DUM 807 = 00 51 LET DUM 808 = 00 52 SHOM REG 30 53 SHOM REG 31 54 SHOM REG 32 55 QUIT 56 LET DUM 807 = DUM 807 + 01 57 IF DUM 808 > DUM 807 THEN EXIT 58 SMOV DLTA 998 SPD 0 REG 0 59 LET DLTA 998 = 00 60 PRIN "" 61 PRIN "PART # " DUM 807 62 GOSU STEP 12 63 EXIT 64 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 65 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 66 PRIN "LOT NUMBER IS " STRG 333 67 LET DUM 801 = 01 68 QUIT MODE 100 TURN 0 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 UNK 600 NOM I SCAN I MAT 0 FUNC 0 DUM 0 601 NOM 601 SCAN 601 MAT 0 FUNC 0 DUM 0 602 NOM 602 SCAN 602 MAT 0 FUNC 0 DUM 0 603 NOM 603 SCAN 603 MAT 0 FUNC 0 DUM 0 604 NOM 604 SCAN 604 MAT 0 FUNC 0 DUM 0 605 NOM 605 SCAN 605 MAT 0 FUNC 0 DUM 0 606 NOM 606 SCAN 606 MAT 0 FUNC 0 DUM 0 607 NOM 607 SCAN 607 MAT 0 FUNC 0 DUM 0 608 NOM 608 SCAN 608 MAT 0 FUNC 0 DUM 0 609 NOM 609 SCAN 609 MAT 0 FUNC 0 DUM 0 610 NOM 610 SCAN 610 MAT 0 FUNC 0 DUM 0 611 NOM 611 SCAN 611 MAT 0 FUNC 0 DUM 0 612 NOM 612 SCAN 612 MAT 0 FUNC 0 DUM 0 REG 1 00 2 00 3 00 4 00 30 03 31 00 32 04 50 00 998 -01 999 00 POS 100 3179, 1668 800 11204, 3200 801 11764, 3200 899 4167, 3402 900 2586, -1442 997 -330, -8121 998 -8637, 22841 999 18301, 22841 REF 999 POS 999 NOM 601 1.80000E+01 602 2.60500E+05 603 5.00000E+01 604 9.01560E+05 605 7.50000E+01 606 4.00000E+01 607 8.50000E+01 608 5.00000E+00 609 5.00000E+00 610 1.00000E+06 611 4.97500E+01 612 9.01000E+05 SCAN 601 23, 21, 0, 0 602 1, 20, 0, 0 603 19, 18, 0, 0 604 2, 6, 0, 0 605 15, 12, 0, 0 606 17, 12, 0, 0 607 7, 12, 0, 0 608 13, 14, 0, 0 609 11, 12, 0, 0 610 21, 16, 0, 0 611 9, 8, 0, 0 612 5, 6, 0, 0 CODE 1 2, 2, 0, 0 2 2, 1, 0, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 8 8, 1, 0, 0 10 3, 8, 200, 0 TOL 600 -1.50000E+02, 1.00000E+02 DUM 499 5.01821E+00 800 0.00000E+00 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 0.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 0.00000E+00 812 0.00000E+00 813 0.00000E+00 814 1.60000E+02 998 0.00000E+00 999 2.00000E+00 1000 1.60000E+01 SPD 1 1.20000E+01, 1.20000E+01 PWR 1 100, 100 STRG 1 _ 2 300-2462-03 'A' 3 333 L104A 1000 Y DLTA 900 -1581, -4844 998 0, 0 999 0, 15240 SCAL 1 2.00000E+01 333 0.00000E+00