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