Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

049863,000002:                                                                                                  ## Copyright:   Public domain.
049864,000003:                                                                                                  ## Filename:    CONIC_SUBROUTINES.agc
049865,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
049866,000005:                                                                                                  ##              It is part of the source code for the original release
049867,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
049868,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
049869,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
049870,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
049871,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
049872,000011:                                                                                                  ##              that the code format has been changed to conform to the
049873,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
049874,000013:                                                                                                  ##              original YUL assembler.
049875,000014:                                                                                                  ## Reference:   pp. 1154-1199
049876,000015:                                                                                                  ## Assembler:   yaYUL
049877,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
049878,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049879,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
049880,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
049881,000020:                                                                                                  ##              2017-01-22 MAS  Updated for Luminary 69
049882,000021:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
049883,000022:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
049884,000023:                                                                                                  ##                              and fixed errors found.
049885,000024:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
049886,000025:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
049887,000026:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
049888,000027:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
049889,000028:                                                                                                  ##                              Luminary 99 vs Comanche 55.
049890,000029: 

Page 1154

049892,000031:                                                                                                  #  PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION                       DATE - 1 SEPTEMBER 1967
049893,000032:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
049894,000033:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
049895,000034: 
049896,000035: 
049897,000036:                                                                                                  #  FUNCTIONAL DESCRIPTION -
049898,000037: 
049899,000038:                                                                                                  #       THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
049900,000039:                                                                                                  #  INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
049901,000040:                                                                                                  #  5.5.1.2.  A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
049902,000041:                                                                                                  #  RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE.  THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
049903,000042:                                                                                                  #  INVOLVING ANY REALISTIC SET OF CONSTRAINTS.  IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
049904,000043:                                                                                                  #  EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
049905,000044:                                                                                                  #  THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
049906,000045:                                                                                                  #  DEFINITION MEMO NO. 10.  THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
049907,000046:                                                                                                  #  TINES APPROPRIATELY.
049908,000047:                                                                                                  #       DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
049909,000048:                                                                                                  #  BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE.  AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
049910,000049:                                                                                                  #  DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
049911,000050: 
049912,000051: 
049913,000052:                                                                                                  #  RESTRICTIONS -
049914,000053: 
049915,000054:                                                                                                  #       THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
049916,000055:                                                                                                  #  LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP.  THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
049917,000056:                                                                                                  #  TORIES COULD BE HANDLED.
049918,000057:                                                                                                  #       SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
049919,000058:                                                                                                  #  THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
049920,000059:                                                                                                  #  TO INTERRUPT EACH OTHER.  IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
049921,000060: 
049922,000061: 

Page 1155

049924,000063:                                                                                                  #  PROGRAM DESCRIPTION - KEPLER SUBROUTINE                                 DATE - 11 OCTOBER 1967
049925,000064:                                                                                                  #  MOD NO. -1                                                                       LOG SECTION - CONIC SUBROUTINES
049926,000065:                                                                                                  #  MOD BY KRAUSE                                                           ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
049927,000066:                                                                                                  #  MOD NO. - 2  (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
049928,000067: 
049929,000068: 
049930,000069:                                                                                                  #  FUNCTIONAL DESCRIPTION -
049931,000070:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
049932,000071:                                                                                                  #  BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR.  THE TRAJECTORY MAY BE ANY CONIC
049933,000072:                                                                                                  #  SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON.  THE
049934,000073:                                                                                                  #  USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
049935,000074:                                                                                                  #  INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERA-
049936,000075:                                                                                                  #  TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
049937,000076:                                                                                                  #       IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
049938,000077:                                                                                                  #  EXTRAPOLATING THE POSITION BACKWARD IN TIME.
049939,000078:                                                                                                  #       IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
049940,000079:                                                                                                  #  MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
049941,000080: 
049942,000081: 
049943,000082:                                                                                                  #  THE RESTRICTIONS ARE -
049944,000083:                                                                                                  #       1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
049945,000084:                                                                                                  #       2.  THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP.  IF
049946,000085:                                                                                                  #  ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049947,000086: 
049948,000087: 
049949,000088:                                                                                                  #       THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
049950,000089:                                                                                                  #  GUESS, XKFPNEW.  THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
049951,000090:                                                                                                  #  FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
049952,000091: 
049953,000092: 
049954,000093: 
049955,000094:                                                                                                  #  REFERENCES -
049956,000095:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
049957,000096:                                                                                                  #  MEMO 67-4.
049958,000097: 
049959,000098: 
049960,000099: 
049961,000100:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
049962,000101: 
049963,000102:                                                                                                  #          * SCALE FACTOR *
049964,000103:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
049965,000104:                                                                                                  #  --------*--------------*                         -----------------------
049966,000105:                                                                                                  #  RRECT   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
049967,000106:                                                                                                  #          * +27 FOR MOON *
049968,000107:                                                                                                  #  VRECT   * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049969,000108:                                                                                                  #          * +5 FOR MOON  * 
049970,000109:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049971,000110:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
049972,000111:                                                                                                  #  TAU.    * +28          *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
049973,000112:                                                                                                  #  XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP

Page 1156

049975,000114:                                                                                                  #          * +16 FOR MOON *(DP)
049976,000115:                                                                                                  #  TC      * +28          *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP
049977,000116:                                                                                                  #  XPREV   * +17 FOR EARTH*PREVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF POWER FROM KEPPREP (DP)
049978,000117:                                                                                                  #          * +16 FOR MOON *(DP)
049979,000118: 
049980,000119: 
049981,000120: 
049982,000121:                                                                                                  #  SUBROUTINES CALLED -
049983,000122:                                                                                                  #       DELTIME
049984,000123: 
049985,000124: 
049986,000125: 
049987,000126:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
049988,000127: 
049989,000128:                                                                                                  #  KEPRTN-2 GOTO                   MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
049990,000129:                                                                                                  #  KEPRTN-1        KEPLER          RETURNS WITH XPREV IN MPAC. PL IS AT 0.
049991,000130:                                                                                                  #  KEPRTN   ...                    CONTINUE
049992,000131: 
049993,000132:                                                                                                  #  KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
049994,000133:                                                                                                  #  THE INTERRUPTED JOB.  THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
049995,000134:                                                                                                  #  ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
049996,000135: 
049997,000136: 
049998,000137: 
049999,000138:                                                                                                  #  ABORT EXIT MODES -
050000,000139:                                                                                                  #       NONE
050001,000140: 
050002,000141: 
050003,000142: 
050004,000143:                                                                                                  #  OUTPUT -
050005,000144: 
050006,000145:                                                                                                  #          * SCALE FACTOR *
050007,000146:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050008,000147:                                                                                                  #  --------*--------------*                         -----------------------
050009,000148:                                                                                                  #  RCV     * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
050010,000149:                                                                                                  #          * +27 FOR MOON *
050011,000150:                                                                                                  #  VCV     * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
050012,000151:                                                                                                  #          * +5 FOR MOON  *
050013,000152:                                                                                                  #  TC      * +28          *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED.
050014,000153:                                                                                                  #  XPREV   * +17 FOR EARTH*DP X IN METERS-TO-THE-ONE-HALF-POWER TO WHCIH KEPLER CONVERGED.
050015,000154:                                                                                                  #          * +16 FOR MOON *(DP)
050016,000155:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050017,000156: 
050018,000157: 
050019,000158: 
050020,000159:                                                                                                  #  DEBRIS -
050021,000160: 
050022,000161:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050023,000162: 
050024,000163:                                                                                                  #          * SCALE FACTOR *

Page 1157

050026,000165:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050027,000166:                                                                                                  #  --------*--------------*                         -----------------------
050028,000167:                                                                                                  #  URRECT  * +1           *DP UNIT VECTOR OF INITIAL POSITION
050029,000168:                                                                                                  #  R1      * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
050030,000169:                                                                                                  #          * +27 FOR MOON *
050031,000170:                                                                                                  #  ALPHA   * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
050032,000171:                                                                                                  #          * -20 FOR MOON *
050033,000172:                                                                                                  #  TMODULO * +28          *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
050034,000173:                                                                                                  #          *              *TAU. OF LESS THAN ONE PERIOD.
050035,000174: 
050036,000175:                                                                                                  #       PARAMETERS OF NO USE -
050037,000176:                                                                                                  #  DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
050038,000177: 
050039,000178: 

Page 1158

050041,000180:                                                                                                  #  PROGRAM DESCRIPTION - LAMBERT SUBROUTINE                                        DATE - 1 SEPTEMBER 1967
050042,000181:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
050043,000182:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
050044,000183: 
050045,000184: 
050046,000185: 
050047,000186:                                                                                                  #  FUNCTIONAL DESCRIPTION -
050048,000187: 
050049,000188:                                                                                                  #       THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
050050,000189:                                                                                                  #  FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL.  THE RESULTING TRAJECTORY MAY BE
050051,000190:                                                                                                  #  A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE
050052,000191:                                                                                                  #  SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
050053,000192:                                                                                                  #  CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERATION TECHNIQUE IS
050054,000193:                                                                                                  #  UTILIZED IN THE COMPUTATION.
050055,000194: 
050056,000195: 
050057,000196:                                                                                                  #  THE RESTRICTIONS ARE -
050058,000197:                                                                                                  #       1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
050059,000198:                                                                                                  #       2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
050060,000199:                                                                                                  #       3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050061,000200:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
050062,000201:                                                                                                  #       4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
050063,000202:                                                                                                  #       5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE
050064,000203:                                                                                                  #  LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050065,000204:                                                                                                  #       THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
050066,000205:                                                                                                  #  GUESS OF THE INDEPENDENT VARIABLE, COGA.                                THE AGC COMPUTATION TIME IS APPROXIMATE-
050067,000206:                                                                                                  #  LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
050068,000207: 
050069,000208: 
050070,000209: 
050071,000210:                                                                                                  #  REFERENCES -
050072,000211:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
050073,000212:                                                                                                  #  SGA MEMO 67-4.
050074,000213: 
050075,000214: 
050076,000215: 
050077,000216:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
050078,000217: 
050079,000218:                                                                                                  #          * SCALE FACTOR *
050080,000219:                                                                                                  #  VARIABLE*IN POWERS OF 2*       DESCRIPTION AND REMARKS
050081,000220:                                                                                                  #  --------*--------------*-----------------------
050082,000221:                                                                                                  #  R1VEC   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050083,000222:                                                                                                  #          * +27 FOR MOON *
050084,000223:                                                                                                  #  R2VEC   * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
050085,000224:                                                                                                  #          * +27 FOR MOON *
050086,000225:                                                                                                  #  TDESIRED* +28          *DP DESIRED TRANSFER TIME IN CENTISECONDS
050087,000226:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050088,000227:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
050089,000228:                                                                                                  #  GEOMSGN * NONE         *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
050090,000229:                                                                                                  #  GUESSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF

Page 1159

050092,000231:                                                                                                  #          *              *COGA IS TO BE USED BY LAMBERT
050093,000232:                                                                                                  #  COGA    * +5           *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL).  THIS WILL BE
050094,000233:                                                                                                  #                         *IGNORED IF GUESSW IS SET.
050095,000234:                                                                                                  #  NORMSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
050096,000235:                                                                                                  #          *              *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
050097,000236:                                                                                                  #  UN      * +1           *DP UNIT  NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
050098,000237:                                                                                                  #          *              *MOMENTUM VECTOR.  THIS WILL BE IGNORED IF NORMSW IS CLEAR.
050099,000238:                                                                                                  #  VTARGTAG* NONE         *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
050100,000239:                                                                                                  #          *              *AT R1VEC.
050101,000240:                                                                                                  #  ITERCTR * NONE         *A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE.
050102,000241:                                                                                                  #          *              *(AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
050103,000242:                                                                                                  #          *              *ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.)
050104,000243:                                                                                                  #          *              *TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
050105,000244: 
050106,000245: 
050107,000246:                                                                                                  #  SUBROUTINES CALLED -
050108,000247:                                                                                                  #       GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
050109,000248: 
050110,000249: 
050111,000250: 
050112,000251:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
050113,000252: 
050114,000253:                                                                                                  #  L        CALL                   MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050115,000254:                                                                                                  #  L+1             LAMBERT         RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
050116,000255:                                                                                                  #                                  IN MPAC IF VTARGTAG WAS ZERO
050117,000256:                                                                                                  #  L+2      BON                    CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
050118,000257:                                                                                                  #  L+3             SOLNSW
050119,000258:                                                                                                  #  L+4             LAMABORT
050120,000259:                                                                                                  #       IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
050121,000260:                                                                                                  #  GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
050122,000261: 
050123,000262: 
050124,000263: 
050125,000264:                                                                                                  #  ABORT EXIT MODES -
050126,000265:                                                                                                  #       IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
050127,000266:                                                                                                  #  WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC.  IN EITHER CASE THE FIX MUST BE MADE
050128,000267:                                                                                                  #  ACCORDING TO THE NEEDS OF THE PARTICULAR USER.  THE ABORT EXIT MODE MAY BE CODED AS ...
050129,000268:                                                                                                  #  LAMABORT DLOAD  ABS                     A MEASURE OF PROXIMITY TO 0 OR
050130,000269:                                                                                                  #                  1-CSTH                  360 DEGREES.
050131,000270:                                                                                                  #           DSU    BMN
050132,000271:                                                                                                  #                  ONEBIT
050133,000272:                                                                                                  #                  CHANGER2                CHANGE R2VEC DIRECTION SLIGHTLY.
050134,000273:                                                                                                  #           DLOAD  DAD
050135,000274:                                                                                                  #                  TDESIRED
050136,000275:                                                                                                  #                  SOMETIME
050137,000276:                                                                                                  #           STCALL TDESIRED                INCREASE TDESIRED
050138,000277:                                                                                                  #                  LAMBERT
050139,000278: 
050140,000279: 

Page 1160

050142,000281:                                                                                                  #  OUTPUT -
050143,000282:                                                                                                  #          * SCALE FACTOR *
050144,000283:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050145,000284:                                                                                                  #  --------*--------------*                         -----------------------
050146,000285:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
050147,000286:                                                                                                  #          * +5 FOR MOON  *PROBLEM.
050148,000287:                                                                                                  #  VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
050149,000288:                                                                                                  #          * +5 FOR MOON  *
050150,000289:                                                                                                  #  SOLNSW  * NONE         *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
050151,000290:                                                                                                  #          *              *SOLUTION EXISTS.
050152,000291:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050153,000292: 
050154,000293: 
050155,000294: 
050156,000295:                                                                                                  #  DEBRIS -
050157,000296:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050158,000297: 
050159,000298:                                                                                                  #          * SCALE FACTOR *
050160,000299:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050161,000300:                                                                                                  #  --------*--------------*                         -----------------------
050162,000301:                                                                                                  #  SNTH    * +1           *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
050163,000302:                                                                                                  #  CSTH    * +1           *DP COSINE OF ANGLE
050164,000303:                                                                                                  #  1-CSTH  * +2           *DP 1-CSTH
050165,000304:                                                                                                  #  COGA    * +5           *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
050166,000305:                                                                                                  #  P       * +4           *DP RATIO  OF SEMILATUS RECTUM TO INITIAL RADIUS
050167,000306:                                                                                                  #  R1A     * +6           *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
050168,000307:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
050169,000308:                                                                                                  #          * +27 FOR MOON *
050170,000309:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF R1VEC
050171,000310:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF R2VEC
050172,000311: 
050173,000312:                                                                                                  #       PARAMETERS OF NO USE
050174,000313:                                                                                                  #  DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP),  PLUS PUSHLIST REGISTER 0 THROUGH 41D
050175,000314:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
050176,000315: 
050177,000316: 

Page 1161

050179,000318:                                                                                                  #  PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE                                     DATE - 1 SEPTEMBER 1967
050180,000319:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
050181,000320:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
050182,000321: 
050183,000322: 
050184,000323: 
050185,000324:                                                                                                  #  FUNCTIONAL DESCRIPTION -
050186,000325: 
050187,000326:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
050188,000327:                                                                                                  #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050189,000328:                                                                                                  #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050190,000329:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
050191,000330:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050192,000331:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050193,000332: 
050194,000333: 
050195,000334:                                                                                                  #  THE RESTRICTIONS ARE -
050196,000335:                                                                                                  #       1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050197,000336:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
050198,000337:                                                                                                  #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
050199,000338:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050200,000339: 
050201,000340:                                                                                                  #       THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
050202,000341: 
050203,000342: 
050204,000343: 
050205,000344:                                                                                                  #  REFERENCES -
050206,000345:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050207,000346: 
050208,000347: 
050209,000348: 
050210,000349:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
050211,000350: 
050212,000351:                                                                                                  #          * SCALE FACTOR *
050213,000352:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050214,000353:                                                                                                  #  --------*--------------*                         -----------------------
050215,000354:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050216,000355:                                                                                                  #          * +27 FOR MOON *
050217,000356:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050218,000357:                                                                                                  #          * +5 FOR MOON  *
050219,000358:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
050220,000359:                                                                                                  #  CSTH    * +1           *DP COSINE OF THE ANGLE
050221,000360:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050222,000361:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
050223,000362:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050224,000363:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
050225,000364: 
050226,000365: 
050227,000366: 
050228,000367:                                                                                                  #  SUBROUTINES CALLED -

Page 1162

050230,000369:                                                                                                  #       PARAM, GEOM, GETX, DELTIME, NEWSTATE
050231,000370: 
050232,000371: 
050233,000372: 
050234,000373:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
050235,000374: 
050236,000375:                                                                                                  #     IF ONLY TIME IS DESIRED AS OUTPUT -
050237,000376:                                                                                                  #  L        SET    CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050238,000377:                                                                                                  #  L+1             RVSW
050239,000378:                                                                                                  #  L+2             TIMETHET        RETURN WITH PL AT 0 AND T IN MPAC
050240,000379:                                                                                                  #  L+3      ...                    CONTINUE
050241,000380: 
050242,000381: 
050243,000382:                                                                                                  #     IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050244,000383:                                                                                                  #  L        CLEAR  CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050245,000384:                                                                                                  #  L+1             RVSW
050246,000385:                                                                                                  #  L+2             TIMETHET        RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050247,000386:                                                                                                  #                                  THE INITIAL VELOCITY VECTOR IN MPAC.
050248,000387:                                                                                                  #  L+3      STOVL  NEWVVEC
050249,000388:                                                                                                  #  L+4      STADR
050250,000389:                                                                                                  #  L+5      STORE  NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050251,000390:                                                                                                  #  L+6      ...                            CONTINUE
050252,000391: 
050253,000392: 
050254,000393: 
050255,000394:                                                                                                  #  ABORT EXIT MODES -
050256,000395:                                                                                                  #  L        CALL   BON
050257,000396:                                                                                                  #  L+1             TIMETHET
050258,000397:                                                                                                  #  L+2             COGAFLAG
050259,000398:                                                                                                  #  L+3             COGABORT        RESTRICTION 1 HAS BEEN VIOLATED.
050260,000399:                                                                                                  #  L+4      BON                    IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS
050261,000400:                                                                                                  #                                  GOOD, SO CONTINUE
050262,000401:                                                                                                  #  L+5             INFINFLG
050263,000402:                                                                                                  #  L+6             IMPOSSBL        NO SOLUTION EXISTS.
050264,000403: 
050265,000404: 
050266,000405: 
050267,000406:                                                                                                  #  OUTPUT -
050268,000407:                                                                                                  #          * SCALE FACTOR *
050269,000408:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050270,000409:                                                                                                  #  --------*--------------*                         -----------------------
050271,000410:                                                                                                  #  T (30D) * +28          *DP TRANSFER TIME IN CENTISECONDS
050272,000411:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
050273,000412:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050274,000413:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050275,000414:                                                                                                  #          *              *CLEAR IF NOT.
050276,000415: 
050277,000416:                                                                                                  #  IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
050278,000417:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050279,000418:                                                                                                  #   MPAC +5* +5 FOR MOON  *

Page 1163

050281,000420:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050282,000421:                                                                                                  #          * +27 FOR MOON *
050283,000422: 
050284,000423:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050285,000424: 
050286,000425: 
050287,000426: 
050288,000427:                                                                                                  #  DEBRIS -
050289,000428: 
050290,000429:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050291,000430: 
050292,000431:                                                                                                  #          * SCALE FACTOR *
050293,000432:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050294,000433:                                                                                                  #  --------*--------------*                         -----------------------
050295,000434:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050296,000435:                                                                                                  #          * +27 FOR MOON *
050297,000436:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050298,000437:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
050299,000438:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050300,000439:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
050301,000440:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
050302,000441:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
050303,000442: 
050304,000443: 
050305,000444:                                                                                                  #       PARAMETERS OF NO USE -
050306,000445:                                                                                                  #  SP PARAMETERS -  RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050307,000446:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050308,000447: 
050309,000448: 

Page 1164

050311,000450:                                                                                                  #  PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE                            DATE - 11 OCTOBER 1967
050312,000451:                                                                                                  #  MOD NO. -1                                                                      LOG SECTION - CONIC SUBROUTINES
050313,000452:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
050314,000453: 
050315,000454: 
050316,000455: 
050317,000456:                                                                                                  #  FUNCTIONAL DESCRIPTION -
050318,000457: 
050319,000458:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
050320,000459:                                                                                                  #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050321,000460:                                                                                                  #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050322,000461:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
050323,000462:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050324,000463:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050325,000464:                                                                                                  #       IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
050326,000465:                                                                                                  #  APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
050327,000466: 
050328,000467: 
050329,000468:                                                                                                  #  THE RESTRICTIONS ARE -
050330,000469:                                                                                                  #       1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050331,000470:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
050332,000471:                                                                                                  #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
050333,000472:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050334,000473:                                                                                                  #       3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
050335,000474:                                                                                                  #  RDESIRED INCREASE.  THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR.  IN
050336,000475:                                                                                                  #  PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
050337,000476: 
050338,000477: 
050339,000478:                                                                                                  #       THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
050340,000479: 
050341,000480: 
050342,000481: 
050343,000482:                                                                                                  #  REFERENCES -
050344,000483:                                                                                                  #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050345,000484: 
050346,000485: 
050347,000486: 
050348,000487:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
050349,000488: 
050350,000489:                                                                                                  #          * SCALE FACTOR *
050351,000490:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050352,000491:                                                                                                  #  --------*--------------*                         -----------------------
050353,000492:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050354,000493:                                                                                                  #          * +27 FOR MOON *
050355,000494:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050356,000495:                                                                                                  #          * +5 FOR MOON  *
050357,000496:                                                                                                  #  RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
050358,000497:                                                                                                  #          * +27 FOR MOON *COMPUTED.
050359,000498:                                                                                                  #  SGNRDOT * NONE         *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
050360,000499:                                                                                                  #          *              *POSITIVE OR NEGATIVE, RESPECTIVELY.  THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A

Page 1165

050362,000501:                                                                                                  #          *              *SINGLE-VALUED PROBLEM.
050363,000502:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050364,000503:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
050365,000504:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050366,000505:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
050367,000506: 
050368,000507: 
050369,000508: 
050370,000509:                                                                                                  #  SUBROUTINES CALLED -
050371,000510:                                                                                                  #        PARAM, GEOM, GETX, DELTIME, NEWSTATE
050372,000511: 
050373,000512: 
050374,000513: 
050375,000514:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
050376,000515: 
050377,000516:                                                                                                  #     IF ONLY TIME IS DESIRED AS OUTPUT -
050378,000517:                                                                                                  #  L        SET    CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050379,000518:                                                                                                  #  L+1             RVSW
050380,000519:                                                                                                  #  L+2             TIMERAD         RETURN WITH PL AT 0 AND T IN MPAC
050381,000520:                                                                                                  #  L+3      ...                    CONTINUE
050382,000521: 
050383,000522:                                                                                                  #     IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050384,000523:                                                                                                  #  L        CLEAR  CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050385,000524:                                                                                                  #  L+1             RVSW
050386,000525:                                                                                                  #  L+2             TIMERAD         RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050387,000526:                                                                                                  #                                  THE INITIAL VELOCITY VECTOR IN MPAC.
050388,000527:                                                                                                  #  L+3      STOVL  NEWVVEC
050389,000528:                                                                                                  #  L+4      STADR
050390,000529:                                                                                                  #  L+5      STORE  NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050391,000530:                                                                                                  #  L+6      ...                            CONTINUE
050392,000531: 
050393,000532: 
050394,000533: 
050395,000534:                                                                                                  #  ABORT EXIT MODES -
050396,000535:                                                                                                  #  L        CALL   BON
050397,000536:                                                                                                  #  L+1             TIMERAD
050398,000537:                                                                                                  #  L+2             COGAFLAG
050399,000538:                                                                                                  #  L+3             COGABORT        RESTRICTION 1 HAS BEEN VIOLATED.
050400,000539:                                                                                                  #  L+4      BON    BON
050401,000540:                                                                                                  #  L+5             INFINFLG
050402,000541:                                                                                                  #  L+6             IMPOSSBL        NO SOLUTION EXISTS.
050403,000542:                                                                                                  #  L+7             SOLNSW
050404,000543:                                                                                                  #  L+8             IMPOSSBL        SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE.  RESTRICTION 3 HAS BEEN VIOLATED.
050405,000544:                                                                                                  #  L+9      ...                    IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE.
050406,000545: 
050407,000546: 
050408,000547: 
050409,000548:                                                                                                  #  OUTPUT -
050410,000549:                                                                                                  #          * SCALE FACTOR *

Page 1166

050412,000551:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050413,000552:                                                                                                  #  --------*--------------*                         -----------------------
050414,000553:                                                                                                  #  T (30D) * +28          *DP TRANSFER TIME IN CENTISECONDS
050415,000554:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
050416,000555:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050417,000556:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050418,000557:                                                                                                  #          *              *CLEAR IF NOT.
050419,000558:                                                                                                  #  APSESW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
050420,000559:                                                                                                  #          *              *LESS THAN RADIUS OF PERICENTER.  THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
050421,000560:                                                                                                  #          *              *WILL THEN BE RETURNED.  THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
050422,000561:                                                                                                  #          *              *APOCENTER.
050423,000562:                                                                                                  #  SOLNSW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
050424,000563:                                                                                                  #                         *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3.  IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
050425,000564:                                                                                                  #                         *MINUS-18, THE SWITCH IS CLEAR.
050426,000565: 
050427,000566: 
050428,000567: 
050429,000568:                                                                                                  #  IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
050430,000569: 
050431,000570:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050432,000571:                                                                                                  #   MPAC +5* +5 FOR MOON  *
050433,000572:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050434,000573:                                                                                                  #          * +27 FOR MOON *
050435,000574: 
050436,000575:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050437,000576: 
050438,000577: 
050439,000578: 
050440,000579:                                                                                                  #  DEBRIS -
050441,000580: 
050442,000581:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050443,000582: 
050444,000583:                                                                                                  #          * SCALE FACTOR *
050445,000584:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050446,000585:                                                                                                  #  --------*--------------*                         -----------------------
050447,000586:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050448,000587:                                                                                                  #          * +27 FOR MOON *
050449,000588:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050450,000589:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
050451,000590:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050452,000591:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
050453,000592:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
050454,000593:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
050455,000594:                                                                                                  #  CSTH    * +1           *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
050456,000595:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE ANOMALY DIFFERENCE.
050457,000596: 
050458,000597: 
050459,000598:                                                                                                  #       PARAMETERS OF NO USE -
050460,000599:                                                                                                  #  SP PARAMETERS -  RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050461,000600:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050462,000601: 
050463,000602: 

Page 1167

050465,000604:                                                                                                  #  PROGRAM DESCRIPTION - APSIDES SUBROUTINE                                        DATE - 1 SEPTEMBER 1967
050466,000605:                                                                                                  #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
050467,000606:                                                                                                  #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
050468,000607: 
050469,000608: 
050470,000609: 
050471,000610:                                                                                                  #  FUNCTIONAL DESCRIPTION -
050472,000611: 
050473,000612:                                                                                                  #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
050474,000613:                                                                                                  #  ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
050475,000614:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
050476,000615:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050477,000616:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050478,000617: 
050479,000618: 
050480,000619:                                                                                                  #  THE RESTRICTIONS ARE -
050481,000620:                                                                                                  #       1.  IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
050482,000621:                                                                                                  #  TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
050483,000622:                                                                                                  #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
050484,000623:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050485,000624: 
050486,000625:                                                                                                  #       THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
050487,000626: 
050488,000627: 
050489,000628: 
050490,000629:                                                                                                  #  REFERENCES -
050491,000630:                                                                                                  #       MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
050492,000631: 
050493,000632: 
050494,000633: 
050495,000634:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
050496,000635: 
050497,000636:                                                                                                  #          * SCALE FACTOR *
050498,000637:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050499,000638:                                                                                                  #  --------*--------------*                         -----------------------
050500,000639:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050501,000640:                                                                                                  #          * +27 FOR MOON *
050502,000641:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050503,000642:                                                                                                  #          * +5 FOR MOON  *
050504,000643:                                                                                                  #  X1 (38D)*NONE          *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050505,000644:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
050506,000645: 
050507,000646: 
050508,000647: 
050509,000648:                                                                                                  #  SUBROUTINES CALLED -
050510,000649:                                                                                                  #       PARAM, GEOM
050511,000650: 
050512,000651: 
050513,000652: 
050514,000653:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -

Page 1168

050516,000655:                                                                                                  #     IF ONLY TIME IS DESIRED AS OUTPUT -
050517,000656:                                                                                                  #  L        CALL                   MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR.
050518,000657:                                                                                                  #  L+1             APSIDES         RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
050519,000658:                                                                                                  #  L+2      STODL  APOAPSE
050520,000659:                                                                                                  #  L+3             0D
050521,000660:                                                                                                  #  L+4      STORE  PERIAPSE                APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
050522,000661:                                                                                                  #  L+5      ...                    CONTINUE
050523,000662: 
050524,000663: 
050525,000664: 
050526,000665:                                                                                                  #  OUTPUT -
050527,000666:                                                                                                  #          * SCALE FACTOR *
050528,000667:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050529,000668:                                                                                                  #  --------*--------------*                         -----------------------
050530,000669:                                                                                                  #  MPAC    * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
050531,000670:                                                                                                  #          * +27 FOR MOON *
050532,000671:                                                                                                  #  0D-1D   * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
050533,000672:                                                                                                  #          * +27 FOR MOON *
050534,000673:                                                                                                  #  ECC     * +3           *DP ECCENTRICITY OF CONIC TRAJECTORY.
050535,000674: 
050536,000675:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050537,000676: 
050538,000677: 
050539,000678: 
050540,000679:                                                                                                  #  DEBRIS -
050541,000680: 
050542,000681:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050543,000682: 
050544,000683:                                                                                                  #          * SCALE FACTOR *
050545,000684:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050546,000685:                                                                                                  #  --------*--------------*                         -----------------------
050547,000686:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050548,000687:                                                                                                  #          * +27 FOR MOON *
050549,000688:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050550,000689:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
050551,000690:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050552,000691:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
050553,000692:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
050554,000693:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
050555,000694:                                                                                                  #  MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
050556,000695:                                                                                                  #          * +5 FOR MOON  *
050557,000696: 
050558,000697: 
050559,000698:                                                                                                  #       PARAMETERS OF NO USE -
050560,000699:                                                                                                  #  SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
050561,000700:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
050562,000701: 
050563,000702: 
050564,000703: 
050565,000704: 12,2000                                           SETLOC   CONICS                                

Page 1169

050567,000706: 12,2000                                           BANK                                           
050568,000707: 
050569,000708: 12,2000                                           COUNT*   $$/CONIC                              
050570,000709: 12,2000  E5,1721                                  EBANK=   UR1                                   
050571,000710: 12,2000           71201        KEPLERN            SETPD    DLOAD                                 
050572,000711: 12,2001           00001                                    0                                     
050573,000712: 12,2002           22275                                    KEPZERO                               
050574,000713: 12,2003           02177                           STORE    XMODULO                               
050575,000714: 12,2004           32201                           STOVL*   TMODULO                               
050576,000715: 12,2005           10005                                    MUTABLE,1                             
050577,000716: 12,2006           24017                           STOVL    14D                                   
050578,000717: 12,2007           01503                                    RRECT                                 
050579,000718: 12,2010           66256                           UNIT     SSP                                   
050580,000719: 12,2011           00027                                    ITERCTR                               
050581,000720: 12,2012           00024                                    20D                                   
050582,000721: 12,2013           16647                           STODL    URRECT                                
050583,000722: 12,2014           00045                                    36D                                   
050584,000723: 12,2015           24041                           STOVL    R1                                    
050585,000724: 12,2016           01503                                    RRECT                                 
050586,000725: 12,2017           76441                           DOT      SL1R                                  
050587,000726: 12,2020           01511                                    VRECT                                 
050588,000727: 12,2021           76405                           DMP      SL1R                                  
050589,000728: 12,2022           00023                                    1/ROOTMU                              #  1/ROOTMU (-17 OR -14)
050590,000729: 12,2023           24043                           STOVL    KEPC1                                 #  C1=R.V/ROOTMU (+17 OR +16)
050591,000730: 
050592,000731: 12,2024           01511                                    VRECT                                 
050593,000732: 12,2025           57236                           VSQ      DMPR                                  
050594,000733: 12,2026           00017                                    1/MU                                  #  1/MU (-34 OR -28)
050595,000734: 12,2027           52405                           DMP      SL3                                   
050596,000735: 12,2030           00041                                    R1                                    
050597,000736: 12,2031           61425                           DSU      ROUND                                 
050598,000737: 12,2032           10756                                    D1/64                                 
050599,000738: 12,2033           00045                           STORE    KEPC2                                 #  C2=RV.V/MU -1 (+6)
050600,000739: 
050601,000740: 12,2034           74421                           BDSU     SR1R                                  
050602,000741: 12,2035           10756                                    D1/64                                 
050603,000742: 12,2036           77671                           DDV                                            
050604,000743: 12,2037           00041                                    R1                                    
050605,000744: 12,2040           00011                           STORE    ALPHA                                 #  ALPHA=(1-C2)/R1 (-22 OR -20)
050606,000745: 
050607,000746: 
050608,000747: 12,2041           71244                           BPL      DLOAD                                 #  MAXIMUM X DEPENDS ON TYPE OF CONIC
050609,000748: 12,2042           24051                                    1REV                                  
050610,000749: 12,2043           10774                                    -50SC                                 #  -50SC (+12)
050611,000750: 12,2044           40071                           DDV      BOV                                   
050612,000751: 12,2045           00011                                    ALPHA                                 
050613,000752: 12,2046           24055                                    STOREMAX                              
050614,000753: 12,2047           52166                           SQRT     GOTO                                  
050615,000754: 12,2050           24055                                    STOREMAX                              
050616,000755: 

Page 1170

050618,000757: 12,2051           55366        1REV               SQRT     BDDV                                  
050619,000758: 12,2052           10776                                    2PISC                                 #  2PISC (+6)
050620,000759: 12,2053           77600                           BOV                                            
050621,000760: 12,2054           24055                                    STOREMAX                              
050622,000761: 12,2055           00013        STOREMAX           STORE    XMAX                                  
050623,000762: 12,2056           65205                           DMP      PDDL                                  
050624,000763: 12,2057           00023                                    1/ROOTMU                              
050625,000764: 12,2060           00011                                    ALPHA                                 
050626,000765: 12,2061           65301                           NORM     PDDL                                  
050627,000766: 12,2062           00047                                    X1                                    
050628,000767: 12,2063           56257                           SL*      DDV                                   
050629,000768: 12,2064           20173                                    0          -6,1                       
050630,000769: 12,2065           50000                           BOV      BMN                                   
050631,000770: 12,2066           24112                                    MODDONE                               
050632,000771: 12,2067           24112                                    MODDONE                               #  MPAC=PERIOD
050633,000772: 12,2070           51525        PERIODCH           PDDL     ABS                                   #  0D=PERIOD
050634,000773: 12,2071           02074                                    TAU.                                  
050635,000774: 12,2072           50025                           DSU      BMN                                   
050636,000775: 12,2073           00001                                    0D                                    
050637,000776: 12,2074           24112                                    MODDONE                               
050638,000777: 12,2075           77765                           SIGN                                           
050639,000778: 12,2076           02074                                    TAU.                                  
050640,000779: 12,2077           16074                           STODL    TAU.                                  
050641,000780: 12,2100           00013                                    XMAX                                  
050642,000781: 12,2101           77615                           DAD                                            
050643,000782: 12,2102           02177                                    XMODULO                               
050644,000783: 12,2103           16177                           STODL    XMODULO                               
050645,000784: 12,2104           00001                                    0D                                    
050646,000785: 12,2105           77615                           DAD                                            
050647,000786: 12,2106           02201                                    TMODULO                               
050648,000787: 12,2107           16201                           STODL    TMODULO                               
050649,000788: 12,2110           77650                           GOTO                                           
050650,000789: 12,2111           24070                                    PERIODCH                              
050651,000790: 12,2112           77601        MODDONE            SETPD                                          
050652,000791: 12,2113           00001                                    0                                     
050653,000792: 12,2114           75345                           DLOAD    SIGN                                  
050654,000793: 12,2115           02201                                    TMODULO                               
050655,000794: 12,2116           02074                                    TAU.                                  
050656,000795: 12,2117           02201                           STORE    TMODULO                               
050657,000796: 12,2120           75345                           DLOAD    SIGN                                  
050658,000797: 12,2121           02177                                    XMODULO                               
050659,000798: 12,2122           02074                                    TAU.                                  
050660,000799: 12,2123           02177                           STORE    XMODULO                               
050661,000800: 12,2124           77621                           BDSU                                           
050662,000801: 12,2125           02130                                    XKEPNEW                               
050663,000802: 12,2126           00025                           STORE    X                                     
050664,000803: 12,2127           53165                           SIGN     BZE                                   
050665,000804: 12,2130           02074                                    TAU.                                  
050666,000805: 12,2131           24311                                    BADX                                  
050667,000806: 12,2132           51440                           BMN      ABS                                   

Page 1171

050669,000808: 12,2133           24311                                    BADX                                  
050670,000809: 12,2134           51025                           DSU      BPL                                   
050671,000810: 12,2135           00013                                    XMAX                                  
050672,000811: 12,2136           24311                                    BADX                                  
050673,000812: 12,2137           51145        STORBNDS           DLOAD    BPL                                   
050674,000813: 12,2140           02074                                    TAU.                                  
050675,000814: 12,2141           24151                                    STOREMIN                              
050676,000815: 12,2142           57545                           DLOAD    DCOMP                                 
050677,000816: 12,2143           00013                                    XMAX                                  
050678,000817: 12,2144           14015                           STODL    XMIN                                  
050679,000818: 12,2145           22275                                    KEPZERO                               
050680,000819: 12,2146           00013                           STORE    XMAX                                  
050681,000820: 12,2147           77650                           GOTO                                           
050682,000821: 12,2150           24154                                    DXCOMP                                
050683,000822: 12,2151           77745        STOREMIN           DLOAD                                          
050684,000823: 12,2152           22275                                    KEPZERO                               
050685,000824: 12,2153           00015                           STORE    XMIN                                  
050686,000825: 12,2154           57345        DXCOMP             DLOAD    DMPR                                  
050687,000826: 12,2155           02074                                    TAU.                                  
050688,000827: 12,2156           10767                                    BEE22                                 
050689,000828: 12,2157           77646                           ABS                                            
050690,000829: 12,2160           16203                           STODL    EPSILONT                              
050691,000830: 12,2161           01551                                    TC                                    
050692,000831: 12,2162           45254                           BZE      DSU                                   
050693,000832: 12,2163           24165                                    NEWTC                                 
050694,000833: 12,2164           02201                                    TMODULO                               
050695,000834: 12,2165           15551        NEWTC              STODL    TC                                    
050696,000835: 12,2166           01553                                    XPREV                                 
050697,000836: 12,2167           45254                           BZE      DSU                                   
050698,000837: 12,2170           24172                                    XDIFF                                 
050699,000838: 12,2171           02177                                    XMODULO                               
050700,000839: 12,2172           77621        XDIFF              BDSU                                           
050701,000840: 12,2173           00025                                    X                                     
050702,000841: 12,2174           02643                           STORE    DELX                                  
050703,000842: 
050704,000843: 
050705,000844: 12,2175           63545        KEPLOOP            DLOAD    DSQ                                   
050706,000845: 12,2176           00025                                    X                                     #  X=XKEP
050707,000846: 12,2177           41501                           NORM     PUSH                                  #  0D=XSQ (+34 OR +32 -N1)       PL AT 2
050708,000847: 12,2200           00047                                    X1                                    
050709,000848: 12,2201           53605                           DMP      SRR*                                  
050710,000849: 12,2202           00011                                    ALPHA                                 
050711,000850: 12,2203           21573                                    0          -6,1                       
050712,000851: 12,2204           34031                           STCALL   XI                                    #  XI=ALPHA XSQ (+6)
050713,000852: 12,2205           24434                                    DELTIME                               
050714,000853: 12,2206           44200                           BOV      BDSU                                  
050715,000854: 12,2207           24320                                    TIMEOVFL                              #  UNLIKELY
050716,000855: 12,2210           02074                                    TAU.                                  
050717,000856: 12,2211           02645                           STORE    DELT                                  #  DELT=DELINDEP
050718,000857: 12,2212           44246                           ABS      BDSU                                  

Page 1172

050720,000859: 12,2213           02203                                    EPSILONT                              
050721,000860: 12,2214           71244                           BPL      DLOAD                                 
050722,000861: 12,2215           24342                                    KEPCONVG                              
050723,000862: 12,2216           00037                                    T                                     
050724,000863: 12,2217           60225                           DSU      NORM                                  
050725,000864: 12,2220           01551                                    TC                                    
050726,000865: 12,2221           00047                                    X1                                    
050727,000866: 12,2222           60325                           PDDL     NORM                                  
050728,000867: 12,2223           02643                                    DELX                                  
050729,000868: 12,2224           00050                                    X2                                    
050730,000869: 12,2225           41260                           XSU,1    DMP                                   
050731,000870: 12,2226           00047                                    X2                                    
050732,000871: 12,2227           02645                                    DELT                                  
050733,000872: 12,2230           56257                           SLR*     DDV                                   
050734,000873: 12,2231           21202                                    1,1                                   
050735,000874: 12,2232           41542                           SR1      PUSH                                  #  0D=TRIAL DELX              PL AT 2
050736,000875: 12,2233           71244                           BPL      DLOAD                                 
050737,000876: 12,2234           24255                                    POSDELX                               
050738,000877: 12,2235           00025                                    X                                     
050739,000878: 12,2236           00013                           STORE    XMAX                                  #  MOVE MAX BOUND IN
050740,000879: 12,2237           45221                           BDSU     DSU                                   #                             PL AT 0
050741,000880: 12,2240           00015                                    XMIN                                  
050742,000881: 12,2241           51000                           BOV      BPL                                   
050743,000882: 12,2242           24247                                    NDXCHNGE                              
050744,000883: 12,2243           24247                                    NDXCHNGE                              
050745,000884: 12,2244           52145                           DLOAD    GOTO                                  
050746,000885: 12,2245           00001                                    0D                                    
050747,000886: 12,2246           24267                                    NEWDELX                               
050748,000887: 
050749,000888: 
050750,000889: 12,2247           45345        NDXCHNGE           DLOAD    DSU                                   
050751,000890: 12,2250           00015                                    XMIN                                  
050752,000891: 12,2251           00025                                    X                                     
050753,000892: 12,2252           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
050754,000893: 12,2253           10772                                    DP9/10                                
050755,000894: 12,2254           24267                                    NEWDELX                               
050756,000895: 
050757,000896: 
050758,000897: 12,2255           77745        POSDELX            DLOAD                                          
050759,000898: 12,2256           00025                                    X                                     
050760,000899: 12,2257           00015                           STORE    XMIN                                  #  MOVE MIN BOUND IN
050761,000900: 12,2260           45221                           BDSU     DSU                                   #                             PL AT 0
050762,000901: 12,2261           00013                                    XMAX                                  
050763,000902: 12,2262           50000                           BOV      BMN                                   
050764,000903: 12,2263           24303                                    PDXCHNGE                              
050765,000904: 12,2264           24303                                    PDXCHNGE                              
050766,000905: 12,2265           77745                           DLOAD                                          
050767,000906: 12,2266           00001                                    0D                                    
050768,000907: 12,2267           02643        NEWDELX            STORE    DELX                                  
050769,000908: 12,2270           43254                           BZE      DAD                                   

Page 1173

050771,000910: 12,2271           24342                                    KEPCONVG                              
050772,000911: 12,2272           00025                                    X                                     
050773,000912: 12,2273           14025                           STODL    X                                     
050774,000913: 12,2274           00037                                    T                                     
050775,000914: 12,2275           01551                           STORE    TC                                    
050776,000915: 12,2276           46034        BRNCHCTR           RTB      BHIZ                                  
050777,000916: 12,2277           24657                                    CHECKCTR                              
050778,000917: 12,2300           24342                                    KEPCONVG                              
050779,000918: 12,2301           77650                           GOTO                                           
050780,000919: 12,2302           24175                                    KEPLOOP                               #  ITERATE
050781,000920: 
050782,000921: 
050783,000922: 12,2303           45345        PDXCHNGE           DLOAD    DSU                                   
050784,000923: 12,2304           00013                                    XMAX                                  
050785,000924: 12,2305           00025                                    X                                     
050786,000925: 12,2306           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
050787,000926: 12,2307           10772                                    DP9/10                                
050788,000927: 12,2310           24267                                    NEWDELX                               
050789,000928: 
050790,000929: 
050791,000930: 12,2311           70545        BADX               DLOAD    SR1                                   
050792,000931: 12,2312           00013                                    XMAX                                  
050793,000932: 12,2313           77765                           SIGN                                           
050794,000933: 12,2314           02074                                    TAU.                                  
050795,000934: 12,2315           00025                           STORE    X                                     
050796,000935: 12,2316           77650                           GOTO                                           
050797,000936: 12,2317           24137                                    STORBNDS                              
050798,000937: 12,2320           50145        TIMEOVFL           DLOAD    BMN                                   #  X WAS TOO BIG
050799,000938: 12,2321           00025                                    X                                     
050800,000939: 12,2322           24337                                    NEGTOVFL                              
050801,000940: 12,2323           00013                           STORE    XMAX                                  
050802,000941: 12,2324           70545        CMNTOVFL           DLOAD    SR1                                   
050803,000942: 12,2325           02643                                    DELX                                  
050804,000943: 12,2326           02643                           STORE    DELX                                  
050805,000944: 12,2327           44254                           BZE      BDSU                                  
050806,000945: 12,2330           02112                                    KEPRTN                                
050807,000946: 12,2331           00025                                    X                                     
050808,000947: 12,2332           14025                           STODL    X                                     
050809,000948: 12,2333           01551                                    TC                                    
050810,000949: 12,2334           00037                           STORE    T                                     
050811,000950: 12,2335           77650                           GOTO                                           
050812,000951: 12,2336           24276                                    BRNCHCTR                              
050813,000952: 12,2337           00015        NEGTOVFL           STORE    XMIN                                  
050814,000953: 12,2340           77650                           GOTO                                           
050815,000954: 12,2341           24324                                    CMNTOVFL                              
050816,000955: 12,2342           44545        KEPCONVG           DLOAD    SR4R                                  
050817,000956: 12,2343           00041                                    R1                                    
050818,000957: 12,2344           74225                           DSU      VXSC                                  
050819,000958: 12,2345           00035                                    XSQC(XI)                              
050820,000959: 12,2346           02647                                    URRECT                                

Page 1174

050822,000961: 12,2347           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))URRECT (+33 OR +31)
050823,000962: 12,2350           00025                                    X                                     
050824,000963: 12,2351           60316                           DSQ      NORM                                  
050825,000964: 12,2352           00047                                    X1                                    
050826,000965: 12,2353           57275                           DMPR     DMPR                                  
050827,000966: 12,2354           00023                                    1/ROOTMU                              
050828,000967: 12,2355           00025                                    X                                     
050829,000968: 12,2356           53605                           DMP      SRR*                                  
050830,000969: 12,2357           00033                                    S(XI)                                 
050831,000970: 12,2360           21572                                    0          -7,1                       
050832,000971: 12,2361           77621                           BDSU                                           
050833,000972: 12,2362           00037                                    T                                     
050834,000973: 12,2363           74352                           SL1      VXSC                                  
050835,000974: 12,2364           01511                                    VRECT                                 
050836,000975: 12,2365           53372                           VSL1     VAD                                   #                               PL AT 0
050837,000976: 12,2366           77712                           VSL4                                           
050838,000977: 12,2367           01535                           STORE    RCV                                   #  RCV (+29 OR +27)
050839,000978: 
050840,000979: 
050841,000980: 12,2370           60246                           ABVAL    NORM                                  
050842,000981: 12,2371           00050                                    X2                                    
050843,000982: 12,2372           14043                           STODL    RCNORM                                
050844,000983: 12,2373           00031                                    XI                                    
050845,000984: 12,2374           45275                           DMPR     DSU                                   
050846,000985: 12,2375           00033                                    S(XI)                                 
050847,000986: 12,2376           10754                                    D1/128                                
050848,000987: 12,2377           76405                           DMP      SL1R                                  
050849,000988: 12,2400           00021                                    ROOTMU                                
050850,000989: 12,2401           53605                           DMP      SLR*                                  
050851,000990: 12,2402           00025                                    X                                     
050852,000991: 12,2403           56601                                    0          -3,2                       
050853,000992: 12,2404           74271                           DDV      VXSC                                  
050854,000993: 12,2405           00043                                    RCNORM                                
050855,000994: 12,2406           02647                                    URRECT                                
050856,000995: 12,2407           65372                           VSL1     PDDL                                  #  0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
050857,000996: 12,2410           00035                                    XSQC(XI)                              #  OR +13)                        PL AT 6
050858,000997: 12,2411           56257                           SLR*     DDV                                   
050859,000998: 12,2412           56602                                    0          -4,2                       
050860,000999: 12,2413           00043                                    RCNORM                                
050861,001000: 12,2414           74221                           BDSU     VXSC                                  
050862,001001: 12,2415           10770                                    D1/256                                
050863,001002: 12,2416           01511                                    VRECT                                 
050864,001003: 12,2417           42455                           VAD      VSL8                                  
050865,001004: 12,2420           77626                           STADR                                          #                               PL AT 0
050866,001005: 12,2421           62234                           STODL    VCV                                   #  VCV (+7 OR +5)
050867,001006: 12,2422           00037                                    T                                     
050868,001007: 12,2423           77615                           DAD                                            
050869,001008: 12,2424           02201                                    TMODULO                               
050870,001009: 12,2425           15551                           STODL    TC                                    
050871,001010: 12,2426           00025                                    X                                     

Page 1175

050873,001012: 12,2427           77615                           DAD                                            
050874,001013: 12,2430           02177                                    XMODULO                               
050875,001014: 12,2431           01553                           STORE    XPREV                                 
050876,001015: 12,2432           77650                           GOTO                                           
050877,001016: 12,2433           02112                                    KEPRTN                                
050878,001017: 

Page 1176

050880,001019: 12,2434           77776        DELTIME            EXIT                                           #  MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
050881,001020: 12,2435           07221                           TC       POLY                                  
050882,001021: 12,2436           00010                           DEC      8          B-14                       
050883,001022: 12,2437           02525 12526                     2DEC     .083333334                            
050884,001023: 
050885,001024: 12,2441           67356 75666                     2DEC     -.266666684                            
050886,001025: 
050887,001026: 12,2443           15001 23771                     2DEC     .406349155                            
050888,001027: 
050889,001028: 12,2445           64342 43674                     2DEC     -.361198675                            
050890,001029: 
050891,001030: 12,2447           06563 04645                     2DEC     .210153242                            
050892,001031: 
050893,001032: 12,2451           75173 52672                     2DEC     -.086221951                            
050894,001033: 
050895,001034: 12,2453           00656 14331                     2DEC     .026268812                            
050896,001035: 
050897,001036: 12,2455           77633 40512                     2DEC     -.006163316                            
050898,001037: 
050899,001038: 12,2457           00023 11210                     2DEC     .001177342                            
050900,001039: 
050901,001040: 12,2461           77774 67506                     2DEC     -.000199055                            
050902,001041: 
050903,001042: 12,2463           06036                           TC       INTPRET                               
050904,001043: 12,2464           14033                           STODL    S(XI)                                 
050905,001044: 12,2465           00031                                    XI                                    
050906,001045: 12,2466           77776                           EXIT                                           
050907,001046: 12,2467           07221                           TC       POLY                                  
050908,001047: 12,2470           00010                           DEC      8          B-14                       
050909,001048: 12,2471           01000 00000                     2DEC     .031250001                            
050910,001049: 
050911,001050: 12,2473           72525 52506                     2DEC     -.166666719                            
050912,001051: 
050913,001052: 12,2475           13301 15337                     2DEC     .355555413                            
050914,001053: 
050915,001054: 12,2477           62776 54733                     2DEC     -.406347410                            
050916,001055: 
050917,001056: 12,2501           11176 13267                     2DEC     .288962094                            
050918,001057: 
050919,001058: 12,2503           73410 51674                     2DEC     -.140117894                            
050920,001059: 
050921,001060: 12,2505           01446 33641                     2DEC     .049247387                            
050922,001061: 
050923,001062: 12,2507           77451 65233                     2DEC     -.013081923                            
050924,001063: 
050925,001064: 12,2511           00055 37266                     2DEC     .002806389                            
050926,001065: 
050927,001066: 12,2513           77767 52336                     2DEC     -.000529414                            
050928,001067: 
050929,001068: 12,2515           06036                           TC       INTPRET                               

Page 1177

050931,001070: 12,2516           53605                           DMP      SRR*                                  #                               PL AT 0
050932,001071: 12,2517           00001                                    0D                                    
050933,001072: 12,2520           21574                                    0          -5,1                       
050934,001073: 12,2521           00035                           STORE    XSQC(XI)                              #  XSQC(XI) (+33 OR +31)
050935,001074: 12,2522           72405                           DMP      SL1                                   
050936,001075: 12,2523           00043                                    KEPC1                                 
050937,001076: 12,2524           65234                           RTB      PDDL                                  #  XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
050938,001077: 12,2525           21537                                    TPMODE                                #                               PL AT 0,3
050939,001078: 12,2526           53605                           DMP      SRR*                                  
050940,001079: 12,2527           00033                                    S(XI)                                 
050941,001080: 12,2530           21574                                    0          -5,1                       
050942,001081: 12,2531           72405                           DMP      SL1                                   
050943,001082: 12,2532           00045                                    KEPC2                                 
050944,001083: 12,2533           65234                           RTB      PDDL                                  #  3D=C2 XSQ S(XI) (+35 OR +33)  PL AT 6
050945,001084: 12,2534           21537                                    TPMODE                                
050946,001085: 12,2535           00041                                    R1                                    
050947,001086: 12,2536           76261                           SR       TAD                                   #                               PL AT 3
050948,001087: 12,2537           20607                                    6                                     
050949,001088: 12,2540           41301                           NORM     DMP                                   #  TO PRESERVE SIGNIF.
050950,001089: 12,2541           00047                                    X1                                    
050951,001090: 12,2542           00025                                    X                                     
050952,001091: 12,2543           76257                           SR*      TAD                                   #  X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
050953,001092: 12,2544           20576                                    0          -3,1                       
050954,001093: 12,2545           57232                           SL4R     DMPR                                  
050955,001094: 12,2546           00023                                    1/ROOTMU                              
050956,001095: 12,2547           00037                           STORE    T                                     
050957,001096: 12,2550           77616                           RVQ                                            
050958,001097: 

Page 1178

050960,001099: 12,2551           71214        ITERATOR           BONCLR   DLOAD                                 
050961,001100: 12,2552           00614                                    SLOPESW                               
050962,001101: 12,2553           24621                                    FIRSTIME                              
050963,001102: 12,2554           00037                                    DEP                                   
050964,001103: 12,2555           60225                           DSU      NORM                                  
050965,001104: 12,2556           02762                                    DEPREV                                
050966,001105: 12,2557           00047                                    X1                                    
050967,001106: 12,2560           60325                           PDDL     NORM                                  
050968,001107: 12,2561           00015                                    DELINDEP                              
050969,001108: 12,2562           00050                                    X2                                    
050970,001109: 12,2563           41260                           XSU,1    DMP                                   
050971,001110: 12,2564           00047                                    X2                                    
050972,001111: 12,2565           02760                                    DELDEP                                
050973,001112: 12,2566           56257                           SLR*     DDV                                   #                               PL UP 2
050974,001113: 12,2567           21202                                    1,1                                   
050975,001114: 12,2570           43142                           SR1      BOFF                                  
050976,001115: 12,2571           04351                                    ORDERSW                               
050977,001116: 12,2572           24575                                    SGNCHECK                              
050978,001117: 12,2573           75246                           ABS      SIGN                                  #  IN CASE 2ND DERIV. CHANGED SIGN, MUST
050979,001118: 12,2574           02760                                    DELDEP                                #  DISREGARD IT TO FIND MIN.
050980,001119: 
050981,001120: 12,2575           51006        SGNCHECK           PUSH     BPL                                   #  TRIAL DELINDEP               PL DOWN 2
050982,001121: 12,2576           24633                                    POSDEL                                
050983,001122: 12,2577           43145                           DLOAD    BON                                   
050984,001123: 12,2600           02766                                    INDEP                                 
050985,001124: 12,2601           04311                                    ORDERSW                               
050986,001125: 12,2602           24604                                    MINCHECK                              
050987,001126: 12,2603           00017                           STORE    MAX                                   #  IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
050988,001127: 
050989,001128: 12,2604           45221        MINCHECK           BDSU     DSU                                   
050990,001129: 12,2605           00011                                    MIN                                   
050991,001130: 12,2606           51000                           BOV      BPL                                   
050992,001131: 12,2607           24613                                    MODNGDEL                              
050993,001132: 12,2610           24613                                    MODNGDEL                              
050994,001133: 12,2611           77650                           GOTO                                           
050995,001134: 12,2612           24645                                    DELOK                                 
050996,001135: 
050997,001136: 
050998,001137: 12,2613           45345        MODNGDEL           DLOAD    DSU                                   #  TRIAL DELINDEP WOULD EXCEED MIN BOUND
050999,001138: 12,2614           00011                                    MIN                                   
051000,001139: 12,2615           02766                                    INDEP                                 
051001,001140: 12,2616           52005                           DMP      GOTO                                  
051002,001141: 12,2617           10772                                    DP9/10                                
051003,001142: 12,2620           24647                                    NEWDEL                                
051004,001143: 
051005,001144: 
051006,001145: 12,2621           41345        FIRSTIME           DLOAD    DMP                                   
051007,001146: 12,2622           00011                                    MIN                                   
051008,001147: 12,2623           00051                                    TWEEKIT                               #  DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
051009,001148: 12,2624           41325                           PDDL     DMP                                   #  S2(41D) SHOULDNT CONTAIN HI ORDER ONES

Page 1179

051011,001150: 12,2625           00017                                    MAX                                   
051012,001151: 12,2626           00051                                    TWEEKIT                               
051013,001152: 12,2627           77625                           DSU                                            
051014,001153: 12,2630           52165                           SIGN     GOTO                                  
051015,001154: 12,2631           02760                                    DELDEP                                
051016,001155: 12,2632           24575                                    SGNCHECK                              
051017,001156: 
051018,001157: 
051019,001158: 12,2633           43145        POSDEL             DLOAD    BON                                   
051020,001159: 12,2634           02766                                    INDEP                                 
051021,001160: 12,2635           04311                                    ORDERSW                               
051022,001161: 12,2636           24640                                    MAXCHECK                              
051023,001162: 12,2637           00011                           STORE    MIN                                   #  IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
051024,001163: 
051025,001164: 12,2640           45221        MAXCHECK           BDSU     DSU                                   
051026,001165: 12,2641           00017                                    MAX                                   
051027,001166: 12,2642           50000                           BOV      BMN                                   
051028,001167: 12,2643           24651                                    MODPSDEL                              
051029,001168: 12,2644           24651                                    MODPSDEL                              
051030,001169: 12,2645           77745        DELOK              DLOAD                                          
051031,001170: 12,2646           00001                                    0D                                    
051032,001171: 12,2647           00015        NEWDEL             STORE    DELINDEP                              
051033,001172: 12,2650           77616                           RVQ                                            
051034,001173: 
051035,001174: 
051036,001175: 12,2651           45345        MODPSDEL           DLOAD    DSU                                   
051037,001176: 12,2652           00017                                    MAX                                   
051038,001177: 12,2653           02766                                    INDEP                                 
051039,001178: 12,2654           52005                           DMP      GOTO                                  
051040,001179: 12,2655           10772                                    DP9/10                                
051041,001180: 12,2656           24647                                    NEWDEL                                
051042,001181: 
051043,001182: 
051044,001183: 12,2657           44753        CHECKCTR           CS       ONE                                   
051045,001184: 12,2660           50120                           INDEX    FIXLOC                                
051046,001185: 12,2661           60026                           AD       ITERCTR                               
051047,001186: 12,2662           50120                           INDEX    FIXLOC                                
051048,001187: 12,2663           54026                           TS       ITERCTR                               
051049,001188: 12,2664           54154                           TS       MPAC                                  
051050,001189: 12,2665           06060                           TC       DANZIG                                
051051,001190: 

Page 1180

051053,001192: 12,2666           44545        NEWSTATE           DLOAD    SR4R                                  
051054,001193: 12,2667           00041                                    R1                                    
051055,001194: 12,2670           74225                           DSU      VXSC                                  
051056,001195: 12,2671           00035                                    XSQC(XI)                              
051057,001196: 12,2672           02722                                    UR1                                   
051058,001197: 12,2673           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
051059,001198: 12,2674           00025                                    X                                     
051060,001199: 12,2675           60316                           DSQ      NORM                                  
051061,001200: 12,2676           00047                                    X1                                    
051062,001201: 12,2677           57275                           DMPR     DMPR                                  
051063,001202: 12,2700           00023                                    1/ROOTMU                              
051064,001203: 12,2701           00025                                    X                                     
051065,001204: 12,2702           53605                           DMP      SRR*                                  
051066,001205: 12,2703           00033                                    S(XI)                                 
051067,001206: 12,2704           21572                                    0          -7,1                       
051068,001207: 12,2705           77621                           BDSU                                           
051069,001208: 12,2706           00037                                    T                                     
051070,001209: 12,2707           74352                           SL1      VXSC                                  
051071,001210: 12,2710           02744                                    VVEC                                  
051072,001211: 12,2711           53372                           VSL1     VAD                                   #                               PL AT 0
051073,001212: 12,2712           41512                           VSL4     PUSH                                  
051074,001213: 12,2713           77646                           ABVAL                                          
051075,001214: 12,2714           77701        LAMENTER           NORM                                           
051076,001215: 12,2715           00047                                    X1                                    
051077,001216: 12,2716           16720                           STODL    R2                                    
051078,001217: 12,2717           00031                                    XI                                    
051079,001218: 12,2720           45205                           DMP      DSU                                   
051080,001219: 12,2721           00033                                    S(XI)                                 
051081,001220: 12,2722           10754                                    D1/128                                
051082,001221: 12,2723           76405                           DMP      SL1R                                  
051083,001222: 12,2724           00021                                    ROOTMU                                
051084,001223: 12,2725           53605                           DMP      SLR*                                  
051085,001224: 12,2726           00025                                    X                                     
051086,001225: 12,2727           21176                                    0          -3,1                       
051087,001226: 12,2730           74271                           DDV      VXSC                                  
051088,001227: 12,2731           02720                                    R2                                    
051089,001228: 12,2732           02722                                    UR1                                   
051090,001229: 12,2733           65372                           VSL1     PDDL                                  #  6D=V2VEC PART (+15 OR 13)       PL AT 12
051091,001230: 12,2734           00035                                    XSQC(XI)                              
051092,001231: 12,2735           56257                           SLR*     DDV                                   
051093,001232: 12,2736           21175                                    0          -4,1                       
051094,001233: 12,2737           02720                                    R2                                    
051095,001234: 12,2740           77621                           BDSU                                           
051096,001235: 12,2741           10770                                    D1/256                                
051097,001236: 12,2742           53361                           VXSC     VAD                                   #                               PL AT 6
051098,001237: 12,2743           02744                                    VVEC                                  
051099,001238: 12,2744           43412                           VSL8     RVQ                                   
051100,001239: 

Page 1181

051102,001241: 04,2000                                           SETLOC   CONICS1                               
051103,001242: 04,2000                                           BANK                                           
051104,001243: 
051105,001244: 04,2750                                           COUNT*   $$/CONIC                              
051106,001245:                                                                                                  #  DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
051107,001246: 04,2750           00000        BEE17              DEC      0          B-14                       #  KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
051108,001247: 04,2751           04000 00000  D1/8               2DEC     1.0        B-3                        
051109,001248: 
051110,001249: 04,2753           00200 00000  D1/128             2DEC     1.0        B-7                        
051111,001250: 
051112,001251: 04,2755           00400 00000  D1/64              2DEC     1.0        B-6                        
051113,001252: 
051114,001253: 04,2757           10000 00000  D1/4               2DEC     1.0        B-2                        
051115,001254: 
051116,001255: 04,2761           02000 00000  D1/16              2DEC     1.0        B-4                        
051117,001256: 
051118,001257: 04,2763           01000 00000  D1/32              2DEC     1.0        B-5                        
051119,001258: 
051120,001259: 04,2765           00020 00000  D1/1024            2DEC     1.0        B-10                       
051121,001260: 
051122,001261: 04,2767           00100 00000  D1/256             2DEC     1.0        B-8                        
051123,001262: 
051124,001263: 04,2771           34631 23146  DP9/10             2DEC     .9                                    
051125,001264: 
051126,001265: 04,2773  11,2274               KEPZERO            EQUALS   LO6ZEROS                              
051127,001266: 04,2773           77467 77777  -50SC              2DEC     -50.0      B-12                       
051128,001267: 
051129,001268: 04,2775           03110 17665  2PISC              2DEC     6.28318530 B-6                        
051130,001269: 
051131,001270: 04,2777  04,2762               BEE19              EQUALS   D1/32      -1                         #  2DEC 1.0 B-19 (00000 01000)
051132,001271: 04,2777  04,2766               BEE22              EQUALS   D1/256     -1                         #  2DEC 1.0 B-22 (00000 00100)
051133,001272: 04,2777           00000 00001  ONEBIT             2DEC     1.0        B-28                       
051134,001273: 
051135,001274: 04,3001           37767 37737  COGUPLIM           2DEC     .999511597                            
051136,001275: 
051137,001276: 04,3003           40010 40040  COGLOLIM           2DEC     -.999511597                            
051138,001277: 
051139,001278: 

Page 1182

051141,001280: 12,2000                                           SETLOC   CONICS                                
051142,001281: 12,2000                                           BANK                                           
051143,001282: 
051144,001283: 12,2745                                           COUNT*   $$/CONIC                              
051145,001284: 12,2745           40220        TIMETHET           STQ      SETPD                                 #                                PL AT 0
051146,001285: 12,2746           02710                                    RTNTT                                 
051147,001286: 12,2747           00001                                    0                                     
051148,001287: 12,2750           63375                           VLOAD    PDVL                                  #  SETUP FOR PARAM CALL          PL AT 6
051149,001288: 12,2751           02655                                    RVEC                                  
051150,001289: 12,2752           02744                                    VVEC                                  
051151,001290: 12,2753           77624                           CALL                                           
051152,001291: 12,2754           11005                                    PARAM                                 
051153,001292: 12,2755           45000                           BOV      CALL                                  #                                PL AT 0
051154,001293: 12,2756           24775                                    COGAOVFL                              
051155,001294: 12,2757           25000                                    GETX                                  
051156,001295: 12,2760           43145        COMMNOUT           DLOAD    BON                                   
051157,001296: 12,2761           00031                                    XI                                    
051158,001297: 12,2762           04310                                    INFINFLG                              
051159,001298: 12,2763           02710                                    RTNTT                                 
051160,001299: 12,2764           45014                           CLEAR    CALL                                  
051161,001300: 12,2765           04273                                    COGAFLAG                              
051162,001301: 12,2766           24434                                    DELTIME                               
051163,001302: 12,2767           45014                           BON      CALL                                  
051164,001303: 12,2770           03706                                    RVSW                                  
051165,001304: 12,2771           02710                                    RTNTT                                 
051166,001305: 12,2772           24666                                    NEWSTATE                              
051167,001306: 12,2773           77650                           GOTO                                           
051168,001307: 12,2774           02710                                    RTNTT                                 
051169,001308: 
051170,001309: 
051171,001310: 12,2775           77614        COGAOVFL           SETGO                                          
051172,001311: 12,2776           04033                                    COGAFLAG                              
051173,001312: 12,2777           02710                                    RTNTT                                 
051174,001313: 

Page 1183

051176,001315: 04,3005                                           BANK     4                                     
051177,001316: 04,2000                                           SETLOC   CONICS1                               
051178,001317: 04,2000                                           BANK                                           
051179,001318: 04,3005                                           COUNT*   $$/CONIC                              
051180,001319: 04,3005           43020        PARAM              STQ      CLEAR                                 #  MPAC=V1VEC, 0D=R1VEC         PL AT 6
051181,001320: 04,3006           02753                                    RTNPRM                                
051182,001321: 04,3007           03665                                    NORMSW                                
051183,001322: 04,3010           77614                           CLEAR                                          
051184,001323: 04,3011           04273                                    COGAFLAG                              
051185,001324: 04,3012           45131                           SSP      CALL                                  
051186,001325: 04,3013           02673                                    GEOMSGN                               
051187,001326: 04,3014           27777                                    37777                                 #  GAMMA ALWAYS LESS THAN 180DEG
051188,001327: 04,3015           11051                                    GEOM                                  #  MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
051189,001328: 04,3016           14045                           STODL    36D                                   #  36D=SIN GAMMA (+1)           PL AT 0
051190,001329: 04,3017           56261                           SR       DDV                                   
051191,001330: 04,3020           20606                                    5                                     
051192,001331: 
051193,001332: 04,3021           00045                                    36D                                   
051194,001333: 04,3022           32766                           STOVL*   COGA                                  
051195,001334: 04,3023           10005                                    MUTABLE,1                             
051196,001335: 04,3024           14017                           STODL    1/MU                                  
051197,001336: 04,3025           02720                                    MAGVEC2                               
051198,001337: 04,3026           60316                           DSQ      NORM                                  
051199,001338: 04,3027           00047                                    X1                                    
051200,001339: 04,3030           41275                           DMPR     DMP                                   
051201,001340: 04,3031           00017                                    1/MU                                  
051202,001341: 04,3032           00041                                    R1                                    
051203,001342: 04,3033           77657                           SRR*                                           
051204,001343: 04,3034           21576                                    0          -3,1                       
051205,001344: 04,3035           44206                           PUSH     BDSU                                  #  0D=R1 V1SQ/MU (+6)           PL AT 2
051206,001345: 04,3036           10764                                    D1/32                                 
051207,001346: 04,3037           16742                           STODL    R1A                                   #  R1A (+6)                     PL AT 0
051208,001347: 
051209,001348: 04,3040           60205                           DMP      NORM                                  
051210,001349: 04,3041           00045                                    36D                                   
051211,001350: 04,3042           00047                                    X1                                    
051212,001351: 04,3043           53605                           DMP      SR*                                   
051213,001352: 04,3044           00045                                    36D                                   
051214,001353: 04,3045           20575                                    0          -4,1                       
051215,001354: 04,3046           02740                           STORE    P                                     #  P (+4)
051216,001355: 04,3047           77650                           GOTO                                           
051217,001356: 04,3050           02753                                    RTNPRM                                
051218,001357: 

Page 1184

051220,001359: 04,3051           77656        GEOM               UNIT                                           #  MPAC=V2VEC, 0D=R1VEC         PL AT 6
051221,001360: 04,3052           16712                           STODL    U2                                    #  U2 (+1)
051222,001361: 04,3053           00045                                    36D                                   
051223,001362: 04,3054           26720                           STOVL    MAGVEC2                               #                               PL AT 0
051224,001363: 04,3055           77656                           UNIT                                           
051225,001364: 04,3056           02722                           STORE    UR1                                   #  UR1 (+1)
051226,001365: 04,3057           72441                           DOT      SL1                                   
051227,001366: 04,3060           02712                                    U2                                    
051228,001367: 04,3061           77725                           PDDL                                           #  OD=CSTH (+1)                 PL AT 2
051229,001368: 04,3062           00045                                    36D                                   
051230,001369: 04,3063           24041                           STOVL    R1                                    #  R1 (+29 OR +27)
051231,001370: 04,3064           02722                                    UR1                                   
051232,001371: 04,3065           76435                           VXV      VSL1                                  
051233,001372: 04,3066           02712                                    U2                                    
051234,001373: 04,3067           75214                           BON      SIGN                                  
051235,001374: 04,3070           03705                                    NORMSW                                
051236,001375: 04,3071           11103                                    HAVENORM                              
051237,001376: 04,3072           02673                                    GEOMSGN                               
051238,001377: 04,3073           40056                           UNIT     BOV                                   
051239,001378: 04,3074           11101                                    COLINEAR                              
051240,001379: 04,3075           16674        UNITNORM           STODL    UN                                    #  UN (+1)
051241,001380: 04,3076           00045                                    36D                                   
051242,001381: 04,3077           43565                           SIGN     RVQ                                   #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051243,001382: 04,3100           02673                                    GEOMSGN                               
051244,001383: 
051245,001384: 
051246,001385: 04,3101           52162        COLINEAR           VSR1     GOTO                                  
051247,001386: 04,3102           11075                                    UNITNORM                              
051248,001387: 
051249,001388: 
051250,001389: 04,3103           75246        HAVENORM           ABVAL    SIGN                                  
051251,001390: 04,3104           02673                                    GEOMSGN                               
051252,001391: 04,3105           77616                           RVQ                                            #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051253,001392: 

Page 1185

051255,001394: 12,3000                                           BANK     12                                    
051256,001395: 12,2000                                           SETLOC   CONICS                                
051257,001396: 12,2000                                           BANK                                           
051258,001397: 
051259,001398: 12,3000                                           COUNT*   $$/CONIC                              
051260,001399: 12,3000           66374        GETX               AXT,2    SSP                                   #  ASSUMES P (+4) IN MPAC
051261,001400: 12,3001           00003                                    3                                     
051262,001401: 12,3002           00052                                    S2                                    
051263,001402: 12,3003           00001                                    1                                     
051264,001403: 12,3004           77614                           CLEAR                                          
051265,001404: 12,3005           04276                                    360SW                                 
051266,001405: 12,3006           65366                           SQRT     PDDL                                  #  0D=SQRT(P)                        PL AT 2
051267,001406: 12,3007           02732                                    CSTH                                  
051268,001407: 12,3010           44342                           SR1      BDSU                                  
051269,001408: 12,3011           10760                                    D1/4                                  
051270,001409: 12,3012           54325                           PDDL     SRR                                   #                                PL AT 4D
051271,001410: 12,3013           02730                                    SNTH                                  
051272,001411: 12,3014           21607                                    6                                     
051273,001412: 12,3015           77671                           DDV                                            #                                PL AT 2
051274,001413: 12,3016           77600                           BOV                                            
051275,001414: 12,3017           25133                                    360CHECK                              
051276,001415: 12,3020           41225                           DSU      DMP                                   
051277,001416: 12,3021           02766                                    COGA                                  #                                    PL AT 0
051278,001417: 12,3022           40132                           SL2R     BOV                                   
051279,001418: 12,3023           25133                                    360CHECK                              
051280,001419: 12,3024           63406        WLOOP              PUSH     DSQ                                   #  0D=W (+5)                         PL AT 2
051281,001420: 12,3025           65351                           TLOAD    PDDL                                  #  2D=WSQ (+10)                      PL AT 5
051282,001421: 12,3026           00155                                    MPAC                                  
051283,001422: 12,3027           02742                                    R1A                                   
051284,001423: 12,3030           76202                           SR4      TAD                                   #                                PL AT 2
051285,001424: 12,3031           75440                           BMN      SQRT                                  
051286,001425: 12,3032           25216                                    INFINITY                              
051287,001426: 12,3033           43306                           ROUND    DAD                                   #                                PL AT 0D
051288,001427: 12,3034           61000                           BOV      TIX,2                                 
051289,001428: 12,3035           25131                                    RESETX2                               
051290,001429: 12,3036           25024                                    WLOOP                                 
051291,001430: 
051292,001431: 
051293,001432: 12,3037           40065                           BDDV     BOV                                   
051294,001433: 12,3040           10754                                    D1/128                                
051295,001434: 12,3041           25216                                    INFINITY                              
051296,001435: 12,3042           41440        POLYCOEF           BMN      PUSH                                  #  0D=1/W (+2) OR 16/W (+6)      PL AT 2
051297,001436: 12,3043           25216                                    INFINITY                              
051298,001437: 12,3044           77716                           DSQ                                            
051299,001438: 12,3045           41301                           NORM     DMP                                   
051300,001439: 12,3046           00047                                    X1                                    
051301,001440: 12,3047           02742                                    R1A                                   
051302,001441: 12,3050           77457                           SRR*     EXIT                                  
051303,001442: 12,3051           21567                                    0          -10D,1                     
051304,001443: 12,3052           07221                           TC       POLY                                  

Page 1186

051306,001445: 12,3053           00005                           DEC      5          B-14                       
051307,001446: 12,3054           20000 00000                     2DEC     .5                                    
051308,001447: 
051309,001448: 12,3056           72525 52471                     2DEC     -.166666770                            
051310,001449: 
051311,001450: 12,3060           03146 15003                     2DEC     .100000392                            
051312,001451: 
051313,001452: 12,3062           75556 45210                     2DEC     -.071401086                            
051314,001453: 
051315,001454: 12,3064           01615 13553                     2DEC     .055503292                            
051316,001455: 
051317,001456: 12,3066           76371 63777                     2DEC     -.047264098                            
051318,001457: 
051319,001458: 12,3070           01232 27367                     2DEC     .040694204                            
051320,001459: 
051321,001460: 12,3072           06036                           TC       INTPRET                               
051322,001461: 12,3073           76405                           DMP      SL1R                                  #                                PL AT 0D
051323,001462: 12,3074           43006                           PUSH     BON                                   
051324,001463: 12,3075           04316                                    360SW                                 
051325,001464: 12,3076           25203                                    TRUE360X                              
051326,001465: 12,3077           60316        XCOMMON            DSQ      NORM                                  
051327,001466: 12,3100           00047                                    X1                                    
051328,001467: 12,3101           53605                           DMP      SRR*                                  
051329,001468: 12,3102           02742                                    R1A                                   
051330,001469: 12,3103           21565                                    0          -12D,1                     
051331,001470: 12,3104           14031                           STODL    XI                                    #  XI (+6)
051332,001471: 
051333,001472: 
051334,001473: 12,3105           00041                                    R1                                    
051335,001474: 12,3106           75542                           SR1      SQRT                                  
051336,001475: 12,3107           41306                           ROUND    DMP                                   
051337,001476: 12,3110           77632                           SL4R                                           #                                PL AT 0
051338,001477: 12,3111           00025                           STORE    X                                     #  X (+17 OR +16)
051339,001478: 
051340,001479: 
051341,001480: 12,3112           60316                           DSQ      NORM                                  
051342,001481: 12,3113           00047                                    X1                                    
051343,001482: 12,3114           41325                           PDDL     DMP                                   #  0D=XSQ (+34 OR +32 -N1)       PL AT 2
051344,001483: 12,3115           02740                                    P                                     
051345,001484: 12,3116           00041                                    R1                                    
051346,001485: 12,3117           75452                           SL3      SQRT                                  
051347,001486: 12,3120           56405                           DMP      SL3R                                  
051348,001487: 12,3121           02766                                    COGA                                  
051349,001488: 12,3122           14043                           STODL    KEPC1                                 
051350,001489: 12,3123           02742                                    R1A                                   
051351,001490: 12,3124           43021                           BDSU     CLEAR                                 
051352,001491: 12,3125           10756                                    D1/64                                 
051353,001492: 12,3126           04270                                    INFINFLG                              
051354,001493: 12,3127           00045                           STORE    KEPC2                                 
051355,001494: 12,3130           77616                           RVQ                                            
051356,001495: 

Page 1187

051358,001497: 12,3131           77774        RESETX2            AXT,2                                          
051359,001498: 12,3132           00003                                    3                                     
051360,001499: 
051361,001500: 
051362,001501: 12,3133           51001        360CHECK           SETPD    BPL                                   
051363,001502: 12,3134           00001                                    0D                                    
051364,001503: 12,3135           25140                                    INVRSEQN                              
051365,001504: 12,3136           77614                           SET                                            
051366,001505: 12,3137           04076                                    360SW                                 
051367,001506: 
051368,001507: 
051369,001508: 12,3140           75545        INVRSEQN           DLOAD    SQRT                                  
051370,001509: 12,3141           02740                                    P                                     
051371,001510: 12,3142           41325                           PDDL     DMP                                   #  0D=SQRT(P) (+2)                   PL AT 2
051372,001511: 12,3143           02730                                    SNTH                                  
051373,001512: 12,3144           02766                                    COGA                                  
051374,001513: 12,3145           65352                           SL1      PDDL                                  #  2D=SNTH COGA (+5)                 PL AT 4
051375,001514: 12,3146           02732                                    CSTH                                  
051376,001515: 12,3147           43202                           SR4      DAD                                   
051377,001516: 12,3150           10764                                    D1/32                                 
051378,001517: 12,3151           41225                           DSU      DMP                                   #                               PL AT 2,0
051379,001518: 12,3152           55301                           NORM     BDDV                                  
051380,001519: 12,3153           00047                                    X1                                    
051381,001520: 12,3154           02730                                    SNTH                                  
051382,001521: 12,3155           51457                           SLR*     ABS                                   #  NOTE: NEAR 360 CASE TREATED DIFFERENTLY
051383,001522: 12,3156           21174                                    0          -5,1                       
051384,001523: 12,3157           63406                           PUSH     DSQ                                   #  0D=1/W (-1)                  PL AT 2
051385,001524: 12,3160           14043                           STODL    34D                                   
051386,001525: 12,3161           10762                                    D1/16                                 
051387,001526: 12,3162           63406        1/WLOOP            PUSH     DSQ                                   #  2D=G (+4)                        PL AT 4
051388,001527: 12,3163           65234                           RTB      PDDL                                  #                               PL AT 7
051389,001528: 12,3164           21537                                    TPMODE                                
051390,001529: 12,3165           02742                                    R1A                                   
051391,001530: 12,3166           40405                           DMP      SR4                                   
051392,001531: 12,3167           00043                                    34D                                   
051393,001532: 12,3170           77771                           TAD                                            #                                   PL AT 4
051394,001533: 12,3171           75440                           BMN      SQRT                                  
051395,001534: 12,3172           25216                                    INFINITY                              
051396,001535: 12,3173           77615                           DAD                                            #                               PL AT 2
051397,001536: 12,3174           60304                           TIX,2    NORM                                  
051398,001537: 12,3175           25162                                    1/WLOOP                               
051399,001538: 12,3176           00047                                    X1                                    
051400,001539: 12,3177           77665                           BDDV                                           
051401,001540: 12,3200           52057                           SLR*     GOTO                                  #                                   PL AT 0
051402,001541: 12,3201           21172                                    0          -7,1                       
051403,001542: 12,3202           25042                                    POLYCOEF                              
051404,001543: 
051405,001544: 
051406,001545: 12,3203           50145        TRUE360X           DLOAD    BMN                                   
051407,001546: 12,3204           02742                                    R1A                                   

Page 1188

051409,001548: 12,3205           25216                                    INFINITY                              
051410,001549: 12,3206           60366                           SQRT     NORM                                  
051411,001550: 12,3207           00047                                    X1                                    
051412,001551: 12,3210           53665                           BDDV     SL*                                   
051413,001552: 12,3211           10776                                    2PISC                                 
051414,001553: 12,3212           20176                                    0          -3,1                       
051415,001554: 12,3213           41425                           DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X          PL AT 0,2
051416,001555: 12,3214           77650                           GOTO                                           
051417,001556: 12,3215           25077                                    XCOMMON                               
051418,001557: 12,3216           40001        INFINITY           SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
051419,001558: 12,3217           00001                                    0                                     #  INFINITY IS REQUIRED
051420,001559: 12,3220           25221                                    OVFLCLR                               
051421,001560: 12,3221           43414        OVFLCLR            SET      RVQ                                   
051422,001561: 12,3222           04070                                    INFINFLG                              
051423,001562: 

Page 1189

051425,001564: 12,3223           40220        LAMBERT            STQ      SETPD                                 
051426,001565: 12,3224           02710                                    RTNLAMB                               
051427,001566: 12,3225           00001                                    0D                                    
051428,001567: 12,3226           76614                           CLEAR    VLOAD*                                
051429,001568: 12,3227           02674                                    SOLNSW                                
051430,001569: 12,3230           10005                                    MUTABLE,1                             
051431,001570: 12,3231           14017                           STODL    1/MU                                  
051432,001571: 12,3232           02671                                    TDESIRED                              
051433,001572: 12,3233           77675                           DMPR                                           
051434,001573: 12,3234           10763                                    BEE19                                 
051435,001574: 12,3235           02764                           STORE    EPSILONL                              
051436,001575: 12,3236           77214                           SET      VLOAD                                 
051437,001576: 12,3237           00474                                    SLOPESW                               
051438,001577: 12,3240           02655                                    R1VEC                                 
051439,001578: 12,3241           45115                           PDVL     CALL                                  #  0D=R1VEC (+29 OR +27)        PL AT 6
051440,001579: 12,3242           02663                                    R2VEC                                 #  MPAC=R2VEC (+29 OR +27)
051441,001580: 12,3243           11051                                    GEOM                                  
051442,001581: 12,3244           16730                           STODL    SNTH                                  #  0D=CSTH (+1)                 PL AT 2
051443,001582: 12,3245           02720                                    MAGVEC2                               
051444,001583: 12,3246           65301                           NORM     PDDL                                  #                               PL AT 4
051445,001584: 12,3247           00047                                    X1                                    
051446,001585: 12,3250           00041                                    R1                                    
051447,001586: 12,3251           56342                           SR1      DDV                                   #                               PL AT 2
051448,001587: 12,3252           65257                           SL*      PDDL                                  #  DXCH WITH 0D, 0D=R1/R2 (+7)  PL AT 0,2
051449,001588: 12,3253           20173                                    0          -6,1                       
051450,001589: 12,3254           77626                           STADR                                          
051451,001590: 12,3255           75045                           STORE    CSTH                                  #  CSTH (+1)
051452,001591: 12,3256           44342                           SR1      BDSU                                  
051453,001592: 12,3257           10760                                    D1/4                                  
051454,001593: 12,3260           02734                           STORE    1-CSTH                                #  1-CSTH (+2)
051455,001594: 
051456,001595: 12,3261           53106                           ROUND    BZE                                   
051457,001596: 12,3262           25472                                    360LAMB                               
051458,001597: 12,3263           65301                           NORM     PDDL                                  #                               PL AT 4
051459,001598: 12,3264           00047                                    X1                                    
051460,001599: 12,3265           00001                                    0D                                    
051461,001600: 12,3266           56342                           SR1      DDV                                   #                               PL AT 2
051462,001601: 12,3267           75457                           SL*      SQRT                                  
051463,001602: 12,3270           20176                                    0          -3,1                       
051464,001603: 12,3271           54325                           PDDL     SR                                    #  2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
051465,001604: 12,3272           02730                                    SNTH                                  
051466,001605: 12,3273           20607                                    6                                     
051467,001606: 12,3274           43271                           DDV      DAD                                   #                               PL AT 2
051468,001607: 12,3275           02734                                    1-CSTH                                
051469,001608: 12,3276           77626                           STADR                                          
051470,001609: 12,3277           77760                           STORE    COGAMAX                               
051471,001610: 12,3300           50000                           BOV      BMN                                   #  IF OVFL, COGAMAX=COGUPLIM
051472,001611: 12,3301           25306                                    UPLIM                                 #  IF NEG, USE EVEN IF LT COGLOLIM, SINCE
051473,001612: 12,3302           25311                                    MAXCOGA                               #    THIS WOULD BE RESET IN LAMBLOOP
051474,001613: 12,3303           50025                           DSU      BMN                                   #  IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM

Page 1190

051476,001615: 12,3304           11002                                    COGUPLIM                              
051477,001616: 12,3305           25311                                    MAXCOGA                               #  OTHERWISE OK, SO GO TO MAXCOGA
051478,001617: 12,3306           77745        UPLIM              DLOAD                                          
051479,001618: 12,3307           11002                                    COGUPLIM                              #  COGUPLIM=.999511597 = MAX VALUE OF COGA
051480,001619: 12,3310           00017                           STORE    COGAMAX                               #    NOT CAUSING OVFL IN R1A CALCULATION
051481,001620: 12,3311           77745        MAXCOGA            DLOAD                                          
051482,001621: 12,3312           02732                                    CSTH                                  
051483,001622: 12,3313           45261                           SR       DSU                                   #                               PL AT 0
051484,001623: 12,3314           20607                                    6                                     
051485,001624: 12,3315           77626                           STADR                                          
051486,001625: 12,3316           61041                           STODL    CSTH-RHO                              
051487,001626: 12,3317           02673                                    GEOMSGN                               
051488,001627: 12,3320           71240                           BMN      DLOAD                                 
051489,001628: 12,3321           25512                                    LOLIM                                 
051490,001629: 12,3322           02736                                    CSTH-RHO                              
051491,001630: 12,3323           56352                           SL1      DDV                                   
051492,001631: 12,3324           02730                                    SNTH                                  
051493,001632: 12,3325           77600                           BOV                                            
051494,001633: 12,3326           25512                                    LOLIM                                 
051495,001634: 12,3327           00011        MINCOGA            STORE    COGAMIN                               #  COGAMIN (+5)
051496,001635: 12,3330           66214                           BON      SSP                                   
051497,001636: 12,3331           00715                                    GUESSW                                
051498,001637: 12,3332           25476                                    NOGUESS                               
051499,001638: 12,3333           00051                                    TWEEKIT                               
051500,001639: 12,3334           00001                                    00001                                 
051501,001640: 12,3335           77745                           DLOAD                                          
051502,001641: 12,3336           02766                                    COGA                                  
051503,001642: 
051504,001643: 
051505,001644: 12,3337           77605        LAMBLOOP           DMP                                            
051506,001645: 12,3340           02730                                    SNTH                                  
051507,001646: 12,3341           45342                           SR1      DSU                                   
051508,001647: 12,3342           02736                                    CSTH-RHO                              
051509,001648: 12,3343           65301                           NORM     PDDL                                  #  0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
051510,001649: 12,3344           00047                                    X1                                    
051511,001650: 12,3345           02734                                    1-CSTH                                
051512,001651: 12,3346           56257                           SL*      DDV                                   #  1-CSTH (+2)                  PL AT 0
051513,001652: 12,3347           20170                                    0          -9D,1                      
051514,001653: 12,3350           53040                           BMN      BZE                                   
051515,001654: 12,3351           25426                                    NEGP                                  
051516,001655: 12,3352           25426                                    NEGP                                  
051517,001656: 12,3353           16740                           STODL    P                                     #  P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
051518,001657: 12,3354           02766                                    COGA                                  
051519,001658: 12,3355           43316                           DSQ      DAD                                   
051520,001659: 12,3356           10766                                    D1/1024                               
051521,001660: 12,3357           41301                           NORM     DMP                                   
051522,001661: 12,3360           00047                                    X1                                    
051523,001662: 12,3361           02740                                    P                                     
051524,001663: 12,3362           44257                           SR*      BDSU                                  
051525,001664: 12,3363           20571                                    0          -8D,1                      

Page 1191

051527,001666: 12,3364           10764                                    D1/32                                 
051528,001667: 12,3365           16742                           STODL    R1A                                   #  R1A=2-P(1+COGA COGA) (+6)
051529,001668: 12,3366           02740                                    P                                     
051530,001669: 12,3367           45000                           BOV      CALL                                  
051531,001670: 12,3370           25431                                    HIENERGY                              
051532,001671: 12,3371           25000                                    GETX                                  
051533,001672: 12,3372           77745                           DLOAD                                          
051534,001673: 12,3373           00037                                    T                                     
051535,001674: 12,3374           16762                           STODL    TPREV                                 
051536,001675: 12,3375           00031                                    XI                                    
051537,001676: 12,3376           45014                           BON      CALL                                  
051538,001677: 12,3377           04310                                    INFINFLG                              
051539,001678: 12,3400           25426                                    NEGP                                  #  HAVE EXCEEDED THEORETICAL BOUNDS
051540,001679: 12,3401           24434                                    DELTIME                               
051541,001680: 12,3402           44200                           BOV      BDSU                                  
051542,001681: 12,3403           25446                                    BIGTIME                               
051543,001682: 12,3404           02671                                    TDESIRED                              
051544,001683: 12,3405           02760                           STORE    TERRLAMB                              
051545,001684: 12,3406           44246                           ABS      BDSU                                  
051546,001685: 12,3407           02764                                    EPSILONL                              
051547,001686: 12,3410           47044                           BPL      RTB                                   
051548,001687: 12,3411           25515                                    INITV                                 
051549,001688: 12,3412           24657                                    CHECKCTR                              
051550,001689: 12,3413           45030                           BHIZ     CALL                                  
051551,001690: 12,3414           25457                                    SUFFCHEK                              
051552,001691: 12,3415           24551                                    ITERATOR                              
051553,001692: 12,3416           53145                           DLOAD    BZE                                   
051554,001693: 12,3417           00155                                    MPAC                                  
051555,001694: 12,3420           25457                                    SUFFCHEK                              
051556,001695: 12,3421           77615                           DAD                                            
051557,001696: 12,3422           02766                                    COGA                                  
051558,001697: 12,3423           02766                           STORE    COGA                                  
051559,001698: 12,3424           77650                           GOTO                                           
051560,001699: 12,3425           25337                                    LAMBLOOP                              
051561,001700: 
051562,001701: 
051563,001702: 12,3426           51145        NEGP               DLOAD    BPL                                   #  IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
051564,001703: 12,3427           00015                                    DCOGA                                 #  BOUND CALCULATION. TRY NEW COGA.
051565,001704: 12,3430           25451                                    LOENERGY                              
051566,001705: 
051567,001706: 
051568,001707: 12,3431           71201        HIENERGY           SETPD    DLOAD                                 #  HIGH ENERGY TRAJECTORY RESULTED
051569,001708: 12,3432           00001                                    0                                     
051570,001709: 12,3433           02766                                    COGA                                  #  IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
051571,001710: 12,3434           00011                           STORE    COGAMIN                               #  THIS IS THE NEW BOUND.
051572,001711: 12,3435           70545        COMMONLM           DLOAD    SR1                                   
051573,001712: 12,3436           00015                                    DCOGA                                 
051574,001713: 12,3437           00015                           STORE    DCOGA                                 #  USE DCOGA/2 AS DECREMENT
051575,001714: 12,3440           44254                           BZE      BDSU                                  

Page 1192

051577,001716: 12,3441           25457                                    SUFFCHEK                              
051578,001717: 12,3442           02766                                    COGA                                  
051579,001718: 12,3443           02766                           STORE    COGA                                  
051580,001719: 12,3444           77650                           GOTO                                           #  RESTART THIS LOOP
051581,001720: 12,3445           25337                                    LAMBLOOP                              
051582,001721: 
051583,001722: 
051584,001723: 12,3446           77745        BIGTIME            DLOAD                                          
051585,001724: 12,3447           02762                                    TPREV                                 
051586,001725: 12,3450           00037                           STORE    T                                     
051587,001726: 
051588,001727: 
051589,001728: 12,3451           71201        LOENERGY           SETPD    DLOAD                                 #  LOW ENERGY TRAJECTORY RESULTED
051590,001729: 12,3452           00001                                    0                                     
051591,001730: 12,3453           02766                                    COGA                                  #  IN OVERFLOW OF TIME.
051592,001731: 12,3454           00017                           STORE    COGAMAX                               #  THIS IS THE NEW BOUND.
051593,001732: 12,3455           77650                           GOTO                                           
051594,001733: 12,3456           25435                                    COMMONLM                              
051595,001734: 
051596,001735: 
051597,001736: 12,3457           51545        SUFFCHEK           DLOAD    ABS                                   
051598,001737: 12,3460           02760                                    TERRLAMB                              
051599,001738: 12,3461           41325                           PDDL     DMP                                   #                               PL AT 2D
051600,001739: 12,3462           02671                                    TDESIRED                              
051601,001740: 12,3463           10751                                    BEE17                                 
051602,001741: 12,3464           45215                           DAD      DSU                                   #                               PL AT 0D
051603,001742: 12,3465           11000                                    ONEBIT                                
051604,001743: 12,3466           43044                           BPL      SETGO                                 
051605,001744: 12,3467           25515                                    INITV                                 
051606,001745: 12,3470           02434                                    SOLNSW                                
051607,001746: 12,3471           25515                                    INITV                                 
051608,001747: 12,3472           43001        360LAMB            SETPD    SETGO                                 #  LAMBERT CANNOT HANDLE CSTH=1
051609,001748: 12,3473           00001                                    0                                     
051610,001749: 12,3474           02434                                    SOLNSW                                
051611,001750: 12,3475           02710                                    RTNLAMB                               
051612,001751: 
051613,001752: 
051614,001753: 12,3476           71331        NOGUESS            SSP      DLOAD                                 
051615,001754: 12,3477           00051                                    TWEEKIT                               
051616,001755: 12,3500           10000                                    20000                                 
051617,001756: 12,3501           00011                                    COGAMIN                               
051618,001757: 12,3502           65342                           SR1      PDDL                                  #                               PL AT 2
051619,001758: 12,3503           00017                                    COGAMAX                               
051620,001759: 12,3504           43342                           SR1      DAD                                   
051621,001760: 12,3505           77626                           STADR                                          #                               PL AT 0
051622,001761: 12,3506           75011                           STORE    COGA                                  
051623,001762: 12,3507           00015                           STORE    DCOGA                                 
051624,001763: 12,3510           77650                           GOTO                                           
051625,001764: 12,3511           25337                                    LAMBLOOP                              
051626,001765: 

Page 1193

051628,001767: 12,3512           52145        LOLIM              DLOAD    GOTO                                  
051629,001768: 12,3513           11004                                    COGLOLIM                              #  COGLOLIM=-.999511597
051630,001769: 12,3514           25327                                    MINCOGA                               
051631,001770: 
051632,001771: 
051633,001772: 12,3515           60345        INITV              DLOAD    NORM                                  
051634,001773: 12,3516           00041                                    R1                                    
051635,001774: 12,3517           00047                                    X1                                    
051636,001775: 12,3520           70525                           PDDL     SR1                                   #                               PL AT 2
051637,001776: 12,3521           02740                                    P                                     
051638,001777: 12,3522           77671                           DDV                                            #                               PL AT 0
051639,001778: 12,3523           75457                           SL*      SQRT                                  
051640,001779: 12,3524           20175                                    0          -4,1                       
051641,001780: 12,3525           72405                           DMP      SL1                                   
051642,001781: 12,3526           00021                                    ROOTMU                                
051643,001782: 12,3527           41206                           PUSH     DMP                                   #  0D=VTAN (+7)                 PL AT 2
051644,001783: 12,3530           02766                                    COGA                                  
051645,001784: 12,3531           74261                           SL       VXSC                                  
051646,001785: 12,3532           20206                                    5                                     
051647,001786: 12,3533           02722                                    UR1                                   
051648,001787: 12,3534           77725                           PDDL                                           #  XCH WITH 0D                  PL AT 0,6
051649,001788: 12,3535           76561                           VXSC     VSL1                                  
051650,001789: 12,3536           02674                                    UN                                    
051651,001790: 12,3537           53235                           VXV      VAD                                   #                               PL AT 0
051652,001791: 12,3540           02722                                    UR1                                   
051653,001792: 12,3541           77772                           VSL1                                           
051654,001793: 12,3542           02744                           STORE    VVEC                                  
051655,001794: 12,3543           53135                           SLOAD    BZE                                   
051656,001795: 12,3544           02702                                    VTARGTAG                              
051657,001796: 12,3545           25550                                    TARGETV                               
051658,001797: 12,3546           77650                           GOTO                                           
051659,001798: 12,3547           02710                                    RTNLAMB                               
051660,001799: 
051661,001800: 
051662,001801: 12,3550           45145        TARGETV            DLOAD    CALL                                  
051663,001802: 12,3551           02720                                    MAGVEC2                               
051664,001803: 12,3552           24714                                    LAMENTER                              
051665,001804: 12,3553           02703                           STORE    VTARGET                               
051666,001805: 12,3554           77650                           GOTO                                           
051667,001806: 12,3555           02710                                    RTNLAMB                               
051668,001807: 

Page 1194

051670,001809: 12,3556           40220        TIMERAD            STQ      SETPD                                 #                                  PL AT 0
051671,001810: 12,3557           02710                                    RTNTR                                 
051672,001811: 12,3560           00001                                    0                                     
051673,001812: 12,3561           63375                           VLOAD    PDVL                                  #                                  PL AT 6
051674,001813: 12,3562           02655                                    RVEC                                  
051675,001814: 12,3563           02744                                    VVEC                                  
051676,001815: 12,3564           77624                           CALL                                           
051677,001816: 12,3565           11005                                    PARAM                                 
051678,001817: 12,3566           71200                           BOV      DLOAD                                 #                                  PL AT 0
051679,001818: 12,3567           24775                                    COGAOVFL                              
051680,001819: 12,3570           10764                                    D1/32                                 
051681,001820: 12,3571           41225                           DSU      DMP                                   
051682,001821: 12,3572           02742                                    R1A                                   
051683,001822: 12,3573           02740                                    P                                     
051684,001823: 12,3574           41366                           SQRT     DMP                                   
051685,001824: 12,3575           02766                                    COGA                                  
051686,001825: 12,3576           74212                           SL4      VXSC                                  
051687,001826: 12,3577           02712                                    U2                                    
051688,001827: 12,3600           45325                           PDDL     DSU                                   #                                  PL AT 6
051689,001828: 12,3601           10756                                    D1/64                                 
051690,001829: 12,3602           02742                                    R1A                                   
051691,001830: 12,3603           52361                           VXSC     VSU                                   #                                  PL AT 0
051692,001831: 12,3604           02722                                    UR1                                   
051693,001832: 12,3605           53512                           VSL4     UNIT                                  
051694,001833: 12,3606           77600                           BOV                                            
051695,001834: 12,3607           25472                                    360LAMB                               #  NO SOLUTION SINCE CONIC IS A CIRCLE
051696,001835: 12,3610           60325                           PDDL     NORM                                  #  0D=UNIT(ECC) (+3)               PL AT 6
051697,001836: 12,3611           02756                                    RDESIRED                              #  36D=ECC (+3)
051698,001837: 12,3612           00047                                    X1                                    
051699,001838: 12,3613           41325                           PDDL     DMP                                   #                               PL AT 8
051700,001839: 12,3614           00041                                    R1                                    
051701,001840: 12,3615           02740                                    P                                     
051702,001841: 12,3616           56257                           SL*      DDV                                   #                               PL AT 6
051703,001842: 12,3617           20201                                    0,1                                   
051704,001843: 12,3620           56225                           DSU      DDV                                   
051705,001844: 12,3621           10762                                    D1/16                                 
051706,001845: 12,3622           00045                                    36D                                   #  36D=ECC (+3)
051707,001846: 12,3623           00031                           STORE    COSF                                  
051708,001847: 12,3624           63400                           BOV      DSQ                                   
051709,001848: 12,3625           25665                                    BADR2                                 
051710,001849: 12,3626           50021                           BDSU     BMN                                   
051711,001850: 12,3627           10760                                    D1/4                                  
051712,001851: 12,3630           25665                                    BADR2                                 
051713,001852: 12,3631           75366                           SQRT     SIGN                                  
051714,001853: 12,3632           02755                                    SGNRDOT                               
051715,001854: 12,3633           77614                           CLEAR                                          
051716,001855: 12,3634           04272                                    APSESW                                
051717,001856: 
051718,001857: 12,3635           76561        TERMNVEC           VXSC     VSL1                                  
051719,001858: 12,3636           02674                                    UN                                    

Page 1195

051721,001860: 12,3637           63235                           VXV      PDVL                                  #  VXCH WITH 0D                 PL AT 0,6
051722,001861: 12,3640           00001                                    0D                                    
051723,001862: 12,3641           53361                           VXSC     VAD                                   #                               PL AT 0
051724,001863: 12,3642           00031                                    COSF                                  
051725,001864: 12,3643           41572                           VSL1     PUSH                                  #  0D=U2                        PL AT 6
051726,001865: 
051727,001866: 12,3644           56241                           DOT      DDV                                   #  LIMITS RESULT TO POSMAX OR NEGMAX
051728,001867: 12,3645           02722                                    UR1                                   
051729,001868: 12,3646           23702                                    DP1/4                                 
051730,001869: 12,3647           40142                           SR1      BOV                                   #  SCALE BACK DOWN TO NORMAL
051731,001870: 12,3650           25651                                    +1                                    #  CLEAR OVFIND IF SET
051732,001871: 12,3651           26732                           STOVL    CSTH                                  #  CSTH (+1)
051733,001872: 12,3652           02722                                    UR1                                   
051734,001873: 12,3653           76435                           VXV      VSL1                                  
051735,001874: 12,3654           72441                           DOT      SL1                                   
051736,001875: 12,3655           02674                                    UN                                    
051737,001876: 12,3656           16730                           STODL    SNTH                                  #  SNTH (+1)
051738,001877: 12,3657           02740                                    P                                     
051739,001878: 12,3660           77624                           CALL                                           
051740,001879: 12,3661           25000                                    GETX                                  
051741,001880: 12,3662           77614                           CLRGO                                          
051742,001881: 12,3663           02634                                    SOLNSW                                
051743,001882: 12,3664           24760                                    COMMNOUT                              
051744,001883: 
051745,001884: 
051746,001885: 12,3665           75345        BADR2              DLOAD    SIGN                                  
051747,001886: 12,3666           22273                                    LODPHALF                              
051748,001887: 12,3667           00031                                    COSF                                  
051749,001888: 12,3670           14031                           STODL    COSF                                  
051750,001889: 12,3671           22275                                    KEPZERO                               
051751,001890: 12,3672           77614                           SETGO                                          
051752,001891: 12,3673           04032                                    APSESW                                
051753,001892: 12,3674           25635                                    TERMNVEC                              
051754,001893: 12,3675           40220        APSIDES            STQ      SETPD                                 #                                 PL AT 0
051755,001894: 12,3676           02710                                    RTNAPSE                               
051756,001895: 12,3677           00001                                    0D                                    
051757,001896: 12,3700           63375                           VLOAD    PDVL                                  #                                 PL AT 6
051758,001897: 12,3701           02655                                    RVEC                                  
051759,001898: 12,3702           02744                                    VVEC                                  
051760,001899: 12,3703           77624                           CALL                                           
051761,001900: 12,3704           11005                                    PARAM                                 
051762,001901: 12,3705           77600                           BOV                                            #                                 PL AT 0
051763,001902: 12,3706           25707                                    GETECC                                
051764,001903: 12,3707           42405        GETECC             DMP      SL4                                   
051765,001904: 12,3710           02742                                    R1A                                   
051766,001905: 12,3711           75421                           BDSU     SQRT                                  
051767,001906: 12,3712           10756                                    D1/64                                 
051768,001907: 12,3713           02752                           STORE    ECC                                   
051769,001908: 12,3714           65215                           DAD      PDDL                                  #                                 PL AT 2
051770,001909: 12,3715           10752                                    D1/8                                  

Page 1196

051772,001911: 12,3716           00041                                    R1                                    
051773,001912: 12,3717           72405                           DMP      SL1                                   
051774,001913: 12,3720           02740                                    P                                     
051775,001914: 12,3721           77671                           DDV                                            #                                  PL AT 0
051776,001915: 12,3722           60325                           PDDL     NORM                                  #  0D=RP (+29 OR +27)              PL AT 2
051777,001916: 12,3723           02742                                    R1A                                   
051778,001917: 12,3724           00047                                    X1                                    
051779,001918: 12,3725           53725                           PDDL     SL*                                   #                                  PL AT 4
051780,001919: 12,3726           00041                                    R1                                    
051781,001920: 12,3727           20174                                    0          -5,1                       
051782,001921: 12,3730           45271                           DDV      DSU                                   #                                  PL AT 2,0
051783,001922: 12,3731           50000                           BOV      BMN                                   
051784,001923: 12,3732           25736                                    INFINAPO                              
051785,001924: 12,3733           25736                                    INFINAPO                              
051786,001925: 12,3734           77650                           GOTO                                           
051787,001926: 12,3735           02710                                    RTNAPSE                               
051788,001927: 12,3736           52145        INFINAPO           DLOAD    GOTO                                  #  RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
051789,001928: 12,3737           22306                                    LDPOSMAX                              
051790,001929: 12,3740           02710                                    RTNAPSE                               #  THAT PL IS AT 0.
051791,001930: 

Page 1197

051793,001932: 12,3741  11,2305               LDPOSMAX           EQUALS   LODPMAX                               #  DPPOSMAX IN LOW MEMORY.
051794,001933: 
051795,001934:                                                                                                  #  ERASABLE ASSIGNMENTS
051796,001935: 
051797,001936: 
051798,001937:                                                                                                  #  KEPLER SUBROUTINE
051799,001938: 
051800,001939:                                                                                                  #     INPUT -
051801,001940:                                                                                                  #  RRECT    ERASE  +5
051802,001941:                                                                                                  #  VRECT    ERASE  +5
051803,001942:                                                                                                  #  TAU.     ERASE  +1
051804,001943:                                                                                                  #  XKEP     ERASE  +1
051805,001944:                                                                                                  #  TC       ERASE  +1
051806,001945:                                                                                                  #  XPREV    ERASE  +1
051807,001946: 12,3741                        1/MU               EQUALS   14D                                   
051808,001947: 12,3741                        ROOTMU             EQUALS   16D                                   
051809,001948: 12,3741                        1/ROOTMU           EQUALS   18D                                   
051810,001949:                                                                                                  #     OUTPUT -
051811,001950:                                                                                                  #  RCV      ERASE  +5
051812,001951:                                                                                                  #  VCV      ERASE  +5
051813,001952:                                                                                                  #  RC       ERASE  +1
051814,001953:                                                                                                  #  XPREV    ERASE  +1
051815,001954: 
051816,001955:                                                                                                  #  DEBRIS -
051817,001956: 12,3741                        ALPHA              EQUALS   8D                                    
051818,001957: 12,3741                        XMAX               EQUALS   10D                                   
051819,001958: 12,3741                        XMIN               EQUALS   12D                                   
051820,001959: 12,3741                        X                  EQUALS   20D                                   
051821,001960: 12,3741                        XI                 EQUALS   24D                                   
051822,001961: 12,3741                        S(XI)              EQUALS   26D                                   
051823,001962: 12,3741                        XSQC(XI)           EQUALS   28D                                   
051824,001963: 12,3741                        T                  EQUALS   30D                                   
051825,001964: 12,3741                        R1                 EQUALS   32D                                   
051826,001965: 12,3741                        KEPC1              EQUALS   34D                                   
051827,001966: 12,3741                        KEPC2              EQUALS   36D                                   
051828,001967:                                                                                                  #  DELX     ERASE  +1
051829,001968:                                                                                                  #  DELT     ERASE  +1
051830,001969:                                                                                                  #  URRECT   ERASE  +5
051831,001970:                                                                                                  #  RCNORM   ERASE  +1
051832,001971:                                                                                                  #  XPREV    EQUALS XKEP
051833,001972: 
051834,001973: 
051835,001974:                                                                                                  #  LAMBERT SUBROUTINE
051836,001975: 
051837,001976:                                                                                                  #     INPUT-
051838,001977:                                                                                                  #  R1VEC    ERASE  +5
051839,001978:                                                                                                  #  R2VEC    ERASE  +5
051840,001979:                                                                                                  #  TDESIRED ERASE  +1
051841,001980:                                                                                                  #  GEOMSGN  ERASE  +0
051842,001981:                                                                                                  #  GUESSW                      0 IF COGA GUESS AVAILABLE, 1 IF NOT

Page 1198

051844,001983:                                                                                                  #  COGA     ERASE  +1          INPUT ONLY IF GUESSW IS ZERO.
051845,001984:                                                                                                  #  NORMSW                      0 IF UN TO BE COMPUTED, 1 IF UN INPUT
051846,001985:                                                                                                  #  UN       ERASE  +5          ONLY USED IF NORMSW IS 1
051847,001986:                                                                                                  #  VTARGTAG ERASE  +0
051848,001987:                                                                                                  #  TWEEKIT  EQUALS  40D        ONLY USED IF GUESSW IS 0
051849,001988: 
051850,001989:                                                                                                  #     OUTPUT -
051851,001990:                                                                                                  #  VTARGET  ERASE  +5          AVAILABLE ONLY IF VTARGTAG IS ZERO.
051852,001991:                                                                                                  #  V1VEC    EQUALS MPAC
051853,001992: 
051854,001993:                                                                                                  #     DEBRIS -
051855,001994:                                                                                                  #  RTNLAMB  ERASE  +0
051856,001995:                                                                                                  #  U2       ERASE  +5
051857,001996:                                                                                                  #  MAGVEC2  ERASE  +1
051858,001997:                                                                                                  #  UR1      ERASE  +5
051859,001998:                                                                                                  #  R1       EQUALS 31D
051860,001999:                                                                                                  #  UN       ERASE  +5
051861,002000:                                                                                                  #  SNTH     ERASE  +1
051862,002001:                                                                                                  #  CSTH     ERASE  +1
051863,002002:                                                                                                  #  1-CSTH   ERASE  +1
051864,002003:                                                                                                  #  CSTH-RHO ERASE  +1
051865,002004: 12,3741                        COGAMAX            EQUALS   14D                                   #  CLOBBERS 1/MU
051866,002005: 12,3741                        COGAMIN            EQUALS   8D                                    
051867,002006: 12,3741                        DCOGA              EQUALS   12D                                   
051868,002007:                                                                                                  #  TWEEKIT  EQUALS 40D
051869,002008:                                                                                                  #  P        ERASE  +1
051870,002009:                                                                                                  #  COGA     ERASE  +1
051871,002010:                                                                                                  #  R1A      ERASE  +1
051872,002011:                                                                                                  #  X        EQUALS 20D
051873,002012:                                                                                                  #  XSQ      EQUALS 22D
051874,002013:                                                                                                  #  XI       EQUALS 24D
051875,002014:                                                                                                  #  S(XI)    EQUALS 26D
051876,002015:                                                                                                  #  XSQC(XI) EQUALS 28D
051877,002016:                                                                                                  #  T        EQUALS 30D
051878,002017:                                                                                                  #  KEPC1    EQUALS 34D
051879,002018:                                                                                                  #  KEPC2    EQUALS 36D
051880,002019:                                                                                                  #  SLOPESW
051881,002020:                                                                                                  #  SOLNSW
051882,002021:                                                                                                  #  OTHERS -
051883,002022: 
051884,002023:                                                                                                  #  RVEC     EQUALS R1VEC
051885,002024:                                                                                                  #  VVEC     ERASE  +5
051886,002025:                                                                                                  #  COGAFLAG
051887,002026:                                                                                                  #  RVSW
051888,002027:                                                                                                  #  INFINFLG
051889,002028:                                                                                                  #  APSESW
051890,002029:                                                                                                  #  360SW
051891,002030:                                                                                                  #  RTNTT    EQUALS RTNLAMB
051892,002031:                                                                                                  #  ECC      ERASE  +1
051893,002032:                                                                                                  #  RTNTR    EQUALS RTNLAMB

Page 1199

051895,002034:                                                                                                  #  RTNAPSE  EQUALS RTNLAMB
051896,002035:                                                                                                  #  R2       EQUALS MAGVEC2
051897,002036: 12,3741                        COSF               EQUALS   24D                                   
051898,002037:                                                                                                  #  RTNPRM   ERASE  +0
051899,002038:                                                                                                  #  SGNRDOT  ERASE  +0
051900,002039:                                                                                                  #  RDESIRED ERASE  +1
051901,002040: 
051902,002041: 
051903,002042:                                                                                                  #  ITERATOR SUBROUTINE
051904,002043: 
051905,002044:                                                                                                  #  ORDERSW
051906,002045: 12,3741                        MAX                EQUALS   14D                                   #  CLOBBERS 1/MU
051907,002046: 12,3741                        MIN                EQUALS   8D                                    
051908,002047:                                                                                                  #  INDEP    ERASE  +1
051909,002048: 12,3741                        DELINDEP           EQUALS   12D                                   
051910,002049: 12,3741                        ITERCTR            EQUALS   22D                                   
051911,002050: 12,3741                        DEP                EQUALS   30D                                   
051912,002051:                                                                                                  #  DELDEP   ERASE  +1
051913,002052:                                                                                                  #  DEPREV   ERASE  +1
051914,002053: 12,3741                        TWEEKIT            EQUALS   40D                                   
051915,002054: 
051916,002055: 
051917,002056:                                                                                                  #  MORE KEPLER
051918,002057: 
051919,002058:                                                                                                  #  EPSILONT ERASE  +1
051920,002059: 
051921,002060: 
051922,002061:                                                                                                  #  MORE LAMBERT
051923,002062: 
051924,002063:                                                                                                  #  TERRLAMB EQUALS DELDEP
051925,002064:                                                                                                  #  TPREV    EQUALS DEPREV
051926,002065: 
051927,002066: 
051928,002067:                                                                                                  #  EPSILONL EQUALS EPSILONT +2     DOUBLE PRECISION WORD

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