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