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