Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3),
the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72
source code was then modified by incorporating changes known from contemporary documentation to have
been made between revisions 72 and 72/3. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72/3 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
052684,000002: ## Copyright: Public domain.
052685,000003: ## Filename: CONIC_SUBROUTINES.agc
052686,000004: ## Purpose: A section of Manche72 revision 3.
052687,000005: ## It is part of the reconstructed source code for the final, flown
052688,000006: ## release of the software for the Command Module's (CM) Apollo
052689,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
052690,000008: ## of this program are available; instead, this file was recreated
052691,000009: ## from a reconstructed copy of Comanche 072. It has been adapted
052692,000010: ## such that the resulting bugger words exactly match those
052693,000011: ## specified for Manche72 revision 3 in NASA drawing 2021153G,
052694,000012: ## which gives relatively high confidence that the reconstruction
052695,000013: ## is correct.
052696,000014: ## Assembler: yaYUL
052697,000015: ## Contact: Ron Burkey <info@sandroid.org>.
052698,000016: ## Website: www.ibiblio.org/apollo/index.html
052699,000017: ## Mod history: 2024-05-19 MAS Created from Comanche 072.
052700,000018:
052701,000019: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
052702,000020: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
052703,000021: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052704,000022:
052705,000023: # FUNCTIONAL DESCRIPTION -
052706,000024: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
052707,000025: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
052708,000026: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
052709,000027: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
052710,000028: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
052711,000029: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
052712,000030: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
052713,000031: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
052714,000032: # TINES APPROPRIATELY.
052715,000033:
052716,000034: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
052717,000035: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
052718,000036: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
052719,000037:
052720,000038: # RESTRICTIONS -
052721,000039: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
052722,000040: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
052723,000041: # TORIES COULD BE HANDLED.
052724,000042:
052725,000043: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
052726,000044: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
052727,000045: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
052728,000046:
052729,000047: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
052730,000048: # MOD NO. - 1 LOG SECTION - CONIC SUBROUTINES
052731,000049: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
052732,000050: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
052733,000051: # MOD NO. - 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
052734,000052: # MOD. NO. - 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
052735,000053:
052736,000054: # FUNCTIONAL DESCRIPTION -
052737,000055: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
052738,000056: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
052739,000057: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
052740,000058: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
052741,000059: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
052742,000060: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
052743,000061:
052744,000062: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
052745,000063: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
052746,000064:
052747,000065: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
052748,000066: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
052749,000067:
052750,000068: # THE RESTRICTIONS ARE -
052751,000069: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
052752,000070: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
052753,000071: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052754,000072:
052755,000073: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
052756,000074: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
052757,000075: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
052758,000076:
052759,000077: # REFERENCES -
052760,000078: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
052761,000079: # MEMO 67-4.
052762,000080:
052763,000081: # INPUT - ERASABLE INITIALIZATION REQUIRED
052764,000082: # * SCALE FACTOR *
052765,000083: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052766,000084: # --------*--------------* -----------------------
052767,000085: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052768,000086: # * +27 FOR MOON *
052769,000087: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052770,000088: # * +5 FOR MOON *
052771,000089: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052772,000090: # * *RESPECTIVELY, IS THE CENTRAL BODY
052773,000091: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
052774,000092: # * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
052775,000093: # XKEPNEW * +17 FOR EARTH*DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS).SIGN SHOULD AGREE WITH THAT OF TAU.
052776,000094: # * +16 FOR MOON * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
052777,000095: # * * MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
052778,000096: # * * BY KEPLER TO A POOR BUT VALID GUESS.
052779,000097: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
052780,000098: # XPREV * +17 FOR EARTH*DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
052781,000099: # * +16 FOR MOON * ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
052782,000100:
052783,000101: # SUBROUTINES CALLED -
052784,000102: # DELTIME
052785,000103:
052786,000104: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052787,000105: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052788,000106: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
052789,000107: # KEPRTN ... CONTINUE
052790,000108:
052791,000109: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
052792,000110: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
052793,000111: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
052794,000112:
052795,000113: # ABORT EXIT MODES -
052796,000114: # NONE
052797,000115:
052798,000116: # OUTPUT -
052799,000117: # * SCALE FACTOR *
052800,000118: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052801,000119: # --------*--------------* -----------------------
052802,000120: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
052803,000121: # * +27 FOR MOON *
052804,000122: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
052805,000123: # * +5 FOR MOON *
052806,000124: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
052807,000125: # XPREV * +17 FOR EARTH*DP VALUE OF X IN SQRT(METERS) TO WHCIH KEPLER CONVERGED. ALWAYS LESS THAN THE X
052808,000126: # * +16 FOR MOON * CORRESPONDING TO ONE PERIOD.
052809,000127: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052810,000128:
052811,000129: # DEBRIS -
052812,000130: # PARAMETERS WHICH MAY BE OF USE -
052813,000131: # * SCALE FACTOR *
052814,000132: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052815,000133: # --------*--------------* -----------------------
052816,000134: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
052817,000135: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
052818,000136: # * +27 FOR MOON *
052819,000137: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
052820,000138: # * -20 FOR MOON *
052821,000139: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
052822,000140: # * *TAU. OF LESS THAN ONE PERIOD.
052823,000141:
052824,000142: # PARAMETERS OF NO USE -
052825,000143: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
052826,000144:
052827,000145: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
052828,000146: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
052829,000147: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052830,000148:
052831,000149: # FUNCTIONAL DESCRIPTION -
052832,000150: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
052833,000151: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
052834,000152: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
052835,000153: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
052836,000154: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
052837,000155: # UTILIZED IN THE COMPUTATION.
052838,000156:
052839,000157: # THE RESTRICTIONS ARE -
052840,000158: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
052841,000159: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
052842,000160: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052843,000161: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
052844,000162: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
052845,000163: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
052846,000164: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052847,000165:
052848,000166: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
052849,000167: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
052850,000168: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
052851,000169:
052852,000170: # REFERENCES -
052853,000171: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP - SECTION 5.5, SGA MEMO 67-8,
052854,000172: # SGA MEMO 67-4.
052855,000173:
052856,000174: # INPUT - ERASABLE INITIALIZATION REQUIRED
052857,000175: # * SCALE FACTOR *
052858,000176: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052859,000177: # --------*--------------* -----------------------
052860,000178: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052861,000179: # * +27 FOR MOON *
052862,000180: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
052863,000181: # * +27 FOR MOON *
052864,000182: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
052865,000183: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052866,000184: # * *RESPECTIVELY, IS THE CENTRAL BODY
052867,000185: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
052868,000186: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
052869,000187: # * *COGA IS TO BE USED BY LAMBERT
052870,000188: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
052871,000189: # *IGNORED IF GUESSW IS SET.
052872,000190: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
052873,000191: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
052874,000192: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
052875,000193: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
052876,000194: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
052877,000195: # * *AT R1VEC.
052878,000196:
052879,000197: # SUBROUTINES CALLED -
052880,000198: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
052881,000199:
052882,000200: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052883,000201: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052884,000202: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
052885,000203: # IN MPAC IF VTARGTAG WAS ZERO
052886,000204: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
052887,000205: # L+3 SOLNSW
052888,000206: # L+4 LAMABORT
052889,000207:
052890,000208: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
052891,000209: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
052892,000210:
052893,000211: # ABORT EXIT MODES -
052894,000212: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
052895,000213: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
052896,000214: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
052897,000215: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
052898,000216: # 1-CSTH 360 DEGREES.
052899,000217: # DSU BMN
052900,000218: # ONEBIT
052901,000219: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
052902,000220: # DLOAD DAD
052903,000221: # TDESIRED
052904,000222: # SOMETIME
052905,000223: # STCALL TDESIRED INCREASE TDESIRED
052906,000224: # LAMBERT
052907,000225:
052908,000226: # OUTPUT -
052909,000227: # * SCALE FACTOR *
052910,000228: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052911,000229: # --------*--------------* -----------------------
052912,000230: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
052913,000231: # * +5 FOR MOON *PROBLEM.
052914,000232: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
052915,000233: # * +5 FOR MOON *
052916,000234: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
052917,000235: # * *SOLUTION EXISTS.
052918,000236:
052919,000237: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052920,000238:
052921,000239: # DEBRIS -
052922,000240: # PARAMETERS WHICH MAY BE OF USE -
052923,000241: # * SCALE FACTOR *
052924,000242: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052925,000243: # --------*--------------* -----------------------
052926,000244: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
052927,000245: # CSTH * +1 *DP COSINE OF ANGLE
052928,000246: # 1-CSTH * +2 *DP 1-CSTH
052929,000247: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
052930,000248: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
052931,000249: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
052932,000250: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
052933,000251: # * +27 FOR MOON *
052934,000252: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
052935,000253: # U2 * +1 *DP UNIT VECTOR OF R2VEC
052936,000254:
052937,000255: # PARAMETERS OF NO USE
052938,000256: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
052939,000257: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
052940,000258:
052941,000259: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
052942,000260: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
052943,000261: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
052944,000262:
052945,000263: # FUNCTIONAL DESCRIPTION -
052946,000264: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
052947,000265: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
052948,000266: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
052949,000267: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
052950,000268: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
052951,000269: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
052952,000270:
052953,000271: # THE RESTRICTIONS ARE -
052954,000272: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052955,000273: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
052956,000274: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
052957,000275: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052958,000276:
052959,000277: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
052960,000278:
052961,000279: # REFERENCES -
052962,000280: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
052963,000281:
052964,000282: # INPUT - ERASABLE INITIALIZATION REQUIRED
052965,000283: # * SCALE FACTOR *
052966,000284: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
052967,000285: # --------*--------------* -----------------------
052968,000286: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052969,000287: # * +27 FOR MOON *
052970,000288: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052971,000289: # * +5 FOR MOON *
052972,000290: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
052973,000291: # CSTH * +1 *DP COSINE OF THE ANGLE
052974,000292: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
052975,000293: # * *IS TO BE COMPUTED ALSO.
052976,000294: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052977,000295: # * *RESPECTIVELY, IS THE CENTRAL BODY.
052978,000296:
052979,000297: # SUBROUTINES CALLED -
052980,000298: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
052981,000299:
052982,000300: # CALLING SEQUENCE AND NORMAL EXIT MODES -
052983,000301: # IF ONLY TIME IS DESIRED AS OUTPUT -
052984,000302: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052985,000303: # L+1 RVSW
052986,000304: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
052987,000305: # L+3 ... CONTINUE
052988,000306:
052989,000307: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
052990,000308: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
052991,000309: # L+1 RVSW
052992,000310: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
052993,000311: # THE INITIAL VELOCITY VECTOR IN MPAC.
052994,000312: # L+3 STOVL NEWVVEC
052995,000313: # L+4 STADR
052996,000314: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
052997,000315: # L+6 ... CONTINUE
052998,000316:
052999,000317: # ABORT EXIT MODES -
053000,000318: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
053001,000319: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
053002,000320:
053003,000321: # OUTPUT -
053004,000322: # * SCALE FACTOR *
053005,000323: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053006,000324: # --------*--------------* -----------------------
053007,000325: # T(30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
053008,000326: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
053009,000327: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
053010,000328: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
053011,000329: # * *CLEAR IF NOT.
053012,000330:
053013,000331: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
053014,000332: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
053015,000333: # MPAC +5* +5 FOR MOON *
053016,000334: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
053017,000335: # * +27 FOR MOON *
053018,000336:
053019,000337: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
053020,000338:
053021,000339: # DEBRIS -
053022,000340: # PARAMETERS WHICH MAY BE OF USE -
053023,000341: # * SCALE FACTOR *
053024,000342: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053025,000343: # --------*--------------* -----------------------
053026,000344: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
053027,000345: # * +27 FOR MOON *
053028,000346: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
053029,000347: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
053030,000348: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
053031,000349: # UR1 * +1 *DP UNIT VECTOR OF RVEC
053032,000350: # U2 * +1 *DP UNIT VECTOR OF VVEC
053033,000351: # UN * +1 *DP UNIT VECTOR OF UR1*U2
053034,000352:
053035,000353: # PARAMETERS OF NO USE -
053036,000354: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
053037,000355: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
053038,000356:
053039,000357: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
053040,000358: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
053041,000359: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
053042,000360:
053043,000361: # FUNCTIONAL DESCRIPTION -
053044,000362: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
053045,000363: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
053046,000364: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
053047,000365: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
053048,000366: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
053049,000367: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
053050,000368:
053051,000369: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
053052,000370: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
053053,000371:
053054,000372: # THE RESTRICTIONS ARE -
053055,000373: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
053056,000374: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
053057,000375: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
053058,000376: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
053059,000377: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
053060,000378: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
053061,000379: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
053062,000380:
053063,000381: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
053064,000382:
053065,000383: # REFERENCES -
053066,000384: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
053067,000385:
053068,000386: # INPUT - ERASABLE INITIALIZATION REQUIRED
053069,000387: # * SCALE FACTOR *
053070,000388: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053071,000389: # --------*--------------* -----------------------
053072,000390: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
053073,000391: # * +27 FOR MOON *
053074,000392: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
053075,000393: # * +5 FOR MOON *
053076,000394: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
053077,000395: # * +27 FOR MOON *COMPUTED.
053078,000396: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
053079,000397: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
053080,000398: # * *SINGLE-VALUED PROBLEM.
053081,000399: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
053082,000400: # * *RESPECTIVELY, IS THE CENTRAL BODY.
053083,000401: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
053084,000402: # * *IS TO BE COMPUTED ALSO.
053085,000403:
053086,000404: # SUBROUTINES CALLED -
053087,000405: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
053088,000406:
053089,000407: # CALLING SEQUENCE AND NORMAL EXIT MODES -
053090,000408: # IF ONLY TIME IS DESIRED AS OUTPUT -
053091,000409: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
053092,000410: # L+1 RVSW
053093,000411: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
053094,000412: # L+3 ... CONTINUE
053095,000413:
053096,000414: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
053097,000415: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
053098,000416: # L+1 RVSW
053099,000417: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
053100,000418: # THE INITIAL VELOCITY VECTOR IN MPAC.
053101,000419: # L+3 STOVL NEWVVEC
053102,000420: # L+4 STADR
053103,000421: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
053104,000422: # L+6 ... CONTINUE
053105,000423:
053106,000424: # ABORT EXIT MODES -
053107,000425: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
053108,000426: # TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
053109,000427:
053110,000428: # OUTPUT -
053111,000429: # * SCALE FACTOR *
053112,000430: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053113,000431: # --------*--------------* -----------------------
053114,000432: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
053115,000433: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
053116,000434: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
053117,000435: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
053118,000436: # * *CLEAR IF NOT.
053119,000437: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
053120,000438: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
053121,000439: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
053122,000440: # * *APOCENTER.
053123,000441: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
053124,000442: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
053125,000443: # *MINUS-18, THE SWITCH IS CLEAR.
053126,000444:
053127,000445: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
053128,000446: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
053129,000447: # MPAC +5* +5 FOR MOON *
053130,000448: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
053131,000449: # * +27 FOR MOON *
053132,000450:
053133,000451: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
053134,000452:
053135,000453: # DEBRIS -
053136,000454: # PARAMETERS WHICH MAY BE OF USE -
053137,000455: # * SCALE FACTOR *
053138,000456: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053139,000457: # --------*--------------* -----------------------
053140,000458: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
053141,000459: # * +27 FOR MOON *
053142,000460: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
053143,000461: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
053144,000462: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
053145,000463: # UR1 * +1 *DP UNIT VECTOR OF RVEC
053146,000464: # U2 * +1 *DP UNIT VECTOR OF VVEC
053147,000465: # UN * +1 *DP UNIT VECTOR OF UR1*U2
053148,000466: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
053149,000467: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
053150,000468:
053151,000469: # PARAMETERS OF NO USE -
053152,000470: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
053153,000471: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
053154,000472:
053155,000473:
053156,000474: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
053157,000475: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
053158,000476: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
053159,000477:
053160,000478: # FUNCTIONAL DESCRIPTION -
053161,000479: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
053162,000480: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
053163,000481: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
053164,000482: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
053165,000483: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
053166,000484:
053167,000485: # THE RESTRICTIONS ARE -
053168,000486: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
053169,000487: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
053170,000488: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
053171,000489: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
053172,000490:
053173,000491: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
053174,000492:
053175,000493: # REFERENCES -
053176,000494: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
053177,000495:
053178,000496: # INPUT - ERASABLE INITIALIZATION REQUIRED
053179,000497: # * SCALE FACTOR *
053180,000498: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053181,000499: # --------*--------------* -----------------------
053182,000500: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
053183,000501: # * +27 FOR MOON *
053184,000502: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
053185,000503: # * +5 FOR MOON *
053186,000504: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
053187,000505: # * *RESPECTIVELY, IS THE CENTRAL BODY.
053188,000506:
053189,000507: # SUBROUTINES CALLED -
053190,000508: # PARAM, GEOM
053191,000509:
053192,000510: # CALLING SEQUENCE AND NORMAL EXIT MODES -
053193,000511: # IF ONLY TIME IS DESIRED AS OUTPUT -
053194,000512: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
053195,000513: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
053196,000514: # L+2 STODL APOAPSE
053197,000515: # L+3 0D
053198,000516: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
053199,000517: # L+5 ... CONTINUE
053200,000518:
053201,000519: # OUTPUT -
053202,000520: # * SCALE FACTOR *
053203,000521: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053204,000522: # --------*--------------* -----------------------
053205,000523: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
053206,000524: # * +27 FOR MOON *
053207,000525: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
053208,000526: # * +27 FOR MOON *
053209,000527: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
053210,000528:
053211,000529: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
053212,000530:
053213,000531: # DEBRIS -
053214,000532: # PARAMETERS WHICH MAY BE OF USE -
053215,000533: # * SCALE FACTOR *
053216,000534: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
053217,000535: # --------*--------------* -----------------------
053218,000536: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
053219,000537: # * +27 FOR MOON *
053220,000538: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
053221,000539: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
053222,000540: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
053223,000541: # UR1 * +1 *DP UNIT VECTOR OF RVEC
053224,000542: # U2 * +1 *DP UNIT VECTOR OF VVEC
053225,000543: # UN * +1 *DP UNIT VECTOR OF UR1*U2
053226,000544: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
053227,000545: # * +5 FOR MOON *
053228,000546:
053229,000547: # PARAMETERS OF NO USE -
053230,000548: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
053231,000549: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
053232,000550:
053233,000551: 12,2000 SETLOC CONICS
053234,000552: 12,2000 BANK
053235,000553:
053236,000554: 12,2042 COUNT 12/CONIC
053237,000555:
053238,000556: 12,2042 E5,1723 EBANK= UR1
053239,000557: 12,2042 40001 KEPLERN SETPD BOV
053240,000558: 12,2043 00001 0
053241,000559: 12,2044 24045 +1
053242,000560: 12,2045 77773 VLOAD*
053243,000561: 12,2046 11740 MUTABLE,1
053244,000562: 12,2047 24017 STOVL 14D
053245,000563: 12,2050 01503 RRECT
053246,000564: 12,2051 66256 UNIT SSP
053247,000565: 12,2052 00027 ITERCTR
053248,000566: 12,2053 00024 20D
053249,000567: 12,2054 16647 STODL URRECT
053250,000568: 12,2055 00045 36D
053251,000569: 12,2056 24041 STOVL R1
053252,000570: 12,2057 01503 RRECT
053253,000571: 12,2060 76441 DOT SL1R
053254,000572: 12,2061 01511 VRECT
053255,000573: 12,2062 76405 DMP SL1R
053256,000574: 12,2063 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
053257,000575: 12,2064 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
053258,000576:
053259,000577: 12,2065 01511 VRECT
053260,000578: 12,2066 57236 VSQ DMPR
053261,000579: 12,2067 00017 1/MU # 1/MU (-34 OR -28)
053262,000580: 12,2070 52405 DMP SL3
053263,000581: 12,2071 00041 R1
053264,000582: 12,2072 61425 DSU ROUND
053265,000583: 12,2073 11610 D1/64
053266,000584: 12,2074 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
053267,000585:
053268,000586: 12,2075 74421 BDSU SR1R
053269,000587: 12,2076 11610 D1/64
053270,000588: 12,2077 77671 DDV
053271,000589: 12,2100 00041 R1
053272,000590: 12,2101 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
053273,000591:
053274,000592: 12,2102 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
053275,000593: 12,2103 24112 1REV
053276,000594: 12,2104 11626 -50SC # -50SC (+12)
053277,000595: 12,2105 40071 DDV BOV
053278,000596: 12,2106 00011 ALPHA
053279,000597: 12,2107 24116 STOREMAX
053280,000598: 12,2110 52166 SQRT GOTO
053281,000599: 12,2111 24116 STOREMAX
053282,000600: 12,2112 55366 1REV SQRT BDDV
053283,000601: 12,2113 11630 2PISC # 2PISC (+6)
053284,000602: 12,2114 77600 BOV
053285,000603: 12,2115 24116 STOREMAX
053286,000604: 12,2116 00013 STOREMAX STORE XMAX
053287,000605: 12,2117 65205 DMP PDDL
053288,000606: 12,2120 00023 1/ROOTMU
053289,000607: 12,2121 00011 ALPHA
053290,000608: 12,2122 65301 NORM PDDL
053291,000609: 12,2123 00047 X1
053292,000610: 12,2124 56257 SL* DDV
053293,000611: 12,2125 20173 0 -6,1
053294,000612: 12,2126 50000 BOV BMN
053295,000613: 12,2127 24143 MODDONE
053296,000614: 12,2130 24143 MODDONE # MPAC=PERIOD
053297,000615: 12,2131 51525 PERIODCH PDDL ABS # 0D=PERIOD
053298,000616: 12,2132 02312 TAU.
053299,000617: 12,2133 50025 DSU BMN
053300,000618: 12,2134 00001 0D
053301,000619: 12,2135 24143 MODDONE
053302,000620: 12,2136 77765 SIGN
053303,000621: 12,2137 02312 TAU.
053304,000622: 12,2140 16312 STODL TAU.
053305,000623: 12,2141 77650 GOTO
053306,000624: 12,2142 24131 PERIODCH
053307,000625: 12,2143 71201 MODDONE SETPD DLOAD
053308,000626: 12,2144 00001 0
053309,000627: 12,2145 02306 XKEPNEW
053310,000628: 12,2146 00025 STORE X
053311,000629: 12,2147 53165 SIGN BZE
053312,000630: 12,2150 02312 TAU.
053313,000631: 12,2151 24320 BADX
053314,000632: 12,2152 51440 BMN ABS
053315,000633: 12,2153 24320 BADX
053316,000634: 12,2154 51025 DSU BPL
053317,000635: 12,2155 00013 XMAX
053318,000636: 12,2156 24320 BADX
053319,000637: 12,2157 51145 STORBNDS DLOAD BPL
053320,000638: 12,2160 02312 TAU.
053321,000639: 12,2161 24170 STOREMIN
053322,000640: 12,2162 57545 DLOAD DCOMP
053323,000641: 12,2163 00013 XMAX
053324,000642: 12,2164 14015 STODL XMIN
053325,000643: 12,2165 11566 KEPZERO
053326,000644: 12,2166 34013 STCALL XMAX
053327,000645: 12,2167 24173 DXCOMP
053328,000646: 12,2170 77745 STOREMIN DLOAD
053329,000647: 12,2171 11566 KEPZERO
053330,000648: 12,2172 00015 STORE XMIN
053331,000649: 12,2173 57345 DXCOMP DLOAD DMPR
053332,000650: 12,2174 02312 TAU.
053333,000651: 12,2175 11621 BEE22
053334,000652: 12,2176 77646 ABS
053335,000653: 12,2177 15344 STODL EPSILONT
053336,000654: 12,2200 01553 XPREV
053337,000655: 12,2201 77621 XDIFF BDSU
053338,000656: 12,2202 00025 X
053339,000657: 12,2203 02643 STORE DELX
053340,000658:
053341,000659: 12,2204 63545 KEPLOOP DLOAD DSQ
053342,000660: 12,2205 00025 X # X=XKEP
053343,000661: 12,2206 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
053344,000662: 12,2207 00047 X1
053345,000663: 12,2210 53605 DMP SRR*
053346,000664: 12,2211 00011 ALPHA
053347,000665: 12,2212 21573 0 -6,1
053348,000666: 12,2213 34031 STCALL XI # XI=ALPHA XSQ (+6)
053349,000667: 12,2214 24433 DELTIME
053350,000668: 12,2215 44200 BOV BDSU
053351,000669: 12,2216 24326 TIMEOVFL # UNLIKELY
053352,000670: 12,2217 02312 TAU.
053353,000671: 12,2220 02645 STORE DELT # DELT=DELINDEP
053354,000672: 12,2221 44246 ABS BDSU
053355,000673: 12,2222 01344 EPSILONT
053356,000674: 12,2223 71244 BPL DLOAD
053357,000675: 12,2224 24346 KEPCONVG
053358,000676: 12,2225 00037 T
053359,000677: 12,2226 60225 DSU NORM
053360,000678: 12,2227 01551 TC
053361,000679: 12,2230 00047 X1
053362,000680: 12,2231 60325 PDDL NORM
053363,000681: 12,2232 02643 DELX
053364,000682: 12,2233 00050 X2
053365,000683: 12,2234 41260 XSU,1 DMP
053366,000684: 12,2235 00047 X2
053367,000685: 12,2236 02645 DELT
053368,000686: 12,2237 56257 SLR* DDV
053369,000687: 12,2240 21202 1,1
053370,000688: 12,2241 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
053371,000689: 12,2242 71244 BPL DLOAD
053372,000690: 12,2243 24264 POSDELX
053373,000691: 12,2244 00025 X
053374,000692: 12,2245 00013 STORE XMAX # MOVE MAX BOUND IN
053375,000693: 12,2246 45221 BDSU DSU # PL AT 0
053376,000694: 12,2247 00015 XMIN
053377,000695: 12,2250 51000 BOV BPL
053378,000696: 12,2251 24256 NDXCHNGE
053379,000697: 12,2252 24256 NDXCHNGE
053380,000698: 12,2253 52145 DLOAD GOTO
053381,000699: 12,2254 00001 0D
053382,000700: 12,2255 24276 NEWDELX
053383,000701:
053384,000702: 12,2256 45345 NDXCHNGE DLOAD DSU
053385,000703: 12,2257 00015 XMIN
053386,000704: 12,2260 00025 X
053387,000705: 12,2261 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
053388,000706: 12,2262 11624 DP9/10
053389,000707: 12,2263 24276 NEWDELX
053390,000708:
053391,000709: 12,2264 77745 POSDELX DLOAD
053392,000710: 12,2265 00025 X
053393,000711: 12,2266 00015 STORE XMIN # MOVE MIN BOUND IN
053394,000712: 12,2267 45221 BDSU DSU # PL AT 0
053395,000713: 12,2270 00013 XMAX
053396,000714: 12,2271 50000 BOV BMN
053397,000715: 12,2272 24312 PDXCHNGE
053398,000716: 12,2273 24312 PDXCHNGE
053399,000717: 12,2274 77745 DLOAD
053400,000718: 12,2275 00001 0D
053401,000719: 12,2276 02643 NEWDELX STORE DELX
053402,000720: 12,2277 43254 BZE DAD
053403,000721: 12,2300 24346 KEPCONVG
053404,000722: 12,2301 00025 X
053405,000723: 12,2302 14025 STODL X
053406,000724: 12,2303 00037 T
053407,000725: 12,2304 01551 STORE TC
053408,000726: 12,2305 46034 BRNCHCTR RTB BHIZ
053409,000727: 12,2306 24656 CHECKCTR
053410,000728: 12,2307 24346 KEPCONVG
053411,000729: 12,2310 77650 GOTO
053412,000730: 12,2311 24204 KEPLOOP # ITERATE
053413,000731:
053414,000732: 12,2312 45345 PDXCHNGE DLOAD DSU
053415,000733: 12,2313 00013 XMAX
053416,000734: 12,2314 00025 X
053417,000735: 12,2315 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
053418,000736: 12,2316 11624 DP9/10
053419,000737: 12,2317 24276 NEWDELX
053420,000738:
053421,000739: 12,2320 70545 BADX DLOAD SR1
053422,000740: 12,2321 00013 XMAX
053423,000741: 12,2322 77765 SIGN
053424,000742: 12,2323 02312 TAU.
053425,000743: 12,2324 34025 STCALL X
053426,000744: 12,2325 24157 STORBNDS
053427,000745: 12,2326 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
053428,000746: 12,2327 00025 X
053429,000747: 12,2330 24344 NEGTOVFL
053430,000748: 12,2331 00013 STORE XMAX
053431,000749: 12,2332 70545 CMNTOVFL DLOAD SR1
053432,000750: 12,2333 02643 DELX
053433,000751: 12,2334 02643 STORE DELX
053434,000752: 12,2335 44254 BZE BDSU
053435,000753: 12,2336 02270 KEPRTN
053436,000754: 12,2337 00025 X
053437,000755: 12,2340 14025 STODL X
053438,000756: 12,2341 01551 TC
053439,000757: 12,2342 34037 STCALL T
053440,000758: 12,2343 24305 BRNCHCTR
053441,000759: 12,2344 34015 NEGTOVFL STCALL XMIN
053442,000760: 12,2345 24332 CMNTOVFL
053443,000761: 12,2346 44545 KEPCONVG DLOAD SR4R
053444,000762: 12,2347 00041 R1
053445,000763: 12,2350 74225 DSU VXSC
053446,000764: 12,2351 00035 XSQC(XI)
053447,000765: 12,2352 02647 URRECT
053448,000766: 12,2353 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
053449,000767: 12,2354 00025 X
053450,000768: 12,2355 60316 DSQ NORM
053451,000769: 12,2356 00047 X1
053452,000770: 12,2357 57275 DMPR DMPR
053453,000771: 12,2360 00023 1/ROOTMU
053454,000772: 12,2361 00025 X
053455,000773: 12,2362 53605 DMP SRR*
053456,000774: 12,2363 00033 S(XI)
053457,000775: 12,2364 21572 0 -7,1
053458,000776: 12,2365 77621 BDSU
053459,000777: 12,2366 00037 T
053460,000778: 12,2367 74352 SL1 VXSC
053461,000779: 12,2370 01511 VRECT
053462,000780: 12,2371 53372 VSL1 VAD # PL AT 0
053463,000781: 12,2372 77712 VSL4
053464,000782: 12,2373 01535 STORE RCV # RCV (+29 OR +27)
053465,000783:
053466,000784: 12,2374 60246 ABVAL NORM
053467,000785: 12,2375 00050 X2
053468,000786: 12,2376 16655 STODL RCNORM
053469,000787: 12,2377 00031 XI
053470,000788: 12,2400 45275 DMPR DSU
053471,000789: 12,2401 00033 S(XI)
053472,000790: 12,2402 11606 D1/128
053473,000791: 12,2403 76405 DMP SL1R
053474,000792: 12,2404 00021 ROOTMU
053475,000793: 12,2405 53605 DMP SLR*
053476,000794: 12,2406 00025 X
053477,000795: 12,2407 56601 0 -3,2
053478,000796: 12,2410 74271 DDV VXSC
053479,000797: 12,2411 02655 RCNORM
053480,000798: 12,2412 02647 URRECT
053481,000799: 12,2413 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
053482,000800: 12,2414 00035 XSQC(XI) # OR +13) PL AT 6
053483,000801: 12,2415 56257 SLR* DDV
053484,000802: 12,2416 56602 0 -4,2
053485,000803: 12,2417 02655 RCNORM
053486,000804: 12,2420 74221 BDSU VXSC
053487,000805: 12,2421 11622 D1/256
053488,000806: 12,2422 01511 VRECT
053489,000807: 12,2423 42455 VAD VSL8
053490,000808: 12,2424 77626 STADR # PL AT 0
053491,000809: 12,2425 62234 STODL VCV # VCV (+7 OR +5)
053492,000810: 12,2426 00037 T
053493,000811: 12,2427 15551 STODL TC
053494,000812: 12,2430 00025 X
053495,000813: 12,2431 35553 STCALL XPREV
053496,000814: 12,2432 02270 KEPRTN
053497,000815:
053498,000816: 12,2433 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
053499,000817: 12,2434 07171 TC POLY
053500,000818: 12,2435 00010 DEC 8 B-14
053501,000819: 12,2436 02525 12526 2DEC .083333334
053502,000820:
053503,000821: 12,2440 67356 75666 2DEC -.266666684
053504,000822:
053505,000823: 12,2442 15001 23771 2DEC .406349155
053506,000824:
053507,000825: 12,2444 64342 43674 2DEC -.361198675
053508,000826:
053509,000827: 12,2446 06563 04645 2DEC .210153242
053510,000828:
053511,000829: 12,2450 75173 52672 2DEC -.086221951
053512,000830:
053513,000831: 12,2452 00656 14331 2DEC .026268812
053514,000832:
053515,000833: 12,2454 77633 40512 2DEC -.006163316
053516,000834:
053517,000835: 12,2456 00023 11210 2DEC .001177342
053518,000836:
053519,000837: 12,2460 77774 67506 2DEC -.000199055
053520,000838:
053521,000839: 12,2462 06006 TC INTPRET
053522,000840: 12,2463 14033 STODL S(XI)
053523,000841: 12,2464 00031 XI
053524,000842: 12,2465 77776 EXIT
053525,000843: 12,2466 07171 TC POLY
053526,000844: 12,2467 00010 DEC 8 B-14
053527,000845: 12,2470 01000 00000 2DEC .031250001
053528,000846:
053529,000847: 12,2472 72525 52506 2DEC -.166666719
053530,000848:
053531,000849: 12,2474 13301 15337 2DEC .355555413
053532,000850:
053533,000851: 12,2476 62776 54733 2DEC -.406347410
053534,000852:
053535,000853: 12,2500 11176 13267 2DEC .288962094
053536,000854:
053537,000855: 12,2502 73410 51674 2DEC -.140117894
053538,000856:
053539,000857: 12,2504 01446 33641 2DEC .049247387
053540,000858:
053541,000859: 12,2506 77451 65233 2DEC -.013081923
053542,000860:
053543,000861: 12,2510 00055 37266 2DEC .002806389
053544,000862:
053545,000863: 12,2512 77767 52336 2DEC -.000529414
053546,000864:
053547,000865: 12,2514 06006 TC INTPRET
053548,000866: 12,2515 53605 DMP SRR* # PL AT 0
053549,000867: 12,2516 00001 0D
053550,000868: 12,2517 21574 0 -5,1
053551,000869: 12,2520 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
053552,000870: 12,2521 72405 DMP SL1
053553,000871: 12,2522 00043 KEPC1
053554,000872: 12,2523 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
053555,000873: 12,2524 45565 TPMODE # PL AT 0,3
053556,000874: 12,2525 53605 DMP SRR*
053557,000875: 12,2526 00033 S(XI)
053558,000876: 12,2527 21574 0 -5,1
053559,000877: 12,2530 72405 DMP SL1
053560,000878: 12,2531 00045 KEPC2
053561,000879: 12,2532 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
053562,000880: 12,2533 45565 TPMODE
053563,000881: 12,2534 00041 R1
053564,000882: 12,2535 76261 SR TAD # PL AT 3
053565,000883: 12,2536 20607 6
053566,000884: 12,2537 41301 NORM DMP # TO PRESERVE SIGNIF.
053567,000885: 12,2540 00047 X1
053568,000886: 12,2541 00025 X
053569,000887: 12,2542 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
053570,000888: 12,2543 20576 0 -3,1
053571,000889: 12,2544 57232 SL4R DMPR
053572,000890: 12,2545 00023 1/ROOTMU
053573,000891: 12,2546 00037 STORE T
053574,000892: 12,2547 77616 RVQ
053575,000893:
053576,000894: 12,2550 71214 ITERATOR BONCLR DLOAD
053577,000895: 12,2551 00614 SLOPESW
053578,000896: 12,2552 24620 FIRSTIME
053579,000897: 12,2553 00037 DEP
053580,000898: 12,2554 60225 DSU NORM
053581,000899: 12,2555 02764 DEPREV
053582,000900: 12,2556 00047 X1
053583,000901: 12,2557 60325 PDDL NORM
053584,000902: 12,2560 00015 DELINDEP
053585,000903: 12,2561 00050 X2
053586,000904: 12,2562 41260 XSU,1 DMP
053587,000905: 12,2563 00047 X2
053588,000906: 12,2564 02762 DELDEP
053589,000907: 12,2565 56257 SLR* DDV # PL UP 2
053590,000908: 12,2566 21202 1,1
053591,000909: 12,2567 43142 SR1 BOFF
053592,000910: 12,2570 04351 ORDERSW
053593,000911: 12,2571 24574 SGNCHECK
053594,000912: 12,2572 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
053595,000913: 12,2573 02762 DELDEP # DISREGARD IT TO FIND MIN.
053596,000914:
053597,000915: 12,2574 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
053598,000916: 12,2575 24632 POSDEL
053599,000917: 12,2576 43145 DLOAD BON
053600,000918: 12,2577 03775 INDEP
053601,000919: 12,2600 04311 ORDERSW
053602,000920: 12,2601 24603 MINCHECK
053603,000921: 12,2602 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
053604,000922:
053605,000923: 12,2603 45221 MINCHECK BDSU DSU
053606,000924: 12,2604 00011 MIN
053607,000925: 12,2605 51000 BOV BPL
053608,000926: 12,2606 24612 MODNGDEL
053609,000927: 12,2607 24612 MODNGDEL
053610,000928: 12,2610 77650 GOTO
053611,000929: 12,2611 24644 DELOK
053612,000930:
053613,000931: 12,2612 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
053614,000932: 12,2613 00011 MIN
053615,000933: 12,2614 03775 INDEP
053616,000934: 12,2615 52005 DMP GOTO
053617,000935: 12,2616 11624 DP9/10
053618,000936: 12,2617 24646 NEWDEL
053619,000937:
|
|
Reconstruction: The following code, down to the line containing "MAX",
has been rewritten in Comanche 72 to correct anomaly COM-24, "Coding error in
iterator". TWEEKIT is a single-precision value, but Comanche 67 and earlier
loaded it with DLOAD, introducing error.
|
053624,000942: 12,2620 41335 FIRSTIME SLOAD DMP
053625,000943: 12,2621 00051 TWEEKIT
053626,000944: 12,2622 00011 MIN
053627,000945: 12,2623 67206 PUSH SLOAD
053628,000946: 12,2624 00051 TWEEKIT
053629,000947: 12,2625 45205 DMP DSU
053630,000948: 12,2626 00017 MAX
053631,000949: 12,2627 52165 SIGN GOTO
053632,000950: 12,2630 02762 DELDEP
053633,000951: 12,2631 24574 SGNCHECK
053634,000952:
053635,000953: 12,2632 43145 POSDEL DLOAD BON
053636,000954: 12,2633 03775 INDEP
053637,000955: 12,2634 04311 ORDERSW
053638,000956: 12,2635 24637 MAXCHECK
053639,000957: 12,2636 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
053640,000958:
053641,000959: 12,2637 45221 MAXCHECK BDSU DSU
053642,000960: 12,2640 00017 MAX
053643,000961: 12,2641 50000 BOV BMN
053644,000962: 12,2642 24650 MODPSDEL
053645,000963: 12,2643 24650 MODPSDEL
053646,000964: 12,2644 77745 DELOK DLOAD
053647,000965: 12,2645 00001 0D
053648,000966: 12,2646 00015 NEWDEL STORE DELINDEP
053649,000967: 12,2647 77616 RVQ
053650,000968:
053651,000969: 12,2650 45345 MODPSDEL DLOAD DSU
053652,000970: 12,2651 00017 MAX
053653,000971: 12,2652 03775 INDEP
053654,000972: 12,2653 52005 DMP GOTO
053655,000973: 12,2654 11624 DP9/10
053656,000974: 12,2655 24646 NEWDEL
053657,000975:
053658,000976: 12,2656 45033 CHECKCTR CS ONE
053659,000977: 12,2657 50120 INDEX FIXLOC
053660,000978: 12,2660 60026 AD ITERCTR
053661,000979: 12,2661 50120 INDEX FIXLOC
053662,000980: 12,2662 54026 TS ITERCTR
053663,000981: 12,2663 54154 TS MPAC
053664,000982: 12,2664 06030 TC DANZIG
053665,000983:
053666,000984: 12,2665 44545 NEWSTATE DLOAD SR4R
053667,000985: 12,2666 00041 R1
053668,000986: 12,2667 74225 DSU VXSC
053669,000987: 12,2670 00035 XSQC(XI)
053670,000988: 12,2671 02724 UR1
053671,000989: 12,2672 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
053672,000990: 12,2673 00025 X
053673,000991: 12,2674 60316 DSQ NORM
053674,000992: 12,2675 00047 X1
053675,000993: 12,2676 57275 DMPR DMPR
053676,000994: 12,2677 00023 1/ROOTMU
053677,000995: 12,2700 00025 X
053678,000996: 12,2701 53605 DMP SRR*
053679,000997: 12,2702 00033 S(XI)
053680,000998: 12,2703 21572 0 -7,1
053681,000999: 12,2704 77621 BDSU
053682,001000: 12,2705 00037 T
053683,001001: 12,2706 74352 SL1 VXSC
053684,001002: 12,2707 02746 VVEC
053685,001003: 12,2710 53372 VSL1 VAD # PL AT 0
053686,001004: 12,2711 41512 VSL4 PUSH
053687,001005: 12,2712 77646 ABVAL
053688,001006: 12,2713 77701 LAMENTER NORM
053689,001007: 12,2714 00047 X1
053690,001008: 12,2715 16722 STODL R2
053691,001009: 12,2716 00031 XI
053692,001010: 12,2717 45205 DMP DSU
053693,001011: 12,2720 00033 S(XI)
053694,001012: 12,2721 11606 D1/128
053695,001013: 12,2722 76405 DMP SL1R
053696,001014: 12,2723 00021 ROOTMU
053697,001015: 12,2724 53605 DMP SLR*
053698,001016: 12,2725 00025 X
053699,001017: 12,2726 21176 0 -3,1
053700,001018: 12,2727 74271 DDV VXSC
053701,001019: 12,2730 02722 R2
053702,001020: 12,2731 02724 UR1
053703,001021: 12,2732 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
053704,001022: 12,2733 00035 XSQC(XI)
053705,001023: 12,2734 56257 SLR* DDV
053706,001024: 12,2735 21175 0 -4,1
053707,001025: 12,2736 02722 R2
053708,001026: 12,2737 77621 BDSU
053709,001027: 12,2740 11622 D1/256
053710,001028: 12,2741 53361 VXSC VAD
053711,001029: 12,2742 02746 VVEC # PL AT 6
053712,001030: 12,2743 43412 VSL8 RVQ
053713,001031:
053714,001032: 04,2000 SETLOC CONICS1
053715,001033: 04,2000 BANK
053716,001034:
053717,001035: 04,3602 COUNT 04/CONIC
053718,001036: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
053719,001037: 04,3602 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
053720,001038: 04,3603 04000 00000 D1/8 2DEC 1.0 B-3
053721,001039:
053722,001040: 04,3605 00200 00000 D1/128 2DEC 1.0 B-7
053723,001041:
053724,001042: 04,3607 00400 00000 D1/64 2DEC 1.0 B-6
053725,001043:
053726,001044: 04,3611 10000 00000 D1/4 2DEC 1.0 B-2
053727,001045:
053728,001046: 04,3613 02000 00000 D1/16 2DEC 1.0 B-4
053729,001047:
053730,001048: 04,3615 01000 00000 D1/32 2DEC 1.0 B-5
053731,001049:
053732,001050: 04,3617 00020 00000 D1/1024 2DEC 1.0 B-10
053733,001051:
053734,001052: 04,3621 00100 00000 D1/256 2DEC 1.0 B-8
053735,001053:
053736,001054: 04,3623 34631 23146 DP9/10 2DEC .9
053737,001055:
053738,001056: 04,3625 04,3565 KEPZERO EQUALS LO6ZEROS
053739,001057: 04,3625 77467 77777 -50SC 2DEC -50.0 B-12
053740,001058:
053741,001059: 04,3627 03110 17665 2PISC 2DEC 6.28318530 B-6
053742,001060:
053743,001061: 04,3631 04,3614 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
053744,001062: 04,3631 04,3620 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
053745,001063: 04,3631 00000 00001 ONEBIT 2DEC 1.0 B-28
053746,001064:
053747,001065: 04,3633 37767 37737 COGUPLIM 2DEC .999511597
053748,001066:
053749,001067: 04,3635 40010 40040 COGLOLIM 2DEC -.999511597
053750,001068:
053751,001069: 12,2000 SETLOC CONICS
053752,001070: 12,2000 BANK
053753,001071:
053754,001072: 12,2744 COUNT 12/CONIC
053755,001073:
053756,001074: 12,2744 40220 TIMETHET STQ SETPD # PL AT 0
053757,001075: 12,2745 02712 RTNTT
053758,001076: 12,2746 00001 0
053759,001077: 12,2747 77600 BOV
053760,001078: 12,2750 24751 +1
053761,001079: 12,2751 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
053762,001080: 12,2752 02657 RVEC
053763,001081: 12,2753 02746 VVEC
053764,001082: 12,2754 77624 CALL
053765,001083: 12,2755 11637 PARAM
053766,001084: 12,2756 45000 BOV CALL
053767,001085: 12,2757 24776 COGAOVFL # PL AT 0
053768,001086: 12,2760 25001 GETX
053769,001087: 12,2761 43145 COMMNOUT DLOAD BON
053770,001088: 12,2762 00031 XI
053771,001089: 12,2763 04310 INFINFLG
053772,001090: 12,2764 25761 ABTCONIC
053773,001091: 12,2765 45014 CLEAR CALL
053774,001092: 12,2766 04273 COGAFLAG
053775,001093: 12,2767 24433 DELTIME
053776,001094: 12,2770 45014 BON CALL
053777,001095: 12,2771 03706 RVSW
053778,001096: 12,2772 02712 RTNTT
053779,001097: 12,2773 24665 NEWSTATE
053780,001098: 12,2774 77650 GOTO
053781,001099: 12,2775 02712 RTNTT
053782,001100:
053783,001101: 12,2776 77614 COGAOVFL SETGO
053784,001102: 12,2777 04033 COGAFLAG
053785,001103: 12,3000 25761 ABTCONIC
053786,001104: 04,3637 BANK 4
053787,001105: 04,2000 SETLOC CONICS1
053788,001106: 04,2000 BANK
053789,001107: 04,3637 COUNT* $$/CONIC
053790,001108: 04,3637 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
053791,001109: 04,3640 02755 RTNPRM
053792,001110: 04,3641 03665 NORMSW
053793,001111: 04,3642 77614 CLEAR
053794,001112: 04,3643 04273 COGAFLAG
053795,001113: 04,3644 45131 SSP CALL
053796,001114: 04,3645 02675 GEOMSGN
053797,001115: 04,3646 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
053798,001116: 04,3647 11702 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
053799,001117: 04,3650 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
053800,001118: 04,3651 56261 SR DDV
053801,001119: 04,3652 20606 5
053802,001120:
053803,001121: 04,3653 00045 36D
053804,001122: 04,3654 33775 STOVL* COGA
053805,001123: 04,3655 11740 MUTABLE,1
053806,001124: 04,3656 14017 STODL 1/MU
053807,001125: 04,3657 02722 MAGVEC2
053808,001126: 04,3660 60316 DSQ NORM
053809,001127: 04,3661 00047 X1
053810,001128: 04,3662 41275 DMPR DMP
053811,001129: 04,3663 00017 1/MU
053812,001130: 04,3664 00041 R1
053813,001131: 04,3665 77657 SRR*
053814,001132: 04,3666 21576 0 -3,1
053815,001133: 04,3667 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
053816,001134: 04,3670 11616 D1/32
053817,001135: 04,3671 16744 STODL R1A # R1A (+6) PL AT 0
053818,001136:
053819,001137: 04,3672 60205 DMP NORM
053820,001138: 04,3673 00045 36D
053821,001139: 04,3674 00047 X1
053822,001140: 04,3675 53605 DMP SR*
053823,001141: 04,3676 00045 36D
053824,001142: 04,3677 20575 0 -4,1
053825,001143: 04,3700 36742 STCALL P # P (+4)
053826,001144: 04,3701 02755 RTNPRM
053827,001145:
053828,001146: 04,3702 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
053829,001147: 04,3703 16714 STODL U2 # U2 (+1)
053830,001148: 04,3704 00045 36D
053831,001149: 04,3705 26722 STOVL MAGVEC2 # PL AT 0
053832,001150: 04,3706 77656 UNIT
053833,001151: 04,3707 02724 STORE UR1 # UR1 (+1)
053834,001152: 04,3710 72441 DOT SL1
053835,001153: 04,3711 02714 U2
053836,001154: 04,3712 77725 PDDL # OD=CSTH (+1) PL AT 2
053837,001155: 04,3713 00045 36D
053838,001156: 04,3714 24041 STOVL R1 # R1 (+29 OR +27)
053839,001157: 04,3715 02724 UR1
053840,001158: 04,3716 76435 VXV VSL1
053841,001159: 04,3717 02714 U2
053842,001160: 04,3720 75214 BON SIGN
053843,001161: 04,3721 03705 NORMSW
053844,001162: 04,3722 11734 HAVENORM
053845,001163: 04,3723 02675 GEOMSGN
053846,001164: 04,3724 40056 UNIT BOV
053847,001165: 04,3725 11732 COLINEAR
053848,001166: 04,3726 16676 UNITNORM STODL UN # UN (+1)
053849,001167: 04,3727 00045 36D
053850,001168: 04,3730 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
053851,001169: 04,3731 02675 GEOMSGN
053852,001170:
053853,001171: 04,3732 52162 COLINEAR VSR1 GOTO
053854,001172: 04,3733 11726 UNITNORM
053855,001173:
053856,001174: 04,3734 75246 HAVENORM ABVAL SIGN
053857,001175: 04,3735 02675 GEOMSGN
053858,001176: 04,3736 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
053859,001177:
053860,001178: 12,3001 BANK 12
053861,001179: 12,2000 SETLOC CONICS
053862,001180: 12,2000 BANK
053863,001181:
053864,001182: 12,3001 COUNT 12/CONIC
053865,001183:
053866,001184: 12,3001 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
053867,001185: 12,3002 00003 3
053868,001186: 12,3003 00052 S2
053869,001187: 12,3004 00001 1
053870,001188: 12,3005 77614 CLEAR
053871,001189: 12,3006 04276 360SW
053872,001190: 12,3007 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
053873,001191: 12,3010 02734 CSTH
053874,001192: 12,3011 44342 SR1 BDSU
053875,001193: 12,3012 11612 D1/4
053876,001194: 12,3013 54325 PDDL SRR # PL AT 4D
053877,001195: 12,3014 02732 SNTH
053878,001196: 12,3015 21607 6
053879,001197: 12,3016 77671 DDV # PL AT 2
053880,001198: 12,3017 77600 BOV
053881,001199: 12,3020 25134 360CHECK
053882,001200: 12,3021 41225 DSU DMP
053883,001201: 12,3022 03775 COGA # PL AT 0
053884,001202: 12,3023 40132 SL2R BOV
053885,001203: 12,3024 25134 360CHECK
053886,001204: 12,3025 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
053887,001205: 12,3026 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
053888,001206: 12,3027 00155 MPAC
053889,001207: 12,3030 02744 R1A
053890,001208: 12,3031 76202 SR4 TAD # PL AT 2
053891,001209: 12,3032 75440 BMN SQRT
053892,001210: 12,3033 25217 INFINITY
053893,001211: 12,3034 43306 ROUND DAD # PL AT 0D
053894,001212: 12,3035 61000 BOV TIX,2
053895,001213: 12,3036 25132 RESETX2
053896,001214: 12,3037 25025 WLOOP
053897,001215:
053898,001216: 12,3040 40065 BDDV BOV
053899,001217: 12,3041 11606 D1/128
053900,001218: 12,3042 25217 INFINITY
053901,001219: 12,3043 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
053902,001220: 12,3044 25217 INFINITY
053903,001221: 12,3045 77716 DSQ
053904,001222: 12,3046 41301 NORM DMP
053905,001223: 12,3047 00047 X1
053906,001224: 12,3050 02744 R1A
053907,001225: 12,3051 77457 SRR* EXIT
053908,001226: 12,3052 21567 0 -10D,1
053909,001227: 12,3053 07171 TC POLY
053910,001228: 12,3054 00005 DEC 5 B-14
053911,001229: 12,3055 20000 00000 2DEC .5
053912,001230:
053913,001231: 12,3057 72525 52471 2DEC -.166666770
053914,001232:
053915,001233: 12,3061 03146 15003 2DEC .100000392
053916,001234:
053917,001235: 12,3063 75556 45210 2DEC -.071401086
053918,001236:
053919,001237: 12,3065 01615 13553 2DEC .055503292
053920,001238:
053921,001239: 12,3067 76371 63777 2DEC -.047264098
053922,001240:
053923,001241: 12,3071 01232 27367 2DEC .040694204
053924,001242:
053925,001243: 12,3073 06006 TC INTPRET
053926,001244: 12,3074 76405 DMP SL1R # PL AT 0D
053927,001245: 12,3075 43006 PUSH BON
053928,001246: 12,3076 04316 360SW
053929,001247: 12,3077 25204 TRUE360X
053930,001248: 12,3100 60316 XCOMMON DSQ NORM
053931,001249: 12,3101 00047 X1
053932,001250: 12,3102 53605 DMP SRR*
053933,001251: 12,3103 02744 R1A
053934,001252: 12,3104 21565 0 -12D,1
053935,001253: 12,3105 14031 STODL XI # XI (+6)
053936,001254:
053937,001255: 12,3106 00041 R1
053938,001256: 12,3107 75542 SR1 SQRT
053939,001257: 12,3110 41306 ROUND DMP
053940,001258: 12,3111 77632 SL4R # PL AT 0
053941,001259: 12,3112 00025 STORE X # X (+17 OR +16)
053942,001260:
053943,001261: 12,3113 60316 DSQ NORM
053944,001262: 12,3114 00047 X1
053945,001263: 12,3115 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
053946,001264: 12,3116 02742 P
053947,001265: 12,3117 00041 R1
053948,001266: 12,3120 75452 SL3 SQRT
053949,001267: 12,3121 56405 DMP SL3R
053950,001268: 12,3122 03775 COGA
053951,001269: 12,3123 14043 STODL KEPC1
053952,001270: 12,3124 02744 R1A
053953,001271: 12,3125 43021 BDSU CLEAR
053954,001272: 12,3126 11610 D1/64
053955,001273: 12,3127 04270 INFINFLG
053956,001274: 12,3130 00045 STORE KEPC2
053957,001275: 12,3131 77616 RVQ
053958,001276:
053959,001277: 12,3132 77774 RESETX2 AXT,2
053960,001278: 12,3133 00003 3
053961,001279:
053962,001280: 12,3134 51001 360CHECK SETPD BPL
053963,001281: 12,3135 00001 0D
053964,001282: 12,3136 25141 INVRSEQN
053965,001283: 12,3137 77614 SET
053966,001284: 12,3140 04076 360SW
053967,001285:
053968,001286: 12,3141 75545 INVRSEQN DLOAD SQRT
053969,001287: 12,3142 02742 P
053970,001288: 12,3143 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
053971,001289: 12,3144 02732 SNTH
053972,001290: 12,3145 03775 COGA
053973,001291: 12,3146 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
053974,001292: 12,3147 02734 CSTH
053975,001293: 12,3150 43202 SR4 DAD
053976,001294: 12,3151 11616 D1/32
053977,001295: 12,3152 41225 DSU DMP # PL AT 2,0
053978,001296: 12,3153 55301 NORM BDDV
053979,001297: 12,3154 00047 X1
053980,001298: 12,3155 02732 SNTH
053981,001299: 12,3156 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
053982,001300: 12,3157 21174 0 -5,1
053983,001301: 12,3160 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
053984,001302: 12,3161 14043 STODL 34D
053985,001303: 12,3162 11614 D1/16
053986,001304: 12,3163 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
053987,001305: 12,3164 65234 RTB PDDL # PL AT 7
053988,001306: 12,3165 45565 TPMODE
053989,001307: 12,3166 02744 R1A
053990,001308: 12,3167 40405 DMP SR4
053991,001309: 12,3170 00043 34D
053992,001310: 12,3171 77771 TAD
053993,001311: 12,3172 75440 BMN SQRT # PL AT 4
053994,001312: 12,3173 25217 INFINITY
053995,001313: 12,3174 77615 DAD # PL AT 2
053996,001314: 12,3175 60304 TIX,2 NORM
053997,001315: 12,3176 25163 1/WLOOP
053998,001316: 12,3177 00047 X1
053999,001317: 12,3200 77665 BDDV
054000,001318: 12,3201 52057 SLR* GOTO # PL AT 0
054001,001319: 12,3202 21172 0 -7,1
054002,001320: 12,3203 25043 POLYCOEF
054003,001321:
054004,001322: 12,3204 50145 TRUE360X DLOAD BMN
054005,001323: 12,3205 02744 R1A
054006,001324: 12,3206 25217 INFINITY
054007,001325: 12,3207 60366 SQRT NORM
054008,001326: 12,3210 00047 X1
054009,001327: 12,3211 53665 BDDV SL*
054010,001328: 12,3212 11630 2PISC
054011,001329: 12,3213 20176 0 -3,1
054012,001330: 12,3214 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
054013,001331: 12,3215 77650 GOTO
054014,001332: 12,3216 25100 XCOMMON
054015,001333: 12,3217 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
054016,001334: 12,3220 00001 0 # INFINITY IS REQUIRED
054017,001335: 12,3221 25222 OVFLCLR
054018,001336: 12,3222 43414 OVFLCLR SET RVQ
054019,001337: 12,3223 04070 INFINFLG
054020,001338:
054021,001339: 12,3224 40220 LAMBERT STQ SETPD
054022,001340: 12,3225 02712 RTNLAMB
054023,001341: 12,3226 00001 0D
054024,001342: 12,3227 77600 BOV
054025,001343: 12,3230 25231 +1
054026,001344: 12,3231 76731 SSP VLOAD*
054027,001345: 12,3232 00027 ITERCTR
054028,001346: 12,3233 00024 20D
054029,001347: 12,3234 11740 MUTABLE,1
054030,001348: 12,3235 14017 STODL 1/MU
054031,001349: 12,3236 02673 TDESIRED
054032,001350: 12,3237 77675 DMPR
054033,001351: 12,3240 11615 BEE19
054034,001352: 12,3241 03777 STORE EPSILONL
054035,001353: 12,3242 77214 SET VLOAD
054036,001354: 12,3243 00474 SLOPESW
054037,001355: 12,3244 02657 R1VEC
054038,001356: 12,3245 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
054039,001357: 12,3246 02665 R2VEC # MPAC=R2VEC (+29 OR +27)
054040,001358: 12,3247 11702 GEOM
054041,001359: 12,3250 16732 STODL SNTH # 0D=CSTH (+1) PL AT 2
054042,001360: 12,3251 02722 MAGVEC2
054043,001361: 12,3252 65301 NORM PDDL # PL AT 4
054044,001362: 12,3253 00047 X1
054045,001363: 12,3254 00041 R1
054046,001364: 12,3255 56342 SR1 DDV # PL AT 2
054047,001365: 12,3256 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
054048,001366: 12,3257 20173 0 -6,1
054049,001367: 12,3260 77626 STADR
054050,001368: 12,3261 75043 STORE CSTH # CSTH (+1)
054051,001369: 12,3262 44342 SR1 BDSU
054052,001370: 12,3263 11612 D1/4
054053,001371: 12,3264 02736 STORE 1-CSTH # 1-CSTH (+2)
054054,001372:
054055,001373: 12,3265 53106 ROUND BZE
054056,001374: 12,3266 25503 360LAMB
054057,001375: 12,3267 65301 NORM PDDL # PL AT 4
054058,001376: 12,3270 00047 X1
054059,001377: 12,3271 00001 0D
054060,001378: 12,3272 56342 SR1 DDV # PL AT 2
054061,001379: 12,3273 75457 SL* SQRT
054062,001380: 12,3274 20176 0 -3,1
054063,001381: 12,3275 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
054064,001382: 12,3276 02732 SNTH
054065,001383: 12,3277 20607 6
054066,001384: 12,3300 43271 DDV DAD # PL AT 2
054067,001385: 12,3301 02736 1-CSTH
054068,001386: 12,3302 77626 STADR
054069,001387: 12,3303 77760 STORE COGAMAX
054070,001388: 12,3304 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
054071,001389: 12,3305 25312 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
054072,001390: 12,3306 25315 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
054073,001391: 12,3307 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
054074,001392: 12,3310 11634 COGUPLIM
054075,001393: 12,3311 25315 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
054076,001394: 12,3312 77745 UPLIM DLOAD
054077,001395: 12,3313 11634 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
054078,001396: 12,3314 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
054079,001397: 12,3315 77745 MAXCOGA DLOAD
054080,001398: 12,3316 02734 CSTH
054081,001399: 12,3317 45261 SR DSU # PL AT 0
054082,001400: 12,3320 20607 6
054083,001401: 12,3321 77626 STADR
054084,001402: 12,3322 61037 STODL CSTH-RHO
054085,001403: 12,3323 02675 GEOMSGN
054086,001404: 12,3324 71240 BMN DLOAD
054087,001405: 12,3325 25522 LOLIM
054088,001406: 12,3326 02740 CSTH-RHO
054089,001407: 12,3327 56352 SL1 DDV
054090,001408: 12,3330 02732 SNTH
054091,001409: 12,3331 77600 BOV
054092,001410: 12,3332 25522 LOLIM
054093,001411: 12,3333 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
054094,001412: 12,3334 66214 BON SSP
054095,001413: 12,3335 00715 GUESSW
054096,001414: 12,3336 25507 NOGUESS
054097,001415: 12,3337 00051 TWEEKIT
054098,001416: 12,3340 00001 00001
054099,001417: 12,3341 77745 DLOAD
054100,001418: 12,3342 03775 COGA
054101,001419:
054102,001420: 12,3343 77605 LAMBLOOP DMP
054103,001421: 12,3344 02732 SNTH
054104,001422: 12,3345 45342 SR1 DSU
054105,001423: 12,3346 02740 CSTH-RHO
054106,001424: 12,3347 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
054107,001425: 12,3350 00047 X1
054108,001426: 12,3351 02736 1-CSTH
054109,001427: 12,3352 56257 SL* DDV # 1-CSTH (+2) PL AT 0
054110,001428: 12,3353 20170 0 -9D,1
054111,001429: 12,3354 53040 BMN BZE
054112,001430: 12,3355 25441 NEGP
054113,001431: 12,3356 25441 NEGP
054114,001432: 12,3357 16742 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
054115,001433: 12,3360 03775 COGA
054116,001434: 12,3361 43316 DSQ DAD
054117,001435: 12,3362 11620 D1/1024
054118,001436: 12,3363 41301 NORM DMP
054119,001437: 12,3364 00047 X1
054120,001438: 12,3365 02742 P
054121,001439: 12,3366 44257 SR* BDSU
054122,001440: 12,3367 20571 0 -8D,1
054123,001441: 12,3370 11616 D1/32
054124,001442: 12,3371 16744 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
054125,001443:
054126,001444: 12,3372 02742 P
054127,001445: 12,3373 45000 BOV CALL
054128,001446: 12,3374 25444 HIENERGY
054129,001447: 12,3375 25001 GETX
054130,001448: 12,3376 77745 DLOAD
054131,001449: 12,3377 00037 T
054132,001450: 12,3400 16764 STODL TPREV
054133,001451: 12,3401 00031 XI
054134,001452: 12,3402 45014 BON CALL
054135,001453: 12,3403 04310 INFINFLG
054136,001454: 12,3404 25441 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
054137,001455: 12,3405 24433 DELTIME
054138,001456: 12,3406 44200 BOV BDSU
054139,001457: 12,3407 25460 BIGTIME
054140,001458: 12,3410 02673 TDESIRED
054141,001459: 12,3411 02762 STORE TERRLAMB
054142,001460: 12,3412 44246 ABS BDSU
054143,001461: 12,3413 03777 EPSILONL
054144,001462: 12,3414 47044 BPL RTB
054145,001463: 12,3415 25525 INITV
054146,001464: 12,3416 24656 CHECKCTR
054147,001465: 12,3417 43030 BHIZ BON
054148,001466: 12,3420 25470 SUFFCHEK
054149,001467: 12,3421 00714 SLOPESW
054150,001468: 12,3422 25430 GOITER
054151,001469: 12,3423 45345 DLOAD DSU
054152,001470: 12,3424 00037 T
054153,001471: 12,3425 02764 TPREV
054154,001472: 12,3426 77654 BZE
054155,001473: 12,3427 25470 SUFFCHEK
054156,001474: 12,3430 77624 GOITER CALL
054157,001475: 12,3431 24550 ITERATOR
054158,001476: 12,3432 53145 DLOAD BZE
054159,001477: 12,3433 00155 MPAC
054160,001478: 12,3434 25470 SUFFCHEK
054161,001479: 12,3435 77615 DAD
054162,001480: 12,3436 03775 COGA
054163,001481: 12,3437 37775 STCALL COGA
054164,001482: 12,3440 25343 LAMBLOOP
054165,001483:
054166,001484: 12,3441 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
054167,001485: 12,3442 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
054168,001486: 12,3443 25463 LOENERGY
054169,001487:
054170,001488: 12,3444 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
054171,001489: 12,3445 00001 0
054172,001490: 12,3446 03775 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
054173,001491: 12,3447 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
054174,001492: 12,3450 70545 COMMONLM DLOAD SR1
054175,001493: 12,3451 00015 DCOGA
054176,001494: 12,3452 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
054177,001495: 12,3453 44254 BZE BDSU
054178,001496: 12,3454 25470 SUFFCHEK
054179,001497: 12,3455 03775 COGA
054180,001498: 12,3456 37775 STCALL COGA
054181,001499: 12,3457 25343 LAMBLOOP
054182,001500:
054183,001501: 12,3460 77745 BIGTIME DLOAD
054184,001502: 12,3461 02764 TPREV
054185,001503: 12,3462 00037 STORE T
054186,001504:
054187,001505: 12,3463 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
054188,001506: 12,3464 00001 0
054189,001507: 12,3465 03775 COGA # IN OVERFLOW OF TIME.
054190,001508: 12,3466 34017 STCALL COGAMAX # THIS IS THE NEW BOUND.
054191,001509: 12,3467 25450 COMMONLM
054192,001510:
054193,001511: 12,3470 51545 SUFFCHEK DLOAD ABS
054194,001512: 12,3471 02762 TERRLAMB
054195,001513: 12,3472 41325 PDDL DMP
054196,001514: 12,3473 02673 TDESIRED # PL AT 2D
054197,001515: 12,3474 11612 D1/4
054198,001516: 12,3475 45215 DAD DSU # PL AT 0D
054199,001517: 12,3476 11632 ONEBIT
054200,001518: 12,3477 43044 BPL SETGO
054201,001519: 12,3500 25525 INITV
054202,001520: 12,3501 02434 SOLNSW
054203,001521: 12,3502 02712 RTNLAMB
054204,001522:
054205,001523: 12,3503 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
054206,001524: 12,3504 00001 0
054207,001525: 12,3505 02434 SOLNSW
054208,001526: 12,3506 02712 RTNLAMB
054209,001527:
054210,001528: 12,3507 71331 NOGUESS SSP DLOAD
054211,001529: 12,3510 00051 TWEEKIT
054212,001530: 12,3511 10000 20000
054213,001531: 12,3512 00011 COGAMIN
054214,001532: 12,3513 65342 SR1 PDDL # PL AT 2
054215,001533: 12,3514 00017 COGAMAX
054216,001534: 12,3515 43342 SR1 DAD
054217,001535: 12,3516 77626 STADR # PL AT 0
054218,001536: 12,3517 74002 STORE COGA
054219,001537: 12,3520 34015 STCALL DCOGA
054220,001538: 12,3521 25343 LAMBLOOP
054221,001539: 12,3522 52145 LOLIM DLOAD GOTO
054222,001540: 12,3523 11636 COGLOLIM # COGLOLIM=-.999511597
054223,001541: 12,3524 25333 MINCOGA
054224,001542:
054225,001543: 12,3525 60345 INITV DLOAD NORM
054226,001544: 12,3526 00041 R1
054227,001545: 12,3527 00047 X1
054228,001546: 12,3530 70525 PDDL SR1 # PL AT 2
054229,001547: 12,3531 02742 P
054230,001548: 12,3532 77671 DDV # PL AT 0
054231,001549: 12,3533 75457 SL* SQRT
054232,001550: 12,3534 20175 0 -4,1
054233,001551: 12,3535 72405 DMP SL1
054234,001552: 12,3536 00021 ROOTMU
054235,001553: 12,3537 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
054236,001554: 12,3540 03775 COGA
054237,001555: 12,3541 74261 SL VXSC
054238,001556: 12,3542 20206 5
054239,001557: 12,3543 02724 UR1
054240,001558: 12,3544 77725 PDDL # XCH WITH 0D PL AT 0,6
054241,001559: 12,3545 76561 VXSC VSL1
054242,001560: 12,3546 02676 UN
054243,001561: 12,3547 53235 VXV VAD
054244,001562: 12,3550 02724 UR1 # PL AT 0
054245,001563: 12,3551 43172 VSL1 CLEAR
054246,001564: 12,3552 02674 SOLNSW
054247,001565: 12,3553 02746 STORE VVEC
054248,001566: 12,3554 53135 SLOAD BZE
054249,001567: 12,3555 02704 VTARGTAG
054250,001568: 12,3556 25561 TARGETV
054251,001569: 12,3557 77650 GOTO
054252,001570: 12,3560 02712 RTNLAMB
054253,001571:
054254,001572: 12,3561 45145 TARGETV DLOAD CALL
054255,001573: 12,3562 02722 MAGVEC2
054256,001574: 12,3563 24713 LAMENTER
054257,001575: 12,3564 36705 STCALL VTARGET
054258,001576: 12,3565 02712 RTNLAMB
054259,001577:
054260,001578: 12,3566 40220 TIMERAD STQ SETPD # PL AT 0
054261,001579: 12,3567 02712 RTNTR
054262,001580: 12,3570 00001 0
054263,001581: 12,3571 77600 BOV
054264,001582: 12,3572 25573 +1
054265,001583: 12,3573 63375 VLOAD PDVL # PL AT 6
054266,001584: 12,3574 02657 RVEC
054267,001585: 12,3575 02746 VVEC
054268,001586: 12,3576 77624 CALL
054269,001587: 12,3577 11637 PARAM
054270,001588: 12,3600 71200 BOV DLOAD
054271,001589: 12,3601 24776 COGAOVFL # PL AT 0
054272,001590: 12,3602 11616 D1/32
054273,001591: 12,3603 41225 DSU DMP
054274,001592: 12,3604 02744 R1A
054275,001593: 12,3605 02742 P
054276,001594: 12,3606 41366 SQRT DMP
054277,001595: 12,3607 03775 COGA
054278,001596: 12,3610 74212 SL4 VXSC
054279,001597: 12,3611 02714 U2
054280,001598: 12,3612 45325 PDDL DSU # PL AT 6
054281,001599: 12,3613 11610 D1/64
054282,001600: 12,3614 02744 R1A
054283,001601: 12,3615 52361 VXSC VSU # PL AT 0
054284,001602: 12,3616 02724 UR1
054285,001603: 12,3617 53512 VSL4 UNIT
054286,001604: 12,3620 77600 BOV
054287,001605: 12,3621 25677 CIRCULAR
054288,001606: 12,3622 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
054289,001607: 12,3623 02760 RDESIRED # 36D=ECC (+3)
054290,001608: 12,3624 00047 X1
054291,001609: 12,3625 41325 PDDL DMP # PL AT 8
054292,001610: 12,3626 00041 R1
054293,001611: 12,3627 02742 P
054294,001612: 12,3630 56257 SL* DDV # PL AT 6
054295,001613: 12,3631 20201 0,1
054296,001614: 12,3632 56225 DSU DDV
054297,001615: 12,3633 11614 D1/16
054298,001616: 12,3634 00045 36D # 36D=ECC (+3)
054299,001617: 12,3635 00031 STORE COSF
054300,001618: 12,3636 63400 BOV DSQ
054301,001619: 12,3637 25703 BADR2
054302,001620: 12,3640 50021 BDSU BMN
054303,001621: 12,3641 11612 D1/4
054304,001622: 12,3642 25703 BADR2
054305,001623: 12,3643 75366 SQRT SIGN
054306,001624: 12,3644 02757 SGNRDOT
054307,001625: 12,3645 77614 CLEAR
054308,001626: 12,3646 04272 APSESW
054309,001627:
054310,001628: 12,3647 76561 TERMNVEC VXSC VSL1
054311,001629: 12,3650 02676 UN
054312,001630: 12,3651 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
054313,001631: 12,3652 00001 0D
054314,001632: 12,3653 53361 VXSC VAD # PL AT 0
054315,001633: 12,3654 00031 COSF
054316,001634: 12,3655 41572 VSL1 PUSH # 0D=U2 PL AT 6
054317,001635:
054318,001636: 12,3656 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
054319,001637: 12,3657 02724 UR1
054320,001638: 12,3660 23740 DP1/4
054321,001639: 12,3661 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
054322,001640: 12,3662 25663 +1 # CLEAR OVFIND IF SET
054323,001641: 12,3663 26734 STOVL CSTH # CSTH (+1)
054324,001642: 12,3664 02724 UR1
054325,001643: 12,3665 76435 VXV VSL1
054326,001644: 12,3666 72441 DOT SL1
054327,001645: 12,3667 02676 UN
054328,001646: 12,3670 16732 STODL SNTH # SNTH (+1)
054329,001647: 12,3671 02742 P
054330,001648: 12,3672 77624 CALL
054331,001649: 12,3673 25001 GETX
054332,001650: 12,3674 77614 CLRGO
054333,001651: 12,3675 02634 SOLNSW
054334,001652: 12,3676 24761 COMMNOUT
054335,001653:
054336,001654: 12,3677 43001 CIRCULAR SETPD SETGO
054337,001655: 12,3700 00001 0
054338,001656: 12,3701 02434 SOLNSW
054339,001657: 12,3702 25761 ABTCONIC
054340,001658:
054341,001659: 12,3703 75345 BADR2 DLOAD SIGN
054342,001660: 12,3704 11564 LODPHALF
054343,001661: 12,3705 00031 COSF
054344,001662: 12,3706 14031 STODL COSF
054345,001663: 12,3707 11566 KEPZERO
054346,001664: 12,3710 77614 SETGO
054347,001665: 12,3711 04032 APSESW
054348,001666: 12,3712 25647 TERMNVEC
054349,001667:
054350,001668: 12,3713 40220 APSIDES STQ SETPD # PL AT 0
054351,001669: 12,3714 02712 RTNAPSE
054352,001670: 12,3715 00001 0D
054353,001671: 12,3716 77600 BOV
054354,001672: 12,3717 25720 +1
054355,001673: 12,3720 63375 VLOAD PDVL # PL AT 6
054356,001674: 12,3721 02657 RVEC
054357,001675: 12,3722 02746 VVEC
054358,001676: 12,3723 77624 CALL
054359,001677: 12,3724 11637 PARAM
054360,001678: 12,3725 77600 BOV # PL AT 0
054361,001679: 12,3726 25727 GETECC
054362,001680: 12,3727 42405 GETECC DMP SL4
054363,001681: 12,3730 02744 R1A
054364,001682: 12,3731 75421 BDSU SQRT
054365,001683: 12,3732 11610 D1/64
054366,001684: 12,3733 02754 STORE ECC
054367,001685: 12,3734 65215 DAD PDDL # PL AT 2
054368,001686: 12,3735 11604 D1/8
054369,001687: 12,3736 00041 R1
054370,001688: 12,3737 72405 DMP SL1
054371,001689: 12,3740 02742 P
054372,001690: 12,3741 77671 DDV # PL AT 0
054373,001691: 12,3742 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
054374,001692: 12,3743 02744 R1A
054375,001693: 12,3744 00047 X1
054376,001694: 12,3745 53725 PDDL SL* # PL AT 4
054377,001695: 12,3746 00041 R1
054378,001696: 12,3747 20174 0 -5,1
054379,001697: 12,3750 45271 DDV DSU # PL AT 2,0
054380,001698: 12,3751 50000 BOV BMN
054381,001699: 12,3752 25756 INFINAPO
054382,001700: 12,3753 25756 INFINAPO
054383,001701: 12,3754 77650 GOTO
054384,001702: 12,3755 02712 RTNAPSE
054385,001703: 12,3756 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
054386,001704: 12,3757 11577 LDPOSMAX
054387,001705: 12,3760 02712 RTNAPSE # THAT PL IS AT 0.
054388,001706:
054389,001707: 12,3761 77776 ABTCONIC EXIT
054390,001708: 12,3762 05725 TC POODOO
054391,001709: 12,3763 20607 OCT 20607 # NO SOLUTION FROM TIMETHET OR TIMERAD
054392,001710:
054393,001711: 04,2000 SETLOC CONICS1
054394,001712: 04,2000 BANK
054395,001713:
054396,001714: 04,3737 COUNT 04/CONIC
054397,001715:
054398,001716: 04,3737 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
054399,001717:
054400,001718: 04,3741 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
054401,001719:
054402,001720: 04,3743 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
054403,001721:
054404,001722: 04,3745 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
054405,001723:
054406,001724: 04,3747 16471 01352 2DEC 4.902778 E8 B-30 # MUM
054407,001725:
054408,001726: 04,3751 21412 20500 2DEC .203966 E-8 B+28 # 1/MUM
054409,001727:
054410,001728: 04,3753 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
054411,001729:
054412,001730: 04,3755 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
054413,001731:
054414,001732: 04,3757 04,3576 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
054415,001733:
054416,001734: # ERASABLE ASSIGNMENTS
054417,001735:
054418,001736: # KEPLER SUBROUTINE
054419,001737:
054420,001738: # INPUT -
054421,001739: # RRECT ERASE +5
054422,001740: # VRECT ERASE +5
054423,001741: # TAU. ERASE +1
054424,001742: # XKEP ERASE +1
054425,001743: # TC ERASE +1
054426,001744: # XPREV ERASE +1
054427,001745: 04,3757 1/MU EQUALS 14D
054428,001746: 04,3757 ROOTMU EQUALS 16D
054429,001747: 04,3757 1/ROOTMU EQUALS 18D
054430,001748:
054431,001749: # OUTPUT -
054432,001750: # RCV ERASE +5
054433,001751: # VCV ERASE +5
054434,001752: # RC ERASE +1
054435,001753: # XPREV ERASE +1
054436,001754:
054437,001755: # DEBRIS -
054438,001756: 04,3757 ALPHA EQUALS 8D
054439,001757: 04,3757 XMAX EQUALS 10D
054440,001758: 04,3757 XMIN EQUALS 12D
054441,001759: 04,3757 X EQUALS 20D
054442,001760: 04,3757 XI EQUALS 24D
054443,001761: 04,3757 S(XI) EQUALS 26D
054444,001762: 04,3757 XSQC(XI) EQUALS 28D
054445,001763: 04,3757 T EQUALS 30D
054446,001764: 04,3757 R1 EQUALS 32D
054447,001765: 04,3757 KEPC1 EQUALS 34D
054448,001766: 04,3757 KEPC2 EQUALS 36D
054449,001767:
054450,001768: # DELX ERASE +1
054451,001769: # DELT ERASE +1
054452,001770: # URRECT ERASE +5
054453,001771: # RCNORM ERASE +1
054454,001772: # XPREV EQUALS XKEP
054455,001773:
054456,001774:
054457,001775: # LAMBERT SUBROUTINE
054458,001776:
054459,001777: # INPUT -
054460,001778: # R1VEC ERASE +5
054461,001779: # R2VEC ERASE +5
054462,001780: # TDESIRED ERASE +1
054463,001781: # GEOMSGN ERASE +0
054464,001782: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
054465,001783: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
054466,001784: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
054467,001785: # UN ERASE +5 ONLY USED IF NORMSW IS 1
054468,001786: # VTARGTAG ERASE +0
054469,001787: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
054470,001788:
054471,001789: # OUTPUT -
054472,001790: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
054473,001791: # V1VEC EQUALS MPAC
054474,001792:
054475,001793: # DEBRIS -
054476,001794: # RTNLAMB ERASE +0
054477,001795: # U2 ERASE +5
054478,001796: # MAGVEC2 ERASE +1
054479,001797: # UR1 ERASE +5
054480,001798: # R1 EQUALS 31D
054481,001799: # UN ERASE +5
054482,001800: # SNTH ERASE +1
054483,001801: # CSTH ERASE +1
054484,001802: # 1-CSTH ERASE +1
054485,001803: # CSTH-RHO ERASE +1
054486,001804:
054487,001805: 04,3757 COGAMAX EQUALS 14D # CLOBBERS 1/MU
054488,001806: 04,3757 COGAMIN EQUALS 8D
054489,001807: 04,3757 DCOGA EQUALS 12D
054490,001808:
054491,001809: # TWEEKIT EQUALS 40D
054492,001810: # P ERASE +1
054493,001811: # COGA ERASE +1
054494,001812: # R1A ERASE +1
054495,001813: # X EQUALS 20D
054496,001814: # XSQ EQUALS 22D
054497,001815: # XI EQUALS 24D
054498,001816: # S(XI) EQUALS 26D
054499,001817: # XSQC(XI) EQUALS 28D
054500,001818: # T EQUALS 30D
054501,001819: # KEPC1 EQUALS 34D
054502,001820: # KEPC2 EQUALS 36D
054503,001821: # SLOPESW
054504,001822: # SOLNSW
054505,001823:
054506,001824: # OTHERS -
054507,001825: # RVEC EQUALS R1VEC
054508,001826: # VVEC ERASE +5
054509,001827: # COGAFLAG
054510,001828: # RVSW
054511,001829: # INFINFLG
054512,001830: # APSESW
054513,001831: # 360SW
054514,001832: # RTNTT EQUALS RTNLAMB
054515,001833: # ECC ERASE +1
054516,001834: # RTNTR EQUALS RTNLAMB
054517,001835: # RTNAPSE EQUALS RTNLAMB
054518,001836: # R2 EQUALS MAGVEC2
054519,001837:
054520,001838: 04,3757 COSF EQUALS 24D
054521,001839:
054522,001840: # RTNPRM ERASE +0
054523,001841: # SGNRDOT ERASE +0
054524,001842: # RDESIRED ERASE +1
054525,001843:
054526,001844:
054527,001845: # ITERATOR SUBROUTINE
054528,001846:
054529,001847: # ORDERSW
054530,001848: 04,3757 MAX EQUALS 14D # CLOBBERS 1/MU
054531,001849: 04,3757 MIN EQUALS 8D
054532,001850:
054533,001851: # INDEP ERASE +1
054534,001852:
054535,001853: 04,3757 DELINDEP EQUALS 12D
054536,001854: 04,3757 ITERCTR EQUALS 22D
054537,001855: 04,3757 DEP EQUALS 30D
054538,001856:
054539,001857: # DELDEP ERASE +1
054540,001858: # DEPREV ERASE +1
054541,001859:
054542,001860: 04,3757 TWEEKIT EQUALS 40D
054543,001861:
054544,001862:
054545,001863: # MORE KEPLER
054546,001864:
054547,001865: # EPSILONT ERASE +1
054548,001866:
054549,001867: # MORE LAMBERT
054550,001868:
054551,001869: # TERRLAMB EQUALS DELDEP
054552,001870: # TPREV EQUALS DEPREV
054553,001871:
054554,001872: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
054555,001873:
054556,001874:
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc