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