HEADING: PTHB SERIAL NUMBER (P20515.A1) S&R MODEL 25 17/MAY/04 STEVE D STEP 1 GOTO STEP 9 2 PRIN " NO ZERO DUMMY ROUTINE " 3 PRIN " NO DATA LOGGING " 4 PRIN " NO DRIFT TEST " 5 GOTO STEP 9 6 GOTO STEP 79 7 REM " *** DUM 799 IS THE SERIAL NUMBER *******" 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 12 10 GOTO STEP 12 11 REM "****** NO HEAD TO PROBE ALIGNMENT REQUIRED ********* " 12 GOSU STEP 55 13 LET DLTA 900 = POS 900 - POS 899 14 MOVE POS 899 SPD 0 15 REM "****************** CGEN SERIAL NUMBER ON PACKAGE ****** " 16 FOR I = 1.00000E+00 TO 8.00000E+00 17 MOVE POS 2 SPD 0 18 CGEN DENS 1 SCAL 1 POS 3 STRG 11 19 MOVE POS 4 SPD 0 20 CGEN DENS 1 SCAL 1 POS 5 STRG 12 21 MOVE POS 6 SPD 0 22 CGEN DENS 1 SCAL 1 POS 7 STRG 13 23 MOVE POS 8 SPD 0 24 CGEN DENS 1 SCAL 1 POS 9 STRG 14 25 MOVE POS 10 SPD 0 26 CGEN DENS 1 SCAL 1 POS 11 STRG 15 27 MOVE POS 12 SPD 0 28 CGEN DENS 1 SCAL 1 POS 13 STRG 16 29 MOVE POS 14 SPD 0 30 CGEN DENS 1 SCAL 1 POS 15 STRG 17 31 MOVE POS 16 SPD 0 32 CGEN DENS 1 SCAL 1 POS 17 STRG 18 33 MOVE POS 18 SPD 0 34 CGEN DENS 1 SCAL 1 POS 19 STRG 19 35 MOVE POS 20 SPD 0 36 CGEN DENS 1 SCAL 1 POS 21 STRG 20 37 MOVE POS 22 SPD 0 38 CGEN DENS 1 SCAL 1 POS 23 STRG 21 39 MOVE POS 24 SPD 0 40 CGEN DENS 1 SCAL 1 POS 25 STRG 22 41 MOVE POS 26 SPD 0 42 CGEN DENS 1 SCAL 1 POS 27 STRG 23 43 MOVE POS 28 SPD 0 44 CGEN DENS 1 SCAL 1 POS 29 STRG 24 45 MOVE POS 30 SPD 0 46 CGEN DENS 1 SCAL 1 POS 31 STRG 25 47 MOVE POS 32 SPD 0 48 CGEN DENS 1 SCAL 1 POS 33 STRG 26 49 NEXT I 50 PRIN "SERIAL NUMBER IS : " STRG 12 " ON PART # " DUM 807 51 LET DUM 799 = DUM 799 + 1.00000E+00 52 LET STRG 11 = DUM 799 53 HAND 54 EXIT 55 IF DUM 807 = 00 THEN GOTO STEP 62 56 PRIN STRG 3 57 PRIN "PROGRAM STOPPED AT PART # " DUM 807 58 PRIN STRG 3 59 PRIN "ENTER PART # YOU WANT TO START ON (1 THROUGH 4 ONLY) >" STRG 1 60 READ TTY:;DUM 808 %1.0 THEN QUIT 61 LET DUM 807 = 00 62 MOVE POS 990 SPD 0 63 SHOM REG 990 64 SHOM REG 0 65 MOVE POS 100 SPD 0 66 LET DLTA 998 = POS 997 67 IF BIT 6 = 01 THEN GOTO STEP 73 68 PRIN "ALIGN THETA" 69 ALIN POS 998 REF 999 REG 998 70 PRIN "ALIGN X-Y" 71 ALIN POS 0 REF 0 REG 0 72 LET DLTA 998 = POS 997 - POS 999 73 GOTO STEP 75 74 LET DLTA 998 = DLTA 998 + DLTA 999 75 GOSU STEP 83 76 IF DUM 807 < DUM 999 THEN GOTO STEP 74 77 LET DUM 807 = 00 78 LET DUM 808 = 00 79 SHOM REG 990 80 SHOM REG 0 81 SHOM REG 991 82 QUIT 83 LET DUM 807 = DUM 807 + 01 84 IF DUM 808 > DUM 807 THEN EXIT 85 SMOV DLTA 998 SPD 0 REG 0 86 LET DLTA 998 = 00 87 GOSU STEP 13 88 EXIT 89 LET M = DUM 811 90 QUIT 91 LET M = DUM 811 92 PRIN " NOMINAL" 93 EXIT 94 QUIT DENS 1 SPD 1 PWR 1 REG 1 00 2 00 3 00 4 00 50 00 990 03 991 04 998 -01 999 07747 POS 2 -14053, 9725 3 -8668, 9725 4 -6407, 9725 5 74, 9725 6 -14053, 6633 7 -8342, 6633 8 -6407, 6633 9 -223, 6633 10 -13999, 3603 11 -8724, 3603 12 -6401, 3603 13 22, 3603 14 -14000, 478 15 -8430, 478 16 -6407, 478 17 249, 478 18 -13922, -2561 19 -8378, -2561 20 -6407, -2561 21 161, -2561 22 -14053, -5610 23 -8298, -5610 24 -6407, -5610 25 145, -5610 26 -14341, -8644 27 -8466, -8644 28 -6407, -8644 29 150, -8644 30 -14341, -11872 31 -8231, -11872 32 -6407, -11872 33 177, -11872 100 -6749, 334 300 1437, -2206 800 -4542, -825 801 4900, -825 802 -4535, -840 803 4897, -825 899 -6817, 334 900 -6817, 334 990 0, 0 997 -7820, 2187 998 -7820, 14388 999 -7820, -6954 REF 999 POS 999 DUM 1 0.00000E+00 2 0.00000E+00 799 2.86460E+04 800 6.15000E+02 801 1.00000E+00 802 0.00000E+00 803 0.00000E+00 804 1.20000E+02 805 2.86450E-01 807 1.00000E+00 808 1.00000E+00 811 0.00000E+00 998 0.00000E+00 999 4.00000E+00 SPD 0 1.00000E+01, 1.00000E+01 1 2.50000E+01, 2.50000E+01 PWR 1 100, 100 STRG 1 _ 2 0 3  11 BEGIN 12 TEST 13 CARR 14 LOCKED 15 DOOR 16 REAR 17 DOOR 18 FRONT 19 CARR 20 REAR 21 CARR 22 FRONT 23 CLAMP B 24 RELEASED 25 CLAMP A 26 RELEASED 1000 Y DLTA 900 0, 0 997 0, 1650 998 0, 0 999 -12200, 0 SCAL 1 3.50000E+01