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