Source Code
|
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
These dumps were then modified using memos, checklists, observed address changes, and the
Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible.
Without more information, it is not possible to say how close it actually is; however, this
code should be quite close. It is capable of flying the whole Apollo 9 mission using the original
checklists and padload.
Since only binary dumps (rather than listings) of Sundance are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
044796,000002: ## Copyright: Public domain.
044797,000003: ## Filename: CONIC_SUBROUTINES.agc
044798,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
044799,000005: ## as closely as possible with available information. Sundance
044800,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
044801,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
044802,000008: ## using the mixed-revision SundanceXXX as a starting point, and
044803,000009: ## pulling back features from Luminary 69 believed to have been
044804,000010: ## added based on memos, checklists, observed address changes,
044805,000011: ## or the Sundance GSOPs.
044806,000012: ## Assembler: yaYUL
044807,000013: ## Contact: Ron Burkey <info@sandroid.org>.
044808,000014: ## Website: www.ibiblio.org/apollo/index.html
044809,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
044810,000016:
044811,000017:
044812,000018:
044813,000019: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
044814,000020: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
044815,000021: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
044816,000022:
044817,000023:
044818,000024: # FUNCTIONAL DESCRIPTION -
044819,000025:
044820,000026: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
044821,000027: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
044822,000028: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
044823,000029: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
044824,000030: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
044825,000031: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
044826,000032: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
044827,000033: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
044828,000034: # TINES APPROPRIATELY.
044829,000035: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
044830,000036: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
044831,000037: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
044832,000038:
044833,000039:
044834,000040: # RESTRICTIONS -
044835,000041:
044836,000042: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
044837,000043: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
044838,000044: # TORIES COULD BE HANDLED.
044839,000045: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
044840,000046: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
044841,000047: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
044842,000048:
044843,000049:
044844,000050: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
044845,000051: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
044846,000052: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
044847,000053:
044848,000054:
044849,000055: # FUNCTIONAL DESCRIPTION -
044850,000056: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
044851,000057: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
044852,000058: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
044853,000059: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
044854,000060: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
044855,000061: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
044856,000062: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
044857,000063: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
044858,000064: # IF THE DESIRED TRANSFER TIME IS POSITIVE AND EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A MODULAR
044859,000065: # TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
044860,000066:
044861,000067:
044862,000068: # THE RESTRICTIONS ARE -
044863,000069: # 1. A NEGATIVE DESIRED TIME MUST BE LESS THAN ONE PERIOD IN MAGNITUDE. IF GREATER, THE ONE-PERIOD- SOLUTION
044864,000070: # WILL BE RETURNED.
044865,000071: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
044866,000072: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
044867,000073:
044868,000074:
044869,000075: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
044870,000076: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
044871,000077: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
044872,000078:
044873,000079:
044874,000080:
044875,000081: # REFERENCES -
044876,000082: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
044877,000083: # MEMO 67-4.
044878,000084:
044879,000085:
044880,000086:
044881,000087: # INPUT - ERASABLE INITIALIZATION REQUIRED
044882,000088:
044883,000089: # * SCALE FACTOR *
044884,000090: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044885,000091: # --------*--------------* -----------------------
044886,000092: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
044887,000093: # * +27 FOR MOON *
044888,000094: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
044889,000095: # * +5 FOR MOON *
044890,000096: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
044891,000097: # * *RESPECTIVELY, IS THE CENTRAL BODY
044892,000098: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
044893,000099: # XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP
044894,000100: # * +16 FOR MOON *(DP)
044895,000101: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP
044896,000102: # XPREV * +17 FOR EARTH*PREVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF POWER FROM KEPPREP (DP)
044897,000103: # * +16 FOR MOON *(DP)
044898,000104:
044899,000105:
044900,000106:
044901,000107: # SUBROUTINES CALLED -
044902,000108: # DELTIME
044903,000109:
044904,000110:
044905,000111:
044906,000112: # CALLING SEQUENCE AND NORMAL EXIT MODES -
044907,000113:
044908,000114: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
044909,000115: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
044910,000116: # KEPRTN ... CONTINUE
044911,000117:
044912,000118: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
044913,000119: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
044914,000120: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
044915,000121:
044916,000122:
044917,000123:
044918,000124: # ABORT EXIT MODES -
044919,000125: # NONE
044920,000126:
044921,000127:
044922,000128:
044923,000129: # OUTPUT -
044924,000130:
044925,000131: # * SCALE FACTOR *
044926,000132: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044927,000133: # --------*--------------* -----------------------
044928,000134: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
044929,000135: # * +27 FOR MOON *
044930,000136: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
044931,000137: # * +5 FOR MOON *
044932,000138: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED.
044933,000139: # XPREV * +17 FOR EARTH*DP X IN METERS-TO-THE-ONE-HALF-POWER TO WHCIH KEPLER CONVERGED.
044934,000140: # * +16 FOR MOON *(DP)
044935,000141: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
044936,000142:
044937,000143:
044938,000144:
044939,000145: # DEBRIS -
044940,000146:
044941,000147: # PARAMETERS WHICH MAY BE OF USE -
044942,000148:
044943,000149: # * SCALE FACTOR *
044944,000150: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044945,000151: # --------*--------------* -----------------------
044946,000152: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
044947,000153: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
044948,000154: # * +27 FOR MOON *
044949,000155: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
044950,000156: # * -20 FOR MOON *
044951,000157: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
044952,000158: # * *TAU. OF LESS THAN ONE PERIOD.
044953,000159:
044954,000160: # PARAMETERS OF NO USE -
044955,000161: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
044956,000162:
044957,000163:
044958,000164: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
044959,000165: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
044960,000166: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
044961,000167:
044962,000168:
044963,000169:
044964,000170: # FUNCTIONAL DESCRIPTION -
044965,000171:
044966,000172: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
044967,000173: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
044968,000174: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
044969,000175: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
044970,000176: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
044971,000177: # UTILIZED IN THE COMPUTATION.
044972,000178:
044973,000179:
044974,000180: # THE RESTRICTIONS ARE -
044975,000181: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
044976,000182: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
044977,000183: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
044978,000184: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
044979,000185: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
044980,000186: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
044981,000187: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
044982,000188: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
044983,000189: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
044984,000190: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
044985,000191:
044986,000192:
044987,000193:
044988,000194: # REFERENCES -
044989,000195: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
044990,000196: # SGA MEMO 67-4.
044991,000197:
044992,000198:
044993,000199:
044994,000200: # INPUT - ERASABLE INITIALIZATION REQUIRED
044995,000201:
044996,000202: # * SCALE FACTOR *
044997,000203: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044998,000204: # --------*--------------*-----------------------
044999,000205: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
045000,000206: # * +27 FOR MOON *
045001,000207: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
045002,000208: # * +27 FOR MOON *
045003,000209: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
045004,000210: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
045005,000211: # * *RESPECTIVELY, IS THE CENTRAL BODY
045006,000212: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
045007,000213: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
045008,000214: # * *COGA IS TO BE USED BY LAMBERT
045009,000215: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
045010,000216: # *IGNORED IF GUESSW IS SET.
045011,000217: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
045012,000218: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
045013,000219: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
045014,000220: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
045015,000221: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
045016,000222: # * *AT R1VEC.
045017,000223:
045018,000224:
045019,000225: # SUBROUTINES CALLED -
045020,000226: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
045021,000227:
045022,000228:
045023,000229:
045024,000230: # CALLING SEQUENCE AND NORMAL EXIT MODES -
045025,000231:
045026,000232: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
045027,000233: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
045028,000234: # IN MPAC IF VTARGTAG WAS ZERO
045029,000235: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
045030,000236: # L+3 SOLNSW
045031,000237: # L+4 LAMABORT
045032,000238: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
045033,000239: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
045034,000240:
045035,000241:
045036,000242:
045037,000243: # ABORT EXIT MODES -
045038,000244: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
045039,000245: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
045040,000246: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
045041,000247: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
045042,000248: # 1-CSTH 360 DEGREES.
045043,000249: # DSU BMN
045044,000250: # ONEBIT
045045,000251: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
045046,000252: # DLOAD DAD
045047,000253: # TDESIRED
045048,000254: # SOMETIME
045049,000255: # STCALL TDESIRED INCREASE TDESIRED
045050,000256: # LAMBERT
045051,000257:
045052,000258:
045053,000259: # OUTPUT -
045054,000260: # * SCALE FACTOR *
045055,000261: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045056,000262: # --------*--------------* -----------------------
045057,000263: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
045058,000264: # * +5 FOR MOON *PROBLEM.
045059,000265: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
045060,000266: # * +5 FOR MOON *
045061,000267: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
045062,000268: # * *SOLUTION EXISTS.
045063,000269: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
045064,000270:
045065,000271:
045066,000272:
045067,000273: # DEBRIS -
045068,000274: # PARAMETERS WHICH MAY BE OF USE -
045069,000275:
045070,000276: # * SCALE FACTOR *
045071,000277: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045072,000278: # --------*--------------* -----------------------
045073,000279: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
045074,000280: # CSTH * +1 *DP COSINE OF ANGLE
045075,000281: # 1-CSTH * +2 *DP 1-CSTH
045076,000282: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
045077,000283: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
045078,000284: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
045079,000285: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
045080,000286: # * +27 FOR MOON *
045081,000287: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
045082,000288: # U2 * +1 *DP UNIT VECTOR OF R2VEC
045083,000289:
045084,000290: # PARAMETERS OF NO USE
045085,000291: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
045086,000292: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
045087,000293:
045088,000294:
045089,000295: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
045090,000296: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
045091,000297: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
045092,000298:
045093,000299:
045094,000300:
045095,000301: # FUNCTIONAL DESCRIPTION -
045096,000302:
045097,000303: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
045098,000304: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
045099,000305: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
045100,000306: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
045101,000307: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
045102,000308: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
045103,000309:
045104,000310:
045105,000311: # THE RESTRICTIONS ARE -
045106,000312: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
045107,000313: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
045108,000314: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
045109,000315: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
045110,000316:
045111,000317: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
045112,000318:
045113,000319:
045114,000320:
045115,000321: # REFERENCES -
045116,000322: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
045117,000323:
045118,000324:
045119,000325:
045120,000326: # INPUT - ERASABLE INITIALIZATION REQUIRED
045121,000327:
045122,000328: # * SCALE FACTOR *
045123,000329: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045124,000330: # --------*--------------* -----------------------
045125,000331: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
045126,000332: # * +27 FOR MOON *
045127,000333: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
045128,000334: # * +5 FOR MOON *
045129,000335: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
045130,000336: # CSTH * +1 *DP COSINE OF THE ANGLE
045131,000337: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
045132,000338: # * *IS TO BE COMPUTED ALSO.
045133,000339: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
045134,000340: # * *RESPECTIVELY, IS THE CENTRAL BODY.
045135,000341:
045136,000342:
045137,000343:
045138,000344: # SUBROUTINES CALLED -
045139,000345: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
045140,000346:
045141,000347:
045142,000348:
045143,000349: # CALLING SEQUENCE AND NORMAL EXIT MODES -
045144,000350:
045145,000351: # IF ONLY TIME IS DESIRED AS OUTPUT -
045146,000352: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
045147,000353: # L+1 RVSW
045148,000354: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
045149,000355: # L+3 ... CONTINUE
045150,000356:
045151,000357:
045152,000358: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
045153,000359: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
045154,000360: # L+1 RVSW
045155,000361: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
045156,000362: # THE INITIAL VELOCITY VECTOR IN MPAC.
045157,000363: # L+3 STOVL NEWVVEC
045158,000364: # L+4 STADR
045159,000365: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
045160,000366: # L+6 ... CONTINUE
045161,000367:
045162,000368:
045163,000369:
045164,000370: # ABORT EXIT MODES -
045165,000371: # L CALL BON
045166,000372: # L+1 TIMETHET
045167,000373: # L+2 COGAFLAG
045168,000374: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
045169,000375: # L+4 BON IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS
045170,000376: # GOOD, SO CONTINUE
045171,000377: # L+5 INFINFLG
045172,000378: # L+6 IMPOSSBL NO SOLUTION EXISTS.
045173,000379:
045174,000380:
045175,000381:
045176,000382: # OUTPUT -
045177,000383: # * SCALE FACTOR *
045178,000384: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045179,000385: # --------*--------------* -----------------------
045180,000386: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
045181,000387: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
045182,000388: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
045183,000389: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
045184,000390: # * *CLEAR IF NOT.
045185,000391:
045186,000392: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
045187,000393: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
045188,000394: # MPAC +5* +5 FOR MOON *
045189,000395: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
045190,000396: # * +27 FOR MOON *
045191,000397:
045192,000398: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
045193,000399:
045194,000400:
045195,000401:
045196,000402: # DEBRIS -
045197,000403:
045198,000404: # PARAMETERS WHICH MAY BE OF USE -
045199,000405:
045200,000406: # * SCALE FACTOR *
045201,000407: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045202,000408: # --------*--------------* -----------------------
045203,000409: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
045204,000410: # * +27 FOR MOON *
045205,000411: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
045206,000412: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
045207,000413: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
045208,000414: # UR1 * +1 *DP UNIT VECTOR OF RVEC
045209,000415: # U2 * +1 *DP UNIT VECTOR OF VVEC
045210,000416: # UN * +1 *DP UNIT VECTOR OF UR1*U2
045211,000417:
045212,000418:
045213,000419: # PARAMETERS OF NO USE -
045214,000420: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
045215,000421: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
045216,000422:
045217,000423:
045218,000424: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
045219,000425: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
045220,000426: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
045221,000427:
045222,000428:
045223,000429:
045224,000430: # FUNCTIONAL DESCRIPTION -
045225,000431:
045226,000432: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
045227,000433: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
045228,000434: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
045229,000435: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
045230,000436: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
045231,000437: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
045232,000438: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
045233,000439: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
045234,000440:
045235,000441:
045236,000442: # THE RESTRICTIONS ARE -
045237,000443: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
045238,000444: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
045239,000445: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
045240,000446: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
045241,000447: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
045242,000448: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
045243,000449: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
045244,000450:
045245,000451:
045246,000452: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
045247,000453:
045248,000454:
045249,000455:
045250,000456: # REFERENCES -
045251,000457: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
045252,000458:
045253,000459:
045254,000460:
045255,000461: # INPUT - ERASABLE INITIALIZATION REQUIRED
045256,000462:
045257,000463: # * SCALE FACTOR *
045258,000464: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045259,000465: # --------*--------------* -----------------------
045260,000466: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
045261,000467: # * +27 FOR MOON *
045262,000468: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
045263,000469: # * +5 FOR MOON *
045264,000470: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
045265,000471: # * +27 FOR MOON *COMPUTED.
045266,000472: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
045267,000473: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
045268,000474: # * *SINGLE-VALUED PROBLEM.
045269,000475: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
045270,000476: # * *RESPECTIVELY, IS THE CENTRAL BODY.
045271,000477: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
045272,000478: # * *IS TO BE COMPUTED ALSO.
045273,000479:
045274,000480:
045275,000481:
045276,000482: # SUBROUTINES CALLED -
045277,000483: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
045278,000484:
045279,000485:
045280,000486:
045281,000487: # CALLING SEQUENCE AND NORMAL EXIT MODES -
045282,000488:
045283,000489: # IF ONLY TIME IS DESIRED AS OUTPUT -
045284,000490: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
045285,000491: # L+1 RVSW
045286,000492: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
045287,000493: # L+3 ... CONTINUE
045288,000494:
045289,000495: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
045290,000496: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
045291,000497: # L+1 RVSW
045292,000498: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
045293,000499: # THE INITIAL VELOCITY VECTOR IN MPAC.
045294,000500: # L+3 STOVL NEWVVEC
045295,000501: # L+4 STADR
045296,000502: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
045297,000503: # L+6 ... CONTINUE
045298,000504:
045299,000505:
045300,000506:
045301,000507: # ABORT EXIT MODES -
045302,000508: # L CALL BON
045303,000509: # L+1 TIMERAD
045304,000510: # L+2 COGAFLAG
045305,000511: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
045306,000512: # L+4 BON BON
045307,000513: # L+5 INFINFLG
045308,000514: # L+6 IMPOSSBL NO SOLUTION EXISTS.
045309,000515: # L+7 SOLNSW
045310,000516: # L+8 IMPOSSBL SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE. RESTRICTION 3 HAS BEEN VIOLATED.
045311,000517: # L+9 ... IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE.
045312,000518:
045313,000519:
045314,000520:
045315,000521: # OUTPUT -
045316,000522: # * SCALE FACTOR *
045317,000523: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045318,000524: # --------*--------------* -----------------------
045319,000525: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
045320,000526: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
045321,000527: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
045322,000528: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
045323,000529: # * *CLEAR IF NOT.
045324,000530: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
045325,000531: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
045326,000532: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
045327,000533: # * *APOCENTER.
045328,000534: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
045329,000535: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
045330,000536: # *MINUS-18, THE SWITCH IS CLEAR.
045331,000537:
045332,000538:
045333,000539:
045334,000540: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
045335,000541:
045336,000542: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
045337,000543: # MPAC +5* +5 FOR MOON *
045338,000544: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
045339,000545: # * +27 FOR MOON *
045340,000546:
045341,000547: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
045342,000548:
045343,000549:
045344,000550:
045345,000551: # DEBRIS -
045346,000552:
045347,000553: # PARAMETERS WHICH MAY BE OF USE -
045348,000554:
045349,000555: # * SCALE FACTOR *
045350,000556: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045351,000557: # --------*--------------* -----------------------
045352,000558: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
045353,000559: # * +27 FOR MOON *
045354,000560: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
045355,000561: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
045356,000562: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
045357,000563: # UR1 * +1 *DP UNIT VECTOR OF RVEC
045358,000564: # U2 * +1 *DP UNIT VECTOR OF VVEC
045359,000565: # UN * +1 *DP UNIT VECTOR OF UR1*U2
045360,000566: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
045361,000567: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
045362,000568:
045363,000569:
045364,000570: # PARAMETERS OF NO USE -
045365,000571: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
045366,000572: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
045367,000573:
045368,000574:
045369,000575: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
045370,000576: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
045371,000577: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
045372,000578:
045373,000579:
045374,000580:
045375,000581: # FUNCTIONAL DESCRIPTION -
045376,000582:
045377,000583: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
045378,000584: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
045379,000585: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
045380,000586: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
045381,000587: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
045382,000588:
045383,000589:
045384,000590: # THE RESTRICTIONS ARE -
045385,000591: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
045386,000592: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
045387,000593: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
045388,000594: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
045389,000595:
045390,000596: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
045391,000597:
045392,000598:
045393,000599:
045394,000600: # REFERENCES -
045395,000601: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
045396,000602:
045397,000603:
045398,000604:
045399,000605: # INPUT - ERASABLE INITIALIZATION REQUIRED
045400,000606:
045401,000607: # * SCALE FACTOR *
045402,000608: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045403,000609: # --------*--------------* -----------------------
045404,000610: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
045405,000611: # * +27 FOR MOON *
045406,000612: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
045407,000613: # * +5 FOR MOON *
045408,000614: # X1 (38D)*NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
045409,000615: # * *RESPECTIVELY, IS THE CENTRAL BODY.
045410,000616:
045411,000617:
045412,000618:
045413,000619: # SUBROUTINES CALLED -
045414,000620: # PARAM, GEOM
045415,000621:
045416,000622:
045417,000623:
045418,000624: # CALLING SEQUENCE AND NORMAL EXIT MODES -
045419,000625: # IF ONLY TIME IS DESIRED AS OUTPUT -
045420,000626: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR.
045421,000627: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
045422,000628: # L+2 STODL APOAPSE
045423,000629: # L+3 0D
045424,000630: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
045425,000631: # L+5 ... CONTINUE
045426,000632:
045427,000633:
045428,000634:
045429,000635: # OUTPUT -
045430,000636: # * SCALE FACTOR *
045431,000637: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045432,000638: # --------*--------------* -----------------------
045433,000639: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
045434,000640: # * +27 FOR MOON *
045435,000641: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
045436,000642: # * +27 FOR MOON *
045437,000643: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
045438,000644:
045439,000645: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
045440,000646:
045441,000647:
045442,000648:
045443,000649: # DEBRIS -
045444,000650:
045445,000651: # PARAMETERS WHICH MAY BE OF USE -
045446,000652:
045447,000653: # * SCALE FACTOR *
045448,000654: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045449,000655: # --------*--------------* -----------------------
045450,000656: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
045451,000657: # * +27 FOR MOON *
045452,000658: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
045453,000659: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
045454,000660: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
045455,000661: # UR1 * +1 *DP UNIT VECTOR OF RVEC
045456,000662: # U2 * +1 *DP UNIT VECTOR OF VVEC
045457,000663: # UN * +1 *DP UNIT VECTOR OF UR1*U2
045458,000664: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
045459,000665: # * +5 FOR MOON *
045460,000666:
045461,000667:
045462,000668: # PARAMETERS OF NO USE -
045463,000669: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
045464,000670: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
045465,000671:
045466,000672:
045467,000673:
045468,000674: 12,2000 SETLOC CONICS
045469,000675: 12,2000 BANK
045470,000676:
045471,000677: 12,2000 COUNT* $$/CONIC
045472,000678: 12,2000 E5,1721 EBANK= UR1
045473,000679: 12,2000 71201 KEPLERN SETPD DLOAD
045474,000680: 12,2001 00001 0
045475,000681: 12,2002 22276 KEPZERO
045476,000682: 12,2003 02201 STORE XMODULO
045477,000683: 12,2004 32203 STOVL* TMODULO
045478,000684: 12,2005 10761 MUTABLE,1
045479,000685: 12,2006 24017 STOVL 14D
045480,000686: 12,2007 01503 RRECT
045481,000687: 12,2010 66256 UNIT SSP
045482,000688: 12,2011 00027 ITERCTR
045483,000689: 12,2012 00024 20D
045484,000690: 12,2013 16647 STODL URRECT
045485,000691: 12,2014 00045 36D
045486,000692: 12,2015 24041 STOVL R1
045487,000693: 12,2016 01503 RRECT
045488,000694: 12,2017 76441 DOT SL1R
045489,000695: 12,2020 01511 VRECT
045490,000696: 12,2021 76405 DMP SL1R
045491,000697: 12,2022 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
045492,000698: 12,2023 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
045493,000699:
045494,000700: 12,2024 01511 VRECT
045495,000701: 12,2025 57236 VSQ DMPR
045496,000702: 12,2026 00017 1/MU # 1/MU (-34 OR -28)
045497,000703: 12,2027 52405 DMP SL3
045498,000704: 12,2030 00041 R1
045499,000705: 12,2031 61425 DSU ROUND
045500,000706: 12,2032 10674 D1/64
045501,000707: 12,2033 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
045502,000708:
045503,000709: 12,2034 74421 BDSU SR1R
045504,000710: 12,2035 10674 D1/64
045505,000711: 12,2036 77671 DDV
045506,000712: 12,2037 00041 R1
045507,000713: 12,2040 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
045508,000714:
045509,000715:
045510,000716: 12,2041 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
045511,000717: 12,2042 24051 1REV
045512,000718: 12,2043 10712 -50SC # -50SC (+12)
045513,000719: 12,2044 40071 DDV BOV
045514,000720: 12,2045 00011 ALPHA
045515,000721: 12,2046 24055 STOREMAX
045516,000722: 12,2047 52166 SQRT GOTO
045517,000723: 12,2050 24055 STOREMAX
045518,000724:
045519,000725: 12,2051 55366 1REV SQRT BDDV
045520,000726: 12,2052 10714 2PISC # 2PISC (+6)
045521,000727: 12,2053 77600 BOV
045522,000728: 12,2054 24055 STOREMAX
045523,000729: 12,2055 50165 STOREMAX SIGN BMN
045524,000730: 12,2056 02076 TAU.
045525,000731: 12,2057 24272 BACKWARD
045526,000732: 12,2060 00013 STORE XMAX
045527,000733: 12,2061 65205 DMP PDDL # PL AT 2
045528,000734: 12,2062 00023 1/ROOTMU
045529,000735: 12,2063 00011 ALPHA
045530,000736: 12,2064 65301 NORM PDDL # DXCH WITH 0D. 0D=ALPHA PL AT 0,2
045531,000737: 12,2065 00047 X1
045532,000738: 12,2066 56257 SL* DDV # PL AT 0
045533,000739: 12,2067 20173 0 -6,1
045534,000740: 12,2070 50000 PERIODCH BOV BMN
045535,000741: 12,2071 24112 MODDONE
045536,000742: 12,2072 24112 MODDONE
045537,000743: 12,2073 77606 PUSH # 0D=PERIOD (+28)
045538,000744: 12,2074 50021 BDSU BMN
045539,000745: 12,2075 02076 TAU.
045540,000746: 12,2076 24112 MODDONE
045541,000747: 12,2077 16076 STODL TAU.
045542,000748: 12,2100 00013 XMAX
045543,000749: 12,2101 77615 DAD
045544,000750: 12,2102 02201 XMODULO
045545,000751: 12,2103 16201 STODL XMODULO
045546,000752: 12,2104 00001 0D
045547,000753: 12,2105 77615 DAD
045548,000754: 12,2106 02203 TMODULO
045549,000755: 12,2107 16203 STODL TMODULO # PL AT 0
045550,000756: 12,2110 77650 GOTO
045551,000757: 12,2111 24070 PERIODCH
045552,000758:
045553,000759: 12,2112 71201 MODDONE SETPD DLOAD
045554,000760: 12,2113 00001 0
045555,000761: 12,2114 22276 KEPZERO
045556,000762: 12,2115 14015 STODL XMIN
045557,000763: 12,2116 02132 XKEPNEW
045558,000764: 12,2117 77625 DSU
045559,000765: 12,2120 02201 XMODULO
045560,000766: 12,2121 00025 STORE X
045561,000767: 12,2122 50054 BZE BMN
045562,000768: 12,2123 24265 BADX
045563,000769: 12,2124 24265 BADX
045564,000770: 12,2125 51025 DSU BPL
045565,000771: 12,2126 00013 XMAX
045566,000772: 12,2127 24265 BADX
045567,000773:
045568,000774: 12,2130 57345 DXCOMP DLOAD DMPR
045569,000775: 12,2131 02076 TAU.
045570,000776: 12,2132 10705 BEE22
045571,000777: 12,2133 77646 ABS
045572,000778: 12,2134 16205 STODL EPSILONT
045573,000779: 12,2135 01551 TC
045574,000780: 12,2136 45254 BZE DSU
045575,000781: 12,2137 24141 NEWTC
045576,000782: 12,2140 02203 TMODULO
045577,000783: 12,2141 15551 NEWTC STODL TC
045578,000784: 12,2142 01553 XPREV
045579,000785: 12,2143 45254 BZE DSU
045580,000786: 12,2144 24146 XDIFF
045581,000787: 12,2145 02201 XMODULO
045582,000788: 12,2146 77621 XDIFF BDSU
045583,000789: 12,2147 00025 X
045584,000790: 12,2150 02643 STORE DELX
045585,000791:
045586,000792:
045587,000793: 12,2151 63545 KEPLOOP DLOAD DSQ
045588,000794: 12,2152 00025 X # X=XKEP
045589,000795: 12,2153 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
045590,000796: 12,2154 00047 X1
045591,000797: 12,2155 53605 DMP SRR*
045592,000798: 12,2156 00011 ALPHA
045593,000799: 12,2157 21573 0 -6,1
045594,000800: 12,2160 34031 STCALL XI # XI=ALPHA XSQ (+6)
045595,000801: 12,2161 24421 DELTIME
045596,000802: 12,2162 44200 BOV BDSU
045597,000803: 12,2163 24312 TIMEOVFL # UNLIKELY
045598,000804: 12,2164 02076 TAU.
045599,000805: 12,2165 02645 STORE DELT # DELT=DELINDEP
045600,000806: 12,2166 44246 ABS BDSU
045601,000807: 12,2167 02205 EPSILONT
045602,000808: 12,2170 71244 BPL DLOAD
045603,000809: 12,2171 24327 KEPCONVG
045604,000810: 12,2172 00037 T
045605,000811: 12,2173 60225 DSU NORM
045606,000812: 12,2174 01551 TC
045607,000813: 12,2175 00047 X1
045608,000814: 12,2176 60325 PDDL NORM
045609,000815: 12,2177 02643 DELX
045610,000816: 12,2200 00050 X2
045611,000817: 12,2201 41260 XSU,1 DMP
045612,000818: 12,2202 00047 X2
045613,000819: 12,2203 02645 DELT
045614,000820: 12,2204 56257 SLR* DDV
045615,000821: 12,2205 21202 1,1
045616,000822: 12,2206 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
045617,000823: 12,2207 71244 BPL DLOAD
045618,000824: 12,2210 24231 POSDELX
045619,000825: 12,2211 00025 X
045620,000826: 12,2212 00013 STORE XMAX # MOVE MAX BOUND IN
045621,000827: 12,2213 45221 BDSU DSU # PL AT 0
045622,000828: 12,2214 00015 XMIN
045623,000829: 12,2215 51000 BOV BPL
045624,000830: 12,2216 24223 NDXCHNGE
045625,000831: 12,2217 24223 NDXCHNGE
045626,000832: 12,2220 52145 DLOAD GOTO
045627,000833: 12,2221 00001 0D
045628,000834: 12,2222 24243 NEWDELX
045629,000835:
045630,000836:
045631,000837: 12,2223 45345 NDXCHNGE DLOAD DSU
045632,000838: 12,2224 00015 XMIN
045633,000839: 12,2225 00025 X
045634,000840: 12,2226 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
045635,000841: 12,2227 10710 DP9/10
045636,000842: 12,2230 24243 NEWDELX
045637,000843:
045638,000844:
045639,000845: 12,2231 77745 POSDELX DLOAD
045640,000846: 12,2232 00025 X
045641,000847: 12,2233 00015 STORE XMIN # MOVE MIN BOUND IN
045642,000848: 12,2234 45221 BDSU DSU # PL AT 0
045643,000849: 12,2235 00013 XMAX
045644,000850: 12,2236 50000 BOV BMN
045645,000851: 12,2237 24257 PDXCHNGE
045646,000852: 12,2240 24257 PDXCHNGE
045647,000853: 12,2241 77745 DLOAD
045648,000854: 12,2242 00001 0D
045649,000855: 12,2243 02643 NEWDELX STORE DELX
045650,000856: 12,2244 43254 BZE DAD
045651,000857: 12,2245 24327 KEPCONVG
045652,000858: 12,2246 00025 X
045653,000859: 12,2247 14025 STODL X
045654,000860: 12,2250 00037 T
045655,000861: 12,2251 01551 STORE TC
045656,000862: 12,2252 46034 BRNCHCTR RTB BHIZ
045657,000863: 12,2253 24644 CHECKCTR
045658,000864: 12,2254 24327 KEPCONVG
045659,000865: 12,2255 77650 GOTO
045660,000866: 12,2256 24151 KEPLOOP # ITERATE
045661,000867:
045662,000868:
045663,000869: 12,2257 45345 PDXCHNGE DLOAD DSU
045664,000870: 12,2260 00013 XMAX
045665,000871: 12,2261 00025 X
045666,000872: 12,2262 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
045667,000873: 12,2263 10710 DP9/10
045668,000874: 12,2264 24243 NEWDELX
045669,000875:
045670,000876:
045671,000877: 12,2265 70545 BADX DLOAD SR1 # RECIPE EXCEEDED X BOUNDS - USE XMAX/2
045672,000878: 12,2266 00013 XMAX
045673,000879: 12,2267 00025 STORE X
045674,000880: 12,2270 77650 GOTO
045675,000881: 12,2271 24130 DXCOMP
045676,000882:
045677,000883:
045678,000884: 12,2272 14015 BACKWARD STODL XMIN
045679,000885: 12,2273 22276 KEPZERO
045680,000886: 12,2274 14013 STODL XMAX
045681,000887: 12,2275 02132 XKEPNEW
045682,000888: 12,2276 00025 STORE X
045683,000889: 12,2277 51054 BZE BPL
045684,000890: 12,2300 24305 BADBKWDX
045685,000891: 12,2301 24305 BADBKWDX
045686,000892: 12,2302 51025 DSU BPL
045687,000893: 12,2303 00015 XMIN
045688,000894: 12,2304 24130 DXCOMP
045689,000895: 12,2305 70545 BADBKWDX DLOAD SR1
045690,000896: 12,2306 00015 XMIN
045691,000897: 12,2307 00025 STORE X
045692,000898: 12,2310 77650 GOTO
045693,000899: 12,2311 24130 DXCOMP
045694,000900:
045695,000901:
045696,000902: 12,2312 77745 TIMEOVFL DLOAD
045697,000903: 12,2313 00025 X
045698,000904: 12,2314 00013 STORE XMAX
045699,000905: 12,2315 70545 CMNTOVFL DLOAD SR1
045700,000906: 12,2316 02643 DELX
045701,000907: 12,2317 02643 STORE DELX
045702,000908: 12,2320 77621 BDSU
045703,000909: 12,2321 00025 X
045704,000910: 12,2322 14025 STODL X
045705,000911: 12,2323 01551 TC
045706,000912: 12,2324 00037 STORE T
045707,000913: 12,2325 77650 GOTO
045708,000914: 12,2326 24151 KEPLOOP
045709,000915: 12,2327 44545 KEPCONVG DLOAD SR4R
045710,000916: 12,2330 00041 R1
045711,000917: 12,2331 74225 DSU VXSC
045712,000918: 12,2332 00035 XSQC(XI)
045713,000919: 12,2333 02647 URRECT
045714,000920: 12,2334 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
045715,000921: 12,2335 00025 X
045716,000922: 12,2336 60316 DSQ NORM
045717,000923: 12,2337 00047 X1
045718,000924: 12,2340 57275 DMPR DMPR
045719,000925: 12,2341 00023 1/ROOTMU
045720,000926: 12,2342 00025 X
045721,000927: 12,2343 53605 DMP SRR*
045722,000928: 12,2344 00033 S(XI)
045723,000929: 12,2345 21572 0 -7,1
045724,000930: 12,2346 77621 BDSU
045725,000931: 12,2347 00037 T
045726,000932: 12,2350 74352 SL1 VXSC
045727,000933: 12,2351 01511 VRECT
045728,000934: 12,2352 53372 VSL1 VAD # PL AT 0
045729,000935: 12,2353 77712 VSL4
045730,000936: 12,2354 01535 STORE RCV # RCV (+29 OR +27)
045731,000937:
045732,000938:
045733,000939: 12,2355 60246 ABVAL NORM
045734,000940: 12,2356 00050 X2
045735,000941: 12,2357 14043 STODL RCNORM
045736,000942: 12,2360 00031 XI
045737,000943: 12,2361 45275 DMPR DSU
045738,000944: 12,2362 00033 S(XI)
045739,000945: 12,2363 10672 D1/128
045740,000946: 12,2364 76405 DMP SL1R
045741,000947: 12,2365 00021 ROOTMU
045742,000948: 12,2366 53605 DMP SLR*
045743,000949: 12,2367 00025 X
045744,000950: 12,2370 56601 0 -3,2
045745,000951: 12,2371 74271 DDV VXSC
045746,000952: 12,2372 00043 RCNORM
045747,000953: 12,2373 02647 URRECT
045748,000954: 12,2374 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
045749,000955: 12,2375 00035 XSQC(XI) # OR +13) PL AT 6
045750,000956: 12,2376 56257 SLR* DDV
045751,000957: 12,2377 56602 0 -4,2
045752,000958: 12,2400 00043 RCNORM
045753,000959: 12,2401 74221 BDSU VXSC
045754,000960: 12,2402 10706 D1/256
045755,000961: 12,2403 01511 VRECT
045756,000962: 12,2404 42455 VAD VSL8
045757,000963: 12,2405 77626 STADR # PL AT 0
045758,000964: 12,2406 62234 STODL VCV # VCV (+7 OR +5)
045759,000965: 12,2407 00037 T
045760,000966: 12,2410 77615 DAD
045761,000967: 12,2411 02203 TMODULO
045762,000968: 12,2412 15551 STODL TC
045763,000969: 12,2413 00025 X
045764,000970: 12,2414 77615 DAD
045765,000971: 12,2415 02201 XMODULO
045766,000972: 12,2416 01553 STORE XPREV
045767,000973: 12,2417 77650 GOTO
045768,000974: 12,2420 02114 KEPRTN
045769,000975:
045770,000976: 12,2421 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
045771,000977: 12,2422 07176 TC POLY
045772,000978: 12,2423 00010 DEC 8 B-14
045773,000979: 12,2424 02525 12526 2DEC .083333334
045774,000980:
045775,000981: 12,2426 67356 75666 2DEC -.266666684
045776,000982:
045777,000983: 12,2430 15001 23771 2DEC .406349155
045778,000984:
045779,000985: 12,2432 64342 43674 2DEC -.361198675
045780,000986:
045781,000987: 12,2434 06563 04645 2DEC .210153242
045782,000988:
045783,000989: 12,2436 75173 52672 2DEC -.086221951
045784,000990:
045785,000991: 12,2440 00656 14331 2DEC .026268812
045786,000992:
045787,000993: 12,2442 77633 40512 2DEC -.006163316
045788,000994:
045789,000995: 12,2444 00023 11210 2DEC .001177342
045790,000996:
045791,000997: 12,2446 77774 67506 2DEC -.000199055
045792,000998:
045793,000999: 12,2450 06014 TC INTPRET
045794,001000: 12,2451 14033 STODL S(XI)
045795,001001: 12,2452 00031 XI
045796,001002: 12,2453 77776 EXIT
045797,001003: 12,2454 07176 TC POLY
045798,001004: 12,2455 00010 DEC 8 B-14
045799,001005: 12,2456 01000 00000 2DEC .031250001
045800,001006:
045801,001007: 12,2460 72525 52506 2DEC -.166666719
045802,001008:
045803,001009: 12,2462 13301 15337 2DEC .355555413
045804,001010:
045805,001011: 12,2464 62776 54733 2DEC -.406347410
045806,001012:
045807,001013: 12,2466 11176 13267 2DEC .288962094
045808,001014:
045809,001015: 12,2470 73410 51674 2DEC -.140117894
045810,001016:
045811,001017: 12,2472 01446 33641 2DEC .049247387
045812,001018:
045813,001019: 12,2474 77451 65233 2DEC -.013081923
045814,001020:
045815,001021: 12,2476 00055 37266 2DEC .002806389
045816,001022:
045817,001023: 12,2500 77767 52336 2DEC -.000529414
045818,001024:
045819,001025: 12,2502 06014 TC INTPRET
045820,001026: 12,2503 53605 DMP SRR* # PL AT 0
045821,001027: 12,2504 00001 0D
045822,001028: 12,2505 21574 0 -5,1
045823,001029: 12,2506 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
045824,001030: 12,2507 72405 DMP SL1
045825,001031: 12,2510 00043 KEPC1
045826,001032: 12,2511 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
045827,001033: 12,2512 21531 TPMODE # PL AT 0,3
045828,001034: 12,2513 53605 DMP SRR*
045829,001035: 12,2514 00033 S(XI)
045830,001036: 12,2515 21574 0 -5,1
045831,001037: 12,2516 72405 DMP SL1
045832,001038: 12,2517 00045 KEPC2
045833,001039: 12,2520 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
045834,001040: 12,2521 21531 TPMODE
045835,001041: 12,2522 00041 R1
045836,001042: 12,2523 76261 SR TAD # PL AT 3
045837,001043: 12,2524 20607 6
045838,001044: 12,2525 41301 NORM DMP # TO PRESERVE SIGNIF.
045839,001045: 12,2526 00047 X1
045840,001046: 12,2527 00025 X
045841,001047: 12,2530 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
045842,001048: 12,2531 20576 0 -3,1
045843,001049: 12,2532 57232 SL4R DMPR
045844,001050: 12,2533 00023 1/ROOTMU
045845,001051: 12,2534 00037 STORE T
045846,001052: 12,2535 77616 RVQ
045847,001053:
045848,001054: 12,2536 71214 ITERATOR BONCLR DLOAD
045849,001055: 12,2537 00614 SLOPESW
045850,001056: 12,2540 24606 FIRSTIME
045851,001057: 12,2541 00037 DEP
045852,001058: 12,2542 60225 DSU NORM
045853,001059: 12,2543 02762 DEPREV
045854,001060: 12,2544 00047 X1
045855,001061: 12,2545 60325 PDDL NORM
045856,001062: 12,2546 00015 DELINDEP
045857,001063: 12,2547 00050 X2
045858,001064: 12,2550 41260 XSU,1 DMP
045859,001065: 12,2551 00047 X2
045860,001066: 12,2552 02760 DELDEP
045861,001067: 12,2553 56257 SLR* DDV # PL UP 2
045862,001068: 12,2554 21202 1,1
045863,001069: 12,2555 43142 SR1 BOFF
045864,001070: 12,2556 04351 ORDERSW
045865,001071: 12,2557 24562 SGNCHECK
045866,001072: 12,2560 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
045867,001073: 12,2561 02760 DELDEP # DISREGARD IT TO FIND MIN.
045868,001074:
045869,001075: 12,2562 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
045870,001076: 12,2563 24620 POSDEL
045871,001077: 12,2564 43145 DLOAD BON
045872,001078: 12,2565 02766 INDEP
045873,001079: 12,2566 04311 ORDERSW
045874,001080: 12,2567 24571 MINCHECK
045875,001081: 12,2570 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
045876,001082:
045877,001083: 12,2571 45221 MINCHECK BDSU DSU
045878,001084: 12,2572 00011 MIN
045879,001085: 12,2573 51000 BOV BPL
045880,001086: 12,2574 24600 MODNGDEL
045881,001087: 12,2575 24600 MODNGDEL
045882,001088: 12,2576 77650 GOTO
045883,001089: 12,2577 24632 DELOK
045884,001090:
045885,001091:
045886,001092: 12,2600 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
045887,001093: 12,2601 00011 MIN
045888,001094: 12,2602 02766 INDEP
045889,001095: 12,2603 52005 DMP GOTO
045890,001096: 12,2604 10710 DP9/10
045891,001097: 12,2605 24634 NEWDEL
045892,001098:
045893,001099:
045894,001100: 12,2606 41345 FIRSTIME DLOAD DMP
045895,001101: 12,2607 00011 MIN
045896,001102: 12,2610 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
045897,001103: 12,2611 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
045898,001104: 12,2612 00017 MAX
045899,001105: 12,2613 00051 TWEEKIT
045900,001106: 12,2614 77625 DSU
045901,001107: 12,2615 52165 SIGN GOTO
045902,001108: 12,2616 02760 DELDEP
045903,001109: 12,2617 24562 SGNCHECK
045904,001110:
045905,001111:
045906,001112: 12,2620 43145 POSDEL DLOAD BON
045907,001113: 12,2621 02766 INDEP
045908,001114: 12,2622 04311 ORDERSW
045909,001115: 12,2623 24625 MAXCHECK
045910,001116: 12,2624 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
045911,001117:
045912,001118: 12,2625 45221 MAXCHECK BDSU DSU
045913,001119: 12,2626 00017 MAX
045914,001120: 12,2627 50000 BOV BMN
045915,001121: 12,2630 24636 MODPSDEL
045916,001122: 12,2631 24636 MODPSDEL
045917,001123: 12,2632 77745 DELOK DLOAD
045918,001124: 12,2633 00001 0D
045919,001125: 12,2634 00015 NEWDEL STORE DELINDEP
045920,001126: 12,2635 77616 RVQ
045921,001127:
045922,001128:
045923,001129: 12,2636 45345 MODPSDEL DLOAD DSU
045924,001130: 12,2637 00017 MAX
045925,001131: 12,2640 02766 INDEP
045926,001132: 12,2641 52005 DMP GOTO
045927,001133: 12,2642 10710 DP9/10
045928,001134: 12,2643 24634 NEWDEL
045929,001135:
045930,001136:
045931,001137: 12,2644 45026 CHECKCTR CS ONE
045932,001138: 12,2645 50120 INDEX FIXLOC
045933,001139: 12,2646 60026 AD ITERCTR
045934,001140: 12,2647 50120 INDEX FIXLOC
045935,001141: 12,2650 54026 TS ITERCTR
045936,001142: 12,2651 54154 TS MPAC
045937,001143: 12,2652 06035 TC DANZIG
045938,001144:
045939,001145: 12,2653 44545 NEWSTATE DLOAD SR4R
045940,001146: 12,2654 00041 R1
045941,001147: 12,2655 74225 DSU VXSC
045942,001148: 12,2656 00035 XSQC(XI)
045943,001149: 12,2657 02722 UR1
045944,001150: 12,2660 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
045945,001151: 12,2661 00025 X
045946,001152: 12,2662 60316 DSQ NORM
045947,001153: 12,2663 00047 X1
045948,001154: 12,2664 57275 DMPR DMPR
045949,001155: 12,2665 00023 1/ROOTMU
045950,001156: 12,2666 00025 X
045951,001157: 12,2667 53605 DMP SRR*
045952,001158: 12,2670 00033 S(XI)
045953,001159: 12,2671 21572 0 -7,1
045954,001160: 12,2672 77621 BDSU
045955,001161: 12,2673 00037 T
045956,001162: 12,2674 74352 SL1 VXSC
045957,001163: 12,2675 02744 VVEC
045958,001164: 12,2676 53372 VSL1 VAD # PL AT 0
045959,001165: 12,2677 41512 VSL4 PUSH
045960,001166: 12,2700 77646 ABVAL
045961,001167: 12,2701 77701 LAMENTER NORM
045962,001168: 12,2702 00047 X1
045963,001169: 12,2703 16720 STODL R2
045964,001170: 12,2704 00031 XI
045965,001171: 12,2705 45205 DMP DSU
045966,001172: 12,2706 00033 S(XI)
045967,001173: 12,2707 10672 D1/128
045968,001174: 12,2710 76405 DMP SL1R
045969,001175: 12,2711 00021 ROOTMU
045970,001176: 12,2712 53605 DMP SLR*
045971,001177: 12,2713 00025 X
045972,001178: 12,2714 21176 0 -3,1
045973,001179: 12,2715 74271 DDV VXSC
045974,001180: 12,2716 02720 R2
045975,001181: 12,2717 02722 UR1
045976,001182: 12,2720 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
045977,001183: 12,2721 00035 XSQC(XI)
045978,001184: 12,2722 56257 SLR* DDV
045979,001185: 12,2723 21175 0 -4,1
045980,001186: 12,2724 02720 R2
045981,001187: 12,2725 77621 BDSU
045982,001188: 12,2726 10706 D1/256
045983,001189: 12,2727 53361 VXSC VAD # PL AT 6
045984,001190: 12,2730 02744 VVEC
045985,001191: 12,2731 43412 VSL8 RVQ
045986,001192:
045987,001193:
045988,001194: 04,2000 SETLOC CONICS1
045989,001195: 04,2000 BANK
045990,001196:
045991,001197: 04,2666 COUNT* $$/CONIC
045992,001198: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
045993,001199: 04,2666 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
045994,001200: 04,2667 04000 00000 D1/8 2DEC 1.0 B-3
045995,001201:
045996,001202: 04,2671 00200 00000 D1/128 2DEC 1.0 B-7
045997,001203:
045998,001204: 04,2673 00400 00000 D1/64 2DEC 1.0 B-6
045999,001205:
046000,001206: 04,2675 10000 00000 D1/4 2DEC 1.0 B-2
046001,001207:
046002,001208: 04,2677 02000 00000 D1/16 2DEC 1.0 B-4
046003,001209:
046004,001210: 04,2701 01000 00000 D1/32 2DEC 1.0 B-5
046005,001211:
046006,001212: 04,2703 00020 00000 D1/1024 2DEC 1.0 B-10
046007,001213:
046008,001214: 04,2705 00100 00000 D1/256 2DEC 1.0 B-8
046009,001215:
046010,001216: 04,2707 34631 23146 DP9/10 2DEC .9
046011,001217:
046012,001218: 04,2711 11,2275 KEPZERO EQUALS LO6ZEROS
046013,001219: 04,2711 77467 77777 -50SC 2DEC -50.0 B-12
046014,001220:
046015,001221: 04,2713 03110 17665 2PISC 2DEC 6.28318530 B-6
046016,001222:
046017,001223: 04,2715 04,2700 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
046018,001224: 04,2715 04,2704 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
046019,001225: 04,2715 00000 00001 ONEBIT 2DEC 1.0 B-28
046020,001226:
046021,001227: 04,2717 37767 37737 COGUPLIM 2DEC .999511597
046022,001228:
046023,001229: 04,2721 40010 40040 COGLOLIM 2DEC -.999511597
046024,001230:
046025,001231:
046026,001232: 12,2000 SETLOC CONICS
046027,001233: 12,2000 BANK
046028,001234:
046029,001235: 12,2732 COUNT* $$/CONIC
046030,001236: 12,2732 40220 TIMETHET STQ SETPD # PL AT 0
046031,001237: 12,2733 02710 RTNTT
046032,001238: 12,2734 00001 0
046033,001239: 12,2735 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
046034,001240: 12,2736 02655 RVEC
046035,001241: 12,2737 02744 VVEC
046036,001242: 12,2740 77624 CALL
046037,001243: 12,2741 24765 PARAM
046038,001244: 12,2742 45000 BOV CALL # PL AT 0
046039,001245: 12,2743 24762 COGAOVFL
046040,001246: 12,2744 25031 GETX
046041,001247: 12,2745 43145 COMMNOUT DLOAD BON
046042,001248: 12,2746 00031 XI
046043,001249: 12,2747 04310 INFINFLG
046044,001250: 12,2750 02710 RTNTT
046045,001251: 12,2751 45014 CLEAR CALL
046046,001252: 12,2752 04273 COGAFLAG
046047,001253: 12,2753 24421 DELTIME
046048,001254: 12,2754 45014 BON CALL
046049,001255: 12,2755 03706 RVSW
046050,001256: 12,2756 02710 RTNTT
046051,001257: 12,2757 24653 NEWSTATE
046052,001258: 12,2760 77650 GOTO
046053,001259: 12,2761 02710 RTNTT
046054,001260:
046055,001261:
046056,001262: 12,2762 77614 COGAOVFL SETGO
046057,001263: 12,2763 04033 COGAFLAG
046058,001264: 12,2764 02710 RTNTT
046059,001265:
046060,001266: 12,2765 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
046061,001267: 12,2766 02753 RTNPRM
046062,001268: 12,2767 03665 NORMSW
046063,001269: 12,2770 77614 CLEAR
046064,001270: 12,2771 04273 COGAFLAG
046065,001271: 12,2772 45131 SSP CALL
046066,001272: 12,2773 02673 GEOMSGN
046067,001273: 12,2774 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
046068,001274: 12,2775 10723 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
046069,001275: 12,2776 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
046070,001276: 12,2777 56261 SR DDV
046071,001277: 12,3000 20606 5
046072,001278:
046073,001279: 12,3001 00045 36D
046074,001280: 12,3002 32766 STOVL* COGA
046075,001281: 12,3003 10761 MUTABLE,1
046076,001282: 12,3004 14017 STODL 1/MU
046077,001283: 12,3005 02720 MAGVEC2
046078,001284: 12,3006 60316 DSQ NORM
046079,001285: 12,3007 00047 X1
046080,001286: 12,3010 41275 DMPR DMP
046081,001287: 12,3011 00017 1/MU
046082,001288: 12,3012 00041 R1
046083,001289: 12,3013 77657 SRR*
046084,001290: 12,3014 21576 0 -3,1
046085,001291: 12,3015 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
046086,001292: 12,3016 10702 D1/32
046087,001293: 12,3017 16742 STODL R1A # R1A (+6) PL AT 0
046088,001294:
046089,001295: 12,3020 60205 DMP NORM
046090,001296: 12,3021 00045 36D
046091,001297: 12,3022 00047 X1
046092,001298: 12,3023 53605 DMP SR*
046093,001299: 12,3024 00045 36D
046094,001300: 12,3025 20575 0 -4,1
046095,001301: 12,3026 02740 STORE P # P (+4)
046096,001302: 12,3027 77650 GOTO
046097,001303: 12,3030 02753 RTNPRM
046098,001304:
046099,001305:
046100,001306: 04,2723 BANK 4
046101,001307: 04,2000 SETLOC CONICS1
046102,001308: 04,2000 BANK
046103,001309: 04,2723 COUNT* $$/CONIC
046104,001310: 04,2723 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
046105,001311: 04,2724 16712 STODL U2 # U2 (+1)
046106,001312: 04,2725 00045 36D
046107,001313: 04,2726 26720 STOVL MAGVEC2 # PL AT 0
046108,001314: 04,2727 77656 UNIT
046109,001315: 04,2730 02722 STORE UR1 # UR1 (+1)
046110,001316: 04,2731 72441 DOT SL1
046111,001317: 04,2732 02712 U2
046112,001318: 04,2733 77725 PDDL # OD=CSTH (+1) PL AT 2
046113,001319: 04,2734 00045 36D
046114,001320: 04,2735 24041 STOVL R1 # R1 (+29 OR +27)
046115,001321: 04,2736 02722 UR1
046116,001322: 04,2737 76435 VXV VSL1
046117,001323: 04,2740 02712 U2
046118,001324: 04,2741 75214 BON SIGN
046119,001325: 04,2742 03705 NORMSW
046120,001326: 04,2743 10755 HAVENORM
046121,001327: 04,2744 02673 GEOMSGN
046122,001328: 04,2745 40056 UNIT BOV
046123,001329: 04,2746 10753 COLINEAR
046124,001330: 04,2747 16674 UNITNORM STODL UN # UN (+1)
046125,001331: 04,2750 00045 36D
046126,001332: 04,2751 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
046127,001333: 04,2752 02673 GEOMSGN
046128,001334:
046129,001335:
046130,001336: 04,2753 52162 COLINEAR VSR1 GOTO
046131,001337: 04,2754 10747 UNITNORM
046132,001338:
046133,001339:
046134,001340: 04,2755 75246 HAVENORM ABVAL SIGN
046135,001341: 04,2756 02673 GEOMSGN
046136,001342: 04,2757 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
046137,001343:
046138,001344:
046139,001345: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
046140,001346:
046141,001347: 04,2760 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
046142,001348: 04,2762 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
046143,001349: 04,2764 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
046144,001350: 04,2766 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
046145,001351:
046146,001352:
046147,001353: 04,2770 16471 01352 2DEC* 4.902778 E8 B-30* # MUM
046148,001354: 04,2772 21412 20500 2DEC* .203966 E-8 B+28* # 1/MUM
046149,001355:
046150,001356: 04,2774 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
046151,001357: 04,2776 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
046152,001358:
046153,001359:
046154,001360: 12,3031 BANK 12
046155,001361: 12,2000 SETLOC CONICS
046156,001362: 12,2000 BANK
046157,001363:
046158,001364: 12,3031 COUNT* $$/CONIC
046159,001365: 12,3031 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
046160,001366: 12,3032 00003 3
046161,001367: 12,3033 00052 S2
046162,001368: 12,3034 00001 1
046163,001369: 12,3035 77614 CLEAR
046164,001370: 12,3036 04276 360SW
046165,001371: 12,3037 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
046166,001372: 12,3040 02732 CSTH
046167,001373: 12,3041 44342 SR1 BDSU
046168,001374: 12,3042 10676 D1/4
046169,001375: 12,3043 54325 PDDL SRR # PL AT 4D
046170,001376: 12,3044 02730 SNTH
046171,001377: 12,3045 21607 6
046172,001378: 12,3046 77671 DDV # PL AT 2
046173,001379: 12,3047 77600 BOV
046174,001380: 12,3050 25164 360CHECK
046175,001381: 12,3051 41225 DSU DMP
046176,001382: 12,3052 02766 COGA # PL AT 0
046177,001383: 12,3053 40132 SL2R BOV
046178,001384: 12,3054 25164 360CHECK
046179,001385: 12,3055 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
046180,001386: 12,3056 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
046181,001387: 12,3057 00155 MPAC
046182,001388: 12,3060 02742 R1A
046183,001389: 12,3061 76202 SR4 TAD # PL AT 2
046184,001390: 12,3062 75440 BMN SQRT
046185,001391: 12,3063 25247 INFINITY
046186,001392: 12,3064 43306 ROUND DAD # PL AT 0D
046187,001393: 12,3065 61000 BOV TIX,2
046188,001394: 12,3066 25162 RESETX2
046189,001395: 12,3067 25055 WLOOP
046190,001396:
046191,001397:
046192,001398: 12,3070 40065 BDDV BOV
046193,001399: 12,3071 10672 D1/128
046194,001400: 12,3072 25247 INFINITY
046195,001401: 12,3073 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
046196,001402: 12,3074 25247 INFINITY
046197,001403: 12,3075 77716 DSQ
046198,001404: 12,3076 41301 NORM DMP
046199,001405: 12,3077 00047 X1
046200,001406: 12,3100 02742 R1A
046201,001407: 12,3101 77457 SRR* EXIT
046202,001408: 12,3102 21567 0 -10D,1
046203,001409: 12,3103 07176 TC POLY
046204,001410: 12,3104 00005 DEC 5 B-14
046205,001411: 12,3105 20000 00000 2DEC .5
046206,001412:
046207,001413: 12,3107 72525 52471 2DEC -.166666770
046208,001414:
046209,001415: 12,3111 03146 15003 2DEC .100000392
046210,001416:
046211,001417: 12,3113 75556 45210 2DEC -.071401086
046212,001418:
046213,001419: 12,3115 01615 13553 2DEC .055503292
046214,001420:
046215,001421: 12,3117 76371 63777 2DEC -.047264098
046216,001422:
046217,001423: 12,3121 01232 27367 2DEC .040694204
046218,001424:
046219,001425: 12,3123 06014 TC INTPRET
046220,001426: 12,3124 76405 DMP SL1R # PL AT 0D
046221,001427: 12,3125 43006 PUSH BON
046222,001428: 12,3126 04316 360SW
046223,001429: 12,3127 25234 TRUE360X
046224,001430: 12,3130 60316 XCOMMON DSQ NORM
046225,001431: 12,3131 00047 X1
046226,001432: 12,3132 53605 DMP SRR*
046227,001433: 12,3133 02742 R1A
046228,001434: 12,3134 21565 0 -12D,1
046229,001435: 12,3135 14031 STODL XI # XI (+6)
046230,001436:
046231,001437:
046232,001438: 12,3136 00041 R1
046233,001439: 12,3137 75542 SR1 SQRT
046234,001440: 12,3140 41306 ROUND DMP
046235,001441: 12,3141 77632 SL4R # PL AT 0
046236,001442: 12,3142 00025 STORE X # X (+17 OR +16)
046237,001443:
046238,001444:
046239,001445: 12,3143 60316 DSQ NORM
046240,001446: 12,3144 00047 X1
046241,001447: 12,3145 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
046242,001448: 12,3146 02740 P
046243,001449: 12,3147 00041 R1
046244,001450: 12,3150 75452 SL3 SQRT
046245,001451: 12,3151 56405 DMP SL3R
046246,001452: 12,3152 02766 COGA
046247,001453: 12,3153 14043 STODL KEPC1
046248,001454: 12,3154 02742 R1A
046249,001455: 12,3155 43021 BDSU CLEAR
046250,001456: 12,3156 10674 D1/64
046251,001457: 12,3157 04270 INFINFLG
046252,001458: 12,3160 00045 STORE KEPC2
046253,001459: 12,3161 77616 RVQ
046254,001460:
046255,001461: 12,3162 77774 RESETX2 AXT,2
046256,001462: 12,3163 00003 3
046257,001463:
046258,001464:
046259,001465: 12,3164 51001 360CHECK SETPD BPL
046260,001466: 12,3165 00001 0D
046261,001467: 12,3166 25171 INVRSEQN
046262,001468: 12,3167 77614 SET
046263,001469: 12,3170 04076 360SW
046264,001470:
046265,001471:
046266,001472: 12,3171 75545 INVRSEQN DLOAD SQRT
046267,001473: 12,3172 02740 P
046268,001474: 12,3173 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
046269,001475: 12,3174 02730 SNTH
046270,001476: 12,3175 02766 COGA
046271,001477: 12,3176 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
046272,001478: 12,3177 02732 CSTH
046273,001479: 12,3200 43202 SR4 DAD
046274,001480: 12,3201 10702 D1/32
046275,001481: 12,3202 41225 DSU DMP # PL AT 2,0
046276,001482: 12,3203 55301 NORM BDDV
046277,001483: 12,3204 00047 X1
046278,001484: 12,3205 02730 SNTH
046279,001485: 12,3206 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
046280,001486: 12,3207 21174 0 -5,1
046281,001487: 12,3210 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
046282,001488: 12,3211 14043 STODL 34D
046283,001489: 12,3212 10700 D1/16
046284,001490: 12,3213 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
046285,001491: 12,3214 65234 RTB PDDL # PL AT 7
046286,001492: 12,3215 21531 TPMODE
046287,001493: 12,3216 02742 R1A
046288,001494: 12,3217 40405 DMP SR4
046289,001495: 12,3220 00043 34D
046290,001496: 12,3221 77771 TAD # PL AT 4
046291,001497: 12,3222 75440 BMN SQRT
046292,001498: 12,3223 25247 INFINITY
046293,001499: 12,3224 77615 DAD # PL AT 2
046294,001500: 12,3225 60304 TIX,2 NORM
046295,001501: 12,3226 25213 1/WLOOP
046296,001502: 12,3227 00047 X1
046297,001503: 12,3230 77665 BDDV
046298,001504: 12,3231 52057 SLR* GOTO # PL AT 0
046299,001505: 12,3232 21172 0 -7,1
046300,001506: 12,3233 25073 POLYCOEF
046301,001507:
046302,001508:
046303,001509: 12,3234 50145 TRUE360X DLOAD BMN
046304,001510: 12,3235 02742 R1A
046305,001511: 12,3236 25247 INFINITY
046306,001512: 12,3237 60366 SQRT NORM
046307,001513: 12,3240 00047 X1
046308,001514: 12,3241 53665 BDDV SL*
046309,001515: 12,3242 10714 2PISC
046310,001516: 12,3243 20176 0 -3,1
046311,001517: 12,3244 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
046312,001518: 12,3245 77650 GOTO
046313,001519: 12,3246 25130 XCOMMON
046314,001520: 12,3247 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
046315,001521: 12,3250 00001 0 # INFINITY IS REQUIRED
046316,001522: 12,3251 25252 OVFLCLR
046317,001523: 12,3252 43414 OVFLCLR SET RVQ
046318,001524: 12,3253 04070 INFINFLG
046319,001525:
046320,001526: 12,3254 40220 LAMBERT STQ SETPD
046321,001527: 12,3255 02710 RTNLAMB
046322,001528: 12,3256 00001 0D
046323,001529: 12,3257 76614 CLEAR VLOAD*
046324,001530: 12,3260 02674 SOLNSW
046325,001531: 12,3261 10761 MUTABLE,1
046326,001532: 12,3262 14017 STODL 1/MU
046327,001533: 12,3263 02671 TDESIRED
046328,001534: 12,3264 77675 DMPR
046329,001535: 12,3265 10701 BEE19
046330,001536: 12,3266 02764 STORE EPSILONL
046331,001537: 12,3267 77214 SET VLOAD
046332,001538: 12,3270 00474 SLOPESW
046333,001539: 12,3271 02655 R1VEC
046334,001540: 12,3272 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
046335,001541: 12,3273 02663 R2VEC # MPAC=R2VEC (+29 OR +27)
046336,001542: 12,3274 10723 GEOM
046337,001543: 12,3275 16730 STODL SNTH # 0D=CSTH (+1) PL AT 2
046338,001544: 12,3276 02720 MAGVEC2
046339,001545: 12,3277 65301 NORM PDDL # PL AT 4
046340,001546: 12,3300 00047 X1
046341,001547: 12,3301 00041 R1
046342,001548: 12,3302 56342 SR1 DDV # PL AT 2
046343,001549: 12,3303 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
046344,001550: 12,3304 20173 0 -6,1
046345,001551: 12,3305 77626 STADR
046346,001552: 12,3306 75045 STORE CSTH # CSTH (+1)
046347,001553: 12,3307 44342 SR1 BDSU
046348,001554: 12,3310 10676 D1/4
046349,001555: 12,3311 02734 STORE 1-CSTH # 1-CSTH (+2)
046350,001556:
046351,001557: 12,3312 53106 ROUND BZE
046352,001558: 12,3313 25523 360LAMB
046353,001559: 12,3314 65301 NORM PDDL # PL AT 4
046354,001560: 12,3315 00047 X1
046355,001561: 12,3316 00001 0D
046356,001562: 12,3317 56342 SR1 DDV # PL AT 2
046357,001563: 12,3320 75457 SL* SQRT
046358,001564: 12,3321 20176 0 -3,1
046359,001565: 12,3322 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
046360,001566: 12,3323 02730 SNTH
046361,001567: 12,3324 20607 6
046362,001568: 12,3325 43271 DDV DAD # PL AT 2
046363,001569: 12,3326 02734 1-CSTH
046364,001570: 12,3327 77626 STADR
046365,001571: 12,3330 77760 STORE COGAMAX
046366,001572: 12,3331 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
046367,001573: 12,3332 25337 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
046368,001574: 12,3333 25342 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
046369,001575: 12,3334 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
046370,001576: 12,3335 10720 COGUPLIM
046371,001577: 12,3336 25342 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
046372,001578: 12,3337 77745 UPLIM DLOAD
046373,001579: 12,3340 10720 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
046374,001580: 12,3341 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
046375,001581: 12,3342 77745 MAXCOGA DLOAD
046376,001582: 12,3343 02732 CSTH
046377,001583: 12,3344 45261 SR DSU # PL AT 0
046378,001584: 12,3345 20607 6
046379,001585: 12,3346 77626 STADR
046380,001586: 12,3347 61041 STODL CSTH-RHO
046381,001587: 12,3350 02673 GEOMSGN
046382,001588: 12,3351 71240 BMN DLOAD
046383,001589: 12,3352 25543 LOLIM
046384,001590: 12,3353 02736 CSTH-RHO
046385,001591: 12,3354 56352 SL1 DDV
046386,001592: 12,3355 02730 SNTH
046387,001593: 12,3356 77600 BOV
046388,001594: 12,3357 25543 LOLIM
046389,001595: 12,3360 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
046390,001596: 12,3361 66214 BON SSP
046391,001597: 12,3362 00715 GUESSW
046392,001598: 12,3363 25527 NOGUESS
046393,001599: 12,3364 00051 TWEEKIT
046394,001600: 12,3365 00001 00001
046395,001601: 12,3366 77745 DLOAD
046396,001602: 12,3367 02766 COGA
046397,001603:
046398,001604:
046399,001605: 12,3370 77605 LAMBLOOP DMP
046400,001606: 12,3371 02730 SNTH
046401,001607: 12,3372 45342 SR1 DSU
046402,001608: 12,3373 02736 CSTH-RHO
046403,001609: 12,3374 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
046404,001610: 12,3375 00047 X1
046405,001611: 12,3376 02734 1-CSTH
046406,001612: 12,3377 56257 SL* DDV # 1-CSTH (+2) PL AT 0
046407,001613: 12,3400 20170 0 -9D,1
046408,001614: 12,3401 53040 BMN BZE
046409,001615: 12,3402 25457 NEGP
046410,001616: 12,3403 25457 NEGP
046411,001617: 12,3404 16740 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
046412,001618: 12,3405 02766 COGA
046413,001619: 12,3406 43316 DSQ DAD
046414,001620: 12,3407 10704 D1/1024
046415,001621: 12,3410 41301 NORM DMP
046416,001622: 12,3411 00047 X1
046417,001623: 12,3412 02740 P
046418,001624: 12,3413 44257 SR* BDSU
046419,001625: 12,3414 20571 0 -8D,1
046420,001626: 12,3415 10702 D1/32
046421,001627: 12,3416 16742 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
046422,001628: 12,3417 02740 P
046423,001629: 12,3420 45000 BOV CALL
046424,001630: 12,3421 25462 HIENERGY
046425,001631: 12,3422 25031 GETX
046426,001632: 12,3423 77745 DLOAD
046427,001633: 12,3424 00037 T
046428,001634: 12,3425 16762 STODL TPREV
046429,001635: 12,3426 00031 XI
046430,001636: 12,3427 45014 BON CALL
046431,001637: 12,3430 04310 INFINFLG
046432,001638: 12,3431 25457 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
046433,001639: 12,3432 24421 DELTIME
046434,001640: 12,3433 44200 BOV BDSU
046435,001641: 12,3434 25477 BIGTIME
046436,001642: 12,3435 02671 TDESIRED
046437,001643: 12,3436 02760 STORE TERRLAMB
046438,001644: 12,3437 44246 ABS BDSU
046439,001645: 12,3440 02764 EPSILONL
046440,001646: 12,3441 47044 BPL RTB
046441,001647: 12,3442 25546 INITV
046442,001648: 12,3443 24644 CHECKCTR
046443,001649: 12,3444 45030 BHIZ CALL
046444,001650: 12,3445 25510 SUFFCHEK
046445,001651: 12,3446 24536 ITERATOR
046446,001652: 12,3447 53145 DLOAD BZE
046447,001653: 12,3450 00155 MPAC
046448,001654: 12,3451 25510 SUFFCHEK
046449,001655: 12,3452 77615 DAD
046450,001656: 12,3453 02766 COGA
046451,001657: 12,3454 02766 STORE COGA
046452,001658: 12,3455 77650 GOTO
046453,001659: 12,3456 25370 LAMBLOOP
046454,001660:
046455,001661:
046456,001662: 12,3457 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
046457,001663: 12,3460 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
046458,001664: 12,3461 25502 LOENERGY
046459,001665:
046460,001666:
046461,001667: 12,3462 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
046462,001668: 12,3463 00001 0
046463,001669: 12,3464 02766 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
046464,001670: 12,3465 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
046465,001671: 12,3466 70545 COMMONLM DLOAD SR1
046466,001672: 12,3467 00015 DCOGA
046467,001673: 12,3470 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
046468,001674: 12,3471 44254 BZE BDSU
046469,001675: 12,3472 25510 SUFFCHEK
046470,001676: 12,3473 02766 COGA
046471,001677: 12,3474 02766 STORE COGA
046472,001678: 12,3475 77650 GOTO # RESTART THIS LOOP
046473,001679: 12,3476 25370 LAMBLOOP
046474,001680:
046475,001681:
046476,001682: 12,3477 77745 BIGTIME DLOAD
046477,001683: 12,3500 02762 TPREV
046478,001684: 12,3501 00037 STORE T
046479,001685:
046480,001686:
046481,001687: 12,3502 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
046482,001688: 12,3503 00001 0
046483,001689: 12,3504 02766 COGA # IN OVERFLOW OF TIME.
046484,001690: 12,3505 00017 STORE COGAMAX # THIS IS THE NEW BOUND.
046485,001691: 12,3506 77650 GOTO
046486,001692: 12,3507 25466 COMMONLM
046487,001693:
046488,001694:
046489,001695: 12,3510 51545 SUFFCHEK DLOAD ABS
046490,001696: 12,3511 02760 TERRLAMB
046491,001697: 12,3512 41325 PDDL DMP # PL AT 2D
046492,001698: 12,3513 02671 TDESIRED
046493,001699: 12,3514 10667 BEE17
046494,001700: 12,3515 45215 DAD DSU # PL AT 0D
046495,001701: 12,3516 10716 ONEBIT
046496,001702: 12,3517 43044 BPL SETGO
046497,001703: 12,3520 25546 INITV
046498,001704: 12,3521 02434 SOLNSW
046499,001705: 12,3522 25546 INITV
046500,001706: 12,3523 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
046501,001707: 12,3524 00001 0
046502,001708: 12,3525 02434 SOLNSW
046503,001709: 12,3526 02710 RTNLAMB
046504,001710:
046505,001711:
046506,001712: 12,3527 71331 NOGUESS SSP DLOAD
046507,001713: 12,3530 00051 TWEEKIT
046508,001714: 12,3531 10000 20000
046509,001715: 12,3532 00011 COGAMIN
046510,001716: 12,3533 65342 SR1 PDDL # PL AT 2
046511,001717: 12,3534 00017 COGAMAX
046512,001718: 12,3535 43342 SR1 DAD
046513,001719: 12,3536 77626 STADR # PL AT 0
046514,001720: 12,3537 75011 STORE COGA
046515,001721: 12,3540 00015 STORE DCOGA
046516,001722: 12,3541 77650 GOTO
046517,001723: 12,3542 25370 LAMBLOOP
046518,001724:
046519,001725: 12,3543 52145 LOLIM DLOAD GOTO
046520,001726: 12,3544 10722 COGLOLIM # COGLOLIM=-.999511597
046521,001727: 12,3545 25360 MINCOGA
046522,001728:
046523,001729:
046524,001730: 12,3546 60345 INITV DLOAD NORM
046525,001731: 12,3547 00041 R1
046526,001732: 12,3550 00047 X1
046527,001733: 12,3551 70525 PDDL SR1 # PL AT 2
046528,001734: 12,3552 02740 P
046529,001735: 12,3553 77671 DDV # PL AT 0
046530,001736: 12,3554 75457 SL* SQRT
046531,001737: 12,3555 20175 0 -4,1
046532,001738: 12,3556 72405 DMP SL1
046533,001739: 12,3557 00021 ROOTMU
046534,001740: 12,3560 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
046535,001741: 12,3561 02766 COGA
046536,001742: 12,3562 74261 SL VXSC
046537,001743: 12,3563 20206 5
046538,001744: 12,3564 02722 UR1
046539,001745: 12,3565 77725 PDDL # XCH WITH 0D PL AT 0,6
046540,001746: 12,3566 76561 VXSC VSL1
046541,001747: 12,3567 02674 UN
046542,001748: 12,3570 53235 VXV VAD # PL AT 0
046543,001749: 12,3571 02722 UR1
046544,001750: 12,3572 77772 VSL1
046545,001751: 12,3573 02744 STORE VVEC
046546,001752: 12,3574 53135 SLOAD BZE
046547,001753: 12,3575 02702 VTARGTAG
046548,001754: 12,3576 25601 TARGETV
046549,001755: 12,3577 77650 GOTO
046550,001756: 12,3600 02710 RTNLAMB
046551,001757:
046552,001758:
046553,001759: 12,3601 45145 TARGETV DLOAD CALL
046554,001760: 12,3602 02720 MAGVEC2
046555,001761: 12,3603 24701 LAMENTER
046556,001762: 12,3604 02703 STORE VTARGET
046557,001763: 12,3605 77650 GOTO
046558,001764: 12,3606 02710 RTNLAMB
046559,001765:
046560,001766: 12,3607 40220 TIMERAD STQ SETPD # PL AT 0
046561,001767: 12,3610 02710 RTNTR
046562,001768: 12,3611 00001 0
046563,001769: 12,3612 63375 VLOAD PDVL # PL AT 6
046564,001770: 12,3613 02655 RVEC
046565,001771: 12,3614 02744 VVEC
046566,001772: 12,3615 77624 CALL
046567,001773: 12,3616 24765 PARAM
046568,001774: 12,3617 71200 BOV DLOAD # PL AT 0
046569,001775: 12,3620 24762 COGAOVFL
046570,001776: 12,3621 10702 D1/32
046571,001777: 12,3622 41225 DSU DMP
046572,001778: 12,3623 02742 R1A
046573,001779: 12,3624 02740 P
046574,001780: 12,3625 41366 SQRT DMP
046575,001781: 12,3626 02766 COGA
046576,001782: 12,3627 74212 SL4 VXSC
046577,001783: 12,3630 02712 U2
046578,001784: 12,3631 45325 PDDL DSU # PL AT 6
046579,001785: 12,3632 10674 D1/64
046580,001786: 12,3633 02742 R1A
046581,001787: 12,3634 52361 VXSC VSU # PL AT 0
046582,001788: 12,3635 02722 UR1
046583,001789: 12,3636 53512 VSL4 UNIT
046584,001790: 12,3637 77600 BOV
046585,001791: 12,3640 25523 360LAMB # NO SOLUTION SINCE CONIC IS A CIRCLE
046586,001792: 12,3641 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
046587,001793: 12,3642 02756 RDESIRED # 36D=ECC (+3)
046588,001794: 12,3643 00047 X1
046589,001795: 12,3644 41325 PDDL DMP # PL AT 8
046590,001796: 12,3645 00041 R1
046591,001797: 12,3646 02740 P
046592,001798: 12,3647 56257 SL* DDV # PL AT 6
046593,001799: 12,3650 20201 0,1
046594,001800: 12,3651 56225 DSU DDV
046595,001801: 12,3652 10700 D1/16
046596,001802: 12,3653 00045 36D # 36D=ECC (+3)
046597,001803: 12,3654 00031 STORE COSF
046598,001804: 12,3655 63400 BOV DSQ
046599,001805: 12,3656 25716 BADR2
046600,001806: 12,3657 50021 BDSU BMN
046601,001807: 12,3660 10676 D1/4
046602,001808: 12,3661 25716 BADR2
046603,001809: 12,3662 75366 SQRT SIGN
046604,001810: 12,3663 02755 SGNRDOT
046605,001811: 12,3664 77614 CLEAR
046606,001812: 12,3665 04272 APSESW
046607,001813:
046608,001814: 12,3666 76561 TERMNVEC VXSC VSL1
046609,001815: 12,3667 02674 UN
046610,001816: 12,3670 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
046611,001817: 12,3671 00001 0D
046612,001818: 12,3672 53361 VXSC VAD # PL AT 0
046613,001819: 12,3673 00031 COSF
046614,001820: 12,3674 41572 VSL1 PUSH # 0D=U2 PL AT 6
046615,001821:
046616,001822: 12,3675 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
046617,001823: 12,3676 02722 UR1
046618,001824: 12,3677 23676 DP1/4
046619,001825: 12,3700 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
046620,001826: 12,3701 25702 +1 # CLEAR OVFIND IF SET
046621,001827: 12,3702 26732 STOVL CSTH # CSTH (+1)
046622,001828: 12,3703 02722 UR1
046623,001829: 12,3704 76435 VXV VSL1
046624,001830: 12,3705 72441 DOT SL1
046625,001831: 12,3706 02674 UN
046626,001832: 12,3707 16730 STODL SNTH # SNTH (+1)
046627,001833: 12,3710 02740 P
046628,001834: 12,3711 77624 CALL
046629,001835: 12,3712 25031 GETX
046630,001836: 12,3713 77614 CLRGO
046631,001837: 12,3714 02634 SOLNSW
046632,001838: 12,3715 24745 COMMNOUT
046633,001839:
046634,001840:
046635,001841: 12,3716 75345 BADR2 DLOAD SIGN
046636,001842: 12,3717 22274 LODPHALF
046637,001843: 12,3720 00031 COSF
046638,001844: 12,3721 14031 STODL COSF
046639,001845: 12,3722 22276 KEPZERO
046640,001846: 12,3723 77614 SETGO
046641,001847: 12,3724 04032 APSESW
046642,001848: 12,3725 25666 TERMNVEC
046643,001849: 12,3726 40220 APSIDES STQ SETPD # PL AT 0
046644,001850: 12,3727 02710 RTNAPSE
046645,001851: 12,3730 00001 0D
046646,001852: 12,3731 63375 VLOAD PDVL # PL AT 6
046647,001853: 12,3732 02655 RVEC
046648,001854: 12,3733 02744 VVEC
046649,001855: 12,3734 77624 CALL
046650,001856: 12,3735 24765 PARAM
046651,001857: 12,3736 77600 BOV # PL AT 0
046652,001858: 12,3737 25740 GETECC
046653,001859: 12,3740 42405 GETECC DMP SL4
046654,001860: 12,3741 02742 R1A
046655,001861: 12,3742 75421 BDSU SQRT
046656,001862: 12,3743 10674 D1/64
046657,001863: 12,3744 02752 STORE ECC
046658,001864: 12,3745 65215 DAD PDDL # PL AT 2
046659,001865: 12,3746 10670 D1/8
046660,001866: 12,3747 00041 R1
046661,001867: 12,3750 72405 DMP SL1
046662,001868: 12,3751 02740 P
046663,001869: 12,3752 77671 DDV # PL AT 0
046664,001870: 12,3753 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
046665,001871: 12,3754 02742 R1A
046666,001872: 12,3755 00047 X1
046667,001873: 12,3756 53725 PDDL SL* # PL AT 4
046668,001874: 12,3757 00041 R1
046669,001875: 12,3760 20174 0 -5,1
046670,001876: 12,3761 45271 DDV DSU # PL AT 2,0
046671,001877: 12,3762 50000 BOV BMN
046672,001878: 12,3763 25767 INFINAPO
046673,001879: 12,3764 25767 INFINAPO
046674,001880: 12,3765 77650 GOTO
046675,001881: 12,3766 02710 RTNAPSE
046676,001882: 12,3767 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
046677,001883: 12,3770 22307 LDPOSMAX
046678,001884: 12,3771 02710 RTNAPSE # THAT PL IS AT 0.
046679,001885:
046680,001886: 12,3772 11,2306 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
046681,001887:
046682,001888: # ERASABLE ASSIGNMENTS
046683,001889:
046684,001890:
046685,001891: # KEPLER SUBROUTINE
046686,001892:
046687,001893: # INPUT -
046688,001894: # RRECT ERASE +5
046689,001895: # VRECT ERASE +5
046690,001896: # TAU. ERASE +1
046691,001897: # XKEP ERASE +1
046692,001898: # TC ERASE +1
046693,001899: # XPREV ERASE +1
046694,001900: 12,3772 1/MU EQUALS 14D
046695,001901: 12,3772 ROOTMU EQUALS 16D
046696,001902: 12,3772 1/ROOTMU EQUALS 18D
046697,001903: # OUTPUT -
046698,001904: # RCV ERASE +5
046699,001905: # VCV ERASE +5
046700,001906: # RC ERASE +1
046701,001907: # XPREV ERASE +1
046702,001908:
046703,001909: # DEBRIS -
046704,001910: 12,3772 ALPHA EQUALS 8D
046705,001911: 12,3772 XMAX EQUALS 10D
046706,001912: 12,3772 XMIN EQUALS 12D
046707,001913: 12,3772 X EQUALS 20D
046708,001914: 12,3772 XI EQUALS 24D
046709,001915: 12,3772 S(XI) EQUALS 26D
046710,001916: 12,3772 XSQC(XI) EQUALS 28D
046711,001917: 12,3772 T EQUALS 30D
046712,001918: 12,3772 R1 EQUALS 32D
046713,001919: 12,3772 KEPC1 EQUALS 34D
046714,001920: 12,3772 KEPC2 EQUALS 36D
046715,001921: # DELX ERASE +1
046716,001922: # DELT ERASE +1
046717,001923: # URRECT ERASE +5
046718,001924: # RCNORM ERASE +1
046719,001925: # XPREV EQUALS XKEP
046720,001926:
046721,001927:
046722,001928: # LAMBERT SUBROUTINE
046723,001929:
046724,001930: # INPUT-
046725,001931: # R1VEC ERASE +5
046726,001932: # R2VEC ERASE +5
046727,001933: # TDESIRED ERASE +1
046728,001934: # GEOMSGN ERASE +0
046729,001935: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
046730,001936: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
046731,001937: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
046732,001938: # UN ERASE +5 ONLY USED IF NORMSW IS 1
046733,001939: # VTARGTAG ERASE +0
046734,001940: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
046735,001941:
046736,001942: # OUTPUT -
046737,001943: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
046738,001944: # V1VEC EQUALS MPAC
046739,001945:
046740,001946: # DEBRIS -
046741,001947: # RTNLAMB ERASE +0
046742,001948: # U2 ERASE +5
046743,001949: # MAGVEC2 ERASE +1
046744,001950: # UR1 ERASE +5
046745,001951: # R1 EQUALS 31D
046746,001952: # UN ERASE +5
046747,001953: # SNTH ERASE +1
046748,001954: # CSTH ERASE +1
046749,001955: # 1-CSTH ERASE +1
046750,001956: # CSTH-RHO ERASE +1
046751,001957: 12,3772 COGAMAX EQUALS 14D # CLOBBERS 1/MU
046752,001958: 12,3772 COGAMIN EQUALS 8D
046753,001959: 12,3772 DCOGA EQUALS 12D
046754,001960: # TWEEKIT EQUALS 40D
046755,001961: # P ERASE +1
046756,001962: # COGA ERASE +1
046757,001963: # R1A ERASE +1
046758,001964: # X EQUALS 20D
046759,001965: # XSQ EQUALS 22D
046760,001966: # XI EQUALS 24D
046761,001967: # S(XI) EQUALS 26D
046762,001968: # XSQC(XI) EQUALS 28D
046763,001969: # T EQUALS 30D
046764,001970: # KEPC1 EQUALS 34D
046765,001971: # KEPC2 EQUALS 36D
046766,001972: # SLOPESW
046767,001973: # SOLNSW
046768,001974: # OTHERS -
046769,001975:
046770,001976: # RVEC EQUALS R1VEC
046771,001977: # VVEC ERASE +5
046772,001978: # COGAFLAG
046773,001979: # RVSW
046774,001980: # INFINFLG
046775,001981: # APSESW
046776,001982: # 360SW
046777,001983: # RTNTT EQUALS RTNLAMB
046778,001984: # ECC ERASE +1
046779,001985: # RTNTR EQUALS RTNLAMB
046780,001986: # RTNAPSE EQUALS RTNLAMB
046781,001987: # R2 EQUALS MAGVEC2
046782,001988: 12,3772 COSF EQUALS 24D
046783,001989: # RTNPRM ERASE +0
046784,001990: # SGNRDOT ERASE +0
046785,001991: # RDESIRED ERASE +1
046786,001992:
046787,001993:
046788,001994: # ITERATOR SUBROUTINE
046789,001995:
046790,001996: # ORDERSW
046791,001997: 12,3772 MAX EQUALS 14D # CLOBBERS 1/MU
046792,001998: 12,3772 MIN EQUALS 8D
046793,001999: # INDEP ERASE +1
046794,002000: 12,3772 DELINDEP EQUALS 12D
046795,002001: 12,3772 ITERCTR EQUALS 22D
046796,002002: 12,3772 DEP EQUALS 30D
046797,002003: # DELDEP ERASE +1
046798,002004: # DEPREV ERASE +1
046799,002005: 12,3772 TWEEKIT EQUALS 40D
046800,002006:
046801,002007:
046802,002008: # MORE KEPLER
046803,002009:
046804,002010: # EPSILONT ERASE +1
046805,002011:
046806,002012:
046807,002013: # MORE LAMBERT
046808,002014:
046809,002015: # TERRLAMB EQUALS DELDEP
046810,002016: # TPREV EQUALS DEPREV
046811,002017:
046812,002018:
046813,002019: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc