Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

049722,000002:                                                                                                  ## Copyright:   Public domain.
049723,000003:                                                                                                  ## Filename:    CONIC_SUBROUTINES.agc
049724,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
049725,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
049726,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
049727,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
049728,000008:                                                                                                  ##              that the code format has been changed to conform to the
049729,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
049730,000010:                                                                                                  ##              original YUL assembler.
049731,000011:                                                                                                  ## Reference:   pp. 1157-1201
049732,000012:                                                                                                  ## Assembler:   yaYUL
049733,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
049734,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049735,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
049736,000016:                                                                                                  ##              2016-12-09 MAS  Began updating for Luminary 210.
049737,000017:                                                                                                  ##              2016-12-10 MAS  Completed updates (almost entirely comment formatting)
049738,000018:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
049739,000019:                                                                                                  ##                              and corrected errors found.
049740,000020:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH and WHCIH -> WHICH.
049741,000021:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116. (One
049742,000022:                                                                                                  ##                              of the WHCIH's last time really was a WHCIH!)
049743,000023:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
049744,000024:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
049745,000025:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
049746,000026:                                                                                                  ##                              Luminary 99 vs Comanche 55.
049747,000027: 

Page 1157

049749,000029:                                                                                                  #  PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION                       DATE - 1 SEPTEMBER 1967
049750,000030:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
049751,000031:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
049752,000032: 
049753,000033: 
049754,000034: 

The space between FUNCTIONAL DESCRIPTION- and the paragraph text below was used to count up to 98 columns. At the 98 column mark, a line was drawn down through the word PRODUCED (PRO|DUCED).

049757,000037:                                                                                                  #  FUNCTIONAL DESCRIPTION -
049758,000038: 
049759,000039:                                                                                                  #       THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
049760,000040:                                                                                                  #  INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
049761,000041:                                                                                                  #  5.5.1.2.  A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
049762,000042:                                                                                                  #  RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE.  THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
049763,000043:                                                                                                  #  INVOLVING ANY REALISTIC SET OF CONSTRAINTS.  IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
049764,000044:                                                                                                  #  EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
049765,000045:                                                                                                  #  THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
049766,000046:                                                                                                  #  DEFINITION MEMO NO. 10.  THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
049767,000047:                                                                                                  #  TINES APPROPRIATELY.
049768,000048:                                                                                                  #       DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
049769,000049:                                                                                                  #  BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE.  AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
049770,000050:                                                                                                  #  DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
049771,000051: 
049772,000052: 
049773,000053:                                                                                                  #  RESTRICTIONS -
049774,000054: 
049775,000055:                                                                                                  #       THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
049776,000056:                                                                                                  #  LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP.  THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
049777,000057:                                                                                                  #  TORIES COULD BE HANDLED.
049778,000058:                                                                                                  #       SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
049779,000059:                                                                                                  #  THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
049780,000060:                                                                                                  #  TO INTERRUPT EACH OTHER.  IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
049781,000061: 

Page 1158

049783,000063:                                                                                                  #  PROGRAM DESCRIPTION - KEPLER SUBROUTINE                                 DATE - 11 OCTOBER 1967
049784,000064:                                                                                                  #  MOD NO. -1                                                                       LOG SECTION - CONIC SUBROUTINES
049785,000065:                                                                                                  #  MOD BY KRAUSE                                                           ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
049786,000066:                                                                                                  #  MOD NO. - 2  (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
049787,000067: 
049788,000068: 
049789,000069:                                                                                                  #  MOD NO. - 3  (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
049790,000070: 
049791,000071: 
049792,000072:                                                                                                  #  MOD. NO. - 4   (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
049793,000073: 
049794,000074: 
049795,000075:                                                                                                  #  FUNCTIONAL DESCRIPTION -
049796,000076:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
049797,000077:                                                                                                  #  BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR.  THE TRAJECTORY MAY BE ANY CONIC
049798,000078:                                                                                                  #  SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON.  THE
049799,000079:                                                                                                  #  USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
049800,000080:                                                                                                  #  INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERA-
049801,000081:                                                                                                  #  TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
049802,000082:                                                                                                  #       IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
049803,000083:                                                                                                  #  EXTRAPOLATING THE POSITION BACKWARD IN TIME.
049804,000084:                                                                                                  #       IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
049805,000085:                                                                                                  #  MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
049806,000086: 
049807,000087: 
049808,000088:                                                                                                  #  THE RESTRICTIONS ARE -
049809,000089:                                                                                                  #       1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
049810,000090:                                                                                                  #       2.  THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP.  IF
049811,000091:                                                                                                  #  ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049812,000092: 
049813,000093: 
049814,000094:                                                                                                  #       THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
049815,000095:                                                                                                  #  GUESS, XKFPNEW.  THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
049816,000096:                                                                                                  #  FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
049817,000097: 
049818,000098: 
049819,000099: 
049820,000100:                                                                                                  #  REFERENCES -
049821,000101:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
049822,000102:                                                                                                  #  MEMO 67-4.
049823,000103: 
049824,000104: 
049825,000105: 
049826,000106:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
049827,000107: 
049828,000108:                                                                                                  #          * SCALE FACTOR *
049829,000109:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
049830,000110:                                                                                                  #  --------*--------------*                         -----------------------
049831,000111:                                                                                                  #  RRECT   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
049832,000112:                                                                                                  #          * +27 FOR MOON *

Page 1159

049834,000114:                                                                                                  #  VRECT   * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049835,000115:                                                                                                  #          * +5 FOR MOON  *
049836,000116:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049837,000117:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
049838,000118:                                                                                                  #  TAU.    * +28          *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
049839,000119:                                                                                                  #          *              *    MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
049840,000120:                                                                                                  #  XKEPNEW * +17 FOR EARTH*DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
049841,000121:                                                                                                  #          * +16 FOR MOON *    AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD,VIZ, 2PI SQRT(SEMI-
049842,000122:                                                                                                  #          *              *    MAJOR AXIS),FOR SPEED OF CONVERGENCE,BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
049843,000123:                                                                                                  #          *              *    BY KEPLER TO A POOR BUT VALID GUESS.
049844,000124:                                                                                                  #  TC      * +28          *DP PREV. VALUE OF TIME IN CENTISECS.  MUST BE LESS THAN ONE ORBITAL PERIOD.
049845,000125:                                                                                                  #  XPREV   * +17 FOR EARTH*DP PREV. VALUE OF X IN SQRT(METERS).  MUST BE LESS THAN AN X CORRESPONDING TO ONE
049846,000126:                                                                                                  #          * +16 FOR MOON *    ORBITAL PERIOD,VIZ,2PI SQRT(SEMI-MAJOR AXIS)
049847,000127: 
049848,000128: 
049849,000129: 
049850,000130:                                                                                                  #  SUBROUTINES CALLED -
049851,000131:                                                                                                  #       DELTIME
049852,000132: 
049853,000133: 
049854,000134: 
049855,000135:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
049856,000136: 
049857,000137:                                                                                                  #  KEPRTN-2 GOTO                   MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049858,000138:                                                                                                  #  KEPRTN-1        KEPLER          RETURNS WITH XPREV IN MPAC. PL IS AT 0.
049859,000139:                                                                                                  #  KEPRTN   ...                    CONTINUE
049860,000140: 
049861,000141:                                                                                                  #  KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
049862,000142:                                                                                                  #  THE INTERRUPTED JOB.  THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
049863,000143:                                                                                                  #  ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
049864,000144: 
049865,000145: 
049866,000146: 
049867,000147:                                                                                                  #  ABORT EXIT MODES -
049868,000148:                                                                                                  #       NONE
049869,000149: 
049870,000150: 
049871,000151: 
049872,000152:                                                                                                  #  OUTPUT -
049873,000153: 
049874,000154:                                                                                                  #          * SCALE FACTOR *
049875,000155:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
049876,000156:                                                                                                  #  --------*--------------*                         -----------------------
049877,000157:                                                                                                  #  RCV     * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
049878,000158:                                                                                                  #          * +27 FOR MOON *
049879,000159:                                                                                                  #  VCV     * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
049880,000160:                                                                                                  #          * +5 FOR MOON  *
049881,000161:                                                                                                  #  TC      * +28          *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
049882,000162:                                                                                                  #  XPREV   * +17 FOR EARTH*DP VALUE OF X IN SQRT(METERS) TO WHCIH KEPLER CONVERGED. ALWAYS LESS THAN THE X
049883,000163:                                                                                                  #          * +16 FOR MOON *    CORRESPONDING TO ONE PERIOD.

Page 1160

049885,000165:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
049886,000166: 
049887,000167: 
049888,000168: 
049889,000169:                                                                                                  #  DEBRIS -
049890,000170: 
049891,000171:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
049892,000172: 
049893,000173:                                                                                                  #          * SCALE FACTOR *
049894,000174:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
049895,000175:                                                                                                  #  --------*--------------*                         -----------------------
049896,000176:                                                                                                  #  URRECT  * +1           *DP UNIT VECTOR OF INITIAL POSITION
049897,000177:                                                                                                  #  R1      * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
049898,000178:                                                                                                  #          * +27 FOR MOON *
049899,000179:                                                                                                  #  ALPHA   * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
049900,000180:                                                                                                  #          * -20 FOR MOON *
049901,000181:                                                                                                  #  TMODULO * +28          *DP INTEGRAL NUMBER OF PERIODS IN  CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
049902,000182:                                                                                                  #          *              *TAU. OF LESS THAN ONE PERIOD.
049903,000183: 
049904,000184:                                                                                                  #       PARAMETERS OF NO USE -
049905,000185:                                                                                                  #  DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
049906,000186: 
049907,000187: 

Page 1161

049909,000189:                                                                                                  #  PROGRAM DESCRIPTION - LAMBERT SUBROUTINE                                        DATE - 1 SEPTEMBER 1967
049910,000190:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
049911,000191:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
049912,000192: 
049913,000193: 
049914,000194: 
049915,000195:                                                                                                  #  FUNCTIONAL DESCRIPTION -
049916,000196: 
049917,000197:                                                                                                  #       THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
049918,000198:                                                                                                  #  FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL.  THE RESULTING TRAJECTORY MAY BE
049919,000199:                                                                                                  #  A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE
049920,000200:                                                                                                  #  SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
049921,000201:                                                                                                  #  CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERATION TECHNIQUE IS
049922,000202:                                                                                                  #  UTILIZED IN THE COMPUTATION.
049923,000203: 
049924,000204: 
049925,000205:                                                                                                  #  THE RESTRICTIONS ARE -
049926,000206:                                                                                                  #       1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
049927,000207:                                                                                                  #       2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
049928,000208:                                                                                                  #       3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
049929,000209:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
049930,000210:                                                                                                  #       4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
049931,000211:                                                                                                  #       5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE
049932,000212:                                                                                                  #  LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049933,000213:                                                                                                  #       THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
049934,000214:                                                                                                  #  GUESS OF THE INDEPENDENT VARIABLE, COGA.                                THE AGC COMPUTATION TIME IS APPROXIMATE-
049935,000215:                                                                                                  #  LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
049936,000216: 
049937,000217: 
049938,000218: 
049939,000219:                                                                                                  #  REFERENCES -
049940,000220:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
049941,000221:                                                                                                  #  SGA MEMO 67-4.
049942,000222: 
049943,000223: 
049944,000224: 
049945,000225:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
049946,000226: 
049947,000227:                                                                                                  #          * SCALE FACTOR *
049948,000228:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
049949,000229:                                                                                                  #  --------*--------------*                         -----------------------
049950,000230:                                                                                                  #  R1VEC   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
049951,000231:                                                                                                  #          * +27 FOR MOON *
049952,000232:                                                                                                  #  R2VEC   * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
049953,000233:                                                                                                  #          * +27 FOR MOON *
049954,000234:                                                                                                  #  TDESIRED* +28          *DP DESIRED TRANSFER TIME IN CENTISECONDS
049955,000235:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049956,000236:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
049957,000237:                                                                                                  #  GEOMSGN * NONE         *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
049958,000238:                                                                                                  #  GUESSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF

Page 1162

049960,000240:                                                                                                  #          *              *COGA IS TO BE USED BY LAMBERT
049961,000241:                                                                                                  #  COGA    * +5           *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL).  THIS WILL BE
049962,000242:                                                                                                  #                         *IGNORED IF GUESSW IS SET.
049963,000243:                                                                                                  #  NORMSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
049964,000244:                                                                                                  #          *              *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
049965,000245:                                                                                                  #  UN      * +1           *DP UNIT  NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
049966,000246:                                                                                                  #          *              *MOMENTUM VECTOR.  THIS WILL BE IGNORED IF NORMSW IS CLEAR.
049967,000247:                                                                                                  #  VTARGTAG* NONE         *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
049968,000248:                                                                                                  #          *              *AT R1VEC.
049969,000249:                                                                                                  #  ITERCTR * NONE         *A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE.
049970,000250:                                                                                                  #          *              *(AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
049971,000251:                                                                                                  #          *              *ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.)
049972,000252:                                                                                                  #          *              *TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
049973,000253: 
049974,000254: 
049975,000255:                                                                                                  #  SUBROUTINES CALLED -
049976,000256:                                                                                                  #       GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
049977,000257: 
049978,000258: 
049979,000259: 
049980,000260:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
049981,000261: 
049982,000262:                                                                                                  #  L        CALL                   MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049983,000263:                                                                                                  #  L+1             LAMBERT         RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
049984,000264:                                                                                                  #                                  IN MPAC IF VTARGTAG WAS ZERO
049985,000265:                                                                                                  #  L+2      BON                    CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
049986,000266:                                                                                                  #  L+3             SOLNSW
049987,000267:                                                                                                  #  L+4             LAMABORT
049988,000268:                                                                                                  #       IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
049989,000269:                                                                                                  #  GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
049990,000270: 
049991,000271: 
049992,000272: 
049993,000273:                                                                                                  #  ABORT EXIT MODES -
049994,000274:                                                                                                  #       IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
049995,000275:                                                                                                  #  WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC.  IN EITHER CASE THE FIX MUST BE MADE
049996,000276:                                                                                                  #  ACCORDING TO THE NEEDS OF THE PARTICULAR USER.  THE ABORT EXIT MODE MAY BE CODED AS ...
049997,000277:                                                                                                  #  LAMABORT DLOAD    ABS                   A MEASURE OF PROXIMITY TO 0 OR
049998,000278:                                                                                                  #                    1-CSTH                360 DEGREES.
049999,000279:                                                                                                  #           DSU      BMN
050000,000280:                                                                                                  #                    ONEBIT
050001,000281:                                                                                                  #                    CHANGER2              CHANGE R2VEC DIRECTION SLIGHTLY.
050002,000282:                                                                                                  #           DLOAD    DAD
050003,000283:                                                                                                  #                    TDESIRED
050004,000284:                                                                                                  #                    SOMETIME
050005,000285:                                                                                                  #           STCALL   TDESIRED              INCREASE TDESIRED
050006,000286:                                                                                                  #                    LAMBERT
050007,000287: 
050008,000288: 

Page 1163

050010,000290:                                                                                                  #  OUTPUT -
050011,000291:                                                                                                  #          * SCALE FACTOR *
050012,000292:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050013,000293:                                                                                                  #  --------*--------------*                         -----------------------
050014,000294:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
050015,000295:                                                                                                  #          * +5 FOR MOON  *PROBLEM.
050016,000296:                                                                                                  #  VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
050017,000297:                                                                                                  #          * +5 FOR MOON  *
050018,000298:                                                                                                  #  SOLNSW  * NONE         *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
050019,000299:                                                                                                  #          *              *SOLUTION EXISTS.
050020,000300:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050021,000301: 
050022,000302: 
050023,000303: 
050024,000304:                                                                                                  #  DEBRIS -
050025,000305:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050026,000306: 
050027,000307:                                                                                                  #          * SCALE FACTOR *
050028,000308:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050029,000309:                                                                                                  #  --------*--------------*                         -----------------------
050030,000310:                                                                                                  #  SNTH    * +1           *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
050031,000311:                                                                                                  #  CSTH    * +1           *DP COSINE OF ANGLE
050032,000312:                                                                                                  #  1-CSTH  * +2           *DP 1-CSTH
050033,000313:                                                                                                  #  COGA    * +5           *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
050034,000314:                                                                                                  #  P       * +4           *DP RATIO  OF SEMILATUS RECTUM TO INITIAL RADIUS
050035,000315:                                                                                                  #  R1A     * +6           *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
050036,000316:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
050037,000317:                                                                                                  #          * +27 FOR MOON *
050038,000318:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF R1VEC
050039,000319:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF R2VEC
050040,000320: 
050041,000321:                                                                                                  #       PARAMETERS OF NO USE
050042,000322:                                                                                                  #  DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
050043,000323:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
050044,000324: 
050045,000325: 

Page 1164

050047,000327:                                                                                                  #  PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE                                     DATE - 1 SEPTEMBER 1967
050048,000328:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
050049,000329:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
050050,000330: 
050051,000331: 
050052,000332: 
050053,000333:                                                                                                  #  FUNCTIONAL DESCRIPTION -
050054,000334: 
050055,000335:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
050056,000336:                                                                                                  #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050057,000337:                                                                                                  #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050058,000338:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
050059,000339:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050060,000340:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050061,000341: 
050062,000342: 
050063,000343:                                                                                                  #  THE RESTRICTIONS ARE -
050064,000344:                                                                                                  #       1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050065,000345:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
050066,000346:                                                                                                  #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
050067,000347:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050068,000348: 
050069,000349:                                                                                                  #       THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
050070,000350: 
050071,000351: 
050072,000352: 
050073,000353:                                                                                                  #  REFERENCES -
050074,000354:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050075,000355: 
050076,000356: 
050077,000357: 
050078,000358:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
050079,000359: 
050080,000360:                                                                                                  #          * SCALE FACTOR *
050081,000361:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050082,000362:                                                                                                  #  --------*--------------*                         -----------------------
050083,000363:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050084,000364:                                                                                                  #          * +27 FOR MOON *
050085,000365:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050086,000366:                                                                                                  #          * +5 FOR MOON  *
050087,000367:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
050088,000368:                                                                                                  #  CSTH    * +1           *DP COSINE OF THE ANGLE
050089,000369:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050090,000370:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
050091,000371:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050092,000372:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
050093,000373: 
050094,000374: 
050095,000375: 
050096,000376:                                                                                                  #  SUBROUTINES CALLED -

Page 1165

050098,000378:                                                                                                  #       PARAM, GEOM, GETX, DELTIME, NEWSTATE
050099,000379: 
050100,000380: 
050101,000381: 
050102,000382:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
050103,000383: 
050104,000384:                                                                                                  #     IF ONLY TIME IS DESIRED AS OUTPUT -
050105,000385:                                                                                                  #  L        SET    CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
050106,000386:                                                                                                  #  L+1             RVSW
050107,000387:                                                                                                  #  L+2             TIMETHET        RETURN WITH PL AT 0 AND T IN MPAC
050108,000388:                                                                                                  #  L+3      ...                    CONTINUE
050109,000389: 
050110,000390: 
050111,000391:                                                                                                  #     IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050112,000392:                                                                                                  #  L        CLEAR  CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
050113,000393:                                                                                                  #  L+1             RVSW
050114,000394:                                                                                                  #  L+2             TIMETHET        RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050115,000395:                                                                                                  #                                  THE INITIAL VELOCITY VECTOR IN MPAC.
050116,000396:                                                                                                  #  L+3      STOVL  NEWVVEC
050117,000397:                                                                                                  #  L+4      STADR
050118,000398:                                                                                                  #  L+5      STORE  NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050119,000399:                                                                                                  #  L+6      ...                            CONTINUE
050120,000400: 
050121,000401: 
050122,000402: 
050123,000403:                                                                                                  #  ABORT EXIT MODES -
050124,000404:                                                                                                  #           IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
050125,000405:                                                                                                  #           AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
050126,000406: 
050127,000407: 
050128,000408: 
050129,000409:                                                                                                  #  OUTPUT -
050130,000410:                                                                                                  #          * SCALE FACTOR *
050131,000411:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050132,000412:                                                                                                  #  --------*--------------*                         -----------------------
050133,000413:                                                                                                  #  T (30D) * +28          *DP TRANSFER TIME IN CENTISECONDS
050134,000414:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
050135,000415:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050136,000416:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050137,000417:                                                                                                  #          *              *CLEAR IF NOT.
050138,000418: 
050139,000419:                                                                                                  #  IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT-
050140,000420: 
050141,000421:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050142,000422:                                                                                                  #   MPAC +5* +5 FOR MOON  *
050143,000423:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050144,000424:                                                                                                  #          * +27 FOR MOON *
050145,000425: 
050146,000426:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050147,000427: 
050148,000428: 

Page 1166

050150,000430:                                                                                                  #  DEBRIS -
050151,000431: 
050152,000432:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050153,000433: 
050154,000434:                                                                                                  #          * SCALE FACTOR *
050155,000435:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050156,000436:                                                                                                  #  --------*--------------*                         -----------------------
050157,000437:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050158,000438:                                                                                                  #          * +27 FOR MOON *
050159,000439:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050160,000440:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
050161,000441:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050162,000442:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
050163,000443:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
050164,000444:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
050165,000445: 
050166,000446: 
050167,000447:                                                                                                  #       PARAMETERS OF NO USE -
050168,000448:                                                                                                  #  SP PARAMETERS -  RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050169,000449:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050170,000450: 
050171,000451: 

Page 1167

050173,000453:                                                                                                  #  PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE                            DATE - 11 OCTOBER 1967
050174,000454:                                                                                                  #  MOD NO. -1                                                                      LOG SECTION - CONIC SUBROUTINES
050175,000455:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
050176,000456: 
050177,000457: 
050178,000458: 
050179,000459:                                                                                                  #  FUNCTIONAL DESCRIPTION -
050180,000460: 
050181,000461:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
050182,000462:                                                                                                  #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050183,000463:                                                                                                  #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050184,000464:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
050185,000465:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050186,000466:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050187,000467:                                                                                                  #       IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
050188,000468:                                                                                                  #  APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
050189,000469: 
050190,000470: 
050191,000471:                                                                                                  #  THE RESTRICTIONS ARE -
050192,000472:                                                                                                  #       1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050193,000473:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
050194,000474:                                                                                                  #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
050195,000475:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050196,000476:                                                                                                  #       3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
050197,000477:                                                                                                  #  RDESIRED INCREASE.  THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR.  IN
050198,000478:                                                                                                  #  PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
050199,000479: 
050200,000480: 
050201,000481:                                                                                                  #       THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
050202,000482: 
050203,000483: 
050204,000484: 
050205,000485:                                                                                                  #  REFERENCES -
050206,000486:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050207,000487: 
050208,000488: 
050209,000489: 
050210,000490:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
050211,000491:                                                                                                  #          * SCALE FACTOR *
050212,000492:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050213,000493:                                                                                                  #  --------*--------------*                         -----------------------
050214,000494:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050215,000495:                                                                                                  #          * +27 FOR MOON *
050216,000496:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050217,000497:                                                                                                  #          * +5 FOR MOON  *
050218,000498:                                                                                                  #  RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
050219,000499:                                                                                                  #          * +27 FOR MOON *COMPUTED.
050220,000500:                                                                                                  #  SGNRDOT * NONE         *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
050221,000501:                                                                                                  #          *              *POSITIVE OR NEGATIVE, RESPECTIVELY.  THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A

Page 1168

050223,000503:                                                                                                  #          *              *SINGLE-VALUED PROBLEM.
050224,000504:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050225,000505:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
050226,000506:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050227,000507:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
050228,000508: 
050229,000509: 
050230,000510: 
050231,000511:                                                                                                  #  SUBROUTINES CALLED -
050232,000512:                                                                                                  #       PARAM, GEOM, GETX, DELTIME, NEWSTATE
050233,000513: 
050234,000514: 
050235,000515: 
050236,000516:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
050237,000517: 
050238,000518:                                                                                                  #     IF ONLY TIME IS DESIRED AS OUTPUT -
050239,000519:                                                                                                  #  L        SET    CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
050240,000520:                                                                                                  #  L+1             RVSW
050241,000521:                                                                                                  #  L+2             TIMERAD         RETURN WITH PL AT 0 AND T IN MPAC
050242,000522:                                                                                                  #  L+3      ...                    CONTINUE
050243,000523: 
050244,000524: 
050245,000525:                                                                                                  #     IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050246,000526:                                                                                                  #  L        CLEAR  CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
050247,000527:                                                                                                  #  L+1             RVSW
050248,000528:                                                                                                  #  L+2             TIMERAD         RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050249,000529:                                                                                                  #                                  THE INITIAL VELOCITY VECTOR IN MPAC.
050250,000530:                                                                                                  #  L+3      STOVL  NEWVVEC
050251,000531:                                                                                                  #  L+4      STADR
050252,000532:                                                                                                  #  L+5      STORE  NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050253,000533:                                                                                                  #  L+6      ...                            CONTINUE
050254,000534: 
050255,000535: 
050256,000536: 
050257,000537:                                                                                                  #  ABORT EXIT MODES -
050258,000538:                                                                                                  #           IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
050259,000539:                                                                                                  #           TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
050260,000540: 
050261,000541: 
050262,000542: 
050263,000543:                                                                                                  #  OUTPUT -
050264,000544:                                                                                                  #          * SCALE FACTOR *
050265,000545:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050266,000546:                                                                                                  #  --------*--------------*                         -----------------------
050267,000547:                                                                                                  #  T (30D) * +28          *DP TRANSFER TIME IN CENTISECONDS
050268,000548:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
050269,000549:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050270,000550:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050271,000551:                                                                                                  #          *              *CLEAR IF NOT.
050272,000552:                                                                                                  #  APSESW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR

Page 1169

050274,000554:                                                                                                  #          *              *LESS THAN RADIUS OF PERICENTER.  THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
050275,000555:                                                                                                  #          *              *WILL THEN BE RETURNED.  THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
050276,000556:                                                                                                  #          *              *APOCENTER.
050277,000557:                                                                                                  #  SOLNSW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
050278,000558:                                                                                                  #                         *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3.  IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
050279,000559:                                                                                                  #                         *MINUS-18, THE SWITCH IS CLEAR.
050280,000560: 
050281,000561: 
050282,000562:                                                                                                  #  IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT-
050283,000563: 
050284,000564:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050285,000565:                                                                                                  #   MPAC +5* +5 FOR MOON  *
050286,000566:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050287,000567:                                                                                                  #          * +27 FOR MOON *
050288,000568: 
050289,000569:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050290,000570: 
050291,000571: 
050292,000572: 
050293,000573:                                                                                                  #  DEBRIS -
050294,000574: 
050295,000575:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050296,000576: 
050297,000577:                                                                                                  #          * SCALE FACTOR *
050298,000578:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050299,000579:                                                                                                  #  --------*--------------*                         -----------------------
050300,000580:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050301,000581:                                                                                                  #          * +27 FOR MOON *
050302,000582:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050303,000583:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
050304,000584:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050305,000585:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
050306,000586:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
050307,000587:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
050308,000588:                                                                                                  #  CSTH    * +1           *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
050309,000589:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE ANOMALY DIFFERENCE.
050310,000590: 
050311,000591: 
050312,000592:                                                                                                  #       PARAMETERS OF NO USE -
050313,000593:                                                                                                  #  SP PARAMETERS -  RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050314,000594:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050315,000595: 
050316,000596: 

Page 1170

050318,000598:                                                                                                  #  PROGRAM DESCRIPTION - APSIDES SUBROUTINE                                        DATE - 1 SEPTEMBER 1967
050319,000599:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
050320,000600:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
050321,000601: 
050322,000602: 
050323,000603: 
050324,000604:                                                                                                  #  FUNCTIONAL DESCRIPTION -
050325,000605: 
050326,000606:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
050327,000607:                                                                                                  #  ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
050328,000608:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
050329,000609:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050330,000610:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050331,000611: 
050332,000612: 
050333,000613:                                                                                                  #  THE RESTRICTIONS ARE -
050334,000614:                                                                                                  #       1.  IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
050335,000615:                                                                                                  #  TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
050336,000616:                                                                                                  #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
050337,000617:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050338,000618: 
050339,000619:                                                                                                  #       THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
050340,000620: 
050341,000621: 
050342,000622: 
050343,000623:                                                                                                  #  REFERENCES -
050344,000624:                                                                                                  #       MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
050345,000625: 
050346,000626: 
050347,000627: 
050348,000628:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
050349,000629: 
050350,000630:                                                                                                  #          * SCALE FACTOR *
050351,000631:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050352,000632:                                                                                                  #  --------*--------------*                         -----------------------
050353,000633:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050354,000634:                                                                                                  #          * +27 FOR MOON *
050355,000635:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050356,000636:                                                                                                  #          * +5 FOR MOON  *
050357,000637:                                                                                                  #  X1 (38D)*NONE          *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050358,000638:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
050359,000639: 
050360,000640: 
050361,000641: 
050362,000642:                                                                                                  #  SUBROUTINES CALLED -
050363,000643:                                                                                                  #       PARAM, GEOM
050364,000644: 
050365,000645: 
050366,000646: 
050367,000647:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -

Page 1171

050369,000649:                                                                                                  #     IF ONLY TIME IS DESIRED AS OUTPUT -
050370,000650:                                                                                                  #  L        CALL                   MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
050371,000651:                                                                                                  #  L+1             APSIDES         RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
050372,000652:                                                                                                  #  L+2      STODL  APOAPSE
050373,000653:                                                                                                  #  L+3             0D
050374,000654:                                                                                                  #  L+4      STORE  PERIAPSE                APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
050375,000655:                                                                                                  #  L+5      ...                    CONTINUE
050376,000656: 
050377,000657: 
050378,000658: 
050379,000659:                                                                                                  #  OUTPUT -
050380,000660:                                                                                                  #          * SCALE FACTOR *
050381,000661:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050382,000662:                                                                                                  #  --------*--------------*                         -----------------------
050383,000663:                                                                                                  #  MPAC    * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
050384,000664:                                                                                                  #          * +27 FOR MOON *
050385,000665:                                                                                                  #  0D-1D   * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
050386,000666:                                                                                                  #          * +27 FOR MOON *
050387,000667:                                                                                                  #  ECC     * +3           *DP ECCENTRICITY OF CONIC TRAJECTORY.
050388,000668: 
050389,000669:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050390,000670: 
050391,000671: 
050392,000672: 
050393,000673:                                                                                                  #  DEBRIS -
050394,000674: 
050395,000675:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050396,000676: 
050397,000677:                                                                                                  #          * SCALE FACTOR *
050398,000678:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050399,000679:                                                                                                  #  --------*--------------*                         -----------------------
050400,000680:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050401,000681:                                                                                                  #          * +27 FOR MOON *
050402,000682:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050403,000683:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
050404,000684:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050405,000685:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
050406,000686:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
050407,000687:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
050408,000688:                                                                                                  #  MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
050409,000689:                                                                                                  #          * +5 FOR MOON  *
050410,000690: 
050411,000691: 
050412,000692:                                                                                                  #       PARAMETERS OF NO USE -
050413,000693:                                                                                                  #  SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5,10D-11D, 14D-21D, 31D-38D.
050414,000694:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
050415,000695: 
050416,000696: 
050417,000697: 
050418,000698: 12,2000                                           SETLOC   CONICS                                

Page 1172

050420,000700: 12,2000                                           BANK                                           
050421,000701: 
050422,000702: 12,2023                                           COUNT*   $$/CONIC                              
050423,000703: 12,2023  E5,1721                                  EBANK=   UR1                                   
050424,000704: 12,2023           40001        KEPLERN            SETPD    BOV                                   
050425,000705: 12,2024           00001                                    0                                     
050426,000706: 12,2025           24026                                    +1                                    
050427,000707: 12,2026           77773                           VLOAD*                                         
050428,000708: 12,2027           10005                                    MUTABLE,1                             
050429,000709: 12,2030           24017                           STOVL    14D                                   
050430,000710: 12,2031           01503                                    RRECT                                 
050431,000711: 12,2032           66256                           UNIT     SSP                                   
050432,000712: 12,2033           00027                                    ITERCTR                               
050433,000713: 12,2034           00024                                    20D                                   
050434,000714: 12,2035           16647                           STODL    URRECT                                
050435,000715: 12,2036           00045                                    36D                                   
050436,000716: 12,2037           24041                           STOVL    R1                                    
050437,000717: 12,2040           01503                                    RRECT                                 
050438,000718: 12,2041           76441                           DOT      SL1R                                  
050439,000719: 12,2042           01511                                    VRECT                                 
050440,000720: 12,2043           76405                           DMP      SL1R                                  
050441,000721: 12,2044           00023                                    1/ROOTMU                              #  1/ROOTMU (-17 OR -14)
050442,000722: 12,2045           24043                           STOVL    KEPC1                                 #  C1=R.V/ROOTMU (+17 OR +16)
050443,000723: 
050444,000724: 12,2046           01511                                    VRECT                                 
050445,000725: 12,2047           57236                           VSQ      DMPR                                  
050446,000726: 12,2050           00017                                    1/MU                                  #  1/MU (-34 OR -28)
050447,000727: 12,2051           52405                           DMP      SL3                                   
050448,000728: 12,2052           00041                                    R1                                    
050449,000729: 12,2053           61425                           DSU      ROUND                                 
050450,000730: 12,2054           11036                                    D1/64                                 
050451,000731: 12,2055           00045                           STORE    KEPC2                                 #  C2=RV.V/MU -1 (+6)
050452,000732: 
050453,000733: 12,2056           74421                           BDSU     SR1R                                  
050454,000734: 12,2057           11036                                    D1/64                                 
050455,000735: 12,2060           77671                           DDV                                            
050456,000736: 12,2061           00041                                    R1                                    
050457,000737: 12,2062           00011                           STORE    ALPHA                                 #  ALPHA=(1-C2)/R1 (-22 OR -20)
050458,000738: 
050459,000739: 
050460,000740: 12,2063           71244                           BPL      DLOAD                                 #  MAXIMUM X DEPENDS ON TYPE OF CONIC
050461,000741: 12,2064           24073                                    1REV                                  
050462,000742: 12,2065           11054                                    -50SC                                 #  -50SC (+12)
050463,000743: 12,2066           40071                           DDV      BOV                                   
050464,000744: 12,2067           00011                                    ALPHA                                 
050465,000745: 12,2070           24077                                    STOREMAX                              
050466,000746: 12,2071           52166                           SQRT     GOTO                                  
050467,000747: 12,2072           24077                                    STOREMAX                              
050468,000748: 
050469,000749: 12,2073           55366        1REV               SQRT     BDDV                                  

Page 1173

050471,000751: 12,2074           11056                                    2PISC                                 #  2PISC (+6)
050472,000752: 12,2075           77600                           BOV                                            
050473,000753: 12,2076           24077                                    STOREMAX                              
050474,000754: 12,2077           00013        STOREMAX           STORE    XMAX                                  
050475,000755: 12,2100           65205                           DMP      PDDL                                  
050476,000756: 12,2101           00023                                    1/ROOTMU                              
050477,000757: 12,2102           00011                                    ALPHA                                 
050478,000758: 12,2103           65301                           NORM     PDDL                                  
050479,000759: 12,2104           00047                                    X1                                    
050480,000760: 12,2105           56257                           SL*      DDV                                   
050481,000761: 12,2106           20173                                    0          -6,1                       
050482,000762: 12,2107           50000                           BOV      BMN                                   
050483,000763: 12,2110           24124                                    MODDONE                               
050484,000764: 12,2111           24124                                    MODDONE                               #  MPAC=PERIOD
050485,000765: 12,2112           51525        PERIODCH           PDDL     ABS                                   #  0D=PERIOD
050486,000766: 12,2113           02074                                    TAU.                                  
050487,000767: 12,2114           50025                           DSU      BMN                                   
050488,000768: 12,2115           00001                                    0D                                    
050489,000769: 12,2116           24124                                    MODDONE                               
050490,000770: 12,2117           77765                           SIGN                                           
050491,000771: 12,2120           02074                                    TAU.                                  
050492,000772: 12,2121           16074                           STODL    TAU.                                  
050493,000773: 12,2122           77650                           GOTO                                           
050494,000774: 12,2123           24112                                    PERIODCH                              
050495,000775: 12,2124           71201        MODDONE            SETPD    DLOAD                                 
050496,000776: 12,2125           00001                                    0                                     
050497,000777: 12,2126           02121                                    XKEPNEW                               
050498,000778: 12,2127           00025                           STORE    X                                     
050499,000779: 12,2130           53165                           SIGN     BZE                                   
050500,000780: 12,2131           02074                                    TAU.                                  
050501,000781: 12,2132           24302                                    BADX                                  
050502,000782: 12,2133           51440                           BMN      ABS                                   
050503,000783: 12,2134           24302                                    BADX                                  
050504,000784: 12,2135           51025                           DSU      BPL                                   
050505,000785: 12,2136           00013                                    XMAX                                  
050506,000786: 12,2137           24302                                    BADX                                  
050507,000787: 12,2140           51145        STORBNDS           DLOAD    BPL                                   
050508,000788: 12,2141           02074                                    TAU.                                  
050509,000789: 12,2142           24152                                    STOREMIN                              
050510,000790: 12,2143           57545                           DLOAD    DCOMP                                 
050511,000791: 12,2144           00013                                    XMAX                                  
050512,000792: 12,2145           14015                           STODL    XMIN                                  
050513,000793: 12,2146           24007                                    KEPZERO                               
050514,000794: 12,2147           00013                           STORE    XMAX                                  
050515,000795: 12,2150           77650                           GOTO                                           
050516,000796: 12,2151           24155                                    DXCOMP                                
050517,000797: 12,2152           77745        STOREMIN           DLOAD                                          
050518,000798: 12,2153           24007                                    KEPZERO                               
050519,000799: 12,2154           00015                           STORE    XMIN                                  
050520,000800: 12,2155           57345        DXCOMP             DLOAD    DMPR                                  

Page 1174

050522,000802: 12,2156           02074                                    TAU.                                  
050523,000803: 12,2157           11047                                    BEE22                                 
050524,000804: 12,2160           77646                           ABS                                            
050525,000805: 12,2161           16170                           STODL    EPSILONT                              
050526,000806: 12,2162           01553                                    XPREV                                 
050527,000807: 12,2163           77621        XDIFF              BDSU                                           
050528,000808: 12,2164           00025                                    X                                     
050529,000809: 12,2165           02643                           STORE    DELX                                  
050530,000810: 
050531,000811: 
050532,000812: 12,2166           63545        KEPLOOP            DLOAD    DSQ                                   
050533,000813: 12,2167           00025                                    X                                     #  X=XKEP
050534,000814: 12,2170           41501                           NORM     PUSH                                  #  0D=XSQ (+34 OR +32 -N1)      PL AT 2
050535,000815: 12,2171           00047                                    X1                                    
050536,000816: 12,2172           53605                           DMP      SRR*                                  
050537,000817: 12,2173           00011                                    ALPHA                                 
050538,000818: 12,2174           21573                                    0          -6,1                       
050539,000819: 12,2175           34031                           STCALL   XI                                    #  XI=ALPHA XSQ (+6)
050540,000820: 12,2176           24421                                    DELTIME                               
050541,000821: 12,2177           44200                           BOV      BDSU                                  
050542,000822: 12,2200           24311                                    TIMEOVFL                              #  UNLIKELY
050543,000823: 12,2201           02074                                    TAU.                                  
050544,000824: 12,2202           02645                           STORE    DELT                                  #  DELT=DELINDEP
050545,000825: 12,2203           44246                           ABS      BDSU                                  
050546,000826: 12,2204           02170                                    EPSILONT                              
050547,000827: 12,2205           71244                           BPL      DLOAD                                 
050548,000828: 12,2206           24333                                    KEPCONVG                              
050549,000829: 12,2207           00037                                    T                                     
050550,000830: 12,2210           60225                           DSU      NORM                                  
050551,000831: 12,2211           01551                                    TC                                    
050552,000832: 12,2212           00047                                    X1                                    
050553,000833: 12,2213           60325                           PDDL     NORM                                  
050554,000834: 12,2214           02643                                    DELX                                  
050555,000835: 12,2215           00050                                    X2                                    
050556,000836: 12,2216           41260                           XSU,1    DMP                                   
050557,000837: 12,2217           00047                                    X2                                    
050558,000838: 12,2220           02645                                    DELT                                  
050559,000839: 12,2221           56257                           SLR*     DDV                                   
050560,000840: 12,2222           21202                                    1,1                                   
050561,000841: 12,2223           41542                           SR1      PUSH                                  #  0D=TRIAL DELX                PL AT 2
050562,000842: 12,2224           71244                           BPL      DLOAD                                 
050563,000843: 12,2225           24246                                    POSDELX                               
050564,000844: 12,2226           00025                                    X                                     
050565,000845: 12,2227           00013                           STORE    XMAX                                  #  MOVE MAX BOUND IN
050566,000846: 12,2230           45221                           BDSU     DSU                                   #                               PL AT 0
050567,000847: 12,2231           00015                                    XMIN                                  
050568,000848: 12,2232           51000                           BOV      BPL                                   
050569,000849: 12,2233           24240                                    NDXCHNGE                              
050570,000850: 12,2234           24240                                    NDXCHNGE                              
050571,000851: 12,2235           52145                           DLOAD    GOTO                                  

Page 1175

050573,000853: 12,2236           00001                                    0D                                    
050574,000854: 12,2237           24260                                    NEWDELX                               
050575,000855: 
050576,000856: 
050577,000857: 12,2240           45345        NDXCHNGE           DLOAD    DSU                                   
050578,000858: 12,2241           00015                                    XMIN                                  
050579,000859: 12,2242           00025                                    X                                     
050580,000860: 12,2243           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
050581,000861: 12,2244           11052                                    DP9/10                                
050582,000862: 12,2245           24260                                    NEWDELX                               
050583,000863: 
050584,000864: 
050585,000865: 12,2246           77745        POSDELX            DLOAD                                          
050586,000866: 12,2247           00025                                    X                                     
050587,000867: 12,2250           00015                           STORE    XMIN                                  #  MOVE MIN BOUND IN
050588,000868: 12,2251           45221                           BDSU     DSU                                   #                               PL AT 0
050589,000869: 12,2252           00013                                    XMAX                                  
050590,000870: 12,2253           50000                           BOV      BMN                                   
050591,000871: 12,2254           24274                                    PDXCHNGE                              
050592,000872: 12,2255           24274                                    PDXCHNGE                              
050593,000873: 12,2256           77745                           DLOAD                                          
050594,000874: 12,2257           00001                                    0D                                    
050595,000875: 12,2260           02643        NEWDELX            STORE    DELX                                  
050596,000876: 12,2261           43254                           BZE      DAD                                   
050597,000877: 12,2262           24333                                    KEPCONVG                              
050598,000878: 12,2263           00025                                    X                                     
050599,000879: 12,2264           14025                           STODL    X                                     
050600,000880: 12,2265           00037                                    T                                     
050601,000881: 12,2266           01551                           STORE    TC                                    
050602,000882: 12,2267           46034        BRNCHCTR           RTB      BHIZ                                  
050603,000883: 12,2270           24644                                    CHECKCTR                              
050604,000884: 12,2271           24333                                    KEPCONVG                              
050605,000885: 12,2272           77650                           GOTO                                           
050606,000886: 12,2273           24166                                    KEPLOOP                               #  ITERATE
050607,000887: 
050608,000888: 
050609,000889: 12,2274           45345        PDXCHNGE           DLOAD    DSU                                   
050610,000890: 12,2275           00013                                    XMAX                                  
050611,000891: 12,2276           00025                                    X                                     
050612,000892: 12,2277           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
050613,000893: 12,2300           11052                                    DP9/10                                
050614,000894: 12,2301           24260                                    NEWDELX                               
050615,000895: 
050616,000896: 
050617,000897: 12,2302           70545        BADX               DLOAD    SR1                                   
050618,000898: 12,2303           00013                                    XMAX                                  
050619,000899: 12,2304           77765                           SIGN                                           
050620,000900: 12,2305           02074                                    TAU.                                  
050621,000901: 12,2306           00025                           STORE    X                                     
050622,000902: 12,2307           77650                           GOTO                                           

Page 1176

050624,000904: 12,2310           24140                                    STORBNDS                              
050625,000905: 12,2311           50145        TIMEOVFL           DLOAD    BMN                                   #  X WAS TOO BIG
050626,000906: 12,2312           00025                                    X                                     
050627,000907: 12,2313           24330                                    NEGTOVFL                              
050628,000908: 12,2314           00013                           STORE    XMAX                                  
050629,000909: 12,2315           70545        CMNTOVFL           DLOAD    SR1                                   
050630,000910: 12,2316           02643                                    DELX                                  
050631,000911: 12,2317           02643                           STORE    DELX                                  
050632,000912: 12,2320           44254                           BZE      BDSU                                  
050633,000913: 12,2321           02111                                    KEPRTN                                
050634,000914: 12,2322           00025                                    X                                     
050635,000915: 12,2323           14025                           STODL    X                                     
050636,000916: 12,2324           01551                                    TC                                    
050637,000917: 12,2325           00037                           STORE    T                                     
050638,000918: 12,2326           77650                           GOTO                                           
050639,000919: 12,2327           24267                                    BRNCHCTR                              
050640,000920: 12,2330           00015        NEGTOVFL           STORE    XMIN                                  
050641,000921: 12,2331           77650                           GOTO                                           
050642,000922: 12,2332           24315                                    CMNTOVFL                              
050643,000923: 12,2333           44545        KEPCONVG           DLOAD    SR4R                                  
050644,000924: 12,2334           00041                                    R1                                    
050645,000925: 12,2335           74225                           DSU      VXSC                                  
050646,000926: 12,2336           00035                                    XSQC(XI)                              
050647,000927: 12,2337           02647                                    URRECT                                
050648,000928: 12,2340           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))URRECT (+33 OR +31)
050649,000929: 12,2341           00025                                    X                                     
050650,000930: 12,2342           60316                           DSQ      NORM                                  
050651,000931: 12,2343           00047                                    X1                                    
050652,000932: 12,2344           57275                           DMPR     DMPR                                  
050653,000933: 12,2345           00023                                    1/ROOTMU                              
050654,000934: 12,2346           00025                                    X                                     
050655,000935: 12,2347           53605                           DMP      SRR*                                  
050656,000936: 12,2350           00033                                    S(XI)                                 
050657,000937: 12,2351           21572                                    0          -7,1                       
050658,000938: 12,2352           77621                           BDSU                                           
050659,000939: 12,2353           00037                                    T                                     
050660,000940: 12,2354           74352                           SL1      VXSC                                  
050661,000941: 12,2355           01511                                    VRECT                                 
050662,000942: 12,2356           53372                           VSL1     VAD                                   #                               PL AT 0
050663,000943: 12,2357           77712                           VSL4                                           
050664,000944: 12,2360           01535                           STORE    RCV                                   #  RCV (+29 OR +27)
050665,000945: 
050666,000946: 
050667,000947: 12,2361           60246                           ABVAL    NORM                                  
050668,000948: 12,2362           00050                                    X2                                    
050669,000949: 12,2363           14043                           STODL    RCNORM                                
050670,000950: 12,2364           00031                                    XI                                    
050671,000951: 12,2365           45275                           DMPR     DSU                                   
050672,000952: 12,2366           00033                                    S(XI)                                 
050673,000953: 12,2367           11034                                    D1/128                                

Page 1177

050675,000955: 12,2370           76405                           DMP      SL1R                                  
050676,000956: 12,2371           00021                                    ROOTMU                                
050677,000957: 12,2372           53605                           DMP      SLR*                                  
050678,000958: 12,2373           00025                                    X                                     
050679,000959: 12,2374           56601                                    0          -3,2                       
050680,000960: 12,2375           74271                           DDV      VXSC                                  
050681,000961: 12,2376           00043                                    RCNORM                                
050682,000962: 12,2377           02647                                    URRECT                                
050683,000963: 12,2400           65372                           VSL1     PDDL                                  #  0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
050684,000964: 12,2401           00035                                    XSQC(XI)                              #  OR +13)                        PL AT 6
050685,000965: 12,2402           56257                           SLR*     DDV                                   
050686,000966: 12,2403           56602                                    0          -4,2                       
050687,000967: 12,2404           00043                                    RCNORM                                
050688,000968: 12,2405           74221                           BDSU     VXSC                                  
050689,000969: 12,2406           11050                                    D1/256                                
050690,000970: 12,2407           01511                                    VRECT                                 
050691,000971: 12,2410           42455                           VAD      VSL8                                  #                               PL AT 0
050692,000972: 12,2411           77626                           STADR                                          
050693,000973: 12,2412           62234                           STODL    VCV                                   #  VCV (+7 OR +5)
050694,000974: 12,2413           00037                                    T                                     
050695,000975: 12,2414           15551                           STODL    TC                                    
050696,000976: 12,2415           00025                                    X                                     
050697,000977: 12,2416           01553                           STORE    XPREV                                 
050698,000978: 12,2417           77650                           GOTO                                           
050699,000979: 12,2420           02111                                    KEPRTN                                
050700,000980: 

Page 1178

050702,000982: 12,2421           77776        DELTIME            EXIT                                           #  MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
050703,000983: 12,2422           07243                           TC       POLY                                  
050704,000984: 12,2423           00010                           DEC      8          B-14                       
050705,000985: 12,2424           02525 12526                     2DEC     .083333334                            
050706,000986: 
050707,000987: 12,2426           67356 75666                     2DEC     -.266666684                            
050708,000988: 
050709,000989: 12,2430           15001 23771                     2DEC     .406349155                            
050710,000990: 
050711,000991: 12,2432           64342 43674                     2DEC     -.361198675                            
050712,000992: 
050713,000993: 12,2434           06563 04645                     2DEC     .210153242                            
050714,000994: 
050715,000995: 12,2436           75173 52672                     2DEC     -.086221951                            
050716,000996: 
050717,000997: 12,2440           00656 14331                     2DEC     .026268812                            
050718,000998: 
050719,000999: 12,2442           77633 40512                     2DEC     -.006163316                            
050720,001000: 
050721,001001: 12,2444           00023 11210                     2DEC     .001177342                            
050722,001002: 
050723,001003: 12,2446           77774 67506                     2DEC     -.000199055                            
050724,001004: 
050725,001005: 12,2450           06060                           TC       INTPRET                               
050726,001006: 12,2451           14033                           STODL    S(XI)                                 
050727,001007: 12,2452           00031                                    XI                                    
050728,001008: 12,2453           77776                           EXIT                                           
050729,001009: 12,2454           07243                           TC       POLY                                  
050730,001010: 12,2455           00010                           DEC      8          B-14                       
050731,001011: 12,2456           01000 00000                     2DEC     .031250001                            
050732,001012: 
050733,001013: 12,2460           72525 52506                     2DEC     -.166666719                            
050734,001014: 
050735,001015: 12,2462           13301 15337                     2DEC     .355555413                            
050736,001016: 
050737,001017: 12,2464           62776 54733                     2DEC     -.406347410                            
050738,001018: 
050739,001019: 12,2466           11176 13267                     2DEC     .288962094                            
050740,001020: 
050741,001021: 12,2470           73410 51674                     2DEC     -.140117894                            
050742,001022: 
050743,001023: 12,2472           01446 33641                     2DEC     .049247387                            
050744,001024: 
050745,001025: 12,2474           77451 65233                     2DEC     -.013081923                            
050746,001026: 
050747,001027: 12,2476           00055 37266                     2DEC     .002806389                            
050748,001028: 
050749,001029: 12,2500           77767 52336                     2DEC     -.000529414                            
050750,001030: 
050751,001031: 12,2502           06060                           TC       INTPRET                               

Page 1179

050753,001033: 12,2503           53605                           DMP      SRR*                                  #                               PL AT 0
050754,001034: 12,2504           00001                                    0D                                    
050755,001035: 12,2505           21574                                    0          -5,1                       
050756,001036: 12,2506           00035                           STORE    XSQC(XI)                              #  XSQC(XI) (+33 OR +31)
050757,001037: 12,2507           72405                           DMP      SL1                                   
050758,001038: 12,2510           00043                                    KEPC1                                 
050759,001039: 12,2511           65234                           RTB      PDDL                                  #  XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
050760,001040: 12,2512           21643                                    TPMODE                                #                               PL AT 0,3
050761,001041: 12,2513           53605                           DMP      SRR*                                  
050762,001042: 12,2514           00033                                    S(XI)                                 
050763,001043: 12,2515           21574                                    0          -5,1                       
050764,001044: 12,2516           72405                           DMP      SL1                                   
050765,001045: 12,2517           00045                                    KEPC2                                 
050766,001046: 12,2520           65234                           RTB      PDDL                                  #  3D=C2 XSQ S(XI) (+35 OR +33)  PL AT 6
050767,001047: 12,2521           21643                                    TPMODE                                
050768,001048: 12,2522           00041                                    R1                                    
050769,001049: 12,2523           76261                           SR       TAD                                   #                               PL AT 3
050770,001050: 12,2524           20607                                    6                                     
050771,001051: 12,2525           41301                           NORM     DMP                                   #  TO PRESERVE SIGNIF.
050772,001052: 12,2526           00047                                    X1                                    
050773,001053: 12,2527           00025                                    X                                     
050774,001054: 12,2530           76257                           SR*      TAD                                   #  X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
050775,001055: 12,2531           20576                                    0          -3,1                       
050776,001056: 12,2532           57232                           SL4R     DMPR                                  
050777,001057: 12,2533           00023                                    1/ROOTMU                              
050778,001058: 12,2534           00037                           STORE    T                                     
050779,001059: 12,2535           77616                           RVQ                                            
050780,001060: 

Page 1180

050782,001062: 12,2536           71214        ITERATOR           BONCLR   DLOAD                                 
050783,001063: 12,2537           00614                                    SLOPESW                               
050784,001064: 12,2540           24606                                    FIRSTIME                              
050785,001065: 12,2541           00037                                    DEP                                   
050786,001066: 12,2542           60225                           DSU      NORM                                  
050787,001067: 12,2543           02762                                    DEPREV                                
050788,001068: 12,2544           00047                                    X1                                    
050789,001069: 12,2545           60325                           PDDL     NORM                                  
050790,001070: 12,2546           00015                                    DELINDEP                              
050791,001071: 12,2547           00050                                    X2                                    
050792,001072: 12,2550           41260                           XSU,1    DMP                                   
050793,001073: 12,2551           00047                                    X2                                    
050794,001074: 12,2552           02760                                    DELDEP                                
050795,001075: 12,2553           56257                           SLR*     DDV                                   #                               PL UP 2
050796,001076: 12,2554           21202                                    1,1                                   
050797,001077: 12,2555           43142                           SR1      BOFF                                  
050798,001078: 12,2556           04351                                    ORDERSW                               
050799,001079: 12,2557           24562                                    SGNCHECK                              
050800,001080: 12,2560           75246                           ABS      SIGN                                  #  IN CASE 2ND DERIV. CHANGED SIGN, MUST
050801,001081: 12,2561           02760                                    DELDEP                                #  DISREGARD IT TO FIND MIN.
050802,001082: 
050803,001083: 12,2562           51006        SGNCHECK           PUSH     BPL                                   #  TRIAL DELINDEP               PL DOWN 2
050804,001084: 12,2563           24620                                    POSDEL                                
050805,001085: 12,2564           43145                           DLOAD    BON                                   
050806,001086: 12,2565           02766                                    INDEP                                 
050807,001087: 12,2566           04311                                    ORDERSW                               
050808,001088: 12,2567           24571                                    MINCHECK                              
050809,001089: 12,2570           00017                           STORE    MAX                                   #  IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
050810,001090: 
050811,001091: 12,2571           45221        MINCHECK           BDSU     DSU                                   
050812,001092: 12,2572           00011                                    MIN                                   
050813,001093: 12,2573           51000                           BOV      BPL                                   
050814,001094: 12,2574           24600                                    MODNGDEL                              
050815,001095: 12,2575           24600                                    MODNGDEL                              
050816,001096: 12,2576           77650                           GOTO                                           
050817,001097: 12,2577           24632                                    DELOK                                 
050818,001098: 
050819,001099: 
050820,001100: 12,2600           45345        MODNGDEL           DLOAD    DSU                                   #  TRIAL DELINDEP WOULD EXCEED MIN BOUND
050821,001101: 12,2601           00011                                    MIN                                   
050822,001102: 12,2602           02766                                    INDEP                                 
050823,001103: 12,2603           52005                           DMP      GOTO                                  
050824,001104: 12,2604           11052                                    DP9/10                                
050825,001105: 12,2605           24634                                    NEWDEL                                
050826,001106: 
050827,001107: 
050828,001108: 12,2606           41345        FIRSTIME           DLOAD    DMP                                   
050829,001109: 12,2607           00011                                    MIN                                   
050830,001110: 12,2610           00051                                    TWEEKIT                               #  DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
050831,001111: 12,2611           41325                           PDDL     DMP                                   #  S2(41D) SHOULDNT CONTAIN HI ORDER ONES

Page 1181

050833,001113: 12,2612           00017                                    MAX                                   
050834,001114: 12,2613           00051                                    TWEEKIT                               
050835,001115: 12,2614           77625                           DSU                                            
050836,001116: 12,2615           52165                           SIGN     GOTO                                  
050837,001117: 12,2616           02760                                    DELDEP                                
050838,001118: 12,2617           24562                                    SGNCHECK                              
050839,001119: 
050840,001120: 
050841,001121: 12,2620           43145        POSDEL             DLOAD    BON                                   
050842,001122: 12,2621           02766                                    INDEP                                 
050843,001123: 12,2622           04311                                    ORDERSW                               
050844,001124: 12,2623           24625                                    MAXCHECK                              
050845,001125: 12,2624           00011                           STORE    MIN                                   #  IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
050846,001126: 
050847,001127: 12,2625           45221        MAXCHECK           BDSU     DSU                                   
050848,001128: 12,2626           00017                                    MAX                                   
050849,001129: 12,2627           50000                           BOV      BMN                                   
050850,001130: 12,2630           24636                                    MODPSDEL                              
050851,001131: 12,2631           24636                                    MODPSDEL                              
050852,001132: 12,2632           77745        DELOK              DLOAD                                          
050853,001133: 12,2633           00001                                    0D                                    
050854,001134: 12,2634           00015        NEWDEL             STORE    DELINDEP                              
050855,001135: 12,2635           77616                           RVQ                                            
050856,001136: 
050857,001137: 
050858,001138: 12,2636           45345        MODPSDEL           DLOAD    DSU                                   
050859,001139: 12,2637           00017                                    MAX                                   
050860,001140: 12,2640           02766                                    INDEP                                 
050861,001141: 12,2641           52005                           DMP      GOTO                                  
050862,001142: 12,2642           11052                                    DP9/10                                
050863,001143: 12,2643           24634                                    NEWDEL                                
050864,001144: 
050865,001145: 
050866,001146: 12,2644           44744        CHECKCTR           CS       ONE                                   
050867,001147: 12,2645           50120                           INDEX    FIXLOC                                
050868,001148: 12,2646           60026                           AD       ITERCTR                               
050869,001149: 12,2647           50120                           INDEX    FIXLOC                                
050870,001150: 12,2650           54026                           TS       ITERCTR                               
050871,001151: 12,2651           54154                           TS       MPAC                                  
050872,001152: 12,2652           06102                           TC       DANZIG                                
050873,001153: 

Page 1182

050875,001155: 12,2653           44545        NEWSTATE           DLOAD    SR4R                                  
050876,001156: 12,2654           00041                                    R1                                    
050877,001157: 12,2655           74225                           DSU      VXSC                                  
050878,001158: 12,2656           00035                                    XSQC(XI)                              
050879,001159: 12,2657           02722                                    UR1                                   
050880,001160: 12,2660           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
050881,001161: 12,2661           00025                                    X                                     
050882,001162: 12,2662           60316                           DSQ      NORM                                  
050883,001163: 12,2663           00047                                    X1                                    
050884,001164: 12,2664           57275                           DMPR     DMPR                                  
050885,001165: 12,2665           00023                                    1/ROOTMU                              
050886,001166: 12,2666           00025                                    X                                     
050887,001167: 12,2667           53605                           DMP      SRR*                                  
050888,001168: 12,2670           00033                                    S(XI)                                 
050889,001169: 12,2671           21572                                    0          -7,1                       
050890,001170: 12,2672           77621                           BDSU                                           
050891,001171: 12,2673           00037                                    T                                     
050892,001172: 12,2674           74352                           SL1      VXSC                                  
050893,001173: 12,2675           02744                                    VVEC                                  
050894,001174: 12,2676           53372                           VSL1     VAD                                   #                               PL AT 0
050895,001175: 12,2677           41512                           VSL4     PUSH                                  
050896,001176: 12,2700           77646                           ABVAL                                          
050897,001177: 12,2701           77701        LAMENTER           NORM                                           
050898,001178: 12,2702           00047                                    X1                                    
050899,001179: 12,2703           16720                           STODL    R2                                    
050900,001180: 12,2704           00031                                    XI                                    
050901,001181: 12,2705           45205                           DMP      DSU                                   
050902,001182: 12,2706           00033                                    S(XI)                                 
050903,001183: 12,2707           11034                                    D1/128                                
050904,001184: 12,2710           76405                           DMP      SL1R                                  
050905,001185: 12,2711           00021                                    ROOTMU                                
050906,001186: 12,2712           53605                           DMP      SLR*                                  
050907,001187: 12,2713           00025                                    X                                     
050908,001188: 12,2714           21176                                    0          -3,1                       
050909,001189: 12,2715           74271                           DDV      VXSC                                  
050910,001190: 12,2716           02720                                    R2                                    
050911,001191: 12,2717           02722                                    UR1                                   
050912,001192: 12,2720           65372                           VSL1     PDDL                                  #  6D=V2VEC PART (+15 OR 13)       PL AT 12
050913,001193: 12,2721           00035                                    XSQC(XI)                              
050914,001194: 12,2722           56257                           SLR*     DDV                                   
050915,001195: 12,2723           21175                                    0          -4,1                       
050916,001196: 12,2724           02720                                    R2                                    
050917,001197: 12,2725           77621                           BDSU                                           
050918,001198: 12,2726           11050                                    D1/256                                
050919,001199: 12,2727           53361                           VXSC     VAD                                   
050920,001200: 12,2730           02744                                    VVEC                                  #                               PL AT 6
050921,001201: 12,2731           43412                           VSL8     RVQ                                   
050922,001202: 

Page 1183

050924,001204: 04,2000                                           SETLOC   CONICS1                               
050925,001205: 04,2000                                           BANK                                           
050926,001206: 
050927,001207: 04,3030                                           COUNT*   $$/CONIC                              
050928,001208:                                                                                                  #  DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
050929,001209: 04,3030           00000        BEE17              DEC      0          B-14                       #  KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
050930,001210: 04,3031           04000 00000  D1/8               2DEC     1.0        B-3                        
050931,001211: 
050932,001212: 04,3033           00200 00000  D1/128             2DEC     1.0        B-7                        
050933,001213: 
050934,001214: 04,3035           00400 00000  D1/64              2DEC     1.0        B-6                        
050935,001215: 
050936,001216: 04,3037           10000 00000  D1/4               2DEC     1.0        B-2                        
050937,001217: 
050938,001218: 04,3041           02000 00000  D1/16              2DEC     1.0        B-4                        
050939,001219: 
050940,001220: 04,3043           01000 00000  D1/32              2DEC     1.0        B-5                        
050941,001221: 
050942,001222: 04,3045           00020 00000  D1/1024            2DEC     1.0        B-10                       
050943,001223: 
050944,001224: 04,3047           00100 00000  D1/256             2DEC     1.0        B-8                        
050945,001225: 
050946,001226: 04,3051           34631 23146  DP9/10             2DEC     .9                                    
050947,001227: 
050948,001228: 04,3053  12,2006               KEPZERO            EQUALS   LO6ZEROS                              
050949,001229: 04,3053           77467 77777  -50SC              2DEC     -50.0      B-12                       
050950,001230: 
050951,001231: 04,3055           03110 17665  2PISC              2DEC     6.28318530 B-6                        
050952,001232: 
050953,001233: 04,3057  04,3042               BEE19              EQUALS   D1/32      -1                         #  2DEC 1.0 B-19 (00000 01000)
050954,001234: 04,3057  04,3046               BEE22              EQUALS   D1/256     -1                         #  2DEC 1.0 B-22 (00000 00100)
050955,001235: 04,3057           00000 00001  ONEBIT             2DEC     1.0        B-28                       
050956,001236: 
050957,001237: 04,3061           37767 37737  COGUPLIM           2DEC     .999511597                            
050958,001238: 
050959,001239: 04,3063           40010 40040  COGLOLIM           2DEC     -.999511597                            
050960,001240: 
050961,001241: 

Page 1184

050963,001243: 12,2000                                           SETLOC   CONICS                                
050964,001244: 12,2000                                           BANK                                           
050965,001245: 
050966,001246: 12,2732                                           COUNT*   $$/CONIC                              
050967,001247: 12,2732           40220        TIMETHET           STQ      SETPD                                 #                               PL AT 0
050968,001248: 12,2733           02710                                    RTNTT                                 
050969,001249: 12,2734           00001                                    0                                     
050970,001250: 12,2735           77600                           BOV                                            
050971,001251: 12,2736           24737                                    +1                                    
050972,001252: 12,2737           63375                           VLOAD    PDVL                                  #  SETUP FOR PARAM CALL         PL AT 6
050973,001253: 12,2740           02655                                    RVEC                                  
050974,001254: 12,2741           02744                                    VVEC                                  
050975,001255: 12,2742           77624                           CALL                                           
050976,001256: 12,2743           11065                                    PARAM                                 
050977,001257: 12,2744           45000                           BOV      CALL                                  
050978,001258: 12,2745           24764                                    COGAOVFL                              #                               PL AT 0
050979,001259: 12,2746           24767                                    GETX                                  
050980,001260: 12,2747           43145        COMMNOUT           DLOAD    BON                                   
050981,001261: 12,2750           00031                                    XI                                    
050982,001262: 12,2751           04310                                    INFINFLG                              
050983,001263: 12,2752           25752                                    ABTCONIC                              
050984,001264: 12,2753           45014                           CLEAR    CALL                                  
050985,001265: 12,2754           04273                                    COGAFLAG                              
050986,001266: 12,2755           24421                                    DELTIME                               
050987,001267: 12,2756           45014                           BON      CALL                                  
050988,001268: 12,2757           03706                                    RVSW                                  
050989,001269: 12,2760           02710                                    RTNTT                                 
050990,001270: 12,2761           24653                                    NEWSTATE                              
050991,001271: 12,2762           77650                           GOTO                                           
050992,001272: 12,2763           02710                                    RTNTT                                 
050993,001273: 
050994,001274: 
050995,001275: 12,2764           77614        COGAOVFL           SETGO                                          
050996,001276: 12,2765           04033                                    COGAFLAG                              
050997,001277: 12,2766           25752                                    ABTCONIC                              
050998,001278: 04,3065                                           BANK     4                                     
050999,001279: 04,2000                                           SETLOC   CONICS1                               
051000,001280: 04,2000                                           BANK                                           
051001,001281: 04,3065                                           COUNT*   $$/CONIC                              
051002,001282: 04,3065           43020        PARAM              STQ      CLEAR                                 #  MPAC=V1VEC, 0D=R1VEC         PL AT 6
051003,001283: 04,3066           02753                                    RTNPRM                                
051004,001284: 04,3067           03665                                    NORMSW                                
051005,001285: 04,3070           77614                           CLEAR                                          
051006,001286: 04,3071           04273                                    COGAFLAG                              
051007,001287: 04,3072           45131                           SSP      CALL                                  
051008,001288: 04,3073           02673                                    GEOMSGN                               
051009,001289: 04,3074           27777                                    37777                                 #  GAMMA ALWAYS LESS THAN 180DEG
051010,001290: 04,3075           11131                                    GEOM                                  #  MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
051011,001291: 04,3076           14045                           STODL    36D                                   #  36D=SIN GAMMA (+1)           PL AT 0
051012,001292: 04,3077           56261                           SR       DDV                                   

Page 1185

051014,001294: 04,3100           20606                                    5                                     
051015,001295: 
051016,001296: 04,3101           00045                                    36D                                   
051017,001297: 04,3102           32766                           STOVL*   COGA                                  
051018,001298: 04,3103           10005                                    MUTABLE,1                             
051019,001299: 04,3104           14017                           STODL    1/MU                                  
051020,001300: 04,3105           02720                                    MAGVEC2                               
051021,001301: 04,3106           60316                           DSQ      NORM                                  
051022,001302: 04,3107           00047                                    X1                                    
051023,001303: 04,3110           41275                           DMPR     DMP                                   
051024,001304: 04,3111           00017                                    1/MU                                  
051025,001305: 04,3112           00041                                    R1                                    
051026,001306: 04,3113           77657                           SRR*                                           
051027,001307: 04,3114           21576                                    0          -3,1                       
051028,001308: 04,3115           44206                           PUSH     BDSU                                  #  0D=R1 V1SQ/MU (+6)           PL AT 2
051029,001309: 04,3116           11044                                    D1/32                                 
051030,001310: 04,3117           16742                           STODL    R1A                                   #  R1A (+6)                     PL AT 0
051031,001311: 
051032,001312: 04,3120           60205                           DMP      NORM                                  
051033,001313: 04,3121           00045                                    36D                                   
051034,001314: 04,3122           00047                                    X1                                    
051035,001315: 04,3123           53605                           DMP      SR*                                   
051036,001316: 04,3124           00045                                    36D                                   
051037,001317: 04,3125           20575                                    0          -4,1                       
051038,001318: 04,3126           02740                           STORE    P                                     #  P (+4)
051039,001319: 04,3127           77650                           GOTO                                           
051040,001320: 04,3130           02753                                    RTNPRM                                
051041,001321: 

Page 1186

051043,001323: 04,3131           77656        GEOM               UNIT                                           #  MPAC=V2VEC, 0D=R1VEC         PL AT 6
051044,001324: 04,3132           16712                           STODL    U2                                    #  U2 (+1)
051045,001325: 04,3133           00045                                    36D                                   
051046,001326: 04,3134           26720                           STOVL    MAGVEC2                               #                               PL AT 0
051047,001327: 04,3135           77656                           UNIT                                           
051048,001328: 04,3136           02722                           STORE    UR1                                   #  UR1 (+1)
051049,001329: 04,3137           72441                           DOT      SL1                                   
051050,001330: 04,3140           02712                                    U2                                    
051051,001331: 04,3141           77725                           PDDL                                           #  OD=CSTH (+1)                 PL AT 2
051052,001332: 04,3142           00045                                    36D                                   
051053,001333: 04,3143           24041                           STOVL    R1                                    #  R1 (+29 OR +27)
051054,001334: 04,3144           02722                                    UR1                                   
051055,001335: 04,3145           76435                           VXV      VSL1                                  
051056,001336: 04,3146           02712                                    U2                                    
051057,001337: 04,3147           75214                           BON      SIGN                                  
051058,001338: 04,3150           03705                                    NORMSW                                
051059,001339: 04,3151           11163                                    HAVENORM                              
051060,001340: 04,3152           02673                                    GEOMSGN                               
051061,001341: 04,3153           40056                           UNIT     BOV                                   
051062,001342: 04,3154           11161                                    COLINEAR                              
051063,001343: 04,3155           16674        UNITNORM           STODL    UN                                    #  UN (+1)
051064,001344: 04,3156           00045                                    36D                                   
051065,001345: 04,3157           43565                           SIGN     RVQ                                   #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051066,001346: 04,3160           02673                                    GEOMSGN                               
051067,001347: 
051068,001348: 
051069,001349: 04,3161           52162        COLINEAR           VSR1     GOTO                                  
051070,001350: 04,3162           11155                                    UNITNORM                              
051071,001351: 
051072,001352: 
051073,001353: 04,3163           75246        HAVENORM           ABVAL    SIGN                                  
051074,001354: 04,3164           02673                                    GEOMSGN                               
051075,001355: 04,3165           77616                           RVQ                                            #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051076,001356: 

Page 1187

051078,001358: 12,2767                                           BANK     12                                    
051079,001359: 12,2000                                           SETLOC   CONICS                                
051080,001360: 12,2000                                           BANK                                           
051081,001361: 
051082,001362: 12,2767                                           COUNT*   $$/CONIC                              
051083,001363: 12,2767           66374        GETX               AXT,2    SSP                                   #  ASSUMES P (+4) IN MPAC
051084,001364: 12,2770           00003                                    3                                     
051085,001365: 12,2771           00052                                    S2                                    
051086,001366: 12,2772           00001                                    1                                     
051087,001367: 12,2773           77614                           CLEAR                                          
051088,001368: 12,2774           04276                                    360SW                                 
051089,001369: 12,2775           65366                           SQRT     PDDL                                  #  0D=SQRT(P)                       PL AT 2
051090,001370: 12,2776           02732                                    CSTH                                  
051091,001371: 12,2777           44342                           SR1      BDSU                                  
051092,001372: 12,3000           11040                                    D1/4                                  
051093,001373: 12,3001           54325                           PDDL     SRR                                   #                               PL AT 4D
051094,001374: 12,3002           02730                                    SNTH                                  
051095,001375: 12,3003           21607                                    6                                     
051096,001376: 12,3004           77671                           DDV                                            #                               PL AT 2
051097,001377: 12,3005           77600                           BOV                                            
051098,001378: 12,3006           25122                                    360CHECK                              
051099,001379: 12,3007           41225                           DSU      DMP                                   
051100,001380: 12,3010           02766                                    COGA                                  #                                   PL AT 0
051101,001381: 12,3011           40132                           SL2R     BOV                                   
051102,001382: 12,3012           25122                                    360CHECK                              
051103,001383: 12,3013           63406        WLOOP              PUSH     DSQ                                   #  0D=W (+5)                        PL AT 2
051104,001384: 12,3014           65351                           TLOAD    PDDL                                  #  2D=WSQ (+10)                     PL AT 5
051105,001385: 12,3015           00155                                    MPAC                                  
051106,001386: 12,3016           02742                                    R1A                                   
051107,001387: 12,3017           76202                           SR4      TAD                                   #                               PL AT 2
051108,001388: 12,3020           75440                           BMN      SQRT                                  
051109,001389: 12,3021           25205                                    INFINITY                              
051110,001390: 12,3022           43306                           ROUND    DAD                                   #                               PL AT 0D
051111,001391: 12,3023           61000                           BOV      TIX,2                                 
051112,001392: 12,3024           25120                                    RESETX2                               
051113,001393: 12,3025           25013                                    WLOOP                                 
051114,001394: 
051115,001395: 
051116,001396: 12,3026           40065                           BDDV     BOV                                   
051117,001397: 12,3027           11034                                    D1/128                                
051118,001398: 12,3030           25205                                    INFINITY                              
051119,001399: 12,3031           41440        POLYCOEF           BMN      PUSH                                  #  0D=1/W (+2) OR 16/W (+6)     PL AT 2
051120,001400: 12,3032           25205                                    INFINITY                              
051121,001401: 12,3033           77716                           DSQ                                            
051122,001402: 12,3034           41301                           NORM     DMP                                   
051123,001403: 12,3035           00047                                    X1                                    
051124,001404: 12,3036           02742                                    R1A                                   
051125,001405: 12,3037           77457                           SRR*     EXIT                                  
051126,001406: 12,3040           21567                                    0          -10D,1                     
051127,001407: 12,3041           07243                           TC       POLY                                  

Page 1188

051129,001409: 12,3042           00005                           DEC      5          B-14                       
051130,001410: 12,3043           20000 00000                     2DEC     .5                                    
051131,001411: 
051132,001412: 12,3045           72525 52471                     2DEC     -.166666770                            
051133,001413: 
051134,001414: 12,3047           03146 15003                     2DEC     .100000392                            
051135,001415: 
051136,001416: 12,3051           75556 45210                     2DEC     -.071401086                            
051137,001417: 
051138,001418: 12,3053           01615 13553                     2DEC     .055503292                            
051139,001419: 
051140,001420: 12,3055           76371 63777                     2DEC     -.047264098                            
051141,001421: 
051142,001422: 12,3057           01232 27367                     2DEC     .040694204                            
051143,001423: 
051144,001424: 12,3061           06060                           TC       INTPRET                               
051145,001425: 12,3062           76405                           DMP      SL1R                                  #                               PL AT 0D
051146,001426: 12,3063           43006                           PUSH     BON                                   
051147,001427: 12,3064           04316                                    360SW                                 
051148,001428: 12,3065           25172                                    TRUE360X                              
051149,001429: 12,3066           60316        XCOMMON            DSQ      NORM                                  
051150,001430: 12,3067           00047                                    X1                                    
051151,001431: 12,3070           53605                           DMP      SRR*                                  
051152,001432: 12,3071           02742                                    R1A                                   
051153,001433: 12,3072           21565                                    0          -12D,1                     
051154,001434: 12,3073           14031                           STODL    XI                                    #  XI (+6)
051155,001435: 
051156,001436: 
051157,001437: 12,3074           00041                                    R1                                    
051158,001438: 12,3075           75542                           SR1      SQRT                                  
051159,001439: 12,3076           41306                           ROUND    DMP                                   
051160,001440: 12,3077           77632                           SL4R                                           #                               PL AT 0
051161,001441: 12,3100           00025                           STORE    X                                     #  X (+17 OR +16)
051162,001442: 
051163,001443: 
051164,001444: 
051165,001445: 12,3101           60316                           DSQ      NORM                                  
051166,001446: 12,3102           00047                                    X1                                    
051167,001447: 12,3103           41325                           PDDL     DMP                                   #  0D=XSQ (+34 OR +32 -N1)      PL AT 2
051168,001448: 12,3104           02740                                    P                                     
051169,001449: 12,3105           00041                                    R1                                    
051170,001450: 12,3106           75452                           SL3      SQRT                                  
051171,001451: 12,3107           56405                           DMP      SL3R                                  
051172,001452: 12,3110           02766                                    COGA                                  
051173,001453: 12,3111           14043                           STODL    KEPC1                                 
051174,001454: 12,3112           02742                                    R1A                                   
051175,001455: 12,3113           43021                           BDSU     CLEAR                                 
051176,001456: 12,3114           11036                                    D1/64                                 
051177,001457: 12,3115           04270                                    INFINFLG                              
051178,001458: 12,3116           00045                           STORE    KEPC2                                 
051179,001459: 12,3117           77616                           RVQ                                            
051180,001460: 

Page 1189

051182,001462: 12,3120           77774        RESETX2            AXT,2                                          
051183,001463: 12,3121           00003                                    3                                     
051184,001464: 
051185,001465: 12,3122           51001        360CHECK           SETPD    BPL                                   
051186,001466: 12,3123           00001                                    0D                                    
051187,001467: 12,3124           25127                                    INVRSEQN                              
051188,001468: 12,3125           77614                           SET                                            
051189,001469: 12,3126           04076                                    360SW                                 
051190,001470: 
051191,001471: 
051192,001472: 12,3127           75545        INVRSEQN           DLOAD    SQRT                                  
051193,001473: 12,3130           02740                                    P                                     
051194,001474: 12,3131           41325                           PDDL     DMP                                   #  0D=SQRT(P) (+2)                  PL AT 2
051195,001475: 12,3132           02730                                    SNTH                                  
051196,001476: 12,3133           02766                                    COGA                                  
051197,001477: 12,3134           65352                           SL1      PDDL                                  #  2D=SNTH COGA (+5)                PL AT 4
051198,001478: 12,3135           02732                                    CSTH                                  
051199,001479: 12,3136           43202                           SR4      DAD                                   
051200,001480: 12,3137           11044                                    D1/32                                 
051201,001481: 12,3140           41225                           DSU      DMP                                   #                               PL AT 2,0
051202,001482: 12,3141           55301                           NORM     BDDV                                  
051203,001483: 12,3142           00047                                    X1                                    
051204,001484: 12,3143           02730                                    SNTH                                  
051205,001485: 12,3144           51457                           SLR*     ABS                                   #  NOTE: NEAR 360 CASE TREATED DIFFERENTLY
051206,001486: 12,3145           21174                                    0          -5,1                       
051207,001487: 12,3146           63406                           PUSH     DSQ                                   #  0D=1/W (-1)                  PL AT 2
051208,001488: 12,3147           14043                           STODL    34D                                   
051209,001489: 12,3150           11042                                    D1/16                                 
051210,001490: 12,3151           63406        1/WLOOP            PUSH     DSQ                                   #  2D=G (+4)                        PL AT 4
051211,001491: 12,3152           65234                           RTB      PDDL                                  #                               PL AT 7
051212,001492: 12,3153           21643                                    TPMODE                                
051213,001493: 12,3154           02742                                    R1A                                   
051214,001494: 12,3155           40405                           DMP      SR4                                   
051215,001495: 12,3156           00043                                    34D                                   
051216,001496: 12,3157           77771                           TAD                                            
051217,001497: 12,3160           75440                           BMN      SQRT                                  #                                   PL AT 4
051218,001498: 12,3161           25205                                    INFINITY                              
051219,001499: 12,3162           77615                           DAD                                            #                               PL AT 2
051220,001500: 12,3163           60304                           TIX,2    NORM                                  
051221,001501: 12,3164           25151                                    1/WLOOP                               
051222,001502: 12,3165           00047                                    X1                                    
051223,001503: 12,3166           77665                           BDDV                                           
051224,001504: 12,3167           52057                           SLR*     GOTO                                  #                                   PL AT 0
051225,001505: 12,3170           21172                                    0          -7,1                       
051226,001506: 12,3171           25031                                    POLYCOEF                              
051227,001507: 
051228,001508: 
051229,001509: 12,3172           50145        TRUE360X           DLOAD    BMN                                   
051230,001510: 12,3173           02742                                    R1A                                   

Page 1190

051232,001512: 12,3174           25205                                    INFINITY                              
051233,001513: 12,3175           60366                           SQRT     NORM                                  
051234,001514: 12,3176           00047                                    X1                                    
051235,001515: 12,3177           53665                           BDDV     SL*                                   
051236,001516: 12,3200           11056                                    2PISC                                 
051237,001517: 12,3201           20176                                    0          -3,1                       
051238,001518: 12,3202           41425                           DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X          PL AT 0,2
051239,001519: 12,3203           77650                           GOTO                                           
051240,001520: 12,3204           25066                                    XCOMMON                               
051241,001521: 12,3205           40001        INFINITY           SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
051242,001522: 12,3206           00001                                    0                                     #  INFINITY IS REQUIRED
051243,001523: 12,3207           25210                                    OVFLCLR                               
051244,001524: 12,3210           43414        OVFLCLR            SET      RVQ                                   
051245,001525: 12,3211           04070                                    INFINFLG                              
051246,001526: 

Page 1191

051248,001528: 12,3212           40220        LAMBERT            STQ      SETPD                                 
051249,001529: 12,3213           02710                                    RTNLAMB                               
051250,001530: 12,3214           00001                                    0D                                    
051251,001531: 12,3215           77600                           BOV                                            
051252,001532: 12,3216           25217                                    +1                                    
051253,001533: 12,3217           76614                           CLEAR    VLOAD*                                
051254,001534: 12,3220           02674                                    SOLNSW                                
051255,001535: 12,3221           10005                                    MUTABLE,1                             
051256,001536: 12,3222           14017                           STODL    1/MU                                  
051257,001537: 12,3223           02671                                    TDESIRED                              
051258,001538: 12,3224           77675                           DMPR                                           
051259,001539: 12,3225           11043                                    BEE19                                 
051260,001540: 12,3226           02764                           STORE    EPSILONL                              
051261,001541: 12,3227           77214                           SET      VLOAD                                 
051262,001542: 12,3230           00474                                    SLOPESW                               
051263,001543: 12,3231           02655                                    R1VEC                                 
051264,001544: 12,3232           45115                           PDVL     CALL                                  #  0D=R1VEC (+29 OR +27)        PL AT 6
051265,001545: 12,3233           02663                                    R2VEC                                 #  MPAC=R2VEC (+29 OR +27)
051266,001546: 12,3234           11131                                    GEOM                                  
051267,001547: 12,3235           16730                           STODL    SNTH                                  #  0D=CSTH (+1)                 PL AT 2
051268,001548: 12,3236           02720                                    MAGVEC2                               
051269,001549: 12,3237           65301                           NORM     PDDL                                  #                               PL AT 4
051270,001550: 12,3240           00047                                    X1                                    
051271,001551: 12,3241           00041                                    R1                                    
051272,001552: 12,3242           56342                           SR1      DDV                                   #                               PL AT 2
051273,001553: 12,3243           65257                           SL*      PDDL                                  #  DXCH WITH 0D, 0D=R1/R2 (+7)  PL AT 0,2
051274,001554: 12,3244           20173                                    0          -6,1                       
051275,001555: 12,3245           77626                           STADR                                          
051276,001556: 12,3246           75045                           STORE    CSTH                                  #  CSTH (+1)
051277,001557: 12,3247           44342                           SR1      BDSU                                  
051278,001558: 12,3250           11040                                    D1/4                                  
051279,001559: 12,3251           02734                           STORE    1-CSTH                                #  1-CSTH (+2)
051280,001560: 
051281,001561: 12,3252           53106                           ROUND    BZE                                   
051282,001562: 12,3253           25473                                    360LAMB                               
051283,001563: 12,3254           65301                           NORM     PDDL                                  #                               PL AT 4
051284,001564: 12,3255           00047                                    X1                                    
051285,001565: 12,3256           00001                                    0D                                    
051286,001566: 12,3257           56342                           SR1      DDV                                   #                               PL AT 2
051287,001567: 12,3260           75457                           SL*      SQRT                                  
051288,001568: 12,3261           20176                                    0          -3,1                       
051289,001569: 12,3262           54325                           PDDL     SR                                    #  2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
051290,001570: 12,3263           02730                                    SNTH                                  
051291,001571: 12,3264           20607                                    6                                     
051292,001572: 12,3265           43271                           DDV      DAD                                   #                               PL AT 2
051293,001573: 12,3266           02734                                    1-CSTH                                
051294,001574: 12,3267           77626                           STADR                                          
051295,001575: 12,3270           77760                           STORE    COGAMAX                               
051296,001576: 12,3271           50000                           BOV      BMN                                   #  IF OVFL, COGAMAX=COGUPLIM
051297,001577: 12,3272           25277                                    UPLIM                                 #  IF NEG, USE EVEN IF LT COGLOLIM, SINCE

Page 1192

051299,001579: 12,3273           25302                                    MAXCOGA                               #    THIS WOULD BE RESET IN LAMBLOOP
051300,001580: 12,3274           50025                           DSU      BMN                                   #  IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
051301,001581: 12,3275           11062                                    COGUPLIM                              
051302,001582: 12,3276           25302                                    MAXCOGA                               #  OTHERWISE OK, SO GO TO MAXCOGA
051303,001583: 12,3277           77745        UPLIM              DLOAD                                          
051304,001584: 12,3300           11062                                    COGUPLIM                              #  COGUPLIM=.999511597 = MAX VALUE OF COGA
051305,001585: 12,3301           00017                           STORE    COGAMAX                               #    NOT CAUSING OVFL IN R1A CALCULATION
051306,001586: 12,3302           77745        MAXCOGA            DLOAD                                          
051307,001587: 12,3303           02732                                    CSTH                                  
051308,001588: 12,3304           45261                           SR       DSU                                   #                               PL AT 0
051309,001589: 12,3305           20607                                    6                                     
051310,001590: 12,3306           77626                           STADR                                          
051311,001591: 12,3307           61041                           STODL    CSTH-RHO                              
051312,001592: 12,3310           02673                                    GEOMSGN                               
051313,001593: 12,3311           71240                           BMN      DLOAD                                 
051314,001594: 12,3312           25513                                    LOLIM                                 
051315,001595: 12,3313           02736                                    CSTH-RHO                              
051316,001596: 12,3314           56352                           SL1      DDV                                   
051317,001597: 12,3315           02730                                    SNTH                                  
051318,001598: 12,3316           77600                           BOV                                            
051319,001599: 12,3317           25513                                    LOLIM                                 
051320,001600: 12,3320           00011        MINCOGA            STORE    COGAMIN                               #  COGAMIN (+5)
051321,001601: 12,3321           66214                           BON      SSP                                   
051322,001602: 12,3322           00715                                    GUESSW                                
051323,001603: 12,3323           25477                                    NOGUESS                               
051324,001604: 12,3324           00051                                    TWEEKIT                               
051325,001605: 12,3325           00001                                    00001                                 
051326,001606: 12,3326           77745                           DLOAD                                          
051327,001607: 12,3327           02766                                    COGA                                  
051328,001608: 
051329,001609: 
051330,001610: 12,3330           77605        LAMBLOOP           DMP                                            
051331,001611: 12,3331           02730                                    SNTH                                  
051332,001612: 12,3332           45342                           SR1      DSU                                   
051333,001613: 12,3333           02736                                    CSTH-RHO                              
051334,001614: 12,3334           65301                           NORM     PDDL                                  #  0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
051335,001615: 12,3335           00047                                    X1                                    
051336,001616: 12,3336           02734                                    1-CSTH                                
051337,001617: 12,3337           56257                           SL*      DDV                                   #  1-CSTH  (+2)                 PL AT 0
051338,001618: 12,3340           20170                                    0          -9D,1                      
051339,001619: 12,3341           53040                           BMN      BZE                                   
051340,001620: 12,3342           25427                                    NEGP                                  
051341,001621: 12,3343           25427                                    NEGP                                  
051342,001622: 12,3344           16740                           STODL    P                                     #  P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
051343,001623: 12,3345           02766                                    COGA                                  
051344,001624: 12,3346           43316                           DSQ      DAD                                   
051345,001625: 12,3347           11046                                    D1/1024                               
051346,001626: 12,3350           41301                           NORM     DMP                                   
051347,001627: 12,3351           00047                                    X1                                    
051348,001628: 12,3352           02740                                    P                                     

Page 1193

051350,001630: 12,3353           44257                           SR*      BDSU                                  
051351,001631: 12,3354           20571                                    0          -8D,1                      
051352,001632: 12,3355           11044                                    D1/32                                 
051353,001633: 12,3356           16742                           STODL    R1A                                   #  R1A=2-P(1+COGA COGA) (+6)
051354,001634: 
051355,001635: 12,3357           02740                                    P                                     
051356,001636: 12,3360           45000                           BOV      CALL                                  
051357,001637: 12,3361           25432                                    HIENERGY                              
051358,001638: 12,3362           24767                                    GETX                                  
051359,001639: 12,3363           77745                           DLOAD                                          
051360,001640: 12,3364           00037                                    T                                     
051361,001641: 12,3365           16762                           STODL    TPREV                                 
051362,001642: 12,3366           00031                                    XI                                    
051363,001643: 12,3367           45014                           BON      CALL                                  
051364,001644: 12,3370           04310                                    INFINFLG                              
051365,001645: 12,3371           25427                                    NEGP                                  #  HAVE EXCEEDED THEORETICAL BOUNDS
051366,001646: 12,3372           24421                                    DELTIME                               
051367,001647: 12,3373           44200                           BOV      BDSU                                  
051368,001648: 12,3374           25447                                    BIGTIME                               
051369,001649: 12,3375           02671                                    TDESIRED                              
051370,001650: 12,3376           02760                           STORE    TERRLAMB                              
051371,001651: 12,3377           44246                           ABS      BDSU                                  
051372,001652: 12,3400           02764                                    EPSILONL                              
051373,001653: 12,3401           47044                           BPL      RTB                                   
051374,001654: 12,3402           25516                                    INITV                                 
051375,001655: 12,3403           24644                                    CHECKCTR                              
051376,001656: 12,3404           43030                           BHIZ     BON                                   
051377,001657: 12,3405           25460                                    SUFFCHEK                              
051378,001658: 12,3406           00714                                    SLOPESW                               
051379,001659: 12,3407           25415                                    GOITER                                
051380,001660: 12,3410           45345                           DLOAD    DSU                                   
051381,001661: 12,3411           00037                                    T                                     
051382,001662: 12,3412           02762                                    TPREV                                 
051383,001663: 12,3413           77654                           BZE                                            
051384,001664: 12,3414           25460                                    SUFFCHEK                              
051385,001665: 12,3415           77624        GOITER             CALL                                           
051386,001666: 12,3416           24536                                    ITERATOR                              
051387,001667: 12,3417           53145                           DLOAD    BZE                                   
051388,001668: 12,3420           00155                                    MPAC                                  
051389,001669: 12,3421           25460                                    SUFFCHEK                              
051390,001670: 12,3422           77615                           DAD                                            
051391,001671: 12,3423           02766                                    COGA                                  
051392,001672: 12,3424           02766                           STORE    COGA                                  
051393,001673: 12,3425           77650                           GOTO                                           
051394,001674: 12,3426           25330                                    LAMBLOOP                              
051395,001675: 
051396,001676: 
051397,001677: 12,3427           51145        NEGP               DLOAD    BPL                                   #  IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
051398,001678: 12,3430           00015                                    DCOGA                                 #  BOUND CALCULATION. TRY NEW COGA.
051399,001679: 12,3431           25452                                    LOENERGY                              
051400,001680: 

Page 1194

051402,001682: 12,3432           71201        HIENERGY           SETPD    DLOAD                                 #  HIGH ENERGY TRAJECTORY RESULTED
051403,001683: 12,3433           00001                                    0                                     
051404,001684: 12,3434           02766                                    COGA                                  #  IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
051405,001685: 12,3435           00011                           STORE    COGAMIN                               #  THIS IS THE NEW BOUND.
051406,001686: 12,3436           70545        COMMONLM           DLOAD    SR1                                   
051407,001687: 12,3437           00015                                    DCOGA                                 
051408,001688: 12,3440           00015                           STORE    DCOGA                                 #  USE DCOGA/2 AS DECREMENT
051409,001689: 12,3441           44254                           BZE      BDSU                                  
051410,001690: 12,3442           25460                                    SUFFCHEK                              
051411,001691: 12,3443           02766                                    COGA                                  
051412,001692: 12,3444           02766                           STORE    COGA                                  
051413,001693: 12,3445           77650                           GOTO                                           #  RESTART THIS LOOP
051414,001694: 12,3446           25330                                    LAMBLOOP                              
051415,001695: 
051416,001696: 
051417,001697: 12,3447           77745        BIGTIME            DLOAD                                          
051418,001698: 12,3450           02762                                    TPREV                                 
051419,001699: 12,3451           00037                           STORE    T                                     
051420,001700: 
051421,001701: 
051422,001702: 12,3452           71201        LOENERGY           SETPD    DLOAD                                 #  LOW ENERGY TRAJECTORY RESULTED
051423,001703: 12,3453           00001                                    0                                     
051424,001704: 12,3454           02766                                    COGA                                  #  IN OVERFLOW OF TIME.
051425,001705: 12,3455           00017                           STORE    COGAMAX                               #  THIS IS THE NEW BOUND.
051426,001706: 12,3456           77650                           GOTO                                           
051427,001707: 12,3457           25436                                    COMMONLM                              
051428,001708: 
051429,001709: 
051430,001710: 12,3460           51545        SUFFCHEK           DLOAD    ABS                                   
051431,001711: 12,3461           02760                                    TERRLAMB                              
051432,001712: 12,3462           41325                           PDDL     DMP                                   
051433,001713: 12,3463           02671                                    TDESIRED                              #                               PL AT 2D
051434,001714: 12,3464           11031                                    BEE17                                 
051435,001715: 12,3465           45215                           DAD      DSU                                   #                               PL AT 0D
051436,001716: 12,3466           11060                                    ONEBIT                                
051437,001717: 12,3467           43044                           BPL      SETGO                                 
051438,001718: 12,3470           25516                                    INITV                                 
051439,001719: 12,3471           02434                                    SOLNSW                                
051440,001720: 12,3472           25516                                    INITV                                 
051441,001721: 12,3473           43001        360LAMB            SETPD    SETGO                                 #  LAMBERT CANNOT HANDLE CSTH=1
051442,001722: 12,3474           00001                                    0                                     
051443,001723: 12,3475           02434                                    SOLNSW                                
051444,001724: 12,3476           02710                                    RTNLAMB                               
051445,001725: 
051446,001726: 
051447,001727: 12,3477           71331        NOGUESS            SSP      DLOAD                                 
051448,001728: 12,3500           00051                                    TWEEKIT                               
051449,001729: 12,3501           10000                                    20000                                 
051450,001730: 12,3502           00011                                    COGAMIN                               #                               PL AT 2
051451,001731: 12,3503           65342                           SR1      PDDL                                  

Page 1195

051453,001733: 12,3504           00017                                    COGAMAX                               
051454,001734: 12,3505           43342                           SR1      DAD                                   
051455,001735: 12,3506           77626                           STADR                                          #                               PL AT 0
051456,001736: 12,3507           75011                           STORE    COGA                                  
051457,001737: 12,3510           00015                           STORE    DCOGA                                 
051458,001738: 12,3511           77650                           GOTO                                           
051459,001739: 12,3512           25330                                    LAMBLOOP                              
051460,001740: 
051461,001741: 
051462,001742: 12,3513           52145        LOLIM              DLOAD    GOTO                                  
051463,001743: 12,3514           11064                                    COGLOLIM                              #  COGLOLIM=-.999511597
051464,001744: 12,3515           25320                                    MINCOGA                               
051465,001745: 
051466,001746: 
051467,001747: 12,3516           60345        INITV              DLOAD    NORM                                  
051468,001748: 12,3517           00041                                    R1                                    
051469,001749: 12,3520           00047                                    X1                                    
051470,001750: 12,3521           70525                           PDDL     SR1                                   #                               PL AT 2
051471,001751: 12,3522           02740                                    P                                     
051472,001752: 12,3523           77671                           DDV                                            #                               PL AT 0
051473,001753: 12,3524           75457                           SL*      SQRT                                  
051474,001754: 12,3525           20175                                    0          -4,1                       
051475,001755: 12,3526           72405                           DMP      SL1                                   
051476,001756: 12,3527           00021                                    ROOTMU                                
051477,001757: 12,3530           41206                           PUSH     DMP                                   #  0D=VTAN (+7)                 PL AT 2
051478,001758: 12,3531           02766                                    COGA                                  
051479,001759: 12,3532           74261                           SL       VXSC                                  
051480,001760: 12,3533           20206                                    5                                     
051481,001761: 12,3534           02722                                    UR1                                   
051482,001762: 12,3535           77725                           PDDL                                           #  XCH WITH 0D                  PL AT 0,6
051483,001763: 12,3536           76561                           VXSC     VSL1                                  
051484,001764: 12,3537           02674                                    UN                                    
051485,001765: 12,3540           53235                           VXV      VAD                                   
051486,001766: 12,3541           02722                                    UR1                                   #                               PL AT 0
051487,001767: 12,3542           77772                           VSL1                                           
051488,001768: 12,3543           02744                           STORE    VVEC                                  
051489,001769: 12,3544           53135                           SLOAD    BZE                                   
051490,001770: 12,3545           02702                                    VTARGTAG                              
051491,001771: 12,3546           25551                                    TARGETV                               
051492,001772: 12,3547           77650                           GOTO                                           
051493,001773: 12,3550           02710                                    RTNLAMB                               
051494,001774: 
051495,001775: 
051496,001776: 12,3551           45145        TARGETV            DLOAD    CALL                                  
051497,001777: 12,3552           02720                                    MAGVEC2                               
051498,001778: 12,3553           24701                                    LAMENTER                              
051499,001779: 12,3554           02703                           STORE    VTARGET                               
051500,001780: 12,3555           77650                           GOTO                                           
051501,001781: 12,3556           02710                                    RTNLAMB                               
051502,001782: 

Page 1196

051504,001784: 12,3557           40220        TIMERAD            STQ      SETPD                                 #                                  PL AT 0
051505,001785: 12,3560           02710                                    RTNTR                                 
051506,001786: 12,3561           00001                                    0                                     
051507,001787: 12,3562           77600                           BOV                                            
051508,001788: 12,3563           25564                                    +1                                    
051509,001789: 12,3564           63375                           VLOAD    PDVL                                  #                                  PL AT 6
051510,001790: 12,3565           02655                                    RVEC                                  
051511,001791: 12,3566           02744                                    VVEC                                  
051512,001792: 12,3567           77624                           CALL                                           
051513,001793: 12,3570           11065                                    PARAM                                 
051514,001794: 12,3571           71200                           BOV      DLOAD                                 #                                  PL AT 0
051515,001795: 12,3572           24764                                    COGAOVFL                              
051516,001796: 12,3573           11044                                    D1/32                                 
051517,001797: 12,3574           41225                           DSU      DMP                                   
051518,001798: 12,3575           02742                                    R1A                                   
051519,001799: 12,3576           02740                                    P                                     
051520,001800: 12,3577           41366                           SQRT     DMP                                   
051521,001801: 12,3600           02766                                    COGA                                  
051522,001802: 12,3601           74212                           SL4      VXSC                                  
051523,001803: 12,3602           02712                                    U2                                    
051524,001804: 12,3603           45325                           PDDL     DSU                                   #                                  PL AT 6
051525,001805: 12,3604           11036                                    D1/64                                 
051526,001806: 12,3605           02742                                    R1A                                   
051527,001807: 12,3606           52361                           VXSC     VSU                                   #                                  PL AT 0
051528,001808: 12,3607           02722                                    UR1                                   
051529,001809: 12,3610           53512                           VSL4     UNIT                                  
051530,001810: 12,3611           77600                           BOV                                            
051531,001811: 12,3612           25670                                    CIRCULAR                              
051532,001812: 12,3613           60325                           PDDL     NORM                                  #  0D=UNIT(ECC) (+3)               PL AT 6
051533,001813: 12,3614           02756                                    RDESIRED                              #  36D=ECC (+3)
051534,001814: 12,3615           00047                                    X1                                    
051535,001815: 12,3616           41325                           PDDL     DMP                                   #                               PL AT 8
051536,001816: 12,3617           00041                                    R1                                    
051537,001817: 12,3620           02740                                    P                                     
051538,001818: 12,3621           56257                           SL*      DDV                                   #                               PL AT 6
051539,001819: 12,3622           20201                                    0,1                                   
051540,001820: 12,3623           56225                           DSU      DDV                                   
051541,001821: 12,3624           11042                                    D1/16                                 
051542,001822: 12,3625           00045                                    36D                                   #  36D=ECC (+3)
051543,001823: 12,3626           00031                           STORE    COSF                                  
051544,001824: 12,3627           63400                           BOV      DSQ                                   
051545,001825: 12,3630           25674                                    BADR2                                 
051546,001826: 12,3631           50021                           BDSU     BMN                                   
051547,001827: 12,3632           11040                                    D1/4                                  
051548,001828: 12,3633           25674                                    BADR2                                 
051549,001829: 12,3634           75366                           SQRT     SIGN                                  
051550,001830: 12,3635           02755                                    SGNRDOT                               
051551,001831: 12,3636           77614                           CLEAR                                          
051552,001832: 12,3637           04272                                    APSESW                                

Page 1197

051554,001834: 12,3640           76561        TERMNVEC           VXSC     VSL1                                  
051555,001835: 12,3641           02674                                    UN                                    
051556,001836: 12,3642           63235                           VXV      PDVL                                  #  VXCH WITH 0D                 PL AT 0,6
051557,001837: 12,3643           00001                                    0D                                    
051558,001838: 12,3644           53361                           VXSC     VAD                                   #                               PL AT 0
051559,001839: 12,3645           00031                                    COSF                                  
051560,001840: 12,3646           41572                           VSL1     PUSH                                  #  0D=U2                        PL AT 6
051561,001841: 
051562,001842: 12,3647           56241                           DOT      DDV                                   #  LIMITS RESULT TO POSMAX OR NEGMAX
051563,001843: 12,3650           02722                                    UR1                                   
051564,001844: 12,3651           25766                                    DP1/4                                 
051565,001845: 12,3652           40142                           SR1      BOV                                   #  SCALE BACK DOWN TO NORMAL
051566,001846: 12,3653           25654                                    +1                                    #  CLEAR OVFIND IF SET
051567,001847: 12,3654           26732                           STOVL    CSTH                                  #  CSTH (+1)
051568,001848: 12,3655           02722                                    UR1                                   
051569,001849: 12,3656           76435                           VXV      VSL1                                  
051570,001850: 12,3657           72441                           DOT      SL1                                   
051571,001851: 12,3660           02674                                    UN                                    
051572,001852: 12,3661           16730                           STODL    SNTH                                  #  SNTH (+1)
051573,001853: 12,3662           02740                                    P                                     
051574,001854: 12,3663           77624                           CALL                                           
051575,001855: 12,3664           24767                                    GETX                                  
051576,001856: 12,3665           77614                           CLRGO                                          
051577,001857: 12,3666           02634                                    SOLNSW                                
051578,001858: 12,3667           24747                                    COMMNOUT                              
051579,001859: 
051580,001860: 
051581,001861: 12,3670           43001        CIRCULAR           SETPD    SETGO                                 
051582,001862: 12,3671           00001                                    0                                     
051583,001863: 12,3672           02434                                    SOLNSW                                
051584,001864: 12,3673           25752                                    ABTCONIC                              
051585,001865: 
051586,001866: 
051587,001867: 12,3674           75345        BADR2              DLOAD    SIGN                                  
051588,001868: 12,3675           24005                                    LODPHALF                              
051589,001869: 12,3676           00031                                    COSF                                  
051590,001870: 12,3677           14031                           STODL    COSF                                  
051591,001871: 12,3700           24007                                    KEPZERO                               
051592,001872: 12,3701           77614                           SETGO                                          
051593,001873: 12,3702           04032                                    APSESW                                
051594,001874: 12,3703           25640                                    TERMNVEC                              
051595,001875: 

Page 1198

051597,001877: 12,3704           40220        APSIDES            STQ      SETPD                                 #                                  PL AT  0
051598,001878: 12,3705           02710                                    RTNAPSE                               
051599,001879: 12,3706           00001                                    0D                                    
051600,001880: 12,3707           77600                           BOV                                            
051601,001881: 12,3710           25711                                    +1                                    
051602,001882: 12,3711           63375                           VLOAD    PDVL                                  #                                  PL AT  6
051603,001883: 12,3712           02655                                    RVEC                                  
051604,001884: 12,3713           02744                                    VVEC                                  
051605,001885: 12,3714           77624                           CALL                                           
051606,001886: 12,3715           11065                                    PARAM                                 
051607,001887: 12,3716           77600                           BOV                                            #                                  PL AT  0
051608,001888: 12,3717           25720                                    GETECC                                
051609,001889: 12,3720           42405        GETECC             DMP      SL4                                   
051610,001890: 12,3721           02742                                    R1A                                   
051611,001891: 12,3722           75421                           BDSU     SQRT                                  
051612,001892: 12,3723           11036                                    D1/64                                 
051613,001893: 12,3724           02752                           STORE    ECC                                   
051614,001894: 12,3725           65215                           DAD      PDDL                                  #                                  PL AT  2
051615,001895: 12,3726           11032                                    D1/8                                  
051616,001896: 12,3727           00041                                    R1                                    
051617,001897: 12,3730           72405                           DMP      SL1                                   
051618,001898: 12,3731           02740                                    P                                     
051619,001899: 12,3732           77671                           DDV                                            #                                  PL AT  0
051620,001900: 12,3733           60325                           PDDL     NORM                                  #  0D=RP (+29 OR +27)              PL AT  2
051621,001901: 12,3734           02742                                    R1A                                   
051622,001902: 12,3735           00047                                    X1                                    
051623,001903: 12,3736           53725                           PDDL     SL*                                   #                                  PL AT  4
051624,001904: 12,3737           00041                                    R1                                    
051625,001905: 12,3740           20174                                    0          -5,1                       
051626,001906: 12,3741           45271                           DDV      DSU                                   #                                  PL AT 2,0
051627,001907: 12,3742           50000                           BOV      BMN                                   
051628,001908: 12,3743           25747                                    INFINAPO                              
051629,001909: 12,3744           25747                                    INFINAPO                              
051630,001910: 12,3745           77650                           GOTO                                           
051631,001911: 12,3746           02710                                    RTNAPSE                               
051632,001912: 12,3747           52145        INFINAPO           DLOAD    GOTO                                  #  RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
051633,001913: 12,3750           24020                                    LDPOSMAX                              
051634,001914: 12,3751           02710                                    RTNAPSE                               #  THAT PL IS AT 0.
051635,001915: 

Page 1199

051637,001917: 12,3752           77776        ABTCONIC           EXIT                                           
051638,001918: 12,3753           05644                           TC       POODOO                                
051639,001919: 12,3754           20607                           OCT      20607                                 
051640,001920: 
051641,001921: 12,3755  12,2017               LDPOSMAX           EQUALS   LODPMAX                               #  DPPOSMAX IN LOW MEMORY.
051642,001922: 
051643,001923:                                                                                                  #  ERASABLE ASSIGNMENTS
051644,001924: 
051645,001925: 
051646,001926:                                                                                                  #  KEPLER SUBROUTINE
051647,001927: 
051648,001928:                                                                                                  #     INPUT -
051649,001929:                                                                                                  #  RRECT    ERASE  +5
051650,001930:                                                                                                  #  VRECT    ERASE  +5
051651,001931:                                                                                                  #  TAU.     ERASE  +1
051652,001932:                                                                                                  #  XKEP     ERASE  +1
051653,001933:                                                                                                  #  TC       ERASE  +1
051654,001934:                                                                                                  #  XPREV    ERASE  +1
051655,001935: 12,3755                        1/MU               EQUALS   14D                                   
051656,001936: 12,3755                        ROOTMU             EQUALS   16D                                   
051657,001937: 12,3755                        1/ROOTMU           EQUALS   18D                                   
051658,001938:                                                                                                  #     OUTPUT -
051659,001939:                                                                                                  #  RCV      ERASE  +5
051660,001940:                                                                                                  #  VCV      ERASE  +5
051661,001941:                                                                                                  #  RC       ERASE  +1
051662,001942:                                                                                                  #  XPREV    ERASE  +1
051663,001943: 
051664,001944:                                                                                                  #  DEBRIS -
051665,001945: 12,3755                        ALPHA              EQUALS   8D                                    
051666,001946: 12,3755                        XMAX               EQUALS   10D                                   
051667,001947: 12,3755                        XMIN               EQUALS   12D                                   
051668,001948: 12,3755                        X                  EQUALS   20D                                   
051669,001949: 12,3755                        XI                 EQUALS   24D                                   
051670,001950: 12,3755                        S(XI)              EQUALS   26D                                   
051671,001951: 12,3755                        XSQC(XI)           EQUALS   28D                                   
051672,001952: 12,3755                        T                  EQUALS   30D                                   
051673,001953: 12,3755                        R1                 EQUALS   32D                                   
051674,001954: 12,3755                        KEPC1              EQUALS   34D                                   
051675,001955: 12,3755                        KEPC2              EQUALS   36D                                   
051676,001956:                                                                                                  #  DELX     ERASE  +1
051677,001957:                                                                                                  #  DELT     ERASE  +1
051678,001958:                                                                                                  #  URRECT   ERASE  +5
051679,001959:                                                                                                  #  RCNORM   ERASE  +1
051680,001960:                                                                                                  #  XPREV    EQUALS XKEP
051681,001961: 
051682,001962: 
051683,001963:                                                                                                  #  LAMBERT SUBROUTINE
051684,001964: 
051685,001965:                                                                                                  #     INPUT-
051686,001966:                                                                                                  #  R1VEC    ERASE  +5

Page 1200

051688,001968:                                                                                                  #  R2VEC    ERASE  +5
051689,001969:                                                                                                  #  TDESIRED ERASE  +1
051690,001970:                                                                                                  #  GEOMSGN  ERASE  +0
051691,001971:                                                                                                  #  GUESSW                          0 IF COGA GUESS AVAILABLE, 1 IF NOT
051692,001972:                                                                                                  #  COGA     ERASE  +1              INPUT ONLY IF GUESSW IS ZERO.
051693,001973:                                                                                                  #  NORMSW                          0 IF UN TO BE COMPUTED, 1 IF UN INPUT
051694,001974:                                                                                                  #  UN       ERASE  +5              ONLY USED IF NORMSW IS 1
051695,001975:                                                                                                  #  VTARGTAG ERASE  +0
051696,001976:                                                                                                  #  TWEEKIT  EQUALS 40D             ONLY USED IF GUESSW IS 0
051697,001977: 
051698,001978:                                                                                                  #     OUTPUT -
051699,001979:                                                                                                  #  VTARGET  ERASE  +5              AVAILABLE ONLY IF VTARGTAG IS ZERO.
051700,001980:                                                                                                  #  V1VEC    EQUALS MPAC
051701,001981: 
051702,001982:                                                                                                  #     DEBRIS -
051703,001983:                                                                                                  #  RTNLAMB  ERASE  +0
051704,001984:                                                                                                  #  U2       ERASE  +5
051705,001985:                                                                                                  #  MAGVEC2  ERASE  +1
051706,001986:                                                                                                  #  UR1      ERASE  +5
051707,001987:                                                                                                  #  R1       EQUALS 31D
051708,001988:                                                                                                  #  UN       ERASE  +5
051709,001989:                                                                                                  #  SNTH     ERASE  +1
051710,001990:                                                                                                  #  CSTH     ERASE  +1
051711,001991:                                                                                                  #  1-CSTH   ERASE  +1
051712,001992:                                                                                                  #  CSTH-RHO ERASE  +1
051713,001993: 12,3755                        COGAMAX            EQUALS   14D                                   #  CLOBBERS 1/MU
051714,001994: 12,3755                        COGAMIN            EQUALS   8D                                    
051715,001995: 12,3755                        DCOGA              EQUALS   12D                                   
051716,001996:                                                                                                  #  TWEEKIT  EQUALS 40D
051717,001997:                                                                                                  #  P        ERASE  +1
051718,001998:                                                                                                  #  COGA     ERASE  +1
051719,001999:                                                                                                  #  R1A      ERASE  +1
051720,002000:                                                                                                  #  X        EQUALS 20D
051721,002001:                                                                                                  #  XSQ      EQUALS 22D
051722,002002:                                                                                                  #  XI       EQUALS 24D
051723,002003:                                                                                                  #  S(XI)    EQUALS 26D
051724,002004:                                                                                                  #  XSQC(XI) EQUALS 28D
051725,002005:                                                                                                  #  T        EQUALS 30D
051726,002006:                                                                                                  #  KEPC1    EQUALS 34D
051727,002007:                                                                                                  #  KEPC2    EQUALS 36D
051728,002008:                                                                                                  #  SLOPESW
051729,002009:                                                                                                  #  SOLNSW
051730,002010:                                                                                                  #  OTHERS -
051731,002011: 
051732,002012:                                                                                                  #  RVEC     EQUALS R1VEC
051733,002013:                                                                                                  #  VVEC     ERASE  +5
051734,002014:                                                                                                  #  COGAFLAG
051735,002015:                                                                                                  #  RVSW
051736,002016:                                                                                                  #  INFINFLG
051737,002017:                                                                                                  #  APSESW

Page 1201

051739,002019:                                                                                                  #  360SW
051740,002020:                                                                                                  #  RTNTT    EQUALS RTNLAMB
051741,002021:                                                                                                  #  ECC      ERASE  +1
051742,002022:                                                                                                  #  RTNTR    EQUALS RTNLAMB
051743,002023:                                                                                                  #  RTNAPSE  EQUALS RTNLAMB
051744,002024:                                                                                                  #  R2       EQUALS MAGVEC2
051745,002025: 12,3755                        COSF               EQUALS   24D                                   
051746,002026:                                                                                                  #  RTNPRM   ERASE  +0
051747,002027:                                                                                                  #  SGNRDOT  ERASE  +0
051748,002028:                                                                                                  #  RDESIRED ERASE  +1
051749,002029: 
051750,002030: 
051751,002031:                                                                                                  #  ITERATOR SUBROUTINE
051752,002032: 
051753,002033:                                                                                                  #  ORDERSW
051754,002034: 12,3755                        MAX                EQUALS   14D                                   #  CLOBBERS 1/MU
051755,002035: 12,3755                        MIN                EQUALS   8D                                    
051756,002036:                                                                                                  #  INDEP    ERASE  +1
051757,002037: 12,3755                        DELINDEP           EQUALS   12D                                   
051758,002038: 12,3755                        ITERCTR            EQUALS   22D                                   
051759,002039: 12,3755                        DEP                EQUALS   30D                                   
051760,002040:                                                                                                  #  DELDEP   ERASE  +1
051761,002041:                                                                                                  #  DEPREV   ERASE  +1
051762,002042: 12,3755                        TWEEKIT            EQUALS   40D                                   
051763,002043: 
051764,002044: 
051765,002045:                                                                                                  #  MORE KEPLER
051766,002046: 
051767,002047:                                                                                                  #  EPSILONT ERASE  +1
051768,002048: 
051769,002049: 
051770,002050:                                                                                                  #  MORE LAMBERT
051771,002051: 
051772,002052:                                                                                                  #  TERRLAMB EQUALS DELDEP
051773,002053:                                                                                                  #  TPREV    EQUALS DEPREV
051774,002054: 
051775,002055:                                                                                                  #  EPSILONL EQUALS EPSILONT +2     DOUBLE PRECISION WORD

End of include-file CONIC_SUBROUTINES.agc.  Parent file is MAIN.agc