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