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