Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

054070,000002:                                                                                                  ## Copyright:   Public domain.
054071,000003:                                                                                                  ## Filename:    CONIC_SUBROUTINES.agc
054072,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
054073,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
054074,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
054075,000007:                                                                                                  ##              Apollo 15-17.
054076,000008:                                                                                                  ## Assembler:   yaYUL
054077,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
054078,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
054079,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
054080,000012:                                                                                                  ## Mod history: 2009-09-03 SN   Adapted from corresponding Comanche 055 file.
054081,000013:                                                                                                  ##              2009-09-04 JL   Fixed typos. Fixed page comment.
054082,000014:                                                                                                  ##              2009-09-05 JL   Fixed typos.
054083,000015:                                                                                                  ##              2009-09-09 JL   Fixed typos.
054084,000016:                                                                                                  ##              2010-02-08 JL   Fixed SETLOC on p1289.
054085,000017:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
054086,000018:                                                                                                  ##              2017-01-21 RSB  Proofed comment text by diff'ing vs Comanche 55
054087,000019:                                                                                                  ##                              and corrected errors found.
054088,000020:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH and WHCIH -> WHICH.
054089,000021:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
054090,000022:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
054091,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
054092,000024: 

Page 1262

054094,000026: 
054095,000027:                                                                                                  #  PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION                     DATE - 1 SEPTEMBER 1967
054096,000028:                                                                                                  #  MOD NO. - 0                                                                   LOG SECTION - CONIC SUBROUTINES
054097,000029:                                                                                                  #  MOD BY KRAUSE                                                                 ASSEMBLY - COLOSSUS REVISION 88
054098,000030: 
054099,000031: 
054100,000032: 
054101,000033:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054102,000034: 
054103,000035:                                                                                                  #        THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
054104,000036:                                                                                                  #  INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
054105,000037:                                                                                                  #  5.5.1.2.  A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
054106,000038:                                                                                                  #  RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE.  THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
054107,000039:                                                                                                  #  INVOLVING ANY REALISTIC SET OF CONSTRAINTS.  IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
054108,000040:                                                                                                  #  EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
054109,000041:                                                                                                  #  THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
054110,000042:                                                                                                  #  DEFINITION MEMO NO. 10.  THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
054111,000043:                                                                                                  #  TINES APPROPRIATELY.
054112,000044: 
054113,000045:                                                                                                  #        DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
054114,000046:                                                                                                  #  BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE.  AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
054115,000047:                                                                                                  #  DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
054116,000048: 
054117,000049: 
054118,000050:                                                                                                  #  RESTRICTIONS -
054119,000051: 
054120,000052:                                                                                                  #        THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
054121,000053:                                                                                                  #  LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP.  THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
054122,000054:                                                                                                  #  TORIES COULD BE HANDLED.
054123,000055:                                                                                                  #        SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
054124,000056:                                                                                                  #  THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
054125,000057:                                                                                                  #  TO INTERRUPT EACH OTHER.  IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
054126,000058: 

Page 1263

054128,000060: 
054129,000061:                                                                                                  #  PROGRAM DESCRIPTION - KEPLER SUBROUTINE                               DATE - 11 OCTOBER 1967
054130,000062:                                                                                                  #  MOD NO. -1                                                                    LOG SECTION - CONIC SUBROUTINES
054131,000063:                                                                                                  #  MOD BY KRAUSE                                                         ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
054132,000064:                                                                                                  #  MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
054133,000065: 
054134,000066: 
054135,000067:                                                                                                  #  MOD NO. - 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
054136,000068: 
054137,000069: 
054138,000070:                                                                                                  #  MOD. NO. - 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
054139,000071: 
054140,000072: 
054141,000073:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054142,000074:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
054143,000075:                                                                                                  #  BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR.  THE TRAJECTORY MAY BE ANY CONIC
054144,000076:                                                                                                  #  SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
054145,000077:                                                                                                  #  USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
054146,000078:                                                                                                  #  INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERA-
054147,000079:                                                                                                  #  TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
054148,000080:                                                                                                  #        IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
054149,000081:                                                                                                  #  EXTRAPOLATING THE POSITION BACKWARD IN TIME.
054150,000082:                                                                                                  #        IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A 
054151,000083:                                                                                                  #  MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
054152,000084: 
054153,000085: 
054154,000086:                                                                                                  #  THE RESTRICTIONS ARE -
054155,000087:                                                                                                  #        1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
054156,000088:                                                                                                  #        2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP.  IF
054157,000089:                                                                                                  #  ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054158,000090: 
054159,000091: 
054160,000092:                                                                                                  #        THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
054161,000093:                                                                                                  #  GUESS, XKFPNEW.  THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
054162,000094:                                                                                                  #  FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
054163,000095: 
054164,000096: 
054165,000097: 
054166,000098:                                                                                                  #  REFERENCES -
054167,000099:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
054168,000100:                                                                                                  #  MEMO 67-4.
054169,000101: 
054170,000102: 
054171,000103: 
054172,000104:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054173,000105: 
054174,000106:                                                                                                  #          * SCALE FACTOR *
054175,000107:                                                                                                  #  VARIABLE*IN POWERS OF 2*              DESCRIPTION AND REMARKS
054176,000108:                                                                                                  #  --------*--------------*              -----------------------
054177,000109:                                                                                                  #  RRECT   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054178,000110:                                                                                                  #          * +27 FOR MOON *

Page 1264

054180,000112:                                                                                                  #  VRECT   * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054181,000113:                                                                                                  #          * +5 FOR MOON  *
054182,000114:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054183,000115:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
054184,000116:                                                                                                  #  TAU.    * +28          *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
054185,000117:                                                                                                  #          *              *    MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
054186,000118:                                                                                                  #  XKEPNEW * +17 FOR EARTH*DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
054187,000119:                                                                                                  #          * +16 FOR MOON *    AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
054188,000120:                                                                                                  #          *              *    MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
054189,000121:                                                                                                  #          *              *    BY KEPLER TO A POOR BUT VALID GUESS.
054190,000122:                                                                                                  #  TC      * +28          *DP PREV. VALUE OF TIME IN CENTISECS.  MUST BE LESS THAN ONE ORBITAL PERIOD.
054191,000123:                                                                                                  #  XPREV   * +17 FOR EARTH*DP PREV. VALUE OF X IN SQRT(METERS).  MUST BE LESS THAN AN X CORRESPONDING TO ONE
054192,000124:                                                                                                  #          * +16 FOR MOON *    ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
054193,000125: 
054194,000126: 
054195,000127: 
054196,000128:                                                                                                  #  SUBROUTINES CALLED -
054197,000129:                                                                                                  #        DELTIME
054198,000130: 
054199,000131: 
054200,000132: 
054201,000133:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054202,000134: 
054203,000135:                                                                                                  #  KEPRTN-2      GOTO                    MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054204,000136:                                                                                                  #  KEPRTN-1              KEPLER          RETURNS WITH XPREV IN MPAC. PL IS AT 0.
054205,000137:                                                                                                  #  KEPRTN        ...                     CONTINUE
054206,000138: 
054207,000139:                                                                                                  #  KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
054208,000140:                                                                                                  #  THE INTERRUPTED JOB.  THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
054209,000141:                                                                                                  #  ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
054210,000142: 
054211,000143: 
054212,000144: 
054213,000145:                                                                                                  #  ABORT EXIT MODES -
054214,000146:                                                                                                  #        NONE
054215,000147: 
054216,000148: 
054217,000149:                                                                                                  #  OUTPUT -
054218,000150: 
054219,000151:                                                                                                  #          * SCALE FACTOR *
054220,000152:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054221,000153:                                                                                                  #  --------*--------------*                      -----------------------
054222,000154:                                                                                                  #  RCV     * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
054223,000155:                                                                                                  #          * +27 FOR MOON *
054224,000156:                                                                                                  #  VCV     * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
054225,000157:                                                                                                  #          * +5 FOR MOON  *
054226,000158:                                                                                                  #  TC      * +28          *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
054227,000159:                                                                                                  #  XPREV   * +17 FOR EARTH*DP VALUE OF X IN SQRT(METERS) TO WHCIH KEPLER CONVERGED. ALWAYS LESS THAN THE X
054228,000160:                                                                                                  #          * +16 FOR MOON *    CORRESPONDING TO ONE PERIOD.

Page 1265

054230,000162:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054231,000163: 
054232,000164: 
054233,000165:                                                                                                  #  DEBRIS -
054234,000166: 
054235,000167:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054236,000168: 
054237,000169:                                                                                                  #          * SCALE FACTOR *
054238,000170:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054239,000171:                                                                                                  #  --------*--------------*                      -----------------------
054240,000172:                                                                                                  #  URRECT  * +1           *DP UNIT VECTOR OF INITIAL POSITION
054241,000173:                                                                                                  #  R1      * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
054242,000174:                                                                                                  #          * +27 FOR MOON *
054243,000175:                                                                                                  #  ALPHA   * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
054244,000176:                                                                                                  #          * -20 FOR MOON *
054245,000177:                                                                                                  #  TMODULO * +28          *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
054246,000178:                                                                                                  #          *              *TAU. OF LESS THAN ONE PERIOD.
054247,000179: 
054248,000180:                                                                                                  #        PARAMETERS OF NO USE -
054249,000181:                                                                                                  #  DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
054250,000182: 

Page 1266

054252,000184: 
054253,000185:                                                                                                  #  PROGRAM DESCRIPTION - LAMBERT SUBROUTINE                                      DATE - 1 SEPTEMBER 1967
054254,000186:                                                                                                  #  MOD NO. - 0                                                                   LOG SECTION - CONIC SUBROUTINES
054255,000187:                                                                                                  #  MOD BY KRAUSE                                                                 ASSEMBLY - COLOSSUS REVISION 88
054256,000188: 
054257,000189: 
054258,000190: 
054259,000191:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054260,000192: 
054261,000193:                                                                                                  #        THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
054262,000194:                                                                                                  #  FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL.  THE RESULTING TRAJECTORY MAY BE
054263,000195:                                                                                                  #  A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE
054264,000196:                                                                                                  #  SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
054265,000197:                                                                                                  #  CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERATION TECHNIQUE IS
054266,000198:                                                                                                  #  UTILIZED IN THE COMPUTATION.
054267,000199: 
054268,000200: 
054269,000201:                                                                                                  #  THE RESTRICTIONS ARE -
054270,000202:                                                                                                  #        1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
054271,000203:                                                                                                  #        2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
054272,000204:                                                                                                  #        3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054273,000205:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
054274,000206:                                                                                                  #        4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
054275,000207:                                                                                                  #        5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE
054276,000208:                                                                                                  #  LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054277,000209:                                                                                                  #        THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
054278,000210:                                                                                                  #  GUESS OF THE INDEPENDENT VARIABLE, COGA.                                THE AGC COMPUTATION TIME IS APPROXIMATE-
054279,000211:                                                                                                  #  LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
054280,000212: 
054281,000213: 
054282,000214: 
054283,000215:                                                                                                  #  REFERENCES -
054284,000216:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
054285,000217:                                                                                                  #  SGA MEMO 67-4.
054286,000218: 
054287,000219: 
054288,000220: 
054289,000221:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054290,000222: 
054291,000223:                                                                                                  #          * SCALE FACTOR *
054292,000224:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054293,000225:                                                                                                  #  --------*--------------*                         -----------------------
054294,000226:                                                                                                  #  R1VEC   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054295,000227:                                                                                                  #          * +27 FOR MOON *
054296,000228:                                                                                                  #  R2VEC   * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
054297,000229:                                                                                                  #          * +27 FOR MOON *
054298,000230:                                                                                                  #  TDESIRED* +28          *DP DESIRED TRANSFER TIME IN CENTISECONDS
054299,000231:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054300,000232:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
054301,000233:                                                                                                  #  GEOMSGN * NONE         *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
054302,000234:                                                                                                  #  GUESSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF

Page 1267

054304,000236:                                                                                                  #          *              *COGA IS TO BE USED BY LAMBERT
054305,000237:                                                                                                  #  COGA    * +5           *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL).  THIS WILL BE
054306,000238:                                                                                                  #                         *IGNORED IF GUESSW IS SET.
054307,000239:                                                                                                  #  NORMSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
054308,000240:                                                                                                  #          *              *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
054309,000241:                                                                                                  #  UN      * +1           *DP UNIT  NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
054310,000242:                                                                                                  #          *              *MOMENTUM VECTOR.  THIS WILL BE IGNORED IF NORMSW IS CLEAR.
054311,000243:                                                                                                  #  VTARGTAG* NONE         *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
054312,000244:                                                                                                  #          *              *AT R1VEC.
054313,000245: 
054314,000246: 
054315,000247: 
054316,000248:                                                                                                  #  SUBROUTINES CALLED -
054317,000249:                                                                                                  #        GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
054318,000250: 
054319,000251: 
054320,000252: 
054321,000253:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054322,000254: 
054323,000255:                                                                                                  #  L     CALL                    MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054324,000256:                                                                                                  #  L+1           LAMBERT         RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
054325,000257:                                                                                                  #                                IN MPAC IF VTARGTAG WAS ZERO
054326,000258:                                                                                                  #  L+2   BON                     CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
054327,000259:                                                                                                  #  L+3           SOLNSW
054328,000260:                                                                                                  #  L+4           LAMABORT
054329,000261: 
054330,000262:                                                                                                  #        IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
054331,000263:                                                                                                  #  GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
054332,000264: 
054333,000265: 
054334,000266: 
054335,000267:                                                                                                  #  ABORT EXIT MODES -
054336,000268:                                                                                                  #        IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
054337,000269:                                                                                                  #  WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC.  IN EITHER CASE THE FIX MUST BE MADE
054338,000270:                                                                                                  #  ACCORDING TO THE NEEDS OF THE PARTICULAR USER.  THE ABORT EXIT MODE MAY BE CODED AS ...
054339,000271:                                                                                                  #  LAMABORT      DLOAD   ABS             A MEASURE OF PROXIMITY TO 0 OR
054340,000272:                                                                                                  #                        1-CSTH          360 DEGREES.
054341,000273:                                                                                                  #                DSU     BMN
054342,000274:                                                                                                  #                        ONEBIT
054343,000275:                                                                                                  #                        CHANGER2        CHANGE R2VEC DIRECTION SLIGHTLY.
054344,000276:                                                                                                  #                DLOAD   DAD
054345,000277:                                                                                                  #                        TDESIRED
054346,000278:                                                                                                  #                        SOMETIME
054347,000279:                                                                                                  #                STCALL  TDESIRED        INCREASE TDESIRED
054348,000280:                                                                                                  #                        LAMBERT
054349,000281: 
054350,000282: 
054351,000283: 
054352,000284:                                                                                                  #  OUTPUT -
054353,000285:                                                                                                  #          * SCALE FACTOR *
054354,000286:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS

Page 1268

054356,000288:                                                                                                  #  --------*--------------*                      -----------------------
054357,000289:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
054358,000290:                                                                                                  #          * +5 FOR MOON  *PROBLEM.
054359,000291:                                                                                                  #  VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
054360,000292:                                                                                                  #          * +5 FOR MOON  *
054361,000293:                                                                                                  #  SOLNSW  * NONE         *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
054362,000294:                                                                                                  #          *              *SOLUTION EXISTS.
054363,000295:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054364,000296: 
054365,000297: 
054366,000298: 
054367,000299:                                                                                                  #  DEBRIS -
054368,000300:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054369,000301: 
054370,000302:                                                                                                  #          * SCALE FACTOR *
054371,000303:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054372,000304:                                                                                                  #  --------*--------------*                      -----------------------
054373,000305:                                                                                                  #  SNTH    * +1           *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
054374,000306:                                                                                                  #  CSTH    * +1           *DP COSINE OF ANGLE
054375,000307:                                                                                                  #  1-CSTH  * +2           *DP 1-CSTH
054376,000308:                                                                                                  #  COGA    * +5           *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
054377,000309:                                                                                                  #  P       * +4           *DP RATIO  OF SEMILATUS RECTUM TO INITIAL RADIUS
054378,000310:                                                                                                  #  R1A     * +6           *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
054379,000311:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
054380,000312:                                                                                                  #          * +27 FOR MOON *
054381,000313:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF R1VEC
054382,000314:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF R2VEC
054383,000315: 
054384,000316:                                                                                                  #        PARAMETERS OF NO USE
054385,000317:                                                                                                  #  DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
054386,000318:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
054387,000319: 
054388,000320: 

Page 1269

054390,000322: 
054391,000323:                                                                                                  #  PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE                                   DATE - 1 SEPTEMBER 1967
054392,000324:                                                                                                  #  MOD NO. - 0                                                                   LOG SECTION - CONIC SUBROUTINES
054393,000325:                                                                                                  #  MOD BY KRAUSE                                                                 ASSEMBLY - COLOSSUS REVISION 88
054394,000326: 
054395,000327: 
054396,000328: 
054397,000329:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054398,000330: 
054399,000331:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
054400,000332:                                                                                                  #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
054401,000333:                                                                                                  #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
054402,000334:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
054403,000335:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054404,000336:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054405,000337: 
054406,000338: 
054407,000339:                                                                                                  #  THE RESTRICTIONS ARE -
054408,000340:                                                                                                  #        1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054409,000341:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
054410,000342:                                                                                                  #        2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
054411,000343:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054412,000344: 
054413,000345:                                                                                                  #        THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
054414,000346: 
054415,000347: 
054416,000348:                                                                                                  #  REFERENCES -
054417,000349:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
054418,000350: 
054419,000351: 
054420,000352:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054421,000353: 
054422,000354:                                                                                                  #          * SCALE FACTOR *
054423,000355:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054424,000356:                                                                                                  #  --------*--------------*                      -----------------------
054425,000357:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054426,000358:                                                                                                  #          * +27 FOR MOON *
054427,000359:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054428,000360:                                                                                                  #          * +5 FOR MOON  *
054429,000361:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
054430,000362:                                                                                                  #  CSTH    * +1           *DP COSINE OF THE ANGLE
054431,000363:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
054432,000364:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
054433,000365:                                                                                                  #  X1 (38D)*NONE          *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054434,000366:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
054435,000367: 
054436,000368: 
054437,000369: 
054438,000370:                                                                                                  #  SUBROUTINES CALLED -

Page 1270

054440,000372:                                                                                                  #        PARAM, GEOM, GETX, DELTIME, NEWSTATE
054441,000373: 
054442,000374: 
054443,000375: 
054444,000376:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054445,000377: 
054446,000378:                                                                                                  #        IF ONLY TIME IS DESIRED AS OUTPUT -
054447,000379:                                                                                                  #  L     SET     CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054448,000380:                                                                                                  #  L+1           RVSW
054449,000381:                                                                                                  #  L+2           TIMETHET        RETURN WITH PL AT 0 AND T IN MPAC
054450,000382:                                                                                                  #  L+3   ...                     CONTINUE
054451,000383: 
054452,000384: 
054453,000385:                                                                                                  #        IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
054454,000386:                                                                                                  #  L     CLEAR   CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054455,000387:                                                                                                  #  L+1           RVSW
054456,000388:                                                                                                  #  L+2           TIMETHET        RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
054457,000389:                                                                                                  #                                THE INITIAL VELOCITY VECTOR IN MPAC.
054458,000390:                                                                                                  #  L+3   STOVL   NEWVVEC
054459,000391:                                                                                                  #  L+4   STADR
054460,000392:                                                                                                  #  L+5   STORE   NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
054461,000393:                                                                                                  #  L+6   ...                             CONTINUE
054462,000394: 
054463,000395: 
054464,000396: 
054465,000397:                                                                                                  #  ABORT EXIT MODES -
054466,000398:                                                                                                  #        IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
054467,000399:                                                                                                  #        AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
054468,000400: 
054469,000401: 
054470,000402: 
054471,000403:                                                                                                  #  OUTPUT -
054472,000404:                                                                                                  #          * SCALE FACTOR *
054473,000405:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054474,000406:                                                                                                  #  --------*--------------*                      -----------------------
054475,000407:                                                                                                  #  T(30D)  * +28          *DP TRANSFER TIME IN CENTISECONDS
054476,000408:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
054477,000409:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
054478,000410:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
054479,000411:                                                                                                  #          *              *CLEAR IF NOT.
054480,000412: 
054481,000413:                                                                                                  #  IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
054482,000414: 
054483,000415:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
054484,000416:                                                                                                  #   MPAC +5* +5 FOR MOON  *
054485,000417:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
054486,000418:                                                                                                  #          * +27 FOR MOON *
054487,000419: 
054488,000420:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054489,000421: 

Page 1271

054491,000423: 
054492,000424:                                                                                                  #  DEBRIS -
054493,000425: 
054494,000426:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054495,000427: 
054496,000428:                                                                                                  #          * SCALE FACTOR *
054497,000429:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054498,000430:                                                                                                  #  --------*--------------*                      -----------------------
054499,000431:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054500,000432:                                                                                                  #          * +27 FOR MOON *
054501,000433:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054502,000434:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
054503,000435:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054504,000436:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
054505,000437:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
054506,000438:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
054507,000439: 
054508,000440:                                                                                                  #        PARAMETERS OF NO USE -
054509,000441:                                                                                                  #  SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
054510,000442:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
054511,000443: 
054512,000444: 

Page 1272

054514,000446: 
054515,000447:                                                                                                  #  PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE                          DATE - 11 OCTOBER 1967
054516,000448:                                                                                                  #  MOD NO. -1                                                                    LOG SECTION - CONIC SUBROUTINES
054517,000449:                                                                                                  #  MOD BY KRAUSE                                                                 ASSEMBLY - COLOSSUS REVISION 88
054518,000450: 
054519,000451: 
054520,000452: 
054521,000453:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054522,000454: 
054523,000455:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
054524,000456:                                                                                                  #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
054525,000457:                                                                                                  #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
054526,000458:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
054527,000459:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054528,000460:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054529,000461:                                                                                                  #        IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
054530,000462:                                                                                                  #  APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
054531,000463: 
054532,000464: 
054533,000465:                                                                                                  #  THE RESTRICTIONS ARE -
054534,000466:                                                                                                  #        1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054535,000467:                                                                                                  #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
054536,000468:                                                                                                  #        2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
054537,000469:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054538,000470:                                                                                                  #        3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
054539,000471:                                                                                                  #  RDESIRED INCREASE.  THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR.  IN
054540,000472:                                                                                                  #  PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
054541,000473: 
054542,000474: 
054543,000475:                                                                                                  #        THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
054544,000476: 
054545,000477: 
054546,000478: 
054547,000479:                                                                                                  #  REFERENCES -
054548,000480:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
054549,000481: 
054550,000482: 
054551,000483: 
054552,000484:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054553,000485: 
054554,000486:                                                                                                  #          * SCALE FACTOR *
054555,000487:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054556,000488:                                                                                                  #  --------*--------------*                      -----------------------
054557,000489:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054558,000490:                                                                                                  #          * +27 FOR MOON *
054559,000491:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054560,000492:                                                                                                  #          * +5 FOR MOON  *
054561,000493:                                                                                                  #  RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
054562,000494:                                                                                                  #          * +27 FOR MOON *COMPUTED.
054563,000495:                                                                                                  #  SGNRDOT * NONE         *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
054564,000496:                                                                                                  #          *              *POSITIVE OR NEGATIVE, RESPECTIVELY.   THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A

Page 1273

054566,000498:                                                                                                  #          *              *SINGLE-VALUED PROBLEM.
054567,000499:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054568,000500:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
054569,000501:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
054570,000502:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
054571,000503: 
054572,000504: 
054573,000505: 
054574,000506:                                                                                                  #  SUBROUTINES CALLED -
054575,000507:                                                                                                  #        PARAM, GEOM, GETX, DELTIME, NEWSTATE
054576,000508: 
054577,000509: 
054578,000510: 
054579,000511:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054580,000512: 
054581,000513:                                                                                                  #        IF ONLY TIME IS DESIRED AS OUTPUT -
054582,000514:                                                                                                  #  L     SET     CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054583,000515:                                                                                                  #  L+1           RVSW
054584,000516:                                                                                                  #  L+2           TIMERAD         RETURN WITH PL AT 0 AND T IN MPAC
054585,000517:                                                                                                  #  L+3   ...                     CONTINUE
054586,000518: 
054587,000519:                                                                                                  #        IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
054588,000520:                                                                                                  #  L     CLEAR   CALL            MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054589,000521:                                                                                                  #  L+1           RVSW
054590,000522:                                                                                                  #  L+2           TIMERAD         RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
054591,000523:                                                                                                  #                                THE INITIAL VELOCITY VECTOR IN MPAC.
054592,000524:                                                                                                  #  L+3   STOVL   NEWVVEC
054593,000525:                                                                                                  #  L+4   STADR
054594,000526:                                                                                                  #  L+5   STORE   NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
054595,000527:                                                                                                  #  L+6   ...                             CONTINUE
054596,000528: 
054597,000529: 
054598,000530: 
054599,000531:                                                                                                  #  ABORT EXIT MODES -
054600,000532:                                                                                                  #        IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
054601,000533:                                                                                                  #        TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
054602,000534: 
054603,000535: 
054604,000536: 
054605,000537:                                                                                                  #  OUTPUT -
054606,000538:                                                                                                  #          * SCALE FACTOR *
054607,000539:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054608,000540:                                                                                                  #  --------*--------------*                      -----------------------
054609,000541:                                                                                                  #  T (30D) * +28          *DP TRANSFER TIME IN CENTISECONDS
054610,000542:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
054611,000543:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
054612,000544:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
054613,000545:                                                                                                  #          *              *CLEAR IF NOT.
054614,000546:                                                                                                  #  APSESW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR

Page 1274

054616,000548:                                                                                                  #          *              *LESS THAN RADIUS OF PERICENTER.  THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
054617,000549:                                                                                                  #          *              *WILL THEN BE RETURNED.  THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
054618,000550:                                                                                                  #          *              *APOCENTER.
054619,000551:                                                                                                  #  SOLNSW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
054620,000552:                                                                                                  #                         *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3.  IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
054621,000553:                                                                                                  #                         *MINUS-18, THE SWITCH IS CLEAR.
054622,000554: 
054623,000555: 
054624,000556:                                                                                                  #  IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
054625,000557: 
054626,000558:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
054627,000559:                                                                                                  #   MPAC +5* +5 FOR MOON  *
054628,000560:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
054629,000561:                                                                                                  #          * +27 FOR MOON *
054630,000562: 
054631,000563:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054632,000564: 
054633,000565: 
054634,000566: 
054635,000567:                                                                                                  #  DEBRIS -
054636,000568: 
054637,000569:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054638,000570: 
054639,000571:                                                                                                  #          * SCALE FACTOR *
054640,000572:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054641,000573:                                                                                                  #  --------*--------------*                      -----------------------
054642,000574:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054643,000575:                                                                                                  #          * +27 FOR MOON *
054644,000576:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054645,000577:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
054646,000578:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054647,000579:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
054648,000580:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
054649,000581:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
054650,000582:                                                                                                  #  CSTH    * +1           *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
054651,000583:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE ANOMALY DIFFERENCE.
054652,000584: 
054653,000585: 
054654,000586:                                                                                                  #        PARAMETERS OF NO USE -
054655,000587:                                                                                                  #  SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
054656,000588:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
054657,000589: 
054658,000590: 

Page 1275

054660,000592: 
054661,000593:                                                                                                  #  PROGRAM DESCRIPTION - APSIDES SUBROUTINE                                      DATE - 1 SEPTEMBER 1967
054662,000594:                                                                                                  #  MOD NO. - 0                                                                   LOG SECTION - CONIC SUBROUTINES
054663,000595:                                                                                                  #  MOD BY KRAUSE                                                                 ASSEMBLY - COLOSSUS REVISION 88
054664,000596: 
054665,000597: 
054666,000598: 
054667,000599:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054668,000600: 
054669,000601:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
054670,000602:                                                                                                  #  ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
054671,000603:                                                                                                  #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
054672,000604:                                                                                                  #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054673,000605:                                                                                                  #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054674,000606: 
054675,000607: 
054676,000608:                                                                                                  #  THE RESTRICTIONS ARE -
054677,000609:                                                                                                  #        1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
054678,000610:                                                                                                  #  TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
054679,000611:                                                                                                  #        2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
054680,000612:                                                                                                  #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054681,000613: 
054682,000614:                                                                                                  #        THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
054683,000615: 
054684,000616: 
054685,000617: 
054686,000618:                                                                                                  #  REFERENCES -
054687,000619:                                                                                                  #        MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
054688,000620: 
054689,000621: 
054690,000622: 
054691,000623:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054692,000624: 
054693,000625:                                                                                                  #          * SCALE FACTOR *
054694,000626:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054695,000627:                                                                                                  #  --------*--------------*                      -----------------------
054696,000628:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054697,000629:                                                                                                  #          * +27 FOR MOON *
054698,000630:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054699,000631:                                                                                                  #          * +5 FOR MOON  *
054700,000632:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054701,000633:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
054702,000634: 
054703,000635: 
054704,000636: 
054705,000637:                                                                                                  #  SUBROUTINES CALLED -
054706,000638:                                                                                                  #        PARAM, GEOM
054707,000639: 
054708,000640: 
054709,000641: 
054710,000642:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054711,000643: 

Page 1276

054713,000645:                                                                                                  #        IF ONLY TIME IS DESIRED AS OUTPUT -
054714,000646:                                                                                                  #  L     CALL                    MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054715,000647:                                                                                                  #  L+1           APSIDES         RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
054716,000648:                                                                                                  #  L+2   STODL   APOAPSE
054717,000649:                                                                                                  #  L+3           0D
054718,000650:                                                                                                  #  L+4   STORE   PERIAPSE        APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
054719,000651:                                                                                                  #  L+5   ...                     CONTINUE
054720,000652: 
054721,000653:                                                                                                  #  OUTPUT -
054722,000654:                                                                                                  #          * SCALE FACTOR *
054723,000655:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054724,000656:                                                                                                  #  --------*--------------*                      -----------------------
054725,000657:                                                                                                  #  MPAC    * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
054726,000658:                                                                                                  #          * +27 FOR MOON *
054727,000659:                                                                                                  #  0D-1D   * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
054728,000660:                                                                                                  #          * +27 FOR MOON *
054729,000661:                                                                                                  #  ECC     * +3           *DP ECCENTRICITY OF CONIC TRAJECTORY.
054730,000662: 
054731,000663:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054732,000664: 
054733,000665: 
054734,000666: 
054735,000667:                                                                                                  #  DEBRIS -
054736,000668: 
054737,000669:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054738,000670: 
054739,000671:                                                                                                  #          * SCALE FACTOR *
054740,000672:                                                                                                  #  VARIABLE*IN POWERS OF 2*                      DESCRIPTION AND REMARKS
054741,000673:                                                                                                  #  --------*--------------*                      -----------------------
054742,000674:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054743,000675:                                                                                                  #          * +27 FOR MOON *
054744,000676:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054745,000677:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
054746,000678:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054747,000679:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
054748,000680:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
054749,000681:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
054750,000682:                                                                                                  #  MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
054751,000683:                                                                                                  #          * +5 FOR MOON  *
054752,000684: 
054753,000685: 
054754,000686:                                                                                                  #        PARAMETERS OF NO USE -
054755,000687:                                                                                                  #  SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5,10D-11D, 14D-21D, 31D-38D.
054756,000688:                                                                                                  #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
054757,000689: 
054758,000690: 
054759,000691: 
054760,000692: 12,2000                                           SETLOC   CONICS                                

Page 1277

054762,000694: 12,2000                                           BANK                                           
054763,000695: 
054764,000696: 12,2077                                           COUNT*   $$/CONIC                              
054765,000697: 12,2077  E5,1723                                  EBANK=   UR1                                   
054766,000698: 
054767,000699: 12,2077           77624        KEPLERN            CALL                                           
054768,000700: 12,2100           24577                                    COMSETUP                              
054769,000701: 12,2101           53575                           VLOAD    UNIT                                  
054770,000702: 12,2102           01503                                    RRECT                                 
054771,000703: 12,2103           16647                           STODL    URRECT                                
054772,000704: 12,2104           00045                                    36D                                   
054773,000705: 12,2105           24041                           STOVL    R1                                    
054774,000706: 12,2106           01503                                    RRECT                                 
054775,000707: 12,2107           76441                           DOT      SL1R                                  
054776,000708: 12,2110           01511                                    VRECT                                 
054777,000709: 12,2111           76405                           DMP      SL1R                                  
054778,000710: 12,2112           00023                                    1/ROOTMU                              #  1/ROOTMU (-17 OR -14)
054779,000711: 12,2113           24043                           STOVL    KEPC1                                 #  C1=R.V/ROOTMU (+17 OR +16)
054780,000712: 
054781,000713: 12,2114           01511                                    VRECT                                 
054782,000714: 12,2115           57236                           VSQ      DMPR                                  
054783,000715: 12,2116           00017                                    1/MU                                  #  1/MU (-34 OR -28)
054784,000716: 12,2117           52405                           DMP      SL3                                   
054785,000717: 12,2120           00041                                    R1                                    
054786,000718: 12,2121           61425                           DSU      ROUND                                 
054787,000719: 12,2122           33410                                    D1/64                                 
054788,000720: 12,2123           00045                           STORE    KEPC2                                 #  C2=RV.V/MU -1 (+6)
054789,000721: 
054790,000722: 12,2124           74421                           BDSU     SR1R                                  
054791,000723: 12,2125           33410                                    D1/64                                 
054792,000724: 12,2126           77671                           DDV                                            
054793,000725: 12,2127           00041                                    R1                                    
054794,000726: 12,2130           00011                           STORE    ALPHA                                 #  ALPHA=(1-C2)/R1 (-22 OR -20)
054795,000727: 
054796,000728: 12,2131           71244                           BPL      DLOAD                                 #  MAXIMUM X DEPENDS ON TYPE OF CONIC
054797,000729: 12,2132           24141                                    1REV                                  
054798,000730: 12,2133           33426                                    -50SC                                 #  -50SC (+12)
054799,000731: 12,2134           40071                           DDV      BOV                                   
054800,000732: 12,2135           00011                                    ALPHA                                 
054801,000733: 12,2136           24145                                    STOREMAX                              
054802,000734: 12,2137           52166                           SQRT     GOTO                                  
054803,000735: 12,2140           24145                                    STOREMAX                              
054804,000736: 
054805,000737: 12,2141           55366        1REV               SQRT     BDDV                                  
054806,000738: 12,2142           33430                                    2PISC                                 #  2PISC (+6)
054807,000739: 12,2143           77600                           BOV                                            
054808,000740: 12,2144           24145                                    STOREMAX                              
054809,000741: 12,2145           00013        STOREMAX           STORE    XMAX                                  
054810,000742: 12,2146           65205                           DMP      PDDL                                  
054811,000743: 12,2147           00023                                    1/ROOTMU                              

Page 1278

054813,000745: 12,2150           00011                                    ALPHA                                 
054814,000746: 12,2151           65301                           NORM     PDDL                                  
054815,000747: 12,2152           00047                                    X1                                    
054816,000748: 12,2153           56257                           SL*      DDV                                   
054817,000749: 12,2154           20173                                    0          -6,1                       
054818,000750: 12,2155           50000                           BOV      BMN                                   
054819,000751: 12,2156           24172                                    MODDONE                               
054820,000752: 12,2157           24172                                    MODDONE                               #  MPAC=PERIOD
054821,000753: 12,2160           51525        PERIODCH           PDDL     ABS                                   #  0D=PERIOD
054822,000754: 12,2161           02303                                    TAU.                                  
054823,000755: 12,2162           50025                           DSU      BMN                                   
054824,000756: 12,2163           00001                                    0D                                    
054825,000757: 12,2164           24172                                    MODDONE                               
054826,000758: 12,2165           77765                           SIGN                                           
054827,000759: 12,2166           02303                                    TAU.                                  
054828,000760: 12,2167           16303                           STODL    TAU.                                  
054829,000761: 12,2170           77650                           GOTO                                           
054830,000762: 12,2171           24160                                    PERIODCH                              
054831,000763: 12,2172           71201        MODDONE            SETPD    DLOAD                                 
054832,000764: 12,2173           00001                                    0                                     
054833,000765: 12,2174           02277                                    XKEPNEW                               
054834,000766: 12,2175           00025                           STORE    X                                     
054835,000767: 12,2176           53165                           SIGN     BZE                                   
054836,000768: 12,2177           02303                                    TAU.                                  
054837,000769: 12,2200           24347                                    BADX                                  
054838,000770: 12,2201           51440                           BMN      ABS                                   
054839,000771: 12,2202           24347                                    BADX                                  
054840,000772: 12,2203           51025                           DSU      BPL                                   
054841,000773: 12,2204           00013                                    XMAX                                  
054842,000774: 12,2205           24347                                    BADX                                  
054843,000775: 12,2206           51145        STORBNDS           DLOAD    BPL                                   
054844,000776: 12,2207           02303                                    TAU.                                  
054845,000777: 12,2210           24217                                    STOREMIN                              
054846,000778: 12,2211           57545                           DLOAD    DCOMP                                 
054847,000779: 12,2212           00013                                    XMAX                                  
054848,000780: 12,2213           14015                           STODL    XMIN                                  
054849,000781: 12,2214           11762                                    KEPZERO                               
054850,000782: 12,2215           34013                           STCALL   XMAX                                  
054851,000783: 12,2216           24222                                    DXCOMP                                
054852,000784: 12,2217           77745        STOREMIN           DLOAD                                          
054853,000785: 12,2220           11762                                    KEPZERO                               
054854,000786: 12,2221           00015                           STORE    XMIN                                  
054855,000787: 12,2222           57345        DXCOMP             DLOAD    DMPR                                  
054856,000788: 12,2223           02303                                    TAU.                                  
054857,000789: 12,2224           33421                                    BEE22                                 
054858,000790: 12,2225           77646                           ABS                                            
054859,000791: 12,2226           15026                           STODL    EPSILONT                              
054860,000792: 12,2227           01553                                    XPREV                                 
054861,000793: 12,2230           77621        XDIFF              BDSU                                           
054862,000794: 12,2231           00025                                    X                                     

Page 1279

054864,000796: 12,2232           02643                           STORE    DELX                                  
054865,000797: 
054866,000798: 
054867,000799: 12,2233           63545        KEPLOOP            DLOAD    DSQ                                   
054868,000800: 12,2234           00025                                    X                                     #  X=XKEP
054869,000801: 12,2235           41501                           NORM     PUSH                                  #  0D=XSQ (+34 OR +32 -N1)       PL AT 2
054870,000802: 12,2236           00047                                    X1                                    
054871,000803: 12,2237           53605                           DMP      SRR*                                  
054872,000804: 12,2240           00011                                    ALPHA                                 
054873,000805: 12,2241           21573                                    0          -6,1                       
054874,000806: 12,2242           34031                           STCALL   XI                                    #  XI=ALPHA XSQ (+6)
054875,000807: 12,2243           24462                                    DELTIME                               
054876,000808: 12,2244           44200                           BOV      BDSU                                  
054877,000809: 12,2245           24355                                    TIMEOVFL                              #  UNLIKELY
054878,000810: 12,2246           02303                                    TAU.                                  
054879,000811: 12,2247           02645                           STORE    DELT                                  #  DELT=DELINDEP
054880,000812: 12,2250           44246                           ABS      BDSU                                  
054881,000813: 12,2251           01026                                    EPSILONT                              
054882,000814: 12,2252           71244                           BPL      DLOAD                                 
054883,000815: 12,2253           24375                                    KEPCONVG                              
054884,000816: 12,2254           00037                                    T                                     
054885,000817: 12,2255           60225                           DSU      NORM                                  
054886,000818: 12,2256           01551                                    TC                                    
054887,000819: 12,2257           00047                                    X1                                    
054888,000820: 12,2260           60325                           PDDL     NORM                                  
054889,000821: 12,2261           02643                                    DELX                                  
054890,000822: 12,2262           00050                                    X2                                    
054891,000823: 12,2263           41260                           XSU,1    DMP                                   
054892,000824: 12,2264           00047                                    X2                                    
054893,000825: 12,2265           02645                                    DELT                                  
054894,000826: 12,2266           56257                           SLR*     DDV                                   
054895,000827: 12,2267           21202                                    1,1                                   
054896,000828: 12,2270           41542                           SR1      PUSH                                  #  0D=TRIAL DELX                 PL AT 2
054897,000829: 12,2271           71244                           BPL      DLOAD                                 
054898,000830: 12,2272           24313                                    POSDELX                               
054899,000831: 12,2273           00025                                    X                                     
054900,000832: 12,2274           00013                           STORE    XMAX                                  #  MOVE MAX BOUND IN
054901,000833: 12,2275           45221                           BDSU     DSU                                   #                                PL AT 0
054902,000834: 12,2276           00015                                    XMIN                                  
054903,000835: 12,2277           51000                           BOV      BPL                                   
054904,000836: 12,2300           24305                                    NDXCHNGE                              
054905,000837: 12,2301           24305                                    NDXCHNGE                              
054906,000838: 12,2302           52145                           DLOAD    GOTO                                  
054907,000839: 12,2303           00001                                    0D                                    
054908,000840: 12,2304           24325                                    NEWDELX                               
054909,000841: 
054910,000842: 
054911,000843: 12,2305           45345        NDXCHNGE           DLOAD    DSU                                   
054912,000844: 12,2306           00015                                    XMIN                                  
054913,000845: 12,2307           00025                                    X                                     

Page 1280

054915,000847: 12,2310           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
054916,000848: 12,2311           33424                                    DP9/10                                
054917,000849: 12,2312           24325                                    NEWDELX                               
054918,000850: 
054919,000851: 
054920,000852: 12,2313           77745        POSDELX            DLOAD                                          
054921,000853: 12,2314           00025                                    X                                     
054922,000854: 12,2315           00015                           STORE    XMIN                                  #  MOVE MIN BOUND IN
054923,000855: 12,2316           45221                           BDSU     DSU                                   #                                PL AT 0
054924,000856: 12,2317           00013                                    XMAX                                  
054925,000857: 12,2320           50000                           BOV      BMN                                   
054926,000858: 12,2321           24341                                    PDXCHNGE                              
054927,000859: 12,2322           24341                                    PDXCHNGE                              
054928,000860: 12,2323           77745                           DLOAD                                          
054929,000861: 12,2324           00001                                    0D                                    
054930,000862: 12,2325           02643        NEWDELX            STORE    DELX                                  
054931,000863: 12,2326           43254                           BZE      DAD                                   
054932,000864: 12,2327           24375                                    KEPCONVG                              
054933,000865: 12,2330           00025                                    X                                     
054934,000866: 12,2331           14025                           STODL    X                                     
054935,000867: 12,2332           00037                                    T                                     
054936,000868: 12,2333           01551                           STORE    TC                                    
054937,000869: 12,2334           46034        BRNCHCTR           RTB      BHIZ                                  
054938,000870: 12,2335           24716                                    CHECKCTR                              
054939,000871: 12,2336           24375                                    KEPCONVG                              
054940,000872: 12,2337           77650                           GOTO                                           
054941,000873: 12,2340           24233                                    KEPLOOP                               #  ITERATE
054942,000874: 
054943,000875: 
054944,000876: 12,2341           45345        PDXCHNGE           DLOAD    DSU                                   
054945,000877: 12,2342           00013                                    XMAX                                  
054946,000878: 12,2343           00025                                    X                                     
054947,000879: 12,2344           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
054948,000880: 12,2345           33424                                    DP9/10                                
054949,000881: 12,2346           24325                                    NEWDELX                               
054950,000882: 
054951,000883: 
054952,000884: 12,2347           70545        BADX               DLOAD    SR1                                   
054953,000885: 12,2350           00013                                    XMAX                                  
054954,000886: 12,2351           77765                           SIGN                                           
054955,000887: 12,2352           02303                                    TAU.                                  
054956,000888: 12,2353           34025                           STCALL   X                                     
054957,000889: 12,2354           24206                                    STORBNDS                              
054958,000890: 12,2355           50145        TIMEOVFL           DLOAD    BMN                                   #  X WAS TOO BIG
054959,000891: 12,2356           00025                                    X                                     
054960,000892: 12,2357           24373                                    NEGTOVFL                              
054961,000893: 12,2360           00013                           STORE    XMAX                                  
054962,000894: 12,2361           70545        CMNTOVFL           DLOAD    SR1                                   
054963,000895: 12,2362           02643                                    DELX                                  
054964,000896: 12,2363           02643                           STORE    DELX                                  

Page 1281

054966,000898: 12,2364           44254                           BZE      BDSU                                  
054967,000899: 12,2365           02267                                    KEPRTN                                
054968,000900: 12,2366           00025                                    X                                     
054969,000901: 12,2367           14025                           STODL    X                                     
054970,000902: 12,2370           01551                                    TC                                    
054971,000903: 12,2371           34037                           STCALL   T                                     
054972,000904: 12,2372           24334                                    BRNCHCTR                              
054973,000905: 12,2373           34015        NEGTOVFL           STCALL   XMIN                                  
054974,000906: 12,2374           24361                                    CMNTOVFL                              
054975,000907: 12,2375           44545        KEPCONVG           DLOAD    SR4R                                  
054976,000908: 12,2376           00041                                    R1                                    
054977,000909: 12,2377           74225                           DSU      VXSC                                  
054978,000910: 12,2400           00035                                    XSQC(XI)                              
054979,000911: 12,2401           02647                                    URRECT                                
054980,000912: 12,2402           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))URRECT (+33 OR +31)
054981,000913: 12,2403           00025                                    X                                     
054982,000914: 12,2404           60316                           DSQ      NORM                                  
054983,000915: 12,2405           00047                                    X1                                    
054984,000916: 12,2406           57275                           DMPR     DMPR                                  
054985,000917: 12,2407           00023                                    1/ROOTMU                              
054986,000918: 12,2410           00025                                    X                                     
054987,000919: 12,2411           53605                           DMP      SRR*                                  
054988,000920: 12,2412           00033                                    S(XI)                                 
054989,000921: 12,2413           21572                                    0          -7,1                       
054990,000922: 12,2414           77621                           BDSU                                           
054991,000923: 12,2415           00037                                    T                                     
054992,000924: 12,2416           74352                           SL1      VXSC                                  
054993,000925: 12,2417           01511                                    VRECT                                 
054994,000926: 12,2420           53372                           VSL1     VAD                                   #                                PL AT 0
054995,000927: 12,2421           77712                           VSL4                                           
054996,000928: 12,2422           01535                           STORE    RCV                                   #  RCV (+29 OR +27)
054997,000929: 
054998,000930: 
054999,000931: 12,2423           60246                           ABVAL    NORM                                  
055000,000932: 12,2424           00050                                    X2                                    
055001,000933: 12,2425           16655                           STODL    RCNORM                                
055002,000934: 12,2426           00031                                    XI                                    
055003,000935: 12,2427           45275                           DMPR     DSU                                   
055004,000936: 12,2430           00033                                    S(XI)                                 
055005,000937: 12,2431           33406                                    D1/128                                
055006,000938: 12,2432           76405                           DMP      SL1R                                  
055007,000939: 12,2433           00021                                    ROOTMU                                
055008,000940: 12,2434           53605                           DMP      SLR*                                  
055009,000941: 12,2435           00025                                    X                                     
055010,000942: 12,2436           56601                                    0          -3,2                       
055011,000943: 12,2437           74271                           DDV      VXSC                                  
055012,000944: 12,2440           02655                                    RCNORM                                
055013,000945: 12,2441           02647                                    URRECT                                
055014,000946: 12,2442           65372                           VSL1     PDDL                                  #  0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
055015,000947: 12,2443           00035                                    XSQC(XI)                              #  OR +13)                       PL AT 6

Page 1282

055017,000949: 12,2444           56257                           SLR*     DDV                                   
055018,000950: 12,2445           56602                                    0          -4,2                       
055019,000951: 12,2446           02655                                    RCNORM                                
055020,000952: 12,2447           74221                           BDSU     VXSC                                  
055021,000953: 12,2450           33422                                    D1/256                                
055022,000954: 12,2451           01511                                    VRECT                                 
055023,000955: 12,2452           42455                           VAD      VSL8                                  #                                PL AT 0
055024,000956: 12,2453           77626                           STADR                                          
055025,000957: 12,2454           62234                           STODL    VCV                                   #  VCV (+7 OR +5)
055026,000958: 12,2455           00037                                    T                                     
055027,000959: 12,2456           15551                           STODL    TC                                    
055028,000960: 12,2457           00025                                    X                                     
055029,000961: 12,2460           35553                           STCALL   XPREV                                 
055030,000962: 12,2461           02267                                    KEPRTN                                
055031,000963: 

Page 1283

055033,000965: 12,2462           77776        DELTIME            EXIT                                           #  MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
055034,000966: 12,2463           07171                           TC       POLY                                  
055035,000967: 12,2464           00010                           DEC      8          B-14                       
055036,000968: 12,2465           02525 12526                     2DEC     .083333334                            
055037,000969: 12,2467           67356 75666                     2DEC     -.266666684                            
055038,000970: 12,2471           15001 23771                     2DEC     .406349155                            
055039,000971: 12,2473           64342 43674                     2DEC     -.361198675                            
055040,000972: 12,2475           06563 04645                     2DEC     .210153242                            
055041,000973: 12,2477           75173 52672                     2DEC     -.086221951                            
055042,000974: 12,2501           00656 14331                     2DEC     .026268812                            
055043,000975: 12,2503           77633 40512                     2DEC     -.006163316                            
055044,000976: 12,2505           00023 11210                     2DEC     .001177342                            
055045,000977: 12,2507           77774 67506                     2DEC     -.000199055                            
055046,000978: 12,2511           06006                           TC       INTPRET                               
055047,000979: 12,2512           14033                           STODL    S(XI)                                 
055048,000980: 12,2513           00031                                    XI                                    
055049,000981: 12,2514           77776                           EXIT                                           
055050,000982: 12,2515           07171                           TC       POLY                                  
055051,000983: 12,2516           00010                           DEC      8          B-14                       
055052,000984: 12,2517           01000 00000                     2DEC     .031250001                            
055053,000985: 12,2521           72525 52506                     2DEC     -.166666719                            
055054,000986: 12,2523           13301 15337                     2DEC     .355555413                            
055055,000987: 12,2525           62776 54733                     2DEC     -.406347410                            
055056,000988: 12,2527           11176 13267                     2DEC     .288962094                            
055057,000989: 12,2531           73410 51674                     2DEC     -.140117894                            
055058,000990: 12,2533           01446 33641                     2DEC     .049247387                            
055059,000991: 12,2535           77451 65233                     2DEC     -.013081923                            
055060,000992: 12,2537           00055 37266                     2DEC     .002806389                            
055061,000993: 12,2541           77767 52336                     2DEC     -.000529414                            
055062,000994: 12,2543           06006                           TC       INTPRET                               

Page 1284

055064,000996: 12,2544           53605                           DMP      SRR*                                  #                                PL AT 0
055065,000997: 12,2545           00001                                    0D                                    
055066,000998: 12,2546           21574                                    0          -5,1                       
055067,000999: 12,2547           00035                           STORE    XSQC(XI)                              #  XSQC(XI) (+33 OR +31)
055068,001000: 12,2550           72405                           DMP      SL1                                   
055069,001001: 12,2551           00043                                    KEPC1                                 
055070,001002: 12,2552           65234                           RTB      PDDL                                  #  XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
055071,001003: 12,2553           45657                                    TPMODE                                #                                PL AT 0,3
055072,001004: 12,2554           53605                           DMP      SRR*                                  
055073,001005: 12,2555           00033                                    S(XI)                                 
055074,001006: 12,2556           21574                                    0          -5,1                       
055075,001007: 12,2557           72405                           DMP      SL1                                   
055076,001008: 12,2560           00045                                    KEPC2                                 
055077,001009: 12,2561           65234                           RTB      PDDL                                  #  3D=C2 XSQ S(XI) (+35 OR +33)  PL AT 6
055078,001010: 12,2562           45657                                    TPMODE                                
055079,001011: 12,2563           00041                                    R1                                    
055080,001012: 12,2564           76261                           SR       TAD                                   #                                PL AT 3
055081,001013: 12,2565           20607                                    6                                     
055082,001014: 12,2566           41301                           NORM     DMP                                   #  TO PRESERVE SIGNIF.
055083,001015: 12,2567           00047                                    X1                                    
055084,001016: 12,2570           00025                                    X                                     
055085,001017: 12,2571           76257                           SR*      TAD                                   #  X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
055086,001018: 12,2572           20576                                    0          -3,1                       
055087,001019: 12,2573           57232                           SL4R     DMPR                                  
055088,001020: 12,2574           00023                                    1/ROOTMU                              
055089,001021: 12,2575           00037                           STORE    T                                     
055090,001022: 12,2576           77616                           RVQ                                            
055091,001023: 

Page 1285

055093,001025: 12,2577           40001        COMSETUP           SETPD    BOV                                   
055094,001026: 12,2600           00001                                    0D                                    
055095,001027: 12,2601           24602                                    +1                                    
055096,001028: 12,2602           76731                           SSP      VLOAD*                                
055097,001029: 12,2603           00027                                    ITERCTR                               
055098,001030: 12,2604           00024                                    20D                                   
055099,001031: 12,2605           22301                                    MUTABLE,1                             
055100,001032: 12,2606           00017                           STORE    1/MU                                  
055101,001033: 12,2607           77616                           RVQ                                            
055102,001034: 
055103,001035: 12,2610           71214        ITERATOR           BONCLR   DLOAD                                 
055104,001036: 12,2611           00614                                    SLOPESW                               
055105,001037: 12,2612           24660                                    FIRSTIME                              
055106,001038: 12,2613           00037                                    DEP                                   
055107,001039: 12,2614           60225                           DSU      NORM                                  
055108,001040: 12,2615           02764                                    DEPREV                                
055109,001041: 12,2616           00047                                    X1                                    
055110,001042: 12,2617           60325                           PDDL     NORM                                  
055111,001043: 12,2620           00015                                    DELINDEP                              
055112,001044: 12,2621           00050                                    X2                                    
055113,001045: 12,2622           41260                           XSU,1    DMP                                   
055114,001046: 12,2623           00047                                    X2                                    
055115,001047: 12,2624           02762                                    DELDEP                                
055116,001048: 12,2625           56257                           SLR*     DDV                                   #                                PL UP 2
055117,001049: 12,2626           21202                                    1,1                                   
055118,001050: 12,2627           43142                           SR1      BOFF                                  
055119,001051: 12,2630           04351                                    ORDERSW                               
055120,001052: 12,2631           24634                                    SGNCHECK                              
055121,001053: 12,2632           75246                           ABS      SIGN                                  #  IN CASE 2ND DERIV. CHANGED SIGN, MUST
055122,001054: 12,2633           02762                                    DELDEP                                #  DISREGARD IT TO FIND MIN.
055123,001055: 
055124,001056: 12,2634           51006        SGNCHECK           PUSH     BPL                                   #  TRIAL DELINDEP                PL DOWN 2
055125,001057: 12,2635           24672                                    POSDEL                                
055126,001058: 12,2636           43145                           DLOAD    BON                                   
055127,001059: 12,2637           03770                                    INDEP                                 
055128,001060: 12,2640           04311                                    ORDERSW                               
055129,001061: 12,2641           24643                                    MINCHECK                              
055130,001062: 12,2642           00017                           STORE    MAX                                   #  IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
055131,001063: 
055132,001064: 12,2643           45221        MINCHECK           BDSU     DSU                                   
055133,001065: 12,2644           00011                                    MIN                                   
055134,001066: 12,2645           51000                           BOV      BPL                                   
055135,001067: 12,2646           24652                                    MODNGDEL                              
055136,001068: 12,2647           24652                                    MODNGDEL                              
055137,001069: 12,2650           77650                           GOTO                                           
055138,001070: 12,2651           24704                                    DELOK                                 
055139,001071: 
055140,001072: 
055141,001073: 12,2652           45345        MODNGDEL           DLOAD    DSU                                   #  TRIAL DELINDEP WOULD EXCEED MIN BOUND
055142,001074: 12,2653           00011                                    MIN                                   

Page 1286

055144,001076: 12,2654           03770                                    INDEP                                 
055145,001077: 12,2655           52005                           DMP      GOTO                                  
055146,001078: 12,2656           33424                                    DP9/10                                
055147,001079: 12,2657           24706                                    NEWDEL                                
055148,001080: 
055149,001081: 
055150,001082: 12,2660           41335        FIRSTIME           SLOAD    DMP                                   
055151,001083: 12,2661           00051                                    TWEEKIT                               
055152,001084: 12,2662           00011                                    MIN                                   
055153,001085: 12,2663           67206                           PUSH     SLOAD                                 
055154,001086: 12,2664           00051                                    TWEEKIT                               
055155,001087: 12,2665           45205                           DMP      DSU                                   
055156,001088: 12,2666           00017                                    MAX                                   
055157,001089: 12,2667           52165                           SIGN     GOTO                                  
055158,001090: 12,2670           02762                                    DELDEP                                
055159,001091: 12,2671           24634                                    SGNCHECK                              
055160,001092: 
055161,001093: 
055162,001094: 12,2672           43145        POSDEL             DLOAD    BON                                   
055163,001095: 12,2673           03770                                    INDEP                                 
055164,001096: 12,2674           04311                                    ORDERSW                               
055165,001097: 12,2675           24677                                    MAXCHECK                              
055166,001098: 12,2676           00011                           STORE    MIN                                   #  IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
055167,001099: 
055168,001100: 12,2677           45221        MAXCHECK           BDSU     DSU                                   
055169,001101: 12,2700           00017                                    MAX                                   
055170,001102: 12,2701           50000                           BOV      BMN                                   
055171,001103: 12,2702           24710                                    MODPSDEL                              
055172,001104: 12,2703           24710                                    MODPSDEL                              
055173,001105: 12,2704           77745        DELOK              DLOAD                                          
055174,001106: 12,2705           00001                                    0D                                    
055175,001107: 12,2706           00015        NEWDEL             STORE    DELINDEP                              
055176,001108: 12,2707           77616                           RVQ                                            
055177,001109: 
055178,001110: 
055179,001111: 12,2710           45345        MODPSDEL           DLOAD    DSU                                   
055180,001112: 12,2711           00017                                    MAX                                   
055181,001113: 12,2712           03770                                    INDEP                                 
055182,001114: 12,2713           52005                           DMP      GOTO                                  
055183,001115: 12,2714           33424                                    DP9/10                                
055184,001116: 12,2715           24706                                    NEWDEL                                
055185,001117: 
055186,001118: 12,2716           44770        CHECKCTR           CS       ONE                                   
055187,001119: 12,2717           50120                           INDEX    FIXLOC                                
055188,001120: 12,2720           26026                           ADS      ITERCTR                               
055189,001121: 12,2721           54154                           TS       MPAC                                  
055190,001122: 12,2722           06030                           TC       DANZIG                                
055191,001123: 

Page 1287

055193,001125: 12,2723           44545        NEWSTATE           DLOAD    SR4R                                  
055194,001126: 12,2724           00041                                    R1                                    
055195,001127: 12,2725           74225                           DSU      VXSC                                  
055196,001128: 12,2726           00035                                    XSQC(XI)                              
055197,001129: 12,2727           02724                                    UR1                                   
055198,001130: 12,2730           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
055199,001131: 12,2731           00025                                    X                                     
055200,001132: 12,2732           60316                           DSQ      NORM                                  
055201,001133: 12,2733           00047                                    X1                                    
055202,001134: 12,2734           57275                           DMPR     DMPR                                  
055203,001135: 12,2735           00023                                    1/ROOTMU                              
055204,001136: 12,2736           00025                                    X                                     
055205,001137: 12,2737           53605                           DMP      SRR*                                  
055206,001138: 12,2740           00033                                    S(XI)                                 
055207,001139: 12,2741           21572                                    0          -7,1                       
055208,001140: 12,2742           77621                           BDSU                                           
055209,001141: 12,2743           00037                                    T                                     
055210,001142: 12,2744           74352                           SL1      VXSC                                  
055211,001143: 12,2745           02746                                    VVEC                                  
055212,001144: 12,2746           53372                           VSL1     VAD                                   #                                PL AT 0
055213,001145: 12,2747           41512                           VSL4     PUSH                                  
055214,001146: 12,2750           77646                           ABVAL                                          
055215,001147: 12,2751           77701        LAMENTER           NORM                                           
055216,001148: 12,2752           00047                                    X1                                    
055217,001149: 12,2753           16722                           STODL    R2                                    
055218,001150: 12,2754           00031                                    XI                                    
055219,001151: 12,2755           45205                           DMP      DSU                                   
055220,001152: 12,2756           00033                                    S(XI)                                 
055221,001153: 12,2757           33406                                    D1/128                                
055222,001154: 12,2760           76405                           DMP      SL1R                                  
055223,001155: 12,2761           00021                                    ROOTMU                                
055224,001156: 12,2762           53605                           DMP      SLR*                                  
055225,001157: 12,2763           00025                                    X                                     
055226,001158: 12,2764           21176                                    0          -3,1                       
055227,001159: 12,2765           74271                           DDV      VXSC                                  
055228,001160: 12,2766           02722                                    R2                                    
055229,001161: 12,2767           02724                                    UR1                                   
055230,001162: 12,2770           65372                           VSL1     PDDL                                  #  6D=V2VEC PART (+15 OR 13)     PL AT 12
055231,001163: 12,2771           00035                                    XSQC(XI)                              
055232,001164: 12,2772           56257                           SLR*     DDV                                   
055233,001165: 12,2773           21175                                    0          -4,1                       
055234,001166: 12,2774           02722                                    R2                                    
055235,001167: 12,2775           77621                           BDSU                                           
055236,001168: 12,2776           33422                                    D1/256                                
055237,001169: 12,2777           53361                           VXSC     VAD                                   
055238,001170: 12,3000           02746                                    VVEC                                  #                                PL AT 6
055239,001171: 12,3001           43412                           VSL8     RVQ                                   
055240,001172: 

Page 1288

055242,001174: 15,2000                                           SETLOC   CONICS1                               
055243,001175: 15,2000                                           BANK                                           
055244,001176: 
055245,001177: 15,3402                                           COUNT*   $$/CONIC                              
055246,001178:                                                                                                  #  DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
055247,001179: 15,3402           00000        BEE17              DEC      0          B-14                       #  KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
055248,001180: 15,3403           04000 00000  D1/8               2DEC     1.0        B-3                        
055249,001181: 15,3405           00200 00000  D1/128             2DEC     1.0        B-7                        
055250,001182: 15,3407           00400 00000  D1/64              2DEC     1.0        B-6                        
055251,001183: 15,3411           10000 00000  D1/4               2DEC     1.0        B-2                        
055252,001184: 15,3413           02000 00000  D1/16              2DEC     1.0        B-4                        
055253,001185: 15,3415           01000 00000  D1/32              2DEC     1.0        B-5                        
055254,001186: 15,3417           00020 00000  D1/1024            2DEC     1.0        B-10                       
055255,001187: 15,3421           00100 00000  D1/256             2DEC     1.0        B-8                        
055256,001188: 15,3423           34631 23146  DP9/10             2DEC     .9                                    
055257,001189: 15,3425  04,3761               KEPZERO            EQUALS   LO6ZEROS                              
055258,001190: 15,3425           77467 77777  -50SC              2DEC     -50.0      B-12                       
055259,001191: 15,3427           03110 17665  2PISC              2DEC     6.28318530 B-6                        
055260,001192: 15,3431  15,3414               BEE19              EQUALS   D1/32      -1                         #  2DEC 1.0 B-19 (00000 01000)
055261,001193: 15,3431  15,3420               BEE22              EQUALS   D1/256     -1                         #  2DEC 1.0 B-22 (00000 00100)
055262,001194: 15,3431           00000 00001  ONEBIT             2DEC     1.0        B-28                       
055263,001195: 15,3433           37767 37737  COGUPLIM           2DEC     .999511597                            
055264,001196: 15,3435           40010 40040  COGLOLIM           2DEC     -.999511597                            
055265,001197: 

Page 1289

055267,001199: 12,2000                                           SETLOC   CONICS                                
055268,001200: 12,2000                                           BANK                                           
055269,001201: 
055270,001202: 12,3002                                           COUNT*   $$/CONIC                              
055271,001203: 12,3002           45020        TIMETHET           STQ      CALL                                  
055272,001204: 12,3003           02712                                    RTNTT                                 
055273,001205: 12,3004           25763                                    PRAMSET                               
055274,001206: 12,3005           77624                           CALL                                           
055275,001207: 12,3006           37727                                    PARAM                                 
055276,001208: 12,3007           45000                           BOV      CALL                                  #                                PL AT 0
055277,001209: 12,3010           25027                                    COGAOVFL                              
055278,001210: 12,3011           25032                                    GETX                                  
055279,001211: 12,3012           43145        COMMNOUT           DLOAD    BON                                   
055280,001212: 12,3013           00031                                    XI                                    
055281,001213: 12,3014           04310                                    INFINFLG                              
055282,001214: 12,3015           25760                                    ABTCONIC                              
055283,001215: 12,3016           45014                           CLEAR    CALL                                  
055284,001216: 12,3017           04273                                    COGAFLAG                              
055285,001217: 12,3020           24462                                    DELTIME                               
055286,001218: 12,3021           45014                           BON      CALL                                  
055287,001219: 12,3022           03706                                    RVSW                                  
055288,001220: 12,3023           02712                                    RTNTT                                 
055289,001221: 12,3024           24723                                    NEWSTATE                              
055290,001222: 12,3025           77650                           GOTO                                           
055291,001223: 12,3026           02712                                    RTNTT                                 
055292,001224: 
055293,001225: 12,3027           77614        COGAOVFL           SETGO                                          
055294,001226: 12,3030           04033                                    COGAFLAG                              
055295,001227: 12,3031           25760                                    ABTCONIC                              
055296,001228: 17,2000                                           SETLOC   CONICS2                               
055297,001229: 17,2000                                           BANK                                           
055298,001230: 17,3727                                           COUNT*   $$/CONIC                              
055299,001231: 17,3727           43020        PARAM              STQ      CLEAR                                 #  MPAC=V1VEC, 0D=R1VEC          PL AT 6
055300,001232: 17,3730           02755                                    RTNPRM                                
055301,001233: 17,3731           03665                                    NORMSW                                
055302,001234: 17,3732           77614                           CLEAR                                          
055303,001235: 17,3733           04273                                    COGAFLAG                              
055304,001236: 17,3734           45131                           SSP      CALL                                  
055305,001237: 17,3735           02675                                    GEOMSGN                               
055306,001238: 17,3736           27777                                    37777                                 #  GAMMA ALWAYS LESS THAN 180DEG
055307,001239: 17,3737           13717                                    GEOM                                  #  MPAC=SNGA (+1), 0D=CSGA (+1)  PL AT 2
055308,001240: 17,3740           14045                           STODL    36D                                   #  36D=SIN GAMMA (+1)            PL AT 0
055309,001241: 17,3741           56261                           SR       DDV                                   
055310,001242: 17,3742           20606                                    5                                     
055311,001243: 
055312,001244: 17,3743           00045                                    36D                                   
055313,001245: 17,3744           33770                           STOVL*   COGA                                  
055314,001246: 17,3745           22301                                    MUTABLE,1                             
055315,001247: 17,3746           14017                           STODL    1/MU                                  

Page 1290

055317,001249: 17,3747           02722                                    MAGVEC2                               
055318,001250: 17,3750           60316                           DSQ      NORM                                  
055319,001251: 17,3751           00047                                    X1                                    
055320,001252: 17,3752           41275                           DMPR     DMP                                   
055321,001253: 17,3753           00017                                    1/MU                                  
055322,001254: 17,3754           00041                                    R1                                    
055323,001255: 17,3755           77657                           SRR*                                           
055324,001256: 17,3756           21576                                    0          -3,1                       
055325,001257: 17,3757           44206                           PUSH     BDSU                                  #  0D=R1 V1SQ/MU (+6)            PL AT 2
055326,001258: 17,3760           33416                                    D1/32                                 
055327,001259: 17,3761           16744                           STODL    R1A                                   #  R1A (+6)                      PL AT 0
055328,001260: 
055329,001261: 17,3762           60205                           DMP      NORM                                  
055330,001262: 17,3763           00045                                    36D                                   
055331,001263: 17,3764           00047                                    X1                                    
055332,001264: 17,3765           53605                           DMP      SR*                                   
055333,001265: 17,3766           00045                                    36D                                   
055334,001266: 17,3767           20575                                    0          -4,1                       
055335,001267: 17,3770           36742                           STCALL   P                                     #  P (+4)
055336,001268: 17,3771           02755                                    RTNPRM                                
055337,001269: 

Page 1291

055339,001271: 05,2000                                           SETLOC   CONICS4                               
055340,001272: 05,2000                                           BANK                                           
055341,001273: 
055342,001274: 05,3717                                           COUNT*   $$/CONIC                              
055343,001275: 05,3717           77656        GEOM               UNIT                                           #  MPAC=V2VEC, 0D=R1VEC          PL AT 6
055344,001276: 05,3720           16714                           STODL    U2                                    #  U2 (+1)
055345,001277: 05,3721           00045                                    36D                                   
055346,001278: 05,3722           26722                           STOVL    MAGVEC2                               #                                PL AT 0
055347,001279: 05,3723           77656                           UNIT                                           
055348,001280: 05,3724           02724                           STORE    UR1                                   #  UR1 (+1)
055349,001281: 05,3725           72441                           DOT      SL1                                   
055350,001282: 05,3726           02714                                    U2                                    
055351,001283: 05,3727           77725                           PDDL                                           #  OD=CSTH (+1)                  PL AT 2
055352,001284: 05,3730           00045                                    36D                                   
055353,001285: 05,3731           24041                           STOVL    R1                                    #  R1 (+29 OR +27)
055354,001286: 05,3732           02724                                    UR1                                   
055355,001287: 05,3733           76435                           VXV      VSL1                                  
055356,001288: 05,3734           02714                                    U2                                    
055357,001289: 05,3735           75214                           BON      SIGN                                  
055358,001290: 05,3736           03705                                    NORMSW                                
055359,001291: 05,3737           13751                                    HAVENORM                              
055360,001292: 05,3740           02675                                    GEOMSGN                               
055361,001293: 05,3741           40056                           UNIT     BOV                                   
055362,001294: 05,3742           13747                                    COLINEAR                              
055363,001295: 05,3743           16676        UNITNORM           STODL    UN                                    #  UN (+1)
055364,001296: 05,3744           00045                                    36D                                   
055365,001297: 05,3745           43565                           SIGN     RVQ                                   #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055366,001298: 05,3746           02675                                    GEOMSGN                               
055367,001299: 
055368,001300: 
055369,001301: 05,3747           52162        COLINEAR           VSR1     GOTO                                  
055370,001302: 05,3750           13743                                    UNITNORM                              
055371,001303: 
055372,001304: 05,3751           75246        HAVENORM           ABVAL    SIGN                                  
055373,001305: 05,3752           02675                                    GEOMSGN                               
055374,001306: 05,3753           77616                           RVQ                                            #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055375,001307: 

Page 1292

055377,001309: 12,2000                                           SETLOC   CONICS                                
055378,001310: 12,2000                                           BANK                                           
055379,001311: 
055380,001312: 12,3032                                           COUNT*   $$/CONIC                              
055381,001313: 12,3032           66374        GETX               AXT,2    SSP                                   #  ASSUMES P (+4) IN MPAC
055382,001314: 12,3033           00003                                    3                                     
055383,001315: 12,3034           00052                                    S2                                    
055384,001316: 12,3035           00001                                    1                                     
055385,001317: 12,3036           77614                           CLEAR                                          
055386,001318: 12,3037           04276                                    360SW                                 
055387,001319: 12,3040           65366                           SQRT     PDDL                                  #  0D=SQRT(P)                    PL AT 2
055388,001320: 12,3041           02734                                    CSTH                                  
055389,001321: 12,3042           44342                           SR1      BDSU                                  
055390,001322: 12,3043           33412                                    D1/4                                  
055391,001323: 12,3044           54325                           PDDL     SRR                                   #                                PL AT 4D
055392,001324: 12,3045           02732                                    SNTH                                  
055393,001325: 12,3046           21607                                    6                                     
055394,001326: 12,3047           77671                           DDV                                            #                                PL AT 2
055395,001327: 12,3050           77600                           BOV                                            
055396,001328: 12,3051           25165                                    360CHECK                              
055397,001329: 12,3052           41225                           DSU      DMP                                   
055398,001330: 12,3053           03770                                    COGA                                  #                                PL AT 0
055399,001331: 12,3054           40132                           SL2R     BOV                                   
055400,001332: 12,3055           25165                                    360CHECK                              
055401,001333: 12,3056           63406        WLOOP              PUSH     DSQ                                   #  0D=W (+5)                     PL AT 2
055402,001334: 12,3057           65351                           TLOAD    PDDL                                  #  2D=WSQ (+10)                  PL AT 5
055403,001335: 12,3060           00155                                    MPAC                                  
055404,001336: 12,3061           02744                                    R1A                                   
055405,001337: 12,3062           76202                           SR4      TAD                                   #                                PL AT 2
055406,001338: 12,3063           75440                           BMN      SQRT                                  
055407,001339: 12,3064           25250                                    INFINITY                              
055408,001340: 12,3065           43306                           ROUND    DAD                                   #                                PL AT 0D
055409,001341: 12,3066           61000                           BOV      TIX,2                                 
055410,001342: 12,3067           25163                                    RESETX2                               
055411,001343: 12,3070           25056                                    WLOOP                                 
055412,001344: 
055413,001345: 
055414,001346: 12,3071           40065                           BDDV     BOV                                   
055415,001347: 12,3072           33406                                    D1/128                                
055416,001348: 12,3073           25250                                    INFINITY                              
055417,001349: 12,3074           41440        POLYCOEF           BMN      PUSH                                  #  0D=1/W (+2) OR 16/W (+6)      PL AT 2
055418,001350: 12,3075           25250                                    INFINITY                              
055419,001351: 12,3076           77716                           DSQ                                            
055420,001352: 12,3077           41301                           NORM     DMP                                   
055421,001353: 12,3100           00047                                    X1                                    
055422,001354: 12,3101           02744                                    R1A                                   
055423,001355: 12,3102           77457                           SRR*     EXIT                                  
055424,001356: 12,3103           21567                                    0          -10D,1                     
055425,001357: 12,3104           07171                           TC       POLY                                  
055426,001358: 12,3105           00005                           DEC      5          B-14                       

Page 1293

055428,001360: 12,3106           20000 00000                     2DEC     .5                                    
055429,001361: 12,3110           72525 52471                     2DEC     -.166666770                            
055430,001362: 12,3112           03146 15003                     2DEC     .100000392                            
055431,001363: 12,3114           75556 45210                     2DEC     -.071401086                            
055432,001364: 12,3116           01615 13553                     2DEC     .055503292                            
055433,001365: 12,3120           76371 63777                     2DEC     -.047264098                            
055434,001366: 12,3122           01232 27367                     2DEC     .040694204                            
055435,001367: 
055436,001368: 12,3124           06006                           TC       INTPRET                               
055437,001369: 12,3125           76405                           DMP      SL1R                                  #                                PL AT 0D
055438,001370: 12,3126           43006                           PUSH     BON                                   
055439,001371: 12,3127           04316                                    360SW                                 
055440,001372: 12,3130           25235                                    TRUE360X                              
055441,001373: 12,3131           60316        XCOMMON            DSQ      NORM                                  
055442,001374: 12,3132           00047                                    X1                                    
055443,001375: 12,3133           53605                           DMP      SRR*                                  
055444,001376: 12,3134           02744                                    R1A                                   
055445,001377: 12,3135           21565                                    0          -12D,1                     
055446,001378: 12,3136           14031                           STODL    XI                                    #  XI (+6)
055447,001379: 
055448,001380: 
055449,001381: 12,3137           00041                                    R1                                    
055450,001382: 12,3140           75542                           SR1      SQRT                                  
055451,001383: 12,3141           41306                           ROUND    DMP                                   
055452,001384: 12,3142           77632                           SL4R                                           #                                PL AT 0
055453,001385: 12,3143           00025                           STORE    X                                     #  X (+17 OR +16)
055454,001386: 
055455,001387: 
055456,001388: 12,3144           60316                           DSQ      NORM                                  
055457,001389: 12,3145           00047                                    X1                                    
055458,001390: 12,3146           41325                           PDDL     DMP                                   #  0D=XSQ (+34 OR +32 -N1)       PL AT 2
055459,001391: 12,3147           02742                                    P                                     
055460,001392: 12,3150           00041                                    R1                                    
055461,001393: 12,3151           75452                           SL3      SQRT                                  
055462,001394: 12,3152           56405                           DMP      SL3R                                  
055463,001395: 12,3153           03770                                    COGA                                  
055464,001396: 12,3154           14043                           STODL    KEPC1                                 
055465,001397: 12,3155           02744                                    R1A                                   
055466,001398: 12,3156           43021                           BDSU     CLEAR                                 
055467,001399: 12,3157           33410                                    D1/64                                 
055468,001400: 12,3160           04270                                    INFINFLG                              
055469,001401: 12,3161           00045                           STORE    KEPC2                                 
055470,001402: 12,3162           77616                           RVQ                                            
055471,001403: 

Page 1294

055473,001405: 
055474,001406: 12,3163           77774        RESETX2            AXT,2                                          
055475,001407: 12,3164           00003                                    3                                     
055476,001408: 
055477,001409: 12,3165           51001        360CHECK           SETPD    BPL                                   
055478,001410: 12,3166           00001                                    0D                                    
055479,001411: 12,3167           25172                                    INVRSEQN                              
055480,001412: 12,3170           77614                           SET                                            
055481,001413: 12,3171           04076                                    360SW                                 
055482,001414: 
055483,001415: 
055484,001416: 12,3172           75545        INVRSEQN           DLOAD    SQRT                                  
055485,001417: 12,3173           02742                                    P                                     
055486,001418: 12,3174           41325                           PDDL     DMP                                   #  0D=SQRT(P) (+2)               PL AT 2
055487,001419: 12,3175           02732                                    SNTH                                  
055488,001420: 12,3176           03770                                    COGA                                  
055489,001421: 12,3177           65352                           SL1      PDDL                                  #  2D=SNTH COGA (+5)             PL AT 4
055490,001422: 12,3200           02734                                    CSTH                                  
055491,001423: 12,3201           43202                           SR4      DAD                                   
055492,001424: 12,3202           33416                                    D1/32                                 
055493,001425: 12,3203           41225                           DSU      DMP                                   #                                PL AT 2,0
055494,001426: 12,3204           55301                           NORM     BDDV                                  
055495,001427: 12,3205           00047                                    X1                                    
055496,001428: 12,3206           02732                                    SNTH                                  
055497,001429: 12,3207           51457                           SLR*     ABS                                   #  NOTE: NEAR 360 CASE TREATED DIFFERENTLY
055498,001430: 12,3210           21174                                    0          -5,1                       
055499,001431: 12,3211           63406                           PUSH     DSQ                                   #  0D=1/W (-1)                   PL AT 2
055500,001432: 12,3212           14043                           STODL    34D                                   
055501,001433: 12,3213           33414                                    D1/16                                 
055502,001434: 12,3214           63406        1/WLOOP            PUSH     DSQ                                   #  2D=G (+4)                     PL AT 4
055503,001435: 12,3215           65234                           RTB      PDDL                                  #                                PL AT 7
055504,001436: 12,3216           45657                                    TPMODE                                
055505,001437: 12,3217           02744                                    R1A                                   
055506,001438: 12,3220           40405                           DMP      SR4                                   
055507,001439: 12,3221           00043                                    34D                                   
055508,001440: 12,3222           77771                           TAD                                            #                                PL AT 4
055509,001441: 12,3223           75440                           BMN      SQRT                                  
055510,001442: 12,3224           25250                                    INFINITY                              
055511,001443: 12,3225           77615                           DAD                                            #                                PL AT 2
055512,001444: 12,3226           60304                           TIX,2    NORM                                  
055513,001445: 12,3227           25214                                    1/WLOOP                               
055514,001446: 12,3230           00047                                    X1                                    
055515,001447: 12,3231           77665                           BDDV                                           
055516,001448: 12,3232           52057                           SLR*     GOTO                                  #                                PL AT 0
055517,001449: 12,3233           21172                                    0          -7,1                       
055518,001450: 12,3234           25074                                    POLYCOEF                              
055519,001451: 
055520,001452: 
055521,001453: 12,3235           50145        TRUE360X           DLOAD    BMN                                   
055522,001454: 12,3236           02744                                    R1A                                   

Page 1295

055524,001456: 12,3237           25250                                    INFINITY                              
055525,001457: 12,3240           60366                           SQRT     NORM                                  
055526,001458: 12,3241           00047                                    X1                                    
055527,001459: 12,3242           53665                           BDDV     SL*                                   
055528,001460: 12,3243           33430                                    2PISC                                 
055529,001461: 12,3244           20176                                    0          -3,1                       
055530,001462: 12,3245           41425                           DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X           PL AT 0,2
055531,001463: 12,3246           77650                           GOTO                                           
055532,001464: 12,3247           25131                                    XCOMMON                               
055533,001465: 12,3250           40001        INFINITY           SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
055534,001466: 12,3251           00001                                    0                                     #  INFINITY IS REQUIRED
055535,001467: 12,3252           25253                                    OVFLCLR                               
055536,001468: 12,3253           43414        OVFLCLR            SET      RVQ                                   
055537,001469: 12,3254           04070                                    INFINFLG                              
055538,001470: 

Page 1296

055540,001472: 12,3255           45020        LAMBERT            STQ      CALL                                  
055541,001473: 12,3256           02712                                    RTNLAMB                               
055542,001474: 12,3257           24577                                    COMSETUP                              
055543,001475: 12,3260           57345                           DLOAD    DMPR                                  
055544,001476: 12,3261           02673                                    TDESIRED                              
055545,001477: 12,3262           33415                                    BEE19                                 
055546,001478: 12,3263           03772                           STORE    EPSILONL                              
055547,001479: 12,3264           77214                           SET      VLOAD                                 
055548,001480: 12,3265           00474                                    SLOPESW                               
055549,001481: 12,3266           02657                                    R1VEC                                 
055550,001482: 12,3267           45115                           PDVL     CALL                                  #  0D=R1VEC (+29 OR +27)         PL AT 6
055551,001483: 12,3270           02665                                    R2VEC                                 #  MPAC=R2VEC (+29 OR +27)
055552,001484: 12,3271           13717                                    GEOM                                  
055553,001485: 12,3272           16732                           STODL    SNTH                                  #  0D=CSTH (+1)                  PL AT 2
055554,001486: 12,3273           02722                                    MAGVEC2                               
055555,001487: 12,3274           65301                           NORM     PDDL                                  #                                PL AT 4
055556,001488: 12,3275           00047                                    X1                                    
055557,001489: 12,3276           00041                                    R1                                    
055558,001490: 12,3277           56342                           SR1      DDV                                   #                                PL AT 2
055559,001491: 12,3300           65257                           SL*      PDDL                                  #  DXCH WITH 0D, 0D=R1/R2 (+7)   PL AT 0,2
055560,001492: 12,3301           20173                                    0          -6,1                       
055561,001493: 12,3302           77626                           STADR                                          
055562,001494: 12,3303           75043                           STORE    CSTH                                  #  CSTH (+1)
055563,001495: 12,3304           44342                           SR1      BDSU                                  
055564,001496: 12,3305           33412                                    D1/4                                  
055565,001497: 12,3306           02736                           STORE    1-CSTH                                #  1-CSTH (+2)
055566,001498: 
055567,001499: 12,3307           53106                           ROUND    BZE                                   
055568,001500: 12,3310           25524                                    360LAMB                               
055569,001501: 12,3311           65301                           NORM     PDDL                                  #                                PL AT 4
055570,001502: 12,3312           00047                                    X1                                    
055571,001503: 12,3313           00001                                    0D                                    
055572,001504: 12,3314           56342                           SR1      DDV                                   #                                PL AT 2
055573,001505: 12,3315           75457                           SL*      SQRT                                  
055574,001506: 12,3316           20176                                    0          -3,1                       
055575,001507: 12,3317           54325                           PDDL     SR                                    #  2D=SQRT(2R1/R2(1-CSTH)) (+5)  PL AT 4
055576,001508: 12,3320           02732                                    SNTH                                  
055577,001509: 12,3321           20607                                    6                                     
055578,001510: 12,3322           43271                           DDV      DAD                                   #                                PL AT 2
055579,001511: 12,3323           02736                                    1-CSTH                                
055580,001512: 12,3324           77626                           STADR                                          
055581,001513: 12,3325           77760                           STORE    COGAMAX                               
055582,001514: 12,3326           50000                           BOV      BMN                                   #  IF OVFL, COGAMAX=COGUPLIM
055583,001515: 12,3327           25334                                    UPLIM                                 #  IF NEG, USE EVEN IF LT COGLOLIM, SINCE
055584,001516: 12,3330           25337                                    MAXCOGA                               #    THIS WOULD BE RESET IN LAMBLOOP
055585,001517: 12,3331           50025                           DSU      BMN                                   #  IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
055586,001518: 12,3332           33434                                    COGUPLIM                              
055587,001519: 12,3333           25337                                    MAXCOGA                               #  OTHERWISE OK, SO GO TO MAXCOGA
055588,001520: 12,3334           77745        UPLIM              DLOAD                                          
055589,001521: 12,3335           33434                                    COGUPLIM                              #  COGUPLIM=.999511597 = MAX VALUE OF COGA

Page 1297

055591,001523: 12,3336           00017                           STORE    COGAMAX                               #    NOT CAUSING OVFL IN R1A CALCULATION
055592,001524: 12,3337           54345        MAXCOGA            DLOAD    SR                                    
055593,001525: 12,3340           02734                                    CSTH                                  
055594,001526: 12,3341           20607                                    6                                     
055595,001527: 12,3342           45425                           DSU      STADR                                 
055596,001528: 12,3343           61037                           STODL    CSTH-RHO                              
055597,001529: 12,3344           02675                                    GEOMSGN                               
055598,001530: 12,3345           71240                           BMN      DLOAD                                 
055599,001531: 12,3346           25543                                    LOLIM                                 
055600,001532: 12,3347           02740                                    CSTH-RHO                              
055601,001533: 12,3350           56352                           SL1      DDV                                   
055602,001534: 12,3351           02732                                    SNTH                                  
055603,001535: 12,3352           77600                           BOV                                            
055604,001536: 12,3353           25543                                    LOLIM                                 
055605,001537: 12,3354           00011        MINCOGA            STORE    COGAMIN                               #  COGAMIN (+5)
055606,001538: 12,3355           66214                           BON      SSP                                   
055607,001539: 12,3356           00715                                    GUESSW                                
055608,001540: 12,3357           25530                                    NOGUESS                               
055609,001541: 12,3360           00051                                    TWEEKIT                               
055610,001542: 12,3361           00001                                    00001                                 
055611,001543: 12,3362           77745                           DLOAD                                          
055612,001544: 12,3363           03770                                    COGA                                  
055613,001545: 
055614,001546: 
055615,001547: 12,3364           77605        LAMBLOOP           DMP                                            
055616,001548: 12,3365           02732                                    SNTH                                  
055617,001549: 12,3366           45342                           SR1      DSU                                   
055618,001550: 12,3367           02740                                    CSTH-RHO                              
055619,001551: 12,3370           65301                           NORM     PDDL                                  #  0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
055620,001552: 12,3371           00047                                    X1                                    
055621,001553: 12,3372           02736                                    1-CSTH                                
055622,001554: 12,3373           56257                           SL*      DDV                                   #  1-CSTH (+2)                   PL AT 0
055623,001555: 12,3374           20170                                    0          -9D,1                      
055624,001556: 12,3375           53040                           BMN      BZE                                   
055625,001557: 12,3376           25462                                    NEGP                                  
055626,001558: 12,3377           25462                                    NEGP                                  
055627,001559: 12,3400           16742                           STODL    P                                     #  P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
055628,001560: 12,3401           03770                                    COGA                                  
055629,001561: 12,3402           43316                           DSQ      DAD                                   
055630,001562: 12,3403           33420                                    D1/1024                               
055631,001563: 12,3404           41301                           NORM     DMP                                   
055632,001564: 12,3405           00047                                    X1                                    
055633,001565: 12,3406           02742                                    P                                     
055634,001566: 12,3407           44257                           SR*      BDSU                                  
055635,001567: 12,3410           20571                                    0          -8D,1                      
055636,001568: 12,3411           33416                                    D1/32                                 
055637,001569: 12,3412           16744                           STODL    R1A                                   #  R1A=2-P(1+COGA COGA) (+6)
055638,001570: 
055639,001571: 12,3413           02742                                    P                                     
055640,001572: 12,3414           45000                           BOV      CALL                                  

Page 1298

055642,001574: 12,3415           25465                                    HIENERGY                              
055643,001575: 12,3416           25032                                    GETX                                  
055644,001576: 12,3417           77745                           DLOAD                                          
055645,001577: 12,3420           00037                                    T                                     
055646,001578: 12,3421           16764                           STODL    TPREV                                 
055647,001579: 12,3422           00031                                    XI                                    
055648,001580: 12,3423           45014                           BON      CALL                                  
055649,001581: 12,3424           04310                                    INFINFLG                              
055650,001582: 12,3425           25462                                    NEGP                                  #  HAVE EXCEEDED THEORETICAL BOUNDS
055651,001583: 12,3426           24462                                    DELTIME                               
055652,001584: 12,3427           44200                           BOV      BDSU                                  
055653,001585: 12,3430           25501                                    BIGTIME                               
055654,001586: 12,3431           02673                                    TDESIRED                              
055655,001587: 12,3432           02762                           STORE    TERRLAMB                              
055656,001588: 12,3433           44246                           ABS      BDSU                                  
055657,001589: 12,3434           03772                                    EPSILONL                              
055658,001590: 12,3435           47044                           BPL      RTB                                   
055659,001591: 12,3436           25546                                    INITV                                 
055660,001592: 12,3437           24716                                    CHECKCTR                              
055661,001593: 12,3440           43030                           BHIZ     BON                                   
055662,001594: 12,3441           25511                                    SUFFCHEK                              
055663,001595: 12,3442           00714                                    SLOPESW                               
055664,001596: 12,3443           25451                                    GOITER                                
055665,001597: 12,3444           45345                           DLOAD    DSU                                   
055666,001598: 12,3445           00037                                    T                                     
055667,001599: 12,3446           02764                                    TPREV                                 
055668,001600: 12,3447           77654                           BZE                                            
055669,001601: 12,3450           25511                                    SUFFCHEK                              
055670,001602: 12,3451           77624        GOITER             CALL                                           
055671,001603: 12,3452           24610                                    ITERATOR                              
055672,001604: 12,3453           53145                           DLOAD    BZE                                   
055673,001605: 12,3454           00155                                    MPAC                                  
055674,001606: 12,3455           25511                                    SUFFCHEK                              
055675,001607: 12,3456           77615                           DAD                                            
055676,001608: 12,3457           03770                                    COGA                                  
055677,001609: 12,3460           37770                           STCALL   COGA                                  
055678,001610: 12,3461           25364                                    LAMBLOOP                              
055679,001611: 
055680,001612: 
055681,001613: 12,3462           51145        NEGP               DLOAD    BPL                                   #  IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
055682,001614: 12,3463           00015                                    DCOGA                                 #  BOUND CALCULATION. TRY NEW COGA.
055683,001615: 12,3464           25504                                    LOENERGY                              
055684,001616: 
055685,001617: 12,3465           71201        HIENERGY           SETPD    DLOAD                                 #  HIGH ENERGY TRAJECTORY RESULTED
055686,001618: 12,3466           00001                                    0                                     
055687,001619: 12,3467           03770                                    COGA                                  #  IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
055688,001620: 12,3470           00011                           STORE    COGAMIN                               #  THIS IS THE NEW BOUND.
055689,001621: 12,3471           70545        COMMONLM           DLOAD    SR1                                   
055690,001622: 12,3472           00015                                    DCOGA                                 

Page 1299

055692,001624: 12,3473           00015                           STORE    DCOGA                                 #  USE DCOGA/2 AS DECREMENT
055693,001625: 12,3474           44254                           BZE      BDSU                                  
055694,001626: 12,3475           25511                                    SUFFCHEK                              
055695,001627: 12,3476           03770                                    COGA                                  
055696,001628: 12,3477           37770                           STCALL   COGA                                  
055697,001629: 12,3500           25364                                    LAMBLOOP                              
055698,001630: 
055699,001631: 
055700,001632: 12,3501           77745        BIGTIME            DLOAD                                          
055701,001633: 12,3502           02764                                    TPREV                                 
055702,001634: 12,3503           00037                           STORE    T                                     
055703,001635: 
055704,001636: 
055705,001637: 12,3504           71201        LOENERGY           SETPD    DLOAD                                 #  LOW ENERGY TRAJECTORY RESULTED
055706,001638: 12,3505           00001                                    0                                     
055707,001639: 12,3506           03770                                    COGA                                  #  IN OVERFLOW OF TIME.
055708,001640: 12,3507           34017                           STCALL   COGAMAX                               #  THIS IS THE NEW BOUND.
055709,001641: 12,3510           25471                                    COMMONLM                              
055710,001642: 
055711,001643: 
055712,001644: 12,3511           51545        SUFFCHEK           DLOAD    ABS                                   
055713,001645: 12,3512           02762                                    TERRLAMB                              
055714,001646: 12,3513           41325                           PDDL     DMP                                   #                                PL AT 2D
055715,001647: 12,3514           02673                                    TDESIRED                              
055716,001648: 12,3515           33412                                    D1/4                                  
055717,001649: 12,3516           45215                           DAD      DSU                                   #                                PL AT 0D
055718,001650: 12,3517           33432                                    ONEBIT                                
055719,001651: 12,3520           43044                           BPL      SETGO                                 
055720,001652: 12,3521           25546                                    INITV                                 
055721,001653: 12,3522           02434                                    SOLNSW                                
055722,001654: 12,3523           02712                                    RTNLAMB                               
055723,001655: 
055724,001656: 
055725,001657: 12,3524           43001        360LAMB            SETPD    SETGO                                 #  LAMBERT CANNOT HANDLE CSTH=1
055726,001658: 12,3525           00001                                    0                                     
055727,001659: 12,3526           02434                                    SOLNSW                                
055728,001660: 12,3527           02712                                    RTNLAMB                               
055729,001661: 
055730,001662: 
055731,001663: 12,3530           71331        NOGUESS            SSP      DLOAD                                 
055732,001664: 12,3531           00051                                    TWEEKIT                               
055733,001665: 12,3532           10000                                    20000                                 
055734,001666: 12,3533           00011                                    COGAMIN                               
055735,001667: 12,3534           65342                           SR1      PDDL                                  #                                PL AT 2
055736,001668: 12,3535           00017                                    COGAMAX                               
055737,001669: 12,3536           43342                           SR1      DAD                                   
055738,001670: 12,3537           77626                           STADR                                          #                                PL AT 0
055739,001671: 12,3540           74007                           STORE    COGA                                  
055740,001672: 12,3541           34015                           STCALL   DCOGA                                 
055741,001673: 12,3542           25364                                    LAMBLOOP                              

Page 1300

055743,001675: 12,3543           52145        LOLIM              DLOAD    GOTO                                  
055744,001676: 12,3544           33436                                    COGLOLIM                              #  COGLOLIM=-.999511597
055745,001677: 12,3545           25354                                    MINCOGA                               
055746,001678: 
055747,001679: 
055748,001680: 12,3546           60345        INITV              DLOAD    NORM                                  
055749,001681: 12,3547           00041                                    R1                                    
055750,001682: 12,3550           00047                                    X1                                    
055751,001683: 12,3551           70525                           PDDL     SR1                                   #                                PL AT 2
055752,001684: 12,3552           02742                                    P                                     
055753,001685: 12,3553           77671                           DDV                                            #                                PL AT 0
055754,001686: 12,3554           75457                           SL*      SQRT                                  
055755,001687: 12,3555           20175                                    0          -4,1                       
055756,001688: 12,3556           72405                           DMP      SL1                                   
055757,001689: 12,3557           00021                                    ROOTMU                                
055758,001690: 12,3560           41206                           PUSH     DMP                                   #  0D=VTAN (+7)                  PL AT 2
055759,001691: 12,3561           03770                                    COGA                                  
055760,001692: 12,3562           74261                           SL       VXSC                                  
055761,001693: 12,3563           20206                                    5                                     
055762,001694: 12,3564           02724                                    UR1                                   
055763,001695: 12,3565           77725                           PDDL                                           #  XCH WITH 0D                   PL AT 0,6
055764,001696: 12,3566           76561                           VXSC     VSL1                                  
055765,001697: 12,3567           02676                                    UN                                    
055766,001698: 12,3570           53235                           VXV      VAD                                   #                                PL AT 0
055767,001699: 12,3571           02724                                    UR1                                   
055768,001700: 12,3572           43172                           VSL1     CLEAR                                 
055769,001701: 12,3573           02674                                    SOLNSW                                
055770,001702: 12,3574           02746                           STORE    VVEC                                  
055771,001703: 12,3575           53135                           SLOAD    BZE                                   
055772,001704: 12,3576           02704                                    VTARGTAG                              
055773,001705: 12,3577           25602                                    TARGETV                               
055774,001706: 12,3600           77650                           GOTO                                           
055775,001707: 12,3601           02712                                    RTNLAMB                               
055776,001708: 
055777,001709: 
055778,001710: 12,3602           45145        TARGETV            DLOAD    CALL                                  
055779,001711: 12,3603           02722                                    MAGVEC2                               
055780,001712: 12,3604           24751                                    LAMENTER                              
055781,001713: 12,3605           36705                           STCALL   VTARGET                               
055782,001714: 12,3606           02712                                    RTNLAMB                               
055783,001715: 

Page 1301

055785,001717: 12,3607           45020        TIMERAD            STQ      CALL                                  
055786,001718: 12,3610           02712                                    RTNTR                                 
055787,001719: 12,3611           25763                                    PRAMSET                               
055788,001720: 12,3612           77624                           CALL                                           
055789,001721: 12,3613           37727                                    PARAM                                 
055790,001722: 12,3614           71200                           BOV      DLOAD                                 #                                PL AT 0
055791,001723: 12,3615           25027                                    COGAOVFL                              
055792,001724: 12,3616           33416                                    D1/32                                 
055793,001725: 12,3617           41225                           DSU      DMP                                   
055794,001726: 12,3620           02744                                    R1A                                   
055795,001727: 12,3621           02742                                    P                                     
055796,001728: 12,3622           41366                           SQRT     DMP                                   
055797,001729: 12,3623           03770                                    COGA                                  
055798,001730: 12,3624           74212                           SL4      VXSC                                  
055799,001731: 12,3625           02714                                    U2                                    
055800,001732: 12,3626           45325                           PDDL     DSU                                   #                                PL AT 6
055801,001733: 12,3627           33410                                    D1/64                                 
055802,001734: 12,3630           02744                                    R1A                                   
055803,001735: 12,3631           52361                           VXSC     VSU                                   #                                PL AT 0
055804,001736: 12,3632           02724                                    UR1                                   
055805,001737: 12,3633           53512                           VSL4     UNIT                                  
055806,001738: 12,3634           77600                           BOV                                            
055807,001739: 12,3635           25713                                    CIRCULAR                              
055808,001740: 12,3636           60325                           PDDL     NORM                                  #  0D=UNIT(ECC) (+3)             PL AT 6
055809,001741: 12,3637           02760                                    RDESIRED                              #  36D=ECC (+3)
055810,001742: 12,3640           00047                                    X1                                    
055811,001743: 12,3641           41325                           PDDL     DMP                                   #                                PL AT 8
055812,001744: 12,3642           00041                                    R1                                    
055813,001745: 12,3643           02742                                    P                                     
055814,001746: 12,3644           56257                           SL*      DDV                                   #                                PL AT 6
055815,001747: 12,3645           20201                                    0,1                                   
055816,001748: 12,3646           56225                           DSU      DDV                                   
055817,001749: 12,3647           33414                                    D1/16                                 
055818,001750: 12,3650           00045                                    36D                                   #  36D=ECC (+3)
055819,001751: 12,3651           00031                           STORE    COSF                                  
055820,001752: 12,3652           63400                           BOV      DSQ                                   
055821,001753: 12,3653           20453                                    BADR2                                 
055822,001754: 12,3654           50021                           BDSU     BMN                                   
055823,001755: 12,3655           33412                                    D1/4                                  
055824,001756: 12,3656           20453                                    BADR2                                 
055825,001757: 12,3657           75366                           SQRT     SIGN                                  
055826,001758: 12,3660           02757                                    SGNRDOT                               
055827,001759: 12,3661           77614                           CLEAR                                          
055828,001760: 12,3662           04272                                    APSESW                                
055829,001761: 
055830,001762: 12,3663           76561        TERMNVEC           VXSC     VSL1                                  
055831,001763: 12,3664           02676                                    UN                                    
055832,001764: 12,3665           63235                           VXV      PDVL                                  #  VXCH WITH 0D                  PL AT 0,6
055833,001765: 12,3666           00001                                    0D                                    
055834,001766: 12,3667           53361                           VXSC     VAD                                   #                                PL AT 0

Page 1302

055836,001768: 12,3670           00031                                    COSF                                  
055837,001769: 12,3671           41572                           VSL1     PUSH                                  #  0D=U2                         PL AT 6
055838,001770: 
055839,001771: 12,3672           56241                           DOT      DDV                                   #  LIMITS RESULT TO POSMAX OR NEGMAX
055840,001772: 12,3673           02724                                    UR1                                   
055841,001773: 12,3674           33412                                    DP1/4                                 
055842,001774: 12,3675           40142                           SR1      BOV                                   #  SCALE BACK DOWN TO NORMAL
055843,001775: 12,3676           25677                                    +1                                    #  CLEAR OVFIND IF SET
055844,001776: 12,3677           26734                           STOVL    CSTH                                  #  CSTH (+1)
055845,001777: 12,3700           02724                                    UR1                                   
055846,001778: 12,3701           76435                           VXV      VSL1                                  
055847,001779: 12,3702           72441                           DOT      SL1                                   
055848,001780: 12,3703           02676                                    UN                                    
055849,001781: 12,3704           16732                           STODL    SNTH                                  #  SNTH (+1)
055850,001782: 12,3705           02742                                    P                                     
055851,001783: 12,3706           77624                           CALL                                           
055852,001784: 12,3707           25032                                    GETX                                  
055853,001785: 12,3710           77614                           CLRGO                                          
055854,001786: 12,3711           02634                                    SOLNSW                                
055855,001787: 12,3712           25012                                    COMMNOUT                              
055856,001788: 
055857,001789: 
055858,001790: 12,3713           43001        CIRCULAR           SETPD    SETGO                                 
055859,001791: 12,3714           00001                                    0                                     
055860,001792: 12,3715           02434                                    SOLNSW                                
055861,001793: 12,3716           25760                                    ABTCONIC                              
055862,001794: 
055863,001795: 
055864,001796: 10,2000                                           SETLOC   CONICS5                               
055865,001797: 10,2000                                           BANK                                           
055866,001798: 
055867,001799: 10,2453                                           COUNT*   $$/CONIC                              
055868,001800: 10,2453           75345        BADR2              DLOAD    SIGN                                  
055869,001801: 10,2454           11760                                    LODPHALF                              
055870,001802: 10,2455           00031                                    COSF                                  
055871,001803: 10,2456           14031                           STODL    COSF                                  
055872,001804: 10,2457           11762                                    KEPZERO                               
055873,001805: 10,2460           77614                           SETGO                                          
055874,001806: 10,2461           04032                                    APSESW                                
055875,001807: 10,2462           25663                                    TERMNVEC                              
055876,001808: 

Page 1303

055878,001810: 12,2000                                           SETLOC   CONICS                                
055879,001811: 12,2000                                           BANK                                           
055880,001812: 
055881,001813: 12,3717                                           COUNT*   $$/CONIC                              
055882,001814: 12,3717           45020        APSIDES            STQ      CALL                                  
055883,001815: 12,3720           02712                                    RTNAPSE                               
055884,001816: 12,3721           25763                                    PRAMSET                               
055885,001817: 12,3722           77624                           CALL                                           
055886,001818: 12,3723           37727                                    PARAM                                 
055887,001819: 12,3724           77600                           BOV                                            #                                PL AT 0
055888,001820: 12,3725           25726                                    GETECC                                
055889,001821: 12,3726           42405        GETECC             DMP      SL4                                   
055890,001822: 12,3727           02744                                    R1A                                   
055891,001823: 12,3730           75421                           BDSU     SQRT                                  
055892,001824: 12,3731           33410                                    D1/64                                 
055893,001825: 12,3732           02754                           STORE    ECC                                   
055894,001826: 12,3733           65215                           DAD      PDDL                                  #                                PL AT 2
055895,001827: 12,3734           33404                                    D1/8                                  
055896,001828: 12,3735           00041                                    R1                                    
055897,001829: 12,3736           72405                           DMP      SL1                                   
055898,001830: 12,3737           02742                                    P                                     
055899,001831: 12,3740           77671                           DDV                                            #                                PL AT 0
055900,001832: 12,3741           60325                           PDDL     NORM                                  #  0D=RP (+29 OR +27)            PL AT 2
055901,001833: 12,3742           02744                                    R1A                                   
055902,001834: 12,3743           00047                                    X1                                    
055903,001835: 12,3744           53725                           PDDL     SL*                                   #                                PL AT 4
055904,001836: 12,3745           00041                                    R1                                    
055905,001837: 12,3746           20174                                    0          -5,1                       
055906,001838: 12,3747           45271                           DDV      DSU                                   #                                PL AT 2,0
055907,001839: 12,3750           50000                           BOV      BMN                                   
055908,001840: 12,3751           25755                                    INFINAPO                              
055909,001841: 12,3752           25755                                    INFINAPO                              
055910,001842: 12,3753           77650                           GOTO                                           
055911,001843: 12,3754           02712                                    RTNAPSE                               
055912,001844: 12,3755           52145        INFINAPO           DLOAD    GOTO                                  #  RETURNS WITH APOAPSIS IN MPAC,PERIAPSIS
055913,001845: 12,3756           11773                                    LDPOSMAX                              
055914,001846: 12,3757           02712                                    RTNAPSE                               #  THAT PL IS AT 0.
055915,001847: 

Page 1304

055917,001849: 12,3760           77776        ABTCONIC           EXIT                                           
055918,001850: 12,3761           05726                           TC       POODOO                                
055919,001851: 12,3762           20607                           OCT      20607                                 #  NO SOLUTION FROM TIMETHET OR TIMERAD
055920,001852: 

Page 1305

055922,001854: 12,3763           40001        PRAMSET            SETPD    BOV                                   
055923,001855: 12,3764           00001                                    0D                                    
055924,001856: 12,3765           25766                                    +1                                    
055925,001857: 12,3766           63375                           VLOAD    PDVL                                  
055926,001858: 12,3767           02657                                    RVEC                                  
055927,001859: 12,3770           02746                                    VVEC                                  
055928,001860: 12,3771           77616                           RVQ                                            
055929,001861: 
055930,001862: 11,2000                                           SETLOC   CONICS3                               
055931,001863: 11,2000                                           BANK                                           
055932,001864: 
055933,001865: 11,2300                                           COUNT*   $$/CONIC                              
055934,001866: 11,2300           22437 16067  MUTABLE            2DEC*    3.986032   E10        B-36*           #  MUE
055935,001867: 11,2302           15625 21042                     2DEC*    .25087606  E-10       B+34*           #  1/MUE
055936,001868: 11,2304           30276 04773                     2DEC*    1.99650495 E5         B-18*           #  SQRT(MUE)
055937,001869: 11,2306           25004 06702                     2DEC*    .50087529  E-5        B+17*           #  1/SQRT(MUE)
055938,001870: 
055939,001871: 11,2310           16471 01352                     2DEC     4.902778   E8         B-30            #  MUM
055940,001872: 11,2312           21412 20500                     2DEC     .203966    E-8        B+28            #  1/MUM
055941,001873: 11,2314           25477 03367                     2DEC*    2.21422176 E4         B-15*           #  SQRT(MUM)
055942,001874: 11,2316           27533 07571                     2DEC*    .45162595  E-4        B+14*           #  1/SQRT(MUM)
055943,001875: 
055944,001876: 11,2320  04,3772               LDPOSMAX           EQUALS   LODPMAX                               #  DPPOSMAX IN LOW MEMORY.
055945,001877: 
055946,001878:                                                                                                  #  ERASABLE ASSIGNMENTS
055947,001879: 
055948,001880: 
055949,001881:                                                                                                  #  KEPLER SUBROUTINE
055950,001882: 
055951,001883:                                                                                                  #     INPUT -
055952,001884:                                                                                                  #  RRECT         ERASE   +5
055953,001885:                                                                                                  #  VRECT         ERASE   +5
055954,001886:                                                                                                  #  TAU.          ERASE   +1
055955,001887:                                                                                                  #  XKEP          ERASE   +1
055956,001888:                                                                                                  #  TC            ERASE   +1
055957,001889:                                                                                                  #  XPREV         ERASE   +1
055958,001890: 11,2320                        1/MU               EQUALS   14D                                   
055959,001891: 11,2320                        ROOTMU             EQUALS   16D                                   
055960,001892: 11,2320                        1/ROOTMU           EQUALS   18D                                   
055961,001893: 
055962,001894:                                                                                                  #     OUTPUT -
055963,001895:                                                                                                  #  RCV           ERASE   +5

Page 1306

055965,001897:                                                                                                  #  VCV           ERASE   +5
055966,001898:                                                                                                  #  RC            ERASE   +1
055967,001899:                                                                                                  #  XPREV         ERASE   +1
055968,001900: 
055969,001901:                                                                                                  #  DEBRIS -
055970,001902: 11,2320                        ALPHA              EQUALS   8D                                    
055971,001903: 11,2320                        XMAX               EQUALS   10D                                   
055972,001904: 11,2320                        XMIN               EQUALS   12D                                   
055973,001905: 11,2320                        X                  EQUALS   20D                                   
055974,001906: 11,2320                        XI                 EQUALS   24D                                   
055975,001907: 11,2320                        S(XI)              EQUALS   26D                                   
055976,001908: 11,2320                        XSQC(XI)           EQUALS   28D                                   
055977,001909: 11,2320                        T                  EQUALS   30D                                   
055978,001910: 11,2320                        R1                 EQUALS   32D                                   
055979,001911: 11,2320                        KEPC1              EQUALS   34D                                   
055980,001912: 11,2320                        KEPC2              EQUALS   36D                                   
055981,001913:                                                                                                  #  DELX          ERASE   +1
055982,001914:                                                                                                  #  DELT          ERASE   +1
055983,001915:                                                                                                  #  URRECT        ERASE   +5
055984,001916:                                                                                                  #  RCNORM        ERASE   +1
055985,001917:                                                                                                  #  XPREV         EQUALS  XKEP
055986,001918: 
055987,001919: 
055988,001920:                                                                                                  #  LAMBERT SUBROUTINE
055989,001921: 
055990,001922:                                                                                                  #     INPUT -
055991,001923:                                                                                                  #  R1VEC         ERASE   +5
055992,001924:                                                                                                  #  R2VEC         ERASE   +5
055993,001925:                                                                                                  #  TDESIRED      ERASE   +1
055994,001926:                                                                                                  #  GEOMSGN       ERASE   +0
055995,001927:                                                                                                  #  GUESSW                                0 IF COGA GUESS AVAILABLE, 1 IF NOT
055996,001928:                                                                                                  #  COGA          ERASE   +1              INPUT ONLY IF GUESSW IS ZERO.
055997,001929:                                                                                                  #  NORMSW                                0 IF UN TO BE COMPUTED, 1 IF UN INPUT
055998,001930:                                                                                                  #  UN            ERASE   +5              ONLY USED IF NORMSW IS 1
055999,001931:                                                                                                  #  VTARGTAG      ERASE   +0
056000,001932:                                                                                                  #  TWEEKIT       EQUALS  40D             ONLY USED IF GUESSW IS 0
056001,001933: 
056002,001934:                                                                                                  #     OUTPUT -
056003,001935:                                                                                                  #  VTARGET       ERASE   +5              AVAILABLE ONLY IF VTARGTAG IS ZERO.
056004,001936:                                                                                                  #  V1VEC         EQUALS  MPAC
056005,001937: 
056006,001938:                                                                                                  #     DEBRIS -
056007,001939:                                                                                                  #  RTNLAMB       ERASE   +0
056008,001940:                                                                                                  #  U2            ERASE   +5
056009,001941:                                                                                                  #  MAGVEC2       ERASE   +1
056010,001942:                                                                                                  #  UR1           ERASE   +5
056011,001943:                                                                                                  #  R1            EQUALS  31D
056012,001944:                                                                                                  #  UN            ERASE   +5
056013,001945:                                                                                                  #  SNTH          ERASE   +1
056014,001946:                                                                                                  #  CSTH          ERASE   +1

Page 1307

056016,001948:                                                                                                  #  1-CSTH        ERASE   +1
056017,001949:                                                                                                  #  CSTH-RHO      ERASE   +1
056018,001950: 11,2320                        COGAMAX            EQUALS   14D                                   #  CLOBBERS 1/MU
056019,001951: 11,2320                        COGAMIN            EQUALS   8D                                    
056020,001952: 11,2320                        DCOGA              EQUALS   12D                                   
056021,001953:                                                                                                  #  TWEEKIT       EQUALS  40D
056022,001954:                                                                                                  #  P             ERASE   +1
056023,001955:                                                                                                  #  COGA          ERASE   +1
056024,001956:                                                                                                  #  R1A           ERASE   +1
056025,001957:                                                                                                  #  X             EQUALS  20D
056026,001958:                                                                                                  #  XSQ           EQUALS  22D
056027,001959:                                                                                                  #  XI            EQUALS  24D
056028,001960:                                                                                                  #  S(XI)         EQUALS  26D
056029,001961:                                                                                                  #  XSQC(XI)      EQUALS  28D
056030,001962:                                                                                                  #  T             EQUALS  30D
056031,001963:                                                                                                  #  KEPC1         EQUALS  34D
056032,001964:                                                                                                  #  KEPC2         EQUALS  36D
056033,001965:                                                                                                  #  SLOPESW
056034,001966:                                                                                                  #  SOLNSW
056035,001967: 
056036,001968:                                                                                                  #  OTHERS -
056037,001969: 
056038,001970:                                                                                                  #  RVEC          EQUALS  R1VEC
056039,001971:                                                                                                  #  VVEC          ERASE   +5
056040,001972:                                                                                                  #  COGAFLAG
056041,001973:                                                                                                  #  RVSW
056042,001974:                                                                                                  #  INFINFLG
056043,001975:                                                                                                  #  APSESW
056044,001976:                                                                                                  #  360SW
056045,001977:                                                                                                  #  RTNTT         EQUALS  RTNLAMB
056046,001978:                                                                                                  #  ECC           ERASE   +1
056047,001979:                                                                                                  #  RTNTR         EQUALS  RTNLAMB
056048,001980:                                                                                                  #  RTNAPSE       EQUALS  RTNLAMB
056049,001981:                                                                                                  #  R2            EQUALS  MAGVEC2
056050,001982: 11,2320                        COSF               EQUALS   24D                                   
056051,001983:                                                                                                  #  RTNPRM        ERASE   +0
056052,001984:                                                                                                  #  SGNRDOT       ERASE   +0
056053,001985:                                                                                                  #  RDESIRED      ERASE   +1
056054,001986: 
056055,001987: 
056056,001988:                                                                                                  #  ITERATOR SUBROUTINE
056057,001989: 
056058,001990:                                                                                                  #  ORDERSW
056059,001991: 11,2320                        MAX                EQUALS   14D                                   #  CLOBBERS 1/MU
056060,001992: 11,2320                        MIN                EQUALS   8D                                    
056061,001993:                                                                                                  #  INDEP         ERASE   +1
056062,001994: 11,2320                        DELINDEP           EQUALS   12D                                   
056063,001995: 11,2320                        ITERCTR            EQUALS   22D                                   
056064,001996: 11,2320                        DEP                EQUALS   30D                                   
056065,001997:                                                                                                  #  DELDEP        ERASE   +1
056066,001998:                                                                                                  #  DEPREV        ERASE   +1

Page 1308

056068,002000: 11,2320                        TWEEKIT            EQUALS   40D                                   
056069,002001: 
056070,002002: 
056071,002003:                                                                                                  #  MORE KEPLER
056072,002004: 
056073,002005:                                                                                                  #  EPSILONT      ERASE   +1
056074,002006: 
056075,002007: 
056076,002008:                                                                                                  #  MORE LAMBERT
056077,002009: 
056078,002010:                                                                                                  #  TERRLAMB      EQUALS  DELDEP
056079,002011:                                                                                                  #  TPREV         EQUALS  DEPREV
056080,002012: 
056081,002013:                                                                                                  #  EPSILONL      EQUALS  EPSILONT +2     DOUBLE PRECISION WORD

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