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