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