- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
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:
|
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