Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
049853,000002: ## Copyright: Public domain.
049854,000003: ## Filename: CONIC_SUBROUTINES.agc
049855,000004: ## Purpose: The main source file for Luminary revision 069.
049856,000005: ## It is part of the source code for the original release
049857,000006: ## of the flight software for the Lunar Module's (LM) Apollo
049858,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
049859,000008: ## version was Luminary 69 revision 2, which included a
049860,000009: ## newer lunar gravity model and only affected module 2.
049861,000010: ## This file is intended to be a faithful transcription, except
049862,000011: ## that the code format has been changed to conform to the
049863,000012: ## requirements of the yaYUL assembler rather than the
049864,000013: ## original YUL assembler.
049865,000014: ## Reference: pp. 1154-1199
049866,000015: ## Assembler: yaYUL
049867,000016: ## Contact: Ron Burkey <info@sandroid.org>.
049868,000017: ## Website: www.ibiblio.org/apollo/index.html
049869,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
049870,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
049871,000020: ## 2017-01-22 MAS Updated for Luminary 69
049872,000021: ## 2017-01-28 RSB WTIH -> WITH.
049873,000022: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
049874,000023: ## and fixed errors found.
049875,000024: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
049876,000025: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
049877,000026: ## side-by-side diff of Luminary 69/99/116/131/210.
049878,000027: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
049879,000028: ## Luminary 99 vs Comanche 55.
049880,000029:
![]() |
Page 1154 |
049882,000031: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
049883,000032: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
049884,000033: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
049885,000034:
049886,000035:
049887,000036: # FUNCTIONAL DESCRIPTION -
049888,000037:
049889,000038: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
049890,000039: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
049891,000040: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
049892,000041: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
049893,000042: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
049894,000043: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
049895,000044: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
049896,000045: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
049897,000046: # TINES APPROPRIATELY.
049898,000047: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
049899,000048: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
049900,000049: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
049901,000050:
049902,000051:
049903,000052: # RESTRICTIONS -
049904,000053:
049905,000054: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
049906,000055: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
049907,000056: # TORIES COULD BE HANDLED.
049908,000057: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
049909,000058: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
049910,000059: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
049911,000060:
049912,000061:
![]() |
Page 1155 |
049914,000063: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
049915,000064: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
049916,000065: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
049917,000066: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
049918,000067:
049919,000068:
049920,000069: # FUNCTIONAL DESCRIPTION -
049921,000070: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
049922,000071: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
049923,000072: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
049924,000073: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
049925,000074: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
049926,000075: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
049927,000076: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
049928,000077: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
049929,000078: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
049930,000079: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
049931,000080:
049932,000081:
049933,000082: # THE RESTRICTIONS ARE -
049934,000083: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
049935,000084: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
049936,000085: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049937,000086:
049938,000087:
049939,000088: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
049940,000089: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
049941,000090: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
049942,000091:
049943,000092:
049944,000093:
049945,000094: # REFERENCES -
049946,000095: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
049947,000096: # MEMO 67-4.
049948,000097:
049949,000098:
049950,000099:
049951,000100: # INPUT - ERASABLE INITIALIZATION REQUIRED
049952,000101:
049953,000102: # * SCALE FACTOR *
049954,000103: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
049955,000104: # --------*--------------* -----------------------
049956,000105: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
049957,000106: # * +27 FOR MOON *
049958,000107: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049959,000108: # * +5 FOR MOON *
049960,000109: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049961,000110: # * *RESPECTIVELY, IS THE CENTRAL BODY
049962,000111: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
049963,000112: # XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP
![]() |
Page 1156 |
049965,000114: # * +16 FOR MOON *(DP)
049966,000115: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP
049967,000116: # XPREV * +17 FOR EARTH*PREVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF POWER FROM KEPPREP (DP)
049968,000117: # * +16 FOR MOON *(DP)
049969,000118:
049970,000119:
049971,000120:
049972,000121: # SUBROUTINES CALLED -
049973,000122: # DELTIME
049974,000123:
049975,000124:
049976,000125:
049977,000126: # CALLING SEQUENCE AND NORMAL EXIT MODES -
049978,000127:
049979,000128: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
049980,000129: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
049981,000130: # KEPRTN ... CONTINUE
049982,000131:
049983,000132: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
049984,000133: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
049985,000134: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
049986,000135:
049987,000136:
049988,000137:
049989,000138: # ABORT EXIT MODES -
049990,000139: # NONE
049991,000140:
049992,000141:
049993,000142:
049994,000143: # OUTPUT -
049995,000144:
049996,000145: # * SCALE FACTOR *
049997,000146: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
049998,000147: # --------*--------------* -----------------------
049999,000148: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
050000,000149: # * +27 FOR MOON *
050001,000150: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
050002,000151: # * +5 FOR MOON *
050003,000152: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED.
050004,000153: # XPREV * +17 FOR EARTH*DP X IN METERS-TO-THE-ONE-HALF-POWER TO WHCIH KEPLER CONVERGED.
050005,000154: # * +16 FOR MOON *(DP)
050006,000155: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050007,000156:
050008,000157:
050009,000158:
050010,000159: # DEBRIS -
050011,000160:
050012,000161: # PARAMETERS WHICH MAY BE OF USE -
050013,000162:
050014,000163: # * SCALE FACTOR *
![]() |
Page 1157 |
050016,000165: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050017,000166: # --------*--------------* -----------------------
050018,000167: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
050019,000168: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
050020,000169: # * +27 FOR MOON *
050021,000170: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
050022,000171: # * -20 FOR MOON *
050023,000172: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
050024,000173: # * *TAU. OF LESS THAN ONE PERIOD.
050025,000174:
050026,000175: # PARAMETERS OF NO USE -
050027,000176: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
050028,000177:
050029,000178:
![]() |
Page 1158 |
050031,000180: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
050032,000181: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050033,000182: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050034,000183:
050035,000184:
050036,000185:
050037,000186: # FUNCTIONAL DESCRIPTION -
050038,000187:
050039,000188: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
050040,000189: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
050041,000190: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
050042,000191: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
050043,000192: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
050044,000193: # UTILIZED IN THE COMPUTATION.
050045,000194:
050046,000195:
050047,000196: # THE RESTRICTIONS ARE -
050048,000197: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
050049,000198: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
050050,000199: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050051,000200: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
050052,000201: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
050053,000202: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
050054,000203: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050055,000204: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
050056,000205: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
050057,000206: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
050058,000207:
050059,000208:
050060,000209:
050061,000210: # REFERENCES -
050062,000211: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
050063,000212: # SGA MEMO 67-4.
050064,000213:
050065,000214:
050066,000215:
050067,000216: # INPUT - ERASABLE INITIALIZATION REQUIRED
050068,000217:
050069,000218: # * SCALE FACTOR *
050070,000219: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050071,000220: # --------*--------------*-----------------------
050072,000221: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050073,000222: # * +27 FOR MOON *
050074,000223: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
050075,000224: # * +27 FOR MOON *
050076,000225: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
050077,000226: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050078,000227: # * *RESPECTIVELY, IS THE CENTRAL BODY
050079,000228: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
050080,000229: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
![]() |
Page 1159 |
050082,000231: # * *COGA IS TO BE USED BY LAMBERT
050083,000232: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
050084,000233: # *IGNORED IF GUESSW IS SET.
050085,000234: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
050086,000235: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
050087,000236: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
050088,000237: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
050089,000238: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
050090,000239: # * *AT R1VEC.
050091,000240: # ITERCTR * NONE *A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE.
050092,000241: # * *(AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
050093,000242: # * *ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.)
050094,000243: # * *TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
050095,000244:
050096,000245:
050097,000246: # SUBROUTINES CALLED -
050098,000247: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
050099,000248:
050100,000249:
050101,000250:
050102,000251: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050103,000252:
050104,000253: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050105,000254: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
050106,000255: # IN MPAC IF VTARGTAG WAS ZERO
050107,000256: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
050108,000257: # L+3 SOLNSW
050109,000258: # L+4 LAMABORT
050110,000259: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
050111,000260: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
050112,000261:
050113,000262:
050114,000263:
050115,000264: # ABORT EXIT MODES -
050116,000265: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
050117,000266: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
050118,000267: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
050119,000268: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
050120,000269: # 1-CSTH 360 DEGREES.
050121,000270: # DSU BMN
050122,000271: # ONEBIT
050123,000272: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
050124,000273: # DLOAD DAD
050125,000274: # TDESIRED
050126,000275: # SOMETIME
050127,000276: # STCALL TDESIRED INCREASE TDESIRED
050128,000277: # LAMBERT
050129,000278:
050130,000279:
![]() |
Page 1160 |
050132,000281: # OUTPUT -
050133,000282: # * SCALE FACTOR *
050134,000283: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050135,000284: # --------*--------------* -----------------------
050136,000285: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
050137,000286: # * +5 FOR MOON *PROBLEM.
050138,000287: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
050139,000288: # * +5 FOR MOON *
050140,000289: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
050141,000290: # * *SOLUTION EXISTS.
050142,000291: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050143,000292:
050144,000293:
050145,000294:
050146,000295: # DEBRIS -
050147,000296: # PARAMETERS WHICH MAY BE OF USE -
050148,000297:
050149,000298: # * SCALE FACTOR *
050150,000299: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050151,000300: # --------*--------------* -----------------------
050152,000301: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
050153,000302: # CSTH * +1 *DP COSINE OF ANGLE
050154,000303: # 1-CSTH * +2 *DP 1-CSTH
050155,000304: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
050156,000305: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
050157,000306: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
050158,000307: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
050159,000308: # * +27 FOR MOON *
050160,000309: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
050161,000310: # U2 * +1 *DP UNIT VECTOR OF R2VEC
050162,000311:
050163,000312: # PARAMETERS OF NO USE
050164,000313: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
050165,000314: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
050166,000315:
050167,000316:
![]() |
Page 1161 |
050169,000318: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
050170,000319: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050171,000320: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050172,000321:
050173,000322:
050174,000323:
050175,000324: # FUNCTIONAL DESCRIPTION -
050176,000325:
050177,000326: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
050178,000327: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050179,000328: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050180,000329: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
050181,000330: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050182,000331: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050183,000332:
050184,000333:
050185,000334: # THE RESTRICTIONS ARE -
050186,000335: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050187,000336: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
050188,000337: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
050189,000338: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050190,000339:
050191,000340: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
050192,000341:
050193,000342:
050194,000343:
050195,000344: # REFERENCES -
050196,000345: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050197,000346:
050198,000347:
050199,000348:
050200,000349: # INPUT - ERASABLE INITIALIZATION REQUIRED
050201,000350:
050202,000351: # * SCALE FACTOR *
050203,000352: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050204,000353: # --------*--------------* -----------------------
050205,000354: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050206,000355: # * +27 FOR MOON *
050207,000356: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050208,000357: # * +5 FOR MOON *
050209,000358: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
050210,000359: # CSTH * +1 *DP COSINE OF THE ANGLE
050211,000360: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050212,000361: # * *IS TO BE COMPUTED ALSO.
050213,000362: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050214,000363: # * *RESPECTIVELY, IS THE CENTRAL BODY.
050215,000364:
050216,000365:
050217,000366:
050218,000367: # SUBROUTINES CALLED -
![]() |
Page 1162 |
050220,000369: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
050221,000370:
050222,000371:
050223,000372:
050224,000373: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050225,000374:
050226,000375: # IF ONLY TIME IS DESIRED AS OUTPUT -
050227,000376: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050228,000377: # L+1 RVSW
050229,000378: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
050230,000379: # L+3 ... CONTINUE
050231,000380:
050232,000381:
050233,000382: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050234,000383: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050235,000384: # L+1 RVSW
050236,000385: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050237,000386: # THE INITIAL VELOCITY VECTOR IN MPAC.
050238,000387: # L+3 STOVL NEWVVEC
050239,000388: # L+4 STADR
050240,000389: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050241,000390: # L+6 ... CONTINUE
050242,000391:
050243,000392:
050244,000393:
050245,000394: # ABORT EXIT MODES -
050246,000395: # L CALL BON
050247,000396: # L+1 TIMETHET
050248,000397: # L+2 COGAFLAG
050249,000398: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
050250,000399: # L+4 BON IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS
050251,000400: # GOOD, SO CONTINUE
050252,000401: # L+5 INFINFLG
050253,000402: # L+6 IMPOSSBL NO SOLUTION EXISTS.
050254,000403:
050255,000404:
050256,000405:
050257,000406: # OUTPUT -
050258,000407: # * SCALE FACTOR *
050259,000408: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050260,000409: # --------*--------------* -----------------------
050261,000410: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
050262,000411: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
050263,000412: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050264,000413: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050265,000414: # * *CLEAR IF NOT.
050266,000415:
050267,000416: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
050268,000417: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050269,000418: # MPAC +5* +5 FOR MOON *
![]() |
Page 1163 |
050271,000420: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050272,000421: # * +27 FOR MOON *
050273,000422:
050274,000423: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050275,000424:
050276,000425:
050277,000426:
050278,000427: # DEBRIS -
050279,000428:
050280,000429: # PARAMETERS WHICH MAY BE OF USE -
050281,000430:
050282,000431: # * SCALE FACTOR *
050283,000432: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050284,000433: # --------*--------------* -----------------------
050285,000434: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050286,000435: # * +27 FOR MOON *
050287,000436: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050288,000437: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
050289,000438: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050290,000439: # UR1 * +1 *DP UNIT VECTOR OF RVEC
050291,000440: # U2 * +1 *DP UNIT VECTOR OF VVEC
050292,000441: # UN * +1 *DP UNIT VECTOR OF UR1*U2
050293,000442:
050294,000443:
050295,000444: # PARAMETERS OF NO USE -
050296,000445: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050297,000446: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050298,000447:
050299,000448:
![]() |
Page 1164 |
050301,000450: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
050302,000451: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
050303,000452: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050304,000453:
050305,000454:
050306,000455:
050307,000456: # FUNCTIONAL DESCRIPTION -
050308,000457:
050309,000458: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
050310,000459: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050311,000460: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050312,000461: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
050313,000462: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050314,000463: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050315,000464: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
050316,000465: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
050317,000466:
050318,000467:
050319,000468: # THE RESTRICTIONS ARE -
050320,000469: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050321,000470: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
050322,000471: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
050323,000472: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050324,000473: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
050325,000474: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
050326,000475: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
050327,000476:
050328,000477:
050329,000478: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
050330,000479:
050331,000480:
050332,000481:
050333,000482: # REFERENCES -
050334,000483: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050335,000484:
050336,000485:
050337,000486:
050338,000487: # INPUT - ERASABLE INITIALIZATION REQUIRED
050339,000488:
050340,000489: # * SCALE FACTOR *
050341,000490: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050342,000491: # --------*--------------* -----------------------
050343,000492: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050344,000493: # * +27 FOR MOON *
050345,000494: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050346,000495: # * +5 FOR MOON *
050347,000496: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
050348,000497: # * +27 FOR MOON *COMPUTED.
050349,000498: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
050350,000499: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
![]() |
Page 1165 |
050352,000501: # * *SINGLE-VALUED PROBLEM.
050353,000502: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050354,000503: # * *RESPECTIVELY, IS THE CENTRAL BODY.
050355,000504: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050356,000505: # * *IS TO BE COMPUTED ALSO.
050357,000506:
050358,000507:
050359,000508:
050360,000509: # SUBROUTINES CALLED -
050361,000510: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
050362,000511:
050363,000512:
050364,000513:
050365,000514: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050366,000515:
050367,000516: # IF ONLY TIME IS DESIRED AS OUTPUT -
050368,000517: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050369,000518: # L+1 RVSW
050370,000519: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
050371,000520: # L+3 ... CONTINUE
050372,000521:
050373,000522: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050374,000523: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050375,000524: # L+1 RVSW
050376,000525: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050377,000526: # THE INITIAL VELOCITY VECTOR IN MPAC.
050378,000527: # L+3 STOVL NEWVVEC
050379,000528: # L+4 STADR
050380,000529: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050381,000530: # L+6 ... CONTINUE
050382,000531:
050383,000532:
050384,000533:
050385,000534: # ABORT EXIT MODES -
050386,000535: # L CALL BON
050387,000536: # L+1 TIMERAD
050388,000537: # L+2 COGAFLAG
050389,000538: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
050390,000539: # L+4 BON BON
050391,000540: # L+5 INFINFLG
050392,000541: # L+6 IMPOSSBL NO SOLUTION EXISTS.
050393,000542: # L+7 SOLNSW
050394,000543: # L+8 IMPOSSBL SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE. RESTRICTION 3 HAS BEEN VIOLATED.
050395,000544: # L+9 ... IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE.
050396,000545:
050397,000546:
050398,000547:
050399,000548: # OUTPUT -
050400,000549: # * SCALE FACTOR *
![]() |
Page 1166 |
050402,000551: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050403,000552: # --------*--------------* -----------------------
050404,000553: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
050405,000554: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
050406,000555: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050407,000556: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050408,000557: # * *CLEAR IF NOT.
050409,000558: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
050410,000559: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
050411,000560: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
050412,000561: # * *APOCENTER.
050413,000562: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
050414,000563: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
050415,000564: # *MINUS-18, THE SWITCH IS CLEAR.
050416,000565:
050417,000566:
050418,000567:
050419,000568: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
050420,000569:
050421,000570: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050422,000571: # MPAC +5* +5 FOR MOON *
050423,000572: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050424,000573: # * +27 FOR MOON *
050425,000574:
050426,000575: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050427,000576:
050428,000577:
050429,000578:
050430,000579: # DEBRIS -
050431,000580:
050432,000581: # PARAMETERS WHICH MAY BE OF USE -
050433,000582:
050434,000583: # * SCALE FACTOR *
050435,000584: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050436,000585: # --------*--------------* -----------------------
050437,000586: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050438,000587: # * +27 FOR MOON *
050439,000588: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050440,000589: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
050441,000590: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050442,000591: # UR1 * +1 *DP UNIT VECTOR OF RVEC
050443,000592: # U2 * +1 *DP UNIT VECTOR OF VVEC
050444,000593: # UN * +1 *DP UNIT VECTOR OF UR1*U2
050445,000594: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
050446,000595: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
050447,000596:
050448,000597:
050449,000598: # PARAMETERS OF NO USE -
050450,000599: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050451,000600: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050452,000601:
050453,000602:
![]() |
Page 1167 |
050455,000604: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
050456,000605: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050457,000606: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050458,000607:
050459,000608:
050460,000609:
050461,000610: # FUNCTIONAL DESCRIPTION -
050462,000611:
050463,000612: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
050464,000613: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
050465,000614: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
050466,000615: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050467,000616: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050468,000617:
050469,000618:
050470,000619: # THE RESTRICTIONS ARE -
050471,000620: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
050472,000621: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
050473,000622: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
050474,000623: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050475,000624:
050476,000625: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
050477,000626:
050478,000627:
050479,000628:
050480,000629: # REFERENCES -
050481,000630: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
050482,000631:
050483,000632:
050484,000633:
050485,000634: # INPUT - ERASABLE INITIALIZATION REQUIRED
050486,000635:
050487,000636: # * SCALE FACTOR *
050488,000637: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050489,000638: # --------*--------------* -----------------------
050490,000639: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050491,000640: # * +27 FOR MOON *
050492,000641: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050493,000642: # * +5 FOR MOON *
050494,000643: # X1 (38D)*NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050495,000644: # * *RESPECTIVELY, IS THE CENTRAL BODY.
050496,000645:
050497,000646:
050498,000647:
050499,000648: # SUBROUTINES CALLED -
050500,000649: # PARAM, GEOM
050501,000650:
050502,000651:
050503,000652:
050504,000653: # CALLING SEQUENCE AND NORMAL EXIT MODES -
![]() |
Page 1168 |
050506,000655: # IF ONLY TIME IS DESIRED AS OUTPUT -
050507,000656: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR.
050508,000657: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
050509,000658: # L+2 STODL APOAPSE
050510,000659: # L+3 0D
050511,000660: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
050512,000661: # L+5 ... CONTINUE
050513,000662:
050514,000663:
050515,000664:
050516,000665: # OUTPUT -
050517,000666: # * SCALE FACTOR *
050518,000667: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050519,000668: # --------*--------------* -----------------------
050520,000669: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
050521,000670: # * +27 FOR MOON *
050522,000671: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
050523,000672: # * +27 FOR MOON *
050524,000673: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
050525,000674:
050526,000675: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050527,000676:
050528,000677:
050529,000678:
050530,000679: # DEBRIS -
050531,000680:
050532,000681: # PARAMETERS WHICH MAY BE OF USE -
050533,000682:
050534,000683: # * SCALE FACTOR *
050535,000684: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050536,000685: # --------*--------------* -----------------------
050537,000686: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050538,000687: # * +27 FOR MOON *
050539,000688: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050540,000689: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
050541,000690: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050542,000691: # UR1 * +1 *DP UNIT VECTOR OF RVEC
050543,000692: # U2 * +1 *DP UNIT VECTOR OF VVEC
050544,000693: # UN * +1 *DP UNIT VECTOR OF UR1*U2
050545,000694: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
050546,000695: # * +5 FOR MOON *
050547,000696:
050548,000697:
050549,000698: # PARAMETERS OF NO USE -
050550,000699: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
050551,000700: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
050552,000701:
050553,000702:
050554,000703:
050555,000704: 12,2000 SETLOC CONICS
![]() |
Page 1169 |
050557,000706: 12,2000 BANK
050558,000707:
050559,000708: 12,2000 COUNT* $$/CONIC
050560,000709: 12,2000 E5,1721 EBANK= UR1
050561,000710: 12,2000 71201 KEPLERN SETPD DLOAD
050562,000711: 12,2001 00001 0
050563,000712: 12,2002 22275 KEPZERO
050564,000713: 12,2003 02177 STORE XMODULO
050565,000714: 12,2004 32201 STOVL* TMODULO
050566,000715: 12,2005 10005 MUTABLE,1
050567,000716: 12,2006 24017 STOVL 14D
050568,000717: 12,2007 01503 RRECT
050569,000718: 12,2010 66256 UNIT SSP
050570,000719: 12,2011 00027 ITERCTR
050571,000720: 12,2012 00024 20D
050572,000721: 12,2013 16647 STODL URRECT
050573,000722: 12,2014 00045 36D
050574,000723: 12,2015 24041 STOVL R1
050575,000724: 12,2016 01503 RRECT
050576,000725: 12,2017 76441 DOT SL1R
050577,000726: 12,2020 01511 VRECT
050578,000727: 12,2021 76405 DMP SL1R
050579,000728: 12,2022 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
050580,000729: 12,2023 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
050581,000730:
050582,000731: 12,2024 01511 VRECT
050583,000732: 12,2025 57236 VSQ DMPR
050584,000733: 12,2026 00017 1/MU # 1/MU (-34 OR -28)
050585,000734: 12,2027 52405 DMP SL3
050586,000735: 12,2030 00041 R1
050587,000736: 12,2031 61425 DSU ROUND
050588,000737: 12,2032 10756 D1/64
050589,000738: 12,2033 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
050590,000739:
050591,000740: 12,2034 74421 BDSU SR1R
050592,000741: 12,2035 10756 D1/64
050593,000742: 12,2036 77671 DDV
050594,000743: 12,2037 00041 R1
050595,000744: 12,2040 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
050596,000745:
050597,000746:
050598,000747: 12,2041 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
050599,000748: 12,2042 24051 1REV
050600,000749: 12,2043 10774 -50SC # -50SC (+12)
050601,000750: 12,2044 40071 DDV BOV
050602,000751: 12,2045 00011 ALPHA
050603,000752: 12,2046 24055 STOREMAX
050604,000753: 12,2047 52166 SQRT GOTO
050605,000754: 12,2050 24055 STOREMAX
050606,000755:
![]() |
Page 1170 |
050608,000757: 12,2051 55366 1REV SQRT BDDV
050609,000758: 12,2052 10776 2PISC # 2PISC (+6)
050610,000759: 12,2053 77600 BOV
050611,000760: 12,2054 24055 STOREMAX
050612,000761: 12,2055 00013 STOREMAX STORE XMAX
050613,000762: 12,2056 65205 DMP PDDL
050614,000763: 12,2057 00023 1/ROOTMU
050615,000764: 12,2060 00011 ALPHA
050616,000765: 12,2061 65301 NORM PDDL
050617,000766: 12,2062 00047 X1
050618,000767: 12,2063 56257 SL* DDV
050619,000768: 12,2064 20173 0 -6,1
050620,000769: 12,2065 50000 BOV BMN
050621,000770: 12,2066 24112 MODDONE
050622,000771: 12,2067 24112 MODDONE # MPAC=PERIOD
050623,000772: 12,2070 51525 PERIODCH PDDL ABS # 0D=PERIOD
050624,000773: 12,2071 02074 TAU.
050625,000774: 12,2072 50025 DSU BMN
050626,000775: 12,2073 00001 0D
050627,000776: 12,2074 24112 MODDONE
050628,000777: 12,2075 77765 SIGN
050629,000778: 12,2076 02074 TAU.
050630,000779: 12,2077 16074 STODL TAU.
050631,000780: 12,2100 00013 XMAX
050632,000781: 12,2101 77615 DAD
050633,000782: 12,2102 02177 XMODULO
050634,000783: 12,2103 16177 STODL XMODULO
050635,000784: 12,2104 00001 0D
050636,000785: 12,2105 77615 DAD
050637,000786: 12,2106 02201 TMODULO
050638,000787: 12,2107 16201 STODL TMODULO
050639,000788: 12,2110 77650 GOTO
050640,000789: 12,2111 24070 PERIODCH
050641,000790: 12,2112 77601 MODDONE SETPD
050642,000791: 12,2113 00001 0
050643,000792: 12,2114 75345 DLOAD SIGN
050644,000793: 12,2115 02201 TMODULO
050645,000794: 12,2116 02074 TAU.
050646,000795: 12,2117 02201 STORE TMODULO
050647,000796: 12,2120 75345 DLOAD SIGN
050648,000797: 12,2121 02177 XMODULO
050649,000798: 12,2122 02074 TAU.
050650,000799: 12,2123 02177 STORE XMODULO
050651,000800: 12,2124 77621 BDSU
050652,000801: 12,2125 02130 XKEPNEW
050653,000802: 12,2126 00025 STORE X
050654,000803: 12,2127 53165 SIGN BZE
050655,000804: 12,2130 02074 TAU.
050656,000805: 12,2131 24311 BADX
050657,000806: 12,2132 51440 BMN ABS
![]() |
Page 1171 |
050659,000808: 12,2133 24311 BADX
050660,000809: 12,2134 51025 DSU BPL
050661,000810: 12,2135 00013 XMAX
050662,000811: 12,2136 24311 BADX
050663,000812: 12,2137 51145 STORBNDS DLOAD BPL
050664,000813: 12,2140 02074 TAU.
050665,000814: 12,2141 24151 STOREMIN
050666,000815: 12,2142 57545 DLOAD DCOMP
050667,000816: 12,2143 00013 XMAX
050668,000817: 12,2144 14015 STODL XMIN
050669,000818: 12,2145 22275 KEPZERO
050670,000819: 12,2146 00013 STORE XMAX
050671,000820: 12,2147 77650 GOTO
050672,000821: 12,2150 24154 DXCOMP
050673,000822: 12,2151 77745 STOREMIN DLOAD
050674,000823: 12,2152 22275 KEPZERO
050675,000824: 12,2153 00015 STORE XMIN
050676,000825: 12,2154 57345 DXCOMP DLOAD DMPR
050677,000826: 12,2155 02074 TAU.
050678,000827: 12,2156 10767 BEE22
050679,000828: 12,2157 77646 ABS
050680,000829: 12,2160 16203 STODL EPSILONT
050681,000830: 12,2161 01551 TC
050682,000831: 12,2162 45254 BZE DSU
050683,000832: 12,2163 24165 NEWTC
050684,000833: 12,2164 02201 TMODULO
050685,000834: 12,2165 15551 NEWTC STODL TC
050686,000835: 12,2166 01553 XPREV
050687,000836: 12,2167 45254 BZE DSU
050688,000837: 12,2170 24172 XDIFF
050689,000838: 12,2171 02177 XMODULO
050690,000839: 12,2172 77621 XDIFF BDSU
050691,000840: 12,2173 00025 X
050692,000841: 12,2174 02643 STORE DELX
050693,000842:
050694,000843:
050695,000844: 12,2175 63545 KEPLOOP DLOAD DSQ
050696,000845: 12,2176 00025 X # X=XKEP
050697,000846: 12,2177 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
050698,000847: 12,2200 00047 X1
050699,000848: 12,2201 53605 DMP SRR*
050700,000849: 12,2202 00011 ALPHA
050701,000850: 12,2203 21573 0 -6,1
050702,000851: 12,2204 34031 STCALL XI # XI=ALPHA XSQ (+6)
050703,000852: 12,2205 24434 DELTIME
050704,000853: 12,2206 44200 BOV BDSU
050705,000854: 12,2207 24320 TIMEOVFL # UNLIKELY
050706,000855: 12,2210 02074 TAU.
050707,000856: 12,2211 02645 STORE DELT # DELT=DELINDEP
050708,000857: 12,2212 44246 ABS BDSU
![]() |
Page 1172 |
050710,000859: 12,2213 02203 EPSILONT
050711,000860: 12,2214 71244 BPL DLOAD
050712,000861: 12,2215 24342 KEPCONVG
050713,000862: 12,2216 00037 T
050714,000863: 12,2217 60225 DSU NORM
050715,000864: 12,2220 01551 TC
050716,000865: 12,2221 00047 X1
050717,000866: 12,2222 60325 PDDL NORM
050718,000867: 12,2223 02643 DELX
050719,000868: 12,2224 00050 X2
050720,000869: 12,2225 41260 XSU,1 DMP
050721,000870: 12,2226 00047 X2
050722,000871: 12,2227 02645 DELT
050723,000872: 12,2230 56257 SLR* DDV
050724,000873: 12,2231 21202 1,1
050725,000874: 12,2232 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
050726,000875: 12,2233 71244 BPL DLOAD
050727,000876: 12,2234 24255 POSDELX
050728,000877: 12,2235 00025 X
050729,000878: 12,2236 00013 STORE XMAX # MOVE MAX BOUND IN
050730,000879: 12,2237 45221 BDSU DSU # PL AT 0
050731,000880: 12,2240 00015 XMIN
050732,000881: 12,2241 51000 BOV BPL
050733,000882: 12,2242 24247 NDXCHNGE
050734,000883: 12,2243 24247 NDXCHNGE
050735,000884: 12,2244 52145 DLOAD GOTO
050736,000885: 12,2245 00001 0D
050737,000886: 12,2246 24267 NEWDELX
050738,000887:
050739,000888:
050740,000889: 12,2247 45345 NDXCHNGE DLOAD DSU
050741,000890: 12,2250 00015 XMIN
050742,000891: 12,2251 00025 X
050743,000892: 12,2252 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
050744,000893: 12,2253 10772 DP9/10
050745,000894: 12,2254 24267 NEWDELX
050746,000895:
050747,000896:
050748,000897: 12,2255 77745 POSDELX DLOAD
050749,000898: 12,2256 00025 X
050750,000899: 12,2257 00015 STORE XMIN # MOVE MIN BOUND IN
050751,000900: 12,2260 45221 BDSU DSU # PL AT 0
050752,000901: 12,2261 00013 XMAX
050753,000902: 12,2262 50000 BOV BMN
050754,000903: 12,2263 24303 PDXCHNGE
050755,000904: 12,2264 24303 PDXCHNGE
050756,000905: 12,2265 77745 DLOAD
050757,000906: 12,2266 00001 0D
050758,000907: 12,2267 02643 NEWDELX STORE DELX
050759,000908: 12,2270 43254 BZE DAD
![]() |
Page 1173 |
050761,000910: 12,2271 24342 KEPCONVG
050762,000911: 12,2272 00025 X
050763,000912: 12,2273 14025 STODL X
050764,000913: 12,2274 00037 T
050765,000914: 12,2275 01551 STORE TC
050766,000915: 12,2276 46034 BRNCHCTR RTB BHIZ
050767,000916: 12,2277 24657 CHECKCTR
050768,000917: 12,2300 24342 KEPCONVG
050769,000918: 12,2301 77650 GOTO
050770,000919: 12,2302 24175 KEPLOOP # ITERATE
050771,000920:
050772,000921:
050773,000922: 12,2303 45345 PDXCHNGE DLOAD DSU
050774,000923: 12,2304 00013 XMAX
050775,000924: 12,2305 00025 X
050776,000925: 12,2306 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
050777,000926: 12,2307 10772 DP9/10
050778,000927: 12,2310 24267 NEWDELX
050779,000928:
050780,000929:
050781,000930: 12,2311 70545 BADX DLOAD SR1
050782,000931: 12,2312 00013 XMAX
050783,000932: 12,2313 77765 SIGN
050784,000933: 12,2314 02074 TAU.
050785,000934: 12,2315 00025 STORE X
050786,000935: 12,2316 77650 GOTO
050787,000936: 12,2317 24137 STORBNDS
050788,000937: 12,2320 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
050789,000938: 12,2321 00025 X
050790,000939: 12,2322 24337 NEGTOVFL
050791,000940: 12,2323 00013 STORE XMAX
050792,000941: 12,2324 70545 CMNTOVFL DLOAD SR1
050793,000942: 12,2325 02643 DELX
050794,000943: 12,2326 02643 STORE DELX
050795,000944: 12,2327 44254 BZE BDSU
050796,000945: 12,2330 02112 KEPRTN
050797,000946: 12,2331 00025 X
050798,000947: 12,2332 14025 STODL X
050799,000948: 12,2333 01551 TC
050800,000949: 12,2334 00037 STORE T
050801,000950: 12,2335 77650 GOTO
050802,000951: 12,2336 24276 BRNCHCTR
050803,000952: 12,2337 00015 NEGTOVFL STORE XMIN
050804,000953: 12,2340 77650 GOTO
050805,000954: 12,2341 24324 CMNTOVFL
050806,000955: 12,2342 44545 KEPCONVG DLOAD SR4R
050807,000956: 12,2343 00041 R1
050808,000957: 12,2344 74225 DSU VXSC
050809,000958: 12,2345 00035 XSQC(XI)
050810,000959: 12,2346 02647 URRECT
![]() |
Page 1174 |
050812,000961: 12,2347 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
050813,000962: 12,2350 00025 X
050814,000963: 12,2351 60316 DSQ NORM
050815,000964: 12,2352 00047 X1
050816,000965: 12,2353 57275 DMPR DMPR
050817,000966: 12,2354 00023 1/ROOTMU
050818,000967: 12,2355 00025 X
050819,000968: 12,2356 53605 DMP SRR*
050820,000969: 12,2357 00033 S(XI)
050821,000970: 12,2360 21572 0 -7,1
050822,000971: 12,2361 77621 BDSU
050823,000972: 12,2362 00037 T
050824,000973: 12,2363 74352 SL1 VXSC
050825,000974: 12,2364 01511 VRECT
050826,000975: 12,2365 53372 VSL1 VAD # PL AT 0
050827,000976: 12,2366 77712 VSL4
050828,000977: 12,2367 01535 STORE RCV # RCV (+29 OR +27)
050829,000978:
050830,000979:
050831,000980: 12,2370 60246 ABVAL NORM
050832,000981: 12,2371 00050 X2
050833,000982: 12,2372 14043 STODL RCNORM
050834,000983: 12,2373 00031 XI
050835,000984: 12,2374 45275 DMPR DSU
050836,000985: 12,2375 00033 S(XI)
050837,000986: 12,2376 10754 D1/128
050838,000987: 12,2377 76405 DMP SL1R
050839,000988: 12,2400 00021 ROOTMU
050840,000989: 12,2401 53605 DMP SLR*
050841,000990: 12,2402 00025 X
050842,000991: 12,2403 56601 0 -3,2
050843,000992: 12,2404 74271 DDV VXSC
050844,000993: 12,2405 00043 RCNORM
050845,000994: 12,2406 02647 URRECT
050846,000995: 12,2407 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
050847,000996: 12,2410 00035 XSQC(XI) # OR +13) PL AT 6
050848,000997: 12,2411 56257 SLR* DDV
050849,000998: 12,2412 56602 0 -4,2
050850,000999: 12,2413 00043 RCNORM
050851,001000: 12,2414 74221 BDSU VXSC
050852,001001: 12,2415 10770 D1/256
050853,001002: 12,2416 01511 VRECT
050854,001003: 12,2417 42455 VAD VSL8
050855,001004: 12,2420 77626 STADR # PL AT 0
050856,001005: 12,2421 62234 STODL VCV # VCV (+7 OR +5)
050857,001006: 12,2422 00037 T
050858,001007: 12,2423 77615 DAD
050859,001008: 12,2424 02201 TMODULO
050860,001009: 12,2425 15551 STODL TC
050861,001010: 12,2426 00025 X
![]() |
Page 1175 |
050863,001012: 12,2427 77615 DAD
050864,001013: 12,2430 02177 XMODULO
050865,001014: 12,2431 01553 STORE XPREV
050866,001015: 12,2432 77650 GOTO
050867,001016: 12,2433 02112 KEPRTN
050868,001017:
![]() |
Page 1176 |
050870,001019: 12,2434 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
050871,001020: 12,2435 07221 TC POLY
050872,001021: 12,2436 00010 DEC 8 B-14
050873,001022: 12,2437 02525 12526 2DEC .083333334
050874,001023:
050875,001024: 12,2441 67356 75666 2DEC -.266666684
050876,001025:
050877,001026: 12,2443 15001 23771 2DEC .406349155
050878,001027:
050879,001028: 12,2445 64342 43674 2DEC -.361198675
050880,001029:
050881,001030: 12,2447 06563 04645 2DEC .210153242
050882,001031:
050883,001032: 12,2451 75173 52672 2DEC -.086221951
050884,001033:
050885,001034: 12,2453 00656 14331 2DEC .026268812
050886,001035:
050887,001036: 12,2455 77633 40512 2DEC -.006163316
050888,001037:
050889,001038: 12,2457 00023 11210 2DEC .001177342
050890,001039:
050891,001040: 12,2461 77774 67506 2DEC -.000199055
050892,001041:
050893,001042: 12,2463 06036 TC INTPRET
050894,001043: 12,2464 14033 STODL S(XI)
050895,001044: 12,2465 00031 XI
050896,001045: 12,2466 77776 EXIT
050897,001046: 12,2467 07221 TC POLY
050898,001047: 12,2470 00010 DEC 8 B-14
050899,001048: 12,2471 01000 00000 2DEC .031250001
050900,001049:
050901,001050: 12,2473 72525 52506 2DEC -.166666719
050902,001051:
050903,001052: 12,2475 13301 15337 2DEC .355555413
050904,001053:
050905,001054: 12,2477 62776 54733 2DEC -.406347410
050906,001055:
050907,001056: 12,2501 11176 13267 2DEC .288962094
050908,001057:
050909,001058: 12,2503 73410 51674 2DEC -.140117894
050910,001059:
050911,001060: 12,2505 01446 33641 2DEC .049247387
050912,001061:
050913,001062: 12,2507 77451 65233 2DEC -.013081923
050914,001063:
050915,001064: 12,2511 00055 37266 2DEC .002806389
050916,001065:
050917,001066: 12,2513 77767 52336 2DEC -.000529414
050918,001067:
050919,001068: 12,2515 06036 TC INTPRET
![]() |
Page 1177 |
050921,001070: 12,2516 53605 DMP SRR* # PL AT 0
050922,001071: 12,2517 00001 0D
050923,001072: 12,2520 21574 0 -5,1
050924,001073: 12,2521 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
050925,001074: 12,2522 72405 DMP SL1
050926,001075: 12,2523 00043 KEPC1
050927,001076: 12,2524 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
050928,001077: 12,2525 21537 TPMODE # PL AT 0,3
050929,001078: 12,2526 53605 DMP SRR*
050930,001079: 12,2527 00033 S(XI)
050931,001080: 12,2530 21574 0 -5,1
050932,001081: 12,2531 72405 DMP SL1
050933,001082: 12,2532 00045 KEPC2
050934,001083: 12,2533 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
050935,001084: 12,2534 21537 TPMODE
050936,001085: 12,2535 00041 R1
050937,001086: 12,2536 76261 SR TAD # PL AT 3
050938,001087: 12,2537 20607 6
050939,001088: 12,2540 41301 NORM DMP # TO PRESERVE SIGNIF.
050940,001089: 12,2541 00047 X1
050941,001090: 12,2542 00025 X
050942,001091: 12,2543 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
050943,001092: 12,2544 20576 0 -3,1
050944,001093: 12,2545 57232 SL4R DMPR
050945,001094: 12,2546 00023 1/ROOTMU
050946,001095: 12,2547 00037 STORE T
050947,001096: 12,2550 77616 RVQ
050948,001097:
![]() |
Page 1178 |
050950,001099: 12,2551 71214 ITERATOR BONCLR DLOAD
050951,001100: 12,2552 00614 SLOPESW
050952,001101: 12,2553 24621 FIRSTIME
050953,001102: 12,2554 00037 DEP
050954,001103: 12,2555 60225 DSU NORM
050955,001104: 12,2556 02762 DEPREV
050956,001105: 12,2557 00047 X1
050957,001106: 12,2560 60325 PDDL NORM
050958,001107: 12,2561 00015 DELINDEP
050959,001108: 12,2562 00050 X2
050960,001109: 12,2563 41260 XSU,1 DMP
050961,001110: 12,2564 00047 X2
050962,001111: 12,2565 02760 DELDEP
050963,001112: 12,2566 56257 SLR* DDV # PL UP 2
050964,001113: 12,2567 21202 1,1
050965,001114: 12,2570 43142 SR1 BOFF
050966,001115: 12,2571 04351 ORDERSW
050967,001116: 12,2572 24575 SGNCHECK
050968,001117: 12,2573 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
050969,001118: 12,2574 02760 DELDEP # DISREGARD IT TO FIND MIN.
050970,001119:
050971,001120: 12,2575 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
050972,001121: 12,2576 24633 POSDEL
050973,001122: 12,2577 43145 DLOAD BON
050974,001123: 12,2600 02766 INDEP
050975,001124: 12,2601 04311 ORDERSW
050976,001125: 12,2602 24604 MINCHECK
050977,001126: 12,2603 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
050978,001127:
050979,001128: 12,2604 45221 MINCHECK BDSU DSU
050980,001129: 12,2605 00011 MIN
050981,001130: 12,2606 51000 BOV BPL
050982,001131: 12,2607 24613 MODNGDEL
050983,001132: 12,2610 24613 MODNGDEL
050984,001133: 12,2611 77650 GOTO
050985,001134: 12,2612 24645 DELOK
050986,001135:
050987,001136:
050988,001137: 12,2613 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
050989,001138: 12,2614 00011 MIN
050990,001139: 12,2615 02766 INDEP
050991,001140: 12,2616 52005 DMP GOTO
050992,001141: 12,2617 10772 DP9/10
050993,001142: 12,2620 24647 NEWDEL
050994,001143:
050995,001144:
050996,001145: 12,2621 41345 FIRSTIME DLOAD DMP
050997,001146: 12,2622 00011 MIN
050998,001147: 12,2623 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
050999,001148: 12,2624 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
![]() |
Page 1179 |
051001,001150: 12,2625 00017 MAX
051002,001151: 12,2626 00051 TWEEKIT
051003,001152: 12,2627 77625 DSU
051004,001153: 12,2630 52165 SIGN GOTO
051005,001154: 12,2631 02760 DELDEP
051006,001155: 12,2632 24575 SGNCHECK
051007,001156:
051008,001157:
051009,001158: 12,2633 43145 POSDEL DLOAD BON
051010,001159: 12,2634 02766 INDEP
051011,001160: 12,2635 04311 ORDERSW
051012,001161: 12,2636 24640 MAXCHECK
051013,001162: 12,2637 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
051014,001163:
051015,001164: 12,2640 45221 MAXCHECK BDSU DSU
051016,001165: 12,2641 00017 MAX
051017,001166: 12,2642 50000 BOV BMN
051018,001167: 12,2643 24651 MODPSDEL
051019,001168: 12,2644 24651 MODPSDEL
051020,001169: 12,2645 77745 DELOK DLOAD
051021,001170: 12,2646 00001 0D
051022,001171: 12,2647 00015 NEWDEL STORE DELINDEP
051023,001172: 12,2650 77616 RVQ
051024,001173:
051025,001174:
051026,001175: 12,2651 45345 MODPSDEL DLOAD DSU
051027,001176: 12,2652 00017 MAX
051028,001177: 12,2653 02766 INDEP
051029,001178: 12,2654 52005 DMP GOTO
051030,001179: 12,2655 10772 DP9/10
051031,001180: 12,2656 24647 NEWDEL
051032,001181:
051033,001182:
051034,001183: 12,2657 44753 CHECKCTR CS ONE
051035,001184: 12,2660 50120 INDEX FIXLOC
051036,001185: 12,2661 60026 AD ITERCTR
051037,001186: 12,2662 50120 INDEX FIXLOC
051038,001187: 12,2663 54026 TS ITERCTR
051039,001188: 12,2664 54154 TS MPAC
051040,001189: 12,2665 06060 TC DANZIG
051041,001190:
![]() |
Page 1180 |
051043,001192: 12,2666 44545 NEWSTATE DLOAD SR4R
051044,001193: 12,2667 00041 R1
051045,001194: 12,2670 74225 DSU VXSC
051046,001195: 12,2671 00035 XSQC(XI)
051047,001196: 12,2672 02722 UR1
051048,001197: 12,2673 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
051049,001198: 12,2674 00025 X
051050,001199: 12,2675 60316 DSQ NORM
051051,001200: 12,2676 00047 X1
051052,001201: 12,2677 57275 DMPR DMPR
051053,001202: 12,2700 00023 1/ROOTMU
051054,001203: 12,2701 00025 X
051055,001204: 12,2702 53605 DMP SRR*
051056,001205: 12,2703 00033 S(XI)
051057,001206: 12,2704 21572 0 -7,1
051058,001207: 12,2705 77621 BDSU
051059,001208: 12,2706 00037 T
051060,001209: 12,2707 74352 SL1 VXSC
051061,001210: 12,2710 02744 VVEC
051062,001211: 12,2711 53372 VSL1 VAD # PL AT 0
051063,001212: 12,2712 41512 VSL4 PUSH
051064,001213: 12,2713 77646 ABVAL
051065,001214: 12,2714 77701 LAMENTER NORM
051066,001215: 12,2715 00047 X1
051067,001216: 12,2716 16720 STODL R2
051068,001217: 12,2717 00031 XI
051069,001218: 12,2720 45205 DMP DSU
051070,001219: 12,2721 00033 S(XI)
051071,001220: 12,2722 10754 D1/128
051072,001221: 12,2723 76405 DMP SL1R
051073,001222: 12,2724 00021 ROOTMU
051074,001223: 12,2725 53605 DMP SLR*
051075,001224: 12,2726 00025 X
051076,001225: 12,2727 21176 0 -3,1
051077,001226: 12,2730 74271 DDV VXSC
051078,001227: 12,2731 02720 R2
051079,001228: 12,2732 02722 UR1
051080,001229: 12,2733 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
051081,001230: 12,2734 00035 XSQC(XI)
051082,001231: 12,2735 56257 SLR* DDV
051083,001232: 12,2736 21175 0 -4,1
051084,001233: 12,2737 02720 R2
051085,001234: 12,2740 77621 BDSU
051086,001235: 12,2741 10770 D1/256
051087,001236: 12,2742 53361 VXSC VAD # PL AT 6
051088,001237: 12,2743 02744 VVEC
051089,001238: 12,2744 43412 VSL8 RVQ
051090,001239:
![]() |
Page 1181 |
051092,001241: 04,2000 SETLOC CONICS1
051093,001242: 04,2000 BANK
051094,001243:
051095,001244: 04,2750 COUNT* $$/CONIC
051096,001245: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
051097,001246: 04,2750 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
051098,001247: 04,2751 04000 00000 D1/8 2DEC 1.0 B-3
051099,001248:
051100,001249: 04,2753 00200 00000 D1/128 2DEC 1.0 B-7
051101,001250:
051102,001251: 04,2755 00400 00000 D1/64 2DEC 1.0 B-6
051103,001252:
051104,001253: 04,2757 10000 00000 D1/4 2DEC 1.0 B-2
051105,001254:
051106,001255: 04,2761 02000 00000 D1/16 2DEC 1.0 B-4
051107,001256:
051108,001257: 04,2763 01000 00000 D1/32 2DEC 1.0 B-5
051109,001258:
051110,001259: 04,2765 00020 00000 D1/1024 2DEC 1.0 B-10
051111,001260:
051112,001261: 04,2767 00100 00000 D1/256 2DEC 1.0 B-8
051113,001262:
051114,001263: 04,2771 34631 23146 DP9/10 2DEC .9
051115,001264:
051116,001265: 04,2773 11,2274 KEPZERO EQUALS LO6ZEROS
051117,001266: 04,2773 77467 77777 -50SC 2DEC -50.0 B-12
051118,001267:
051119,001268: 04,2775 03110 17665 2PISC 2DEC 6.28318530 B-6
051120,001269:
051121,001270: 04,2777 04,2762 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
051122,001271: 04,2777 04,2766 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
051123,001272: 04,2777 00000 00001 ONEBIT 2DEC 1.0 B-28
051124,001273:
051125,001274: 04,3001 37767 37737 COGUPLIM 2DEC .999511597
051126,001275:
051127,001276: 04,3003 40010 40040 COGLOLIM 2DEC -.999511597
051128,001277:
051129,001278:
![]() |
Page 1182 |
051131,001280: 12,2000 SETLOC CONICS
051132,001281: 12,2000 BANK
051133,001282:
051134,001283: 12,2745 COUNT* $$/CONIC
051135,001284: 12,2745 40220 TIMETHET STQ SETPD # PL AT 0
051136,001285: 12,2746 02710 RTNTT
051137,001286: 12,2747 00001 0
051138,001287: 12,2750 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
051139,001288: 12,2751 02655 RVEC
051140,001289: 12,2752 02744 VVEC
051141,001290: 12,2753 77624 CALL
051142,001291: 12,2754 11005 PARAM
051143,001292: 12,2755 45000 BOV CALL # PL AT 0
051144,001293: 12,2756 24775 COGAOVFL
051145,001294: 12,2757 25000 GETX
051146,001295: 12,2760 43145 COMMNOUT DLOAD BON
051147,001296: 12,2761 00031 XI
051148,001297: 12,2762 04310 INFINFLG
051149,001298: 12,2763 02710 RTNTT
051150,001299: 12,2764 45014 CLEAR CALL
051151,001300: 12,2765 04273 COGAFLAG
051152,001301: 12,2766 24434 DELTIME
051153,001302: 12,2767 45014 BON CALL
051154,001303: 12,2770 03706 RVSW
051155,001304: 12,2771 02710 RTNTT
051156,001305: 12,2772 24666 NEWSTATE
051157,001306: 12,2773 77650 GOTO
051158,001307: 12,2774 02710 RTNTT
051159,001308:
051160,001309:
051161,001310: 12,2775 77614 COGAOVFL SETGO
051162,001311: 12,2776 04033 COGAFLAG
051163,001312: 12,2777 02710 RTNTT
051164,001313:
![]() |
Page 1183 |
051166,001315: 04,3005 BANK 4
051167,001316: 04,2000 SETLOC CONICS1
051168,001317: 04,2000 BANK
051169,001318: 04,3005 COUNT* $$/CONIC
051170,001319: 04,3005 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
051171,001320: 04,3006 02753 RTNPRM
051172,001321: 04,3007 03665 NORMSW
051173,001322: 04,3010 77614 CLEAR
051174,001323: 04,3011 04273 COGAFLAG
051175,001324: 04,3012 45131 SSP CALL
051176,001325: 04,3013 02673 GEOMSGN
051177,001326: 04,3014 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
051178,001327: 04,3015 11051 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
051179,001328: 04,3016 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
051180,001329: 04,3017 56261 SR DDV
051181,001330: 04,3020 20606 5
051182,001331:
051183,001332: 04,3021 00045 36D
051184,001333: 04,3022 32766 STOVL* COGA
051185,001334: 04,3023 10005 MUTABLE,1
051186,001335: 04,3024 14017 STODL 1/MU
051187,001336: 04,3025 02720 MAGVEC2
051188,001337: 04,3026 60316 DSQ NORM
051189,001338: 04,3027 00047 X1
051190,001339: 04,3030 41275 DMPR DMP
051191,001340: 04,3031 00017 1/MU
051192,001341: 04,3032 00041 R1
051193,001342: 04,3033 77657 SRR*
051194,001343: 04,3034 21576 0 -3,1
051195,001344: 04,3035 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
051196,001345: 04,3036 10764 D1/32
051197,001346: 04,3037 16742 STODL R1A # R1A (+6) PL AT 0
051198,001347:
051199,001348: 04,3040 60205 DMP NORM
051200,001349: 04,3041 00045 36D
051201,001350: 04,3042 00047 X1
051202,001351: 04,3043 53605 DMP SR*
051203,001352: 04,3044 00045 36D
051204,001353: 04,3045 20575 0 -4,1
051205,001354: 04,3046 02740 STORE P # P (+4)
051206,001355: 04,3047 77650 GOTO
051207,001356: 04,3050 02753 RTNPRM
051208,001357:
![]() |
Page 1184 |
051210,001359: 04,3051 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
051211,001360: 04,3052 16712 STODL U2 # U2 (+1)
051212,001361: 04,3053 00045 36D
051213,001362: 04,3054 26720 STOVL MAGVEC2 # PL AT 0
051214,001363: 04,3055 77656 UNIT
051215,001364: 04,3056 02722 STORE UR1 # UR1 (+1)
051216,001365: 04,3057 72441 DOT SL1
051217,001366: 04,3060 02712 U2
051218,001367: 04,3061 77725 PDDL # OD=CSTH (+1) PL AT 2
051219,001368: 04,3062 00045 36D
051220,001369: 04,3063 24041 STOVL R1 # R1 (+29 OR +27)
051221,001370: 04,3064 02722 UR1
051222,001371: 04,3065 76435 VXV VSL1
051223,001372: 04,3066 02712 U2
051224,001373: 04,3067 75214 BON SIGN
051225,001374: 04,3070 03705 NORMSW
051226,001375: 04,3071 11103 HAVENORM
051227,001376: 04,3072 02673 GEOMSGN
051228,001377: 04,3073 40056 UNIT BOV
051229,001378: 04,3074 11101 COLINEAR
051230,001379: 04,3075 16674 UNITNORM STODL UN # UN (+1)
051231,001380: 04,3076 00045 36D
051232,001381: 04,3077 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051233,001382: 04,3100 02673 GEOMSGN
051234,001383:
051235,001384:
051236,001385: 04,3101 52162 COLINEAR VSR1 GOTO
051237,001386: 04,3102 11075 UNITNORM
051238,001387:
051239,001388:
051240,001389: 04,3103 75246 HAVENORM ABVAL SIGN
051241,001390: 04,3104 02673 GEOMSGN
051242,001391: 04,3105 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051243,001392:
![]() |
Page 1185 |
051245,001394: 12,3000 BANK 12
051246,001395: 12,2000 SETLOC CONICS
051247,001396: 12,2000 BANK
051248,001397:
051249,001398: 12,3000 COUNT* $$/CONIC
051250,001399: 12,3000 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
051251,001400: 12,3001 00003 3
051252,001401: 12,3002 00052 S2
051253,001402: 12,3003 00001 1
051254,001403: 12,3004 77614 CLEAR
051255,001404: 12,3005 04276 360SW
051256,001405: 12,3006 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
051257,001406: 12,3007 02732 CSTH
051258,001407: 12,3010 44342 SR1 BDSU
051259,001408: 12,3011 10760 D1/4
051260,001409: 12,3012 54325 PDDL SRR # PL AT 4D
051261,001410: 12,3013 02730 SNTH
051262,001411: 12,3014 21607 6
051263,001412: 12,3015 77671 DDV # PL AT 2
051264,001413: 12,3016 77600 BOV
051265,001414: 12,3017 25133 360CHECK
051266,001415: 12,3020 41225 DSU DMP
051267,001416: 12,3021 02766 COGA # PL AT 0
051268,001417: 12,3022 40132 SL2R BOV
051269,001418: 12,3023 25133 360CHECK
051270,001419: 12,3024 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
051271,001420: 12,3025 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
051272,001421: 12,3026 00155 MPAC
051273,001422: 12,3027 02742 R1A
051274,001423: 12,3030 76202 SR4 TAD # PL AT 2
051275,001424: 12,3031 75440 BMN SQRT
051276,001425: 12,3032 25216 INFINITY
051277,001426: 12,3033 43306 ROUND DAD # PL AT 0D
051278,001427: 12,3034 61000 BOV TIX,2
051279,001428: 12,3035 25131 RESETX2
051280,001429: 12,3036 25024 WLOOP
051281,001430:
051282,001431:
051283,001432: 12,3037 40065 BDDV BOV
051284,001433: 12,3040 10754 D1/128
051285,001434: 12,3041 25216 INFINITY
051286,001435: 12,3042 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
051287,001436: 12,3043 25216 INFINITY
051288,001437: 12,3044 77716 DSQ
051289,001438: 12,3045 41301 NORM DMP
051290,001439: 12,3046 00047 X1
051291,001440: 12,3047 02742 R1A
051292,001441: 12,3050 77457 SRR* EXIT
051293,001442: 12,3051 21567 0 -10D,1
051294,001443: 12,3052 07221 TC POLY
![]() |
Page 1186 |
051296,001445: 12,3053 00005 DEC 5 B-14
051297,001446: 12,3054 20000 00000 2DEC .5
051298,001447:
051299,001448: 12,3056 72525 52471 2DEC -.166666770
051300,001449:
051301,001450: 12,3060 03146 15003 2DEC .100000392
051302,001451:
051303,001452: 12,3062 75556 45210 2DEC -.071401086
051304,001453:
051305,001454: 12,3064 01615 13553 2DEC .055503292
051306,001455:
051307,001456: 12,3066 76371 63777 2DEC -.047264098
051308,001457:
051309,001458: 12,3070 01232 27367 2DEC .040694204
051310,001459:
051311,001460: 12,3072 06036 TC INTPRET
051312,001461: 12,3073 76405 DMP SL1R # PL AT 0D
051313,001462: 12,3074 43006 PUSH BON
051314,001463: 12,3075 04316 360SW
051315,001464: 12,3076 25203 TRUE360X
051316,001465: 12,3077 60316 XCOMMON DSQ NORM
051317,001466: 12,3100 00047 X1
051318,001467: 12,3101 53605 DMP SRR*
051319,001468: 12,3102 02742 R1A
051320,001469: 12,3103 21565 0 -12D,1
051321,001470: 12,3104 14031 STODL XI # XI (+6)
051322,001471:
051323,001472:
051324,001473: 12,3105 00041 R1
051325,001474: 12,3106 75542 SR1 SQRT
051326,001475: 12,3107 41306 ROUND DMP
051327,001476: 12,3110 77632 SL4R # PL AT 0
051328,001477: 12,3111 00025 STORE X # X (+17 OR +16)
051329,001478:
051330,001479:
051331,001480: 12,3112 60316 DSQ NORM
051332,001481: 12,3113 00047 X1
051333,001482: 12,3114 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
051334,001483: 12,3115 02740 P
051335,001484: 12,3116 00041 R1
051336,001485: 12,3117 75452 SL3 SQRT
051337,001486: 12,3120 56405 DMP SL3R
051338,001487: 12,3121 02766 COGA
051339,001488: 12,3122 14043 STODL KEPC1
051340,001489: 12,3123 02742 R1A
051341,001490: 12,3124 43021 BDSU CLEAR
051342,001491: 12,3125 10756 D1/64
051343,001492: 12,3126 04270 INFINFLG
051344,001493: 12,3127 00045 STORE KEPC2
051345,001494: 12,3130 77616 RVQ
051346,001495:
![]() |
Page 1187 |
051348,001497: 12,3131 77774 RESETX2 AXT,2
051349,001498: 12,3132 00003 3
051350,001499:
051351,001500:
051352,001501: 12,3133 51001 360CHECK SETPD BPL
051353,001502: 12,3134 00001 0D
051354,001503: 12,3135 25140 INVRSEQN
051355,001504: 12,3136 77614 SET
051356,001505: 12,3137 04076 360SW
051357,001506:
051358,001507:
051359,001508: 12,3140 75545 INVRSEQN DLOAD SQRT
051360,001509: 12,3141 02740 P
051361,001510: 12,3142 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
051362,001511: 12,3143 02730 SNTH
051363,001512: 12,3144 02766 COGA
051364,001513: 12,3145 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
051365,001514: 12,3146 02732 CSTH
051366,001515: 12,3147 43202 SR4 DAD
051367,001516: 12,3150 10764 D1/32
051368,001517: 12,3151 41225 DSU DMP # PL AT 2,0
051369,001518: 12,3152 55301 NORM BDDV
051370,001519: 12,3153 00047 X1
051371,001520: 12,3154 02730 SNTH
051372,001521: 12,3155 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
051373,001522: 12,3156 21174 0 -5,1
051374,001523: 12,3157 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
051375,001524: 12,3160 14043 STODL 34D
051376,001525: 12,3161 10762 D1/16
051377,001526: 12,3162 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
051378,001527: 12,3163 65234 RTB PDDL # PL AT 7
051379,001528: 12,3164 21537 TPMODE
051380,001529: 12,3165 02742 R1A
051381,001530: 12,3166 40405 DMP SR4
051382,001531: 12,3167 00043 34D
051383,001532: 12,3170 77771 TAD # PL AT 4
051384,001533: 12,3171 75440 BMN SQRT
051385,001534: 12,3172 25216 INFINITY
051386,001535: 12,3173 77615 DAD # PL AT 2
051387,001536: 12,3174 60304 TIX,2 NORM
051388,001537: 12,3175 25162 1/WLOOP
051389,001538: 12,3176 00047 X1
051390,001539: 12,3177 77665 BDDV
051391,001540: 12,3200 52057 SLR* GOTO # PL AT 0
051392,001541: 12,3201 21172 0 -7,1
051393,001542: 12,3202 25042 POLYCOEF
051394,001543:
051395,001544:
051396,001545: 12,3203 50145 TRUE360X DLOAD BMN
051397,001546: 12,3204 02742 R1A
![]() |
Page 1188 |
051399,001548: 12,3205 25216 INFINITY
051400,001549: 12,3206 60366 SQRT NORM
051401,001550: 12,3207 00047 X1
051402,001551: 12,3210 53665 BDDV SL*
051403,001552: 12,3211 10776 2PISC
051404,001553: 12,3212 20176 0 -3,1
051405,001554: 12,3213 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
051406,001555: 12,3214 77650 GOTO
051407,001556: 12,3215 25077 XCOMMON
051408,001557: 12,3216 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
051409,001558: 12,3217 00001 0 # INFINITY IS REQUIRED
051410,001559: 12,3220 25221 OVFLCLR
051411,001560: 12,3221 43414 OVFLCLR SET RVQ
051412,001561: 12,3222 04070 INFINFLG
051413,001562:
![]() |
Page 1189 |
051415,001564: 12,3223 40220 LAMBERT STQ SETPD
051416,001565: 12,3224 02710 RTNLAMB
051417,001566: 12,3225 00001 0D
051418,001567: 12,3226 76614 CLEAR VLOAD*
051419,001568: 12,3227 02674 SOLNSW
051420,001569: 12,3230 10005 MUTABLE,1
051421,001570: 12,3231 14017 STODL 1/MU
051422,001571: 12,3232 02671 TDESIRED
051423,001572: 12,3233 77675 DMPR
051424,001573: 12,3234 10763 BEE19
051425,001574: 12,3235 02764 STORE EPSILONL
051426,001575: 12,3236 77214 SET VLOAD
051427,001576: 12,3237 00474 SLOPESW
051428,001577: 12,3240 02655 R1VEC
051429,001578: 12,3241 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
051430,001579: 12,3242 02663 R2VEC # MPAC=R2VEC (+29 OR +27)
051431,001580: 12,3243 11051 GEOM
051432,001581: 12,3244 16730 STODL SNTH # 0D=CSTH (+1) PL AT 2
051433,001582: 12,3245 02720 MAGVEC2
051434,001583: 12,3246 65301 NORM PDDL # PL AT 4
051435,001584: 12,3247 00047 X1
051436,001585: 12,3250 00041 R1
051437,001586: 12,3251 56342 SR1 DDV # PL AT 2
051438,001587: 12,3252 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
051439,001588: 12,3253 20173 0 -6,1
051440,001589: 12,3254 77626 STADR
051441,001590: 12,3255 75045 STORE CSTH # CSTH (+1)
051442,001591: 12,3256 44342 SR1 BDSU
051443,001592: 12,3257 10760 D1/4
051444,001593: 12,3260 02734 STORE 1-CSTH # 1-CSTH (+2)
051445,001594:
051446,001595: 12,3261 53106 ROUND BZE
051447,001596: 12,3262 25472 360LAMB
051448,001597: 12,3263 65301 NORM PDDL # PL AT 4
051449,001598: 12,3264 00047 X1
051450,001599: 12,3265 00001 0D
051451,001600: 12,3266 56342 SR1 DDV # PL AT 2
051452,001601: 12,3267 75457 SL* SQRT
051453,001602: 12,3270 20176 0 -3,1
051454,001603: 12,3271 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
051455,001604: 12,3272 02730 SNTH
051456,001605: 12,3273 20607 6
051457,001606: 12,3274 43271 DDV DAD # PL AT 2
051458,001607: 12,3275 02734 1-CSTH
051459,001608: 12,3276 77626 STADR
051460,001609: 12,3277 77760 STORE COGAMAX
051461,001610: 12,3300 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
051462,001611: 12,3301 25306 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
051463,001612: 12,3302 25311 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
051464,001613: 12,3303 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
![]() |
Page 1190 |
051466,001615: 12,3304 11002 COGUPLIM
051467,001616: 12,3305 25311 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
051468,001617: 12,3306 77745 UPLIM DLOAD
051469,001618: 12,3307 11002 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
051470,001619: 12,3310 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
051471,001620: 12,3311 77745 MAXCOGA DLOAD
051472,001621: 12,3312 02732 CSTH
051473,001622: 12,3313 45261 SR DSU # PL AT 0
051474,001623: 12,3314 20607 6
051475,001624: 12,3315 77626 STADR
051476,001625: 12,3316 61041 STODL CSTH-RHO
051477,001626: 12,3317 02673 GEOMSGN
051478,001627: 12,3320 71240 BMN DLOAD
051479,001628: 12,3321 25512 LOLIM
051480,001629: 12,3322 02736 CSTH-RHO
051481,001630: 12,3323 56352 SL1 DDV
051482,001631: 12,3324 02730 SNTH
051483,001632: 12,3325 77600 BOV
051484,001633: 12,3326 25512 LOLIM
051485,001634: 12,3327 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
051486,001635: 12,3330 66214 BON SSP
051487,001636: 12,3331 00715 GUESSW
051488,001637: 12,3332 25476 NOGUESS
051489,001638: 12,3333 00051 TWEEKIT
051490,001639: 12,3334 00001 00001
051491,001640: 12,3335 77745 DLOAD
051492,001641: 12,3336 02766 COGA
051493,001642:
051494,001643:
051495,001644: 12,3337 77605 LAMBLOOP DMP
051496,001645: 12,3340 02730 SNTH
051497,001646: 12,3341 45342 SR1 DSU
051498,001647: 12,3342 02736 CSTH-RHO
051499,001648: 12,3343 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
051500,001649: 12,3344 00047 X1
051501,001650: 12,3345 02734 1-CSTH
051502,001651: 12,3346 56257 SL* DDV # 1-CSTH (+2) PL AT 0
051503,001652: 12,3347 20170 0 -9D,1
051504,001653: 12,3350 53040 BMN BZE
051505,001654: 12,3351 25426 NEGP
051506,001655: 12,3352 25426 NEGP
051507,001656: 12,3353 16740 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
051508,001657: 12,3354 02766 COGA
051509,001658: 12,3355 43316 DSQ DAD
051510,001659: 12,3356 10766 D1/1024
051511,001660: 12,3357 41301 NORM DMP
051512,001661: 12,3360 00047 X1
051513,001662: 12,3361 02740 P
051514,001663: 12,3362 44257 SR* BDSU
051515,001664: 12,3363 20571 0 -8D,1
![]() |
Page 1191 |
051517,001666: 12,3364 10764 D1/32
051518,001667: 12,3365 16742 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
051519,001668: 12,3366 02740 P
051520,001669: 12,3367 45000 BOV CALL
051521,001670: 12,3370 25431 HIENERGY
051522,001671: 12,3371 25000 GETX
051523,001672: 12,3372 77745 DLOAD
051524,001673: 12,3373 00037 T
051525,001674: 12,3374 16762 STODL TPREV
051526,001675: 12,3375 00031 XI
051527,001676: 12,3376 45014 BON CALL
051528,001677: 12,3377 04310 INFINFLG
051529,001678: 12,3400 25426 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
051530,001679: 12,3401 24434 DELTIME
051531,001680: 12,3402 44200 BOV BDSU
051532,001681: 12,3403 25446 BIGTIME
051533,001682: 12,3404 02671 TDESIRED
051534,001683: 12,3405 02760 STORE TERRLAMB
051535,001684: 12,3406 44246 ABS BDSU
051536,001685: 12,3407 02764 EPSILONL
051537,001686: 12,3410 47044 BPL RTB
051538,001687: 12,3411 25515 INITV
051539,001688: 12,3412 24657 CHECKCTR
051540,001689: 12,3413 45030 BHIZ CALL
051541,001690: 12,3414 25457 SUFFCHEK
051542,001691: 12,3415 24551 ITERATOR
051543,001692: 12,3416 53145 DLOAD BZE
051544,001693: 12,3417 00155 MPAC
051545,001694: 12,3420 25457 SUFFCHEK
051546,001695: 12,3421 77615 DAD
051547,001696: 12,3422 02766 COGA
051548,001697: 12,3423 02766 STORE COGA
051549,001698: 12,3424 77650 GOTO
051550,001699: 12,3425 25337 LAMBLOOP
051551,001700:
051552,001701:
051553,001702: 12,3426 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
051554,001703: 12,3427 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
051555,001704: 12,3430 25451 LOENERGY
051556,001705:
051557,001706:
051558,001707: 12,3431 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
051559,001708: 12,3432 00001 0
051560,001709: 12,3433 02766 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
051561,001710: 12,3434 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
051562,001711: 12,3435 70545 COMMONLM DLOAD SR1
051563,001712: 12,3436 00015 DCOGA
051564,001713: 12,3437 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
051565,001714: 12,3440 44254 BZE BDSU
![]() |
Page 1192 |
051567,001716: 12,3441 25457 SUFFCHEK
051568,001717: 12,3442 02766 COGA
051569,001718: 12,3443 02766 STORE COGA
051570,001719: 12,3444 77650 GOTO # RESTART THIS LOOP
051571,001720: 12,3445 25337 LAMBLOOP
051572,001721:
051573,001722:
051574,001723: 12,3446 77745 BIGTIME DLOAD
051575,001724: 12,3447 02762 TPREV
051576,001725: 12,3450 00037 STORE T
051577,001726:
051578,001727:
051579,001728: 12,3451 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
051580,001729: 12,3452 00001 0
051581,001730: 12,3453 02766 COGA # IN OVERFLOW OF TIME.
051582,001731: 12,3454 00017 STORE COGAMAX # THIS IS THE NEW BOUND.
051583,001732: 12,3455 77650 GOTO
051584,001733: 12,3456 25435 COMMONLM
051585,001734:
051586,001735:
051587,001736: 12,3457 51545 SUFFCHEK DLOAD ABS
051588,001737: 12,3460 02760 TERRLAMB
051589,001738: 12,3461 41325 PDDL DMP # PL AT 2D
051590,001739: 12,3462 02671 TDESIRED
051591,001740: 12,3463 10751 BEE17
051592,001741: 12,3464 45215 DAD DSU # PL AT 0D
051593,001742: 12,3465 11000 ONEBIT
051594,001743: 12,3466 43044 BPL SETGO
051595,001744: 12,3467 25515 INITV
051596,001745: 12,3470 02434 SOLNSW
051597,001746: 12,3471 25515 INITV
051598,001747: 12,3472 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
051599,001748: 12,3473 00001 0
051600,001749: 12,3474 02434 SOLNSW
051601,001750: 12,3475 02710 RTNLAMB
051602,001751:
051603,001752:
051604,001753: 12,3476 71331 NOGUESS SSP DLOAD
051605,001754: 12,3477 00051 TWEEKIT
051606,001755: 12,3500 10000 20000
051607,001756: 12,3501 00011 COGAMIN
051608,001757: 12,3502 65342 SR1 PDDL # PL AT 2
051609,001758: 12,3503 00017 COGAMAX
051610,001759: 12,3504 43342 SR1 DAD
051611,001760: 12,3505 77626 STADR # PL AT 0
051612,001761: 12,3506 75011 STORE COGA
051613,001762: 12,3507 00015 STORE DCOGA
051614,001763: 12,3510 77650 GOTO
051615,001764: 12,3511 25337 LAMBLOOP
051616,001765:
![]() |
Page 1193 |
051618,001767: 12,3512 52145 LOLIM DLOAD GOTO
051619,001768: 12,3513 11004 COGLOLIM # COGLOLIM=-.999511597
051620,001769: 12,3514 25327 MINCOGA
051621,001770:
051622,001771:
051623,001772: 12,3515 60345 INITV DLOAD NORM
051624,001773: 12,3516 00041 R1
051625,001774: 12,3517 00047 X1
051626,001775: 12,3520 70525 PDDL SR1 # PL AT 2
051627,001776: 12,3521 02740 P
051628,001777: 12,3522 77671 DDV # PL AT 0
051629,001778: 12,3523 75457 SL* SQRT
051630,001779: 12,3524 20175 0 -4,1
051631,001780: 12,3525 72405 DMP SL1
051632,001781: 12,3526 00021 ROOTMU
051633,001782: 12,3527 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
051634,001783: 12,3530 02766 COGA
051635,001784: 12,3531 74261 SL VXSC
051636,001785: 12,3532 20206 5
051637,001786: 12,3533 02722 UR1
051638,001787: 12,3534 77725 PDDL # XCH WITH 0D PL AT 0,6
051639,001788: 12,3535 76561 VXSC VSL1
051640,001789: 12,3536 02674 UN
051641,001790: 12,3537 53235 VXV VAD # PL AT 0
051642,001791: 12,3540 02722 UR1
051643,001792: 12,3541 77772 VSL1
051644,001793: 12,3542 02744 STORE VVEC
051645,001794: 12,3543 53135 SLOAD BZE
051646,001795: 12,3544 02702 VTARGTAG
051647,001796: 12,3545 25550 TARGETV
051648,001797: 12,3546 77650 GOTO
051649,001798: 12,3547 02710 RTNLAMB
051650,001799:
051651,001800:
051652,001801: 12,3550 45145 TARGETV DLOAD CALL
051653,001802: 12,3551 02720 MAGVEC2
051654,001803: 12,3552 24714 LAMENTER
051655,001804: 12,3553 02703 STORE VTARGET
051656,001805: 12,3554 77650 GOTO
051657,001806: 12,3555 02710 RTNLAMB
051658,001807:
![]() |
Page 1194 |
051660,001809: 12,3556 40220 TIMERAD STQ SETPD # PL AT 0
051661,001810: 12,3557 02710 RTNTR
051662,001811: 12,3560 00001 0
051663,001812: 12,3561 63375 VLOAD PDVL # PL AT 6
051664,001813: 12,3562 02655 RVEC
051665,001814: 12,3563 02744 VVEC
051666,001815: 12,3564 77624 CALL
051667,001816: 12,3565 11005 PARAM
051668,001817: 12,3566 71200 BOV DLOAD # PL AT 0
051669,001818: 12,3567 24775 COGAOVFL
051670,001819: 12,3570 10764 D1/32
051671,001820: 12,3571 41225 DSU DMP
051672,001821: 12,3572 02742 R1A
051673,001822: 12,3573 02740 P
051674,001823: 12,3574 41366 SQRT DMP
051675,001824: 12,3575 02766 COGA
051676,001825: 12,3576 74212 SL4 VXSC
051677,001826: 12,3577 02712 U2
051678,001827: 12,3600 45325 PDDL DSU # PL AT 6
051679,001828: 12,3601 10756 D1/64
051680,001829: 12,3602 02742 R1A
051681,001830: 12,3603 52361 VXSC VSU # PL AT 0
051682,001831: 12,3604 02722 UR1
051683,001832: 12,3605 53512 VSL4 UNIT
051684,001833: 12,3606 77600 BOV
051685,001834: 12,3607 25472 360LAMB # NO SOLUTION SINCE CONIC IS A CIRCLE
051686,001835: 12,3610 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
051687,001836: 12,3611 02756 RDESIRED # 36D=ECC (+3)
051688,001837: 12,3612 00047 X1
051689,001838: 12,3613 41325 PDDL DMP # PL AT 8
051690,001839: 12,3614 00041 R1
051691,001840: 12,3615 02740 P
051692,001841: 12,3616 56257 SL* DDV # PL AT 6
051693,001842: 12,3617 20201 0,1
051694,001843: 12,3620 56225 DSU DDV
051695,001844: 12,3621 10762 D1/16
051696,001845: 12,3622 00045 36D # 36D=ECC (+3)
051697,001846: 12,3623 00031 STORE COSF
051698,001847: 12,3624 63400 BOV DSQ
051699,001848: 12,3625 25665 BADR2
051700,001849: 12,3626 50021 BDSU BMN
051701,001850: 12,3627 10760 D1/4
051702,001851: 12,3630 25665 BADR2
051703,001852: 12,3631 75366 SQRT SIGN
051704,001853: 12,3632 02755 SGNRDOT
051705,001854: 12,3633 77614 CLEAR
051706,001855: 12,3634 04272 APSESW
051707,001856:
051708,001857: 12,3635 76561 TERMNVEC VXSC VSL1
051709,001858: 12,3636 02674 UN
![]() |
Page 1195 |
051711,001860: 12,3637 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
051712,001861: 12,3640 00001 0D
051713,001862: 12,3641 53361 VXSC VAD # PL AT 0
051714,001863: 12,3642 00031 COSF
051715,001864: 12,3643 41572 VSL1 PUSH # 0D=U2 PL AT 6
051716,001865:
051717,001866: 12,3644 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
051718,001867: 12,3645 02722 UR1
051719,001868: 12,3646 23702 DP1/4
051720,001869: 12,3647 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
051721,001870: 12,3650 25651 +1 # CLEAR OVFIND IF SET
051722,001871: 12,3651 26732 STOVL CSTH # CSTH (+1)
051723,001872: 12,3652 02722 UR1
051724,001873: 12,3653 76435 VXV VSL1
051725,001874: 12,3654 72441 DOT SL1
051726,001875: 12,3655 02674 UN
051727,001876: 12,3656 16730 STODL SNTH # SNTH (+1)
051728,001877: 12,3657 02740 P
051729,001878: 12,3660 77624 CALL
051730,001879: 12,3661 25000 GETX
051731,001880: 12,3662 77614 CLRGO
051732,001881: 12,3663 02634 SOLNSW
051733,001882: 12,3664 24760 COMMNOUT
051734,001883:
051735,001884:
051736,001885: 12,3665 75345 BADR2 DLOAD SIGN
051737,001886: 12,3666 22273 LODPHALF
051738,001887: 12,3667 00031 COSF
051739,001888: 12,3670 14031 STODL COSF
051740,001889: 12,3671 22275 KEPZERO
051741,001890: 12,3672 77614 SETGO
051742,001891: 12,3673 04032 APSESW
051743,001892: 12,3674 25635 TERMNVEC
051744,001893: 12,3675 40220 APSIDES STQ SETPD # PL AT 0
051745,001894: 12,3676 02710 RTNAPSE
051746,001895: 12,3677 00001 0D
051747,001896: 12,3700 63375 VLOAD PDVL # PL AT 6
051748,001897: 12,3701 02655 RVEC
051749,001898: 12,3702 02744 VVEC
051750,001899: 12,3703 77624 CALL
051751,001900: 12,3704 11005 PARAM
051752,001901: 12,3705 77600 BOV # PL AT 0
051753,001902: 12,3706 25707 GETECC
051754,001903: 12,3707 42405 GETECC DMP SL4
051755,001904: 12,3710 02742 R1A
051756,001905: 12,3711 75421 BDSU SQRT
051757,001906: 12,3712 10756 D1/64
051758,001907: 12,3713 02752 STORE ECC
051759,001908: 12,3714 65215 DAD PDDL # PL AT 2
051760,001909: 12,3715 10752 D1/8
![]() |
Page 1196 |
051762,001911: 12,3716 00041 R1
051763,001912: 12,3717 72405 DMP SL1
051764,001913: 12,3720 02740 P
051765,001914: 12,3721 77671 DDV # PL AT 0
051766,001915: 12,3722 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
051767,001916: 12,3723 02742 R1A
051768,001917: 12,3724 00047 X1
051769,001918: 12,3725 53725 PDDL SL* # PL AT 4
051770,001919: 12,3726 00041 R1
051771,001920: 12,3727 20174 0 -5,1
051772,001921: 12,3730 45271 DDV DSU # PL AT 2,0
051773,001922: 12,3731 50000 BOV BMN
051774,001923: 12,3732 25736 INFINAPO
051775,001924: 12,3733 25736 INFINAPO
051776,001925: 12,3734 77650 GOTO
051777,001926: 12,3735 02710 RTNAPSE
051778,001927: 12,3736 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
051779,001928: 12,3737 22306 LDPOSMAX
051780,001929: 12,3740 02710 RTNAPSE # THAT PL IS AT 0.
051781,001930:
![]() |
Page 1197 |
051783,001932: 12,3741 11,2305 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
051784,001933:
051785,001934: # ERASABLE ASSIGNMENTS
051786,001935:
051787,001936:
051788,001937: # KEPLER SUBROUTINE
051789,001938:
051790,001939: # INPUT -
051791,001940: # RRECT ERASE +5
051792,001941: # VRECT ERASE +5
051793,001942: # TAU. ERASE +1
051794,001943: # XKEP ERASE +1
051795,001944: # TC ERASE +1
051796,001945: # XPREV ERASE +1
051797,001946: 12,3741 1/MU EQUALS 14D
051798,001947: 12,3741 ROOTMU EQUALS 16D
051799,001948: 12,3741 1/ROOTMU EQUALS 18D
051800,001949: # OUTPUT -
051801,001950: # RCV ERASE +5
051802,001951: # VCV ERASE +5
051803,001952: # RC ERASE +1
051804,001953: # XPREV ERASE +1
051805,001954:
051806,001955: # DEBRIS -
051807,001956: 12,3741 ALPHA EQUALS 8D
051808,001957: 12,3741 XMAX EQUALS 10D
051809,001958: 12,3741 XMIN EQUALS 12D
051810,001959: 12,3741 X EQUALS 20D
051811,001960: 12,3741 XI EQUALS 24D
051812,001961: 12,3741 S(XI) EQUALS 26D
051813,001962: 12,3741 XSQC(XI) EQUALS 28D
051814,001963: 12,3741 T EQUALS 30D
051815,001964: 12,3741 R1 EQUALS 32D
051816,001965: 12,3741 KEPC1 EQUALS 34D
051817,001966: 12,3741 KEPC2 EQUALS 36D
051818,001967: # DELX ERASE +1
051819,001968: # DELT ERASE +1
051820,001969: # URRECT ERASE +5
051821,001970: # RCNORM ERASE +1
051822,001971: # XPREV EQUALS XKEP
051823,001972:
051824,001973:
051825,001974: # LAMBERT SUBROUTINE
051826,001975:
051827,001976: # INPUT-
051828,001977: # R1VEC ERASE +5
051829,001978: # R2VEC ERASE +5
051830,001979: # TDESIRED ERASE +1
051831,001980: # GEOMSGN ERASE +0
051832,001981: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
![]() |
Page 1198 |
051834,001983: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
051835,001984: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
051836,001985: # UN ERASE +5 ONLY USED IF NORMSW IS 1
051837,001986: # VTARGTAG ERASE +0
051838,001987: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
051839,001988:
051840,001989: # OUTPUT -
051841,001990: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
051842,001991: # V1VEC EQUALS MPAC
051843,001992:
051844,001993: # DEBRIS -
051845,001994: # RTNLAMB ERASE +0
051846,001995: # U2 ERASE +5
051847,001996: # MAGVEC2 ERASE +1
051848,001997: # UR1 ERASE +5
051849,001998: # R1 EQUALS 31D
051850,001999: # UN ERASE +5
051851,002000: # SNTH ERASE +1
051852,002001: # CSTH ERASE +1
051853,002002: # 1-CSTH ERASE +1
051854,002003: # CSTH-RHO ERASE +1
051855,002004: 12,3741 COGAMAX EQUALS 14D # CLOBBERS 1/MU
051856,002005: 12,3741 COGAMIN EQUALS 8D
051857,002006: 12,3741 DCOGA EQUALS 12D
051858,002007: # TWEEKIT EQUALS 40D
051859,002008: # P ERASE +1
051860,002009: # COGA ERASE +1
051861,002010: # R1A ERASE +1
051862,002011: # X EQUALS 20D
051863,002012: # XSQ EQUALS 22D
051864,002013: # XI EQUALS 24D
051865,002014: # S(XI) EQUALS 26D
051866,002015: # XSQC(XI) EQUALS 28D
051867,002016: # T EQUALS 30D
051868,002017: # KEPC1 EQUALS 34D
051869,002018: # KEPC2 EQUALS 36D
051870,002019: # SLOPESW
051871,002020: # SOLNSW
051872,002021: # OTHERS -
051873,002022:
051874,002023: # RVEC EQUALS R1VEC
051875,002024: # VVEC ERASE +5
051876,002025: # COGAFLAG
051877,002026: # RVSW
051878,002027: # INFINFLG
051879,002028: # APSESW
051880,002029: # 360SW
051881,002030: # RTNTT EQUALS RTNLAMB
051882,002031: # ECC ERASE +1
051883,002032: # RTNTR EQUALS RTNLAMB
![]() |
Page 1199 |
051885,002034: # RTNAPSE EQUALS RTNLAMB
051886,002035: # R2 EQUALS MAGVEC2
051887,002036: 12,3741 COSF EQUALS 24D
051888,002037: # RTNPRM ERASE +0
051889,002038: # SGNRDOT ERASE +0
051890,002039: # RDESIRED ERASE +1
051891,002040:
051892,002041:
051893,002042: # ITERATOR SUBROUTINE
051894,002043:
051895,002044: # ORDERSW
051896,002045: 12,3741 MAX EQUALS 14D # CLOBBERS 1/MU
051897,002046: 12,3741 MIN EQUALS 8D
051898,002047: # INDEP ERASE +1
051899,002048: 12,3741 DELINDEP EQUALS 12D
051900,002049: 12,3741 ITERCTR EQUALS 22D
051901,002050: 12,3741 DEP EQUALS 30D
051902,002051: # DELDEP ERASE +1
051903,002052: # DEPREV ERASE +1
051904,002053: 12,3741 TWEEKIT EQUALS 40D
051905,002054:
051906,002055:
051907,002056: # MORE KEPLER
051908,002057:
051909,002058: # EPSILONT ERASE +1
051910,002059:
051911,002060:
051912,002061: # MORE LAMBERT
051913,002062:
051914,002063: # TERRLAMB EQUALS DELDEP
051915,002064: # TPREV EQUALS DEPREV
051916,002065:
051917,002066:
051918,002067: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc