GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
055034,000002: ## Copyright: Public domain.
055035,000003: ## Filename: CONIC_SUBROUTINES.agc
055036,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
055037,000005: ## It is part of the source code for the Command Module's (CM)
055038,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
055039,000007: ## Assembler: yaYUL
055040,000008: ## Contact: Ron Burkey <info@sandroid.org>.
055041,000009: ## Website: www.ibiblio.org/apollo.
055042,000010: ## Pages: 1262-1308
055043,000011: ## Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the
055044,000012: ## same name, using Comanche055 page images.
055045,000013: ## 2009-05-20 RSB Corrected: Fixed four interpreter
055046,000014: ## instructions.
055047,000015: ## 2016-12-22 RSB Proofed comment text using octopus/ProoferComments
055048,000016: ## and corrected the errors found.
055049,000017: ## 2017-01-07 RSB Fixed comment errors detected in cross-diff vs
055050,000018: ## Colossus 249.
055051,000019: ## 2017-01-21 RSB Comment-text error fixes detected in diff'ing
055052,000020: ## vs Artemis 72.
055053,000021: ## 2017-01-28 RSB WTIH -> WITH and WHCIH -> WHICH.
055054,000022: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
055055,000023: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
055056,000024: ## side-by-side diff of Luminary 69/99/116/131/210.
055057,000025:
055058,000026: ## This source code has been transcribed or otherwise adapted from digitized
055059,000027: ## images of a hardcopy from the MIT Museum. The digitization was performed
055060,000028: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
055061,000029: ## thanks to both. The images (with suitable reduction in storage size and
055062,000030: ## consequent reduction in image quality as well) are available online at
055063,000031: ## www.ibiblio.org/apollo. If for some reason you find that the images are
055064,000032: ## illegible, contact me at info@sandroid.org about getting access to the
055065,000033: ## (much) higher-quality images which Paul actually created.
055066,000034: ##
055067,000035: ## Notations on the hardcopy document read, in part:
055068,000036: ##
055069,000037: ## Assemble revision 055 of AGC program Comanche by NASA
055070,000038: ## 2021113-051. 10:28 APR. 1, 1969
055071,000039: ##
055072,000040: ## This AGC program shall also be referred to as
055073,000041: ## Colossus 2A
055074,000042:
|
|
Page 1262 |
055076,000044: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
055077,000045: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
055078,000046: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
055079,000047:
055080,000048: # FUNCTIONAL DESCRIPTION -
055081,000049: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
055082,000050: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
055083,000051: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
055084,000052: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
055085,000053: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
055086,000054: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
055087,000055: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
055088,000056: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
055089,000057: # TINES APPROPRIATELY.
055090,000058:
055091,000059: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
055092,000060: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
055093,000061: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
055094,000062:
055095,000063: # RESTRICTIONS -
055096,000064: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
055097,000065: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
055098,000066: # TORIES COULD BE HANDLED.
055099,000067:
055100,000068: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
055101,000069: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
055102,000070: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
055103,000071:
|
|
Page 1263 |
055105,000073: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
055106,000074: # MOD NO. - 1 LOG SECTION - CONIC SUBROUTINES
055107,000075: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
055108,000076: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
055109,000077: # MOD NO. - 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
055110,000078: # MOD. NO. - 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
055111,000079:
055112,000080: # FUNCTIONAL DESCRIPTION -
055113,000081: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
055114,000082: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
055115,000083: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
055116,000084: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
055117,000085: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
055118,000086: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
055119,000087:
055120,000088: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
055121,000089: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
055122,000090:
055123,000091: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
055124,000092: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
055125,000093:
055126,000094: # THE RESTRICTIONS ARE -
055127,000095: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
055128,000096: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
055129,000097: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
055130,000098:
055131,000099: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
055132,000100: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
055133,000101: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
055134,000102:
055135,000103: # REFERENCES -
055136,000104: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
055137,000105: # MEMO 67-4.
055138,000106:
055139,000107: # INPUT - ERASABLE INITIALIZATION REQUIRED
055140,000108: # * SCALE FACTOR *
055141,000109: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055142,000110: # --------*--------------* -----------------------
055143,000111: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
055144,000112: # * +27 FOR MOON *
|
|
Page 1264 |
055146,000114: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
055147,000115: # * +5 FOR MOON *
055148,000116: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
055149,000117: # * *RESPECTIVELY, IS THE CENTRAL BODY
055150,000118: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
055151,000119: # * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
055152,000120: # XKEPNEW * +17 FOR EARTH*DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS).SIGN SHOULD AGREE WITH THAT OF TAU.
055153,000121: # * +16 FOR MOON * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
055154,000122: # * * MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
055155,000123: # * * BY KEPLER TO A POOR BUT VALID GUESS.
055156,000124: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
055157,000125: # XPREV * +17 FOR EARTH*DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
055158,000126: # * +16 FOR MOON * ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
055159,000127:
055160,000128: # SUBROUTINES CALLED -
055161,000129: # DELTIME
055162,000130:
055163,000131: # CALLING SEQUENCE AND NORMAL EXIT MODES -
055164,000132: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055165,000133: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
055166,000134: # KEPRTN ... CONTINUE
055167,000135:
055168,000136: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
055169,000137: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
055170,000138: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
055171,000139:
055172,000140: # ABORT EXIT MODES -
055173,000141: # NONE
055174,000142:
055175,000143: # OUTPUT -
055176,000144: # * SCALE FACTOR *
055177,000145: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055178,000146: # --------*--------------* -----------------------
055179,000147: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
055180,000148: # * +27 FOR MOON *
055181,000149: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
055182,000150: # * +5 FOR MOON *
055183,000151: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
055184,000152: # XPREV * +17 FOR EARTH*DP VALUE OF X IN SQRT(METERS) TO WHCIH KEPLER CONVERGED. ALWAYS LESS THAN THE X
055185,000153: # * +16 FOR MOON * CORRESPONDING TO ONE PERIOD.
|
|
Page 1265 |
055187,000155: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
055188,000156:
055189,000157: # DEBRIS -
055190,000158: # PARAMETERS WHICH MAY BE OF USE -
055191,000159: # * SCALE FACTOR *
055192,000160: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055193,000161: # --------*--------------* -----------------------
055194,000162: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
055195,000163: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
055196,000164: # * +27 FOR MOON *
055197,000165: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
055198,000166: # * -20 FOR MOON *
055199,000167: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
055200,000168: # * *TAU. OF LESS THAN ONE PERIOD.
055201,000169:
055202,000170: # PARAMETERS OF NO USE -
055203,000171: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
055204,000172:
|
|
Page 1266 |
055206,000174: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
055207,000175: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
055208,000176: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
055209,000177:
055210,000178: # FUNCTIONAL DESCRIPTION -
055211,000179: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
055212,000180: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
055213,000181: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
055214,000182: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
055215,000183: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
055216,000184: # UTILIZED IN THE COMPUTATION.
055217,000185:
055218,000186: # THE RESTRICTIONS ARE -
055219,000187: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
055220,000188: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
055221,000189: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
055222,000190: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
055223,000191: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
055224,000192: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
055225,000193: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
055226,000194:
055227,000195: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
055228,000196: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
055229,000197: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
055230,000198:
055231,000199: # REFERENCES -
055232,000200: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP - SECTION 5.5, SGA MEMO 67-8,
055233,000201: # SGA MEMO 67-4.
055234,000202:
055235,000203: # INPUT - ERASABLE INITIALIZATION REQUIRED
055236,000204: # * SCALE FACTOR *
055237,000205: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055238,000206: # --------*--------------* -----------------------
055239,000207: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
055240,000208: # * +27 FOR MOON *
055241,000209: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
055242,000210: # * +27 FOR MOON *
055243,000211: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
055244,000212: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
055245,000213: # * *RESPECTIVELY, IS THE CENTRAL BODY
055246,000214: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
055247,000215: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
|
|
Page 1267 |
055249,000217: # * *COGA IS TO BE USED BY LAMBERT
055250,000218: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
055251,000219: # *IGNORED IF GUESSW IS SET.
055252,000220: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
055253,000221: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
055254,000222: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
055255,000223: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
055256,000224: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
055257,000225: # * *AT R1VEC.
055258,000226:
055259,000227: # SUBROUTINES CALLED -
055260,000228: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
055261,000229:
055262,000230: # CALLING SEQUENCE AND NORMAL EXIT MODES -
055263,000231: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055264,000232: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
055265,000233: # IN MPAC IF VTARGTAG WAS ZERO
055266,000234: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
055267,000235: # L+3 SOLNSW
055268,000236: # L+4 LAMABORT
055269,000237:
055270,000238: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
055271,000239: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
055272,000240:
055273,000241: # ABORT EXIT MODES -
055274,000242: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
055275,000243: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
055276,000244: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
055277,000245: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
055278,000246: # 1-CSTH 360 DEGREES.
055279,000247: # DSU BMN
055280,000248: # ONEBIT
055281,000249: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
055282,000250: # DLOAD DAD
055283,000251: # TDESIRED
055284,000252: # SOMETIME
055285,000253: # STCALL TDESIRED INCREASE TDESIRED
055286,000254: # LAMBERT
055287,000255:
055288,000256: # OUTPUT -
055289,000257: # * SCALE FACTOR *
055290,000258: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
|
|
Page 1268 |
055292,000260: # --------*--------------* -----------------------
055293,000261: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
055294,000262: # * +5 FOR MOON *PROBLEM.
055295,000263: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
055296,000264: # * +5 FOR MOON *
055297,000265: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
055298,000266: # * *SOLUTION EXISTS.
055299,000267:
055300,000268: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
055301,000269:
055302,000270: # DEBRIS -
055303,000271: # PARAMETERS WHICH MAY BE OF USE -
055304,000272: # * SCALE FACTOR *
055305,000273: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055306,000274: # --------*--------------* -----------------------
055307,000275: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
055308,000276: # CSTH * +1 *DP COSINE OF ANGLE
055309,000277: # 1-CSTH * +2 *DP 1-CSTH
055310,000278: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
055311,000279: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
055312,000280: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
055313,000281: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
055314,000282: # * +27 FOR MOON *
055315,000283: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
055316,000284: # U2 * +1 *DP UNIT VECTOR OF R2VEC
055317,000285:
055318,000286: # PARAMETERS OF NO USE
055319,000287: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
055320,000288: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
055321,000289:
|
|
Page 1269 |
055323,000291: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
055324,000292: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
055325,000293: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
055326,000294:
055327,000295: # FUNCTIONAL DESCRIPTION -
055328,000296: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
055329,000297: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
055330,000298: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
055331,000299: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
055332,000300: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
055333,000301: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
055334,000302:
055335,000303: # THE RESTRICTIONS ARE -
055336,000304: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
055337,000305: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
055338,000306: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
055339,000307: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
055340,000308:
055341,000309: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
055342,000310:
055343,000311: # REFERENCES -
055344,000312: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
055345,000313:
055346,000314: # INPUT - ERASABLE INITIALIZATION REQUIRED
055347,000315: # * SCALE FACTOR *
055348,000316: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055349,000317: # --------*--------------* -----------------------
055350,000318: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
055351,000319: # * +27 FOR MOON *
055352,000320: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
055353,000321: # * +5 FOR MOON *
055354,000322: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
055355,000323: # CSTH * +1 *DP COSINE OF THE ANGLE
055356,000324: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
055357,000325: # * *IS TO BE COMPUTED ALSO.
055358,000326: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
055359,000327: # * *RESPECTIVELY, IS THE CENTRAL BODY.
055360,000328:
055361,000329: # SUBROUTINES CALLED -
|
|
Page 1270 |
055363,000331: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
055364,000332:
055365,000333: # CALLING SEQUENCE AND NORMAL EXIT MODES -
055366,000334: # IF ONLY TIME IS DESIRED AS OUTPUT -
055367,000335: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055368,000336: # L+1 RVSW
055369,000337: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
055370,000338: # L+3 ... CONTINUE
055371,000339:
055372,000340: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
055373,000341: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055374,000342: # L+1 RVSW
055375,000343: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
055376,000344: # THE INITIAL VELOCITY VECTOR IN MPAC.
055377,000345: # L+3 STOVL NEWVVEC
055378,000346: # L+4 STADR
055379,000347: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
055380,000348: # L+6 ... CONTINUE
055381,000349:
055382,000350: # ABORT EXIT MODES -
055383,000351: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
055384,000352: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
055385,000353:
055386,000354: # OUTPUT -
055387,000355: # * SCALE FACTOR *
055388,000356: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055389,000357: # --------*--------------* -----------------------
055390,000358: # T(30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
055391,000359: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
055392,000360: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
055393,000361: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
055394,000362: # * *CLEAR IF NOT.
055395,000363:
055396,000364: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
055397,000365: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
055398,000366: # MPAC +5* +5 FOR MOON *
055399,000367: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
055400,000368: # * +27 FOR MOON *
055401,000369:
055402,000370: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
|
|
Page 1271 |
055404,000372:
055405,000373: # DEBRIS -
055406,000374: # PARAMETERS WHICH MAY BE OF USE -
055407,000375: # * SCALE FACTOR *
055408,000376: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055409,000377: # --------*--------------* -----------------------
055410,000378: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
055411,000379: # * +27 FOR MOON *
055412,000380: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
055413,000381: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
055414,000382: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
055415,000383: # UR1 * +1 *DP UNIT VECTOR OF RVEC
055416,000384: # U2 * +1 *DP UNIT VECTOR OF VVEC
055417,000385: # UN * +1 *DP UNIT VECTOR OF UR1*U2
055418,000386:
055419,000387: # PARAMETERS OF NO USE -
055420,000388: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
055421,000389: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
055422,000390:
|
|
Page 1272 |
055424,000392: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
055425,000393: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
055426,000394: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
055427,000395:
055428,000396: # FUNCTIONAL DESCRIPTION -
055429,000397: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
055430,000398: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
055431,000399: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
055432,000400: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
055433,000401: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
055434,000402: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
055435,000403:
055436,000404: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
055437,000405: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
055438,000406:
055439,000407: # THE RESTRICTIONS ARE -
055440,000408: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
055441,000409: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
055442,000410: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
055443,000411: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
055444,000412: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
055445,000413: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
055446,000414: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
055447,000415:
055448,000416: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
055449,000417:
055450,000418: # REFERENCES -
055451,000419: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
055452,000420:
055453,000421: # INPUT - ERASABLE INITIALIZATION REQUIRED
055454,000422: # * SCALE FACTOR *
055455,000423: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055456,000424: # --------*--------------* -----------------------
055457,000425: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
055458,000426: # * +27 FOR MOON *
055459,000427: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
055460,000428: # * +5 FOR MOON *
055461,000429: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
055462,000430: # * +27 FOR MOON *COMPUTED.
055463,000431: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
055464,000432: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
|
|
Page 1273 |
055466,000434: # * *SINGLE-VALUED PROBLEM.
055467,000435: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
055468,000436: # * *RESPECTIVELY, IS THE CENTRAL BODY.
055469,000437: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
055470,000438: # * *IS TO BE COMPUTED ALSO.
055471,000439:
055472,000440: # SUBROUTINES CALLED -
055473,000441: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
055474,000442:
055475,000443: # CALLING SEQUENCE AND NORMAL EXIT MODES -
055476,000444: # IF ONLY TIME IS DESIRED AS OUTPUT -
055477,000445: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055478,000446: # L+1 RVSW
055479,000447: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
055480,000448: # L+3 ... CONTINUE
055481,000449:
055482,000450: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
055483,000451: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055484,000452: # L+1 RVSW
055485,000453: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
055486,000454: # THE INITIAL VELOCITY VECTOR IN MPAC.
055487,000455: # L+3 STOVL NEWVVEC
055488,000456: # L+4 STADR
055489,000457: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
055490,000458: # L+6 ... CONTINUE
055491,000459:
055492,000460: # ABORT EXIT MODES -
055493,000461: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
055494,000462: # TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
055495,000463:
055496,000464: # OUTPUT -
055497,000465: # * SCALE FACTOR *
055498,000466: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055499,000467: # --------*--------------* -----------------------
055500,000468: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
055501,000469: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
055502,000470: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
055503,000471: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
055504,000472: # * *CLEAR IF NOT.
055505,000473: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
|
|
Page 1274 |
055507,000475: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
055508,000476: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
055509,000477: # * *APOCENTER.
055510,000478: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
055511,000479: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
055512,000480: # *MINUS-18, THE SWITCH IS CLEAR.
055513,000481:
055514,000482: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
055515,000483: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
055516,000484: # MPAC +5* +5 FOR MOON *
055517,000485: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
055518,000486: # * +27 FOR MOON *
055519,000487:
055520,000488: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
055521,000489:
055522,000490: # DEBRIS -
055523,000491: # PARAMETERS WHICH MAY BE OF USE -
055524,000492: # * SCALE FACTOR *
055525,000493: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055526,000494: # --------*--------------* -----------------------
055527,000495: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
055528,000496: # * +27 FOR MOON *
055529,000497: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
055530,000498: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
055531,000499: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
055532,000500: # UR1 * +1 *DP UNIT VECTOR OF RVEC
055533,000501: # U2 * +1 *DP UNIT VECTOR OF VVEC
055534,000502: # UN * +1 *DP UNIT VECTOR OF UR1*U2
055535,000503: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
055536,000504: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
055537,000505:
055538,000506: # PARAMETERS OF NO USE -
055539,000507: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
055540,000508: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
055541,000509:
055542,000510:
|
|
Page 1275 |
055544,000512: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
055545,000513: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
055546,000514: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
055547,000515:
055548,000516: # FUNCTIONAL DESCRIPTION -
055549,000517: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
055550,000518: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
055551,000519: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
055552,000520: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
055553,000521: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
055554,000522:
055555,000523: # THE RESTRICTIONS ARE -
055556,000524: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
055557,000525: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
055558,000526: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
055559,000527: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
055560,000528:
055561,000529: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
055562,000530:
055563,000531: # REFERENCES -
055564,000532: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
055565,000533:
055566,000534: # INPUT - ERASABLE INITIALIZATION REQUIRED
055567,000535: # * SCALE FACTOR *
055568,000536: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055569,000537: # --------*--------------* -----------------------
055570,000538: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
055571,000539: # * +27 FOR MOON *
055572,000540: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
055573,000541: # * +5 FOR MOON *
055574,000542: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
055575,000543: # * *RESPECTIVELY, IS THE CENTRAL BODY.
055576,000544:
055577,000545: # SUBROUTINES CALLED -
055578,000546: # PARAM, GEOM
055579,000547:
055580,000548: # CALLING SEQUENCE AND NORMAL EXIT MODES -
|
|
Page 1276 |
055582,000550: # IF ONLY TIME IS DESIRED AS OUTPUT -
055583,000551: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055584,000552: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
055585,000553: # L+2 STODL APOAPSE
055586,000554: # L+3 0D
055587,000555: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
055588,000556: # L+5 ... CONTINUE
055589,000557:
055590,000558: # OUTPUT -
055591,000559: # * SCALE FACTOR *
055592,000560: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055593,000561: # --------*--------------* -----------------------
055594,000562: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
055595,000563: # * +27 FOR MOON *
055596,000564: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
055597,000565: # * +27 FOR MOON *
055598,000566: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
055599,000567:
055600,000568: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
055601,000569:
055602,000570: # DEBRIS -
055603,000571: # PARAMETERS WHICH MAY BE OF USE -
055604,000572: # * SCALE FACTOR *
055605,000573: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
055606,000574: # --------*--------------* -----------------------
055607,000575: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
055608,000576: # * +27 FOR MOON *
055609,000577: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
055610,000578: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
055611,000579: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
055612,000580: # UR1 * +1 *DP UNIT VECTOR OF RVEC
055613,000581: # U2 * +1 *DP UNIT VECTOR OF VVEC
055614,000582: # UN * +1 *DP UNIT VECTOR OF UR1*U2
055615,000583: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
055616,000584: # * +5 FOR MOON *
055617,000585:
055618,000586: # PARAMETERS OF NO USE -
055619,000587: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
055620,000588: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
055621,000589:
055622,000590: 12,2000 SETLOC CONICS
|
|
Page 1277 |
055624,000592: 12,2000 BANK
055625,000593:
055626,000594: 12,2042 COUNT 12/CONIC
055627,000595:
055628,000596: 12,2042 E5,1723 EBANK= UR1
055629,000597: 12,2042 40001 KEPLERN SETPD BOV
055630,000598: 12,2043 00001 0
055631,000599: 12,2044 24045 +1
055632,000600: 12,2045 77773 VLOAD*
055633,000601: 12,2046 11740 MUTABLE,1
055634,000602: 12,2047 24017 STOVL 14D
055635,000603: 12,2050 01503 RRECT
055636,000604: 12,2051 66256 UNIT SSP
055637,000605: 12,2052 00027 ITERCTR
055638,000606: 12,2053 00024 20D
055639,000607: 12,2054 16647 STODL URRECT
055640,000608: 12,2055 00045 36D
055641,000609: 12,2056 24041 STOVL R1
055642,000610: 12,2057 01503 RRECT
055643,000611: 12,2060 76441 DOT SL1R
055644,000612: 12,2061 01511 VRECT
055645,000613: 12,2062 76405 DMP SL1R
055646,000614: 12,2063 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
055647,000615: 12,2064 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
055648,000616:
055649,000617: 12,2065 01511 VRECT
055650,000618: 12,2066 57236 VSQ DMPR
055651,000619: 12,2067 00017 1/MU # 1/MU (-34 OR -28)
055652,000620: 12,2070 52405 DMP SL3
055653,000621: 12,2071 00041 R1
055654,000622: 12,2072 61425 DSU ROUND
055655,000623: 12,2073 11610 D1/64
055656,000624: 12,2074 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
055657,000625:
055658,000626: 12,2075 74421 BDSU SR1R
055659,000627: 12,2076 11610 D1/64
055660,000628: 12,2077 77671 DDV
055661,000629: 12,2100 00041 R1
055662,000630: 12,2101 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
055663,000631:
055664,000632: 12,2102 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
055665,000633: 12,2103 24112 1REV
055666,000634: 12,2104 11626 -50SC # -50SC (+12)
055667,000635: 12,2105 40071 DDV BOV
055668,000636: 12,2106 00011 ALPHA
055669,000637: 12,2107 24116 STOREMAX
055670,000638: 12,2110 52166 SQRT GOTO
055671,000639: 12,2111 24116 STOREMAX
|
|
Page 1278 |
055673,000641: 12,2112 55366 1REV SQRT BDDV
055674,000642: 12,2113 11630 2PISC # 2PISC (+6)
055675,000643: 12,2114 77600 BOV
055676,000644: 12,2115 24116 STOREMAX
055677,000645: 12,2116 00013 STOREMAX STORE XMAX
055678,000646: 12,2117 65205 DMP PDDL
055679,000647: 12,2120 00023 1/ROOTMU
055680,000648: 12,2121 00011 ALPHA
055681,000649: 12,2122 65301 NORM PDDL
055682,000650: 12,2123 00047 X1
055683,000651: 12,2124 56257 SL* DDV
055684,000652: 12,2125 20173 0 -6,1
055685,000653: 12,2126 50000 BOV BMN
055686,000654: 12,2127 24143 MODDONE
055687,000655: 12,2130 24143 MODDONE # MPAC=PERIOD
055688,000656: 12,2131 51525 PERIODCH PDDL ABS # 0D=PERIOD
055689,000657: 12,2132 02312 TAU.
055690,000658: 12,2133 50025 DSU BMN
055691,000659: 12,2134 00001 0D
055692,000660: 12,2135 24143 MODDONE
055693,000661: 12,2136 77765 SIGN
055694,000662: 12,2137 02312 TAU.
055695,000663: 12,2140 16312 STODL TAU.
055696,000664: 12,2141 77650 GOTO
055697,000665: 12,2142 24131 PERIODCH
055698,000666: 12,2143 71201 MODDONE SETPD DLOAD
055699,000667: 12,2144 00001 0
055700,000668: 12,2145 02306 XKEPNEW
055701,000669: 12,2146 00025 STORE X
055702,000670: 12,2147 53165 SIGN BZE
055703,000671: 12,2150 02312 TAU.
055704,000672: 12,2151 24320 BADX
055705,000673: 12,2152 51440 BMN ABS
055706,000674: 12,2153 24320 BADX
055707,000675: 12,2154 51025 DSU BPL
055708,000676: 12,2155 00013 XMAX
055709,000677: 12,2156 24320 BADX
055710,000678: 12,2157 51145 STORBNDS DLOAD BPL
055711,000679: 12,2160 02312 TAU.
055712,000680: 12,2161 24170 STOREMIN
055713,000681: 12,2162 57545 DLOAD DCOMP
055714,000682: 12,2163 00013 XMAX
055715,000683: 12,2164 14015 STODL XMIN
055716,000684: 12,2165 11566 KEPZERO
055717,000685: 12,2166 34013 STCALL XMAX
055718,000686: 12,2167 24173 DXCOMP
055719,000687: 12,2170 77745 STOREMIN DLOAD
055720,000688: 12,2171 11566 KEPZERO
055721,000689: 12,2172 00015 STORE XMIN
055722,000690: 12,2173 57345 DXCOMP DLOAD DMPR
|
|
Page 1279 |
055724,000692: 12,2174 02312 TAU.
055725,000693: 12,2175 11621 BEE22
055726,000694: 12,2176 77646 ABS
055727,000695: 12,2177 15350 STODL EPSILONT
055728,000696: 12,2200 01553 XPREV
055729,000697: 12,2201 77621 XDIFF BDSU
055730,000698: 12,2202 00025 X
055731,000699: 12,2203 02643 STORE DELX
055732,000700:
055733,000701: 12,2204 63545 KEPLOOP DLOAD DSQ
055734,000702: 12,2205 00025 X # X=XKEP
055735,000703: 12,2206 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
055736,000704: 12,2207 00047 X1
055737,000705: 12,2210 53605 DMP SRR*
055738,000706: 12,2211 00011 ALPHA
055739,000707: 12,2212 21573 0 -6,1
055740,000708: 12,2213 34031 STCALL XI # XI=ALPHA XSQ (+6)
055741,000709: 12,2214 24433 DELTIME
055742,000710: 12,2215 44200 BOV BDSU
055743,000711: 12,2216 24326 TIMEOVFL # UNLIKELY
055744,000712: 12,2217 02312 TAU.
055745,000713: 12,2220 02645 STORE DELT # DELT=DELINDEP
055746,000714: 12,2221 44246 ABS BDSU
055747,000715: 12,2222 01350 EPSILONT
055748,000716: 12,2223 71244 BPL DLOAD
055749,000717: 12,2224 24346 KEPCONVG
055750,000718: 12,2225 00037 T
055751,000719: 12,2226 60225 DSU NORM
055752,000720: 12,2227 01551 TC
055753,000721: 12,2230 00047 X1
055754,000722: 12,2231 60325 PDDL NORM
055755,000723: 12,2232 02643 DELX
055756,000724: 12,2233 00050 X2
055757,000725: 12,2234 41260 XSU,1 DMP
055758,000726: 12,2235 00047 X2
055759,000727: 12,2236 02645 DELT
055760,000728: 12,2237 56257 SLR* DDV
055761,000729: 12,2240 21202 1,1
055762,000730: 12,2241 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
055763,000731: 12,2242 71244 BPL DLOAD
055764,000732: 12,2243 24264 POSDELX
055765,000733: 12,2244 00025 X
055766,000734: 12,2245 00013 STORE XMAX # MOVE MAX BOUND IN
055767,000735: 12,2246 45221 BDSU DSU # PL AT 0
055768,000736: 12,2247 00015 XMIN
055769,000737: 12,2250 51000 BOV BPL
055770,000738: 12,2251 24256 NDXCHNGE
055771,000739: 12,2252 24256 NDXCHNGE
055772,000740: 12,2253 52145 DLOAD GOTO
|
|
Page 1280 |
055774,000742: 12,2254 00001 0D
055775,000743: 12,2255 24276 NEWDELX
055776,000744:
055777,000745: 12,2256 45345 NDXCHNGE DLOAD DSU
055778,000746: 12,2257 00015 XMIN
055779,000747: 12,2260 00025 X
055780,000748: 12,2261 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
055781,000749: 12,2262 11624 DP9/10
055782,000750: 12,2263 24276 NEWDELX
055783,000751:
055784,000752: 12,2264 77745 POSDELX DLOAD
055785,000753: 12,2265 00025 X
055786,000754: 12,2266 00015 STORE XMIN # MOVE MIN BOUND IN
055787,000755: 12,2267 45221 BDSU DSU # PL AT 0
055788,000756: 12,2270 00013 XMAX
055789,000757: 12,2271 50000 BOV BMN
055790,000758: 12,2272 24312 PDXCHNGE
055791,000759: 12,2273 24312 PDXCHNGE
055792,000760: 12,2274 77745 DLOAD
055793,000761: 12,2275 00001 0D
055794,000762: 12,2276 02643 NEWDELX STORE DELX
055795,000763: 12,2277 43254 BZE DAD
055796,000764: 12,2300 24346 KEPCONVG
055797,000765: 12,2301 00025 X
055798,000766: 12,2302 14025 STODL X
055799,000767: 12,2303 00037 T
055800,000768: 12,2304 01551 STORE TC
055801,000769: 12,2305 46034 BRNCHCTR RTB BHIZ
055802,000770: 12,2306 24656 CHECKCTR
055803,000771: 12,2307 24346 KEPCONVG
055804,000772: 12,2310 77650 GOTO
055805,000773: 12,2311 24204 KEPLOOP # ITERATE
055806,000774:
055807,000775: 12,2312 45345 PDXCHNGE DLOAD DSU
055808,000776: 12,2313 00013 XMAX
055809,000777: 12,2314 00025 X
055810,000778: 12,2315 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
055811,000779: 12,2316 11624 DP9/10
055812,000780: 12,2317 24276 NEWDELX
055813,000781:
055814,000782: 12,2320 70545 BADX DLOAD SR1
055815,000783: 12,2321 00013 XMAX
055816,000784: 12,2322 77765 SIGN
055817,000785: 12,2323 02312 TAU.
055818,000786: 12,2324 34025 STCALL X
055819,000787: 12,2325 24157 STORBNDS
|
|
Page 1281 |
055821,000789: 12,2326 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
055822,000790: 12,2327 00025 X
055823,000791: 12,2330 24344 NEGTOVFL
055824,000792: 12,2331 00013 STORE XMAX
055825,000793: 12,2332 70545 CMNTOVFL DLOAD SR1
055826,000794: 12,2333 02643 DELX
055827,000795: 12,2334 02643 STORE DELX
055828,000796: 12,2335 44254 BZE BDSU
055829,000797: 12,2336 02270 KEPRTN
055830,000798: 12,2337 00025 X
055831,000799: 12,2340 14025 STODL X
055832,000800: 12,2341 01551 TC
055833,000801: 12,2342 34037 STCALL T
055834,000802: 12,2343 24305 BRNCHCTR
055835,000803: 12,2344 34015 NEGTOVFL STCALL XMIN
055836,000804: 12,2345 24332 CMNTOVFL
055837,000805: 12,2346 44545 KEPCONVG DLOAD SR4R
055838,000806: 12,2347 00041 R1
055839,000807: 12,2350 74225 DSU VXSC
055840,000808: 12,2351 00035 XSQC(XI)
055841,000809: 12,2352 02647 URRECT
055842,000810: 12,2353 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
055843,000811: 12,2354 00025 X
055844,000812: 12,2355 60316 DSQ NORM
055845,000813: 12,2356 00047 X1
055846,000814: 12,2357 57275 DMPR DMPR
055847,000815: 12,2360 00023 1/ROOTMU
055848,000816: 12,2361 00025 X
055849,000817: 12,2362 53605 DMP SRR*
055850,000818: 12,2363 00033 S(XI)
055851,000819: 12,2364 21572 0 -7,1
055852,000820: 12,2365 77621 BDSU
055853,000821: 12,2366 00037 T
055854,000822: 12,2367 74352 SL1 VXSC
055855,000823: 12,2370 01511 VRECT
055856,000824: 12,2371 53372 VSL1 VAD # PL AT 0
055857,000825: 12,2372 77712 VSL4
055858,000826: 12,2373 01535 STORE RCV # RCV (+29 OR +27)
055859,000827:
055860,000828: 12,2374 60246 ABVAL NORM
055861,000829: 12,2375 00050 X2
055862,000830: 12,2376 16655 STODL RCNORM
055863,000831: 12,2377 00031 XI
055864,000832: 12,2400 45275 DMPR DSU
055865,000833: 12,2401 00033 S(XI)
055866,000834: 12,2402 11606 D1/128
055867,000835: 12,2403 76405 DMP SL1R
055868,000836: 12,2404 00021 ROOTMU
055869,000837: 12,2405 53605 DMP SLR*
|
|
Page 1282 |
055871,000839: 12,2406 00025 X
055872,000840: 12,2407 56601 0 -3,2
055873,000841: 12,2410 74271 DDV VXSC
055874,000842: 12,2411 02655 RCNORM
055875,000843: 12,2412 02647 URRECT
055876,000844: 12,2413 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
055877,000845: 12,2414 00035 XSQC(XI) # OR +13) PL AT 6
055878,000846: 12,2415 56257 SLR* DDV
055879,000847: 12,2416 56602 0 -4,2
055880,000848: 12,2417 02655 RCNORM
055881,000849: 12,2420 74221 BDSU VXSC
055882,000850: 12,2421 11622 D1/256
055883,000851: 12,2422 01511 VRECT
055884,000852: 12,2423 42455 VAD VSL8
055885,000853: 12,2424 77626 STADR # PL AT 0
055886,000854: 12,2425 62234 STODL VCV # VCV (+7 OR +5)
055887,000855: 12,2426 00037 T
055888,000856: 12,2427 15551 STODL TC
055889,000857: 12,2430 00025 X
055890,000858: 12,2431 35553 STCALL XPREV
055891,000859: 12,2432 02270 KEPRTN
055892,000860:
|
|
Page 1283 |
055894,000862: 12,2433 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
055895,000863: 12,2434 07171 TC POLY
055896,000864: 12,2435 00010 DEC 8 B-14
055897,000865: 12,2436 02525 12526 2DEC .083333334
055898,000866:
055899,000867: 12,2440 67356 75666 2DEC -.266666684
055900,000868:
055901,000869: 12,2442 15001 23771 2DEC .406349155
055902,000870:
055903,000871: 12,2444 64342 43674 2DEC -.361198675
055904,000872:
055905,000873: 12,2446 06563 04645 2DEC .210153242
055906,000874:
055907,000875: 12,2450 75173 52672 2DEC -.086221951
055908,000876:
055909,000877: 12,2452 00656 14331 2DEC .026268812
055910,000878:
055911,000879: 12,2454 77633 40512 2DEC -.006163316
055912,000880:
055913,000881: 12,2456 00023 11210 2DEC .001177342
055914,000882:
055915,000883: 12,2460 77774 67506 2DEC -.000199055
055916,000884:
055917,000885: 12,2462 06006 TC INTPRET
055918,000886: 12,2463 14033 STODL S(XI)
055919,000887: 12,2464 00031 XI
055920,000888: 12,2465 77776 EXIT
055921,000889: 12,2466 07171 TC POLY
055922,000890: 12,2467 00010 DEC 8 B-14
055923,000891: 12,2470 01000 00000 2DEC .031250001
055924,000892:
055925,000893: 12,2472 72525 52506 2DEC -.166666719
055926,000894:
055927,000895: 12,2474 13301 15337 2DEC .355555413
055928,000896:
055929,000897: 12,2476 62776 54733 2DEC -.406347410
055930,000898:
055931,000899: 12,2500 11176 13267 2DEC .288962094
055932,000900:
055933,000901: 12,2502 73410 51674 2DEC -.140117894
055934,000902:
055935,000903: 12,2504 01446 33641 2DEC .049247387
055936,000904:
055937,000905: 12,2506 77451 65233 2DEC -.013081923
055938,000906:
055939,000907: 12,2510 00055 37266 2DEC .002806389
055940,000908:
055941,000909: 12,2512 77767 52336 2DEC -.000529414
055942,000910:
055943,000911: 12,2514 06006 TC INTPRET
|
|
Page 1284 |
055945,000913: 12,2515 53605 DMP SRR* # PL AT 0
055946,000914: 12,2516 00001 0D
055947,000915: 12,2517 21574 0 -5,1
055948,000916: 12,2520 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
055949,000917: 12,2521 72405 DMP SL1
055950,000918: 12,2522 00043 KEPC1
055951,000919: 12,2523 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
055952,000920: 12,2524 45565 TPMODE # PL AT 0,3
055953,000921: 12,2525 53605 DMP SRR*
055954,000922: 12,2526 00033 S(XI)
055955,000923: 12,2527 21574 0 -5,1
055956,000924: 12,2530 72405 DMP SL1
055957,000925: 12,2531 00045 KEPC2
055958,000926: 12,2532 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
055959,000927: 12,2533 45565 TPMODE
055960,000928: 12,2534 00041 R1
055961,000929: 12,2535 76261 SR TAD # PL AT 3
055962,000930: 12,2536 20607 6
055963,000931: 12,2537 41301 NORM DMP # TO PRESERVE SIGNIF.
055964,000932: 12,2540 00047 X1
055965,000933: 12,2541 00025 X
055966,000934: 12,2542 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
055967,000935: 12,2543 20576 0 -3,1
055968,000936: 12,2544 57232 SL4R DMPR
055969,000937: 12,2545 00023 1/ROOTMU
055970,000938: 12,2546 00037 STORE T
055971,000939: 12,2547 77616 RVQ
055972,000940:
|
|
Page 1285 |
055974,000942: 12,2550 71214 ITERATOR BONCLR DLOAD
055975,000943: 12,2551 00614 SLOPESW
055976,000944: 12,2552 24620 FIRSTIME
055977,000945: 12,2553 00037 DEP
055978,000946: 12,2554 60225 DSU NORM
055979,000947: 12,2555 02764 DEPREV
055980,000948: 12,2556 00047 X1
055981,000949: 12,2557 60325 PDDL NORM
055982,000950: 12,2560 00015 DELINDEP
055983,000951: 12,2561 00050 X2
055984,000952: 12,2562 41260 XSU,1 DMP
055985,000953: 12,2563 00047 X2
055986,000954: 12,2564 02762 DELDEP
055987,000955: 12,2565 56257 SLR* DDV # PL UP 2
055988,000956: 12,2566 21202 1,1
055989,000957: 12,2567 43142 SR1 BOFF
055990,000958: 12,2570 04351 ORDERSW
055991,000959: 12,2571 24574 SGNCHECK
055992,000960: 12,2572 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
055993,000961: 12,2573 02762 DELDEP # DISREGARD IT TO FIND MIN.
055994,000962:
055995,000963: 12,2574 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
055996,000964: 12,2575 24632 POSDEL
055997,000965: 12,2576 43145 DLOAD BON
055998,000966: 12,2577 03775 INDEP
055999,000967: 12,2600 04311 ORDERSW
056000,000968: 12,2601 24603 MINCHECK
056001,000969: 12,2602 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
056002,000970:
056003,000971: 12,2603 45221 MINCHECK BDSU DSU
056004,000972: 12,2604 00011 MIN
056005,000973: 12,2605 51000 BOV BPL
056006,000974: 12,2606 24612 MODNGDEL
056007,000975: 12,2607 24612 MODNGDEL
056008,000976: 12,2610 77650 GOTO
056009,000977: 12,2611 24644 DELOK
056010,000978:
056011,000979: 12,2612 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
056012,000980: 12,2613 00011 MIN
056013,000981: 12,2614 03775 INDEP
056014,000982: 12,2615 52005 DMP GOTO
056015,000983: 12,2616 11624 DP9/10
056016,000984: 12,2617 24646 NEWDEL
056017,000985:
056018,000986: 12,2620 41345 FIRSTIME DLOAD DMP
056019,000987: 12,2621 00011 MIN
056020,000988: 12,2622 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
056021,000989: 12,2623 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
|
|
Page 1286 |
056023,000991: 12,2624 00017 MAX
056024,000992: 12,2625 00051 TWEEKIT
056025,000993: 12,2626 77625 DSU
056026,000994: 12,2627 52165 SIGN GOTO
056027,000995: 12,2630 02762 DELDEP
056028,000996: 12,2631 24574 SGNCHECK
056029,000997:
056030,000998: 12,2632 43145 POSDEL DLOAD BON
056031,000999: 12,2633 03775 INDEP
056032,001000: 12,2634 04311 ORDERSW
056033,001001: 12,2635 24637 MAXCHECK
056034,001002: 12,2636 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
056035,001003:
056036,001004: 12,2637 45221 MAXCHECK BDSU DSU
056037,001005: 12,2640 00017 MAX
056038,001006: 12,2641 50000 BOV BMN
056039,001007: 12,2642 24650 MODPSDEL
056040,001008: 12,2643 24650 MODPSDEL
056041,001009: 12,2644 77745 DELOK DLOAD
056042,001010: 12,2645 00001 0D
056043,001011: 12,2646 00015 NEWDEL STORE DELINDEP
056044,001012: 12,2647 77616 RVQ
056045,001013:
056046,001014: 12,2650 45345 MODPSDEL DLOAD DSU
056047,001015: 12,2651 00017 MAX
056048,001016: 12,2652 03775 INDEP
056049,001017: 12,2653 52005 DMP GOTO
056050,001018: 12,2654 11624 DP9/10
056051,001019: 12,2655 24646 NEWDEL
056052,001020:
056053,001021: 12,2656 45017 CHECKCTR CS ONE
056054,001022: 12,2657 50120 INDEX FIXLOC
056055,001023: 12,2660 60026 AD ITERCTR
056056,001024: 12,2661 50120 INDEX FIXLOC
056057,001025: 12,2662 54026 TS ITERCTR
056058,001026: 12,2663 54154 TS MPAC
056059,001027: 12,2664 06030 TC DANZIG
056060,001028:
|
|
Page 1287 |
056062,001030: 12,2665 44545 NEWSTATE DLOAD SR4R
056063,001031: 12,2666 00041 R1
056064,001032: 12,2667 74225 DSU VXSC
056065,001033: 12,2670 00035 XSQC(XI)
056066,001034: 12,2671 02724 UR1
056067,001035: 12,2672 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
056068,001036: 12,2673 00025 X
056069,001037: 12,2674 60316 DSQ NORM
056070,001038: 12,2675 00047 X1
056071,001039: 12,2676 57275 DMPR DMPR
056072,001040: 12,2677 00023 1/ROOTMU
056073,001041: 12,2700 00025 X
056074,001042: 12,2701 53605 DMP SRR*
056075,001043: 12,2702 00033 S(XI)
056076,001044: 12,2703 21572 0 -7,1
056077,001045: 12,2704 77621 BDSU
056078,001046: 12,2705 00037 T
056079,001047: 12,2706 74352 SL1 VXSC
056080,001048: 12,2707 02746 VVEC
056081,001049: 12,2710 53372 VSL1 VAD # PL AT 0
056082,001050: 12,2711 41512 VSL4 PUSH
056083,001051: 12,2712 77646 ABVAL
056084,001052: 12,2713 77701 LAMENTER NORM
056085,001053: 12,2714 00047 X1
056086,001054: 12,2715 16722 STODL R2
056087,001055: 12,2716 00031 XI
056088,001056: 12,2717 45205 DMP DSU
056089,001057: 12,2720 00033 S(XI)
056090,001058: 12,2721 11606 D1/128
056091,001059: 12,2722 76405 DMP SL1R
056092,001060: 12,2723 00021 ROOTMU
056093,001061: 12,2724 53605 DMP SLR*
056094,001062: 12,2725 00025 X
056095,001063: 12,2726 21176 0 -3,1
056096,001064: 12,2727 74271 DDV VXSC
056097,001065: 12,2730 02722 R2
056098,001066: 12,2731 02724 UR1
056099,001067: 12,2732 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
056100,001068: 12,2733 00035 XSQC(XI)
056101,001069: 12,2734 56257 SLR* DDV
056102,001070: 12,2735 21175 0 -4,1
056103,001071: 12,2736 02722 R2
056104,001072: 12,2737 77621 BDSU
056105,001073: 12,2740 11622 D1/256
056106,001074: 12,2741 53361 VXSC VAD
056107,001075: 12,2742 02746 VVEC # PL AT 6
056108,001076: 12,2743 43412 VSL8 RVQ
056109,001077:
|
|
Page 1288 |
056111,001079: 04,2000 SETLOC CONICS1
056112,001080: 04,2000 BANK
056113,001081:
056114,001082: 04,3602 COUNT 04/CONIC
056115,001083: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
056116,001084: 04,3602 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
056117,001085: 04,3603 04000 00000 D1/8 2DEC 1.0 B-3
056118,001086:
056119,001087: 04,3605 00200 00000 D1/128 2DEC 1.0 B-7
056120,001088:
056121,001089: 04,3607 00400 00000 D1/64 2DEC 1.0 B-6
056122,001090:
056123,001091: 04,3611 10000 00000 D1/4 2DEC 1.0 B-2
056124,001092:
056125,001093: 04,3613 02000 00000 D1/16 2DEC 1.0 B-4
056126,001094:
056127,001095: 04,3615 01000 00000 D1/32 2DEC 1.0 B-5
056128,001096:
056129,001097: 04,3617 00020 00000 D1/1024 2DEC 1.0 B-10
056130,001098:
056131,001099: 04,3621 00100 00000 D1/256 2DEC 1.0 B-8
056132,001100:
056133,001101: 04,3623 34631 23146 DP9/10 2DEC .9
056134,001102:
056135,001103: 04,3625 04,3565 KEPZERO EQUALS LO6ZEROS
056136,001104: 04,3625 77467 77777 -50SC 2DEC -50.0 B-12
056137,001105:
056138,001106: 04,3627 03110 17665 2PISC 2DEC 6.28318530 B-6
056139,001107:
056140,001108: 04,3631 04,3614 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
056141,001109: 04,3631 04,3620 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
056142,001110: 04,3631 00000 00001 ONEBIT 2DEC 1.0 B-28
056143,001111:
056144,001112: 04,3633 37767 37737 COGUPLIM 2DEC .999511597
056145,001113:
056146,001114: 04,3635 40010 40040 COGLOLIM 2DEC -.999511597
056147,001115:
|
|
Page 1289 |
056149,001117: 12,2000 SETLOC CONICS
056150,001118: 12,2000 BANK
056151,001119:
056152,001120: 12,2744 COUNT 12/CONIC
056153,001121:
056154,001122: 12,2744 40220 TIMETHET STQ SETPD # PL AT 0
056155,001123: 12,2745 02712 RTNTT
056156,001124: 12,2746 00001 0
056157,001125: 12,2747 77600 BOV
056158,001126: 12,2750 24751 +1
056159,001127: 12,2751 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
056160,001128: 12,2752 02657 RVEC
056161,001129: 12,2753 02746 VVEC
056162,001130: 12,2754 77624 CALL
056163,001131: 12,2755 11637 PARAM
056164,001132: 12,2756 45000 BOV CALL
056165,001133: 12,2757 24776 COGAOVFL # PL AT 0
056166,001134: 12,2760 25001 GETX
056167,001135: 12,2761 43145 COMMNOUT DLOAD BON
056168,001136: 12,2762 00031 XI
056169,001137: 12,2763 04310 INFINFLG
056170,001138: 12,2764 25751 ABTCONIC
056171,001139: 12,2765 45014 CLEAR CALL
056172,001140: 12,2766 04273 COGAFLAG
056173,001141: 12,2767 24433 DELTIME
056174,001142: 12,2770 45014 BON CALL
056175,001143: 12,2771 03706 RVSW
056176,001144: 12,2772 02712 RTNTT
056177,001145: 12,2773 24665 NEWSTATE
056178,001146: 12,2774 77650 GOTO
056179,001147: 12,2775 02712 RTNTT
056180,001148:
056181,001149: 12,2776 77614 COGAOVFL SETGO
056182,001150: 12,2777 04033 COGAFLAG
056183,001151: 12,3000 25751 ABTCONIC
056184,001152: 04,3637 BANK 4
056185,001153: 04,2000 SETLOC CONICS1
056186,001154: 04,2000 BANK
056187,001155: 04,3637 COUNT* $$/CONIC
056188,001156: 04,3637 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
056189,001157: 04,3640 02755 RTNPRM
056190,001158: 04,3641 03665 NORMSW
056191,001159: 04,3642 77614 CLEAR
056192,001160: 04,3643 04273 COGAFLAG
056193,001161: 04,3644 45131 SSP CALL
056194,001162: 04,3645 02675 GEOMSGN
056195,001163: 04,3646 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
056196,001164: 04,3647 11702 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
056197,001165: 04,3650 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
|
|
Page 1290 |
056199,001167: 04,3651 56261 SR DDV
056200,001168: 04,3652 20606 5
056201,001169:
056202,001170: 04,3653 00045 36D
056203,001171: 04,3654 33775 STOVL* COGA
056204,001172: 04,3655 11740 MUTABLE,1
056205,001173: 04,3656 14017 STODL 1/MU
056206,001174: 04,3657 02722 MAGVEC2
056207,001175: 04,3660 60316 DSQ NORM
056208,001176: 04,3661 00047 X1
056209,001177: 04,3662 41275 DMPR DMP
056210,001178: 04,3663 00017 1/MU
056211,001179: 04,3664 00041 R1
056212,001180: 04,3665 77657 SRR*
056213,001181: 04,3666 21576 0 -3,1
056214,001182: 04,3667 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
056215,001183: 04,3670 11616 D1/32
056216,001184: 04,3671 16744 STODL R1A # R1A (+6) PL AT 0
056217,001185:
056218,001186: 04,3672 60205 DMP NORM
056219,001187: 04,3673 00045 36D
056220,001188: 04,3674 00047 X1
056221,001189: 04,3675 53605 DMP SR*
056222,001190: 04,3676 00045 36D
056223,001191: 04,3677 20575 0 -4,1
056224,001192: 04,3700 36742 STCALL P # P (+4)
056225,001193: 04,3701 02755 RTNPRM
056226,001194:
|
|
Page 1291 |
056228,001196: 04,3702 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
056229,001197: 04,3703 16714 STODL U2 # U2 (+1)
056230,001198: 04,3704 00045 36D
056231,001199: 04,3705 26722 STOVL MAGVEC2 # PL AT 0
056232,001200: 04,3706 77656 UNIT
056233,001201: 04,3707 02724 STORE UR1 # UR1 (+1)
056234,001202: 04,3710 72441 DOT SL1
056235,001203: 04,3711 02714 U2
056236,001204: 04,3712 77725 PDDL # OD=CSTH (+1) PL AT 2
056237,001205: 04,3713 00045 36D
056238,001206: 04,3714 24041 STOVL R1 # R1 (+29 OR +27)
056239,001207: 04,3715 02724 UR1
056240,001208: 04,3716 76435 VXV VSL1
056241,001209: 04,3717 02714 U2
056242,001210: 04,3720 75214 BON SIGN
056243,001211: 04,3721 03705 NORMSW
056244,001212: 04,3722 11734 HAVENORM
056245,001213: 04,3723 02675 GEOMSGN
056246,001214: 04,3724 40056 UNIT BOV
056247,001215: 04,3725 11732 COLINEAR
056248,001216: 04,3726 16676 UNITNORM STODL UN # UN (+1)
056249,001217: 04,3727 00045 36D
056250,001218: 04,3730 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
056251,001219: 04,3731 02675 GEOMSGN
056252,001220:
056253,001221: 04,3732 52162 COLINEAR VSR1 GOTO
056254,001222: 04,3733 11726 UNITNORM
056255,001223:
056256,001224: 04,3734 75246 HAVENORM ABVAL SIGN
056257,001225: 04,3735 02675 GEOMSGN
056258,001226: 04,3736 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
056259,001227:
|
|
Page 1292 |
056261,001229: 12,3001 BANK 12
056262,001230: 12,2000 SETLOC CONICS
056263,001231: 12,2000 BANK
056264,001232:
056265,001233: 12,3001 COUNT 12/CONIC
056266,001234:
056267,001235: 12,3001 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
056268,001236: 12,3002 00003 3
056269,001237: 12,3003 00052 S2
056270,001238: 12,3004 00001 1
056271,001239: 12,3005 77614 CLEAR
056272,001240: 12,3006 04276 360SW
056273,001241: 12,3007 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
056274,001242: 12,3010 02734 CSTH
056275,001243: 12,3011 44342 SR1 BDSU
056276,001244: 12,3012 11612 D1/4
056277,001245: 12,3013 54325 PDDL SRR # PL AT 4D
056278,001246: 12,3014 02732 SNTH
056279,001247: 12,3015 21607 6
056280,001248: 12,3016 77671 DDV # PL AT 2
056281,001249: 12,3017 77600 BOV
056282,001250: 12,3020 25134 360CHECK
056283,001251: 12,3021 41225 DSU DMP
056284,001252: 12,3022 03775 COGA # PL AT 0
056285,001253: 12,3023 40132 SL2R BOV
056286,001254: 12,3024 25134 360CHECK
056287,001255: 12,3025 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
056288,001256: 12,3026 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
056289,001257: 12,3027 00155 MPAC
056290,001258: 12,3030 02744 R1A
056291,001259: 12,3031 76202 SR4 TAD # PL AT 2
056292,001260: 12,3032 75440 BMN SQRT
056293,001261: 12,3033 25217 INFINITY
056294,001262: 12,3034 43306 ROUND DAD # PL AT 0D
056295,001263: 12,3035 61000 BOV TIX,2
056296,001264: 12,3036 25132 RESETX2
056297,001265: 12,3037 25025 WLOOP
056298,001266:
056299,001267: 12,3040 40065 BDDV BOV
056300,001268: 12,3041 11606 D1/128
056301,001269: 12,3042 25217 INFINITY
056302,001270: 12,3043 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
056303,001271: 12,3044 25217 INFINITY
056304,001272: 12,3045 77716 DSQ
056305,001273: 12,3046 41301 NORM DMP
056306,001274: 12,3047 00047 X1
056307,001275: 12,3050 02744 R1A
056308,001276: 12,3051 77457 SRR* EXIT
056309,001277: 12,3052 21567 0 -10D,1
|
|
Page 1293 |
056311,001279: 12,3053 07171 TC POLY
056312,001280: 12,3054 00005 DEC 5 B-14
056313,001281: 12,3055 20000 00000 2DEC .5
056314,001282:
056315,001283: 12,3057 72525 52471 2DEC -.166666770
056316,001284:
056317,001285: 12,3061 03146 15003 2DEC .100000392
056318,001286:
056319,001287: 12,3063 75556 45210 2DEC -.071401086
056320,001288:
056321,001289: 12,3065 01615 13553 2DEC .055503292
056322,001290:
056323,001291: 12,3067 76371 63777 2DEC -.047264098
056324,001292:
056325,001293: 12,3071 01232 27367 2DEC .040694204
056326,001294:
056327,001295: 12,3073 06006 TC INTPRET
056328,001296: 12,3074 76405 DMP SL1R # PL AT 0D
056329,001297: 12,3075 43006 PUSH BON
056330,001298: 12,3076 04316 360SW
056331,001299: 12,3077 25204 TRUE360X
056332,001300: 12,3100 60316 XCOMMON DSQ NORM
056333,001301: 12,3101 00047 X1
056334,001302: 12,3102 53605 DMP SRR*
056335,001303: 12,3103 02744 R1A
056336,001304: 12,3104 21565 0 -12D,1
056337,001305: 12,3105 14031 STODL XI # XI (+6)
056338,001306:
056339,001307: 12,3106 00041 R1
056340,001308: 12,3107 75542 SR1 SQRT
056341,001309: 12,3110 41306 ROUND DMP
056342,001310: 12,3111 77632 SL4R # PL AT 0
056343,001311: 12,3112 00025 STORE X # X (+17 OR +16)
056344,001312:
056345,001313: 12,3113 60316 DSQ NORM
056346,001314: 12,3114 00047 X1
056347,001315: 12,3115 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
056348,001316: 12,3116 02742 P
056349,001317: 12,3117 00041 R1
056350,001318: 12,3120 75452 SL3 SQRT
056351,001319: 12,3121 56405 DMP SL3R
056352,001320: 12,3122 03775 COGA
056353,001321: 12,3123 14043 STODL KEPC1
056354,001322: 12,3124 02744 R1A
056355,001323: 12,3125 43021 BDSU CLEAR
056356,001324: 12,3126 11610 D1/64
056357,001325: 12,3127 04270 INFINFLG
056358,001326: 12,3130 00045 STORE KEPC2
|
|
Page 1294 |
056360,001328: 12,3131 77616 RVQ
056361,001329:
056362,001330: 12,3132 77774 RESETX2 AXT,2
056363,001331: 12,3133 00003 3
056364,001332:
056365,001333: 12,3134 51001 360CHECK SETPD BPL
056366,001334: 12,3135 00001 0D
056367,001335: 12,3136 25141 INVRSEQN
056368,001336: 12,3137 77614 SET
056369,001337: 12,3140 04076 360SW
056370,001338:
056371,001339: 12,3141 75545 INVRSEQN DLOAD SQRT
056372,001340: 12,3142 02742 P
056373,001341: 12,3143 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
056374,001342: 12,3144 02732 SNTH
056375,001343: 12,3145 03775 COGA
056376,001344: 12,3146 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
056377,001345: 12,3147 02734 CSTH
056378,001346: 12,3150 43202 SR4 DAD
056379,001347: 12,3151 11616 D1/32
056380,001348: 12,3152 41225 DSU DMP # PL AT 2,0
056381,001349: 12,3153 55301 NORM BDDV
056382,001350: 12,3154 00047 X1
056383,001351: 12,3155 02732 SNTH
056384,001352: 12,3156 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
056385,001353: 12,3157 21174 0 -5,1
056386,001354: 12,3160 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
056387,001355: 12,3161 14043 STODL 34D
056388,001356: 12,3162 11614 D1/16
056389,001357: 12,3163 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
056390,001358: 12,3164 65234 RTB PDDL # PL AT 7
056391,001359: 12,3165 45565 TPMODE
056392,001360: 12,3166 02744 R1A
056393,001361: 12,3167 40405 DMP SR4
056394,001362: 12,3170 00043 34D
056395,001363: 12,3171 77771 TAD
056396,001364: 12,3172 75440 BMN SQRT # PL AT 4
056397,001365: 12,3173 25217 INFINITY
056398,001366: 12,3174 77615 DAD # PL AT 2
056399,001367: 12,3175 60304 TIX,2 NORM
056400,001368: 12,3176 25163 1/WLOOP
056401,001369: 12,3177 00047 X1
056402,001370: 12,3200 77665 BDDV
056403,001371: 12,3201 52057 SLR* GOTO # PL AT 0
056404,001372: 12,3202 21172 0 -7,1
056405,001373: 12,3203 25043 POLYCOEF
056406,001374:
|
|
Page 1295 |
056408,001376: 12,3204 50145 TRUE360X DLOAD BMN
056409,001377: 12,3205 02744 R1A
056410,001378: 12,3206 25217 INFINITY
056411,001379: 12,3207 60366 SQRT NORM
056412,001380: 12,3210 00047 X1
056413,001381: 12,3211 53665 BDDV SL*
056414,001382: 12,3212 11630 2PISC
056415,001383: 12,3213 20176 0 -3,1
056416,001384: 12,3214 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
056417,001385: 12,3215 77650 GOTO
056418,001386: 12,3216 25100 XCOMMON
056419,001387: 12,3217 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
056420,001388: 12,3220 00001 0 # INFINITY IS REQUIRED
056421,001389: 12,3221 25222 OVFLCLR
056422,001390: 12,3222 43414 OVFLCLR SET RVQ
056423,001391: 12,3223 04070 INFINFLG
056424,001392:
|
|
Page 1296 |
056426,001394: 12,3224 40220 LAMBERT STQ SETPD
056427,001395: 12,3225 02712 RTNLAMB
056428,001396: 12,3226 00001 0D
056429,001397: 12,3227 77600 BOV
056430,001398: 12,3230 25231 +1
056431,001399: 12,3231 76731 SSP VLOAD*
056432,001400: 12,3232 00027 ITERCTR
056433,001401: 12,3233 00024 20D
056434,001402: 12,3234 11740 MUTABLE,1
056435,001403: 12,3235 14017 STODL 1/MU
056436,001404: 12,3236 02673 TDESIRED
056437,001405: 12,3237 77675 DMPR
056438,001406: 12,3240 11615 BEE19
056439,001407: 12,3241 03777 STORE EPSILONL
056440,001408: 12,3242 77214 SET VLOAD
056441,001409: 12,3243 00474 SLOPESW
056442,001410: 12,3244 02657 R1VEC
056443,001411: 12,3245 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
056444,001412: 12,3246 02665 R2VEC # MPAC=R2VEC (+29 OR +27)
056445,001413: 12,3247 11702 GEOM
056446,001414: 12,3250 16732 STODL SNTH # 0D=CSTH (+1) PL AT 2
056447,001415: 12,3251 02722 MAGVEC2
056448,001416: 12,3252 65301 NORM PDDL # PL AT 4
056449,001417: 12,3253 00047 X1
056450,001418: 12,3254 00041 R1
056451,001419: 12,3255 56342 SR1 DDV # PL AT 2
056452,001420: 12,3256 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
056453,001421: 12,3257 20173 0 -6,1
056454,001422: 12,3260 77626 STADR
056455,001423: 12,3261 75043 STORE CSTH # CSTH (+1)
056456,001424: 12,3262 44342 SR1 BDSU
056457,001425: 12,3263 11612 D1/4
056458,001426: 12,3264 02736 STORE 1-CSTH # 1-CSTH (+2)
056459,001427:
056460,001428: 12,3265 53106 ROUND BZE
056461,001429: 12,3266 25473 360LAMB
056462,001430: 12,3267 65301 NORM PDDL # PL AT 4
056463,001431: 12,3270 00047 X1
056464,001432: 12,3271 00001 0D
056465,001433: 12,3272 56342 SR1 DDV # PL AT 2
056466,001434: 12,3273 75457 SL* SQRT
056467,001435: 12,3274 20176 0 -3,1
056468,001436: 12,3275 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
056469,001437: 12,3276 02732 SNTH
056470,001438: 12,3277 20607 6
056471,001439: 12,3300 43271 DDV DAD # PL AT 2
056472,001440: 12,3301 02736 1-CSTH
056473,001441: 12,3302 77626 STADR
056474,001442: 12,3303 77760 STORE COGAMAX
056475,001443: 12,3304 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
|
|
Page 1297 |
056477,001445: 12,3305 25312 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
056478,001446: 12,3306 25315 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
056479,001447: 12,3307 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
056480,001448: 12,3310 11634 COGUPLIM
056481,001449: 12,3311 25315 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
056482,001450: 12,3312 77745 UPLIM DLOAD
056483,001451: 12,3313 11634 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
056484,001452: 12,3314 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
056485,001453: 12,3315 77745 MAXCOGA DLOAD
056486,001454: 12,3316 02734 CSTH
056487,001455: 12,3317 45261 SR DSU # PL AT 0
056488,001456: 12,3320 20607 6
056489,001457: 12,3321 77626 STADR
056490,001458: 12,3322 61037 STODL CSTH-RHO
056491,001459: 12,3323 02675 GEOMSGN
056492,001460: 12,3324 71240 BMN DLOAD
056493,001461: 12,3325 25512 LOLIM
056494,001462: 12,3326 02740 CSTH-RHO
056495,001463: 12,3327 56352 SL1 DDV
056496,001464: 12,3330 02732 SNTH
056497,001465: 12,3331 77600 BOV
056498,001466: 12,3332 25512 LOLIM
056499,001467: 12,3333 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
056500,001468: 12,3334 66214 BON SSP
056501,001469: 12,3335 00715 GUESSW
056502,001470: 12,3336 25477 NOGUESS
056503,001471: 12,3337 00051 TWEEKIT
056504,001472: 12,3340 00001 00001
056505,001473: 12,3341 77745 DLOAD
056506,001474: 12,3342 03775 COGA
056507,001475:
056508,001476: 12,3343 77605 LAMBLOOP DMP
056509,001477: 12,3344 02732 SNTH
056510,001478: 12,3345 45342 SR1 DSU
056511,001479: 12,3346 02740 CSTH-RHO
056512,001480: 12,3347 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
056513,001481: 12,3350 00047 X1
056514,001482: 12,3351 02736 1-CSTH
056515,001483: 12,3352 56257 SL* DDV # 1-CSTH (+2) PL AT 0
056516,001484: 12,3353 20170 0 -9D,1
056517,001485: 12,3354 53040 BMN BZE
056518,001486: 12,3355 25431 NEGP
056519,001487: 12,3356 25431 NEGP
056520,001488: 12,3357 16742 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
056521,001489: 12,3360 03775 COGA
056522,001490: 12,3361 43316 DSQ DAD
056523,001491: 12,3362 11620 D1/1024
056524,001492: 12,3363 41301 NORM DMP
056525,001493: 12,3364 00047 X1
|
|
Page 1298 |
056527,001495: 12,3365 02742 P
056528,001496: 12,3366 44257 SR* BDSU
056529,001497: 12,3367 20571 0 -8D,1
056530,001498: 12,3370 11616 D1/32
056531,001499: 12,3371 16744 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
056532,001500:
056533,001501: 12,3372 02742 P
056534,001502: 12,3373 45000 BOV CALL
056535,001503: 12,3374 25434 HIENERGY
056536,001504: 12,3375 25001 GETX
056537,001505: 12,3376 77745 DLOAD
056538,001506: 12,3377 00037 T
056539,001507: 12,3400 16764 STODL TPREV
056540,001508: 12,3401 00031 XI
056541,001509: 12,3402 45014 BON CALL
056542,001510: 12,3403 04310 INFINFLG
056543,001511: 12,3404 25431 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
056544,001512: 12,3405 24433 DELTIME
056545,001513: 12,3406 44200 BOV BDSU
056546,001514: 12,3407 25450 BIGTIME
056547,001515: 12,3410 02673 TDESIRED
056548,001516: 12,3411 02762 STORE TERRLAMB
056549,001517: 12,3412 44246 ABS BDSU
056550,001518: 12,3413 03777 EPSILONL
056551,001519: 12,3414 47044 BPL RTB
056552,001520: 12,3415 25515 INITV
056553,001521: 12,3416 24656 CHECKCTR
056554,001522: 12,3417 45030 BHIZ CALL
056555,001523: 12,3420 25460 SUFFCHEK
056556,001524: 12,3421 24550 ITERATOR
056557,001525: 12,3422 53145 DLOAD BZE
056558,001526: 12,3423 00155 MPAC
056559,001527: 12,3424 25460 SUFFCHEK
056560,001528: 12,3425 77615 DAD
056561,001529: 12,3426 03775 COGA
056562,001530: 12,3427 37775 STCALL COGA
056563,001531: 12,3430 25343 LAMBLOOP
056564,001532:
056565,001533: 12,3431 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
056566,001534: 12,3432 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
056567,001535: 12,3433 25453 LOENERGY
056568,001536:
056569,001537: 12,3434 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
056570,001538: 12,3435 00001 0
056571,001539: 12,3436 03775 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
056572,001540: 12,3437 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
056573,001541: 12,3440 70545 COMMONLM DLOAD SR1
056574,001542: 12,3441 00015 DCOGA
|
|
Page 1299 |
056576,001544: 12,3442 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
056577,001545: 12,3443 44254 BZE BDSU
056578,001546: 12,3444 25460 SUFFCHEK
056579,001547: 12,3445 03775 COGA
056580,001548: 12,3446 37775 STCALL COGA
056581,001549: 12,3447 25343 LAMBLOOP
056582,001550:
056583,001551: 12,3450 77745 BIGTIME DLOAD
056584,001552: 12,3451 02764 TPREV
056585,001553: 12,3452 00037 STORE T
056586,001554:
056587,001555: 12,3453 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
056588,001556: 12,3454 00001 0
056589,001557: 12,3455 03775 COGA # IN OVERFLOW OF TIME.
056590,001558: 12,3456 34017 STCALL COGAMAX # THIS IS THE NEW BOUND.
056591,001559: 12,3457 25440 COMMONLM
056592,001560:
056593,001561: 12,3460 51545 SUFFCHEK DLOAD ABS
056594,001562: 12,3461 02762 TERRLAMB
056595,001563: 12,3462 41325 PDDL DMP
056596,001564: 12,3463 02673 TDESIRED # PL AT 2D
056597,001565: 12,3464 11612 D1/4
056598,001566: 12,3465 45215 DAD DSU # PL AT 0D
056599,001567: 12,3466 11632 ONEBIT
056600,001568: 12,3467 43044 BPL SETGO
056601,001569: 12,3470 25515 INITV
056602,001570: 12,3471 02434 SOLNSW
056603,001571: 12,3472 02712 RTNLAMB
056604,001572:
056605,001573: 12,3473 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
056606,001574: 12,3474 00001 0
056607,001575: 12,3475 02434 SOLNSW
056608,001576: 12,3476 02712 RTNLAMB
056609,001577:
056610,001578: 12,3477 71331 NOGUESS SSP DLOAD
056611,001579: 12,3500 00051 TWEEKIT
056612,001580: 12,3501 10000 20000
056613,001581: 12,3502 00011 COGAMIN
056614,001582: 12,3503 65342 SR1 PDDL # PL AT 2
056615,001583: 12,3504 00017 COGAMAX
056616,001584: 12,3505 43342 SR1 DAD
056617,001585: 12,3506 77626 STADR # PL AT 0
056618,001586: 12,3507 74002 STORE COGA
056619,001587: 12,3510 34015 STCALL DCOGA
056620,001588: 12,3511 25343 LAMBLOOP
|
|
Page 1300 |
056622,001590: 12,3512 52145 LOLIM DLOAD GOTO
056623,001591: 12,3513 11636 COGLOLIM # COGLOLIM=-.999511597
056624,001592: 12,3514 25333 MINCOGA
056625,001593:
056626,001594: 12,3515 60345 INITV DLOAD NORM
056627,001595: 12,3516 00041 R1
056628,001596: 12,3517 00047 X1
056629,001597: 12,3520 70525 PDDL SR1 # PL AT 2
056630,001598: 12,3521 02742 P
056631,001599: 12,3522 77671 DDV # PL AT 0
056632,001600: 12,3523 75457 SL* SQRT
056633,001601: 12,3524 20175 0 -4,1
056634,001602: 12,3525 72405 DMP SL1
056635,001603: 12,3526 00021 ROOTMU
056636,001604: 12,3527 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
056637,001605: 12,3530 03775 COGA
056638,001606: 12,3531 74261 SL VXSC
056639,001607: 12,3532 20206 5
056640,001608: 12,3533 02724 UR1
056641,001609: 12,3534 77725 PDDL # XCH WITH 0D PL AT 0,6
056642,001610: 12,3535 76561 VXSC VSL1
056643,001611: 12,3536 02676 UN
056644,001612: 12,3537 53235 VXV VAD
056645,001613: 12,3540 02724 UR1 # PL AT 0
056646,001614: 12,3541 43172 VSL1 CLEAR
056647,001615: 12,3542 02674 SOLNSW
056648,001616: 12,3543 02746 STORE VVEC
056649,001617: 12,3544 53135 SLOAD BZE
056650,001618: 12,3545 02704 VTARGTAG
056651,001619: 12,3546 25551 TARGETV
056652,001620: 12,3547 77650 GOTO
056653,001621: 12,3550 02712 RTNLAMB
056654,001622:
056655,001623: 12,3551 45145 TARGETV DLOAD CALL
056656,001624: 12,3552 02722 MAGVEC2
056657,001625: 12,3553 24713 LAMENTER
056658,001626: 12,3554 36705 STCALL VTARGET
056659,001627: 12,3555 02712 RTNLAMB
056660,001628:
|
|
Page 1301 |
056662,001630: 12,3556 40220 TIMERAD STQ SETPD # PL AT 0
056663,001631: 12,3557 02712 RTNTR
056664,001632: 12,3560 00001 0
056665,001633: 12,3561 77600 BOV
056666,001634: 12,3562 25563 +1
056667,001635: 12,3563 63375 VLOAD PDVL # PL AT 6
056668,001636: 12,3564 02657 RVEC
056669,001637: 12,3565 02746 VVEC
056670,001638: 12,3566 77624 CALL
056671,001639: 12,3567 11637 PARAM
056672,001640: 12,3570 71200 BOV DLOAD
056673,001641: 12,3571 24776 COGAOVFL # PL AT 0
056674,001642: 12,3572 11616 D1/32
056675,001643: 12,3573 41225 DSU DMP
056676,001644: 12,3574 02744 R1A
056677,001645: 12,3575 02742 P
056678,001646: 12,3576 41366 SQRT DMP
056679,001647: 12,3577 03775 COGA
056680,001648: 12,3600 74212 SL4 VXSC
056681,001649: 12,3601 02714 U2
056682,001650: 12,3602 45325 PDDL DSU # PL AT 6
056683,001651: 12,3603 11610 D1/64
056684,001652: 12,3604 02744 R1A
056685,001653: 12,3605 52361 VXSC VSU # PL AT 0
056686,001654: 12,3606 02724 UR1
056687,001655: 12,3607 53512 VSL4 UNIT
056688,001656: 12,3610 77600 BOV
056689,001657: 12,3611 25667 CIRCULAR
056690,001658: 12,3612 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
056691,001659: 12,3613 02760 RDESIRED # 36D=ECC (+3)
056692,001660: 12,3614 00047 X1
056693,001661: 12,3615 41325 PDDL DMP # PL AT 8
056694,001662: 12,3616 00041 R1
056695,001663: 12,3617 02742 P
056696,001664: 12,3620 56257 SL* DDV # PL AT 6
056697,001665: 12,3621 20201 0,1
056698,001666: 12,3622 56225 DSU DDV
056699,001667: 12,3623 11614 D1/16
056700,001668: 12,3624 00045 36D # 36D=ECC (+3)
056701,001669: 12,3625 00031 STORE COSF
056702,001670: 12,3626 63400 BOV DSQ
056703,001671: 12,3627 25673 BADR2
056704,001672: 12,3630 50021 BDSU BMN
056705,001673: 12,3631 11612 D1/4
056706,001674: 12,3632 25673 BADR2
056707,001675: 12,3633 75366 SQRT SIGN
056708,001676: 12,3634 02757 SGNRDOT
056709,001677: 12,3635 77614 CLEAR
056710,001678: 12,3636 04272 APSESW
056711,001679:
|
|
Page 1302 |
056713,001681: 12,3637 76561 TERMNVEC VXSC VSL1
056714,001682: 12,3640 02676 UN
056715,001683: 12,3641 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
056716,001684: 12,3642 00001 0D
056717,001685: 12,3643 53361 VXSC VAD # PL AT 0
056718,001686: 12,3644 00031 COSF
056719,001687: 12,3645 41572 VSL1 PUSH # 0D=U2 PL AT 6
056720,001688:
056721,001689: 12,3646 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
056722,001690: 12,3647 02724 UR1
056723,001691: 12,3650 23756 DP1/4
056724,001692: 12,3651 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
056725,001693: 12,3652 25653 +1 # CLEAR OVFIND IF SET
056726,001694: 12,3653 26734 STOVL CSTH # CSTH (+1)
056727,001695: 12,3654 02724 UR1
056728,001696: 12,3655 76435 VXV VSL1
056729,001697: 12,3656 72441 DOT SL1
056730,001698: 12,3657 02676 UN
056731,001699: 12,3660 16732 STODL SNTH # SNTH (+1)
056732,001700: 12,3661 02742 P
056733,001701: 12,3662 77624 CALL
056734,001702: 12,3663 25001 GETX
056735,001703: 12,3664 77614 CLRGO
056736,001704: 12,3665 02634 SOLNSW
056737,001705: 12,3666 24761 COMMNOUT
056738,001706:
056739,001707: 12,3667 43001 CIRCULAR SETPD SETGO
056740,001708: 12,3670 00001 0
056741,001709: 12,3671 02434 SOLNSW
056742,001710: 12,3672 25751 ABTCONIC
056743,001711:
056744,001712: 12,3673 75345 BADR2 DLOAD SIGN
056745,001713: 12,3674 11564 LODPHALF
056746,001714: 12,3675 00031 COSF
056747,001715: 12,3676 14031 STODL COSF
056748,001716: 12,3677 11566 KEPZERO
056749,001717: 12,3700 77614 SETGO
056750,001718: 12,3701 04032 APSESW
056751,001719: 12,3702 25637 TERMNVEC
056752,001720:
|
|
Page 1303 |
056754,001722: 12,3703 40220 APSIDES STQ SETPD # PL AT 0
056755,001723: 12,3704 02712 RTNAPSE
056756,001724: 12,3705 00001 0D
056757,001725: 12,3706 77600 BOV
056758,001726: 12,3707 25710 +1
056759,001727: 12,3710 63375 VLOAD PDVL # PL AT 6
056760,001728: 12,3711 02657 RVEC
056761,001729: 12,3712 02746 VVEC
056762,001730: 12,3713 77624 CALL
056763,001731: 12,3714 11637 PARAM
056764,001732: 12,3715 77600 BOV # PL AT 0
056765,001733: 12,3716 25717 GETECC
056766,001734: 12,3717 42405 GETECC DMP SL4
056767,001735: 12,3720 02744 R1A
056768,001736: 12,3721 75421 BDSU SQRT
056769,001737: 12,3722 11610 D1/64
056770,001738: 12,3723 02754 STORE ECC
056771,001739: 12,3724 65215 DAD PDDL # PL AT 2
056772,001740: 12,3725 11604 D1/8
056773,001741: 12,3726 00041 R1
056774,001742: 12,3727 72405 DMP SL1
056775,001743: 12,3730 02742 P
056776,001744: 12,3731 77671 DDV # PL AT 0
056777,001745: 12,3732 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
056778,001746: 12,3733 02744 R1A
056779,001747: 12,3734 00047 X1
056780,001748: 12,3735 53725 PDDL SL* # PL AT 4
056781,001749: 12,3736 00041 R1
056782,001750: 12,3737 20174 0 -5,1
056783,001751: 12,3740 45271 DDV DSU # PL AT 2,0
056784,001752: 12,3741 50000 BOV BMN
056785,001753: 12,3742 25746 INFINAPO
056786,001754: 12,3743 25746 INFINAPO
056787,001755: 12,3744 77650 GOTO
056788,001756: 12,3745 02712 RTNAPSE
056789,001757: 12,3746 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
056790,001758: 12,3747 11577 LDPOSMAX
056791,001759: 12,3750 02712 RTNAPSE # THAT PL IS AT 0.
056792,001760:
|
|
Page 1304 |
056794,001762: 12,3751 77776 ABTCONIC EXIT
056795,001763: 12,3752 05721 TC POODOO
056796,001764: 12,3753 00607 OCT 00607
056797,001765:
|
|
Page 1305 |
056799,001767: 04,2000 SETLOC CONICS1
056800,001768: 04,2000 BANK
056801,001769:
056802,001770: 04,3737 COUNT 04/CONIC
056803,001771:
056804,001772: 04,3737 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
056805,001773:
056806,001774: 04,3741 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
056807,001775:
056808,001776: 04,3743 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
056809,001777:
056810,001778: 04,3745 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
056811,001779:
056812,001780: 04,3747 16471 01352 2DEC 4.902778 E8 B-30 # MUM
056813,001781:
056814,001782: 04,3751 21412 20500 2DEC .203966 E-8 B+28 # 1/MUM
056815,001783:
056816,001784: 04,3753 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
056817,001785:
056818,001786: 04,3755 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
056819,001787:
056820,001788: 04,3757 04,3576 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
056821,001789:
056822,001790: # ERASABLE ASSIGNMENTS
056823,001791:
056824,001792: # KEPLER SUBROUTINE
056825,001793:
056826,001794: # INPUT -
056827,001795: # RRECT ERASE +5
056828,001796: # VRECT ERASE +5
056829,001797: # TAU. ERASE +1
056830,001798: # XKEP ERASE +1
056831,001799: # TC ERASE +1
056832,001800: # XPREV ERASE +1
056833,001801: 04,3757 1/MU EQUALS 14D
056834,001802: 04,3757 ROOTMU EQUALS 16D
056835,001803: 04,3757 1/ROOTMU EQUALS 18D
056836,001804:
056837,001805: # OUTPUT -
056838,001806: # RCV ERASE +5
056839,001807: # VCV ERASE +5
056840,001808: # RC ERASE +1
056841,001809: # XPREV ERASE +1
056842,001810:
056843,001811: # DEBRIS -
056844,001812: 04,3757 ALPHA EQUALS 8D
056845,001813: 04,3757 XMAX EQUALS 10D
|
|
Page 1306 |
056847,001815: 04,3757 XMIN EQUALS 12D
056848,001816: 04,3757 X EQUALS 20D
056849,001817: 04,3757 XI EQUALS 24D
056850,001818: 04,3757 S(XI) EQUALS 26D
056851,001819: 04,3757 XSQC(XI) EQUALS 28D
056852,001820: 04,3757 T EQUALS 30D
056853,001821: 04,3757 R1 EQUALS 32D
056854,001822: 04,3757 KEPC1 EQUALS 34D
056855,001823: 04,3757 KEPC2 EQUALS 36D
056856,001824:
056857,001825: # DELX ERASE +1
056858,001826: # DELT ERASE +1
056859,001827: # URRECT ERASE +5
056860,001828: # RCNORM ERASE +1
056861,001829: # XPREV EQUALS XKEP
056862,001830:
056863,001831:
056864,001832: # LAMBERT SUBROUTINE
056865,001833:
056866,001834: # INPUT -
056867,001835: # R1VEC ERASE +5
056868,001836: # R2VEC ERASE +5
056869,001837: # TDESIRED ERASE +1
056870,001838: # GEOMSGN ERASE +0
056871,001839: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
056872,001840: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
056873,001841: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
056874,001842: # UN ERASE +5 ONLY USED IF NORMSW IS 1
056875,001843: # VTARGTAG ERASE +0
056876,001844: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
056877,001845:
056878,001846: # OUTPUT -
056879,001847: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
056880,001848: # V1VEC EQUALS MPAC
056881,001849:
056882,001850: # DEBRIS -
056883,001851: # RTNLAMB ERASE +0
056884,001852: # U2 ERASE +5
056885,001853: # MAGVEC2 ERASE +1
056886,001854: # UR1 ERASE +5
056887,001855: # R1 EQUALS 31D
056888,001856: # UN ERASE +5
056889,001857: # SNTH ERASE +1
056890,001858: # CSTH ERASE +1
056891,001859: # 1-CSTH ERASE +1
056892,001860: # CSTH-RHO ERASE +1
056893,001861:
056894,001862: 04,3757 COGAMAX EQUALS 14D # CLOBBERS 1/MU
056895,001863: 04,3757 COGAMIN EQUALS 8D
056896,001864: 04,3757 DCOGA EQUALS 12D
056897,001865:
056898,001866: # TWEEKIT EQUALS 40D
056899,001867: # P ERASE +1
|
|
Page 1307 |
056901,001869: # COGA ERASE +1
056902,001870: # R1A ERASE +1
056903,001871: # X EQUALS 20D
056904,001872: # XSQ EQUALS 22D
056905,001873: # XI EQUALS 24D
056906,001874: # S(XI) EQUALS 26D
056907,001875: # XSQC(XI) EQUALS 28D
056908,001876: # T EQUALS 30D
056909,001877: # KEPC1 EQUALS 34D
056910,001878: # KEPC2 EQUALS 36D
056911,001879: # SLOPESW
056912,001880: # SOLNSW
056913,001881:
056914,001882: # OTHERS -
056915,001883: # RVEC EQUALS R1VEC
056916,001884: # VVEC ERASE +5
056917,001885: # COGAFLAG
056918,001886: # RVSW
056919,001887: # INFINFLG
056920,001888: # APSESW
056921,001889: # 360SW
056922,001890: # RTNTT EQUALS RTNLAMB
056923,001891: # ECC ERASE +1
056924,001892: # RTNTR EQUALS RTNLAMB
056925,001893: # RTNAPSE EQUALS RTNLAMB
056926,001894: # R2 EQUALS MAGVEC2
056927,001895:
056928,001896: 04,3757 COSF EQUALS 24D
056929,001897:
056930,001898: # RTNPRM ERASE +0
056931,001899: # SGNRDOT ERASE +0
056932,001900: # RDESIRED ERASE +1
056933,001901:
056934,001902:
056935,001903: # ITERATOR SUBROUTINE
056936,001904:
056937,001905: # ORDERSW
056938,001906: 04,3757 MAX EQUALS 14D # CLOBBERS 1/MU
056939,001907: 04,3757 MIN EQUALS 8D
056940,001908:
056941,001909: # INDEP ERASE +1
056942,001910:
056943,001911: 04,3757 DELINDEP EQUALS 12D
056944,001912: 04,3757 ITERCTR EQUALS 22D
056945,001913: 04,3757 DEP EQUALS 30D
056946,001914:
056947,001915: # DELDEP ERASE +1
056948,001916: # DEPREV ERASE +1
056949,001917:
056950,001918: 04,3757 TWEEKIT EQUALS 40D
056951,001919:
056952,001920:
056953,001921: # MORE KEPLER
056954,001922:
056955,001923: # EPSILONT ERASE +1
056956,001924:
|
|
Page 1308 |
056958,001926: # MORE LAMBERT
056959,001927:
056960,001928: # TERRLAMB EQUALS DELDEP
056961,001929: # TPREV EQUALS DEPREV
056962,001930:
056963,001931: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
056964,001932:
056965,001933:
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc