Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 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.
|
052348,000002: ## Copyright: Public domain.
052349,000003: ## Filename: CONIC_SUBROUTINES.agc
052350,000004: ## Purpose: A section of Comanche revision 067.
052351,000005: ## It is part of the reconstructed source code for the flight
052352,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
052353,000007: ## (AGC) for Apollo 12. No original listings of this program are
052354,000008: ## available; instead, this file was created via dissassembly of
052355,000009: ## dumps of Comanche 067 core rope modules and comparison with
052356,000010: ## other AGC programs.
052357,000011: ## Assembler: yaYUL
052358,000012: ## Contact: Ron Burkey <info@sandroid.org>.
052359,000013: ## Website: www.ibiblio.org/apollo/index.html
052360,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
052361,000015: ## 2024-05-13 MAS Updated for Comanche 067.
052362,000016:
052363,000017: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
052364,000018: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
052365,000019: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052366,000020:
052367,000021: # FUNCTIONAL DESCRIPTION -
052368,000022: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
052369,000023: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
052370,000024: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
052371,000025: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
052372,000026: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
052373,000027: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
052374,000028: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
052375,000029: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
052376,000030: # TINES APPROPRIATELY.
052377,000031:
052378,000032: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
052379,000033: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
052380,000034: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
052381,000035:
052382,000036: # RESTRICTIONS -
052383,000037: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
052384,000038: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
052385,000039: # TORIES COULD BE HANDLED.
052386,000040:
052387,000041: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
052388,000042: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
052389,000043: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
052390,000044:
052391,000045: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
052392,000046: # MOD NO. - 1 LOG SECTION - CONIC SUBROUTINES
052393,000047: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
052394,000048: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
052395,000049: # MOD NO. - 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
052396,000050: # MOD. NO. - 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
052397,000051:
052398,000052: # FUNCTIONAL DESCRIPTION -
052399,000053: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
052400,000054: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
052401,000055: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
052402,000056: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
052403,000057: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
052404,000058: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
052405,000059:
052406,000060: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
052407,000061: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
052408,000062:
052409,000063: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
052410,000064: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
052411,000065:
052412,000066: # THE RESTRICTIONS ARE -
052413,000067: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
052414,000068: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
052415,000069: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052416,000070:
052417,000071: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
052418,000072: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
052419,000073: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
052420,000074:
052421,000075: # REFERENCES -
052422,000076: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
052423,000077: # MEMO 67-4.
052424,000078:
052425,000079: # INPUT - ERASABLE INITIALIZATION REQUIRED
052426,000080: # * SCALE FACTOR *
052427,000081: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052428,000082: # --------*--------------* -----------------------
052429,000083: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052430,000084: # * +27 FOR MOON *
052431,000085: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052432,000086: # * +5 FOR MOON *
052433,000087: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052434,000088: # * *RESPECTIVELY, IS THE CENTRAL BODY
052435,000089: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
052436,000090: # * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
052437,000091: # XKEPNEW * +17 FOR EARTH*DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS).SIGN SHOULD AGREE WITH THAT OF TAU.
052438,000092: # * +16 FOR MOON * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
052439,000093: # * * MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
052440,000094: # * * BY KEPLER TO A POOR BUT VALID GUESS.
052441,000095: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
052442,000096: # XPREV * +17 FOR EARTH*DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
052443,000097: # * +16 FOR MOON * ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
052444,000098:
052445,000099: # SUBROUTINES CALLED -
052446,000100: # DELTIME
052447,000101:
052448,000102: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052449,000103: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052450,000104: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
052451,000105: # KEPRTN ... CONTINUE
052452,000106:
052453,000107: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
052454,000108: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
052455,000109: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
052456,000110:
052457,000111: # ABORT EXIT MODES -
052458,000112: # NONE
052459,000113:
052460,000114: # OUTPUT -
052461,000115: # * SCALE FACTOR *
052462,000116: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052463,000117: # --------*--------------* -----------------------
052464,000118: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
052465,000119: # * +27 FOR MOON *
052466,000120: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
052467,000121: # * +5 FOR MOON *
052468,000122: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
052469,000123: # XPREV * +17 FOR EARTH*DP VALUE OF X IN SQRT(METERS) TO WHCIH KEPLER CONVERGED. ALWAYS LESS THAN THE X
052470,000124: # * +16 FOR MOON * CORRESPONDING TO ONE PERIOD.
052471,000125: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052472,000126:
052473,000127: # DEBRIS -
052474,000128: # PARAMETERS WHICH MAY BE OF USE -
052475,000129: # * SCALE FACTOR *
052476,000130: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052477,000131: # --------*--------------* -----------------------
052478,000132: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
052479,000133: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
052480,000134: # * +27 FOR MOON *
052481,000135: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
052482,000136: # * -20 FOR MOON *
052483,000137: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
052484,000138: # * *TAU. OF LESS THAN ONE PERIOD.
052485,000139:
052486,000140: # PARAMETERS OF NO USE -
052487,000141: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
052488,000142:
052489,000143: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
052490,000144: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
052491,000145: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052492,000146:
052493,000147: # FUNCTIONAL DESCRIPTION -
052494,000148: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
052495,000149: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
052496,000150: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
052497,000151: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
052498,000152: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
052499,000153: # UTILIZED IN THE COMPUTATION.
052500,000154:
052501,000155: # THE RESTRICTIONS ARE -
052502,000156: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
052503,000157: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
052504,000158: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052505,000159: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
052506,000160: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
052507,000161: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
052508,000162: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052509,000163:
052510,000164: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
052511,000165: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
052512,000166: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
052513,000167:
052514,000168: # REFERENCES -
052515,000169: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP - SECTION 5.5, SGA MEMO 67-8,
052516,000170: # SGA MEMO 67-4.
052517,000171:
052518,000172: # INPUT - ERASABLE INITIALIZATION REQUIRED
052519,000173: # * SCALE FACTOR *
052520,000174: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052521,000175: # --------*--------------* -----------------------
052522,000176: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052523,000177: # * +27 FOR MOON *
052524,000178: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
052525,000179: # * +27 FOR MOON *
052526,000180: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
052527,000181: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052528,000182: # * *RESPECTIVELY, IS THE CENTRAL BODY
052529,000183: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
052530,000184: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
052531,000185: # * *COGA IS TO BE USED BY LAMBERT
052532,000186: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
052533,000187: # *IGNORED IF GUESSW IS SET.
052534,000188: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
052535,000189: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
052536,000190: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
052537,000191: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
052538,000192: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
052539,000193: # * *AT R1VEC.
052540,000194:
052541,000195: # SUBROUTINES CALLED -
052542,000196: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
052543,000197:
052544,000198: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052545,000199: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052546,000200: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
052547,000201: # IN MPAC IF VTARGTAG WAS ZERO
052548,000202: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
052549,000203: # L+3 SOLNSW
052550,000204: # L+4 LAMABORT
052551,000205:
052552,000206: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
052553,000207: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
052554,000208:
052555,000209: # ABORT EXIT MODES -
052556,000210: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
052557,000211: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
052558,000212: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
052559,000213: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
052560,000214: # 1-CSTH 360 DEGREES.
052561,000215: # DSU BMN
052562,000216: # ONEBIT
052563,000217: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
052564,000218: # DLOAD DAD
052565,000219: # TDESIRED
052566,000220: # SOMETIME
052567,000221: # STCALL TDESIRED INCREASE TDESIRED
052568,000222: # LAMBERT
052569,000223:
052570,000224: # OUTPUT -
052571,000225: # * SCALE FACTOR *
052572,000226: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052573,000227: # --------*--------------* -----------------------
052574,000228: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
052575,000229: # * +5 FOR MOON *PROBLEM.
052576,000230: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
052577,000231: # * +5 FOR MOON *
052578,000232: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
052579,000233: # * *SOLUTION EXISTS.
052580,000234:
052581,000235: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052582,000236:
052583,000237: # DEBRIS -
052584,000238: # PARAMETERS WHICH MAY BE OF USE -
052585,000239: # * SCALE FACTOR *
052586,000240: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052587,000241: # --------*--------------* -----------------------
052588,000242: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
052589,000243: # CSTH * +1 *DP COSINE OF ANGLE
052590,000244: # 1-CSTH * +2 *DP 1-CSTH
052591,000245: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
052592,000246: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
052593,000247: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
052594,000248: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
052595,000249: # * +27 FOR MOON *
052596,000250: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
052597,000251: # U2 * +1 *DP UNIT VECTOR OF R2VEC
052598,000252:
052599,000253: # PARAMETERS OF NO USE
052600,000254: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
052601,000255: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
052602,000256:
052603,000257: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
052604,000258: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
052605,000259: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052606,000260:
052607,000261: # FUNCTIONAL DESCRIPTION -
052608,000262: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
052609,000263: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
052610,000264: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
052611,000265: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
052612,000266: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
052613,000267: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
052614,000268:
052615,000269: # THE RESTRICTIONS ARE -
052616,000270: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052617,000271: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
052618,000272: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
052619,000273: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052620,000274:
052621,000275: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
052622,000276:
052623,000277: # REFERENCES -
052624,000278: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
052625,000279:
052626,000280: # INPUT - ERASABLE INITIALIZATION REQUIRED
052627,000281: # * SCALE FACTOR *
052628,000282: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052629,000283: # --------*--------------* -----------------------
052630,000284: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052631,000285: # * +27 FOR MOON *
052632,000286: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052633,000287: # * +5 FOR MOON *
052634,000288: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
052635,000289: # CSTH * +1 *DP COSINE OF THE ANGLE
052636,000290: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
052637,000291: # * *IS TO BE COMPUTED ALSO.
052638,000292: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052639,000293: # * *RESPECTIVELY, IS THE CENTRAL BODY.
052640,000294:
052641,000295: # SUBROUTINES CALLED -
052642,000296: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
052643,000297:
052644,000298: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052645,000299: # IF ONLY TIME IS DESIRED AS OUTPUT -
052646,000300: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052647,000301: # L+1 RVSW
052648,000302: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
052649,000303: # L+3 ... CONTINUE
052650,000304:
052651,000305: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
052652,000306: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052653,000307: # L+1 RVSW
052654,000308: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
052655,000309: # THE INITIAL VELOCITY VECTOR IN MPAC.
052656,000310: # L+3 STOVL NEWVVEC
052657,000311: # L+4 STADR
052658,000312: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
052659,000313: # L+6 ... CONTINUE
052660,000314:
052661,000315: # ABORT EXIT MODES -
052662,000316: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
052663,000317: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
052664,000318:
052665,000319: # OUTPUT -
052666,000320: # * SCALE FACTOR *
052667,000321: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052668,000322: # --------*--------------* -----------------------
052669,000323: # T(30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
052670,000324: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
052671,000325: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
052672,000326: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
052673,000327: # * *CLEAR IF NOT.
052674,000328:
052675,000329: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
052676,000330: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
052677,000331: # MPAC +5* +5 FOR MOON *
052678,000332: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
052679,000333: # * +27 FOR MOON *
052680,000334:
052681,000335: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052682,000336:
052683,000337: # DEBRIS -
052684,000338: # PARAMETERS WHICH MAY BE OF USE -
052685,000339: # * SCALE FACTOR *
052686,000340: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052687,000341: # --------*--------------* -----------------------
052688,000342: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
052689,000343: # * +27 FOR MOON *
052690,000344: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
052691,000345: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
052692,000346: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
052693,000347: # UR1 * +1 *DP UNIT VECTOR OF RVEC
052694,000348: # U2 * +1 *DP UNIT VECTOR OF VVEC
052695,000349: # UN * +1 *DP UNIT VECTOR OF UR1*U2
052696,000350:
052697,000351: # PARAMETERS OF NO USE -
052698,000352: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
052699,000353: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
052700,000354:
052701,000355: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
052702,000356: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
052703,000357: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052704,000358:
052705,000359: # FUNCTIONAL DESCRIPTION -
052706,000360: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
052707,000361: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
052708,000362: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
052709,000363: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
052710,000364: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
052711,000365: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
052712,000366:
052713,000367: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
052714,000368: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
052715,000369:
052716,000370: # THE RESTRICTIONS ARE -
052717,000371: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052718,000372: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
052719,000373: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
052720,000374: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052721,000375: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
052722,000376: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
052723,000377: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
052724,000378:
052725,000379: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
052726,000380:
052727,000381: # REFERENCES -
052728,000382: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
052729,000383:
052730,000384: # INPUT - ERASABLE INITIALIZATION REQUIRED
052731,000385: # * SCALE FACTOR *
052732,000386: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052733,000387: # --------*--------------* -----------------------
052734,000388: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052735,000389: # * +27 FOR MOON *
052736,000390: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052737,000391: # * +5 FOR MOON *
052738,000392: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
052739,000393: # * +27 FOR MOON *COMPUTED.
052740,000394: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
052741,000395: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
052742,000396: # * *SINGLE-VALUED PROBLEM.
052743,000397: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052744,000398: # * *RESPECTIVELY, IS THE CENTRAL BODY.
052745,000399: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
052746,000400: # * *IS TO BE COMPUTED ALSO.
052747,000401:
052748,000402: # SUBROUTINES CALLED -
052749,000403: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
052750,000404:
052751,000405: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052752,000406: # IF ONLY TIME IS DESIRED AS OUTPUT -
052753,000407: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052754,000408: # L+1 RVSW
052755,000409: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
052756,000410: # L+3 ... CONTINUE
052757,000411:
052758,000412: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
052759,000413: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052760,000414: # L+1 RVSW
052761,000415: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
052762,000416: # THE INITIAL VELOCITY VECTOR IN MPAC.
052763,000417: # L+3 STOVL NEWVVEC
052764,000418: # L+4 STADR
052765,000419: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
052766,000420: # L+6 ... CONTINUE
052767,000421:
052768,000422: # ABORT EXIT MODES -
052769,000423: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
052770,000424: # TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
052771,000425:
052772,000426: # OUTPUT -
052773,000427: # * SCALE FACTOR *
052774,000428: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052775,000429: # --------*--------------* -----------------------
052776,000430: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
052777,000431: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
052778,000432: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
052779,000433: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
052780,000434: # * *CLEAR IF NOT.
052781,000435: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
052782,000436: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
052783,000437: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
052784,000438: # * *APOCENTER.
052785,000439: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
052786,000440: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
052787,000441: # *MINUS-18, THE SWITCH IS CLEAR.
052788,000442:
052789,000443: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
052790,000444: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
052791,000445: # MPAC +5* +5 FOR MOON *
052792,000446: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
052793,000447: # * +27 FOR MOON *
052794,000448:
052795,000449: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052796,000450:
052797,000451: # DEBRIS -
052798,000452: # PARAMETERS WHICH MAY BE OF USE -
052799,000453: # * SCALE FACTOR *
052800,000454: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052801,000455: # --------*--------------* -----------------------
052802,000456: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
052803,000457: # * +27 FOR MOON *
052804,000458: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
052805,000459: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
052806,000460: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
052807,000461: # UR1 * +1 *DP UNIT VECTOR OF RVEC
052808,000462: # U2 * +1 *DP UNIT VECTOR OF VVEC
052809,000463: # UN * +1 *DP UNIT VECTOR OF UR1*U2
052810,000464: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
052811,000465: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
052812,000466:
052813,000467: # PARAMETERS OF NO USE -
052814,000468: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
052815,000469: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
052816,000470:
052817,000471:
052818,000472: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
052819,000473: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
052820,000474: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052821,000475:
052822,000476: # FUNCTIONAL DESCRIPTION -
052823,000477: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
052824,000478: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
052825,000479: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
052826,000480: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
052827,000481: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
052828,000482:
052829,000483: # THE RESTRICTIONS ARE -
052830,000484: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
052831,000485: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
052832,000486: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
052833,000487: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052834,000488:
052835,000489: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
052836,000490:
052837,000491: # REFERENCES -
052838,000492: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
052839,000493:
052840,000494: # INPUT - ERASABLE INITIALIZATION REQUIRED
052841,000495: # * SCALE FACTOR *
052842,000496: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052843,000497: # --------*--------------* -----------------------
052844,000498: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052845,000499: # * +27 FOR MOON *
052846,000500: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052847,000501: # * +5 FOR MOON *
052848,000502: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052849,000503: # * *RESPECTIVELY, IS THE CENTRAL BODY.
052850,000504:
052851,000505: # SUBROUTINES CALLED -
052852,000506: # PARAM, GEOM
052853,000507:
052854,000508: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052855,000509: # IF ONLY TIME IS DESIRED AS OUTPUT -
052856,000510: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052857,000511: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
052858,000512: # L+2 STODL APOAPSE
052859,000513: # L+3 0D
052860,000514: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
052861,000515: # L+5 ... CONTINUE
052862,000516:
052863,000517: # OUTPUT -
052864,000518: # * SCALE FACTOR *
052865,000519: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052866,000520: # --------*--------------* -----------------------
052867,000521: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
052868,000522: # * +27 FOR MOON *
052869,000523: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
052870,000524: # * +27 FOR MOON *
052871,000525: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
052872,000526:
052873,000527: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052874,000528:
052875,000529: # DEBRIS -
052876,000530: # PARAMETERS WHICH MAY BE OF USE -
052877,000531: # * SCALE FACTOR *
052878,000532: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052879,000533: # --------*--------------* -----------------------
052880,000534: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
052881,000535: # * +27 FOR MOON *
052882,000536: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
052883,000537: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
052884,000538: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
052885,000539: # UR1 * +1 *DP UNIT VECTOR OF RVEC
052886,000540: # U2 * +1 *DP UNIT VECTOR OF VVEC
052887,000541: # UN * +1 *DP UNIT VECTOR OF UR1*U2
052888,000542: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
052889,000543: # * +5 FOR MOON *
052890,000544:
052891,000545: # PARAMETERS OF NO USE -
052892,000546: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
052893,000547: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
052894,000548:
052895,000549: 12,2000 SETLOC CONICS
052896,000550: 12,2000 BANK
052897,000551:
052898,000552: 12,2042 COUNT 12/CONIC
052899,000553:
052900,000554: 12,2042 E5,1723 EBANK= UR1
052901,000555: 12,2042 40001 KEPLERN SETPD BOV
052902,000556: 12,2043 00001 0
052903,000557: 12,2044 24045 +1
052904,000558: 12,2045 77773 VLOAD*
052905,000559: 12,2046 11740 MUTABLE,1
052906,000560: 12,2047 24017 STOVL 14D
052907,000561: 12,2050 01503 RRECT
052908,000562: 12,2051 66256 UNIT SSP
052909,000563: 12,2052 00027 ITERCTR
052910,000564: 12,2053 00024 20D
052911,000565: 12,2054 16647 STODL URRECT
052912,000566: 12,2055 00045 36D
052913,000567: 12,2056 24041 STOVL R1
052914,000568: 12,2057 01503 RRECT
052915,000569: 12,2060 76441 DOT SL1R
052916,000570: 12,2061 01511 VRECT
052917,000571: 12,2062 76405 DMP SL1R
052918,000572: 12,2063 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
052919,000573: 12,2064 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
052920,000574:
052921,000575: 12,2065 01511 VRECT
052922,000576: 12,2066 57236 VSQ DMPR
052923,000577: 12,2067 00017 1/MU # 1/MU (-34 OR -28)
052924,000578: 12,2070 52405 DMP SL3
052925,000579: 12,2071 00041 R1
052926,000580: 12,2072 61425 DSU ROUND
052927,000581: 12,2073 11610 D1/64
052928,000582: 12,2074 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
052929,000583:
052930,000584: 12,2075 74421 BDSU SR1R
052931,000585: 12,2076 11610 D1/64
052932,000586: 12,2077 77671 DDV
052933,000587: 12,2100 00041 R1
052934,000588: 12,2101 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
052935,000589:
052936,000590: 12,2102 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
052937,000591: 12,2103 24112 1REV
052938,000592: 12,2104 11626 -50SC # -50SC (+12)
052939,000593: 12,2105 40071 DDV BOV
052940,000594: 12,2106 00011 ALPHA
052941,000595: 12,2107 24116 STOREMAX
052942,000596: 12,2110 52166 SQRT GOTO
052943,000597: 12,2111 24116 STOREMAX
052944,000598: 12,2112 55366 1REV SQRT BDDV
052945,000599: 12,2113 11630 2PISC # 2PISC (+6)
052946,000600: 12,2114 77600 BOV
052947,000601: 12,2115 24116 STOREMAX
052948,000602: 12,2116 00013 STOREMAX STORE XMAX
052949,000603: 12,2117 65205 DMP PDDL
052950,000604: 12,2120 00023 1/ROOTMU
052951,000605: 12,2121 00011 ALPHA
052952,000606: 12,2122 65301 NORM PDDL
052953,000607: 12,2123 00047 X1
052954,000608: 12,2124 56257 SL* DDV
052955,000609: 12,2125 20173 0 -6,1
052956,000610: 12,2126 50000 BOV BMN
052957,000611: 12,2127 24143 MODDONE
052958,000612: 12,2130 24143 MODDONE # MPAC=PERIOD
052959,000613: 12,2131 51525 PERIODCH PDDL ABS # 0D=PERIOD
052960,000614: 12,2132 02312 TAU.
052961,000615: 12,2133 50025 DSU BMN
052962,000616: 12,2134 00001 0D
052963,000617: 12,2135 24143 MODDONE
052964,000618: 12,2136 77765 SIGN
052965,000619: 12,2137 02312 TAU.
052966,000620: 12,2140 16312 STODL TAU.
052967,000621: 12,2141 77650 GOTO
052968,000622: 12,2142 24131 PERIODCH
052969,000623: 12,2143 71201 MODDONE SETPD DLOAD
052970,000624: 12,2144 00001 0
052971,000625: 12,2145 02306 XKEPNEW
052972,000626: 12,2146 00025 STORE X
052973,000627: 12,2147 53165 SIGN BZE
052974,000628: 12,2150 02312 TAU.
052975,000629: 12,2151 24320 BADX
052976,000630: 12,2152 51440 BMN ABS
052977,000631: 12,2153 24320 BADX
052978,000632: 12,2154 51025 DSU BPL
052979,000633: 12,2155 00013 XMAX
052980,000634: 12,2156 24320 BADX
052981,000635: 12,2157 51145 STORBNDS DLOAD BPL
052982,000636: 12,2160 02312 TAU.
052983,000637: 12,2161 24170 STOREMIN
052984,000638: 12,2162 57545 DLOAD DCOMP
052985,000639: 12,2163 00013 XMAX
052986,000640: 12,2164 14015 STODL XMIN
052987,000641: 12,2165 11566 KEPZERO
052988,000642: 12,2166 34013 STCALL XMAX
052989,000643: 12,2167 24173 DXCOMP
052990,000644: 12,2170 77745 STOREMIN DLOAD
052991,000645: 12,2171 11566 KEPZERO
052992,000646: 12,2172 00015 STORE XMIN
052993,000647: 12,2173 57345 DXCOMP DLOAD DMPR
052994,000648: 12,2174 02312 TAU.
052995,000649: 12,2175 11621 BEE22
052996,000650: 12,2176 77646 ABS
052997,000651: 12,2177 15344 STODL EPSILONT
052998,000652: 12,2200 01553 XPREV
052999,000653: 12,2201 77621 XDIFF BDSU
053000,000654: 12,2202 00025 X
053001,000655: 12,2203 02643 STORE DELX
053002,000656:
053003,000657: 12,2204 63545 KEPLOOP DLOAD DSQ
053004,000658: 12,2205 00025 X # X=XKEP
053005,000659: 12,2206 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
053006,000660: 12,2207 00047 X1
053007,000661: 12,2210 53605 DMP SRR*
053008,000662: 12,2211 00011 ALPHA
053009,000663: 12,2212 21573 0 -6,1
053010,000664: 12,2213 34031 STCALL XI # XI=ALPHA XSQ (+6)
053011,000665: 12,2214 24433 DELTIME
053012,000666: 12,2215 44200 BOV BDSU
053013,000667: 12,2216 24326 TIMEOVFL # UNLIKELY
053014,000668: 12,2217 02312 TAU.
053015,000669: 12,2220 02645 STORE DELT # DELT=DELINDEP
053016,000670: 12,2221 44246 ABS BDSU
053017,000671: 12,2222 01344 EPSILONT
053018,000672: 12,2223 71244 BPL DLOAD
053019,000673: 12,2224 24346 KEPCONVG
053020,000674: 12,2225 00037 T
053021,000675: 12,2226 60225 DSU NORM
053022,000676: 12,2227 01551 TC
053023,000677: 12,2230 00047 X1
053024,000678: 12,2231 60325 PDDL NORM
053025,000679: 12,2232 02643 DELX
053026,000680: 12,2233 00050 X2
053027,000681: 12,2234 41260 XSU,1 DMP
053028,000682: 12,2235 00047 X2
053029,000683: 12,2236 02645 DELT
053030,000684: 12,2237 56257 SLR* DDV
053031,000685: 12,2240 21202 1,1
053032,000686: 12,2241 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
053033,000687: 12,2242 71244 BPL DLOAD
053034,000688: 12,2243 24264 POSDELX
053035,000689: 12,2244 00025 X
053036,000690: 12,2245 00013 STORE XMAX # MOVE MAX BOUND IN
053037,000691: 12,2246 45221 BDSU DSU # PL AT 0
053038,000692: 12,2247 00015 XMIN
053039,000693: 12,2250 51000 BOV BPL
053040,000694: 12,2251 24256 NDXCHNGE
053041,000695: 12,2252 24256 NDXCHNGE
053042,000696: 12,2253 52145 DLOAD GOTO
053043,000697: 12,2254 00001 0D
053044,000698: 12,2255 24276 NEWDELX
053045,000699:
053046,000700: 12,2256 45345 NDXCHNGE DLOAD DSU
053047,000701: 12,2257 00015 XMIN
053048,000702: 12,2260 00025 X
053049,000703: 12,2261 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
053050,000704: 12,2262 11624 DP9/10
053051,000705: 12,2263 24276 NEWDELX
053052,000706:
053053,000707: 12,2264 77745 POSDELX DLOAD
053054,000708: 12,2265 00025 X
053055,000709: 12,2266 00015 STORE XMIN # MOVE MIN BOUND IN
053056,000710: 12,2267 45221 BDSU DSU # PL AT 0
053057,000711: 12,2270 00013 XMAX
053058,000712: 12,2271 50000 BOV BMN
053059,000713: 12,2272 24312 PDXCHNGE
053060,000714: 12,2273 24312 PDXCHNGE
053061,000715: 12,2274 77745 DLOAD
053062,000716: 12,2275 00001 0D
053063,000717: 12,2276 02643 NEWDELX STORE DELX
053064,000718: 12,2277 43254 BZE DAD
053065,000719: 12,2300 24346 KEPCONVG
053066,000720: 12,2301 00025 X
053067,000721: 12,2302 14025 STODL X
053068,000722: 12,2303 00037 T
053069,000723: 12,2304 01551 STORE TC
053070,000724: 12,2305 46034 BRNCHCTR RTB BHIZ
053071,000725: 12,2306 24656 CHECKCTR
053072,000726: 12,2307 24346 KEPCONVG
053073,000727: 12,2310 77650 GOTO
053074,000728: 12,2311 24204 KEPLOOP # ITERATE
053075,000729:
053076,000730: 12,2312 45345 PDXCHNGE DLOAD DSU
053077,000731: 12,2313 00013 XMAX
053078,000732: 12,2314 00025 X
053079,000733: 12,2315 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
053080,000734: 12,2316 11624 DP9/10
053081,000735: 12,2317 24276 NEWDELX
053082,000736:
053083,000737: 12,2320 70545 BADX DLOAD SR1
053084,000738: 12,2321 00013 XMAX
053085,000739: 12,2322 77765 SIGN
053086,000740: 12,2323 02312 TAU.
053087,000741: 12,2324 34025 STCALL X
053088,000742: 12,2325 24157 STORBNDS
053089,000743: 12,2326 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
053090,000744: 12,2327 00025 X
053091,000745: 12,2330 24344 NEGTOVFL
053092,000746: 12,2331 00013 STORE XMAX
053093,000747: 12,2332 70545 CMNTOVFL DLOAD SR1
053094,000748: 12,2333 02643 DELX
053095,000749: 12,2334 02643 STORE DELX
053096,000750: 12,2335 44254 BZE BDSU
053097,000751: 12,2336 02270 KEPRTN
053098,000752: 12,2337 00025 X
053099,000753: 12,2340 14025 STODL X
053100,000754: 12,2341 01551 TC
053101,000755: 12,2342 34037 STCALL T
053102,000756: 12,2343 24305 BRNCHCTR
053103,000757: 12,2344 34015 NEGTOVFL STCALL XMIN
053104,000758: 12,2345 24332 CMNTOVFL
053105,000759: 12,2346 44545 KEPCONVG DLOAD SR4R
053106,000760: 12,2347 00041 R1
053107,000761: 12,2350 74225 DSU VXSC
053108,000762: 12,2351 00035 XSQC(XI)
053109,000763: 12,2352 02647 URRECT
053110,000764: 12,2353 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
053111,000765: 12,2354 00025 X
053112,000766: 12,2355 60316 DSQ NORM
053113,000767: 12,2356 00047 X1
053114,000768: 12,2357 57275 DMPR DMPR
053115,000769: 12,2360 00023 1/ROOTMU
053116,000770: 12,2361 00025 X
053117,000771: 12,2362 53605 DMP SRR*
053118,000772: 12,2363 00033 S(XI)
053119,000773: 12,2364 21572 0 -7,1
053120,000774: 12,2365 77621 BDSU
053121,000775: 12,2366 00037 T
053122,000776: 12,2367 74352 SL1 VXSC
053123,000777: 12,2370 01511 VRECT
053124,000778: 12,2371 53372 VSL1 VAD # PL AT 0
053125,000779: 12,2372 77712 VSL4
053126,000780: 12,2373 01535 STORE RCV # RCV (+29 OR +27)
053127,000781:
053128,000782: 12,2374 60246 ABVAL NORM
053129,000783: 12,2375 00050 X2
053130,000784: 12,2376 16655 STODL RCNORM
053131,000785: 12,2377 00031 XI
053132,000786: 12,2400 45275 DMPR DSU
053133,000787: 12,2401 00033 S(XI)
053134,000788: 12,2402 11606 D1/128
053135,000789: 12,2403 76405 DMP SL1R
053136,000790: 12,2404 00021 ROOTMU
053137,000791: 12,2405 53605 DMP SLR*
053138,000792: 12,2406 00025 X
053139,000793: 12,2407 56601 0 -3,2
053140,000794: 12,2410 74271 DDV VXSC
053141,000795: 12,2411 02655 RCNORM
053142,000796: 12,2412 02647 URRECT
053143,000797: 12,2413 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
053144,000798: 12,2414 00035 XSQC(XI) # OR +13) PL AT 6
053145,000799: 12,2415 56257 SLR* DDV
053146,000800: 12,2416 56602 0 -4,2
053147,000801: 12,2417 02655 RCNORM
053148,000802: 12,2420 74221 BDSU VXSC
053149,000803: 12,2421 11622 D1/256
053150,000804: 12,2422 01511 VRECT
053151,000805: 12,2423 42455 VAD VSL8
053152,000806: 12,2424 77626 STADR # PL AT 0
053153,000807: 12,2425 62234 STODL VCV # VCV (+7 OR +5)
053154,000808: 12,2426 00037 T
053155,000809: 12,2427 15551 STODL TC
053156,000810: 12,2430 00025 X
053157,000811: 12,2431 35553 STCALL XPREV
053158,000812: 12,2432 02270 KEPRTN
053159,000813:
053160,000814: 12,2433 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
053161,000815: 12,2434 07171 TC POLY
053162,000816: 12,2435 00010 DEC 8 B-14
053163,000817: 12,2436 02525 12526 2DEC .083333334
053164,000818:
053165,000819: 12,2440 67356 75666 2DEC -.266666684
053166,000820:
053167,000821: 12,2442 15001 23771 2DEC .406349155
053168,000822:
053169,000823: 12,2444 64342 43674 2DEC -.361198675
053170,000824:
053171,000825: 12,2446 06563 04645 2DEC .210153242
053172,000826:
053173,000827: 12,2450 75173 52672 2DEC -.086221951
053174,000828:
053175,000829: 12,2452 00656 14331 2DEC .026268812
053176,000830:
053177,000831: 12,2454 77633 40512 2DEC -.006163316
053178,000832:
053179,000833: 12,2456 00023 11210 2DEC .001177342
053180,000834:
053181,000835: 12,2460 77774 67506 2DEC -.000199055
053182,000836:
053183,000837: 12,2462 06006 TC INTPRET
053184,000838: 12,2463 14033 STODL S(XI)
053185,000839: 12,2464 00031 XI
053186,000840: 12,2465 77776 EXIT
053187,000841: 12,2466 07171 TC POLY
053188,000842: 12,2467 00010 DEC 8 B-14
053189,000843: 12,2470 01000 00000 2DEC .031250001
053190,000844:
053191,000845: 12,2472 72525 52506 2DEC -.166666719
053192,000846:
053193,000847: 12,2474 13301 15337 2DEC .355555413
053194,000848:
053195,000849: 12,2476 62776 54733 2DEC -.406347410
053196,000850:
053197,000851: 12,2500 11176 13267 2DEC .288962094
053198,000852:
053199,000853: 12,2502 73410 51674 2DEC -.140117894
053200,000854:
053201,000855: 12,2504 01446 33641 2DEC .049247387
053202,000856:
053203,000857: 12,2506 77451 65233 2DEC -.013081923
053204,000858:
053205,000859: 12,2510 00055 37266 2DEC .002806389
053206,000860:
053207,000861: 12,2512 77767 52336 2DEC -.000529414
053208,000862:
053209,000863: 12,2514 06006 TC INTPRET
053210,000864: 12,2515 53605 DMP SRR* # PL AT 0
053211,000865: 12,2516 00001 0D
053212,000866: 12,2517 21574 0 -5,1
053213,000867: 12,2520 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
053214,000868: 12,2521 72405 DMP SL1
053215,000869: 12,2522 00043 KEPC1
053216,000870: 12,2523 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
053217,000871: 12,2524 45565 TPMODE # PL AT 0,3
053218,000872: 12,2525 53605 DMP SRR*
053219,000873: 12,2526 00033 S(XI)
053220,000874: 12,2527 21574 0 -5,1
053221,000875: 12,2530 72405 DMP SL1
053222,000876: 12,2531 00045 KEPC2
053223,000877: 12,2532 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
053224,000878: 12,2533 45565 TPMODE
053225,000879: 12,2534 00041 R1
053226,000880: 12,2535 76261 SR TAD # PL AT 3
053227,000881: 12,2536 20607 6
053228,000882: 12,2537 41301 NORM DMP # TO PRESERVE SIGNIF.
053229,000883: 12,2540 00047 X1
053230,000884: 12,2541 00025 X
053231,000885: 12,2542 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
053232,000886: 12,2543 20576 0 -3,1
053233,000887: 12,2544 57232 SL4R DMPR
053234,000888: 12,2545 00023 1/ROOTMU
053235,000889: 12,2546 00037 STORE T
053236,000890: 12,2547 77616 RVQ
053237,000891:
053238,000892: 12,2550 71214 ITERATOR BONCLR DLOAD
053239,000893: 12,2551 00614 SLOPESW
053240,000894: 12,2552 24620 FIRSTIME
053241,000895: 12,2553 00037 DEP
053242,000896: 12,2554 60225 DSU NORM
053243,000897: 12,2555 02764 DEPREV
053244,000898: 12,2556 00047 X1
053245,000899: 12,2557 60325 PDDL NORM
053246,000900: 12,2560 00015 DELINDEP
053247,000901: 12,2561 00050 X2
053248,000902: 12,2562 41260 XSU,1 DMP
053249,000903: 12,2563 00047 X2
053250,000904: 12,2564 02762 DELDEP
053251,000905: 12,2565 56257 SLR* DDV # PL UP 2
053252,000906: 12,2566 21202 1,1
053253,000907: 12,2567 43142 SR1 BOFF
053254,000908: 12,2570 04351 ORDERSW
053255,000909: 12,2571 24574 SGNCHECK
053256,000910: 12,2572 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
053257,000911: 12,2573 02762 DELDEP # DISREGARD IT TO FIND MIN.
053258,000912:
053259,000913: 12,2574 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
053260,000914: 12,2575 24632 POSDEL
053261,000915: 12,2576 43145 DLOAD BON
053262,000916: 12,2577 03775 INDEP
053263,000917: 12,2600 04311 ORDERSW
053264,000918: 12,2601 24603 MINCHECK
053265,000919: 12,2602 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
053266,000920:
053267,000921: 12,2603 45221 MINCHECK BDSU DSU
053268,000922: 12,2604 00011 MIN
053269,000923: 12,2605 51000 BOV BPL
053270,000924: 12,2606 24612 MODNGDEL
053271,000925: 12,2607 24612 MODNGDEL
053272,000926: 12,2610 77650 GOTO
053273,000927: 12,2611 24644 DELOK
053274,000928:
053275,000929: 12,2612 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
053276,000930: 12,2613 00011 MIN
053277,000931: 12,2614 03775 INDEP
053278,000932: 12,2615 52005 DMP GOTO
053279,000933: 12,2616 11624 DP9/10
053280,000934: 12,2617 24646 NEWDEL
053281,000935:
053282,000936: 12,2620 41345 FIRSTIME DLOAD DMP
053283,000937: 12,2621 00011 MIN
053284,000938: 12,2622 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
053285,000939: 12,2623 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
053286,000940: 12,2624 00017 MAX
053287,000941: 12,2625 00051 TWEEKIT
053288,000942: 12,2626 77625 DSU
053289,000943: 12,2627 52165 SIGN GOTO
053290,000944: 12,2630 02762 DELDEP
053291,000945: 12,2631 24574 SGNCHECK
053292,000946:
053293,000947: 12,2632 43145 POSDEL DLOAD BON
053294,000948: 12,2633 03775 INDEP
053295,000949: 12,2634 04311 ORDERSW
053296,000950: 12,2635 24637 MAXCHECK
053297,000951: 12,2636 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
053298,000952:
053299,000953: 12,2637 45221 MAXCHECK BDSU DSU
053300,000954: 12,2640 00017 MAX
053301,000955: 12,2641 50000 BOV BMN
053302,000956: 12,2642 24650 MODPSDEL
053303,000957: 12,2643 24650 MODPSDEL
053304,000958: 12,2644 77745 DELOK DLOAD
053305,000959: 12,2645 00001 0D
053306,000960: 12,2646 00015 NEWDEL STORE DELINDEP
053307,000961: 12,2647 77616 RVQ
053308,000962:
053309,000963: 12,2650 45345 MODPSDEL DLOAD DSU
053310,000964: 12,2651 00017 MAX
053311,000965: 12,2652 03775 INDEP
053312,000966: 12,2653 52005 DMP GOTO
053313,000967: 12,2654 11624 DP9/10
053314,000968: 12,2655 24646 NEWDEL
053315,000969:
053316,000970: 12,2656 45033 CHECKCTR CS ONE
053317,000971: 12,2657 50120 INDEX FIXLOC
053318,000972: 12,2660 60026 AD ITERCTR
053319,000973: 12,2661 50120 INDEX FIXLOC
053320,000974: 12,2662 54026 TS ITERCTR
053321,000975: 12,2663 54154 TS MPAC
053322,000976: 12,2664 06030 TC DANZIG
053323,000977:
053324,000978: 12,2665 44545 NEWSTATE DLOAD SR4R
053325,000979: 12,2666 00041 R1
053326,000980: 12,2667 74225 DSU VXSC
053327,000981: 12,2670 00035 XSQC(XI)
053328,000982: 12,2671 02724 UR1
053329,000983: 12,2672 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
053330,000984: 12,2673 00025 X
053331,000985: 12,2674 60316 DSQ NORM
053332,000986: 12,2675 00047 X1
053333,000987: 12,2676 57275 DMPR DMPR
053334,000988: 12,2677 00023 1/ROOTMU
053335,000989: 12,2700 00025 X
053336,000990: 12,2701 53605 DMP SRR*
053337,000991: 12,2702 00033 S(XI)
053338,000992: 12,2703 21572 0 -7,1
053339,000993: 12,2704 77621 BDSU
053340,000994: 12,2705 00037 T
053341,000995: 12,2706 74352 SL1 VXSC
053342,000996: 12,2707 02746 VVEC
053343,000997: 12,2710 53372 VSL1 VAD # PL AT 0
053344,000998: 12,2711 41512 VSL4 PUSH
053345,000999: 12,2712 77646 ABVAL
053346,001000: 12,2713 77701 LAMENTER NORM
053347,001001: 12,2714 00047 X1
053348,001002: 12,2715 16722 STODL R2
053349,001003: 12,2716 00031 XI
053350,001004: 12,2717 45205 DMP DSU
053351,001005: 12,2720 00033 S(XI)
053352,001006: 12,2721 11606 D1/128
053353,001007: 12,2722 76405 DMP SL1R
053354,001008: 12,2723 00021 ROOTMU
053355,001009: 12,2724 53605 DMP SLR*
053356,001010: 12,2725 00025 X
053357,001011: 12,2726 21176 0 -3,1
053358,001012: 12,2727 74271 DDV VXSC
053359,001013: 12,2730 02722 R2
053360,001014: 12,2731 02724 UR1
053361,001015: 12,2732 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
053362,001016: 12,2733 00035 XSQC(XI)
053363,001017: 12,2734 56257 SLR* DDV
053364,001018: 12,2735 21175 0 -4,1
053365,001019: 12,2736 02722 R2
053366,001020: 12,2737 77621 BDSU
053367,001021: 12,2740 11622 D1/256
053368,001022: 12,2741 53361 VXSC VAD
053369,001023: 12,2742 02746 VVEC # PL AT 6
053370,001024: 12,2743 43412 VSL8 RVQ
053371,001025:
053372,001026: 04,2000 SETLOC CONICS1
053373,001027: 04,2000 BANK
053374,001028:
053375,001029: 04,3602 COUNT 04/CONIC
053376,001030: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
053377,001031: 04,3602 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
053378,001032: 04,3603 04000 00000 D1/8 2DEC 1.0 B-3
053379,001033:
053380,001034: 04,3605 00200 00000 D1/128 2DEC 1.0 B-7
053381,001035:
053382,001036: 04,3607 00400 00000 D1/64 2DEC 1.0 B-6
053383,001037:
053384,001038: 04,3611 10000 00000 D1/4 2DEC 1.0 B-2
053385,001039:
053386,001040: 04,3613 02000 00000 D1/16 2DEC 1.0 B-4
053387,001041:
053388,001042: 04,3615 01000 00000 D1/32 2DEC 1.0 B-5
053389,001043:
053390,001044: 04,3617 00020 00000 D1/1024 2DEC 1.0 B-10
053391,001045:
053392,001046: 04,3621 00100 00000 D1/256 2DEC 1.0 B-8
053393,001047:
053394,001048: 04,3623 34631 23146 DP9/10 2DEC .9
053395,001049:
053396,001050: 04,3625 04,3565 KEPZERO EQUALS LO6ZEROS
053397,001051: 04,3625 77467 77777 -50SC 2DEC -50.0 B-12
053398,001052:
053399,001053: 04,3627 03110 17665 2PISC 2DEC 6.28318530 B-6
053400,001054:
053401,001055: 04,3631 04,3614 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
053402,001056: 04,3631 04,3620 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
053403,001057: 04,3631 00000 00001 ONEBIT 2DEC 1.0 B-28
053404,001058:
053405,001059: 04,3633 37767 37737 COGUPLIM 2DEC .999511597
053406,001060:
053407,001061: 04,3635 40010 40040 COGLOLIM 2DEC -.999511597
053408,001062:
053409,001063: 12,2000 SETLOC CONICS
053410,001064: 12,2000 BANK
053411,001065:
053412,001066: 12,2744 COUNT 12/CONIC
053413,001067:
053414,001068: 12,2744 40220 TIMETHET STQ SETPD # PL AT 0
053415,001069: 12,2745 02712 RTNTT
053416,001070: 12,2746 00001 0
053417,001071: 12,2747 77600 BOV
053418,001072: 12,2750 24751 +1
053419,001073: 12,2751 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
053420,001074: 12,2752 02657 RVEC
053421,001075: 12,2753 02746 VVEC
053422,001076: 12,2754 77624 CALL
053423,001077: 12,2755 11637 PARAM
053424,001078: 12,2756 45000 BOV CALL
053425,001079: 12,2757 24776 COGAOVFL # PL AT 0
053426,001080: 12,2760 25001 GETX
053427,001081: 12,2761 43145 COMMNOUT DLOAD BON
053428,001082: 12,2762 00031 XI
053429,001083: 12,2763 04310 INFINFLG
053430,001084: 12,2764 25761 ABTCONIC
053431,001085: 12,2765 45014 CLEAR CALL
053432,001086: 12,2766 04273 COGAFLAG
053433,001087: 12,2767 24433 DELTIME
053434,001088: 12,2770 45014 BON CALL
053435,001089: 12,2771 03706 RVSW
053436,001090: 12,2772 02712 RTNTT
053437,001091: 12,2773 24665 NEWSTATE
053438,001092: 12,2774 77650 GOTO
053439,001093: 12,2775 02712 RTNTT
053440,001094:
053441,001095: 12,2776 77614 COGAOVFL SETGO
053442,001096: 12,2777 04033 COGAFLAG
053443,001097: 12,3000 25761 ABTCONIC
053444,001098: 04,3637 BANK 4
053445,001099: 04,2000 SETLOC CONICS1
053446,001100: 04,2000 BANK
053447,001101: 04,3637 COUNT* $$/CONIC
053448,001102: 04,3637 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
053449,001103: 04,3640 02755 RTNPRM
053450,001104: 04,3641 03665 NORMSW
053451,001105: 04,3642 77614 CLEAR
053452,001106: 04,3643 04273 COGAFLAG
053453,001107: 04,3644 45131 SSP CALL
053454,001108: 04,3645 02675 GEOMSGN
053455,001109: 04,3646 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
053456,001110: 04,3647 11702 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
053457,001111: 04,3650 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
053458,001112: 04,3651 56261 SR DDV
053459,001113: 04,3652 20606 5
053460,001114:
053461,001115: 04,3653 00045 36D
053462,001116: 04,3654 33775 STOVL* COGA
053463,001117: 04,3655 11740 MUTABLE,1
053464,001118: 04,3656 14017 STODL 1/MU
053465,001119: 04,3657 02722 MAGVEC2
053466,001120: 04,3660 60316 DSQ NORM
053467,001121: 04,3661 00047 X1
053468,001122: 04,3662 41275 DMPR DMP
053469,001123: 04,3663 00017 1/MU
053470,001124: 04,3664 00041 R1
053471,001125: 04,3665 77657 SRR*
053472,001126: 04,3666 21576 0 -3,1
053473,001127: 04,3667 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
053474,001128: 04,3670 11616 D1/32
053475,001129: 04,3671 16744 STODL R1A # R1A (+6) PL AT 0
053476,001130:
053477,001131: 04,3672 60205 DMP NORM
053478,001132: 04,3673 00045 36D
053479,001133: 04,3674 00047 X1
053480,001134: 04,3675 53605 DMP SR*
053481,001135: 04,3676 00045 36D
053482,001136: 04,3677 20575 0 -4,1
053483,001137: 04,3700 36742 STCALL P # P (+4)
053484,001138: 04,3701 02755 RTNPRM
053485,001139:
053486,001140: 04,3702 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
053487,001141: 04,3703 16714 STODL U2 # U2 (+1)
053488,001142: 04,3704 00045 36D
053489,001143: 04,3705 26722 STOVL MAGVEC2 # PL AT 0
053490,001144: 04,3706 77656 UNIT
053491,001145: 04,3707 02724 STORE UR1 # UR1 (+1)
053492,001146: 04,3710 72441 DOT SL1
053493,001147: 04,3711 02714 U2
053494,001148: 04,3712 77725 PDDL # OD=CSTH (+1) PL AT 2
053495,001149: 04,3713 00045 36D
053496,001150: 04,3714 24041 STOVL R1 # R1 (+29 OR +27)
053497,001151: 04,3715 02724 UR1
053498,001152: 04,3716 76435 VXV VSL1
053499,001153: 04,3717 02714 U2
053500,001154: 04,3720 75214 BON SIGN
053501,001155: 04,3721 03705 NORMSW
053502,001156: 04,3722 11734 HAVENORM
053503,001157: 04,3723 02675 GEOMSGN
053504,001158: 04,3724 40056 UNIT BOV
053505,001159: 04,3725 11732 COLINEAR
053506,001160: 04,3726 16676 UNITNORM STODL UN # UN (+1)
053507,001161: 04,3727 00045 36D
053508,001162: 04,3730 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
053509,001163: 04,3731 02675 GEOMSGN
053510,001164:
053511,001165: 04,3732 52162 COLINEAR VSR1 GOTO
053512,001166: 04,3733 11726 UNITNORM
053513,001167:
053514,001168: 04,3734 75246 HAVENORM ABVAL SIGN
053515,001169: 04,3735 02675 GEOMSGN
053516,001170: 04,3736 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
053517,001171:
053518,001172: 12,3001 BANK 12
053519,001173: 12,2000 SETLOC CONICS
053520,001174: 12,2000 BANK
053521,001175:
053522,001176: 12,3001 COUNT 12/CONIC
053523,001177:
053524,001178: 12,3001 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
053525,001179: 12,3002 00003 3
053526,001180: 12,3003 00052 S2
053527,001181: 12,3004 00001 1
053528,001182: 12,3005 77614 CLEAR
053529,001183: 12,3006 04276 360SW
053530,001184: 12,3007 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
053531,001185: 12,3010 02734 CSTH
053532,001186: 12,3011 44342 SR1 BDSU
053533,001187: 12,3012 11612 D1/4
053534,001188: 12,3013 54325 PDDL SRR # PL AT 4D
053535,001189: 12,3014 02732 SNTH
053536,001190: 12,3015 21607 6
053537,001191: 12,3016 77671 DDV # PL AT 2
053538,001192: 12,3017 77600 BOV
053539,001193: 12,3020 25134 360CHECK
053540,001194: 12,3021 41225 DSU DMP
053541,001195: 12,3022 03775 COGA # PL AT 0
053542,001196: 12,3023 40132 SL2R BOV
053543,001197: 12,3024 25134 360CHECK
053544,001198: 12,3025 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
053545,001199: 12,3026 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
053546,001200: 12,3027 00155 MPAC
053547,001201: 12,3030 02744 R1A
053548,001202: 12,3031 76202 SR4 TAD # PL AT 2
053549,001203: 12,3032 75440 BMN SQRT
053550,001204: 12,3033 25217 INFINITY
053551,001205: 12,3034 43306 ROUND DAD # PL AT 0D
053552,001206: 12,3035 61000 BOV TIX,2
053553,001207: 12,3036 25132 RESETX2
053554,001208: 12,3037 25025 WLOOP
053555,001209:
053556,001210: 12,3040 40065 BDDV BOV
053557,001211: 12,3041 11606 D1/128
053558,001212: 12,3042 25217 INFINITY
053559,001213: 12,3043 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
053560,001214: 12,3044 25217 INFINITY
053561,001215: 12,3045 77716 DSQ
053562,001216: 12,3046 41301 NORM DMP
053563,001217: 12,3047 00047 X1
053564,001218: 12,3050 02744 R1A
053565,001219: 12,3051 77457 SRR* EXIT
053566,001220: 12,3052 21567 0 -10D,1
053567,001221: 12,3053 07171 TC POLY
053568,001222: 12,3054 00005 DEC 5 B-14
053569,001223: 12,3055 20000 00000 2DEC .5
053570,001224:
053571,001225: 12,3057 72525 52471 2DEC -.166666770
053572,001226:
053573,001227: 12,3061 03146 15003 2DEC .100000392
053574,001228:
053575,001229: 12,3063 75556 45210 2DEC -.071401086
053576,001230:
053577,001231: 12,3065 01615 13553 2DEC .055503292
053578,001232:
053579,001233: 12,3067 76371 63777 2DEC -.047264098
053580,001234:
053581,001235: 12,3071 01232 27367 2DEC .040694204
053582,001236:
053583,001237: 12,3073 06006 TC INTPRET
053584,001238: 12,3074 76405 DMP SL1R # PL AT 0D
053585,001239: 12,3075 43006 PUSH BON
053586,001240: 12,3076 04316 360SW
053587,001241: 12,3077 25204 TRUE360X
053588,001242: 12,3100 60316 XCOMMON DSQ NORM
053589,001243: 12,3101 00047 X1
053590,001244: 12,3102 53605 DMP SRR*
053591,001245: 12,3103 02744 R1A
053592,001246: 12,3104 21565 0 -12D,1
053593,001247: 12,3105 14031 STODL XI # XI (+6)
053594,001248:
053595,001249: 12,3106 00041 R1
053596,001250: 12,3107 75542 SR1 SQRT
053597,001251: 12,3110 41306 ROUND DMP
053598,001252: 12,3111 77632 SL4R # PL AT 0
053599,001253: 12,3112 00025 STORE X # X (+17 OR +16)
053600,001254:
053601,001255: 12,3113 60316 DSQ NORM
053602,001256: 12,3114 00047 X1
053603,001257: 12,3115 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
053604,001258: 12,3116 02742 P
053605,001259: 12,3117 00041 R1
053606,001260: 12,3120 75452 SL3 SQRT
053607,001261: 12,3121 56405 DMP SL3R
053608,001262: 12,3122 03775 COGA
053609,001263: 12,3123 14043 STODL KEPC1
053610,001264: 12,3124 02744 R1A
053611,001265: 12,3125 43021 BDSU CLEAR
053612,001266: 12,3126 11610 D1/64
053613,001267: 12,3127 04270 INFINFLG
053614,001268: 12,3130 00045 STORE KEPC2
053615,001269: 12,3131 77616 RVQ
053616,001270:
053617,001271: 12,3132 77774 RESETX2 AXT,2
053618,001272: 12,3133 00003 3
053619,001273:
053620,001274: 12,3134 51001 360CHECK SETPD BPL
053621,001275: 12,3135 00001 0D
053622,001276: 12,3136 25141 INVRSEQN
053623,001277: 12,3137 77614 SET
053624,001278: 12,3140 04076 360SW
053625,001279:
053626,001280: 12,3141 75545 INVRSEQN DLOAD SQRT
053627,001281: 12,3142 02742 P
053628,001282: 12,3143 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
053629,001283: 12,3144 02732 SNTH
053630,001284: 12,3145 03775 COGA
053631,001285: 12,3146 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
053632,001286: 12,3147 02734 CSTH
053633,001287: 12,3150 43202 SR4 DAD
053634,001288: 12,3151 11616 D1/32
053635,001289: 12,3152 41225 DSU DMP # PL AT 2,0
053636,001290: 12,3153 55301 NORM BDDV
053637,001291: 12,3154 00047 X1
053638,001292: 12,3155 02732 SNTH
053639,001293: 12,3156 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
053640,001294: 12,3157 21174 0 -5,1
053641,001295: 12,3160 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
053642,001296: 12,3161 14043 STODL 34D
053643,001297: 12,3162 11614 D1/16
053644,001298: 12,3163 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
053645,001299: 12,3164 65234 RTB PDDL # PL AT 7
053646,001300: 12,3165 45565 TPMODE
053647,001301: 12,3166 02744 R1A
053648,001302: 12,3167 40405 DMP SR4
053649,001303: 12,3170 00043 34D
053650,001304: 12,3171 77771 TAD
053651,001305: 12,3172 75440 BMN SQRT # PL AT 4
053652,001306: 12,3173 25217 INFINITY
053653,001307: 12,3174 77615 DAD # PL AT 2
053654,001308: 12,3175 60304 TIX,2 NORM
053655,001309: 12,3176 25163 1/WLOOP
053656,001310: 12,3177 00047 X1
053657,001311: 12,3200 77665 BDDV
053658,001312: 12,3201 52057 SLR* GOTO # PL AT 0
053659,001313: 12,3202 21172 0 -7,1
053660,001314: 12,3203 25043 POLYCOEF
053661,001315:
053662,001316: 12,3204 50145 TRUE360X DLOAD BMN
053663,001317: 12,3205 02744 R1A
053664,001318: 12,3206 25217 INFINITY
053665,001319: 12,3207 60366 SQRT NORM
053666,001320: 12,3210 00047 X1
053667,001321: 12,3211 53665 BDDV SL*
053668,001322: 12,3212 11630 2PISC
053669,001323: 12,3213 20176 0 -3,1
053670,001324: 12,3214 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
053671,001325: 12,3215 77650 GOTO
053672,001326: 12,3216 25100 XCOMMON
053673,001327: 12,3217 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
053674,001328: 12,3220 00001 0 # INFINITY IS REQUIRED
053675,001329: 12,3221 25222 OVFLCLR
053676,001330: 12,3222 43414 OVFLCLR SET RVQ
053677,001331: 12,3223 04070 INFINFLG
053678,001332:
053679,001333: 12,3224 40220 LAMBERT STQ SETPD
053680,001334: 12,3225 02712 RTNLAMB
053681,001335: 12,3226 00001 0D
053682,001336: 12,3227 77600 BOV
053683,001337: 12,3230 25231 +1
053684,001338: 12,3231 76731 SSP VLOAD*
053685,001339: 12,3232 00027 ITERCTR
053686,001340: 12,3233 00024 20D
053687,001341: 12,3234 11740 MUTABLE,1
053688,001342: 12,3235 14017 STODL 1/MU
053689,001343: 12,3236 02673 TDESIRED
053690,001344: 12,3237 77675 DMPR
053691,001345: 12,3240 11615 BEE19
053692,001346: 12,3241 03777 STORE EPSILONL
053693,001347: 12,3242 77214 SET VLOAD
053694,001348: 12,3243 00474 SLOPESW
053695,001349: 12,3244 02657 R1VEC
053696,001350: 12,3245 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
053697,001351: 12,3246 02665 R2VEC # MPAC=R2VEC (+29 OR +27)
053698,001352: 12,3247 11702 GEOM
053699,001353: 12,3250 16732 STODL SNTH # 0D=CSTH (+1) PL AT 2
053700,001354: 12,3251 02722 MAGVEC2
053701,001355: 12,3252 65301 NORM PDDL # PL AT 4
053702,001356: 12,3253 00047 X1
053703,001357: 12,3254 00041 R1
053704,001358: 12,3255 56342 SR1 DDV # PL AT 2
053705,001359: 12,3256 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
053706,001360: 12,3257 20173 0 -6,1
053707,001361: 12,3260 77626 STADR
053708,001362: 12,3261 75043 STORE CSTH # CSTH (+1)
053709,001363: 12,3262 44342 SR1 BDSU
053710,001364: 12,3263 11612 D1/4
053711,001365: 12,3264 02736 STORE 1-CSTH # 1-CSTH (+2)
053712,001366:
053713,001367: 12,3265 53106 ROUND BZE
053714,001368: 12,3266 25503 360LAMB
053715,001369: 12,3267 65301 NORM PDDL # PL AT 4
053716,001370: 12,3270 00047 X1
053717,001371: 12,3271 00001 0D
053718,001372: 12,3272 56342 SR1 DDV # PL AT 2
053719,001373: 12,3273 75457 SL* SQRT
053720,001374: 12,3274 20176 0 -3,1
053721,001375: 12,3275 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
053722,001376: 12,3276 02732 SNTH
053723,001377: 12,3277 20607 6
053724,001378: 12,3300 43271 DDV DAD # PL AT 2
053725,001379: 12,3301 02736 1-CSTH
053726,001380: 12,3302 77626 STADR
053727,001381: 12,3303 77760 STORE COGAMAX
053728,001382: 12,3304 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
053729,001383: 12,3305 25312 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
053730,001384: 12,3306 25315 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
053731,001385: 12,3307 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
053732,001386: 12,3310 11634 COGUPLIM
053733,001387: 12,3311 25315 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
053734,001388: 12,3312 77745 UPLIM DLOAD
053735,001389: 12,3313 11634 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
053736,001390: 12,3314 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
053737,001391: 12,3315 77745 MAXCOGA DLOAD
053738,001392: 12,3316 02734 CSTH
053739,001393: 12,3317 45261 SR DSU # PL AT 0
053740,001394: 12,3320 20607 6
053741,001395: 12,3321 77626 STADR
053742,001396: 12,3322 61037 STODL CSTH-RHO
053743,001397: 12,3323 02675 GEOMSGN
053744,001398: 12,3324 71240 BMN DLOAD
053745,001399: 12,3325 25522 LOLIM
053746,001400: 12,3326 02740 CSTH-RHO
053747,001401: 12,3327 56352 SL1 DDV
053748,001402: 12,3330 02732 SNTH
053749,001403: 12,3331 77600 BOV
053750,001404: 12,3332 25522 LOLIM
053751,001405: 12,3333 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
053752,001406: 12,3334 66214 BON SSP
053753,001407: 12,3335 00715 GUESSW
053754,001408: 12,3336 25507 NOGUESS
053755,001409: 12,3337 00051 TWEEKIT
053756,001410: 12,3340 00001 00001
053757,001411: 12,3341 77745 DLOAD
053758,001412: 12,3342 03775 COGA
053759,001413:
053760,001414: 12,3343 77605 LAMBLOOP DMP
053761,001415: 12,3344 02732 SNTH
053762,001416: 12,3345 45342 SR1 DSU
053763,001417: 12,3346 02740 CSTH-RHO
053764,001418: 12,3347 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
053765,001419: 12,3350 00047 X1
053766,001420: 12,3351 02736 1-CSTH
053767,001421: 12,3352 56257 SL* DDV # 1-CSTH (+2) PL AT 0
053768,001422: 12,3353 20170 0 -9D,1
053769,001423: 12,3354 53040 BMN BZE
053770,001424: 12,3355 25441 NEGP
053771,001425: 12,3356 25441 NEGP
053772,001426: 12,3357 16742 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
053773,001427: 12,3360 03775 COGA
053774,001428: 12,3361 43316 DSQ DAD
053775,001429: 12,3362 11620 D1/1024
053776,001430: 12,3363 41301 NORM DMP
053777,001431: 12,3364 00047 X1
053778,001432: 12,3365 02742 P
053779,001433: 12,3366 44257 SR* BDSU
053780,001434: 12,3367 20571 0 -8D,1
053781,001435: 12,3370 11616 D1/32
053782,001436: 12,3371 16744 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
053783,001437:
053784,001438: 12,3372 02742 P
053785,001439: 12,3373 45000 BOV CALL
053786,001440: 12,3374 25444 HIENERGY
053787,001441: 12,3375 25001 GETX
053788,001442: 12,3376 77745 DLOAD
053789,001443: 12,3377 00037 T
053790,001444: 12,3400 16764 STODL TPREV
053791,001445: 12,3401 00031 XI
053792,001446: 12,3402 45014 BON CALL
053793,001447: 12,3403 04310 INFINFLG
053794,001448: 12,3404 25441 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
053795,001449: 12,3405 24433 DELTIME
053796,001450: 12,3406 44200 BOV BDSU
053797,001451: 12,3407 25460 BIGTIME
053798,001452: 12,3410 02673 TDESIRED
053799,001453: 12,3411 02762 STORE TERRLAMB
053800,001454: 12,3412 44246 ABS BDSU
053801,001455: 12,3413 03777 EPSILONL
053802,001456: 12,3414 47044 BPL RTB
053803,001457: 12,3415 25525 INITV
053804,001458: 12,3416 24656 CHECKCTR
053805,001459: 12,3417 43030 BHIZ BON
053806,001460: 12,3420 25470 SUFFCHEK
053807,001461: 12,3421 00714 SLOPESW
053808,001462: 12,3422 25430 GOITER
053809,001463: 12,3423 45345 DLOAD DSU
053810,001464: 12,3424 00037 T
053811,001465: 12,3425 02764 TPREV
053812,001466: 12,3426 77654 BZE
053813,001467: 12,3427 25470 SUFFCHEK
053814,001468: 12,3430 77624 GOITER CALL
053815,001469: 12,3431 24550 ITERATOR
053816,001470: 12,3432 53145 DLOAD BZE
053817,001471: 12,3433 00155 MPAC
053818,001472: 12,3434 25470 SUFFCHEK
053819,001473: 12,3435 77615 DAD
053820,001474: 12,3436 03775 COGA
053821,001475: 12,3437 37775 STCALL COGA
053822,001476: 12,3440 25343 LAMBLOOP
053823,001477:
053824,001478: 12,3441 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
053825,001479: 12,3442 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
053826,001480: 12,3443 25463 LOENERGY
053827,001481:
053828,001482: 12,3444 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
053829,001483: 12,3445 00001 0
053830,001484: 12,3446 03775 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
053831,001485: 12,3447 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
053832,001486: 12,3450 70545 COMMONLM DLOAD SR1
053833,001487: 12,3451 00015 DCOGA
053834,001488: 12,3452 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
053835,001489: 12,3453 44254 BZE BDSU
053836,001490: 12,3454 25470 SUFFCHEK
053837,001491: 12,3455 03775 COGA
053838,001492: 12,3456 37775 STCALL COGA
053839,001493: 12,3457 25343 LAMBLOOP
053840,001494:
053841,001495: 12,3460 77745 BIGTIME DLOAD
053842,001496: 12,3461 02764 TPREV
053843,001497: 12,3462 00037 STORE T
053844,001498:
053845,001499: 12,3463 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
053846,001500: 12,3464 00001 0
053847,001501: 12,3465 03775 COGA # IN OVERFLOW OF TIME.
053848,001502: 12,3466 34017 STCALL COGAMAX # THIS IS THE NEW BOUND.
053849,001503: 12,3467 25450 COMMONLM
053850,001504:
053851,001505: 12,3470 51545 SUFFCHEK DLOAD ABS
053852,001506: 12,3471 02762 TERRLAMB
053853,001507: 12,3472 41325 PDDL DMP
053854,001508: 12,3473 02673 TDESIRED # PL AT 2D
053855,001509: 12,3474 11612 D1/4
053856,001510: 12,3475 45215 DAD DSU # PL AT 0D
053857,001511: 12,3476 11632 ONEBIT
053858,001512: 12,3477 43044 BPL SETGO
053859,001513: 12,3500 25525 INITV
053860,001514: 12,3501 02434 SOLNSW
053861,001515: 12,3502 02712 RTNLAMB
053862,001516:
053863,001517: 12,3503 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
053864,001518: 12,3504 00001 0
053865,001519: 12,3505 02434 SOLNSW
053866,001520: 12,3506 02712 RTNLAMB
053867,001521:
053868,001522: 12,3507 71331 NOGUESS SSP DLOAD
053869,001523: 12,3510 00051 TWEEKIT
053870,001524: 12,3511 10000 20000
053871,001525: 12,3512 00011 COGAMIN
053872,001526: 12,3513 65342 SR1 PDDL # PL AT 2
053873,001527: 12,3514 00017 COGAMAX
053874,001528: 12,3515 43342 SR1 DAD
053875,001529: 12,3516 77626 STADR # PL AT 0
053876,001530: 12,3517 74002 STORE COGA
053877,001531: 12,3520 34015 STCALL DCOGA
053878,001532: 12,3521 25343 LAMBLOOP
053879,001533: 12,3522 52145 LOLIM DLOAD GOTO
053880,001534: 12,3523 11636 COGLOLIM # COGLOLIM=-.999511597
053881,001535: 12,3524 25333 MINCOGA
053882,001536:
053883,001537: 12,3525 60345 INITV DLOAD NORM
053884,001538: 12,3526 00041 R1
053885,001539: 12,3527 00047 X1
053886,001540: 12,3530 70525 PDDL SR1 # PL AT 2
053887,001541: 12,3531 02742 P
053888,001542: 12,3532 77671 DDV # PL AT 0
053889,001543: 12,3533 75457 SL* SQRT
053890,001544: 12,3534 20175 0 -4,1
053891,001545: 12,3535 72405 DMP SL1
053892,001546: 12,3536 00021 ROOTMU
053893,001547: 12,3537 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
053894,001548: 12,3540 03775 COGA
053895,001549: 12,3541 74261 SL VXSC
053896,001550: 12,3542 20206 5
053897,001551: 12,3543 02724 UR1
053898,001552: 12,3544 77725 PDDL # XCH WITH 0D PL AT 0,6
053899,001553: 12,3545 76561 VXSC VSL1
053900,001554: 12,3546 02676 UN
053901,001555: 12,3547 53235 VXV VAD
053902,001556: 12,3550 02724 UR1 # PL AT 0
053903,001557: 12,3551 43172 VSL1 CLEAR
053904,001558: 12,3552 02674 SOLNSW
053905,001559: 12,3553 02746 STORE VVEC
053906,001560: 12,3554 53135 SLOAD BZE
053907,001561: 12,3555 02704 VTARGTAG
053908,001562: 12,3556 25561 TARGETV
053909,001563: 12,3557 77650 GOTO
053910,001564: 12,3560 02712 RTNLAMB
053911,001565:
053912,001566: 12,3561 45145 TARGETV DLOAD CALL
053913,001567: 12,3562 02722 MAGVEC2
053914,001568: 12,3563 24713 LAMENTER
053915,001569: 12,3564 36705 STCALL VTARGET
053916,001570: 12,3565 02712 RTNLAMB
053917,001571:
053918,001572: 12,3566 40220 TIMERAD STQ SETPD # PL AT 0
053919,001573: 12,3567 02712 RTNTR
053920,001574: 12,3570 00001 0
053921,001575: 12,3571 77600 BOV
053922,001576: 12,3572 25573 +1
053923,001577: 12,3573 63375 VLOAD PDVL # PL AT 6
053924,001578: 12,3574 02657 RVEC
053925,001579: 12,3575 02746 VVEC
053926,001580: 12,3576 77624 CALL
053927,001581: 12,3577 11637 PARAM
053928,001582: 12,3600 71200 BOV DLOAD
053929,001583: 12,3601 24776 COGAOVFL # PL AT 0
053930,001584: 12,3602 11616 D1/32
053931,001585: 12,3603 41225 DSU DMP
053932,001586: 12,3604 02744 R1A
053933,001587: 12,3605 02742 P
053934,001588: 12,3606 41366 SQRT DMP
053935,001589: 12,3607 03775 COGA
053936,001590: 12,3610 74212 SL4 VXSC
053937,001591: 12,3611 02714 U2
053938,001592: 12,3612 45325 PDDL DSU # PL AT 6
053939,001593: 12,3613 11610 D1/64
053940,001594: 12,3614 02744 R1A
053941,001595: 12,3615 52361 VXSC VSU # PL AT 0
053942,001596: 12,3616 02724 UR1
053943,001597: 12,3617 53512 VSL4 UNIT
053944,001598: 12,3620 77600 BOV
053945,001599: 12,3621 25677 CIRCULAR
053946,001600: 12,3622 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
053947,001601: 12,3623 02760 RDESIRED # 36D=ECC (+3)
053948,001602: 12,3624 00047 X1
053949,001603: 12,3625 41325 PDDL DMP # PL AT 8
053950,001604: 12,3626 00041 R1
053951,001605: 12,3627 02742 P
053952,001606: 12,3630 56257 SL* DDV # PL AT 6
053953,001607: 12,3631 20201 0,1
053954,001608: 12,3632 56225 DSU DDV
053955,001609: 12,3633 11614 D1/16
053956,001610: 12,3634 00045 36D # 36D=ECC (+3)
053957,001611: 12,3635 00031 STORE COSF
053958,001612: 12,3636 63400 BOV DSQ
053959,001613: 12,3637 25703 BADR2
053960,001614: 12,3640 50021 BDSU BMN
053961,001615: 12,3641 11612 D1/4
053962,001616: 12,3642 25703 BADR2
053963,001617: 12,3643 75366 SQRT SIGN
053964,001618: 12,3644 02757 SGNRDOT
053965,001619: 12,3645 77614 CLEAR
053966,001620: 12,3646 04272 APSESW
053967,001621:
053968,001622: 12,3647 76561 TERMNVEC VXSC VSL1
053969,001623: 12,3650 02676 UN
053970,001624: 12,3651 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
053971,001625: 12,3652 00001 0D
053972,001626: 12,3653 53361 VXSC VAD # PL AT 0
053973,001627: 12,3654 00031 COSF
053974,001628: 12,3655 41572 VSL1 PUSH # 0D=U2 PL AT 6
053975,001629:
053976,001630: 12,3656 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
053977,001631: 12,3657 02724 UR1
053978,001632: 12,3660 23740 DP1/4
053979,001633: 12,3661 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
053980,001634: 12,3662 25663 +1 # CLEAR OVFIND IF SET
053981,001635: 12,3663 26734 STOVL CSTH # CSTH (+1)
053982,001636: 12,3664 02724 UR1
053983,001637: 12,3665 76435 VXV VSL1
053984,001638: 12,3666 72441 DOT SL1
053985,001639: 12,3667 02676 UN
053986,001640: 12,3670 16732 STODL SNTH # SNTH (+1)
053987,001641: 12,3671 02742 P
053988,001642: 12,3672 77624 CALL
053989,001643: 12,3673 25001 GETX
053990,001644: 12,3674 77614 CLRGO
053991,001645: 12,3675 02634 SOLNSW
053992,001646: 12,3676 24761 COMMNOUT
053993,001647:
053994,001648: 12,3677 43001 CIRCULAR SETPD SETGO
053995,001649: 12,3700 00001 0
053996,001650: 12,3701 02434 SOLNSW
053997,001651: 12,3702 25761 ABTCONIC
053998,001652:
053999,001653: 12,3703 75345 BADR2 DLOAD SIGN
054000,001654: 12,3704 11564 LODPHALF
054001,001655: 12,3705 00031 COSF
054002,001656: 12,3706 14031 STODL COSF
054003,001657: 12,3707 11566 KEPZERO
054004,001658: 12,3710 77614 SETGO
054005,001659: 12,3711 04032 APSESW
054006,001660: 12,3712 25647 TERMNVEC
054007,001661:
054008,001662: 12,3713 40220 APSIDES STQ SETPD # PL AT 0
054009,001663: 12,3714 02712 RTNAPSE
054010,001664: 12,3715 00001 0D
054011,001665: 12,3716 77600 BOV
054012,001666: 12,3717 25720 +1
054013,001667: 12,3720 63375 VLOAD PDVL # PL AT 6
054014,001668: 12,3721 02657 RVEC
054015,001669: 12,3722 02746 VVEC
054016,001670: 12,3723 77624 CALL
054017,001671: 12,3724 11637 PARAM
054018,001672: 12,3725 77600 BOV # PL AT 0
054019,001673: 12,3726 25727 GETECC
054020,001674: 12,3727 42405 GETECC DMP SL4
054021,001675: 12,3730 02744 R1A
054022,001676: 12,3731 75421 BDSU SQRT
054023,001677: 12,3732 11610 D1/64
054024,001678: 12,3733 02754 STORE ECC
054025,001679: 12,3734 65215 DAD PDDL # PL AT 2
054026,001680: 12,3735 11604 D1/8
054027,001681: 12,3736 00041 R1
054028,001682: 12,3737 72405 DMP SL1
054029,001683: 12,3740 02742 P
054030,001684: 12,3741 77671 DDV # PL AT 0
054031,001685: 12,3742 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
054032,001686: 12,3743 02744 R1A
054033,001687: 12,3744 00047 X1
054034,001688: 12,3745 53725 PDDL SL* # PL AT 4
054035,001689: 12,3746 00041 R1
054036,001690: 12,3747 20174 0 -5,1
054037,001691: 12,3750 45271 DDV DSU # PL AT 2,0
054038,001692: 12,3751 50000 BOV BMN
054039,001693: 12,3752 25756 INFINAPO
054040,001694: 12,3753 25756 INFINAPO
054041,001695: 12,3754 77650 GOTO
054042,001696: 12,3755 02712 RTNAPSE
054043,001697: 12,3756 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
054044,001698: 12,3757 11577 LDPOSMAX
054045,001699: 12,3760 02712 RTNAPSE # THAT PL IS AT 0.
054046,001700:
054047,001701: 12,3761 77776 ABTCONIC EXIT
054048,001702: 12,3762 05725 TC POODOO
054049,001703: 12,3763 20607 OCT 20607 # NO SOLUTION FROM TIMETHET OR TIMERAD
054050,001704:
054051,001705: 04,2000 SETLOC CONICS1
054052,001706: 04,2000 BANK
054053,001707:
054054,001708: 04,3737 COUNT 04/CONIC
054055,001709:
054056,001710: 04,3737 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
054057,001711:
054058,001712: 04,3741 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
054059,001713:
054060,001714: 04,3743 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
054061,001715:
054062,001716: 04,3745 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
054063,001717:
054064,001718: 04,3747 16471 01352 2DEC 4.902778 E8 B-30 # MUM
054065,001719:
054066,001720: 04,3751 21412 20500 2DEC .203966 E-8 B+28 # 1/MUM
054067,001721:
054068,001722: 04,3753 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
054069,001723:
054070,001724: 04,3755 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
054071,001725:
054072,001726: 04,3757 04,3576 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
054073,001727:
054074,001728: # ERASABLE ASSIGNMENTS
054075,001729:
054076,001730: # KEPLER SUBROUTINE
054077,001731:
054078,001732: # INPUT -
054079,001733: # RRECT ERASE +5
054080,001734: # VRECT ERASE +5
054081,001735: # TAU. ERASE +1
054082,001736: # XKEP ERASE +1
054083,001737: # TC ERASE +1
054084,001738: # XPREV ERASE +1
054085,001739: 04,3757 1/MU EQUALS 14D
054086,001740: 04,3757 ROOTMU EQUALS 16D
054087,001741: 04,3757 1/ROOTMU EQUALS 18D
054088,001742:
054089,001743: # OUTPUT -
054090,001744: # RCV ERASE +5
054091,001745: # VCV ERASE +5
054092,001746: # RC ERASE +1
054093,001747: # XPREV ERASE +1
054094,001748:
054095,001749: # DEBRIS -
054096,001750: 04,3757 ALPHA EQUALS 8D
054097,001751: 04,3757 XMAX EQUALS 10D
054098,001752: 04,3757 XMIN EQUALS 12D
054099,001753: 04,3757 X EQUALS 20D
054100,001754: 04,3757 XI EQUALS 24D
054101,001755: 04,3757 S(XI) EQUALS 26D
054102,001756: 04,3757 XSQC(XI) EQUALS 28D
054103,001757: 04,3757 T EQUALS 30D
054104,001758: 04,3757 R1 EQUALS 32D
054105,001759: 04,3757 KEPC1 EQUALS 34D
054106,001760: 04,3757 KEPC2 EQUALS 36D
054107,001761:
054108,001762: # DELX ERASE +1
054109,001763: # DELT ERASE +1
054110,001764: # URRECT ERASE +5
054111,001765: # RCNORM ERASE +1
054112,001766: # XPREV EQUALS XKEP
054113,001767:
054114,001768:
054115,001769: # LAMBERT SUBROUTINE
054116,001770:
054117,001771: # INPUT -
054118,001772: # R1VEC ERASE +5
054119,001773: # R2VEC ERASE +5
054120,001774: # TDESIRED ERASE +1
054121,001775: # GEOMSGN ERASE +0
054122,001776: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
054123,001777: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
054124,001778: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
054125,001779: # UN ERASE +5 ONLY USED IF NORMSW IS 1
054126,001780: # VTARGTAG ERASE +0
054127,001781: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
054128,001782:
054129,001783: # OUTPUT -
054130,001784: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
054131,001785: # V1VEC EQUALS MPAC
054132,001786:
054133,001787: # DEBRIS -
054134,001788: # RTNLAMB ERASE +0
054135,001789: # U2 ERASE +5
054136,001790: # MAGVEC2 ERASE +1
054137,001791: # UR1 ERASE +5
054138,001792: # R1 EQUALS 31D
054139,001793: # UN ERASE +5
054140,001794: # SNTH ERASE +1
054141,001795: # CSTH ERASE +1
054142,001796: # 1-CSTH ERASE +1
054143,001797: # CSTH-RHO ERASE +1
054144,001798:
054145,001799: 04,3757 COGAMAX EQUALS 14D # CLOBBERS 1/MU
054146,001800: 04,3757 COGAMIN EQUALS 8D
054147,001801: 04,3757 DCOGA EQUALS 12D
054148,001802:
054149,001803: # TWEEKIT EQUALS 40D
054150,001804: # P ERASE +1
054151,001805: # COGA ERASE +1
054152,001806: # R1A ERASE +1
054153,001807: # X EQUALS 20D
054154,001808: # XSQ EQUALS 22D
054155,001809: # XI EQUALS 24D
054156,001810: # S(XI) EQUALS 26D
054157,001811: # XSQC(XI) EQUALS 28D
054158,001812: # T EQUALS 30D
054159,001813: # KEPC1 EQUALS 34D
054160,001814: # KEPC2 EQUALS 36D
054161,001815: # SLOPESW
054162,001816: # SOLNSW
054163,001817:
054164,001818: # OTHERS -
054165,001819: # RVEC EQUALS R1VEC
054166,001820: # VVEC ERASE +5
054167,001821: # COGAFLAG
054168,001822: # RVSW
054169,001823: # INFINFLG
054170,001824: # APSESW
054171,001825: # 360SW
054172,001826: # RTNTT EQUALS RTNLAMB
054173,001827: # ECC ERASE +1
054174,001828: # RTNTR EQUALS RTNLAMB
054175,001829: # RTNAPSE EQUALS RTNLAMB
054176,001830: # R2 EQUALS MAGVEC2
054177,001831:
054178,001832: 04,3757 COSF EQUALS 24D
054179,001833:
054180,001834: # RTNPRM ERASE +0
054181,001835: # SGNRDOT ERASE +0
054182,001836: # RDESIRED ERASE +1
054183,001837:
054184,001838:
054185,001839: # ITERATOR SUBROUTINE
054186,001840:
054187,001841: # ORDERSW
054188,001842: 04,3757 MAX EQUALS 14D # CLOBBERS 1/MU
054189,001843: 04,3757 MIN EQUALS 8D
054190,001844:
054191,001845: # INDEP ERASE +1
054192,001846:
054193,001847: 04,3757 DELINDEP EQUALS 12D
054194,001848: 04,3757 ITERCTR EQUALS 22D
054195,001849: 04,3757 DEP EQUALS 30D
054196,001850:
054197,001851: # DELDEP ERASE +1
054198,001852: # DEPREV ERASE +1
054199,001853:
054200,001854: 04,3757 TWEEKIT EQUALS 40D
054201,001855:
054202,001856:
054203,001857: # MORE KEPLER
054204,001858:
054205,001859: # EPSILONT ERASE +1
054206,001860:
054207,001861: # MORE LAMBERT
054208,001862:
054209,001863: # TERRLAMB EQUALS DELDEP
054210,001864: # TPREV EQUALS DEPREV
054211,001865:
054212,001866: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
054213,001867:
054214,001868:
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc