Source Code
049170,000001: # Copyright: Public domain.
049171,000002: # Filename: CONIC_SUBROUTINES.agc
049172,000003: # Purpose: Part of the source code for Luminary 1A build 099.
049173,000004: # It is part of the source code for the Lunar Module's (LM)
049174,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
049175,000006:
049176,000007: # Assembler: yaYUL
049177,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail.com>
049178,000009: # Website: www.ibiblio.org/apollo.
049179,000010: # Pages: 1159-1204
049180,000011: # Mod history: 2009-05-28 JL Started updating from page images.
049181,000012: # 2009-06-02 JL Finished updating from page images.
049182,000013: # 2010-12-31 JL Fixed page number comments.
049183,000014:
049184,000015: # This source code has been transcribed or otherwise adapted from digitized
049185,000016: # images of a hardcopy from the MIT Museum. The digitization was performed
049186,000017: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
049187,000018: # thanks to both. The images (with suitable reduction in storage size and
049188,000019: # consequent reduction in image quality as well) are available online at
049189,000020: # www.ibiblio.org/apollo. If for some reason you find that the images are
049190,000021: # illegible, contact me at info@sandroid.org about getting access to the
049191,000022: # (much) higher-quality images which Paul actually created.
049192,000023:
049193,000024: # Notations on the hardcopy document read, in part:
049194,000025:
049195,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
049196,000027: # 16:27 JULY 14, 1969
049197,000028:
049198,000029: # Page 1159
049199,000030: # PROGRAM DESCRIPTION -- ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
049200,000031: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
049201,000032: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
049202,000033:
049203,000034: # FUNCTIONAL DESCRIPTION -
049204,000035: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
049205,000036: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
049206,000037: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
049207,000038: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
049208,000039: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
049209,000040: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
049210,000041: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINES IN MISSION PROGRAMMING
049211,000042: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROUTINES
049212,000043: # APPROPRIATELY.
049213,000044:
049214,000045: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
049215,000046: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
049216,000047: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
049217,000048:
049218,000049: # RESTRICTIONS -
049219,000050: # THE ONLY LIMITATION IN THE SCOPE OF THE PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
049220,000051: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJECTORIES
049221,000052: # COULD BE HANDLED.
049222,000053:
049223,000054: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
049224,000055: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
049225,000056: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
049226,000057:
049227,000058: # Page 1160
049228,000059: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
049229,000060: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
049230,000061: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
049231,000062: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
049232,000063: # MOD NO. - 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
049233,000064: # MOD NO. - 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
049234,000065:
049235,000066: # FUNCTIONAL DESCRIPTION -
049236,000067: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
049237,000068: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
049238,000069: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERPOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
049239,000070: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
049240,000071: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION
049241,000072: # TECHNIQUE IS UTILIZED IN THE COMPUTATION.
049242,000073:
049243,000074: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
049244,000075: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
049245,000076:
049246,000077: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
049247,000078: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
049248,000079:
049249,000080: # THE RESTRICTIONS ARE -
049250,000081: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
049251,000082: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
049252,000083: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049253,000084:
049254,000085: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
049255,000086: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
049256,000087: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
049257,000088:
049258,000089: # REFERENCES -
049259,000090: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
049260,000091: # MEMO 67-4.
049261,000092:
049262,000093: # INPUT - ERASABLE INITIALIZATION REQUIRED
049263,000094: # * SCALE FACTOR *
049264,000095: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049265,000096: # -------- *-------------- * -----------------------
049266,000097: # RRECT * +29 FOR EARTH * DP INITIAL POSITION VECTOR IN METERS
049267,000098: # * +27 FOR MOON *
049268,000099: # Page 1161
049269,000100: # VRECT * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049270,000101: # * +5 FOR MOON *
049271,000102: # X1 (38D) * NONE * INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049272,000103: # * * RESPECTIVELY, IS THE CENTRAL BODY
049273,000104: # TAU * +28 * DESIRED TRANSFER TIME IN CENTISECONDS (DP)
049274,000105: # * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
049275,000106: # XKEPNEW * +17 FOR EARTH * DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
049276,000107: # * +16 FOR MOON * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
049277,000108: # * * MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
049278,000109: # * * BY KEPLER TO A POOR BUT VALID GUESS.
049279,000110: # TC * +28 * DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
049280,000111: # XPREV * +17 FOR EARTH * DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
049281,000112: # * +16 FOR MOON * ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
049282,000113:
049283,000114: # SUBROUTINES CALLED -
049284,000115: # DELTIME
049285,000116:
049286,000117: # CALLING SEQUENCE AND NORMAL EXIT MODES -
049287,000118: # KEPRTN-2 GOTO # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049288,000119: # KEPRTN-1 KEPLER # RETURNS WITH XPREV IN MPAC. PL IS AT 0.
049289,000120: # KEPRTN ... # CONTINUE
049290,000121:
049291,000122: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
049292,000123: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
049293,000124: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
049294,000125:
049295,000126: # ABORT EXIT MODES -
049296,000127: # NONE
049297,000128:
049298,000129: # OUTPUT -
049299,000130: # * SCALE FACTOR *
049300,000131: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049301,000132: # -------- *-------------- * -----------------------
049302,000133: # RCV * +29 FOR EARTH * DP TERMINAL POSITION VECTOR IN METERS
049303,000134: # * +27 FOR MOON *
049304,000135: # VCV * +7 FOR EARTH * DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
049305,000136: # * +5 FOR MOON *
049306,000137: # TC * +28 * DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
049307,000138: # XPREV * +17 FOR EARTH * DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X
049308,000139: # * +16 FOR MOON * CORRESPONDING TO ONE PERIOD.
049309,000140: # Page 1162
049310,000141: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
049311,000142:
049312,000143: # DEBRIS -
049313,000144: # PARAMETERS WHICH MAY BE OF USE -
049314,000145: # * SCALE FACTOR *
049315,000146: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049316,000147: # -------- *-------------- * -----------------------
049317,000148: # URRECT * +1 * DP UNIT VECTOR OF INITIAL POSITION
049318,000149: # R1 * +29 FOR EARTH * DP MAGNITUDE OF INITIAL POSITION IN METERS
049319,000150: # * +27 FOR MOON *
049320,000151: # ALPHA * -22 FOR EARTH * DP INVERSE OF SEMI-MAJOR AXIS IN 1/METERS
049321,000152: # * -20 FOR MOON *
049322,000153: # TMODULO * +28 * DP INTEGRAL NUMBER OF PERIODS IN CENTISECS, WHICH WAS SUBTRACTED FROM TAU, TO PRODUCE A
049323,000154: # * * TAU. OF LESS THAN ONE PERIOD.
049324,000155:
049325,000156: # PARAMETERS OF NO USE -
049326,000157: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
049327,000158:
049328,000159: # Page 1163
049329,000160:
049330,000161: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
049331,000162: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
049332,000163: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
049333,000164:
049334,000165: # FUNCTIONAL DESCRIPTION -
049335,000166: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
049336,000167: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
049337,000168: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO TEH EARTH OR THE MOON. THE USE OF THE
049338,000169: # SUBROUTINE CAN BE EXTEDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
049339,000170: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
049340,000171: # UTILIZED IN THE COMPUTATION.
049341,000172:
049342,000173: # THE RESTRICTIONS ARE: -
049343,000174: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
049344,000175: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
049345,000176: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
049346,000177: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
049347,000178: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
049348,000179: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
049349,000180: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049350,000181:
049351,000182: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
049352,000183: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATELY
049353,000184: # .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
049354,000185:
049355,000186: # REFERENCES -
049356,000187: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP - SECTION 5.5, SGA MEMO 67-8,
049357,000188: # SGA MEMO 67-4.
049358,000189:
049359,000190: # INPUT - ERASABLE INITIALIZATION REQUIRED
049360,000191: #
049361,000192: # * SCALE FACTOR *
049362,000193: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049363,000194: # -------- *-------------- * -----------------------
049364,000195: # R1VEC * +29 FOR EARTH * DP INITIAL POSITION VECTOR IN METERS
049365,000196: # * +27 FOR MOON *
049366,000197: # R2VEC * +29 FOR EARTH * DP TARGET OR TERMINAL POSITION VECTOR IN METERS
049367,000198: # * +27 FOR MOON *
049368,000199: # TDESIRED * +28 * DP DESIRED TRANSFER TIME IN CENTISECONDS
049369,000200: # X1 (38D) * NONE * INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049370,000201: # * * RESPECTIVELY, IS THE CENTRAL BODY
049371,000202: # GEOMSGN * NONE * SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
049372,000203: # GUESSW * NONE * AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
049373,000204: # Page 1164
049374,000205: # * * COGA IS TO BE USED BY LAMBERT
049375,000206: # COGA * +5 * DP GUESS OF COTANGENT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
049376,000207: # * * IGNORED IF GUESSW IS SET.
049377,000208: # NORMSW * NONE * AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
049378,000209: # * * LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
049379,000210: # UN * +1 * DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
049380,000211: # * * MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
049381,000212: # VTARGTAG * NONE * A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
049382,000213: # * * AT R1VEC.
049383,000214: # ITERCTR * NONE * A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE.
049384,000215: # * * (AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
049385,000216: # * * ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.)
049386,000217: # * * TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
049387,000218:
049388,000219: # SUBROUTINES CALLED -
049389,000220: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
049390,000221:
049391,000222: # CALLING SEQUENCE AND NORMAL EXIT MODES -
049392,000223: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049393,000224: # L+1 LAMBERT # RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS WAS NON-ZERO OR VTARGET
049394,000225: # # IN MPAC IF VTARGTAG WAS ZERO
049395,000226: # L+2 BON # CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
049396,000227: # L+3 SOLNSW
049397,000228: # L+4 LAMABORT
049398,000229:
049399,000230: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
049400,000231: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
049401,000232:
049402,000233: # ABORT EXIT MODES -
049403,000234: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
049404,000235: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
049405,000236: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
049406,000237: # LAMBABORT DLOAD ABS # A MEASURE OF THE PROXIMITY TO 0 OR
049407,000238: # 1-CSTH # 360 DEGREES.
049408,000239: # DSU BMN
049409,000240: # ONEBIT
049410,000241: # CHANGER2 # CHANGE R2VEC DIRECTION SLIGHTLY.
049411,000242: # DLOAD DAD
049412,000243: # TDESIRED
049413,000244: # SOMETIME
049414,000245: # STCALL TDESIRED # INCRESE TDESIRED
049415,000246: # LAMBERT
049416,000247:
049417,000248: # Page 1165
049418,000249: # OUTPUT -
049419,000250: # * SCALE FACTOR *
049420,000251: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049421,000252: # -------- *-------------- * -----------------------
049422,000253: # VVEC * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
049423,000254: # * +5 FOR MOON * PROBLEM.
049424,000255: # VTARGET * +7 FOR EARTH * DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
049425,000256: # * +5 FOR MOON *
049426,000257: # SOLNSW * NONE * INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
049427,000258: # * * SOLUTION EXISTS.
049428,000259:
049429,000260: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
049430,000261:
049431,000262: # DEBRIS -
049432,000263: # PARAMETERS WHICH MAY BE OF USE -
049433,000264:
049434,000265: # * SCALE FACTOR *
049435,000266: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049436,000267: # -------- *-------------- * -----------------------
049437,000268: # SNTH * +1 * DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
049438,000269: # CSTH * +1 * DP COSINE OF ANGLE
049439,000270: # 1-CSTH * +2 * DP 1-CSTH
049440,000271: # COGA * +5 * DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
049441,000272: # P * +4 * DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
049442,000273: # R1A * +6 * DP RATIO OF INITIAL RADIUS TO SEMI-MAJOR AXIS
049443,000274: # R1 (32D) * +29 FOR EARTH * DP INITIAL RADIUS IN METERS
049444,000275: # * +27 FOR MOON *
049445,000276: # UR1 * +1 * DP UNIT VECTOR OF R1VEC
049446,000277: # U2 * +1 * DP UNIT VECTOR OF R2VEC
049447,000278:
049448,000279: # PARAMETERS OF NO USE -
049449,000280: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
049450,000281: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
049451,000282:
049452,000283: # Page 1166
049453,000284: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
049454,000285: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
049455,000286: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
049456,000287:
049457,000288: # FUNCTIONAL DESCRIPTION -
049458,000289: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
049459,000290: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
049460,000291: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
049461,000292: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF TEH SUBROUTINE CAN BE
049462,000293: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WTIHOUT INTRODUCING ANY CODING CHANGES,
049463,000294: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
049464,000295:
049465,000296: # THE RESTRICTIONS ARE -
049466,000297: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
049467,000298: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
049468,000299: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
049469,000300: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLY.
049470,000301:
049471,000302: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
049472,000303:
049473,000304: # REFERENCES -
049474,000305: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
049475,000306:
049476,000307: # INPUT - ERASABLE INITIALIZATION REQUIRED
049477,000308: # * SCALE FACTOR *
049478,000309: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049479,000310: # -------- *-------------- * -----------------------
049480,000311: # RVEC * +29 FOR EARTH * DP INITIAL POSITION VECTOR IN METERS
049481,000312: # * +27 FOR MOON *
049482,000313: # VVEC * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049483,000314: # * +5 FOR MOON *
049484,000315: # SNTH * +1 * DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
049485,000316: # CSTH * +1 * DP COSINE OF THE ANGLE
049486,000317: # RVSW * NONE * AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
049487,000318: # * * IS TO BE COMPUTED ALSO.
049488,000319: # X1 (38D) * NONE * INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049489,000320: # * * RESPECTIVELY, IS THE CENTRAL BODY.
049490,000321:
049491,000322: # SUBROUTINES CALLED -
049492,000323: # Page 1167
049493,000324: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
049494,000325:
049495,000326: # CALLING SEQUENCE AND NORMAL EXIT MODES -
049496,000327: # IF ONLY TIME IS DESIRED AS OUTPUT -
049497,000328: # L SET CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049498,000329: # L+1 RVSW
049499,000330: # L+2 TIMETHET # RETURN WITH PL AT 0 AND T IN MPAC
049500,000331: # L+3 ... # CONTINUE
049501,000332:
049502,000333: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
049503,000334: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049504,000335: # L+1 RVSW
049505,000336: # L+2 TIMETHET # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
049506,000337: # # THE INITIAL VELOCITY VECTOR IN MPAC.
049507,000338: # L+3 STOVL NEWVVEC
049508,000339: # L+4 STADR
049509,000340: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
049510,000341: # L+6 ... # CONTINUE.
049511,000342:
049512,000343: # ABORT EXIT MODES -
049513,000344: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
049514,000345: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
049515,000346:
049516,000347: # OUTPUT -
049517,000348: # * SCALE FACTOR *
049518,000349: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049519,000350: # -------- *-------------- * -----------------------
049520,000351: # T (30D) * +28 * DP TRANSFER TIME IN CENTISECONDS
049521,000352: # INFINFLG * NONE * AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
049522,000353: # * * INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
049523,000354: # COGAFLAG * NONE * AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
049524,000355: # * * CLEAR IF NOT.
049525,000356:
049526,000357: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
049527,000358: # MPAC - * +7 FOR EARTH * DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
049528,000359: # MPAC +5 * +5 FOR MOON *
049529,000360: # 0D - 5D * +29 FOR EARTH * DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
049530,000361: # * +27 FOR MOON *
049531,000362:
049532,000363: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
049533,000364:
049534,000365: # Page 1168
049535,000366: # DEBRIS -
049536,000367: # PARAMETERS WHICH MAY BE OF USE -
049537,000368: #
049538,000369: # * SCALE FACTOR *
049539,000370: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049540,000371: # -------- *-------------- * -----------------------
049541,000372: # R1 (32D) * +29 FOR EARTH * DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
049542,000373: # * +27 FOR MOON *
049543,000374: # R1A * +6 * DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
049544,000375: # P * +4 * DP RATIO OF SEMILATUS RECTUM TO R1
049545,000376: # COGA * +5 * DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
049546,000377: # UR1 * +1 * DP UNIT VECTOR OF RVEC
049547,000378: # U2 * +1 * DP UNIT VECTOR OF VVEC
049548,000379: # UN * +1 * DP UNIT VECTOR OF UR1*U2
049549,000380:
049550,000381: # PARAMETERS OF NO USE -
049551,000382: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
049552,000383: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW
049553,000384:
049554,000385: # Page 1169
049555,000386: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
049556,000387: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
049557,000388: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
049558,000389:
049559,000390: # FUNCTIONAL DESCRIPTION -
049560,000391:
049561,000392: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
049562,000393: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
049563,000394: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
049564,000395: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
049565,000396: # EXTENDED USING OTHER PRIMARY BODIES BY SIMMPE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
049566,000397: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
049567,000398:
049568,000399: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
049569,000400: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
049570,000401:
049571,000402: # THE RESTRICTIONS ARE -
049572,000403: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
049573,000404: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
049574,000405: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
049575,000406: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049576,000407: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
049577,000408: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
049578,000409: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
049579,000410:
049580,000411: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS.
049581,000412:
049582,000413: # REFERENCES -
049583,000414: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
049584,000415:
049585,000416: # INPUT - ERASABLE INITIALIZATION REQUIRED.
049586,000417: # * SCALE FACTOR *
049587,000418: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049588,000419: # -------- *-------------- * -----------------------
049589,000420: # RVEC * +29 FOR EARTH * DP INITIAL POSITION VECTOR IN METERS
049590,000421: # * +27 FOR MOON *
049591,000422: # VVEC * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049592,000423: # * +5 FOR MOON *
049593,000424: # RDESIRED * +29 FOR EARTH * DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
049594,000425: # * +27 FOR MOON * COMPUTED
049595,000426: # SGNRDOT * NONE * SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
049596,000427: # * * POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
049597,000428: # Page 1170
049598,000429: # * * SINGLE-VALUED PROBLEM.
049599,000430: # X1 (38D) * NONE * INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049600,000431: # * * RESPECTIVELY, IS THE CENTRAL BODY.
049601,000432: # RVSW * NONE * AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
049602,000433: # * * IS TO BE COMPUTED ALSO.
049603,000434:
049604,000435: # SUBROUTINES CALLED -
049605,000436: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
049606,000437:
049607,000438: # CALLING SEQUENCE AND NORMAL EXIT MODES -
049608,000439:
049609,000440: # IF ONLY TIME IS DESIRED AS OUTPUT -
049610,000441: # L SET CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049611,000442: # L+1 RVSW
049612,000443: # L+2 TIMERAD # RETURN WITH PL AT 0 AND T IN MPAC
049613,000444: # L+3 ... # CONTINUE
049614,000445:
049615,000446: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
049616,000447: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049617,000448: # L+1 RVSW
049618,000449: # L+2 TIMERAD # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
049619,000450: # # THE INITIAL VELOCITY VECTOR IN MPAC.
049620,000451: # L+3 STOVL NEWVVEC
049621,000452: # L+4 STADR
049622,000453: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
049623,000454: # ... # CONTINUE
049624,000455:
049625,000456: # ABORT EXIT MODES -
049626,000457: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
049627,000458: # TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
049628,000459:
049629,000460: # OUTPUT -
049630,000461: # * SCALE FACTOR *
049631,000462: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049632,000463: # -------- *-------------- * -----------------------
049633,000464: # T (30D) * +28 * DP TRANSFER TIME IN CENTISECONDS.
049634,000465: # INFINFLG * NONE * AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
049635,000466: # * * INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
049636,000467: # COGAFLAG * NONE * AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
049637,000468: # * * CLEAR IF NOT.
049638,000469: # APSESW * NONE * AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
049639,000470: # Page 1171
049640,000471: # * * LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
049641,000472: # * * WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
049642,000473: # * * APOCENTER.
049643,000474: # SOLNSW * NONE * AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
049644,000475: # * * POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
049645,000476: # * * MINUS-18, THE SWITCH IS CLEAR.
049646,000477:
049647,000478: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
049648,000479:
049649,000480: # MPAC - * +7 FOR EARTH * DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
049650,000481: # MPAC +5 * +5 FOR MOON *
049651,000482: # 0D - 5D * +29 FOR EARTH * DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
049652,000483: # * +27 FOR MOON *
049653,000484:
049654,000485: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
049655,000486:
049656,000487: # DEBRIS -
049657,000488: # PARAMETERS WHICH MAY BE OF USE -
049658,000489:
049659,000490: # * SCALE FACTOR *
049660,000491: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049661,000492: # -------- *-------------- * -----------------------
049662,000493: # R1 (32D) * +29 FOR EARTH * DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
049663,000494: # * +27 FOR MOON *
049664,000495: # R1A * +6 * DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
049665,000496: # P * +4 * DP RATIO OF SEMILATUS RECTUM TO R1
049666,000497: # COGA * +5 * DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
049667,000498: # UR1 * +1 * DP UNIT VECTOR OF RVEC
049668,000499: # U2 * +1 * DP UNIT VECTOR OF VVEC
049669,000500: # UN * +1 * DP UNIT VECTOR OF UR1*U2
049670,000501: # CSTH * +1 * DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
049671,000502: # SNTH * +1 * DP SINE OF TRUE ANOMALY DIFFERENCE.
049672,000503:
049673,000504: # PARAMETERS OF NO USE -
049674,000505: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
049675,000506: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW
049676,000507:
049677,000508:
049678,000509: # Page 1172
049679,000510: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
049680,000511: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
049681,000512: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
049682,000513:
049683,000514: # FUNCTIONAL DESCRIPTION -
049684,000515:
049685,000516: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
049686,000517: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
049687,000518: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN
049688,000519: # BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
049689,000520: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
049690,000521:
049691,000522: # THE RESTRICTIONS ARE -
049692,000523: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
049693,000524: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
049694,000525: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
049695,000526: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049696,000527:
049697,000528: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
049698,000529:
049699,000530: # REFERENCES -
049700,000531: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
049701,000532:
049702,000533: # INPUT - ERASABLE INITIALIZATION REQUIRED
049703,000534: # * SCALE FACTOR *
049704,000535: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049705,000536: # -------- *-------------- * -----------------------
049706,000537: # RVEC * +29 FOR EARTH * DP INITIAL POSITION VECTOR IN METERS
049707,000538: # * +27 FOR MOON *
049708,000539: # VVEC * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049709,000540: # * +5 FOR MOON *
049710,000541: # X1 (38D) * NONE * INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049711,000542: # * * RESPECTIVELY, IS THE CENTRAL BODY.
049712,000543:
049713,000544: # SUBROUTINES CALLED -
049714,000545: # PARAM, GEOM
049715,000546:
049716,000547: # CALLING SEQUENCE AND NORMAL EXIT MODES -
049717,000548: # Page 1173
049718,000549: # IF ONLY TIME IS DESIRED AS OUTPUT -
049719,000550: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
049720,000551: # L+1 APSIDES # RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
049721,000552: # L+2 STODL APOAPSE
049722,000553: # L+3 0D
049723,000554: # L+4 STORE PERIAPSE # APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
049724,000555: # L+5 ... # CONTINUE
049725,000556:
049726,000557: # OUTPUT -
049727,000558: # * SCALE FACTOR *
049728,000559: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049729,000560: # -------- *-------------- * -----------------------
049730,000561: # MPAC * +29 FOR EARTH * DP RADIUS OF APOCENTER IN METERS
049731,000562: # * +27 FOR MOON *
049732,000563: # 0D-1D * +29 FOR EARTH * DP RADIUS OF PERICENTER IN METERS
049733,000564: # * +27 FOR MOON *
049734,000565: # ECC * +3 * DP ECCENTRICITY OF CONIC TRAJECTORY.
049735,000566:
049736,000567: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
049737,000568:
049738,000569: # DEBRIS -
049739,000570:
049740,000571: # PARAMETERS WHICH MAY BE OF USE -
049741,000572:
049742,000573: # * SCALE FACTOR *
049743,000574: # VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
049744,000575: # -------- *-------------- * -----------------------
049745,000576: # R1 (32D) * +29 FOR EARTH * DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
049746,000577: # * +27 FOR MOON *
049747,000578: # R1A * +6 * DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
049748,000579: # P * +4 * DP RATIO OF SEMILATUS RECTUM TO R1
049749,000580: # COGA * +5 * DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
049750,000581: # UR1 * +1 * DP UNIT VECTOR OF RVEC
049751,000582: # U2 * +1 * DP UNIT VECTOR OF VVEC
049752,000583: # UN * +1 * DP UNIT VECTOR OF UR1*U2
049753,000584: # MAGVEC2 * +7 FOR EARTH * DP MAGNITUDE OF VVEC
049754,000585: # * +5 FOR MOON *
049755,000586:
049756,000587: # PARAMETERS OF NO USE -
049757,000588: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
049758,000589: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
049759,000590:
049760,000591: 12,2000 SETLOC CONICS
049761,000592: # Page 1174
049762,000593: 12,2000 BANK
049763,000594:
049764,000595: 12,2023 COUNT* $$/CONIC
049765,000596: 12,2023 E5,1721 EBANK= UR1
049766,000597: 12,2023 40001 KEPLERN SETPD BOV
049767,000598: 12,2024 00001 0
049768,000599: 12,2025 24026 +1
049769,000600: 12,2026 77773 VLOAD*
049770,000601: 12,2027 10005 MUTABLE,1
049771,000602: 12,2030 24017 STOVL 14D
049772,000603: 12,2031 01503 RRECT
049773,000604: 12,2032 66256 UNIT SSP
049774,000605: 12,2033 00027 ITERCTR
049775,000606: 12,2034 00024 20D
049776,000607: 12,2035 16647 STODL URRECT
049777,000608: 12,2036 00045 36D
049778,000609: 12,2037 24041 STOVL R1
049779,000610: 12,2040 01503 RRECT
049780,000611: 12,2041 76441 DOT SL1R
049781,000612: 12,2042 01511 VRECT
049782,000613: 12,2043 76405 DMP SL1R
049783,000614: 12,2044 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
049784,000615: 12,2045 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
049785,000616: 12,2046 01511 VRECT
049786,000617: 12,2047 57236 VSQ DMPR
049787,000618: 12,2050 00017 1/MU # 1/MU (-34 OR -28)
049788,000619: 12,2051 52405 DMP SL3
049789,000620: 12,2052 00041 R1
049790,000621: 12,2053 61425 DSU ROUND
049791,000622: 12,2054 11035 D1/64
049792,000623: 12,2055 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
049793,000624:
049794,000625: 12,2056 74421 BDSU SR1R
049795,000626: 12,2057 11035 D1/64
049796,000627: 12,2060 77671 DDV
049797,000628: 12,2061 00041 R1
049798,000629: 12,2062 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
049799,000630:
049800,000631: 12,2063 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
049801,000632: 12,2064 24073 1REV
049802,000633: 12,2065 11053 -50SC # -50SC (+12)
049803,000634: 12,2066 40071 DDV BOV
049804,000635: 12,2067 00011 ALPHA
049805,000636: 12,2070 24077 STOREMAX
049806,000637: 12,2071 52166 SQRT GOTO
049807,000638: 12,2072 24077 STOREMAX
049808,000639:
049809,000640: 12,2073 55366 1REV SQRT BDDV
049810,000641: # Page 1175
049811,000642: 12,2074 11055 2PISC # 2PISC (+6)
049812,000643: 12,2075 77600 BOV
049813,000644: 12,2076 24077 STOREMAX
049814,000645: 12,2077 00013 STOREMAX STORE XMAX
049815,000646: 12,2100 65205 DMP PDDL
049816,000647: 12,2101 00023 1/ROOTMU
049817,000648: 12,2102 00011 ALPHA
049818,000649: 12,2103 65301 NORM PDDL
049819,000650: 12,2104 00047 X1
049820,000651: 12,2105 56257 SL* DDV
049821,000652: 12,2106 20173 0 -6,1
049822,000653: 12,2107 50000 BOV BMN
049823,000654: 12,2110 24124 MODDONE
049824,000655: 12,2111 24124 MODDONE # MPAC=PERIOD
049825,000656: 12,2112 51525 PERIODCH PDDL ABS # 0D=PERIOD
049826,000657: 12,2113 02074 TAU.
049827,000658: 12,2114 50025 DSU BMN
049828,000659: 12,2115 00001 0D
049829,000660: 12,2116 24124 MODDONE
049830,000661: 12,2117 77765 SIGN
049831,000662: 12,2120 02074 TAU.
049832,000663: 12,2121 16074 STODL TAU.
049833,000664: 12,2122 77650 GOTO
049834,000665: 12,2123 24112 PERIODCH
049835,000666: 12,2124 71201 MODDONE SETPD DLOAD
049836,000667: 12,2125 00001 0
049837,000668: 12,2126 02130 XKEPNEW
049838,000669: 12,2127 00025 STORE X
049839,000670: 12,2130 53165 SIGN BZE
049840,000671: 12,2131 02074 TAU.
049841,000672: 12,2132 24302 BADX
049842,000673: 12,2133 51440 BMN ABS
049843,000674: 12,2134 24302 BADX
049844,000675: 12,2135 51025 DSU BPL
049845,000676: 12,2136 00013 XMAX
049846,000677: 12,2137 24302 BADX
049847,000678: 12,2140 51145 STORBNDS DLOAD BPL
049848,000679: 12,2141 02074 TAU.
049849,000680: 12,2142 24152 STOREMIN
049850,000681: 12,2143 57545 DLOAD DCOMP
049851,000682: 12,2144 00013 XMAX
049852,000683: 12,2145 14015 STODL XMIN
049853,000684: 12,2146 24007 KEPZERO
049854,000685: 12,2147 00013 STORE XMAX
049855,000686: 12,2150 77650 GOTO
049856,000687: 12,2151 24155 DXCOMP
049857,000688: 12,2152 77745 STOREMIN DLOAD
049858,000689: 12,2153 24007 KEPZERO
049859,000690: 12,2154 00015 STORE XMIN
049860,000691: 12,2155 57345 DXCOMP DLOAD DMPR
049861,000692: # Page 1176
049862,000693: 12,2156 02074 TAU.
049863,000694: 12,2157 11046 BEE22
049864,000695: 12,2160 77646 ABS
049865,000696: 12,2161 16177 STODL EPSILONT
049866,000697: 12,2162 01553 XPREV
049867,000698: 12,2163 77621 XDIFF BDSU
049868,000699: 12,2164 00025 X
049869,000700: 12,2165 02643 STORE DELX
049870,000701:
049871,000702: 12,2166 63545 KEPLOOP DLOAD DSQ
049872,000703: 12,2167 00025 X # X=XKEP
049873,000704: 12,2170 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
049874,000705: 12,2171 00047 X1
049875,000706: 12,2172 53605 DMP SRR*
049876,000707: 12,2173 00011 ALPHA
049877,000708: 12,2174 21573 0 -6,1
049878,000709: 12,2175 34031 STCALL XI # XI=ALPHA XSQ (+6)
049879,000710: 12,2176 24421 DELTIME
049880,000711: 12,2177 44200 BOV BDSU
049881,000712: 12,2200 24311 TIMEOVFL # UNLIKELY
049882,000713: 12,2201 02074 TAU.
049883,000714: 12,2202 02645 STORE DELT # DELT=DELINDEP
049884,000715: 12,2203 44246 ABS BDSU
049885,000716: 12,2204 02177 EPSILONT
049886,000717: 12,2205 71244 BPL DLOAD
049887,000718: 12,2206 24333 KEPCONVG
049888,000719: 12,2207 00037 T
049889,000720: 12,2210 60225 DSU NORM
049890,000721: 12,2211 01551 TC
049891,000722: 12,2212 00047 X1
049892,000723: 12,2213 60325 PDDL NORM
049893,000724: 12,2214 02643 DELX
049894,000725: 12,2215 00050 X2
049895,000726: 12,2216 41260 XSU,1 DMP
049896,000727: 12,2217 00047 X2
049897,000728: 12,2220 02645 DELT
049898,000729: 12,2221 56257 SLR* DDV
049899,000730: 12,2222 21202 1,1
049900,000731: 12,2223 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
049901,000732: 12,2224 71244 BPL DLOAD
049902,000733: 12,2225 24246 POSDELX
049903,000734: 12,2226 00025 X
049904,000735: 12,2227 00013 STORE XMAX # MOVE MAX BOUND IN
049905,000736: 12,2230 45221 BDSU DSU # PL AT 0
049906,000737: 12,2231 00015 XMIN
049907,000738: 12,2232 51000 BOV BPL
049908,000739: 12,2233 24240 NDXCHNGE
049909,000740: 12,2234 24240 NDXCHNGE
049910,000741: 12,2235 52145 DLOAD GOTO
049911,000742: # Page 1177
049912,000743: 12,2236 00001 0D
049913,000744: 12,2237 24260 NEWDELX
049914,000745:
049915,000746: 12,2240 45345 NDXCHNGE DLOAD DSU
049916,000747: 12,2241 00015 XMIN
049917,000748: 12,2242 00025 X
049918,000749: 12,2243 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
049919,000750: 12,2244 11051 DP9/10
049920,000751: 12,2245 24260 NEWDELX
049921,000752:
049922,000753: 12,2246 77745 POSDELX DLOAD
049923,000754: 12,2247 00025 X
049924,000755: 12,2250 00015 STORE XMIN # MOVE MIN BOUND IN
049925,000756: 12,2251 45221 BDSU DSU # PL AT 0
049926,000757: 12,2252 00013 XMAX
049927,000758: 12,2253 50000 BOV BMN
049928,000759: 12,2254 24274 PDXCHNGE
049929,000760: 12,2255 24274 PDXCHNGE
049930,000761: 12,2256 77745 DLOAD
049931,000762: 12,2257 00001 0D
049932,000763: 12,2260 02643 NEWDELX STORE DELX
049933,000764: 12,2261 43254 BZE DAD
049934,000765: 12,2262 24333 KEPCONVG
049935,000766: 12,2263 00025 X
049936,000767: 12,2264 14025 STODL X
049937,000768: 12,2265 00037 T
049938,000769: 12,2266 01551 STORE TC
049939,000770: 12,2267 46034 BRNCHCTR RTB BHIZ
049940,000771: 12,2270 24644 CHECKCTR
049941,000772: 12,2271 24333 KEPCONVG
049942,000773: 12,2272 77650 GOTO
049943,000774: 12,2273 24166 KEPLOOP # ITERATE
049944,000775:
049945,000776: 12,2274 45345 PDXCHNGE DLOAD DSU
049946,000777: 12,2275 00013 XMAX
049947,000778: 12,2276 00025 X
049948,000779: 12,2277 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
049949,000780: 12,2300 11051 DP9/10
049950,000781: 12,2301 24260 NEWDELX
049951,000782:
049952,000783: 12,2302 70545 BADX DLOAD SR1
049953,000784: 12,2303 00013 XMAX
049954,000785: 12,2304 77765 SIGN
049955,000786: 12,2305 02074 TAU.
049956,000787: 12,2306 00025 STORE X
049957,000788: 12,2307 77650 GOTO
049958,000789: # Page 1178
049959,000790: 12,2310 24140 STORBNDS
049960,000791: 12,2311 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
049961,000792: 12,2312 00025 X
049962,000793: 12,2313 24330 NEGTOVFL
049963,000794: 12,2314 00013 STORE XMAX
049964,000795: 12,2315 70545 CMNTOVFL DLOAD SR1
049965,000796: 12,2316 02643 DELX
049966,000797: 12,2317 02643 STORE DELX
049967,000798: 12,2320 44254 BZE BDSU
049968,000799: 12,2321 02112 KEPRTN
049969,000800: 12,2322 00025 X
049970,000801: 12,2323 14025 STODL X
049971,000802: 12,2324 01551 TC
049972,000803: 12,2325 00037 STORE T
049973,000804: 12,2326 77650 GOTO
049974,000805: 12,2327 24267 BRNCHCTR
049975,000806: 12,2330 00015 NEGTOVFL STORE XMIN
049976,000807: 12,2331 77650 GOTO
049977,000808: 12,2332 24315 CMNTOVFL
049978,000809: 12,2333 44545 KEPCONVG DLOAD SR4R
049979,000810: 12,2334 00041 R1
049980,000811: 12,2335 74225 DSU VXSC
049981,000812: 12,2336 00035 XSQC(XI)
049982,000813: 12,2337 02647 URRECT
049983,000814: 12,2340 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
049984,000815: 12,2341 00025 X
049985,000816: 12,2342 60316 DSQ NORM
049986,000817: 12,2343 00047 X1
049987,000818: 12,2344 57275 DMPR DMPR
049988,000819: 12,2345 00023 1/ROOTMU
049989,000820: 12,2346 00025 X
049990,000821: 12,2347 53605 DMP SRR*
049991,000822: 12,2350 00033 S(XI)
049992,000823: 12,2351 21572 0 -7,1
049993,000824: 12,2352 77621 BDSU
049994,000825: 12,2353 00037 T
049995,000826: 12,2354 74352 SL1 VXSC
049996,000827: 12,2355 01511 VRECT
049997,000828: 12,2356 53372 VSL1 VAD # PL AT 0
049998,000829: 12,2357 77712 VSL4
049999,000830: 12,2360 01535 STORE RCV # RCV (+29 OR +27)
050000,000831:
050001,000832: 12,2361 60246 ABVAL NORM
050002,000833: 12,2362 00050 X2
050003,000834: 12,2363 14043 STODL RCNORM
050004,000835: 12,2364 00031 XI
050005,000836: 12,2365 45275 DMPR DSU
050006,000837: 12,2366 00033 S(XI)
050007,000838: 12,2367 11033 D1/128
050008,000839: # Page 1179
050009,000840: 12,2370 76405 DMP SL1R
050010,000841: 12,2371 00021 ROOTMU
050011,000842: 12,2372 53605 DMP SLR*
050012,000843: 12,2373 00025 X
050013,000844: 12,2374 56601 0 -3,2
050014,000845: 12,2375 74271 DDV VXSC
050015,000846: 12,2376 00043 RCNORM
050016,000847: 12,2377 02647 URRECT
050017,000848: 12,2400 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
050018,000849: 12,2401 00035 XSQC(XI) # OR +13) PL AT 6
050019,000850: 12,2402 56257 SLR* DDV
050020,000851: 12,2403 56602 0 -4,2
050021,000852: 12,2404 00043 RCNORM
050022,000853: 12,2405 74221 BDSU VXSC
050023,000854: 12,2406 11047 D1/256
050024,000855: 12,2407 01511 VRECT
050025,000856: 12,2410 42455 VAD VSL8
050026,000857: 12,2411 77626 STADR # PL AT 0
050027,000858: 12,2412 62234 STODL VCV # VCV (+7 OR +5)
050028,000859: 12,2413 00037 T
050029,000860: 12,2414 15551 STODL TC
050030,000861: 12,2415 00025 X
050031,000862: 12,2416 01553 STORE XPREV
050032,000863: 12,2417 77650 GOTO
050033,000864: 12,2420 02112 KEPRTN
050034,000865:
050035,000866: # Page 1180
050036,000867: 12,2421 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
050037,000868: 12,2422 07222 TC POLY
050038,000869: 12,2423 00010 DEC 8 B-14
050039,000870: 12,2424 02525 12526 2DEC .083333334
050040,000871: 12,2426 67356 75666 2DEC -.266666684
050041,000872: 12,2430 15001 23771 2DEC .406349155
050042,000873: 12,2432 64342 43674 2DEC -.361198675
050043,000874: 12,2434 06563 04645 2DEC .210153242
050044,000875: 12,2436 75173 52672 2DEC -.086221951
050045,000876: 12,2440 00656 14331 2DEC .026268812
050046,000877: 12,2442 77633 40512 2DEC -.006163316
050047,000878: 12,2444 00023 11210 2DEC .001177342
050048,000879: 12,2446 77774 67506 2DEC -.000199055
050049,000880:
050050,000881: 12,2450 06037 TC INTPRET
050051,000882: 12,2451 14033 STODL S(XI)
050052,000883: 12,2452 00031 XI
050053,000884: 12,2453 77776 EXIT
050054,000885: 12,2454 07222 TC POLY
050055,000886: 12,2455 00010 DEC 8 B-14
050056,000887: 12,2456 01000 00000 2DEC .031250001
050057,000888: 12,2460 72525 52506 2DEC -.166666719
050058,000889: 12,2462 13301 15337 2DEC .355555413
050059,000890: 12,2464 62776 54733 2DEC -.406347410
050060,000891: 12,2466 11176 13267 2DEC .288962094
050061,000892: 12,2470 73410 51674 2DEC -.140117894
050062,000893: 12,2472 01446 33641 2DEC .049247387
050063,000894: 12,2474 77451 65233 2DEC -.013081923
050064,000895: 12,2476 00055 37266 2DEC .002806389
050065,000896: 12,2500 77767 52336 2DEC -.000529414
050066,000897: 12,2502 06037 TC INTPRET
050067,000898: # Page 1181
050068,000899: 12,2503 53605 DMP SRR* # PL AT 0
050069,000900: 12,2504 00001 0D
050070,000901: 12,2505 21574 0 -5,1
050071,000902: 12,2506 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
050072,000903: 12,2507 72405 DMP SL1
050073,000904: 12,2510 00043 KEPC1
050074,000905: 12,2511 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46)
050075,000906: 12,2512 21633 TPMODE # PL AT 0,3
050076,000907: 12,2513 53605 DMP SRR*
050077,000908: 12,2514 00033 S(XI)
050078,000909: 12,2515 21574 0 -5,1
050079,000910: 12,2516 72405 DMP SL1
050080,000911: 12,2517 00045 KEPC2
050081,000912: 12,2520 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
050082,000913: 12,2521 21633 TPMODE
050083,000914: 12,2522 00041 R1
050084,000915: 12,2523 76261 SR TAD # PL AT 3
050085,000916: 12,2524 20607 6
050086,000917: 12,2525 41301 NORM DMP # TO PRESERVE SIGNIF.
050087,000918: 12,2526 00047 X1
050088,000919: 12,2527 00025 X
050089,000920: 12,2530 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
050090,000921: 12,2531 20576 0 -3,1
050091,000922: 12,2532 57232 SL4R DMPR
050092,000923: 12,2533 00023 1/ROOTMU
050093,000924: 12,2534 00037 STORE T
050094,000925: 12,2535 77616 RVQ
050095,000926:
050096,000927: # Page 1182
050097,000928: 12,2536 71214 ITERATOR BONCLR DLOAD
050098,000929: 12,2537 00614 SLOPESW
050099,000930: 12,2540 24606 FIRSTIME
050100,000931: 12,2541 00037 DEP
050101,000932: 12,2542 60225 DSU NORM
050102,000933: 12,2543 02762 DEPREV
050103,000934: 12,2544 00047 X1
050104,000935: 12,2545 60325 PDDL NORM
050105,000936: 12,2546 00015 DELINDEP
050106,000937: 12,2547 00050 X2
050107,000938: 12,2550 41260 XSU,1 DMP
050108,000939: 12,2551 00047 X2
050109,000940: 12,2552 02760 DELDEP
050110,000941: 12,2553 56257 SLR* DDV # PL UP 2
050111,000942: 12,2554 21202 1,1
050112,000943: 12,2555 43142 SR1 BOFF
050113,000944: 12,2556 04351 ORDERSW
050114,000945: 12,2557 24562 SGNCHECK
050115,000946: 12,2560 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
050116,000947: 12,2561 02760 DELDEP # DISREGARD IT TO FIND MIN.
050117,000948:
050118,000949: 12,2562 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
050119,000950: 12,2563 24620 POSDEL
050120,000951: 12,2564 43145 DLOAD BON
050121,000952: 12,2565 02766 INDEP
050122,000953: 12,2566 04311 ORDERSW
050123,000954: 12,2567 24571 MINCHECK
050124,000955: 12,2570 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
050125,000956:
050126,000957: 12,2571 45221 MINCHECK BDSU DSU
050127,000958: 12,2572 00011 MIN
050128,000959: 12,2573 51000 BOV BPL
050129,000960: 12,2574 24600 MODNGDEL
050130,000961: 12,2575 24600 MODNGDEL
050131,000962: 12,2576 77650 GOTO
050132,000963: 12,2577 24632 DELOK
050133,000964:
050134,000965: 12,2600 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
050135,000966: 12,2601 00011 MIN
050136,000967: 12,2602 02766 INDEP
050137,000968: 12,2603 52005 DMP GOTO
050138,000969: 12,2604 11051 DP9/10
050139,000970: 12,2605 24634 NEWDEL
050140,000971:
050141,000972: 12,2606 41345 FIRSTIME DLOAD DMP
050142,000973: 12,2607 00011 MIN
050143,000974: 12,2610 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
050144,000975: 12,2611 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
050145,000976: # Page 1183
050146,000977: 12,2612 00017 MAX
050147,000978: 12,2613 00051 TWEEKIT
050148,000979: 12,2614 77625 DSU
050149,000980: 12,2615 52165 SIGN GOTO
050150,000981: 12,2616 02760 DELDEP
050151,000982: 12,2617 24562 SGNCHECK
050152,000983:
050153,000984: 12,2620 43145 POSDEL DLOAD BON
050154,000985: 12,2621 02766 INDEP
050155,000986: 12,2622 04311 ORDERSW
050156,000987: 12,2623 24625 MAXCHECK
050157,000988: 12,2624 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
050158,000989:
050159,000990: 12,2625 45221 MAXCHECK BDSU DSU
050160,000991: 12,2626 00017 MAX
050161,000992: 12,2627 50000 BOV BMN
050162,000993: 12,2630 24636 MODPSDEL
050163,000994: 12,2631 24636 MODPSDEL
050164,000995: 12,2632 77745 DELOK DLOAD
050165,000996: 12,2633 00001 0D
050166,000997: 12,2634 00015 NEWDEL STORE DELINDEP
050167,000998: 12,2635 77616 RVQ
050168,000999:
050169,001000: 12,2636 45345 MODPSDEL DLOAD DSU
050170,001001: 12,2637 00017 MAX
050171,001002: 12,2640 02766 INDEP
050172,001003: 12,2641 52005 DMP GOTO
050173,001004: 12,2642 11051 DP9/10
050174,001005: 12,2643 24634 NEWDEL
050175,001006:
050176,001007: 12,2644 44753 CHECKCTR CS ONE
050177,001008: 12,2645 50120 INDEX FIXLOC
050178,001009: 12,2646 60026 AD ITERCTR
050179,001010: 12,2647 50120 INDEX FIXLOC
050180,001011: 12,2650 54026 TS ITERCTR
050181,001012: 12,2651 54154 TS MPAC
050182,001013: 12,2652 06061 TC DANZIG
050183,001014:
050184,001015: # Page 1184
050185,001016: 12,2653 44545 NEWSTATE DLOAD SR4R
050186,001017: 12,2654 00041 R1
050187,001018: 12,2655 74225 DSU VXSC
050188,001019: 12,2656 00035 XSQC(XI)
050189,001020: 12,2657 02722 UR1
050190,001021: 12,2660 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
050191,001022: 12,2661 00025 X
050192,001023: 12,2662 60316 DSQ NORM
050193,001024: 12,2663 00047 X1
050194,001025: 12,2664 57275 DMPR DMPR
050195,001026: 12,2665 00023 1/ROOTMU
050196,001027: 12,2666 00025 X
050197,001028: 12,2667 53605 DMP SRR*
050198,001029: 12,2670 00033 S(XI)
050199,001030: 12,2671 21572 0 -7,1
050200,001031: 12,2672 77621 BDSU
050201,001032: 12,2673 00037 T
050202,001033: 12,2674 74352 SL1 VXSC
050203,001034: 12,2675 02744 VVEC
050204,001035: 12,2676 53372 VSL1 VAD # PL AT 0
050205,001036: 12,2677 41512 VSL4 PUSH
050206,001037: 12,2700 77646 ABVAL
050207,001038: 12,2701 77701 LAMENTER NORM
050208,001039: 12,2702 00047 X1
050209,001040: 12,2703 16720 STODL R2
050210,001041: 12,2704 00031 XI
050211,001042: 12,2705 45205 DMP DSU
050212,001043: 12,2706 00033 S(XI)
050213,001044: 12,2707 11033 D1/128
050214,001045: 12,2710 76405 DMP SL1R
050215,001046: 12,2711 00021 ROOTMU
050216,001047: 12,2712 53605 DMP SLR*
050217,001048: 12,2713 00025 X
050218,001049: 12,2714 21176 0 -3,1
050219,001050: 12,2715 74271 DDV VXSC
050220,001051: 12,2716 02720 R2
050221,001052: 12,2717 02722 UR1
050222,001053: 12,2720 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
050223,001054: 12,2721 00035 XSQC(XI)
050224,001055: 12,2722 56257 SLR* DDV
050225,001056: 12,2723 21175 0 -4,1
050226,001057: 12,2724 02720 R2
050227,001058: 12,2725 77621 BDSU
050228,001059: 12,2726 11047 D1/256
050229,001060: 12,2727 53361 VXSC VAD # PL AT 6
050230,001061: 12,2730 02744 VVEC
050231,001062: 12,2731 43412 VSL8 RVQ
050232,001063:
050233,001064: # Page 1185
050234,001065: 04,2000 SETLOC CONICS1
050235,001066: 04,2000 BANK
050236,001067:
050237,001068: 04,3027 COUNT* $$/CONIC
050238,001069: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
050239,001070: 04,3027 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
050240,001071: 04,3030 04000 00000 D1/8 2DEC 1.0 B-3
050241,001072: 04,3032 00200 00000 D1/128 2DEC 1.0 B-7
050242,001073: 04,3034 00400 00000 D1/64 2DEC 1.0 B-6
050243,001074: 04,3036 10000 00000 D1/4 2DEC 1.0 B-2
050244,001075: 04,3040 02000 00000 D1/16 2DEC 1.0 B-4
050245,001076: 04,3042 01000 00000 D1/32 2DEC 1.0 B-5
050246,001077: 04,3044 00020 00000 D1/1024 2DEC 1.0 B-10
050247,001078: 04,3046 00100 00000 D1/256 2DEC 1.0 B-8
050248,001079: 04,3050 34631 23146 DP9/10 2DEC .9
050249,001080: 04,3052 12,2006 KEPZERO EQUALS LO6ZEROS
050250,001081: 04,3052 77467 77777 -50SC 2DEC -50.0 B-12
050251,001082: 04,3054 03110 17665 2PISC 2DEC 6.28318530 B-6
050252,001083: 04,3056 04,3041 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
050253,001084: 04,3056 04,3045 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
050254,001085: 04,3056 00000 00001 ONEBIT 2DEC 1.0 B-28
050255,001086: 04,3060 37767 37737 COGUPLIM 2DEC .999511597
050256,001087: 04,3062 40010 40040 COGLOLIM 2DEC -.999511597
050257,001088:
050258,001089: # Page 1186
050259,001090: 12,2000 SETLOC CONICS
050260,001091: 12,2000 BANK
050261,001092:
050262,001093: 12,2732 COUNT* $$/CONIC
050263,001094: 12,2732 40220 TIMETHET STQ SETPD # PL AT 0
050264,001095: 12,2733 02710 RTNTT
050265,001096: 12,2734 00001 0
050266,001097: 12,2735 77600 BOV
050267,001098: 12,2736 24737 +1
050268,001099: 12,2737 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
050269,001100: 12,2740 02655 RVEC
050270,001101: 12,2741 02744 VVEC
050271,001102: 12,2742 77624 CALL
050272,001103: 12,2743 11064 PARAM
050273,001104: 12,2744 45000 BOV CALL # PL AT 0
050274,001105: 12,2745 24764 COGAOVFL
050275,001106: 12,2746 24767 GETX
050276,001107: 12,2747 43145 COMMNOUT DLOAD BON
050277,001108: 12,2750 00031 XI
050278,001109: 12,2751 04310 INFINFLG
050279,001110: 12,2752 25742 ABTCONIC
050280,001111: 12,2753 45014 CLEAR CALL
050281,001112: 12,2754 04273 COGAFLAG
050282,001113: 12,2755 24421 DELTIME
050283,001114: 12,2756 45014 BON CALL
050284,001115: 12,2757 03706 RVSW
050285,001116: 12,2760 02710 RTNTT
050286,001117: 12,2761 24653 NEWSTATE
050287,001118: 12,2762 77650 GOTO
050288,001119: 12,2763 02710 RTNTT
050289,001120:
050290,001121: 12,2764 77614 COGAOVFL SETGO
050291,001122: 12,2765 04033 COGAFLAG
050292,001123: 12,2766 25742 ABTCONIC
050293,001124:
050294,001125: 04,3064 BANK 4
050295,001126: 04,2000 SETLOC CONICS1
050296,001127: 04,2000 BANK
050297,001128: 04,3064 COUNT* $$/CONIC
050298,001129: 04,3064 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
050299,001130: 04,3065 02753 RTNPRM
050300,001131: 04,3066 03665 NORMSW
050301,001132: 04,3067 77614 CLEAR
050302,001133: 04,3070 04273 COGAFLAG
050303,001134: 04,3071 45131 SSP CALL
050304,001135: 04,3072 02673 GEOMSGN
050305,001136: 04,3073 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
050306,001137: 04,3074 11130 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
050307,001138: 04,3075 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
050308,001139: 04,3076 56261 SR DDV
050309,001140: # Page 1187
050310,001141: 04,3077 20606 5
050311,001142: 04,3100 00045 36D
050312,001143: 04,3101 32766 STOVL* COGA
050313,001144: 04,3102 10005 MUTABLE,1
050314,001145: 04,3103 14017 STODL 1/MU
050315,001146: 04,3104 02720 MAGVEC2
050316,001147: 04,3105 60316 DSQ NORM
050317,001148: 04,3106 00047 X1
050318,001149: 04,3107 41275 DMPR DMP
050319,001150: 04,3110 00017 1/MU
050320,001151: 04,3111 00041 R1
050321,001152: 04,3112 77657 SRR*
050322,001153: 04,3113 21576 0 -3,1
050323,001154: 04,3114 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
050324,001155: 04,3115 11043 D1/32
050325,001156: 04,3116 16742 STODL R1A # R1A (+6) PL AT 0
050326,001157:
050327,001158: 04,3117 60205 DMP NORM
050328,001159: 04,3120 00045 36D
050329,001160: 04,3121 00047 X1
050330,001161: 04,3122 53605 DMP SR*
050331,001162: 04,3123 00045 36D
050332,001163: 04,3124 20575 0 -4,1
050333,001164: 04,3125 02740 STORE P # P (+4)
050334,001165: 04,3126 77650 GOTO
050335,001166: 04,3127 02753 RTNPRM
050336,001167:
050337,001168: # Page 1188
050338,001169: 04,3130 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
050339,001170: 04,3131 16712 STODL U2 # U2 (+1)
050340,001171: 04,3132 00045 36D
050341,001172: 04,3133 26720 STOVL MAGVEC2 # PL AT 0
050342,001173: 04,3134 77656 UNIT
050343,001174: 04,3135 02722 STORE UR1 # UR1 (+1)
050344,001175: 04,3136 72441 DOT SL1
050345,001176: 04,3137 02712 U2
050346,001177: 04,3140 77725 PDDL # 0D=CSTH (+1) PL AT 2
050347,001178: 04,3141 00045 36D
050348,001179: 04,3142 24041 STOVL R1 # R1 (+29 OR +27)
050349,001180: 04,3143 02722 UR1
050350,001181: 04,3144 76435 VXV VSL1
050351,001182: 04,3145 02712 U2
050352,001183: 04,3146 75214 BON SIGN
050353,001184: 04,3147 03705 NORMSW
050354,001185: 04,3150 11162 HAVENORM
050355,001186: 04,3151 02673 GEOMSGN
050356,001187: 04,3152 40056 UNIT BOV
050357,001188: 04,3153 11160 COLINEAR
050358,001189: 04,3154 16674 UNITNORM STODL UN # UN (+1)
050359,001190: 04,3155 00045 36D
050360,001191: 04,3156 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
050361,001192: 04,3157 02673 GEOMSGN
050362,001193:
050363,001194: 04,3160 52162 COLINEAR VSR1 GOTO
050364,001195: 04,3161 11154 UNITNORM
050365,001196:
050366,001197: 04,3162 75246 HAVENORM ABVAL SIGN
050367,001198: 04,3163 02673 GEOMSGN
050368,001199: 04,3164 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
050369,001200:
050370,001201: # Page 1189
050371,001202: 12,2767 BANK 12
050372,001203: 12,2000 SETLOC CONICS
050373,001204: 12,2000 BANK
050374,001205:
050375,001206: 12,2767 COUNT* $$/CONIC
050376,001207: 12,2767 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
050377,001208: 12,2770 00003 3
050378,001209: 12,2771 00052 S2
050379,001210: 12,2772 00001 1
050380,001211: 12,2773 77614 CLEAR
050381,001212: 12,2774 04276 360SW
050382,001213: 12,2775 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
050383,001214: 12,2776 02732 CSTH
050384,001215: 12,2777 44342 SR1 BDSU
050385,001216: 12,3000 11037 D1/4
050386,001217: 12,3001 54325 PDDL SRR # PL AT 4D
050387,001218: 12,3002 02730 SNTH
050388,001219: 12,3003 21607 6
050389,001220: 12,3004 77671 DDV # PL AT 2
050390,001221: 12,3005 77600 BOV
050391,001222: 12,3006 25122 360CHECK
050392,001223: 12,3007 41225 DSU DMP
050393,001224: 12,3010 02766 COGA # PL AT 0
050394,001225: 12,3011 40132 SL2R BOV
050395,001226: 12,3012 25122 360CHECK
050396,001227: 12,3013 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
050397,001228: 12,3014 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
050398,001229: 12,3015 00155 MPAC
050399,001230: 12,3016 02742 R1A
050400,001231: 12,3017 76202 SR4 TAD # PL AT 2
050401,001232: 12,3020 75440 BMN SQRT
050402,001233: 12,3021 25205 INFINITY
050403,001234: 12,3022 43306 ROUND DAD # PL AT 0D
050404,001235: 12,3023 61000 BOV TIX,2
050405,001236: 12,3024 25120 RESETX2
050406,001237: 12,3025 25013 WLOOP
050407,001238:
050408,001239: 12,3026 40065 BDDV BOV
050409,001240: 12,3027 11033 D1/128
050410,001241: 12,3030 25205 INFINITY
050411,001242: 12,3031 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
050412,001243: 12,3032 25205 INFINITY
050413,001244: 12,3033 77716 DSQ
050414,001245: 12,3034 41301 NORM DMP
050415,001246: 12,3035 00047 X1
050416,001247: 12,3036 02742 R1A
050417,001248: 12,3037 77457 SRR* EXIT
050418,001249: 12,3040 21567 0 -10D,1
050419,001250: 12,3041 07222 TC POLY
050420,001251: # Page 1190
050421,001252: 12,3042 00005 DEC 5 B-14
050422,001253: 12,3043 20000 00000 2DEC .5
050423,001254: 12,3045 72525 52471 2DEC -.166666770
050424,001255: 12,3047 03146 15003 2DEC .100000392
050425,001256: 12,3051 75556 45210 2DEC -.071401086
050426,001257: 12,3053 01615 13553 2DEC .055503292
050427,001258: 12,3055 76371 63777 2DEC -.047264098
050428,001259: 12,3057 01232 27367 2DEC .040694204
050429,001260:
050430,001261: 12,3061 06037 TC INTPRET
050431,001262: 12,3062 76405 DMP SL1R # PL AT 0D
050432,001263: 12,3063 43006 PUSH BON
050433,001264: 12,3064 04316 360SW
050434,001265: 12,3065 25172 TRUE360X
050435,001266: 12,3066 60316 XCOMMON DSQ NORM
050436,001267: 12,3067 00047 X1
050437,001268: 12,3070 53605 DMP SRR*
050438,001269: 12,3071 02742 R1A
050439,001270: 12,3072 21565 0 -12D,1
050440,001271: 12,3073 14031 STODL XI # XI (+6)
050441,001272: 12,3074 00041 R1
050442,001273: 12,3075 75542 SR1 SQRT
050443,001274: 12,3076 41306 ROUND DMP
050444,001275: 12,3077 77632 SL4R # PL AT 0
050445,001276: 12,3100 00025 STORE X # X (+17 OR +16)
050446,001277:
050447,001278: 12,3101 60316 DSQ NORM
050448,001279: 12,3102 00047 X1
050449,001280: 12,3103 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
050450,001281: 12,3104 02740 P
050451,001282: 12,3105 00041 R1
050452,001283: 12,3106 75452 SL3 SQRT
050453,001284: 12,3107 56405 DMP SL3R
050454,001285: 12,3110 02766 COGA
050455,001286: 12,3111 14043 STODL KEPC1
050456,001287: 12,3112 02742 R1A
050457,001288: 12,3113 43021 BDSU CLEAR
050458,001289: 12,3114 11035 D1/64
050459,001290: 12,3115 04270 INFINFLG
050460,001291: 12,3116 00045 STORE KEPC2
050461,001292: 12,3117 77616 RVQ
050462,001293:
050463,001294: # Page 1191
050464,001295: 12,3120 77774 RESETX2 AXT,2
050465,001296: 12,3121 00003 3
050466,001297:
050467,001298: 12,3122 51001 360CHECK SETPD BPL
050468,001299: 12,3123 00001 0D
050469,001300: 12,3124 25127 INVRSEQN
050470,001301: 12,3125 77614 SET
050471,001302: 12,3126 04076 360SW
050472,001303:
050473,001304: 12,3127 75545 INVRSEQN DLOAD SQRT
050474,001305: 12,3130 02740 P
050475,001306: 12,3131 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
050476,001307: 12,3132 02730 SNTH
050477,001308: 12,3133 02766 COGA
050478,001309: 12,3134 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
050479,001310: 12,3135 02732 CSTH
050480,001311: 12,3136 43202 SR4 DAD
050481,001312: 12,3137 11043 D1/32
050482,001313: 12,3140 41225 DSU DMP # PL AT 2,0
050483,001314: 12,3141 55301 NORM BDDV
050484,001315: 12,3142 00047 X1
050485,001316: 12,3143 02730 SNTH
050486,001317: 12,3144 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
050487,001318: 12,3145 21174 0 -5,1
050488,001319: 12,3146 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
050489,001320: 12,3147 14043 STODL 34D
050490,001321: 12,3150 11041 D1/16
050491,001322: 12,3151 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
050492,001323: 12,3152 65234 RTB PDDL # PL AT 7
050493,001324: 12,3153 21633 TPMODE
050494,001325: 12,3154 02742 R1A
050495,001326: 12,3155 40405 DMP SR4
050496,001327: 12,3156 00043 34D
050497,001328: 12,3157 77771 TAD # PL AT 4
050498,001329: 12,3160 75440 BMN SQRT
050499,001330: 12,3161 25205 INFINITY
050500,001331: 12,3162 77615 DAD # PL AT 2
050501,001332: 12,3163 60304 TIX,2 NORM
050502,001333: 12,3164 25151 1/WLOOP
050503,001334: 12,3165 00047 X1
050504,001335: 12,3166 77665 BDDV
050505,001336: 12,3167 52057 SLR* GOTO # PL AT 0
050506,001337: 12,3170 21172 0 -7,1
050507,001338: 12,3171 25031 POLYCOEF
050508,001339:
050509,001340: 12,3172 50145 TRUE360X DLOAD BMN
050510,001341: 12,3173 02742 R1A
050511,001342: # Page 1192
050512,001343: 12,3174 25205 INFINITY
050513,001344: 12,3175 60366 SQRT NORM
050514,001345: 12,3176 00047 X1
050515,001346: 12,3177 53665 BDDV SL*
050516,001347: 12,3200 11055 2PISC
050517,001348: 12,3201 20176 0 -3,1
050518,001349: 12,3202 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
050519,001350: 12,3203 77650 GOTO
050520,001351: 12,3204 25066 XCOMMON
050521,001352: 12,3205 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
050522,001353: 12,3206 00001 0 # INFINITY IS REQUIRED
050523,001354: 12,3207 25210 OVFLCLR
050524,001355: 12,3210 43414 OVFLCLR SET RVQ
050525,001356: 12,3211 04070 INFINFLG
050526,001357:
050527,001358: # Page 1193
050528,001359: 12,3212 40220 LAMBERT STQ SETPD
050529,001360: 12,3213 02710 RTNLAMB
050530,001361: 12,3214 00001 0D
050531,001362: 12,3215 77600 BOV
050532,001363: 12,3216 25217 +1
050533,001364: 12,3217 76614 CLEAR VLOAD*
050534,001365: 12,3220 02674 SOLNSW
050535,001366: 12,3221 10005 MUTABLE,1
050536,001367: 12,3222 14017 STODL 1/MU
050537,001368: 12,3223 02671 TDESIRED
050538,001369: 12,3224 77675 DMPR
050539,001370: 12,3225 11042 BEE19
050540,001371: 12,3226 02764 STORE EPSILONL
050541,001372: 12,3227 77214 SET VLOAD
050542,001373: 12,3230 00474 SLOPESW
050543,001374: 12,3231 02655 R1VEC
050544,001375: 12,3232 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
050545,001376: 12,3233 02663 R2VEC # MPAC=R2VEC (+29 OR +27)
050546,001377: 12,3234 11130 GEOM
050547,001378: 12,3235 16730 STODL SNTH # 0D=CSTH (+1) PL AT 2
050548,001379: 12,3236 02720 MAGVEC2
050549,001380: 12,3237 65301 NORM PDDL
050550,001381: 12,3240 00047 X1
050551,001382: 12,3241 00041 R1
050552,001383: 12,3242 56342 SR1 DDV # PL AT 2
050553,001384: 12,3243 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
050554,001385: 12,3244 20173 0 -6,1
050555,001386: 12,3245 77626 STADR
050556,001387: 12,3246 75045 STORE CSTH # CSTH (+1)
050557,001388: 12,3247 44342 SR1 BDSU
050558,001389: 12,3250 11037 D1/4
050559,001390: 12,3251 02734 STORE 1-CSTH # 1-CSTH (+2)
050560,001391:
050561,001392: 12,3252 53106 ROUND BZE
050562,001393: 12,3253 25463 360LAMB
050563,001394: 12,3254 65301 NORM PDDL # PL AT 4
050564,001395: 12,3255 00047 X1
050565,001396: 12,3256 00001 0D
050566,001397: 12,3257 56342 SR1 DDV # PL AT 2
050567,001398: 12,3260 75457 SL* SQRT
050568,001399: 12,3261 20176 0 -3,1
050569,001400: 12,3262 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
050570,001401: 12,3263 02730 SNTH
050571,001402: 12,3264 20607 6
050572,001403: 12,3265 43271 DDV DAD # PL AT 2
050573,001404: 12,3266 02734 1-CSTH
050574,001405: 12,3267 77626 STADR
050575,001406: 12,3270 77760 STORE COGAMAX
050576,001407: 12,3271 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
050577,001408: 12,3272 25277 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
050578,001409: # Page 1194
050579,001410: 12,3273 25302 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
050580,001411: 12,3274 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
050581,001412: 12,3275 11061 COGUPLIM
050582,001413: 12,3276 25302 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
050583,001414: 12,3277 77745 UPLIM DLOAD
050584,001415: 12,3300 11061 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
050585,001416: 12,3301 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
050586,001417: 12,3302 77745 MAXCOGA DLOAD
050587,001418: 12,3303 02732 CSTH
050588,001419: 12,3304 45261 SR DSU # PL AT 0
050589,001420: 12,3305 20607 6
050590,001421: 12,3306 77626 STADR
050591,001422: 12,3307 61041 STODL CSTH-RHO
050592,001423: 12,3310 02673 GEOMSGN
050593,001424: 12,3311 71240 BMN DLOAD
050594,001425: 12,3312 25503 LOLIM
050595,001426: 12,3313 02736 CSTH-RHO
050596,001427: 12,3314 56352 SL1 DDV
050597,001428: 12,3315 02730 SNTH
050598,001429: 12,3316 77600 BOV
050599,001430: 12,3317 25503 LOLIM
050600,001431: 12,3320 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
050601,001432: 12,3321 66214 BON SSP
050602,001433: 12,3322 00715 GUESSW
050603,001434: 12,3323 25467 NOGUESS
050604,001435: 12,3324 00051 TWEEKIT
050605,001436: 12,3325 00001 00001
050606,001437: 12,3326 77745 DLOAD
050607,001438: 12,3327 02766 COGA
050608,001439:
050609,001440: 12,3330 77605 LAMBLOOP DMP
050610,001441: 12,3331 02730 SNTH
050611,001442: 12,3332 45342 SR1 DSU
050612,001443: 12,3333 02736 CSTH-RHO
050613,001444: 12,3334 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
050614,001445: 12,3335 00047 X1
050615,001446: 12,3336 02734 1-CSTH
050616,001447: 12,3337 56257 SL* DDV # 1-CSTH (+2) PL AT 0
050617,001448: 12,3340 20170 0 -9D,1
050618,001449: 12,3341 53040 BMN BZE
050619,001450: 12,3342 25417 NEGP
050620,001451: 12,3343 25417 NEGP
050621,001452: 12,3344 16740 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
050622,001453: 12,3345 02766 COGA
050623,001454: 12,3346 43316 DSQ DAD
050624,001455: 12,3347 11045 D1/1024
050625,001456: 12,3350 41301 NORM DMP
050626,001457: 12,3351 00047 X1
050627,001458: 12,3352 02740 P
050628,001459: # Page 1195
050629,001460: 12,3353 44257 SR* BDSU
050630,001461: 12,3354 20571 0 -8D,1
050631,001462: 12,3355 11043 D1/32
050632,001463: 12,3356 16742 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
050633,001464: 12,3357 02740 P
050634,001465: 12,3360 45000 BOV CALL
050635,001466: 12,3361 25422 HIENERGY
050636,001467: 12,3362 24767 GETX
050637,001468: 12,3363 77745 DLOAD
050638,001469: 12,3364 00037 T
050639,001470: 12,3365 16762 STODL TPREV
050640,001471: 12,3366 00031 XI
050641,001472: 12,3367 45014 BON CALL
050642,001473: 12,3370 04310 INFINFLG
050643,001474: 12,3371 25417 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
050644,001475: 12,3372 24421 DELTIME
050645,001476: 12,3373 44200 BOV BDSU
050646,001477: 12,3374 25437 BIGTIME
050647,001478: 12,3375 02671 TDESIRED
050648,001479: 12,3376 02760 STORE TERRLAMB
050649,001480: 12,3377 44246 ABS BDSU
050650,001481: 12,3400 02764 EPSILONL
050651,001482: 12,3401 47044 BPL RTB
050652,001483: 12,3402 25506 INITV
050653,001484: 12,3403 24644 CHECKCTR
050654,001485: 12,3404 45030 BHIZ CALL
050655,001486: 12,3405 25450 SUFFCHEK
050656,001487: 12,3406 24536 ITERATOR
050657,001488: 12,3407 53145 DLOAD BZE
050658,001489: 12,3410 00155 MPAC
050659,001490: 12,3411 25450 SUFFCHEK
050660,001491: 12,3412 77615 DAD
050661,001492: 12,3413 02766 COGA
050662,001493: 12,3414 02766 STORE COGA
050663,001494: 12,3415 77650 GOTO
050664,001495: 12,3416 25330 LAMBLOOP
050665,001496:
050666,001497: 12,3417 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
050667,001498: 12,3420 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
050668,001499: 12,3421 25442 LOENERGY
050669,001500:
050670,001501: 12,3422 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
050671,001502: 12,3423 00001 0
050672,001503: 12,3424 02766 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
050673,001504: 12,3425 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
050674,001505: 12,3426 70545 COMMONLM DLOAD SR1
050675,001506: 12,3427 00015 DCOGA
050676,001507: # Page 1196
050677,001508: 12,3430 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
050678,001509: 12,3431 44254 BZE BDSU
050679,001510: 12,3432 25450 SUFFCHEK
050680,001511: 12,3433 02766 COGA
050681,001512: 12,3434 02766 STORE COGA
050682,001513: 12,3435 77650 GOTO # RESTART THIS LOOP
050683,001514: 12,3436 25330 LAMBLOOP
050684,001515:
050685,001516: 12,3437 77745 BIGTIME DLOAD
050686,001517: 12,3440 02762 TPREV
050687,001518: 12,3441 00037 STORE T
050688,001519:
050689,001520: 12,3442 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
050690,001521: 12,3443 00001 0
050691,001522: 12,3444 02766 COGA # IN OVERFLOW OF TIME.
050692,001523: 12,3445 00017 STORE COGAMAX # THIS IS THE NEW BOUND.
050693,001524: 12,3446 77650 GOTO
050694,001525: 12,3447 25426 COMMONLM
050695,001526:
050696,001527: 12,3450 51545 SUFFCHEK DLOAD ABS
050697,001528: 12,3451 02760 TERRLAMB
050698,001529: 12,3452 41325 PDDL DMP # PL AT 2D
050699,001530: 12,3453 02671 TDESIRED
050700,001531: 12,3454 11030 BEE17
050701,001532: 12,3455 45215 DAD DSU # PL AT 0D
050702,001533: 12,3456 11057 ONEBIT
050703,001534: 12,3457 43044 BPL SETGO
050704,001535: 12,3460 25506 INITV
050705,001536: 12,3461 02434 SOLNSW
050706,001537: 12,3462 25506 INITV
050707,001538: 12,3463 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
050708,001539: 12,3464 00001 0
050709,001540: 12,3465 02434 SOLNSW
050710,001541: 12,3466 02710 RTNLAMB
050711,001542:
050712,001543: 12,3467 71331 NOGUESS SSP DLOAD
050713,001544: 12,3470 00051 TWEEKIT
050714,001545: 12,3471 10000 20000
050715,001546: 12,3472 00011 COGAMIN
050716,001547: 12,3473 65342 SR1 PDDL # PL AT 2
050717,001548: 12,3474 00017 COGAMAX
050718,001549: 12,3475 43342 SR1 DAD
050719,001550: 12,3476 77626 STADR # PL AT 0
050720,001551: 12,3477 75011 STORE COGA
050721,001552: 12,3500 00015 STORE DCOGA
050722,001553: 12,3501 77650 GOTO
050723,001554: # Page 1197
050724,001555: 12,3502 25330 LAMBLOOP
050725,001556:
050726,001557: 12,3503 52145 LOLIM DLOAD GOTO
050727,001558: 12,3504 11063 COGLOLIM # COGLOLIM=-.999511597
050728,001559: 12,3505 25320 MINCOGA
050729,001560:
050730,001561: 12,3506 60345 INITV DLOAD NORM
050731,001562: 12,3507 00041 R1
050732,001563: 12,3510 00047 X1
050733,001564: 12,3511 70525 PDDL SR1 # PL AT 2
050734,001565: 12,3512 02740 P
050735,001566: 12,3513 77671 DDV # PL AT 0
050736,001567: 12,3514 75457 SL* SQRT
050737,001568: 12,3515 20175 0 -4,1
050738,001569: 12,3516 72405 DMP SL1
050739,001570: 12,3517 00021 ROOTMU
050740,001571: 12,3520 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
050741,001572: 12,3521 02766 COGA
050742,001573: 12,3522 74261 SL VXSC
050743,001574: 12,3523 20206 5
050744,001575: 12,3524 02722 UR1
050745,001576: 12,3525 77725 PDDL # XCH WITH 0D PL AT 0,6
050746,001577: 12,3526 76561 VXSC VSL1
050747,001578: 12,3527 02674 UN
050748,001579: 12,3530 53235 VXV VAD # PL AT 0
050749,001580: 12,3531 02722 UR1
050750,001581: 12,3532 77772 VSL1
050751,001582: 12,3533 02744 STORE VVEC
050752,001583: 12,3534 53135 SLOAD BZE
050753,001584: 12,3535 02702 VTARGTAG
050754,001585: 12,3536 25541 TARGETV
050755,001586: 12,3537 77650 GOTO
050756,001587: 12,3540 02710 RTNLAMB
050757,001588:
050758,001589: 12,3541 45145 TARGETV DLOAD CALL
050759,001590: 12,3542 02720 MAGVEC2
050760,001591: 12,3543 24701 LAMENTER
050761,001592: 12,3544 02703 STORE VTARGET
050762,001593: 12,3545 77650 GOTO
050763,001594: 12,3546 02710 RTNLAMB
050764,001595:
050765,001596: # Page 1198
050766,001597: 12,3547 40220 TIMERAD STQ SETPD # PL AT 0
050767,001598: 12,3550 02710 RTNTR
050768,001599: 12,3551 00001 0
050769,001600: 12,3552 77600 BOV
050770,001601: 12,3553 25554 +1
050771,001602: 12,3554 63375 VLOAD PDVL # PL AT 6
050772,001603: 12,3555 02655 RVEC
050773,001604: 12,3556 02744 VVEC
050774,001605: 12,3557 77624 CALL
050775,001606: 12,3560 11064 PARAM
050776,001607: 12,3561 71200 BOV DLOAD # PL AT 0
050777,001608: 12,3562 24764 COGAOVFL
050778,001609: 12,3563 11043 D1/32
050779,001610: 12,3564 41225 DSU DMP
050780,001611: 12,3565 02742 R1A
050781,001612: 12,3566 02740 P
050782,001613: 12,3567 41366 SQRT DMP
050783,001614: 12,3570 02766 COGA
050784,001615: 12,3571 74212 SL4 VXSC
050785,001616: 12,3572 02712 U2
050786,001617: 12,3573 45325 PDDL DSU # PL AT 6
050787,001618: 12,3574 11035 D1/64
050788,001619: 12,3575 02742 R1A
050789,001620: 12,3576 52361 VXSC VSU # PL AT 0
050790,001621: 12,3577 02722 UR1
050791,001622: 12,3600 53512 VSL4 UNIT
050792,001623: 12,3601 77600 BOV
050793,001624: 12,3602 25660 CIRCULAR
050794,001625: 12,3603 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
050795,001626: 12,3604 02756 RDESIRED # 35D=ECC (+3)
050796,001627: 12,3605 00047 X1
050797,001628: 12,3606 41325 PDDL DMP # PL AT 8
050798,001629: 12,3607 00041 R1
050799,001630: 12,3610 02740 P
050800,001631: 12,3611 56257 SL* DDV # PL AT 6
050801,001632: 12,3612 20201 0,1
050802,001633: 12,3613 56225 DSU DDV
050803,001634: 12,3614 11041 D1/16
050804,001635: 12,3615 00045 36D # 36D=ECC (+3)
050805,001636: 12,3616 00031 STORE COSF
050806,001637: 12,3617 63400 BOV DSQ
050807,001638: 12,3620 25664 BADR2
050808,001639: 12,3621 50021 BDSU BMN
050809,001640: 12,3622 11037 D1/4
050810,001641: 12,3623 25664 BADR2
050811,001642: 12,3624 75366 SQRT SIGN
050812,001643: 12,3625 02755 SGNRDOT
050813,001644: 12,3626 77614 CLEAR
050814,001645: 12,3627 04272 APSESW
050815,001646: # Page 1199
050816,001647: 12,3630 76561 TERMNVEC VXSC VSL1
050817,001648: 12,3631 02674 UN
050818,001649: 12,3632 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
050819,001650: 12,3633 00001 0D
050820,001651: 12,3634 53361 VXSC VAD # PL AT 0
050821,001652: 12,3635 00031 COSF
050822,001653: 12,3636 41572 VSL1 PUSH # 0D=U2 PL AT 6
050823,001654:
050824,001655: 12,3637 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
050825,001656: 12,3640 02722 UR1
050826,001657: 12,3641 25756 DP1/4
050827,001658: 12,3642 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
050828,001659: 12,3643 25644 +1 # CLEAR OVFIND IF SET
050829,001660: 12,3644 26732 STOVL CSTH # CSTH (+1)
050830,001661: 12,3645 02722 UR1
050831,001662: 12,3646 76435 VXV VSL1
050832,001663: 12,3647 72441 DOT SL1
050833,001664: 12,3650 02674 UN
050834,001665: 12,3651 16730 STODL SNTH # SNTH (+1)
050835,001666: 12,3652 02740 P
050836,001667: 12,3653 77624 CALL
050837,001668: 12,3654 24767 GETX
050838,001669: 12,3655 77614 CLRGO
050839,001670: 12,3656 02634 SOLNSW
050840,001671: 12,3657 24747 COMMNOUT
050841,001672:
050842,001673: 12,3660 43001 CIRCULAR SETPD SETGO
050843,001674: 12,3661 00001 0
050844,001675: 12,3662 02434 SOLNSW
050845,001676: 12,3663 25742 ABTCONIC
050846,001677:
050847,001678: 12,3664 75345 BADR2 DLOAD SIGN
050848,001679: 12,3665 24005 LODPHALF
050849,001680: 12,3666 00031 COSF
050850,001681: 12,3667 14031 STODL COSF
050851,001682: 12,3670 24007 KEPZERO
050852,001683: 12,3671 77614 SETGO
050853,001684: 12,3672 04032 APSESW
050854,001685: 12,3673 25630 TERMNVEC
050855,001686:
050856,001687: # Page 1200
050857,001688: 12,3674 40220 APSIDES STQ SETPD # PL AT 0
050858,001689: 12,3675 02710 RTNAPSE
050859,001690: 12,3676 00001 0D
050860,001691: 12,3677 77600 BOV
050861,001692: 12,3700 25701 +1
050862,001693: 12,3701 63375 VLOAD PDVL # PL AT 6
050863,001694: 12,3702 02655 RVEC
050864,001695: 12,3703 02744 VVEC
050865,001696: 12,3704 77624 CALL
050866,001697: 12,3705 11064 PARAM
050867,001698: 12,3706 77600 BOV # PL AT 0
050868,001699: 12,3707 25710 GETECC
050869,001700: 12,3710 42405 GETECC DMP SL4
050870,001701: 12,3711 02742 R1A
050871,001702: 12,3712 75421 BDSU SQRT
050872,001703: 12,3713 11035 D1/64
050873,001704: 12,3714 02752 STORE ECC
050874,001705: 12,3715 65215 DAD PDDL # PL AT 2
050875,001706: 12,3716 11031 D1/8
050876,001707: 12,3717 00041 R1
050877,001708: 12,3720 72405 DMP SL1
050878,001709: 12,3721 02740 P
050879,001710: 12,3722 77671 DDV # PL AT 0
050880,001711: 12,3723 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
050881,001712: 12,3724 02742 R1A
050882,001713: 12,3725 00047 X1
050883,001714: 12,3726 53725 PDDL SL* # PL AT 4
050884,001715: 12,3727 00041 R1
050885,001716: 12,3730 20174 0 -5,1
050886,001717: 12,3731 45271 DDV DSU # PL AT 2,0
050887,001718: 12,3732 50000 BOV BMN
050888,001719: 12,3733 25737 INFINAPO
050889,001720: 12,3734 25737 INFINAPO
050890,001721: 12,3735 77650 GOTO
050891,001722: 12,3736 02710 RTNAPSE
050892,001723: 12,3737 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
050893,001724: 12,3740 24020 LDPOSMAX
050894,001725: 12,3741 02710 RTNAPSE # THAT PL IS AT 0.
050895,001726:
050896,001727: # Page 1201
050897,001728: 12,3742 77776 ABTCONIC EXIT
050898,001729: 12,3743 05652 TC P00DOO
050899,001730: 12,3744 00607 OCT 00607
050900,001731:
050901,001732: # Page 1202
050902,001733: 12,3745 12,2017 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
050903,001734:
050904,001735: # ERASABLE ASSIGNEMENTS
050905,001736:
050906,001737: # KEPLER SUBROUTINE
050907,001738:
050908,001739: # INPUT -
050909,001740: # RRECT ERASE +5
050910,001741: # VRECT ERASE +5
050911,001742: # TAU. ERASE +1
050912,001743: # XKEP ERASE +1
050913,001744: # TC ERASE +1
050914,001745: # XPREV ERASE +1
050915,001746: 12,3745 1/MU EQUALS 14D
050916,001747: 12,3745 ROOTMU EQUALS 16D
050917,001748: 12,3745 1/ROOTMU EQUALS 18D
050918,001749:
050919,001750: # OUTPUT -
050920,001751: # RCV ERASE +5
050921,001752: # VCV ERASE +5
050922,001753: # RC ERASE +1
050923,001754: # XPREV ERASE +1
050924,001755:
050925,001756: # DEBRIS -
050926,001757: 12,3745 ALPHA EQUALS 8D
050927,001758: 12,3745 XMAX EQUALS 10D
050928,001759: 12,3745 XMIN EQUALS 12D
050929,001760: 12,3745 X EQUALS 20D
050930,001761: 12,3745 XI EQUALS 24D
050931,001762: 12,3745 S(XI) EQUALS 26D
050932,001763: 12,3745 XSQC(XI) EQUALS 28D
050933,001764: 12,3745 T EQUALS 30D
050934,001765: 12,3745 R1 EQUALS 32D
050935,001766: 12,3745 KEPC1 EQUALS 34D
050936,001767: 12,3745 KEPC2 EQUALS 36D
050937,001768: # DELX ERASE +1
050938,001769: # DELT ERASE +1
050939,001770: # URRECT ERASE +5
050940,001771: # RCNORM ERASE +1
050941,001772: # XPREV EQUALS XKEP
050942,001773:
050943,001774:
050944,001775: # LAMBERT SUBROUTINE
050945,001776:
050946,001777: # INPUT -
050947,001778: # R1VEC ERASE +5
050948,001779: # R2VEC ERASE +5
050949,001780: # TDESIRED ERASE +1
050950,001781: # GEOMSGN ERASE +0
050951,001782: # GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT
050952,001783: # Page 1203
050953,001784: # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO.
050954,001785: # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
050955,001786: # UN ERASE +5 # ONLY USED IF NORMSW IS 1
050956,001787: # VTARGTAG ERASE +0
050957,001788: # TWEEKIT EQUALS 40D # ONLY USED IF GUESSW IS 0
050958,001789:
050959,001790: # OUTPUT -
050960,001791: # VTARGET ERASE +5 # AVAILABLE ONLY IF VTARGTAG IS ZERO.
050961,001792: # V1VEC EQUALS MPAC
050962,001793:
050963,001794: # DEBRIS -
050964,001795: # RTNLAMB ERASE +0
050965,001796: # U2 ERASE +5
050966,001797: # MAGVEC2 ERASE +1
050967,001798: # UR1 ERASE +5
050968,001799: # R1 EQUALS 31D
050969,001800: # UN ERASE +5
050970,001801: # SNTH ERASE +1
050971,001802: # CSTH ERASE +1
050972,001803: # 1-CSTH ERASE +1
050973,001804: # CSTH-RHO ERASE +1
050974,001805: 12,3745 COGAMAX EQUALS 14D # CLOBBERS 1/MU
050975,001806: 12,3745 COGAMIN EQUALS 8D
050976,001807: 12,3745 DCOGA EQUALS 12D
050977,001808: # TWEEKIT EQUALS 40D
050978,001809: # P ERASE +1
050979,001810: # COGA ERASE +1
050980,001811: # R1A ERASE +1
050981,001812: # X EQUALS 20D
050982,001813: # XSQ EQUALS 22D
050983,001814: # XI EQUALS 24D
050984,001815: # S(XI) EQUALS 26D
050985,001816: # XSQC(XI) EQUALS 28D
050986,001817: # T EQUALS 30D
050987,001818: # KEPC1 EQUALS 34D
050988,001819: # KEPC2 EQUALS 36D
050989,001820: # SLOPESW
050990,001821: # SOLNSW
050991,001822:
050992,001823: # OTHERS -
050993,001824: # RVEC EQUALS R1VEC
050994,001825: # VVEC ERASE +5
050995,001826: # COGAFLAG
050996,001827: # RVSW
050997,001828: # INFINFLG
050998,001829: # APSESW
050999,001830: # 360SW
051000,001831: # RTNTT EQUALS RTNLAMB
051001,001832: # ECC ERASE +1
051002,001833: # RTNTR EQUALS RTNLAMB
051003,001834: # Page 1204
051004,001835: # RTNAPSE EQUALS RTNLAMB
051005,001836: # R2 EQUALS MAGVEC2
051006,001837: 12,3745 COSF EQUALS 24D
051007,001838: # RTNPRM ERASE +0
051008,001839: # SCNRDOT ERASE +0
051009,001840: # RDESIRED ERASE +1
051010,001841:
051011,001842:
051012,001843: # ITERATOR SUBROUTINE
051013,001844: # ORDERSW
051014,001845: 12,3745 MAX EQUALS 14D # CLOBBERS 1/MU
051015,001846: 12,3745 MIN EQUALS 8D
051016,001847: # INDEP ERASE +1
051017,001848: 12,3745 DELINDEP EQUALS 12D
051018,001849: 12,3745 ITERCTR EQUALS 22D
051019,001850: 12,3745 DEP EQUALS 30D
051020,001851: # DELDEP ERASE +1
051021,001852: # DEPREV ERASE +1
051022,001853: 12,3745 TWEEKIT EQUALS 40D
051023,001854:
051024,001855:
051025,001856: # MORE KEPLER
051026,001857: # EPSILONT ERASE +1
051027,001858:
051028,001859:
051029,001860: # MORE LAMBERT
051030,001861: # TERRLAMB EQUALS DELDEP
051031,001862: # TPREV EQUALS DEPREV
051032,001863:
051033,001864: # EPSILONL EQUALS EPSILONT +2 # DOUBLE PRECISION WORD
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc