HEADING:


STEP
  2   PRIN  "1593 + 1588 S+R ALIGNMENT PROGRAM"
  4   LET  DUM 1 = 00
  6   PRIN  "THE TABLE IS NOW PROGRAMMED TO A FIXED POSITION AT"
  8   LET  SPD 2 = SPD 4
 10   PRIN  "           ZERO VELOCITY"
 11   PRIN  "  "
 12   SHOM   REG 0
 13   PRIN  "PRESS LOAD POSITION TO CONTINUE"
 14   XFER   DEV 1  REG 0  MASK 0  BRAN 0
 16   SMOV   DLTA 1  SPD 0  REG 12
 18   LET  REG 10 = 00
 20   SMOV   DLTA 2  SPD 1  REG 12
 22   XFER   DEV 2  REG 10  MASK 1  BRAN 0
 24   IF  REG 10 > 1.00000E+00 THEN   GOTO  STEP 28
 26   GOTO  STEP 22
 28   SHOM   REG 0
 30   LET  REG 10 = 00
 32   XFER   DEV 1  REG 0  MASK 0  BRAN 0
 34   SMOV   DLTA 3  SPD 0  REG 12
 36   XFER   DEV 2  REG 10  MASK 1  BRAN 0
 38   IF  REG 10 > 1.00000E+00 THEN   GOTO  STEP 50
 40   SMOV   DLTA 4  SPD 2  REG 12
 42   IF  DUM 1 > 00 THEN   GOSU  STEP 64
 44   SMOV   DLTA 5  SPD 2  REG 12
 46   IF  DUM 1 > 00 THEN   GOSU  STEP 64
 48   GOTO  STEP 36
 50   LET  REG 10 = 00
 52   XFER   DEV 1  REG 0  MASK 0  BRAN 0
 54   LET  SPD 2 = SPD 3
 56   LET  DUM 1 = DUM 1 + 1.00000E+00
 58   IF  DUM 1 > 1.00000E+00 THEN   GOTO  STEP 72
 60   GOTO  STEP 36
 62   QUIT
 64   LET  DUM 2 = 00
 66   LET  DUM 2 = DUM 2 + 1.00000E+00
 68   IF  DUM 2 > 2.00000E+02 THEN   EXIT
 70   GOTO  STEP 66
 72   SHOM   REG 11
 73   PRIN  "SINRT FINISHED"
 74   QUIT
DEV
  1   06561
  2   06564
REG
  1   00
  2   00
  3   00
  4   00
 10   00
 11   04
 12   01
MASK
  1   01000
DUM
  1   0.00000E+00
  2   2.01000E+02
SPD
  1   0.00000E+00, 0.00000E+00
  2   1.00000E+02, 1.00000E+02
  3   3.00000E+02, 3.00000E+02
  4   1.00000E+02, 1.00000E+02
DLTA
  1   1000, 1000
  2   0, 0
  3   20000, 20000
  4   -40000, -40000
  5   40000, 40000