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.

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

Page 1154

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

Page 1155

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

Page 1156

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

Page 1157

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

Page 1158

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

Page 1159

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

Page 1160

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

Page 1161

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

Page 1162

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

Page 1163

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

Page 1164

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

Page 1165

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

Page 1166

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

Page 1167

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

Page 1168

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

Page 1169

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

Page 1170

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

Page 1171

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

Page 1172

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

Page 1173

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

Page 1174

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

Page 1175

050863,001012: 12,2427           77615                           DAD                                            
050864,001013: 12,2430           02177                                    XMODULO                               
050865,001014: 12,2431           01553                           STORE    XPREV                                 
050866,001015: 12,2432           77650                           GOTO                                           
050867,001016: 12,2433           02112                                    KEPRTN                                
050868,001017: 

Page 1176

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

Page 1177

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

Page 1178

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

Page 1179

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

Page 1180

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

Page 1181

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

Page 1182

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

Page 1183

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

Page 1184

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

Page 1185

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

Page 1186

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

Page 1187

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

Page 1188

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

Page 1189

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

Page 1190

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

Page 1191

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

Page 1192

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

Page 1193

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

Page 1194

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

Page 1195

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

Page 1196

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

Page 1197

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

Page 1198

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

Page 1199

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

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