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.

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

Page 1262

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

Page 1263

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

Page 1264

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

Page 1265

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

Page 1266

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

Page 1267

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

Page 1268

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

Page 1269

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

Page 1270

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

Page 1271

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

Page 1272

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

Page 1273

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

Page 1274

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

Page 1275

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

Page 1276

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

Page 1277

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

Page 1278

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

Page 1279

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

Page 1280

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

Page 1281

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

Page 1282

055005,000949: 12,2444           56257                           SLR*     DDV                                   
055006,000950: 12,2445           56602                                    0          -4,2                       
055007,000951: 12,2446           02655                                    RCNORM                                
055008,000952: 12,2447           74221                           BDSU     VXSC                                  
055009,000953: 12,2450           33422                                    D1/256                                
055010,000954: 12,2451           01511                                    VRECT                                 
055011,000955: 12,2452           42455                           VAD      VSL8                                  #                                PL AT 0
055012,000956: 12,2453           77626                           STADR                                          
055013,000957: 12,2454           62234                           STODL    VCV                                   #  VCV (+7 OR +5)
055014,000958: 12,2455           00037                                    T                                     
055015,000959: 12,2456           15551                           STODL    TC                                    
055016,000960: 12,2457           00025                                    X                                     
055017,000961: 12,2460           35553                           STCALL   XPREV                                 
055018,000962: 12,2461           02267                                    KEPRTN                                
055019,000963: 

Page 1283

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

Page 1284

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

Page 1285

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

Page 1286

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

Page 1287

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

Page 1288

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

Page 1289

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

Page 1290

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

Page 1291

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

Page 1292

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

Page 1293

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

Page 1294

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

Page 1295

055512,001456: 12,3237           25250                                    INFINITY                              
055513,001457: 12,3240           60366                           SQRT     NORM                                  
055514,001458: 12,3241           00047                                    X1                                    
055515,001459: 12,3242           53665                           BDDV     SL*                                   
055516,001460: 12,3243           33430                                    2PISC                                 
055517,001461: 12,3244           20176                                    0          -3,1                       
055518,001462: 12,3245           41425                           DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X           PL AT 0,2
055519,001463: 12,3246           77650                           GOTO                                           
055520,001464: 12,3247           25131                                    XCOMMON                               
055521,001465: 12,3250           40001        INFINITY           SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
055522,001466: 12,3251           00001                                    0                                     #  INFINITY IS REQUIRED
055523,001467: 12,3252           25253                                    OVFLCLR                               
055524,001468: 12,3253           43414        OVFLCLR            SET      RVQ                                   
055525,001469: 12,3254           04070                                    INFINFLG                              
055526,001470: 

Page 1296

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

Page 1297

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

Page 1298

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

Page 1299

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

Page 1300

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

Page 1301

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

Page 1302

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

Page 1303

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

Page 1304

055905,001849: 12,3760           77776        ABTCONIC           EXIT                                           
055906,001850: 12,3761           05726                           TC       POODOO                                
055907,001851: 12,3762           20607                           OCT      20607                                 #  NO SOLUTION FROM TIMETHET OR TIMERAD
055908,001852: 

Page 1305

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

Page 1306

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

Page 1307

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

Page 1308

056056,002000: 11,2320                        TWEEKIT            EQUALS   40D                                   
056057,002001: 
056058,002002: 
056059,002003:                                                                                                  #  MORE KEPLER
056060,002004: 
056061,002005:                                                                                                  #  EPSILONT      ERASE   +1
056062,002006: 
056063,002007: 
056064,002008:                                                                                                  #  MORE LAMBERT
056065,002009: 
056066,002010:                                                                                                  #  TERRLAMB      EQUALS  DELDEP
056067,002011:                                                                                                  #  TPREV         EQUALS  DEPREV
056068,002012: 
056069,002013:                                                                                                  #  EPSILONL      EQUALS  EPSILONT +2     DOUBLE PRECISION WORD

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