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 52 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 28 13 LET DLTA 900 = POS 900 - POS 899 14 DISP DLTA 900 15 DISP DLTA 997 16 MOVE POS 899 SPD 0 17 REM "****************** CGEN SERIAL NUMBER ON PACKAGE ****** " 18 FOR I = 1.00000E+00 TO 8.00000E+00 19 LET J = I * 2.00000E+00 20 LET K = J + 1.00000E+00 21 LET L = I + 1.00000E+01 22 MOVE POS J SPD 0 23 PRIN " " STRG L 24 CGEN DENS 1 SCAL 1 POS K STRG L 25 NEXT I 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 (1 THROUGH 4 ONLY) >" STRG 1 33 READ TTY:;DUM 808 %1.0 THEN QUIT 34 LET DUM 807 = 00 35 MOVE POS 990 SPD 0 36 SHOM REG 990 37 SHOM REG 0 38 MOVE POS 100 SPD 0 39 LET DLTA 998 = POS 997 40 IF BIT 6 = 01 THEN GOTO STEP 46 41 PRIN "ALIGN THETA" 42 ALIN POS 998 REF 999 REG 998 43 PRIN "ALIGN X-Y" 44 ALIN POS 0 REF 0 REG 0 45 LET DLTA 998 = POS 997 - POS 999 46 GOTO STEP 48 47 LET DLTA 998 = DLTA 998 + DLTA 999 48 GOSU STEP 56 49 IF DUM 807 < DUM 999 THEN GOTO STEP 47 50 LET DUM 807 = 00 51 LET DUM 808 = 00 52 SHOM REG 990 53 SHOM REG 0 54 SHOM REG 991 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 GOSU STEP 13 61 EXIT 62 LET M = DUM 811 63 QUIT 64 LET M = DUM 811 65 PRIN " NOMINAL" 66 EXIT 67 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 0 0, 0 2 -6352, 9638 3 11, 9638 4 -6377, 6585 5 44, 6585 6 -6347, 3587 7 -49, 3587 8 -6347, 477 9 -44, 477 10 -6218, -2618 11 109, -2618 12 -6273, -5596 13 101, -5596 14 -6302, -8648 15 -13, -8648 16 -6235, -11689 17 -10, -11689 100 -6749, 334 300 1437, -2206 800 -4542, -825 801 4900, -825 802 -4535, -840 803 4897, -825 899 -6815, 334 900 -6815, 334 990 0, 0 997 -7851, 2182 998 -15065, 16459 999 -15065, -8557 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  10 BEGIN TEST 11 BEGIN TEST 12 CARRIAGED LOCKED 13 DOOR INTERLOCK R 14 DOOR INTERLOCK F 15 CARRIAGE POS R 16 CARRIAGE POS F 17 CLAMP B RELEASED 18 CLAMP A RELEASED 1000 Y DLTA 900 0, 0 997 0, 1650 998 0, 0 999 -12200, 0 SCAL 1 1.00000E+01