HEADING:(FOCUS) MODEL 25 STEP & REPEAT FOCUS ROUTINE 11/26/91 GF,SH STEP 1 REM "FOCUS ROUTINE FOR MODEL 25 #3 S&R LASER SYSTEM ONLY" 2 HOME 3 GOSU STEP 7 4.00000E+00 4.00000E+00 7.00000E+03 7.00000E+03 4 HAND 5 QUIT 6 GOTO STEP 100 7 SHOM REG 30 8 SHOM REG 0 9 LET DUM 998 = VALU 3 10 LET DUM 999 = VALU 4 11 LET REG 990 = 00 12 LET REG 991 = 00 13 ALIN POS 998 REF 999 REG 998 14 ALIN POS 0 REF 0 REG 0 15 LET DLTA 995 = DLTA 993 16 LET DLTA 996 = POS 997 - POS 999 17 SMOV DLTA 996 SPD 0 REG 0 18 MOVE POS 600 SPD 0 19 GOSU STEP 39 20 LET REG 990 = REG 990 + 01 21 LET REG 991 = REG 991 + 01 22 LET REG 999 = ( REG 991 - 01 ) * DUM 999 23 LET REG 999 = REG 991 * DUM 999 - REG 999 24 LET DLTA 999 = REG 999 * DLTA 995 25 SMOV DLTA 999 SPD 0 REG 0 26 GOSU STEP 39 27 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 21 28 IF REG 990 = VALU 1 THEN GOTO STEP 36 29 LET DLTA 995 = DLTA 995 * ( - 01 ) 30 LET REG 999 = ( REG 990 - 01 ) * DUM 998 31 LET REG 999 = REG 990 * DUM 998 - REG 999 32 LET DLTA 997 = REG 999 * DLTA 994 33 SMOV DLTA 997 SPD 0 REG 0 34 GOSU STEP 39 35 LET REG 991 = 00 36 IF REG 990 < VALU 1 THEN GOTO STEP 20 37 SHOM REG 20 38 EXIT 39 GOSU STEP 57 40 GOSU STEP 86 41 LET POS 601 = POS 600 + DLTA 1 42 LET POS 602 = POS 600 + DLTA 2 43 LET POS 603 = POS 602 + DLTA 3 44 MOVE POS 600 SPD 0 45 NIBL DLTA 1 POS 601 DENS 1 BRAN 0 46 MOVE POS 602 SPD 0 47 NIBL DLTA 3 POS 603 DENS 1 BRAN 0 48 PRIN "TO STOP TYPE 1 THEN RETURN" 49 PRIN "TO CONTINUE TYPE RETURN" STRG 1 50 PRIN "" 51 PRIN "" 52 READ TTY:;DUM 20 %1.0 THEN QUIT 53 IF DUM 20 = 1.00000E+00 THEN GOTO STEP 100 54 GOTO STEP 39 55 QUIT 56 EXIT 57 PRIN "JOYSTICK TO STARTING POSITION!" 58 XFER DEV 500 REG 0 MASK 0 BRAN 0 59 XFER DEV 501 REG 0 MASK 0 BRAN 0 60 LET REG 500 = 00 61 GOSU STEP 71 62 XFER DEV 502 REG 0 MASK 0 BRAN 0 63 LET REG 500 = 01 64 GOSU STEP 71 65 LET REG 501 = 00 66 XFER DEV 503 REG 501 MASK 500 BRAN 0 67 IF REG 501 = 00 THEN GOTO STEP 59 68 XFER DEV 504 REG 0 MASK 0 BRAN 0 69 XFER DEV 505 REG 0 MASK 0 BRAN 0 70 EXIT 71 XFER DEV 506 REG 502 MASK 501 BRAN 0 72 IF REG 502 = 00 THEN GOTO STEP 84 73 XFER DEV 506 REG 502 MASK 502 BRAN 0 74 IF REG 502 # 00 THEN GOTO STEP 80 75 IF REG 500 = 00 THEN GOTO STEP 78 76 NIBL DLTA 500 POS 500 DENS 500 BRAN 0 77 GOTO STEP 84 78 NIBL DLTA 501 POS 500 DENS 500 BRAN 0 79 GOTO STEP 84 80 IF REG 500 = 00 THEN GOTO STEP 83 81 NIBL DLTA 502 POS 501 DENS 500 BRAN 0 82 GOTO STEP 84 83 NIBL DLTA 503 POS 501 DENS 500 BRAN 0 84 EXIT 85 XFER DEV 600 REG 0 MASK 0 BRAN 0 86 XFER DEV 601 REG 0 MASK 0 BRAN 0 87 GOSU STEP 94 88 LET DLTA 600 = DUM 600 * DLTA 601 89 XFER DEV 602 REG 0 MASK 0 BRAN 0 90 GOSU STEP 94 91 LET POS 600 = DLTA 600 + ( DUM 600 * DLTA 602 ) 92 XFER DEV 605 REG 0 MASK 0 BRAN 0 93 EXIT 94 LET REG 600 = 00 95 LET REG 601 = 00 96 XFER DEV 603 REG 600 MASK 0 BRAN 0 97 XFER DEV 604 REG 601 MASK 0 BRAN 0 98 LET DUM 600 = REG 600 * 010000 + REG 601 - 0100000 99 EXIT 100 SHOM REG 30 101 SHOM REG 31 102 SHOM REG 32 103 QUIT DENS 1 SPD 1 PWR 1 500 SPD 500 PWR 0 DEV 500 06002 501 06401 502 06402 503 06564 504 06561 505 06001 506 06444 600 06002 601 06401 602 06402 603 06412 604 06414 605 06001 REG 1 00 2 00 3 00 4 00 10 01 20 04 30 03 31 00 32 04 500 01 501 00 502 00 600 07 601 03134 990 00 991 00 998 -01 999 01750 MASK 500 01000 501 01 502 02 POS 50 0, 0 500 -15000, -15000 501 15000, 15000 600 1936, -2468 601 1936, -2718 602 1811, -2593 603 2061, -2593 899 -201, 6 900 -201, 6 997 12245, 9019 998 -15677, 9066 999 14329, 9066 REF 999 POS 999 DUM 20 1.00000E+00 600 -2.46800E+03 998 7.00000E+03 999 7.00000E+03 SPD 1 5.00000E+00, 5.00000E+00 500 1.00000E+02, 1.00000E+02 PWR 1 100, 100 STRG 1 _ 500 _ DLTA 1 0, -250 2 -125, -125 3 250, 0 10 0, 0 500 0, -25 501 -25, 0 502 0, 25 503 25, 0 600 1936, 0 601 1, 0 602 0, 1 993 0, 1 994 -1, 0 995 0, 1 996 -2084, -47 997 -1000, 0 998 0, 0 999 0, 1000