Source Code
|
These source-code files are part of a reconstructed copy of Comanche 44, the
initial release (though not the final mission release) of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases
were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 44, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 51
(separately previously reconstructed from an Apollo-era listing of Comanche 55,
flown on Apollo 11). Comanche 51 source code was then modified
by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed
Comanche 44 source code was verified by assembling it and checking that the assembled code had
the expected known-correct memory-bank checksums.
Note that page numbers in the reconstructed code match those on the Comanche 55 printout,
although the source code would likely have different page numbers in a contemporary
Comanche 44 listing.
Annotations that were not present in the contemporary source code have been added to the reconstructed
code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced
in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step commentary about the reconstruction process.
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
054211,000002: ## Copyright: Public domain.
054212,000003: ## Filename: CONIC_SUBROUTINES.agc
054213,000004: ## Purpose: A section of Comanche revision 044.
054214,000005: ## It is part of the reconstructed source code for the
054215,000006: ## original release of the flight software for the Command
054216,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
054217,000008: ## The code has been recreated from a copy of Comanche 055. It
054218,000009: ## has been adapted such that the resulting bugger words
054219,000010: ## exactly match those specified for Comanche 44 in NASA drawing
054220,000011: ## 2021153D, which gives relatively high confidence that the
054221,000012: ## reconstruction is correct.
054222,000013: ## Assembler: yaYUL
054223,000014: ## Contact: Ron Burkey <info@sandroid.org>.
054224,000015: ## Website: www.ibiblio.org/apollo/index.html
054225,000016: ## Mod history: 2020-12-03 MAS Created from Comanche 51.
054226,000017:
|
|
Page 1262
|
054228,000019: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
054229,000020: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
054230,000021: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
054231,000022:
054232,000023: # FUNCTIONAL DESCRIPTION -
054233,000024: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
054234,000025: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
054235,000026: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
054236,000027: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
054237,000028: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
054238,000029: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
054239,000030: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
054240,000031: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
054241,000032: # TINES APPROPRIATELY.
054242,000033:
054243,000034: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
054244,000035: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
054245,000036: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
054246,000037:
054247,000038: # RESTRICTIONS -
054248,000039: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
054249,000040: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
054250,000041: # TORIES COULD BE HANDLED.
054251,000042:
054252,000043: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
054253,000044: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
054254,000045: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
054255,000046:
|
|
Page 1263
|
054257,000048: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
054258,000049: # MOD NO. - 1 LOG SECTION - CONIC SUBROUTINES
054259,000050: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
054260,000051: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
054261,000052: # MOD NO. - 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
054262,000053: # MOD. NO. - 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
054263,000054:
054264,000055: # FUNCTIONAL DESCRIPTION -
054265,000056: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
054266,000057: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
054267,000058: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
054268,000059: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
054269,000060: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
054270,000061: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
054271,000062:
054272,000063: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
054273,000064: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
054274,000065:
054275,000066: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
054276,000067: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
054277,000068:
054278,000069: # THE RESTRICTIONS ARE -
054279,000070: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
054280,000071: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
054281,000072: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054282,000073:
054283,000074: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
054284,000075: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
054285,000076: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
054286,000077:
054287,000078: # REFERENCES -
054288,000079: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
054289,000080: # MEMO 67-4.
054290,000081:
054291,000082: # INPUT - ERASABLE INITIALIZATION REQUIRED
054292,000083: # * SCALE FACTOR *
054293,000084: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054294,000085: # --------*--------------* -----------------------
054295,000086: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054296,000087: # * +27 FOR MOON *
|
|
Page 1264
|
054298,000089: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054299,000090: # * +5 FOR MOON *
054300,000091: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054301,000092: # * *RESPECTIVELY, IS THE CENTRAL BODY
054302,000093: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
054303,000094: # * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
054304,000095: # XKEPNEW * +17 FOR EARTH*DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS).SIGN SHOULD AGREE WITH THAT OF TAU.
054305,000096: # * +16 FOR MOON * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
054306,000097: # * * MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
054307,000098: # * * BY KEPLER TO A POOR BUT VALID GUESS.
054308,000099: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
054309,000100: # XPREV * +17 FOR EARTH*DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
054310,000101: # * +16 FOR MOON * ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
054311,000102:
054312,000103: # SUBROUTINES CALLED -
054313,000104: # DELTIME
054314,000105:
054315,000106: # CALLING SEQUENCE AND NORMAL EXIT MODES -
054316,000107: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054317,000108: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
054318,000109: # KEPRTN ... CONTINUE
054319,000110:
054320,000111: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
054321,000112: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
054322,000113: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
054323,000114:
054324,000115: # ABORT EXIT MODES -
054325,000116: # NONE
054326,000117:
054327,000118: # OUTPUT -
054328,000119: # * SCALE FACTOR *
054329,000120: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054330,000121: # --------*--------------* -----------------------
054331,000122: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
054332,000123: # * +27 FOR MOON *
054333,000124: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
054334,000125: # * +5 FOR MOON *
054335,000126: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
054336,000127: # XPREV * +17 FOR EARTH*DP VALUE OF X IN SQRT(METERS) TO WHCIH KEPLER CONVERGED. ALWAYS LESS THAN THE X
054337,000128: # * +16 FOR MOON * CORRESPONDING TO ONE PERIOD.
|
|
Page 1265
|
054339,000130: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054340,000131:
054341,000132: # DEBRIS -
054342,000133: # PARAMETERS WHICH MAY BE OF USE -
054343,000134: # * SCALE FACTOR *
054344,000135: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054345,000136: # --------*--------------* -----------------------
054346,000137: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
054347,000138: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
054348,000139: # * +27 FOR MOON *
054349,000140: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
054350,000141: # * -20 FOR MOON *
054351,000142: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
054352,000143: # * *TAU. OF LESS THAN ONE PERIOD.
054353,000144:
054354,000145: # PARAMETERS OF NO USE -
054355,000146: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
054356,000147:
|
|
Page 1266
|
054358,000149: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
054359,000150: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
054360,000151: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
054361,000152:
054362,000153: # FUNCTIONAL DESCRIPTION -
054363,000154: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
054364,000155: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
054365,000156: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
054366,000157: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
054367,000158: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
054368,000159: # UTILIZED IN THE COMPUTATION.
054369,000160:
054370,000161: # THE RESTRICTIONS ARE -
054371,000162: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
054372,000163: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
054373,000164: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054374,000165: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
054375,000166: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
054376,000167: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
054377,000168: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054378,000169:
054379,000170: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
054380,000171: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
054381,000172: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
054382,000173:
054383,000174: # REFERENCES -
054384,000175: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP - SECTION 5.5, SGA MEMO 67-8,
054385,000176: # SGA MEMO 67-4.
054386,000177:
054387,000178: # INPUT - ERASABLE INITIALIZATION REQUIRED
054388,000179: # * SCALE FACTOR *
054389,000180: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054390,000181: # --------*--------------* -----------------------
054391,000182: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054392,000183: # * +27 FOR MOON *
054393,000184: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
054394,000185: # * +27 FOR MOON *
054395,000186: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
054396,000187: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054397,000188: # * *RESPECTIVELY, IS THE CENTRAL BODY
054398,000189: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
054399,000190: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
|
|
Page 1267
|
054401,000192: # * *COGA IS TO BE USED BY LAMBERT
054402,000193: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
054403,000194: # *IGNORED IF GUESSW IS SET.
054404,000195: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
054405,000196: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
054406,000197: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
054407,000198: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
054408,000199: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
054409,000200: # * *AT R1VEC.
054410,000201:
054411,000202: # SUBROUTINES CALLED -
054412,000203: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
054413,000204:
054414,000205: # CALLING SEQUENCE AND NORMAL EXIT MODES -
054415,000206: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054416,000207: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
054417,000208: # IN MPAC IF VTARGTAG WAS ZERO
054418,000209: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
054419,000210: # L+3 SOLNSW
054420,000211: # L+4 LAMABORT
054421,000212:
054422,000213: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
054423,000214: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
054424,000215:
054425,000216: # ABORT EXIT MODES -
054426,000217: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
054427,000218: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
054428,000219: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
054429,000220: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
054430,000221: # 1-CSTH 360 DEGREES.
054431,000222: # DSU BMN
054432,000223: # ONEBIT
054433,000224: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
054434,000225: # DLOAD DAD
054435,000226: # TDESIRED
054436,000227: # SOMETIME
054437,000228: # STCALL TDESIRED INCREASE TDESIRED
054438,000229: # LAMBERT
054439,000230:
054440,000231: # OUTPUT -
054441,000232: # * SCALE FACTOR *
054442,000233: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
|
|
Page 1268
|
054444,000235: # --------*--------------* -----------------------
054445,000236: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
054446,000237: # * +5 FOR MOON *PROBLEM.
054447,000238: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
054448,000239: # * +5 FOR MOON *
054449,000240: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
054450,000241: # * *SOLUTION EXISTS.
054451,000242:
054452,000243: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054453,000244:
054454,000245: # DEBRIS -
054455,000246: # PARAMETERS WHICH MAY BE OF USE -
054456,000247: # * SCALE FACTOR *
054457,000248: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054458,000249: # --------*--------------* -----------------------
054459,000250: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
054460,000251: # CSTH * +1 *DP COSINE OF ANGLE
054461,000252: # 1-CSTH * +2 *DP 1-CSTH
054462,000253: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
054463,000254: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
054464,000255: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
054465,000256: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
054466,000257: # * +27 FOR MOON *
054467,000258: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
054468,000259: # U2 * +1 *DP UNIT VECTOR OF R2VEC
054469,000260:
054470,000261: # PARAMETERS OF NO USE
054471,000262: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
054472,000263: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
054473,000264:
|
|
Page 1269
|
054475,000266: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
054476,000267: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
054477,000268: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
054478,000269:
054479,000270: # FUNCTIONAL DESCRIPTION -
054480,000271: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
054481,000272: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
054482,000273: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
054483,000274: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
054484,000275: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054485,000276: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054486,000277:
054487,000278: # THE RESTRICTIONS ARE -
054488,000279: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054489,000280: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
054490,000281: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
054491,000282: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054492,000283:
054493,000284: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
054494,000285:
054495,000286: # REFERENCES -
054496,000287: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
054497,000288:
054498,000289: # INPUT - ERASABLE INITIALIZATION REQUIRED
054499,000290: # * SCALE FACTOR *
054500,000291: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054501,000292: # --------*--------------* -----------------------
054502,000293: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054503,000294: # * +27 FOR MOON *
054504,000295: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054505,000296: # * +5 FOR MOON *
054506,000297: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
054507,000298: # CSTH * +1 *DP COSINE OF THE ANGLE
054508,000299: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
054509,000300: # * *IS TO BE COMPUTED ALSO.
054510,000301: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054511,000302: # * *RESPECTIVELY, IS THE CENTRAL BODY.
054512,000303:
054513,000304: # SUBROUTINES CALLED -
|
|
Page 1270
|
054515,000306: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
054516,000307:
054517,000308: # CALLING SEQUENCE AND NORMAL EXIT MODES -
054518,000309: # IF ONLY TIME IS DESIRED AS OUTPUT -
054519,000310: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054520,000311: # L+1 RVSW
054521,000312: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
054522,000313: # L+3 ... CONTINUE
054523,000314:
054524,000315: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
054525,000316: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054526,000317: # L+1 RVSW
054527,000318: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
054528,000319: # THE INITIAL VELOCITY VECTOR IN MPAC.
054529,000320: # L+3 STOVL NEWVVEC
054530,000321: # L+4 STADR
054531,000322: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
054532,000323: # L+6 ... CONTINUE
054533,000324:
054534,000325: # ABORT EXIT MODES -
054535,000326: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
054536,000327: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
054537,000328:
054538,000329: # OUTPUT -
054539,000330: # * SCALE FACTOR *
054540,000331: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054541,000332: # --------*--------------* -----------------------
054542,000333: # T(30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
054543,000334: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
054544,000335: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
054545,000336: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
054546,000337: # * *CLEAR IF NOT.
054547,000338:
054548,000339: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
054549,000340: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
054550,000341: # MPAC +5* +5 FOR MOON *
054551,000342: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
054552,000343: # * +27 FOR MOON *
054553,000344:
054554,000345: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
|
|
Page 1271
|
054556,000347:
054557,000348: # DEBRIS -
054558,000349: # PARAMETERS WHICH MAY BE OF USE -
054559,000350: # * SCALE FACTOR *
054560,000351: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054561,000352: # --------*--------------* -----------------------
054562,000353: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054563,000354: # * +27 FOR MOON *
054564,000355: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054565,000356: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
054566,000357: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054567,000358: # UR1 * +1 *DP UNIT VECTOR OF RVEC
054568,000359: # U2 * +1 *DP UNIT VECTOR OF VVEC
054569,000360: # UN * +1 *DP UNIT VECTOR OF UR1*U2
054570,000361:
054571,000362: # PARAMETERS OF NO USE -
054572,000363: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
054573,000364: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
054574,000365:
|
|
Page 1272
|
054576,000367: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
054577,000368: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
054578,000369: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
054579,000370:
054580,000371: # FUNCTIONAL DESCRIPTION -
054581,000372: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
054582,000373: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
054583,000374: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
054584,000375: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
054585,000376: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054586,000377: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054587,000378:
054588,000379: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
054589,000380: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
054590,000381:
054591,000382: # THE RESTRICTIONS ARE -
054592,000383: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054593,000384: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
054594,000385: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
054595,000386: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054596,000387: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
054597,000388: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
054598,000389: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
054599,000390:
054600,000391: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
054601,000392:
054602,000393: # REFERENCES -
054603,000394: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
054604,000395:
054605,000396: # INPUT - ERASABLE INITIALIZATION REQUIRED
054606,000397: # * SCALE FACTOR *
054607,000398: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054608,000399: # --------*--------------* -----------------------
054609,000400: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054610,000401: # * +27 FOR MOON *
054611,000402: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054612,000403: # * +5 FOR MOON *
054613,000404: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
054614,000405: # * +27 FOR MOON *COMPUTED.
054615,000406: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
054616,000407: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
|
|
Page 1273
|
054618,000409: # * *SINGLE-VALUED PROBLEM.
054619,000410: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054620,000411: # * *RESPECTIVELY, IS THE CENTRAL BODY.
054621,000412: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
054622,000413: # * *IS TO BE COMPUTED ALSO.
054623,000414:
054624,000415: # SUBROUTINES CALLED -
054625,000416: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
054626,000417:
054627,000418: # CALLING SEQUENCE AND NORMAL EXIT MODES -
054628,000419: # IF ONLY TIME IS DESIRED AS OUTPUT -
054629,000420: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054630,000421: # L+1 RVSW
054631,000422: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
054632,000423: # L+3 ... CONTINUE
054633,000424:
054634,000425: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
054635,000426: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054636,000427: # L+1 RVSW
054637,000428: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
054638,000429: # THE INITIAL VELOCITY VECTOR IN MPAC.
054639,000430: # L+3 STOVL NEWVVEC
054640,000431: # L+4 STADR
054641,000432: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
054642,000433: # L+6 ... CONTINUE
054643,000434:
054644,000435: # ABORT EXIT MODES -
054645,000436: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
054646,000437: # TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
054647,000438:
054648,000439: # OUTPUT -
054649,000440: # * SCALE FACTOR *
054650,000441: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054651,000442: # --------*--------------* -----------------------
054652,000443: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
054653,000444: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
054654,000445: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
054655,000446: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
054656,000447: # * *CLEAR IF NOT.
054657,000448: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
|
|
Page 1274
|
054659,000450: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
054660,000451: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
054661,000452: # * *APOCENTER.
054662,000453: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
054663,000454: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
054664,000455: # *MINUS-18, THE SWITCH IS CLEAR.
054665,000456:
054666,000457: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
054667,000458: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
054668,000459: # MPAC +5* +5 FOR MOON *
054669,000460: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
054670,000461: # * +27 FOR MOON *
054671,000462:
054672,000463: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054673,000464:
054674,000465: # DEBRIS -
054675,000466: # PARAMETERS WHICH MAY BE OF USE -
054676,000467: # * SCALE FACTOR *
054677,000468: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054678,000469: # --------*--------------* -----------------------
054679,000470: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054680,000471: # * +27 FOR MOON *
054681,000472: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054682,000473: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
054683,000474: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054684,000475: # UR1 * +1 *DP UNIT VECTOR OF RVEC
054685,000476: # U2 * +1 *DP UNIT VECTOR OF VVEC
054686,000477: # UN * +1 *DP UNIT VECTOR OF UR1*U2
054687,000478: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
054688,000479: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
054689,000480:
054690,000481: # PARAMETERS OF NO USE -
054691,000482: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
054692,000483: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
054693,000484:
054694,000485:
|
|
Page 1275
|
054696,000487: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
054697,000488: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
054698,000489: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
054699,000490:
054700,000491: # FUNCTIONAL DESCRIPTION -
054701,000492: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
054702,000493: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
054703,000494: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
054704,000495: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054705,000496: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054706,000497:
054707,000498: # THE RESTRICTIONS ARE -
054708,000499: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
054709,000500: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
054710,000501: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
054711,000502: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054712,000503:
054713,000504: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
054714,000505:
054715,000506: # REFERENCES -
054716,000507: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
054717,000508:
054718,000509: # INPUT - ERASABLE INITIALIZATION REQUIRED
054719,000510: # * SCALE FACTOR *
054720,000511: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054721,000512: # --------*--------------* -----------------------
054722,000513: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054723,000514: # * +27 FOR MOON *
054724,000515: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054725,000516: # * +5 FOR MOON *
054726,000517: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054727,000518: # * *RESPECTIVELY, IS THE CENTRAL BODY.
054728,000519:
054729,000520: # SUBROUTINES CALLED -
054730,000521: # PARAM, GEOM
054731,000522:
054732,000523: # CALLING SEQUENCE AND NORMAL EXIT MODES -
|
|
Page 1276
|
054734,000525: # IF ONLY TIME IS DESIRED AS OUTPUT -
054735,000526: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054736,000527: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
054737,000528: # L+2 STODL APOAPSE
054738,000529: # L+3 0D
054739,000530: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
054740,000531: # L+5 ... CONTINUE
054741,000532:
054742,000533: # OUTPUT -
054743,000534: # * SCALE FACTOR *
054744,000535: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054745,000536: # --------*--------------* -----------------------
054746,000537: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
054747,000538: # * +27 FOR MOON *
054748,000539: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
054749,000540: # * +27 FOR MOON *
054750,000541: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
054751,000542:
054752,000543: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054753,000544:
054754,000545: # DEBRIS -
054755,000546: # PARAMETERS WHICH MAY BE OF USE -
054756,000547: # * SCALE FACTOR *
054757,000548: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
054758,000549: # --------*--------------* -----------------------
054759,000550: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054760,000551: # * +27 FOR MOON *
054761,000552: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054762,000553: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
054763,000554: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054764,000555: # UR1 * +1 *DP UNIT VECTOR OF RVEC
054765,000556: # U2 * +1 *DP UNIT VECTOR OF VVEC
054766,000557: # UN * +1 *DP UNIT VECTOR OF UR1*U2
054767,000558: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
054768,000559: # * +5 FOR MOON *
054769,000560:
054770,000561: # PARAMETERS OF NO USE -
054771,000562: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
054772,000563: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
054773,000564:
054774,000565: 12,2000 SETLOC CONICS
|
|
Page 1277
|
054776,000567: 12,2000 BANK
054777,000568:
054778,000569: 12,2042 COUNT 12/CONIC
054779,000570:
054780,000571: 12,2042 E5,1723 EBANK= UR1
054781,000572: 12,2042 40001 KEPLERN SETPD BOV
054782,000573: 12,2043 00001 0
054783,000574: 12,2044 24045 +1
054784,000575: 12,2045 77773 VLOAD*
054785,000576: 12,2046 11735 MUTABLE,1
054786,000577: 12,2047 24017 STOVL 14D
054787,000578: 12,2050 01503 RRECT
054788,000579: 12,2051 66256 UNIT SSP
054789,000580: 12,2052 00027 ITERCTR
054790,000581: 12,2053 00024 20D
054791,000582: 12,2054 16647 STODL URRECT
054792,000583: 12,2055 00045 36D
054793,000584: 12,2056 24041 STOVL R1
054794,000585: 12,2057 01503 RRECT
054795,000586: 12,2060 76441 DOT SL1R
054796,000587: 12,2061 01511 VRECT
054797,000588: 12,2062 76405 DMP SL1R
054798,000589: 12,2063 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
054799,000590: 12,2064 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
054800,000591:
054801,000592: 12,2065 01511 VRECT
054802,000593: 12,2066 57236 VSQ DMPR
054803,000594: 12,2067 00017 1/MU # 1/MU (-34 OR -28)
054804,000595: 12,2070 52405 DMP SL3
054805,000596: 12,2071 00041 R1
054806,000597: 12,2072 61425 DSU ROUND
054807,000598: 12,2073 11605 D1/64
054808,000599: 12,2074 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
054809,000600:
054810,000601: 12,2075 74421 BDSU SR1R
054811,000602: 12,2076 11605 D1/64
054812,000603: 12,2077 77671 DDV
054813,000604: 12,2100 00041 R1
054814,000605: 12,2101 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
054815,000606:
054816,000607: 12,2102 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
054817,000608: 12,2103 24112 1REV
054818,000609: 12,2104 11623 -50SC # -50SC (+12)
054819,000610: 12,2105 40071 DDV BOV
054820,000611: 12,2106 00011 ALPHA
054821,000612: 12,2107 24116 STOREMAX
054822,000613: 12,2110 52166 SQRT GOTO
054823,000614: 12,2111 24116 STOREMAX
|
|
Page 1278
|
054825,000616: 12,2112 55366 1REV SQRT BDDV
054826,000617: 12,2113 11625 2PISC # 2PISC (+6)
054827,000618: 12,2114 77600 BOV
054828,000619: 12,2115 24116 STOREMAX
054829,000620: 12,2116 00013 STOREMAX STORE XMAX
054830,000621: 12,2117 65205 DMP PDDL
054831,000622: 12,2120 00023 1/ROOTMU
054832,000623: 12,2121 00011 ALPHA
054833,000624: 12,2122 65301 NORM PDDL
054834,000625: 12,2123 00047 X1
054835,000626: 12,2124 56257 SL* DDV
054836,000627: 12,2125 20173 0 -6,1
054837,000628: 12,2126 50000 BOV BMN
054838,000629: 12,2127 24143 MODDONE
054839,000630: 12,2130 24143 MODDONE # MPAC=PERIOD
054840,000631: 12,2131 51525 PERIODCH PDDL ABS # 0D=PERIOD
054841,000632: 12,2132 02312 TAU.
054842,000633: 12,2133 50025 DSU BMN
054843,000634: 12,2134 00001 0D
054844,000635: 12,2135 24143 MODDONE
054845,000636: 12,2136 77765 SIGN
054846,000637: 12,2137 02312 TAU.
054847,000638: 12,2140 16312 STODL TAU.
054848,000639: 12,2141 77650 GOTO
054849,000640: 12,2142 24131 PERIODCH
054850,000641: 12,2143 71201 MODDONE SETPD DLOAD
054851,000642: 12,2144 00001 0
054852,000643: 12,2145 02306 XKEPNEW
054853,000644: 12,2146 00025 STORE X
054854,000645: 12,2147 53165 SIGN BZE
054855,000646: 12,2150 02312 TAU.
054856,000647: 12,2151 24320 BADX
054857,000648: 12,2152 51440 BMN ABS
054858,000649: 12,2153 24320 BADX
054859,000650: 12,2154 51025 DSU BPL
054860,000651: 12,2155 00013 XMAX
054861,000652: 12,2156 24320 BADX
054862,000653: 12,2157 51145 STORBNDS DLOAD BPL
054863,000654: 12,2160 02312 TAU.
054864,000655: 12,2161 24170 STOREMIN
054865,000656: 12,2162 57545 DLOAD DCOMP
054866,000657: 12,2163 00013 XMAX
054867,000658: 12,2164 14015 STODL XMIN
054868,000659: 12,2165 11563 KEPZERO
054869,000660: 12,2166 34013 STCALL XMAX
054870,000661: 12,2167 24173 DXCOMP
054871,000662: 12,2170 77745 STOREMIN DLOAD
054872,000663: 12,2171 11563 KEPZERO
054873,000664: 12,2172 00015 STORE XMIN
054874,000665: 12,2173 57345 DXCOMP DLOAD DMPR
|
|
Page 1279
|
054876,000667: 12,2174 02312 TAU.
054877,000668: 12,2175 11616 BEE22
054878,000669: 12,2176 77646 ABS
054879,000670: 12,2177 15350 STODL EPSILONT
054880,000671: 12,2200 01553 XPREV
054881,000672: 12,2201 77621 XDIFF BDSU
054882,000673: 12,2202 00025 X
054883,000674: 12,2203 02643 STORE DELX
054884,000675:
054885,000676: 12,2204 63545 KEPLOOP DLOAD DSQ
054886,000677: 12,2205 00025 X # X=XKEP
054887,000678: 12,2206 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
054888,000679: 12,2207 00047 X1
054889,000680: 12,2210 53605 DMP SRR*
054890,000681: 12,2211 00011 ALPHA
054891,000682: 12,2212 21573 0 -6,1
054892,000683: 12,2213 34031 STCALL XI # XI=ALPHA XSQ (+6)
054893,000684: 12,2214 24433 DELTIME
054894,000685: 12,2215 44200 BOV BDSU
054895,000686: 12,2216 24326 TIMEOVFL # UNLIKELY
054896,000687: 12,2217 02312 TAU.
054897,000688: 12,2220 02645 STORE DELT # DELT=DELINDEP
054898,000689: 12,2221 44246 ABS BDSU
054899,000690: 12,2222 01350 EPSILONT
054900,000691: 12,2223 71244 BPL DLOAD
054901,000692: 12,2224 24346 KEPCONVG
054902,000693: 12,2225 00037 T
054903,000694: 12,2226 60225 DSU NORM
054904,000695: 12,2227 01551 TC
054905,000696: 12,2230 00047 X1
054906,000697: 12,2231 60325 PDDL NORM
054907,000698: 12,2232 02643 DELX
054908,000699: 12,2233 00050 X2
054909,000700: 12,2234 41260 XSU,1 DMP
054910,000701: 12,2235 00047 X2
054911,000702: 12,2236 02645 DELT
054912,000703: 12,2237 56257 SLR* DDV
054913,000704: 12,2240 21202 1,1
054914,000705: 12,2241 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
054915,000706: 12,2242 71244 BPL DLOAD
054916,000707: 12,2243 24264 POSDELX
054917,000708: 12,2244 00025 X
054918,000709: 12,2245 00013 STORE XMAX # MOVE MAX BOUND IN
054919,000710: 12,2246 45221 BDSU DSU # PL AT 0
054920,000711: 12,2247 00015 XMIN
054921,000712: 12,2250 51000 BOV BPL
054922,000713: 12,2251 24256 NDXCHNGE
054923,000714: 12,2252 24256 NDXCHNGE
054924,000715: 12,2253 52145 DLOAD GOTO
|
|
Page 1280
|
054926,000717: 12,2254 00001 0D
054927,000718: 12,2255 24276 NEWDELX
054928,000719:
054929,000720: 12,2256 45345 NDXCHNGE DLOAD DSU
054930,000721: 12,2257 00015 XMIN
054931,000722: 12,2260 00025 X
054932,000723: 12,2261 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
054933,000724: 12,2262 11621 DP9/10
054934,000725: 12,2263 24276 NEWDELX
054935,000726:
054936,000727: 12,2264 77745 POSDELX DLOAD
054937,000728: 12,2265 00025 X
054938,000729: 12,2266 00015 STORE XMIN # MOVE MIN BOUND IN
054939,000730: 12,2267 45221 BDSU DSU # PL AT 0
054940,000731: 12,2270 00013 XMAX
054941,000732: 12,2271 50000 BOV BMN
054942,000733: 12,2272 24312 PDXCHNGE
054943,000734: 12,2273 24312 PDXCHNGE
054944,000735: 12,2274 77745 DLOAD
054945,000736: 12,2275 00001 0D
054946,000737: 12,2276 02643 NEWDELX STORE DELX
054947,000738: 12,2277 43254 BZE DAD
054948,000739: 12,2300 24346 KEPCONVG
054949,000740: 12,2301 00025 X
054950,000741: 12,2302 14025 STODL X
054951,000742: 12,2303 00037 T
054952,000743: 12,2304 01551 STORE TC
054953,000744: 12,2305 46034 BRNCHCTR RTB BHIZ
054954,000745: 12,2306 24656 CHECKCTR
054955,000746: 12,2307 24346 KEPCONVG
054956,000747: 12,2310 77650 GOTO
054957,000748: 12,2311 24204 KEPLOOP # ITERATE
054958,000749:
054959,000750: 12,2312 45345 PDXCHNGE DLOAD DSU
054960,000751: 12,2313 00013 XMAX
054961,000752: 12,2314 00025 X
054962,000753: 12,2315 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
054963,000754: 12,2316 11621 DP9/10
054964,000755: 12,2317 24276 NEWDELX
054965,000756:
054966,000757: 12,2320 70545 BADX DLOAD SR1
054967,000758: 12,2321 00013 XMAX
054968,000759: 12,2322 77765 SIGN
054969,000760: 12,2323 02312 TAU.
054970,000761: 12,2324 34025 STCALL X
054971,000762: 12,2325 24157 STORBNDS
|
|
Page 1281
|
054973,000764: 12,2326 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
054974,000765: 12,2327 00025 X
054975,000766: 12,2330 24344 NEGTOVFL
054976,000767: 12,2331 00013 STORE XMAX
054977,000768: 12,2332 70545 CMNTOVFL DLOAD SR1
054978,000769: 12,2333 02643 DELX
054979,000770: 12,2334 02643 STORE DELX
054980,000771: 12,2335 44254 BZE BDSU
054981,000772: 12,2336 02270 KEPRTN
054982,000773: 12,2337 00025 X
054983,000774: 12,2340 14025 STODL X
054984,000775: 12,2341 01551 TC
054985,000776: 12,2342 34037 STCALL T
054986,000777: 12,2343 24305 BRNCHCTR
054987,000778: 12,2344 34015 NEGTOVFL STCALL XMIN
054988,000779: 12,2345 24332 CMNTOVFL
054989,000780: 12,2346 44545 KEPCONVG DLOAD SR4R
054990,000781: 12,2347 00041 R1
054991,000782: 12,2350 74225 DSU VXSC
054992,000783: 12,2351 00035 XSQC(XI)
054993,000784: 12,2352 02647 URRECT
054994,000785: 12,2353 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
054995,000786: 12,2354 00025 X
054996,000787: 12,2355 60316 DSQ NORM
054997,000788: 12,2356 00047 X1
054998,000789: 12,2357 57275 DMPR DMPR
054999,000790: 12,2360 00023 1/ROOTMU
055000,000791: 12,2361 00025 X
055001,000792: 12,2362 53605 DMP SRR*
055002,000793: 12,2363 00033 S(XI)
055003,000794: 12,2364 21572 0 -7,1
055004,000795: 12,2365 77621 BDSU
055005,000796: 12,2366 00037 T
055006,000797: 12,2367 74352 SL1 VXSC
055007,000798: 12,2370 01511 VRECT
055008,000799: 12,2371 53372 VSL1 VAD # PL AT 0
055009,000800: 12,2372 77712 VSL4
055010,000801: 12,2373 01535 STORE RCV # RCV (+29 OR +27)
055011,000802:
055012,000803: 12,2374 60246 ABVAL NORM
055013,000804: 12,2375 00050 X2
055014,000805: 12,2376 16655 STODL RCNORM
055015,000806: 12,2377 00031 XI
055016,000807: 12,2400 45275 DMPR DSU
055017,000808: 12,2401 00033 S(XI)
055018,000809: 12,2402 11603 D1/128
055019,000810: 12,2403 76405 DMP SL1R
055020,000811: 12,2404 00021 ROOTMU
055021,000812: 12,2405 53605 DMP SLR*
|
|
Page 1282
|
055023,000814: 12,2406 00025 X
055024,000815: 12,2407 56601 0 -3,2
055025,000816: 12,2410 74271 DDV VXSC
055026,000817: 12,2411 02655 RCNORM
055027,000818: 12,2412 02647 URRECT
055028,000819: 12,2413 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
055029,000820: 12,2414 00035 XSQC(XI) # OR +13) PL AT 6
055030,000821: 12,2415 56257 SLR* DDV
055031,000822: 12,2416 56602 0 -4,2
055032,000823: 12,2417 02655 RCNORM
055033,000824: 12,2420 74221 BDSU VXSC
055034,000825: 12,2421 11617 D1/256
055035,000826: 12,2422 01511 VRECT
055036,000827: 12,2423 42455 VAD VSL8
055037,000828: 12,2424 77626 STADR # PL AT 0
055038,000829: 12,2425 62234 STODL VCV # VCV (+7 OR +5)
055039,000830: 12,2426 00037 T
055040,000831: 12,2427 15551 STODL TC
055041,000832: 12,2430 00025 X
055042,000833: 12,2431 35553 STCALL XPREV
055043,000834: 12,2432 02270 KEPRTN
055044,000835:
|
|
Page 1283
|
055046,000837: 12,2433 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
055047,000838: 12,2434 07171 TC POLY
055048,000839: 12,2435 00010 DEC 8 B-14
055049,000840: 12,2436 02525 12526 2DEC .083333334
055050,000841:
055051,000842: 12,2440 67356 75666 2DEC -.266666684
055052,000843:
055053,000844: 12,2442 15001 23771 2DEC .406349155
055054,000845:
055055,000846: 12,2444 64342 43674 2DEC -.361198675
055056,000847:
055057,000848: 12,2446 06563 04645 2DEC .210153242
055058,000849:
055059,000850: 12,2450 75173 52672 2DEC -.086221951
055060,000851:
055061,000852: 12,2452 00656 14331 2DEC .026268812
055062,000853:
055063,000854: 12,2454 77633 40512 2DEC -.006163316
055064,000855:
055065,000856: 12,2456 00023 11210 2DEC .001177342
055066,000857:
055067,000858: 12,2460 77774 67506 2DEC -.000199055
055068,000859:
055069,000860: 12,2462 06006 TC INTPRET
055070,000861: 12,2463 14033 STODL S(XI)
055071,000862: 12,2464 00031 XI
055072,000863: 12,2465 77776 EXIT
055073,000864: 12,2466 07171 TC POLY
055074,000865: 12,2467 00010 DEC 8 B-14
055075,000866: 12,2470 01000 00000 2DEC .031250001
055076,000867:
055077,000868: 12,2472 72525 52506 2DEC -.166666719
055078,000869:
055079,000870: 12,2474 13301 15337 2DEC .355555413
055080,000871:
055081,000872: 12,2476 62776 54733 2DEC -.406347410
055082,000873:
055083,000874: 12,2500 11176 13267 2DEC .288962094
055084,000875:
055085,000876: 12,2502 73410 51674 2DEC -.140117894
055086,000877:
055087,000878: 12,2504 01446 33641 2DEC .049247387
055088,000879:
055089,000880: 12,2506 77451 65233 2DEC -.013081923
055090,000881:
055091,000882: 12,2510 00055 37266 2DEC .002806389
055092,000883:
055093,000884: 12,2512 77767 52336 2DEC -.000529414
055094,000885:
055095,000886: 12,2514 06006 TC INTPRET
|
|
Page 1284
|
055097,000888: 12,2515 53605 DMP SRR* # PL AT 0
055098,000889: 12,2516 00001 0D
055099,000890: 12,2517 21574 0 -5,1
055100,000891: 12,2520 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
055101,000892: 12,2521 72405 DMP SL1
055102,000893: 12,2522 00043 KEPC1
055103,000894: 12,2523 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
055104,000895: 12,2524 45565 TPMODE # PL AT 0,3
055105,000896: 12,2525 53605 DMP SRR*
055106,000897: 12,2526 00033 S(XI)
055107,000898: 12,2527 21574 0 -5,1
055108,000899: 12,2530 72405 DMP SL1
055109,000900: 12,2531 00045 KEPC2
055110,000901: 12,2532 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
055111,000902: 12,2533 45565 TPMODE
055112,000903: 12,2534 00041 R1
055113,000904: 12,2535 76261 SR TAD # PL AT 3
055114,000905: 12,2536 20607 6
055115,000906: 12,2537 41301 NORM DMP # TO PRESERVE SIGNIF.
055116,000907: 12,2540 00047 X1
055117,000908: 12,2541 00025 X
055118,000909: 12,2542 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
055119,000910: 12,2543 20576 0 -3,1
055120,000911: 12,2544 57232 SL4R DMPR
055121,000912: 12,2545 00023 1/ROOTMU
055122,000913: 12,2546 00037 STORE T
055123,000914: 12,2547 77616 RVQ
055124,000915:
|
|
Page 1285
|
055126,000917: 12,2550 71214 ITERATOR BONCLR DLOAD
055127,000918: 12,2551 00614 SLOPESW
055128,000919: 12,2552 24620 FIRSTIME
055129,000920: 12,2553 00037 DEP
055130,000921: 12,2554 60225 DSU NORM
055131,000922: 12,2555 02764 DEPREV
055132,000923: 12,2556 00047 X1
055133,000924: 12,2557 60325 PDDL NORM
055134,000925: 12,2560 00015 DELINDEP
055135,000926: 12,2561 00050 X2
055136,000927: 12,2562 41260 XSU,1 DMP
055137,000928: 12,2563 00047 X2
055138,000929: 12,2564 02762 DELDEP
055139,000930: 12,2565 56257 SLR* DDV # PL UP 2
055140,000931: 12,2566 21202 1,1
055141,000932: 12,2567 43142 SR1 BOFF
055142,000933: 12,2570 04351 ORDERSW
055143,000934: 12,2571 24574 SGNCHECK
055144,000935: 12,2572 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
055145,000936: 12,2573 02762 DELDEP # DISREGARD IT TO FIND MIN.
055146,000937:
055147,000938: 12,2574 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
055148,000939: 12,2575 24632 POSDEL
055149,000940: 12,2576 43145 DLOAD BON
055150,000941: 12,2577 03775 INDEP
055151,000942: 12,2600 04311 ORDERSW
055152,000943: 12,2601 24603 MINCHECK
055153,000944: 12,2602 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
055154,000945:
055155,000946: 12,2603 45221 MINCHECK BDSU DSU
055156,000947: 12,2604 00011 MIN
055157,000948: 12,2605 51000 BOV BPL
055158,000949: 12,2606 24612 MODNGDEL
055159,000950: 12,2607 24612 MODNGDEL
055160,000951: 12,2610 77650 GOTO
055161,000952: 12,2611 24644 DELOK
055162,000953:
055163,000954: 12,2612 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
055164,000955: 12,2613 00011 MIN
055165,000956: 12,2614 03775 INDEP
055166,000957: 12,2615 52005 DMP GOTO
055167,000958: 12,2616 11621 DP9/10
055168,000959: 12,2617 24646 NEWDEL
055169,000960:
055170,000961: 12,2620 41345 FIRSTIME DLOAD DMP
055171,000962: 12,2621 00011 MIN
055172,000963: 12,2622 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
055173,000964: 12,2623 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
|
|
Page 1286
|
055175,000966: 12,2624 00017 MAX
055176,000967: 12,2625 00051 TWEEKIT
055177,000968: 12,2626 77625 DSU
055178,000969: 12,2627 52165 SIGN GOTO
055179,000970: 12,2630 02762 DELDEP
055180,000971: 12,2631 24574 SGNCHECK
055181,000972:
055182,000973: 12,2632 43145 POSDEL DLOAD BON
055183,000974: 12,2633 03775 INDEP
055184,000975: 12,2634 04311 ORDERSW
055185,000976: 12,2635 24637 MAXCHECK
055186,000977: 12,2636 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
055187,000978:
055188,000979: 12,2637 45221 MAXCHECK BDSU DSU
055189,000980: 12,2640 00017 MAX
055190,000981: 12,2641 50000 BOV BMN
055191,000982: 12,2642 24650 MODPSDEL
055192,000983: 12,2643 24650 MODPSDEL
055193,000984: 12,2644 77745 DELOK DLOAD
055194,000985: 12,2645 00001 0D
055195,000986: 12,2646 00015 NEWDEL STORE DELINDEP
055196,000987: 12,2647 77616 RVQ
055197,000988:
055198,000989: 12,2650 45345 MODPSDEL DLOAD DSU
055199,000990: 12,2651 00017 MAX
055200,000991: 12,2652 03775 INDEP
055201,000992: 12,2653 52005 DMP GOTO
055202,000993: 12,2654 11621 DP9/10
055203,000994: 12,2655 24646 NEWDEL
055204,000995:
055205,000996: 12,2656 45017 CHECKCTR CS ONE
055206,000997: 12,2657 50120 INDEX FIXLOC
055207,000998: 12,2660 60026 AD ITERCTR
055208,000999: 12,2661 50120 INDEX FIXLOC
055209,001000: 12,2662 54026 TS ITERCTR
055210,001001: 12,2663 54154 TS MPAC
055211,001002: 12,2664 06030 TC DANZIG
055212,001003:
|
|
Page 1287
|
055214,001005: 12,2665 44545 NEWSTATE DLOAD SR4R
055215,001006: 12,2666 00041 R1
055216,001007: 12,2667 74225 DSU VXSC
055217,001008: 12,2670 00035 XSQC(XI)
055218,001009: 12,2671 02724 UR1
055219,001010: 12,2672 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
055220,001011: 12,2673 00025 X
055221,001012: 12,2674 60316 DSQ NORM
055222,001013: 12,2675 00047 X1
055223,001014: 12,2676 57275 DMPR DMPR
055224,001015: 12,2677 00023 1/ROOTMU
055225,001016: 12,2700 00025 X
055226,001017: 12,2701 53605 DMP SRR*
055227,001018: 12,2702 00033 S(XI)
055228,001019: 12,2703 21572 0 -7,1
055229,001020: 12,2704 77621 BDSU
055230,001021: 12,2705 00037 T
055231,001022: 12,2706 74352 SL1 VXSC
055232,001023: 12,2707 02746 VVEC
055233,001024: 12,2710 53372 VSL1 VAD # PL AT 0
055234,001025: 12,2711 41512 VSL4 PUSH
055235,001026: 12,2712 77646 ABVAL
055236,001027: 12,2713 77701 LAMENTER NORM
055237,001028: 12,2714 00047 X1
055238,001029: 12,2715 16722 STODL R2
055239,001030: 12,2716 00031 XI
055240,001031: 12,2717 45205 DMP DSU
055241,001032: 12,2720 00033 S(XI)
055242,001033: 12,2721 11603 D1/128
055243,001034: 12,2722 76405 DMP SL1R
055244,001035: 12,2723 00021 ROOTMU
055245,001036: 12,2724 53605 DMP SLR*
055246,001037: 12,2725 00025 X
055247,001038: 12,2726 21176 0 -3,1
055248,001039: 12,2727 74271 DDV VXSC
055249,001040: 12,2730 02722 R2
055250,001041: 12,2731 02724 UR1
055251,001042: 12,2732 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
055252,001043: 12,2733 00035 XSQC(XI)
055253,001044: 12,2734 56257 SLR* DDV
055254,001045: 12,2735 21175 0 -4,1
055255,001046: 12,2736 02722 R2
055256,001047: 12,2737 77621 BDSU
055257,001048: 12,2740 11617 D1/256
055258,001049: 12,2741 53361 VXSC VAD
055259,001050: 12,2742 02746 VVEC # PL AT 6
055260,001051: 12,2743 43412 VSL8 RVQ
055261,001052:
|
|
Page 1288
|
055263,001054: 04,2000 SETLOC CONICS1
055264,001055: 04,2000 BANK
055265,001056:
055266,001057: 04,3577 COUNT 04/CONIC
055267,001058: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
055268,001059: 04,3577 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
055269,001060: 04,3600 04000 00000 D1/8 2DEC 1.0 B-3
055270,001061:
055271,001062: 04,3602 00200 00000 D1/128 2DEC 1.0 B-7
055272,001063:
055273,001064: 04,3604 00400 00000 D1/64 2DEC 1.0 B-6
055274,001065:
055275,001066: 04,3606 10000 00000 D1/4 2DEC 1.0 B-2
055276,001067:
055277,001068: 04,3610 02000 00000 D1/16 2DEC 1.0 B-4
055278,001069:
055279,001070: 04,3612 01000 00000 D1/32 2DEC 1.0 B-5
055280,001071:
055281,001072: 04,3614 00020 00000 D1/1024 2DEC 1.0 B-10
055282,001073:
055283,001074: 04,3616 00100 00000 D1/256 2DEC 1.0 B-8
055284,001075:
055285,001076: 04,3620 34631 23146 DP9/10 2DEC .9
055286,001077:
055287,001078: 04,3622 04,3562 KEPZERO EQUALS LO6ZEROS
055288,001079: 04,3622 77467 77777 -50SC 2DEC -50.0 B-12
055289,001080:
055290,001081: 04,3624 03110 17665 2PISC 2DEC 6.28318530 B-6
055291,001082:
055292,001083: 04,3626 04,3611 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
055293,001084: 04,3626 04,3615 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
055294,001085: 04,3626 00000 00001 ONEBIT 2DEC 1.0 B-28
055295,001086:
055296,001087: 04,3630 37767 37737 COGUPLIM 2DEC .999511597
055297,001088:
055298,001089: 04,3632 40010 40040 COGLOLIM 2DEC -.999511597
055299,001090:
|
|
Page 1289
|
055301,001092: 12,2000 SETLOC CONICS
055302,001093: 12,2000 BANK
055303,001094:
055304,001095: 12,2744 COUNT 12/CONIC
055305,001096:
055306,001097: 12,2744 40220 TIMETHET STQ SETPD # PL AT 0
055307,001098: 12,2745 02712 RTNTT
055308,001099: 12,2746 00001 0
055309,001100: 12,2747 77600 BOV
055310,001101: 12,2750 24751 +1
055311,001102: 12,2751 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
055312,001103: 12,2752 02657 RVEC
055313,001104: 12,2753 02746 VVEC
055314,001105: 12,2754 77624 CALL
055315,001106: 12,2755 11634 PARAM
055316,001107: 12,2756 45000 BOV CALL
055317,001108: 12,2757 24776 COGAOVFL # PL AT 0
055318,001109: 12,2760 25001 GETX
055319,001110: 12,2761 43145 COMMNOUT DLOAD BON
055320,001111: 12,2762 00031 XI
055321,001112: 12,2763 04310 INFINFLG
055322,001113: 12,2764 25751 ABTCONIC
055323,001114: 12,2765 45014 CLEAR CALL
055324,001115: 12,2766 04273 COGAFLAG
055325,001116: 12,2767 24433 DELTIME
055326,001117: 12,2770 45014 BON CALL
055327,001118: 12,2771 03706 RVSW
055328,001119: 12,2772 02712 RTNTT
055329,001120: 12,2773 24665 NEWSTATE
055330,001121: 12,2774 77650 GOTO
055331,001122: 12,2775 02712 RTNTT
055332,001123:
055333,001124: 12,2776 77614 COGAOVFL SETGO
055334,001125: 12,2777 04033 COGAFLAG
055335,001126: 12,3000 25751 ABTCONIC
055336,001127: 04,3634 BANK 4
055337,001128: 04,2000 SETLOC CONICS1
055338,001129: 04,2000 BANK
055339,001130: 04,3634 COUNT* $$/CONIC
055340,001131: 04,3634 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
055341,001132: 04,3635 02755 RTNPRM
055342,001133: 04,3636 03665 NORMSW
055343,001134: 04,3637 77614 CLEAR
055344,001135: 04,3640 04273 COGAFLAG
055345,001136: 04,3641 45131 SSP CALL
055346,001137: 04,3642 02675 GEOMSGN
055347,001138: 04,3643 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
055348,001139: 04,3644 11677 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
055349,001140: 04,3645 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
|
|
Page 1290
|
055351,001142: 04,3646 56261 SR DDV
055352,001143: 04,3647 20606 5
055353,001144:
055354,001145: 04,3650 00045 36D
055355,001146: 04,3651 33775 STOVL* COGA
055356,001147: 04,3652 11735 MUTABLE,1
055357,001148: 04,3653 14017 STODL 1/MU
055358,001149: 04,3654 02722 MAGVEC2
055359,001150: 04,3655 60316 DSQ NORM
055360,001151: 04,3656 00047 X1
055361,001152: 04,3657 41275 DMPR DMP
055362,001153: 04,3660 00017 1/MU
055363,001154: 04,3661 00041 R1
055364,001155: 04,3662 77657 SRR*
055365,001156: 04,3663 21576 0 -3,1
055366,001157: 04,3664 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
055367,001158: 04,3665 11613 D1/32
055368,001159: 04,3666 16744 STODL R1A # R1A (+6) PL AT 0
055369,001160:
055370,001161: 04,3667 60205 DMP NORM
055371,001162: 04,3670 00045 36D
055372,001163: 04,3671 00047 X1
055373,001164: 04,3672 53605 DMP SR*
055374,001165: 04,3673 00045 36D
055375,001166: 04,3674 20575 0 -4,1
055376,001167: 04,3675 36742 STCALL P # P (+4)
055377,001168: 04,3676 02755 RTNPRM
055378,001169:
|
|
Page 1291
|
055380,001171: 04,3677 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
055381,001172: 04,3700 16714 STODL U2 # U2 (+1)
055382,001173: 04,3701 00045 36D
055383,001174: 04,3702 26722 STOVL MAGVEC2 # PL AT 0
055384,001175: 04,3703 77656 UNIT
055385,001176: 04,3704 02724 STORE UR1 # UR1 (+1)
055386,001177: 04,3705 72441 DOT SL1
055387,001178: 04,3706 02714 U2
055388,001179: 04,3707 77725 PDDL # OD=CSTH (+1) PL AT 2
055389,001180: 04,3710 00045 36D
055390,001181: 04,3711 24041 STOVL R1 # R1 (+29 OR +27)
055391,001182: 04,3712 02724 UR1
055392,001183: 04,3713 76435 VXV VSL1
055393,001184: 04,3714 02714 U2
055394,001185: 04,3715 75214 BON SIGN
055395,001186: 04,3716 03705 NORMSW
055396,001187: 04,3717 11731 HAVENORM
055397,001188: 04,3720 02675 GEOMSGN
055398,001189: 04,3721 40056 UNIT BOV
055399,001190: 04,3722 11727 COLINEAR
055400,001191: 04,3723 16676 UNITNORM STODL UN # UN (+1)
055401,001192: 04,3724 00045 36D
055402,001193: 04,3725 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055403,001194: 04,3726 02675 GEOMSGN
055404,001195:
055405,001196: 04,3727 52162 COLINEAR VSR1 GOTO
055406,001197: 04,3730 11723 UNITNORM
055407,001198:
055408,001199: 04,3731 75246 HAVENORM ABVAL SIGN
055409,001200: 04,3732 02675 GEOMSGN
055410,001201: 04,3733 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055411,001202:
|
|
Page 1292
|
055413,001204: 12,3001 BANK 12
055414,001205: 12,2000 SETLOC CONICS
055415,001206: 12,2000 BANK
055416,001207:
055417,001208: 12,3001 COUNT 12/CONIC
055418,001209:
055419,001210: 12,3001 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
055420,001211: 12,3002 00003 3
055421,001212: 12,3003 00052 S2
055422,001213: 12,3004 00001 1
055423,001214: 12,3005 77614 CLEAR
055424,001215: 12,3006 04276 360SW
055425,001216: 12,3007 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
055426,001217: 12,3010 02734 CSTH
055427,001218: 12,3011 44342 SR1 BDSU
055428,001219: 12,3012 11607 D1/4
055429,001220: 12,3013 54325 PDDL SRR # PL AT 4D
055430,001221: 12,3014 02732 SNTH
055431,001222: 12,3015 21607 6
055432,001223: 12,3016 77671 DDV # PL AT 2
055433,001224: 12,3017 77600 BOV
055434,001225: 12,3020 25134 360CHECK
055435,001226: 12,3021 41225 DSU DMP
055436,001227: 12,3022 03775 COGA # PL AT 0
055437,001228: 12,3023 40132 SL2R BOV
055438,001229: 12,3024 25134 360CHECK
055439,001230: 12,3025 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
055440,001231: 12,3026 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
055441,001232: 12,3027 00155 MPAC
055442,001233: 12,3030 02744 R1A
055443,001234: 12,3031 76202 SR4 TAD # PL AT 2
055444,001235: 12,3032 75440 BMN SQRT
055445,001236: 12,3033 25217 INFINITY
055446,001237: 12,3034 43306 ROUND DAD # PL AT 0D
055447,001238: 12,3035 61000 BOV TIX,2
055448,001239: 12,3036 25132 RESETX2
055449,001240: 12,3037 25025 WLOOP
055450,001241:
055451,001242: 12,3040 40065 BDDV BOV
055452,001243: 12,3041 11603 D1/128
055453,001244: 12,3042 25217 INFINITY
055454,001245: 12,3043 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
055455,001246: 12,3044 25217 INFINITY
055456,001247: 12,3045 77716 DSQ
055457,001248: 12,3046 41301 NORM DMP
055458,001249: 12,3047 00047 X1
055459,001250: 12,3050 02744 R1A
055460,001251: 12,3051 77457 SRR* EXIT
055461,001252: 12,3052 21567 0 -10D,1
|
|
Page 1293
|
055463,001254: 12,3053 07171 TC POLY
055464,001255: 12,3054 00005 DEC 5 B-14
055465,001256: 12,3055 20000 00000 2DEC .5
055466,001257:
055467,001258: 12,3057 72525 52471 2DEC -.166666770
055468,001259:
055469,001260: 12,3061 03146 15003 2DEC .100000392
055470,001261:
055471,001262: 12,3063 75556 45210 2DEC -.071401086
055472,001263:
055473,001264: 12,3065 01615 13553 2DEC .055503292
055474,001265:
055475,001266: 12,3067 76371 63777 2DEC -.047264098
055476,001267:
055477,001268: 12,3071 01232 27367 2DEC .040694204
055478,001269:
055479,001270: 12,3073 06006 TC INTPRET
055480,001271: 12,3074 76405 DMP SL1R # PL AT 0D
055481,001272: 12,3075 43006 PUSH BON
055482,001273: 12,3076 04316 360SW
055483,001274: 12,3077 25204 TRUE360X
055484,001275: 12,3100 60316 XCOMMON DSQ NORM
055485,001276: 12,3101 00047 X1
055486,001277: 12,3102 53605 DMP SRR*
055487,001278: 12,3103 02744 R1A
055488,001279: 12,3104 21565 0 -12D,1
055489,001280: 12,3105 14031 STODL XI # XI (+6)
055490,001281:
055491,001282: 12,3106 00041 R1
055492,001283: 12,3107 75542 SR1 SQRT
055493,001284: 12,3110 41306 ROUND DMP
055494,001285: 12,3111 77632 SL4R # PL AT 0
055495,001286: 12,3112 00025 STORE X # X (+17 OR +16)
055496,001287:
055497,001288: 12,3113 60316 DSQ NORM
055498,001289: 12,3114 00047 X1
055499,001290: 12,3115 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
055500,001291: 12,3116 02742 P
055501,001292: 12,3117 00041 R1
055502,001293: 12,3120 75452 SL3 SQRT
055503,001294: 12,3121 56405 DMP SL3R
055504,001295: 12,3122 03775 COGA
055505,001296: 12,3123 14043 STODL KEPC1
055506,001297: 12,3124 02744 R1A
055507,001298: 12,3125 43021 BDSU CLEAR
055508,001299: 12,3126 11605 D1/64
055509,001300: 12,3127 04270 INFINFLG
055510,001301: 12,3130 00045 STORE KEPC2
|
|
Page 1294
|
055512,001303: 12,3131 77616 RVQ
055513,001304:
055514,001305: 12,3132 77774 RESETX2 AXT,2
055515,001306: 12,3133 00003 3
055516,001307:
055517,001308: 12,3134 51001 360CHECK SETPD BPL
055518,001309: 12,3135 00001 0D
055519,001310: 12,3136 25141 INVRSEQN
055520,001311: 12,3137 77614 SET
055521,001312: 12,3140 04076 360SW
055522,001313:
055523,001314: 12,3141 75545 INVRSEQN DLOAD SQRT
055524,001315: 12,3142 02742 P
055525,001316: 12,3143 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
055526,001317: 12,3144 02732 SNTH
055527,001318: 12,3145 03775 COGA
055528,001319: 12,3146 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
055529,001320: 12,3147 02734 CSTH
055530,001321: 12,3150 43202 SR4 DAD
055531,001322: 12,3151 11613 D1/32
055532,001323: 12,3152 41225 DSU DMP # PL AT 2,0
055533,001324: 12,3153 55301 NORM BDDV
055534,001325: 12,3154 00047 X1
055535,001326: 12,3155 02732 SNTH
055536,001327: 12,3156 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
055537,001328: 12,3157 21174 0 -5,1
055538,001329: 12,3160 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
055539,001330: 12,3161 14043 STODL 34D
055540,001331: 12,3162 11611 D1/16
055541,001332: 12,3163 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
055542,001333: 12,3164 65234 RTB PDDL # PL AT 7
055543,001334: 12,3165 45565 TPMODE
055544,001335: 12,3166 02744 R1A
055545,001336: 12,3167 40405 DMP SR4
055546,001337: 12,3170 00043 34D
055547,001338: 12,3171 77771 TAD
055548,001339: 12,3172 75440 BMN SQRT # PL AT 4
055549,001340: 12,3173 25217 INFINITY
055550,001341: 12,3174 77615 DAD # PL AT 2
055551,001342: 12,3175 60304 TIX,2 NORM
055552,001343: 12,3176 25163 1/WLOOP
055553,001344: 12,3177 00047 X1
055554,001345: 12,3200 77665 BDDV
055555,001346: 12,3201 52057 SLR* GOTO # PL AT 0
055556,001347: 12,3202 21172 0 -7,1
055557,001348: 12,3203 25043 POLYCOEF
055558,001349:
|
|
Page 1295
|
055560,001351: 12,3204 50145 TRUE360X DLOAD BMN
055561,001352: 12,3205 02744 R1A
055562,001353: 12,3206 25217 INFINITY
055563,001354: 12,3207 60366 SQRT NORM
055564,001355: 12,3210 00047 X1
055565,001356: 12,3211 53665 BDDV SL*
055566,001357: 12,3212 11625 2PISC
055567,001358: 12,3213 20176 0 -3,1
055568,001359: 12,3214 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
055569,001360: 12,3215 77650 GOTO
055570,001361: 12,3216 25100 XCOMMON
055571,001362: 12,3217 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
055572,001363: 12,3220 00001 0 # INFINITY IS REQUIRED
055573,001364: 12,3221 25222 OVFLCLR
055574,001365: 12,3222 43414 OVFLCLR SET RVQ
055575,001366: 12,3223 04070 INFINFLG
055576,001367:
|
|
Page 1296
|
055578,001369: 12,3224 40220 LAMBERT STQ SETPD
055579,001370: 12,3225 02712 RTNLAMB
055580,001371: 12,3226 00001 0D
055581,001372: 12,3227 77600 BOV
055582,001373: 12,3230 25231 +1
055583,001374: 12,3231 76731 SSP VLOAD*
055584,001375: 12,3232 00027 ITERCTR
055585,001376: 12,3233 00024 20D
055586,001377: 12,3234 11735 MUTABLE,1
055587,001378: 12,3235 14017 STODL 1/MU
055588,001379: 12,3236 02673 TDESIRED
055589,001380: 12,3237 77675 DMPR
055590,001381: 12,3240 11612 BEE19
055591,001382: 12,3241 03777 STORE EPSILONL
055592,001383: 12,3242 77214 SET VLOAD
055593,001384: 12,3243 00474 SLOPESW
055594,001385: 12,3244 02657 R1VEC
055595,001386: 12,3245 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
055596,001387: 12,3246 02665 R2VEC # MPAC=R2VEC (+29 OR +27)
055597,001388: 12,3247 11677 GEOM
055598,001389: 12,3250 16732 STODL SNTH # 0D=CSTH (+1) PL AT 2
055599,001390: 12,3251 02722 MAGVEC2
055600,001391: 12,3252 65301 NORM PDDL # PL AT 4
055601,001392: 12,3253 00047 X1
055602,001393: 12,3254 00041 R1
055603,001394: 12,3255 56342 SR1 DDV # PL AT 2
055604,001395: 12,3256 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
055605,001396: 12,3257 20173 0 -6,1
055606,001397: 12,3260 77626 STADR
055607,001398: 12,3261 75043 STORE CSTH # CSTH (+1)
055608,001399: 12,3262 44342 SR1 BDSU
055609,001400: 12,3263 11607 D1/4
055610,001401: 12,3264 02736 STORE 1-CSTH # 1-CSTH (+2)
055611,001402:
055612,001403: 12,3265 53106 ROUND BZE
055613,001404: 12,3266 25473 360LAMB
055614,001405: 12,3267 65301 NORM PDDL # PL AT 4
055615,001406: 12,3270 00047 X1
055616,001407: 12,3271 00001 0D
055617,001408: 12,3272 56342 SR1 DDV # PL AT 2
055618,001409: 12,3273 75457 SL* SQRT
055619,001410: 12,3274 20176 0 -3,1
055620,001411: 12,3275 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
055621,001412: 12,3276 02732 SNTH
055622,001413: 12,3277 20607 6
055623,001414: 12,3300 43271 DDV DAD # PL AT 2
055624,001415: 12,3301 02736 1-CSTH
055625,001416: 12,3302 77626 STADR
055626,001417: 12,3303 77760 STORE COGAMAX
055627,001418: 12,3304 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
|
|
Page 1297
|
055629,001420: 12,3305 25312 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
055630,001421: 12,3306 25315 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
055631,001422: 12,3307 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
055632,001423: 12,3310 11631 COGUPLIM
055633,001424: 12,3311 25315 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
055634,001425: 12,3312 77745 UPLIM DLOAD
055635,001426: 12,3313 11631 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
055636,001427: 12,3314 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
055637,001428: 12,3315 77745 MAXCOGA DLOAD
055638,001429: 12,3316 02734 CSTH
055639,001430: 12,3317 45261 SR DSU # PL AT 0
055640,001431: 12,3320 20607 6
055641,001432: 12,3321 77626 STADR
055642,001433: 12,3322 61037 STODL CSTH-RHO
055643,001434: 12,3323 02675 GEOMSGN
055644,001435: 12,3324 71240 BMN DLOAD
055645,001436: 12,3325 25512 LOLIM
055646,001437: 12,3326 02740 CSTH-RHO
055647,001438: 12,3327 56352 SL1 DDV
055648,001439: 12,3330 02732 SNTH
055649,001440: 12,3331 77600 BOV
055650,001441: 12,3332 25512 LOLIM
055651,001442: 12,3333 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
055652,001443: 12,3334 66214 BON SSP
055653,001444: 12,3335 00715 GUESSW
055654,001445: 12,3336 25477 NOGUESS
055655,001446: 12,3337 00051 TWEEKIT
055656,001447: 12,3340 00001 00001
055657,001448: 12,3341 77745 DLOAD
055658,001449: 12,3342 03775 COGA
055659,001450:
055660,001451: 12,3343 77605 LAMBLOOP DMP
055661,001452: 12,3344 02732 SNTH
055662,001453: 12,3345 45342 SR1 DSU
055663,001454: 12,3346 02740 CSTH-RHO
055664,001455: 12,3347 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
055665,001456: 12,3350 00047 X1
055666,001457: 12,3351 02736 1-CSTH
055667,001458: 12,3352 56257 SL* DDV # 1-CSTH (+2) PL AT 0
055668,001459: 12,3353 20170 0 -9D,1
055669,001460: 12,3354 53040 BMN BZE
055670,001461: 12,3355 25431 NEGP
055671,001462: 12,3356 25431 NEGP
055672,001463: 12,3357 16742 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
055673,001464: 12,3360 03775 COGA
055674,001465: 12,3361 43316 DSQ DAD
055675,001466: 12,3362 11615 D1/1024
055676,001467: 12,3363 41301 NORM DMP
055677,001468: 12,3364 00047 X1
|
|
Page 1298
|
055679,001470: 12,3365 02742 P
055680,001471: 12,3366 44257 SR* BDSU
055681,001472: 12,3367 20571 0 -8D,1
055682,001473: 12,3370 11613 D1/32
055683,001474: 12,3371 16744 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
055684,001475:
055685,001476: 12,3372 02742 P
055686,001477: 12,3373 45000 BOV CALL
055687,001478: 12,3374 25434 HIENERGY
055688,001479: 12,3375 25001 GETX
055689,001480: 12,3376 77745 DLOAD
055690,001481: 12,3377 00037 T
055691,001482: 12,3400 16764 STODL TPREV
055692,001483: 12,3401 00031 XI
055693,001484: 12,3402 45014 BON CALL
055694,001485: 12,3403 04310 INFINFLG
055695,001486: 12,3404 25431 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
055696,001487: 12,3405 24433 DELTIME
055697,001488: 12,3406 44200 BOV BDSU
055698,001489: 12,3407 25450 BIGTIME
055699,001490: 12,3410 02673 TDESIRED
055700,001491: 12,3411 02762 STORE TERRLAMB
055701,001492: 12,3412 44246 ABS BDSU
055702,001493: 12,3413 03777 EPSILONL
055703,001494: 12,3414 47044 BPL RTB
055704,001495: 12,3415 25515 INITV
055705,001496: 12,3416 24656 CHECKCTR
055706,001497: 12,3417 45030 BHIZ CALL
055707,001498: 12,3420 25460 SUFFCHEK
055708,001499: 12,3421 24550 ITERATOR
055709,001500: 12,3422 53145 DLOAD BZE
055710,001501: 12,3423 00155 MPAC
055711,001502: 12,3424 25460 SUFFCHEK
055712,001503: 12,3425 77615 DAD
055713,001504: 12,3426 03775 COGA
055714,001505: 12,3427 37775 STCALL COGA
055715,001506: 12,3430 25343 LAMBLOOP
055716,001507:
055717,001508: 12,3431 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
055718,001509: 12,3432 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
055719,001510: 12,3433 25453 LOENERGY
055720,001511:
055721,001512: 12,3434 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
055722,001513: 12,3435 00001 0
055723,001514: 12,3436 03775 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
055724,001515: 12,3437 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
055725,001516: 12,3440 70545 COMMONLM DLOAD SR1
055726,001517: 12,3441 00015 DCOGA
|
|
Page 1299
|
055728,001519: 12,3442 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
055729,001520: 12,3443 44254 BZE BDSU
055730,001521: 12,3444 25460 SUFFCHEK
055731,001522: 12,3445 03775 COGA
055732,001523: 12,3446 37775 STCALL COGA
055733,001524: 12,3447 25343 LAMBLOOP
055734,001525:
055735,001526: 12,3450 77745 BIGTIME DLOAD
055736,001527: 12,3451 02764 TPREV
055737,001528: 12,3452 00037 STORE T
055738,001529:
055739,001530: 12,3453 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
055740,001531: 12,3454 00001 0
055741,001532: 12,3455 03775 COGA # IN OVERFLOW OF TIME.
055742,001533: 12,3456 34017 STCALL COGAMAX # THIS IS THE NEW BOUND.
055743,001534: 12,3457 25440 COMMONLM
055744,001535:
055745,001536: 12,3460 51545 SUFFCHEK DLOAD ABS
055746,001537: 12,3461 02762 TERRLAMB
055747,001538: 12,3462 41325 PDDL DMP
055748,001539: 12,3463 02673 TDESIRED # PL AT 2D
055749,001540: 12,3464 11607 D1/4
055750,001541: 12,3465 45215 DAD DSU # PL AT 0D
055751,001542: 12,3466 11627 ONEBIT
055752,001543: 12,3467 43044 BPL SETGO
055753,001544: 12,3470 25515 INITV
055754,001545: 12,3471 02434 SOLNSW
055755,001546: 12,3472 02712 RTNLAMB
055756,001547:
055757,001548: 12,3473 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
055758,001549: 12,3474 00001 0
055759,001550: 12,3475 02434 SOLNSW
055760,001551: 12,3476 02712 RTNLAMB
055761,001552:
055762,001553: 12,3477 71331 NOGUESS SSP DLOAD
055763,001554: 12,3500 00051 TWEEKIT
055764,001555: 12,3501 10000 20000
055765,001556: 12,3502 00011 COGAMIN
055766,001557: 12,3503 65342 SR1 PDDL # PL AT 2
055767,001558: 12,3504 00017 COGAMAX
055768,001559: 12,3505 43342 SR1 DAD
055769,001560: 12,3506 77626 STADR # PL AT 0
055770,001561: 12,3507 74002 STORE COGA
055771,001562: 12,3510 34015 STCALL DCOGA
055772,001563: 12,3511 25343 LAMBLOOP
|
|
Page 1300
|
055774,001565: 12,3512 52145 LOLIM DLOAD GOTO
055775,001566: 12,3513 11633 COGLOLIM # COGLOLIM=-.999511597
055776,001567: 12,3514 25333 MINCOGA
055777,001568:
055778,001569: 12,3515 60345 INITV DLOAD NORM
055779,001570: 12,3516 00041 R1
055780,001571: 12,3517 00047 X1
055781,001572: 12,3520 70525 PDDL SR1 # PL AT 2
055782,001573: 12,3521 02742 P
055783,001574: 12,3522 77671 DDV # PL AT 0
055784,001575: 12,3523 75457 SL* SQRT
055785,001576: 12,3524 20175 0 -4,1
055786,001577: 12,3525 72405 DMP SL1
055787,001578: 12,3526 00021 ROOTMU
055788,001579: 12,3527 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
055789,001580: 12,3530 03775 COGA
055790,001581: 12,3531 74261 SL VXSC
055791,001582: 12,3532 20206 5
055792,001583: 12,3533 02724 UR1
055793,001584: 12,3534 77725 PDDL # XCH WITH 0D PL AT 0,6
055794,001585: 12,3535 76561 VXSC VSL1
055795,001586: 12,3536 02676 UN
055796,001587: 12,3537 53235 VXV VAD
055797,001588: 12,3540 02724 UR1 # PL AT 0
055798,001589: 12,3541 43172 VSL1 CLEAR
055799,001590: 12,3542 02674 SOLNSW
055800,001591: 12,3543 02746 STORE VVEC
055801,001592: 12,3544 53135 SLOAD BZE
055802,001593: 12,3545 02704 VTARGTAG
055803,001594: 12,3546 25551 TARGETV
055804,001595: 12,3547 77650 GOTO
055805,001596: 12,3550 02712 RTNLAMB
055806,001597:
055807,001598: 12,3551 45145 TARGETV DLOAD CALL
055808,001599: 12,3552 02722 MAGVEC2
055809,001600: 12,3553 24713 LAMENTER
055810,001601: 12,3554 36705 STCALL VTARGET
055811,001602: 12,3555 02712 RTNLAMB
055812,001603:
|
|
Page 1301
|
055814,001605: 12,3556 40220 TIMERAD STQ SETPD # PL AT 0
055815,001606: 12,3557 02712 RTNTR
055816,001607: 12,3560 00001 0
055817,001608: 12,3561 77600 BOV
055818,001609: 12,3562 25563 +1
055819,001610: 12,3563 63375 VLOAD PDVL # PL AT 6
055820,001611: 12,3564 02657 RVEC
055821,001612: 12,3565 02746 VVEC
055822,001613: 12,3566 77624 CALL
055823,001614: 12,3567 11634 PARAM
055824,001615: 12,3570 71200 BOV DLOAD
055825,001616: 12,3571 24776 COGAOVFL # PL AT 0
055826,001617: 12,3572 11613 D1/32
055827,001618: 12,3573 41225 DSU DMP
055828,001619: 12,3574 02744 R1A
055829,001620: 12,3575 02742 P
055830,001621: 12,3576 41366 SQRT DMP
055831,001622: 12,3577 03775 COGA
055832,001623: 12,3600 74212 SL4 VXSC
055833,001624: 12,3601 02714 U2
055834,001625: 12,3602 45325 PDDL DSU # PL AT 6
055835,001626: 12,3603 11605 D1/64
055836,001627: 12,3604 02744 R1A
055837,001628: 12,3605 52361 VXSC VSU # PL AT 0
055838,001629: 12,3606 02724 UR1
055839,001630: 12,3607 53512 VSL4 UNIT
055840,001631: 12,3610 77600 BOV
055841,001632: 12,3611 25667 CIRCULAR
055842,001633: 12,3612 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
055843,001634: 12,3613 02760 RDESIRED # 36D=ECC (+3)
055844,001635: 12,3614 00047 X1
055845,001636: 12,3615 41325 PDDL DMP # PL AT 8
055846,001637: 12,3616 00041 R1
055847,001638: 12,3617 02742 P
055848,001639: 12,3620 56257 SL* DDV # PL AT 6
055849,001640: 12,3621 20201 0,1
055850,001641: 12,3622 56225 DSU DDV
055851,001642: 12,3623 11611 D1/16
055852,001643: 12,3624 00045 36D # 36D=ECC (+3)
055853,001644: 12,3625 00031 STORE COSF
055854,001645: 12,3626 63400 BOV DSQ
055855,001646: 12,3627 25673 BADR2
055856,001647: 12,3630 50021 BDSU BMN
055857,001648: 12,3631 11607 D1/4
055858,001649: 12,3632 25673 BADR2
055859,001650: 12,3633 75366 SQRT SIGN
055860,001651: 12,3634 02757 SGNRDOT
055861,001652: 12,3635 77614 CLEAR
055862,001653: 12,3636 04272 APSESW
055863,001654:
|
|
Page 1302
|
055865,001656: 12,3637 76561 TERMNVEC VXSC VSL1
055866,001657: 12,3640 02676 UN
055867,001658: 12,3641 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
055868,001659: 12,3642 00001 0D
055869,001660: 12,3643 53361 VXSC VAD # PL AT 0
055870,001661: 12,3644 00031 COSF
055871,001662: 12,3645 41572 VSL1 PUSH # 0D=U2 PL AT 6
055872,001663:
055873,001664: 12,3646 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
055874,001665: 12,3647 02724 UR1
055875,001666: 12,3650 23756 DP1/4
055876,001667: 12,3651 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
055877,001668: 12,3652 25653 +1 # CLEAR OVFIND IF SET
055878,001669: 12,3653 26734 STOVL CSTH # CSTH (+1)
055879,001670: 12,3654 02724 UR1
055880,001671: 12,3655 76435 VXV VSL1
055881,001672: 12,3656 72441 DOT SL1
055882,001673: 12,3657 02676 UN
055883,001674: 12,3660 16732 STODL SNTH # SNTH (+1)
055884,001675: 12,3661 02742 P
055885,001676: 12,3662 77624 CALL
055886,001677: 12,3663 25001 GETX
055887,001678: 12,3664 77614 CLRGO
055888,001679: 12,3665 02634 SOLNSW
055889,001680: 12,3666 24761 COMMNOUT
055890,001681:
055891,001682: 12,3667 43001 CIRCULAR SETPD SETGO
055892,001683: 12,3670 00001 0
055893,001684: 12,3671 02434 SOLNSW
055894,001685: 12,3672 25751 ABTCONIC
055895,001686:
055896,001687: 12,3673 75345 BADR2 DLOAD SIGN
055897,001688: 12,3674 11561 LODPHALF
055898,001689: 12,3675 00031 COSF
055899,001690: 12,3676 14031 STODL COSF
055900,001691: 12,3677 11563 KEPZERO
055901,001692: 12,3700 77614 SETGO
055902,001693: 12,3701 04032 APSESW
055903,001694: 12,3702 25637 TERMNVEC
055904,001695:
|
|
Page 1303
|
055906,001697: 12,3703 40220 APSIDES STQ SETPD # PL AT 0
055907,001698: 12,3704 02712 RTNAPSE
055908,001699: 12,3705 00001 0D
055909,001700: 12,3706 77600 BOV
055910,001701: 12,3707 25710 +1
055911,001702: 12,3710 63375 VLOAD PDVL # PL AT 6
055912,001703: 12,3711 02657 RVEC
055913,001704: 12,3712 02746 VVEC
055914,001705: 12,3713 77624 CALL
055915,001706: 12,3714 11634 PARAM
055916,001707: 12,3715 77600 BOV # PL AT 0
055917,001708: 12,3716 25717 GETECC
055918,001709: 12,3717 42405 GETECC DMP SL4
055919,001710: 12,3720 02744 R1A
055920,001711: 12,3721 75421 BDSU SQRT
055921,001712: 12,3722 11605 D1/64
055922,001713: 12,3723 02754 STORE ECC
055923,001714: 12,3724 65215 DAD PDDL # PL AT 2
055924,001715: 12,3725 11601 D1/8
055925,001716: 12,3726 00041 R1
055926,001717: 12,3727 72405 DMP SL1
055927,001718: 12,3730 02742 P
055928,001719: 12,3731 77671 DDV # PL AT 0
055929,001720: 12,3732 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
055930,001721: 12,3733 02744 R1A
055931,001722: 12,3734 00047 X1
055932,001723: 12,3735 53725 PDDL SL* # PL AT 4
055933,001724: 12,3736 00041 R1
055934,001725: 12,3737 20174 0 -5,1
055935,001726: 12,3740 45271 DDV DSU # PL AT 2,0
055936,001727: 12,3741 50000 BOV BMN
055937,001728: 12,3742 25746 INFINAPO
055938,001729: 12,3743 25746 INFINAPO
055939,001730: 12,3744 77650 GOTO
055940,001731: 12,3745 02712 RTNAPSE
055941,001732: 12,3746 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
055942,001733: 12,3747 11574 LDPOSMAX
055943,001734: 12,3750 02712 RTNAPSE # THAT PL IS AT 0.
055944,001735:
|
|
Page 1304
|
055946,001737: 12,3751 77776 ABTCONIC EXIT
055947,001738: 12,3752 05721 TC POODOO
055948,001739: 12,3753 00607 OCT 00607
055949,001740:
|
|
Page 1305
|
055951,001742: 04,2000 SETLOC CONICS1
055952,001743: 04,2000 BANK
055953,001744:
055954,001745: 04,3734 COUNT 04/CONIC
055955,001746:
055956,001747: 04,3734 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
055957,001748:
055958,001749: 04,3736 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
055959,001750:
055960,001751: 04,3740 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
055961,001752:
055962,001753: 04,3742 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
055963,001754:
055964,001755: 04,3744 16471 01352 2DEC 4.902778 E8 B-30 # MUM
055965,001756:
055966,001757: 04,3746 21412 20500 2DEC .203966 E-8 B+28 # 1/MUM
055967,001758:
055968,001759: 04,3750 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
055969,001760:
055970,001761: 04,3752 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
055971,001762:
055972,001763: 04,3754 04,3573 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
055973,001764:
055974,001765: # ERASABLE ASSIGNMENTS
055975,001766:
055976,001767: # KEPLER SUBROUTINE
055977,001768:
055978,001769: # INPUT -
055979,001770: # RRECT ERASE +5
055980,001771: # VRECT ERASE +5
055981,001772: # TAU. ERASE +1
055982,001773: # XKEP ERASE +1
055983,001774: # TC ERASE +1
055984,001775: # XPREV ERASE +1
055985,001776: 04,3754 1/MU EQUALS 14D
055986,001777: 04,3754 ROOTMU EQUALS 16D
055987,001778: 04,3754 1/ROOTMU EQUALS 18D
055988,001779:
055989,001780: # OUTPUT -
055990,001781: # RCV ERASE +5
055991,001782: # VCV ERASE +5
055992,001783: # RC ERASE +1
055993,001784: # XPREV ERASE +1
055994,001785:
055995,001786: # DEBRIS -
055996,001787: 04,3754 ALPHA EQUALS 8D
055997,001788: 04,3754 XMAX EQUALS 10D
|
|
Page 1306
|
055999,001790: 04,3754 XMIN EQUALS 12D
056000,001791: 04,3754 X EQUALS 20D
056001,001792: 04,3754 XI EQUALS 24D
056002,001793: 04,3754 S(XI) EQUALS 26D
056003,001794: 04,3754 XSQC(XI) EQUALS 28D
056004,001795: 04,3754 T EQUALS 30D
056005,001796: 04,3754 R1 EQUALS 32D
056006,001797: 04,3754 KEPC1 EQUALS 34D
056007,001798: 04,3754 KEPC2 EQUALS 36D
056008,001799:
056009,001800: # DELX ERASE +1
056010,001801: # DELT ERASE +1
056011,001802: # URRECT ERASE +5
056012,001803: # RCNORM ERASE +1
056013,001804: # XPREV EQUALS XKEP
056014,001805:
056015,001806:
056016,001807: # LAMBERT SUBROUTINE
056017,001808:
056018,001809: # INPUT -
056019,001810: # R1VEC ERASE +5
056020,001811: # R2VEC ERASE +5
056021,001812: # TDESIRED ERASE +1
056022,001813: # GEOMSGN ERASE +0
056023,001814: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
056024,001815: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
056025,001816: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
056026,001817: # UN ERASE +5 ONLY USED IF NORMSW IS 1
056027,001818: # VTARGTAG ERASE +0
056028,001819: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
056029,001820:
056030,001821: # OUTPUT -
056031,001822: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
056032,001823: # V1VEC EQUALS MPAC
056033,001824:
056034,001825: # DEBRIS -
056035,001826: # RTNLAMB ERASE +0
056036,001827: # U2 ERASE +5
056037,001828: # MAGVEC2 ERASE +1
056038,001829: # UR1 ERASE +5
056039,001830: # R1 EQUALS 31D
056040,001831: # UN ERASE +5
056041,001832: # SNTH ERASE +1
056042,001833: # CSTH ERASE +1
056043,001834: # 1-CSTH ERASE +1
056044,001835: # CSTH-RHO ERASE +1
056045,001836:
056046,001837: 04,3754 COGAMAX EQUALS 14D # CLOBBERS 1/MU
056047,001838: 04,3754 COGAMIN EQUALS 8D
056048,001839: 04,3754 DCOGA EQUALS 12D
056049,001840:
056050,001841: # TWEEKIT EQUALS 40D
056051,001842: # P ERASE +1
|
|
Page 1307
|
056053,001844: # COGA ERASE +1
056054,001845: # R1A ERASE +1
056055,001846: # X EQUALS 20D
056056,001847: # XSQ EQUALS 22D
056057,001848: # XI EQUALS 24D
056058,001849: # S(XI) EQUALS 26D
056059,001850: # XSQC(XI) EQUALS 28D
056060,001851: # T EQUALS 30D
056061,001852: # KEPC1 EQUALS 34D
056062,001853: # KEPC2 EQUALS 36D
056063,001854: # SLOPESW
056064,001855: # SOLNSW
056065,001856:
056066,001857: # OTHERS -
056067,001858: # RVEC EQUALS R1VEC
056068,001859: # VVEC ERASE +5
056069,001860: # COGAFLAG
056070,001861: # RVSW
056071,001862: # INFINFLG
056072,001863: # APSESW
056073,001864: # 360SW
056074,001865: # RTNTT EQUALS RTNLAMB
056075,001866: # ECC ERASE +1
056076,001867: # RTNTR EQUALS RTNLAMB
056077,001868: # RTNAPSE EQUALS RTNLAMB
056078,001869: # R2 EQUALS MAGVEC2
056079,001870:
056080,001871: 04,3754 COSF EQUALS 24D
056081,001872:
056082,001873: # RTNPRM ERASE +0
056083,001874: # SGNRDOT ERASE +0
056084,001875: # RDESIRED ERASE +1
056085,001876:
056086,001877:
056087,001878: # ITERATOR SUBROUTINE
056088,001879:
056089,001880: # ORDERSW
056090,001881: 04,3754 MAX EQUALS 14D # CLOBBERS 1/MU
056091,001882: 04,3754 MIN EQUALS 8D
056092,001883:
056093,001884: # INDEP ERASE +1
056094,001885:
056095,001886: 04,3754 DELINDEP EQUALS 12D
056096,001887: 04,3754 ITERCTR EQUALS 22D
056097,001888: 04,3754 DEP EQUALS 30D
056098,001889:
056099,001890: # DELDEP ERASE +1
056100,001891: # DEPREV ERASE +1
056101,001892:
056102,001893: 04,3754 TWEEKIT EQUALS 40D
056103,001894:
056104,001895:
056105,001896: # MORE KEPLER
056106,001897:
056107,001898: # EPSILONT ERASE +1
056108,001899:
|
|
Page 1308
|
056110,001901: # MORE LAMBERT
056111,001902:
056112,001903: # TERRLAMB EQUALS DELDEP
056113,001904: # TPREV EQUALS DEPREV
056114,001905:
056115,001906: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
056116,001907:
056117,001908:
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc