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.

049886,000002:                                                                                                  ## Copyright:   Public domain.
049887,000003:                                                                                                  ## Filename:    CONIC_SUBROUTINES.agc
049888,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
049889,000005:                                                                                                  ##              It is part of the source code for the original release
049890,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
049891,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
049892,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
049893,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
049894,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
049895,000011:                                                                                                  ##              that the code format has been changed to conform to the
049896,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
049897,000013:                                                                                                  ##              original YUL assembler.
049898,000014:                                                                                                  ## Reference:   pp. 1154-1199
049899,000015:                                                                                                  ## Assembler:   yaYUL
049900,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
049901,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049902,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
049903,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
049904,000020:                                                                                                  ##              2017-01-22 MAS  Updated for Luminary 69
049905,000021:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
049906,000022:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
049907,000023:                                                                                                  ##                              and fixed errors found.
049908,000024:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
049909,000025:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
049910,000026:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
049911,000027:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
049912,000028:                                                                                                  ##                              Luminary 99 vs Comanche 55.
049913,000029: 

Page 1154

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

Page 1155

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

Page 1156

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

Page 1157

050049,000165:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050050,000166:                                                                                                  #  --------*--------------*                         -----------------------
050051,000167:                                                                                                  #  URRECT  * +1           *DP UNIT VECTOR OF INITIAL POSITION
050052,000168:                                                                                                  #  R1      * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
050053,000169:                                                                                                  #          * +27 FOR MOON *
050054,000170:                                                                                                  #  ALPHA   * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
050055,000171:                                                                                                  #          * -20 FOR MOON *
050056,000172:                                                                                                  #  TMODULO * +28          *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
050057,000173:                                                                                                  #          *              *TAU. OF LESS THAN ONE PERIOD.
050058,000174: 
050059,000175:                                                                                                  #       PARAMETERS OF NO USE -
050060,000176:                                                                                                  #  DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
050061,000177: 
050062,000178: 

Page 1158

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

Page 1159

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

Page 1160

050165,000281:                                                                                                  #  OUTPUT -
050166,000282:                                                                                                  #          * SCALE FACTOR *
050167,000283:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050168,000284:                                                                                                  #  --------*--------------*                         -----------------------
050169,000285:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
050170,000286:                                                                                                  #          * +5 FOR MOON  *PROBLEM.
050171,000287:                                                                                                  #  VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
050172,000288:                                                                                                  #          * +5 FOR MOON  *
050173,000289:                                                                                                  #  SOLNSW  * NONE         *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
050174,000290:                                                                                                  #          *              *SOLUTION EXISTS.
050175,000291:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050176,000292: 
050177,000293: 
050178,000294: 
050179,000295:                                                                                                  #  DEBRIS -
050180,000296:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050181,000297: 
050182,000298:                                                                                                  #          * SCALE FACTOR *
050183,000299:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050184,000300:                                                                                                  #  --------*--------------*                         -----------------------
050185,000301:                                                                                                  #  SNTH    * +1           *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
050186,000302:                                                                                                  #  CSTH    * +1           *DP COSINE OF ANGLE
050187,000303:                                                                                                  #  1-CSTH  * +2           *DP 1-CSTH
050188,000304:                                                                                                  #  COGA    * +5           *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
050189,000305:                                                                                                  #  P       * +4           *DP RATIO  OF SEMILATUS RECTUM TO INITIAL RADIUS
050190,000306:                                                                                                  #  R1A     * +6           *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
050191,000307:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
050192,000308:                                                                                                  #          * +27 FOR MOON *
050193,000309:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF R1VEC
050194,000310:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF R2VEC
050195,000311: 
050196,000312:                                                                                                  #       PARAMETERS OF NO USE
050197,000313:                                                                                                  #  DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP),  PLUS PUSHLIST REGISTER 0 THROUGH 41D
050198,000314:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
050199,000315: 
050200,000316: 

Page 1161

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

Page 1162

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

Page 1163

050304,000420:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050305,000421:                                                                                                  #          * +27 FOR MOON *
050306,000422: 
050307,000423:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050308,000424: 
050309,000425: 
050310,000426: 
050311,000427:                                                                                                  #  DEBRIS -
050312,000428: 
050313,000429:                                                                                                  #       PARAMETERS WHICH MAY BE OF USE -
050314,000430: 
050315,000431:                                                                                                  #          * SCALE FACTOR *
050316,000432:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
050317,000433:                                                                                                  #  --------*--------------*                         -----------------------
050318,000434:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050319,000435:                                                                                                  #          * +27 FOR MOON *
050320,000436:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050321,000437:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
050322,000438:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050323,000439:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
050324,000440:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
050325,000441:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
050326,000442: 
050327,000443: 
050328,000444:                                                                                                  #       PARAMETERS OF NO USE -
050329,000445:                                                                                                  #  SP PARAMETERS -  RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050330,000446:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050331,000447: 
050332,000448: 

Page 1164

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

Page 1165

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

Page 1166

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

Page 1167

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

Page 1168

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

Page 1169

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

Page 1170

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

Page 1171

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

Page 1172

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

Page 1173

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

Page 1174

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

Page 1175

050896,001012: 12,2427           77615                           DAD                                            
050897,001013: 12,2430           02177                                    XMODULO                               
050898,001014: 12,2431           01553                           STORE    XPREV                                 
050899,001015: 12,2432           77650                           GOTO                                           
050900,001016: 12,2433           02112                                    KEPRTN                                
050901,001017: 

Page 1176

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

Page 1177

050954,001070: 12,2516           53605                           DMP      SRR*                                  #                               PL AT 0
050955,001071: 12,2517           00001                                    0D                                    
050956,001072: 12,2520           21574                                    0          -5,1                       
050957,001073: 12,2521           00035                           STORE    XSQC(XI)                              #  XSQC(XI) (+33 OR +31)
050958,001074: 12,2522           72405                           DMP      SL1                                   
050959,001075: 12,2523           00043                                    KEPC1                                 
050960,001076: 12,2524           65234                           RTB      PDDL                                  #  XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
050961,001077: 12,2525           21537                                    TPMODE                                #                               PL AT 0,3
050962,001078: 12,2526           53605                           DMP      SRR*                                  
050963,001079: 12,2527           00033                                    S(XI)                                 
050964,001080: 12,2530           21574                                    0          -5,1                       
050965,001081: 12,2531           72405                           DMP      SL1                                   
050966,001082: 12,2532           00045                                    KEPC2                                 
050967,001083: 12,2533           65234                           RTB      PDDL                                  #  3D=C2 XSQ S(XI) (+35 OR +33)  PL AT 6
050968,001084: 12,2534           21537                                    TPMODE                                
050969,001085: 12,2535           00041                                    R1                                    
050970,001086: 12,2536           76261                           SR       TAD                                   #                               PL AT 3
050971,001087: 12,2537           20607                                    6                                     
050972,001088: 12,2540           41301                           NORM     DMP                                   #  TO PRESERVE SIGNIF.
050973,001089: 12,2541           00047                                    X1                                    
050974,001090: 12,2542           00025                                    X                                     
050975,001091: 12,2543           76257                           SR*      TAD                                   #  X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
050976,001092: 12,2544           20576                                    0          -3,1                       
050977,001093: 12,2545           57232                           SL4R     DMPR                                  
050978,001094: 12,2546           00023                                    1/ROOTMU                              
050979,001095: 12,2547           00037                           STORE    T                                     
050980,001096: 12,2550           77616                           RVQ                                            
050981,001097: 

Page 1178

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

Page 1179

051034,001150: 12,2625           00017                                    MAX                                   
051035,001151: 12,2626           00051                                    TWEEKIT                               
051036,001152: 12,2627           77625                           DSU                                            
051037,001153: 12,2630           52165                           SIGN     GOTO                                  
051038,001154: 12,2631           02760                                    DELDEP                                
051039,001155: 12,2632           24575                                    SGNCHECK                              
051040,001156: 
051041,001157: 
051042,001158: 12,2633           43145        POSDEL             DLOAD    BON                                   
051043,001159: 12,2634           02766                                    INDEP                                 
051044,001160: 12,2635           04311                                    ORDERSW                               
051045,001161: 12,2636           24640                                    MAXCHECK                              
051046,001162: 12,2637           00011                           STORE    MIN                                   #  IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
051047,001163: 
051048,001164: 12,2640           45221        MAXCHECK           BDSU     DSU                                   
051049,001165: 12,2641           00017                                    MAX                                   
051050,001166: 12,2642           50000                           BOV      BMN                                   
051051,001167: 12,2643           24651                                    MODPSDEL                              
051052,001168: 12,2644           24651                                    MODPSDEL                              
051053,001169: 12,2645           77745        DELOK              DLOAD                                          
051054,001170: 12,2646           00001                                    0D                                    
051055,001171: 12,2647           00015        NEWDEL             STORE    DELINDEP                              
051056,001172: 12,2650           77616                           RVQ                                            
051057,001173: 
051058,001174: 
051059,001175: 12,2651           45345        MODPSDEL           DLOAD    DSU                                   
051060,001176: 12,2652           00017                                    MAX                                   
051061,001177: 12,2653           02766                                    INDEP                                 
051062,001178: 12,2654           52005                           DMP      GOTO                                  
051063,001179: 12,2655           10772                                    DP9/10                                
051064,001180: 12,2656           24647                                    NEWDEL                                
051065,001181: 
051066,001182: 
051067,001183: 12,2657           44753        CHECKCTR           CS       ONE                                   
051068,001184: 12,2660           50120                           INDEX    FIXLOC                                
051069,001185: 12,2661           60026                           AD       ITERCTR                               
051070,001186: 12,2662           50120                           INDEX    FIXLOC                                
051071,001187: 12,2663           54026                           TS       ITERCTR                               
051072,001188: 12,2664           54154                           TS       MPAC                                  
051073,001189: 12,2665           06060                           TC       DANZIG                                
051074,001190: 

Page 1180

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

Page 1181

051125,001241: 04,2000                                           SETLOC   CONICS1                               
051126,001242: 04,2000                                           BANK                                           
051127,001243: 
051128,001244: 04,2750                                           COUNT*   $$/CONIC                              
051129,001245:                                                                                                  #  DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
051130,001246: 04,2750           00000        BEE17              DEC      0          B-14                       #  KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
051131,001247: 04,2751           04000 00000  D1/8               2DEC     1.0        B-3                        
051132,001248: 
051133,001249: 04,2753           00200 00000  D1/128             2DEC     1.0        B-7                        
051134,001250: 
051135,001251: 04,2755           00400 00000  D1/64              2DEC     1.0        B-6                        
051136,001252: 
051137,001253: 04,2757           10000 00000  D1/4               2DEC     1.0        B-2                        
051138,001254: 
051139,001255: 04,2761           02000 00000  D1/16              2DEC     1.0        B-4                        
051140,001256: 
051141,001257: 04,2763           01000 00000  D1/32              2DEC     1.0        B-5                        
051142,001258: 
051143,001259: 04,2765           00020 00000  D1/1024            2DEC     1.0        B-10                       
051144,001260: 
051145,001261: 04,2767           00100 00000  D1/256             2DEC     1.0        B-8                        
051146,001262: 
051147,001263: 04,2771           34631 23146  DP9/10             2DEC     .9                                    
051148,001264: 
051149,001265: 04,2773  11,2274               KEPZERO            EQUALS   LO6ZEROS                              
051150,001266: 04,2773           77467 77777  -50SC              2DEC     -50.0      B-12                       
051151,001267: 
051152,001268: 04,2775           03110 17665  2PISC              2DEC     6.28318530 B-6                        
051153,001269: 
051154,001270: 04,2777  04,2762               BEE19              EQUALS   D1/32      -1                         #  2DEC 1.0 B-19 (00000 01000)
051155,001271: 04,2777  04,2766               BEE22              EQUALS   D1/256     -1                         #  2DEC 1.0 B-22 (00000 00100)
051156,001272: 04,2777           00000 00001  ONEBIT             2DEC     1.0        B-28                       
051157,001273: 
051158,001274: 04,3001           37767 37737  COGUPLIM           2DEC     .999511597                            
051159,001275: 
051160,001276: 04,3003           40010 40040  COGLOLIM           2DEC     -.999511597                            
051161,001277: 
051162,001278: 

Page 1182

051164,001280: 12,2000                                           SETLOC   CONICS                                
051165,001281: 12,2000                                           BANK                                           
051166,001282: 
051167,001283: 12,2745                                           COUNT*   $$/CONIC                              
051168,001284: 12,2745           40220        TIMETHET           STQ      SETPD                                 #                                PL AT 0
051169,001285: 12,2746           02710                                    RTNTT                                 
051170,001286: 12,2747           00001                                    0                                     
051171,001287: 12,2750           63375                           VLOAD    PDVL                                  #  SETUP FOR PARAM CALL          PL AT 6
051172,001288: 12,2751           02655                                    RVEC                                  
051173,001289: 12,2752           02744                                    VVEC                                  
051174,001290: 12,2753           77624                           CALL                                           
051175,001291: 12,2754           11005                                    PARAM                                 
051176,001292: 12,2755           45000                           BOV      CALL                                  #                                PL AT 0
051177,001293: 12,2756           24775                                    COGAOVFL                              
051178,001294: 12,2757           25000                                    GETX                                  
051179,001295: 12,2760           43145        COMMNOUT           DLOAD    BON                                   
051180,001296: 12,2761           00031                                    XI                                    
051181,001297: 12,2762           04310                                    INFINFLG                              
051182,001298: 12,2763           02710                                    RTNTT                                 
051183,001299: 12,2764           45014                           CLEAR    CALL                                  
051184,001300: 12,2765           04273                                    COGAFLAG                              
051185,001301: 12,2766           24434                                    DELTIME                               
051186,001302: 12,2767           45014                           BON      CALL                                  
051187,001303: 12,2770           03706                                    RVSW                                  
051188,001304: 12,2771           02710                                    RTNTT                                 
051189,001305: 12,2772           24666                                    NEWSTATE                              
051190,001306: 12,2773           77650                           GOTO                                           
051191,001307: 12,2774           02710                                    RTNTT                                 
051192,001308: 
051193,001309: 
051194,001310: 12,2775           77614        COGAOVFL           SETGO                                          
051195,001311: 12,2776           04033                                    COGAFLAG                              
051196,001312: 12,2777           02710                                    RTNTT                                 
051197,001313: 

Page 1183

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

Page 1184

051243,001359: 04,3051           77656        GEOM               UNIT                                           #  MPAC=V2VEC, 0D=R1VEC         PL AT 6
051244,001360: 04,3052           16712                           STODL    U2                                    #  U2 (+1)
051245,001361: 04,3053           00045                                    36D                                   
051246,001362: 04,3054           26720                           STOVL    MAGVEC2                               #                               PL AT 0
051247,001363: 04,3055           77656                           UNIT                                           
051248,001364: 04,3056           02722                           STORE    UR1                                   #  UR1 (+1)
051249,001365: 04,3057           72441                           DOT      SL1                                   
051250,001366: 04,3060           02712                                    U2                                    
051251,001367: 04,3061           77725                           PDDL                                           #  OD=CSTH (+1)                 PL AT 2
051252,001368: 04,3062           00045                                    36D                                   
051253,001369: 04,3063           24041                           STOVL    R1                                    #  R1 (+29 OR +27)
051254,001370: 04,3064           02722                                    UR1                                   
051255,001371: 04,3065           76435                           VXV      VSL1                                  
051256,001372: 04,3066           02712                                    U2                                    
051257,001373: 04,3067           75214                           BON      SIGN                                  
051258,001374: 04,3070           03705                                    NORMSW                                
051259,001375: 04,3071           11103                                    HAVENORM                              
051260,001376: 04,3072           02673                                    GEOMSGN                               
051261,001377: 04,3073           40056                           UNIT     BOV                                   
051262,001378: 04,3074           11101                                    COLINEAR                              
051263,001379: 04,3075           16674        UNITNORM           STODL    UN                                    #  UN (+1)
051264,001380: 04,3076           00045                                    36D                                   
051265,001381: 04,3077           43565                           SIGN     RVQ                                   #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051266,001382: 04,3100           02673                                    GEOMSGN                               
051267,001383: 
051268,001384: 
051269,001385: 04,3101           52162        COLINEAR           VSR1     GOTO                                  
051270,001386: 04,3102           11075                                    UNITNORM                              
051271,001387: 
051272,001388: 
051273,001389: 04,3103           75246        HAVENORM           ABVAL    SIGN                                  
051274,001390: 04,3104           02673                                    GEOMSGN                               
051275,001391: 04,3105           77616                           RVQ                                            #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051276,001392: 

Page 1185

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

Page 1186

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

Page 1187

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

Page 1188

051432,001548: 12,3205           25216                                    INFINITY                              
051433,001549: 12,3206           60366                           SQRT     NORM                                  
051434,001550: 12,3207           00047                                    X1                                    
051435,001551: 12,3210           53665                           BDDV     SL*                                   
051436,001552: 12,3211           10776                                    2PISC                                 
051437,001553: 12,3212           20176                                    0          -3,1                       
051438,001554: 12,3213           41425                           DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X          PL AT 0,2
051439,001555: 12,3214           77650                           GOTO                                           
051440,001556: 12,3215           25077                                    XCOMMON                               
051441,001557: 12,3216           40001        INFINITY           SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
051442,001558: 12,3217           00001                                    0                                     #  INFINITY IS REQUIRED
051443,001559: 12,3220           25221                                    OVFLCLR                               
051444,001560: 12,3221           43414        OVFLCLR            SET      RVQ                                   
051445,001561: 12,3222           04070                                    INFINFLG                              
051446,001562: 

Page 1189

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

Page 1190

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

Page 1191

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

Page 1192

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

Page 1193

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

Page 1194

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

Page 1195

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

Page 1196

051795,001911: 12,3716           00041                                    R1                                    
051796,001912: 12,3717           72405                           DMP      SL1                                   
051797,001913: 12,3720           02740                                    P                                     
051798,001914: 12,3721           77671                           DDV                                            #                                  PL AT 0
051799,001915: 12,3722           60325                           PDDL     NORM                                  #  0D=RP (+29 OR +27)              PL AT 2
051800,001916: 12,3723           02742                                    R1A                                   
051801,001917: 12,3724           00047                                    X1                                    
051802,001918: 12,3725           53725                           PDDL     SL*                                   #                                  PL AT 4
051803,001919: 12,3726           00041                                    R1                                    
051804,001920: 12,3727           20174                                    0          -5,1                       
051805,001921: 12,3730           45271                           DDV      DSU                                   #                                  PL AT 2,0
051806,001922: 12,3731           50000                           BOV      BMN                                   
051807,001923: 12,3732           25736                                    INFINAPO                              
051808,001924: 12,3733           25736                                    INFINAPO                              
051809,001925: 12,3734           77650                           GOTO                                           
051810,001926: 12,3735           02710                                    RTNAPSE                               
051811,001927: 12,3736           52145        INFINAPO           DLOAD    GOTO                                  #  RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
051812,001928: 12,3737           22306                                    LDPOSMAX                              
051813,001929: 12,3740           02710                                    RTNAPSE                               #  THAT PL IS AT 0.
051814,001930: 

Page 1197

051816,001932: 12,3741  11,2305               LDPOSMAX           EQUALS   LODPMAX                               #  DPPOSMAX IN LOW MEMORY.
051817,001933: 
051818,001934:                                                                                                  #  ERASABLE ASSIGNMENTS
051819,001935: 
051820,001936: 
051821,001937:                                                                                                  #  KEPLER SUBROUTINE
051822,001938: 
051823,001939:                                                                                                  #     INPUT -
051824,001940:                                                                                                  #  RRECT    ERASE  +5
051825,001941:                                                                                                  #  VRECT    ERASE  +5
051826,001942:                                                                                                  #  TAU.     ERASE  +1
051827,001943:                                                                                                  #  XKEP     ERASE  +1
051828,001944:                                                                                                  #  TC       ERASE  +1
051829,001945:                                                                                                  #  XPREV    ERASE  +1
051830,001946: 12,3741                        1/MU               EQUALS   14D                                   
051831,001947: 12,3741                        ROOTMU             EQUALS   16D                                   
051832,001948: 12,3741                        1/ROOTMU           EQUALS   18D                                   
051833,001949:                                                                                                  #     OUTPUT -
051834,001950:                                                                                                  #  RCV      ERASE  +5
051835,001951:                                                                                                  #  VCV      ERASE  +5
051836,001952:                                                                                                  #  RC       ERASE  +1
051837,001953:                                                                                                  #  XPREV    ERASE  +1
051838,001954: 
051839,001955:                                                                                                  #  DEBRIS -
051840,001956: 12,3741                        ALPHA              EQUALS   8D                                    
051841,001957: 12,3741                        XMAX               EQUALS   10D                                   
051842,001958: 12,3741                        XMIN               EQUALS   12D                                   
051843,001959: 12,3741                        X                  EQUALS   20D                                   
051844,001960: 12,3741                        XI                 EQUALS   24D                                   
051845,001961: 12,3741                        S(XI)              EQUALS   26D                                   
051846,001962: 12,3741                        XSQC(XI)           EQUALS   28D                                   
051847,001963: 12,3741                        T                  EQUALS   30D                                   
051848,001964: 12,3741                        R1                 EQUALS   32D                                   
051849,001965: 12,3741                        KEPC1              EQUALS   34D                                   
051850,001966: 12,3741                        KEPC2              EQUALS   36D                                   
051851,001967:                                                                                                  #  DELX     ERASE  +1
051852,001968:                                                                                                  #  DELT     ERASE  +1
051853,001969:                                                                                                  #  URRECT   ERASE  +5
051854,001970:                                                                                                  #  RCNORM   ERASE  +1
051855,001971:                                                                                                  #  XPREV    EQUALS XKEP
051856,001972: 
051857,001973: 
051858,001974:                                                                                                  #  LAMBERT SUBROUTINE
051859,001975: 
051860,001976:                                                                                                  #     INPUT-
051861,001977:                                                                                                  #  R1VEC    ERASE  +5
051862,001978:                                                                                                  #  R2VEC    ERASE  +5
051863,001979:                                                                                                  #  TDESIRED ERASE  +1
051864,001980:                                                                                                  #  GEOMSGN  ERASE  +0
051865,001981:                                                                                                  #  GUESSW                      0 IF COGA GUESS AVAILABLE, 1 IF NOT

Page 1198

051867,001983:                                                                                                  #  COGA     ERASE  +1          INPUT ONLY IF GUESSW IS ZERO.
051868,001984:                                                                                                  #  NORMSW                      0 IF UN TO BE COMPUTED, 1 IF UN INPUT
051869,001985:                                                                                                  #  UN       ERASE  +5          ONLY USED IF NORMSW IS 1
051870,001986:                                                                                                  #  VTARGTAG ERASE  +0
051871,001987:                                                                                                  #  TWEEKIT  EQUALS  40D        ONLY USED IF GUESSW IS 0
051872,001988: 
051873,001989:                                                                                                  #     OUTPUT -
051874,001990:                                                                                                  #  VTARGET  ERASE  +5          AVAILABLE ONLY IF VTARGTAG IS ZERO.
051875,001991:                                                                                                  #  V1VEC    EQUALS MPAC
051876,001992: 
051877,001993:                                                                                                  #     DEBRIS -
051878,001994:                                                                                                  #  RTNLAMB  ERASE  +0
051879,001995:                                                                                                  #  U2       ERASE  +5
051880,001996:                                                                                                  #  MAGVEC2  ERASE  +1
051881,001997:                                                                                                  #  UR1      ERASE  +5
051882,001998:                                                                                                  #  R1       EQUALS 31D
051883,001999:                                                                                                  #  UN       ERASE  +5
051884,002000:                                                                                                  #  SNTH     ERASE  +1
051885,002001:                                                                                                  #  CSTH     ERASE  +1
051886,002002:                                                                                                  #  1-CSTH   ERASE  +1
051887,002003:                                                                                                  #  CSTH-RHO ERASE  +1
051888,002004: 12,3741                        COGAMAX            EQUALS   14D                                   #  CLOBBERS 1/MU
051889,002005: 12,3741                        COGAMIN            EQUALS   8D                                    
051890,002006: 12,3741                        DCOGA              EQUALS   12D                                   
051891,002007:                                                                                                  #  TWEEKIT  EQUALS 40D
051892,002008:                                                                                                  #  P        ERASE  +1
051893,002009:                                                                                                  #  COGA     ERASE  +1
051894,002010:                                                                                                  #  R1A      ERASE  +1
051895,002011:                                                                                                  #  X        EQUALS 20D
051896,002012:                                                                                                  #  XSQ      EQUALS 22D
051897,002013:                                                                                                  #  XI       EQUALS 24D
051898,002014:                                                                                                  #  S(XI)    EQUALS 26D
051899,002015:                                                                                                  #  XSQC(XI) EQUALS 28D
051900,002016:                                                                                                  #  T        EQUALS 30D
051901,002017:                                                                                                  #  KEPC1    EQUALS 34D
051902,002018:                                                                                                  #  KEPC2    EQUALS 36D
051903,002019:                                                                                                  #  SLOPESW
051904,002020:                                                                                                  #  SOLNSW
051905,002021:                                                                                                  #  OTHERS -
051906,002022: 
051907,002023:                                                                                                  #  RVEC     EQUALS R1VEC
051908,002024:                                                                                                  #  VVEC     ERASE  +5
051909,002025:                                                                                                  #  COGAFLAG
051910,002026:                                                                                                  #  RVSW
051911,002027:                                                                                                  #  INFINFLG
051912,002028:                                                                                                  #  APSESW
051913,002029:                                                                                                  #  360SW
051914,002030:                                                                                                  #  RTNTT    EQUALS RTNLAMB
051915,002031:                                                                                                  #  ECC      ERASE  +1
051916,002032:                                                                                                  #  RTNTR    EQUALS RTNLAMB

Page 1199

051918,002034:                                                                                                  #  RTNAPSE  EQUALS RTNLAMB
051919,002035:                                                                                                  #  R2       EQUALS MAGVEC2
051920,002036: 12,3741                        COSF               EQUALS   24D                                   
051921,002037:                                                                                                  #  RTNPRM   ERASE  +0
051922,002038:                                                                                                  #  SGNRDOT  ERASE  +0
051923,002039:                                                                                                  #  RDESIRED ERASE  +1
051924,002040: 
051925,002041: 
051926,002042:                                                                                                  #  ITERATOR SUBROUTINE
051927,002043: 
051928,002044:                                                                                                  #  ORDERSW
051929,002045: 12,3741                        MAX                EQUALS   14D                                   #  CLOBBERS 1/MU
051930,002046: 12,3741                        MIN                EQUALS   8D                                    
051931,002047:                                                                                                  #  INDEP    ERASE  +1
051932,002048: 12,3741                        DELINDEP           EQUALS   12D                                   
051933,002049: 12,3741                        ITERCTR            EQUALS   22D                                   
051934,002050: 12,3741                        DEP                EQUALS   30D                                   
051935,002051:                                                                                                  #  DELDEP   ERASE  +1
051936,002052:                                                                                                  #  DEPREV   ERASE  +1
051937,002053: 12,3741                        TWEEKIT            EQUALS   40D                                   
051938,002054: 
051939,002055: 
051940,002056:                                                                                                  #  MORE KEPLER
051941,002057: 
051942,002058:                                                                                                  #  EPSILONT ERASE  +1
051943,002059: 
051944,002060: 
051945,002061:                                                                                                  #  MORE LAMBERT
051946,002062: 
051947,002063:                                                                                                  #  TERRLAMB EQUALS DELDEP
051948,002064:                                                                                                  #  TPREV    EQUALS DEPREV
051949,002065: 
051950,002066: 
051951,002067:                                                                                                  #  EPSILONL EQUALS EPSILONT +2     DOUBLE PRECISION WORD

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