Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
050736,000002: ## Copyright: Public domain.
050737,000003: ## Filename: CONIC_SUBROUTINES.agc
050738,000004: ## Purpose: A section of Skylark revision 048.
050739,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
050740,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
050741,000007: ## this software are available; instead, this file was created via
050742,000008: ## disassembly of dumps of the core rope modules actually flown on
050743,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
050744,000010: ## Museum of Space History.
050745,000011: ## Assembler: yaYUL
050746,000012: ## Contact: Ron Burkey <info@sandroid.org>.
050747,000013: ## Website: www.ibiblio.org/apollo/index.html
050748,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
050749,000015: ## 2024-02-27 MAS Updated for Skylark 48.
050750,000016:
050751,000017:
050752,000018: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
050753,000019: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050754,000020: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050755,000021:
050756,000022:
050757,000023:
050758,000024: # FUNCTIONAL DESCRIPTION -
050759,000025:
050760,000026: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
050761,000027: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
050762,000028: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
050763,000029: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
050764,000030: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
050765,000031: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
050766,000032: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
050767,000033: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
050768,000034: # TINES APPROPRIATELY.
050769,000035:
050770,000036: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
050771,000037: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
050772,000038: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
050773,000039:
050774,000040:
050775,000041: # RESTRICTIONS -
050776,000042:
050777,000043: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
050778,000044: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
050779,000045: # TORIES COULD BE HANDLED.
050780,000046: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
050781,000047: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
050782,000048: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
050783,000049:
050784,000050:
050785,000051: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
050786,000052: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
050787,000053: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
050788,000054: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
050789,000055:
050790,000056:
050791,000057: # MOD NO. - 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
050792,000058:
050793,000059:
050794,000060: # MOD. NO. - 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
050795,000061:
050796,000062:
050797,000063: # FUNCTIONAL DESCRIPTION -
050798,000064: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
050799,000065: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
050800,000066: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
050801,000067: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
050802,000068: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
050803,000069: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
050804,000070: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
050805,000071: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
050806,000072: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
050807,000073: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
050808,000074:
050809,000075:
050810,000076: # THE RESTRICTIONS ARE -
050811,000077: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
050812,000078: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
050813,000079: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050814,000080:
050815,000081:
050816,000082: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
050817,000083: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
050818,000084: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
050819,000085:
050820,000086:
050821,000087:
050822,000088: # REFERENCES -
050823,000089: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
050824,000090: # MEMO 67-4.
050825,000091:
050826,000092:
050827,000093:
050828,000094: # INPUT - ERASABLE INITIALIZATION REQUIRED
050829,000095:
050830,000096: # * SCALE FACTOR *
050831,000097: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050832,000098: # --------*--------------* -----------------------
050833,000099: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050834,000100: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050835,000101: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
050836,000102: # * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
050837,000103: # XKEPNEW * +17 FOR EARTH*DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
050838,000104: # * * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
050839,000105: # * * MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
050840,000106: # * * BY KEPLER TO A POOR BUT VALID GUESS.
050841,000107: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
050842,000108: # XPREV * +17 FOR EARTH*DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
050843,000109: # * * ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
050844,000110:
050845,000111:
050846,000112:
050847,000113: # SUBROUTINES CALLED -
050848,000114: # DELTIME
050849,000115:
050850,000116:
050851,000117:
050852,000118: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050853,000119:
050854,000120: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
050855,000121: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
050856,000122: # KEPRTN ... CONTINUE
050857,000123:
050858,000124: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
050859,000125: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
050860,000126: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
050861,000127:
050862,000128:
050863,000129:
050864,000130: # ABORT EXIT MODES -
050865,000131: # NONE
050866,000132:
050867,000133:
050868,000134: # OUTPUT -
050869,000135:
050870,000136: # * SCALE FACTOR *
050871,000137: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050872,000138: # --------*--------------* -----------------------
050873,000139: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
050874,000140: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
050875,000141: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
050876,000142: # XPREV * +17 FOR EARTH*DP VALUE OF X IN SQRT(METERS) TO WHCIH KEPLER CONVERGED. ALWAYS LESS THAN THE X
050877,000143: # * * CORRESPONDING TO ONE PERIOD.
050878,000144: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050879,000145:
050880,000146:
050881,000147: # DEBRIS -
050882,000148:
050883,000149: # PARAMETERS WHICH MAY BE OF USE -
050884,000150:
050885,000151: # * SCALE FACTOR *
050886,000152: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050887,000153: # --------*--------------* -----------------------
050888,000154: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
050889,000155: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
050890,000156: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
050891,000157: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
050892,000158: # * *TAU. OF LESS THAN ONE PERIOD.
050893,000159:
050894,000160: # PARAMETERS OF NO USE -
050895,000161: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
050896,000162:
050897,000163:
050898,000164: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
050899,000165: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050900,000166: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050901,000167:
050902,000168:
050903,000169:
050904,000170: # FUNCTIONAL DESCRIPTION -
050905,000171:
050906,000172: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
050907,000173: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
050908,000174: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
050909,000175: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
050910,000176: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
050911,000177: # UTILIZED IN THE COMPUTATION.
050912,000178:
050913,000179:
050914,000180: # THE RESTRICTIONS ARE -
050915,000181: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
050916,000182: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
050917,000183: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050918,000184: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
050919,000185: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
050920,000186: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
050921,000187: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050922,000188: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
050923,000189: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
050924,000190: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
050925,000191:
050926,000192:
050927,000193:
050928,000194: # REFERENCES -
050929,000195: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
050930,000196: # SGA MEMO 67-4.
050931,000197:
050932,000198:
050933,000199:
050934,000200: # INPUT - ERASABLE INITIALIZATION REQUIRED
050935,000201:
050936,000202: # * SCALE FACTOR *
050937,000203: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050938,000204: # --------*--------------* -----------------------
050939,000205: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050940,000206: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
050941,000207: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
050942,000208: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050943,000209: # * *RESPECTIVELY, IS THE CENTRAL BODY
050944,000210: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
050945,000211: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
050946,000212: # * *COGA IS TO BE USED BY LAMBERT
050947,000213: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
050948,000214: # *IGNORED IF GUESSW IS SET.
050949,000215: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
050950,000216: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
050951,000217: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
050952,000218: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
050953,000219: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
050954,000220: # * *AT R1VEC.
050955,000221:
050956,000222:
050957,000223:
050958,000224: # SUBROUTINES CALLED -
050959,000225: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
050960,000226:
050961,000227:
050962,000228:
050963,000229: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050964,000230:
050965,000231: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
050966,000232: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
050967,000233: # IN MPAC IF VTARGTAG WAS ZERO
050968,000234: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
050969,000235: # L+3 SOLNSW
050970,000236: # L+4 LAMABORT
050971,000237:
050972,000238: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
050973,000239: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
050974,000240:
050975,000241:
050976,000242:
050977,000243: # ABORT EXIT MODES -
050978,000244: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
050979,000245: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
050980,000246: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
050981,000247: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
050982,000248: # 1-CSTH 360 DEGREES.
050983,000249: # DSU BMN
050984,000250: # ONEBIT
050985,000251: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
050986,000252: # DLOAD DAD
050987,000253: # TDESIRED
050988,000254: # SOMETIME
050989,000255: # STCALL TDESIRED INCREASE TDESIRED
050990,000256: # LAMBERT
050991,000257:
050992,000258:
050993,000259:
050994,000260: # OUTPUT -
050995,000261: # * SCALE FACTOR *
050996,000262: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050997,000263: # --------*--------------* -----------------------
050998,000264: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
050999,000265: # * *PROBLEM.
051000,000266: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
051001,000267: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
051002,000268: # * *SOLUTION EXISTS.
051003,000269: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
051004,000270:
051005,000271:
051006,000272:
051007,000273: # DEBRIS -
051008,000274: # PARAMETERS WHICH MAY BE OF USE -
051009,000275:
051010,000276: # * SCALE FACTOR *
051011,000277: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051012,000278: # --------*--------------* -----------------------
051013,000279: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
051014,000280: # CSTH * +1 *DP COSINE OF ANGLE
051015,000281: # 1-CSTH * +2 *DP 1-CSTH
051016,000282: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
051017,000283: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
051018,000284: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
051019,000285: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
051020,000286: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
051021,000287: # U2 * +1 *DP UNIT VECTOR OF R2VEC
051022,000288:
051023,000289: # PARAMETERS OF NO USE
051024,000290: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
051025,000291: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
051026,000292:
051027,000293:
051028,000294:
051029,000295: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
051030,000296: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
051031,000297: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
051032,000298:
051033,000299:
051034,000300:
051035,000301: # FUNCTIONAL DESCRIPTION -
051036,000302:
051037,000303: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
051038,000304: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
051039,000305: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
051040,000306: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
051041,000307: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
051042,000308: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
051043,000309:
051044,000310:
051045,000311: # THE RESTRICTIONS ARE -
051046,000312: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
051047,000313: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
051048,000314: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
051049,000315: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
051050,000316:
051051,000317: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
051052,000318:
051053,000319:
051054,000320: # REFERENCES -
051055,000321: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
051056,000322:
051057,000323:
051058,000324: # INPUT - ERASABLE INITIALIZATION REQUIRED
051059,000325:
051060,000326: # * SCALE FACTOR *
051061,000327: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051062,000328: # --------*--------------* -----------------------
051063,000329: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
051064,000330: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
051065,000331: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
051066,000332: # CSTH * +1 *DP COSINE OF THE ANGLE
051067,000333: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
051068,000334: # * *IS TO BE COMPUTED ALSO.
051069,000335: # X1 (38D)*NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
051070,000336: # * *RESPECTIVELY, IS THE CENTRAL BODY.
051071,000337:
051072,000338:
051073,000339:
051074,000340: # SUBROUTINES CALLED -
051075,000341: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
051076,000342:
051077,000343:
051078,000344:
051079,000345: # CALLING SEQUENCE AND NORMAL EXIT MODES -
051080,000346:
051081,000347: # IF ONLY TIME IS DESIRED AS OUTPUT -
051082,000348: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
051083,000349: # L+1 RVSW
051084,000350: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
051085,000351: # L+3 ... CONTINUE
051086,000352:
051087,000353:
051088,000354: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
051089,000355: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
051090,000356: # L+1 RVSW
051091,000357: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
051092,000358: # THE INITIAL VELOCITY VECTOR IN MPAC.
051093,000359: # L+3 STOVL NEWVVEC
051094,000360: # L+4 STADR
051095,000361: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
051096,000362: # L+6 ... CONTINUE
051097,000363:
051098,000364:
051099,000365:
051100,000366: # ABORT EXIT MODES -
051101,000367: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH
051102,000368: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
051103,000369:
051104,000370:
051105,000371:
051106,000372: # OUTPUT -
051107,000373: # * SCALE FACTOR *
051108,000374: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051109,000375: # --------*--------------* -----------------------
051110,000376: # T(30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
051111,000377: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
051112,000378: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
051113,000379: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
051114,000380: # * *CLEAR IF NOT.
051115,000381:
051116,000382: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
051117,000383:
051118,000384: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
051119,000385: # MPAC +5* *
051120,000386: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
051121,000387:
051122,000388: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
051123,000389:
051124,000390:
051125,000391: # DEBRIS -
051126,000392:
051127,000393: # PARAMETERS WHICH MAY BE OF USE -
051128,000394:
051129,000395: # * SCALE FACTOR *
051130,000396: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051131,000397: # --------*--------------* -----------------------
051132,000398: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
051133,000399: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
051134,000400: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
051135,000401: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
051136,000402: # UR1 * +1 *DP UNIT VECTOR OF RVEC
051137,000403: # U2 * +1 *DP UNIT VECTOR OF VVEC
051138,000404: # UN * +1 *DP UNIT VECTOR OF UR1*U2
051139,000405:
051140,000406: # PARAMETERS OF NO USE -
051141,000407: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
051142,000408: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
051143,000409:
051144,000410:
051145,000411:
051146,000412: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
051147,000413: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
051148,000414: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
051149,000415:
051150,000416:
051151,000417:
051152,000418: # FUNCTIONAL DESCRIPTION -
051153,000419:
051154,000420: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
051155,000421: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
051156,000422: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
051157,000423: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
051158,000424: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
051159,000425: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
051160,000426: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
051161,000427: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
051162,000428:
051163,000429:
051164,000430: # THE RESTRICTIONS ARE -
051165,000431: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
051166,000432: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
051167,000433: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
051168,000434: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
051169,000435: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
051170,000436: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
051171,000437: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
051172,000438:
051173,000439:
051174,000440: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
051175,000441:
051176,000442:
051177,000443:
051178,000444: # REFERENCES -
051179,000445: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
051180,000446:
051181,000447:
051182,000448:
051183,000449: # INPUT - ERASABLE INITIALIZATION REQUIRED
051184,000450:
051185,000451: # * SCALE FACTOR *
051186,000452: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051187,000453: # --------*--------------* -----------------------
051188,000454: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
051189,000455: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
051190,000456: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
051191,000457: # * *COMPUTED.
051192,000458: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
051193,000459: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
051194,000460: # * *SINGLE-VALUED PROBLEM.
051195,000461: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
051196,000462: # * *RESPECTIVELY, IS THE CENTRAL BODY.
051197,000463: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
051198,000464: # * *IS TO BE COMPUTED ALSO.
051199,000465:
051200,000466:
051201,000467:
051202,000468: # SUBROUTINES CALLED -
051203,000469: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
051204,000470:
051205,000471:
051206,000472:
051207,000473: # CALLING SEQUENCE AND NORMAL EXIT MODES -
051208,000474:
051209,000475: # IF ONLY TIME IS DESIRED AS OUTPUT -
051210,000476: # L SET CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
051211,000477: # L+1 RVSW
051212,000478: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
051213,000479: # L+3 ... CONTINUE
051214,000480:
051215,000481: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
051216,000482: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
051217,000483: # L+1 RVSW
051218,000484: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
051219,000485: # THE INITIAL VELOCITY VECTOR IN MPAC.
051220,000486: # L+3 STOVL NEWVVEC
051221,000487: # L+4 STADR
051222,000488: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
051223,000489: # L+6 ... CONTINUE
051224,000490:
051225,000491:
051226,000492:
051227,000493: # ABORT EXIT MODES -
051228,000494: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
051229,000495: # TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
051230,000496:
051231,000497:
051232,000498:
051233,000499: # OUTPUT -
051234,000500: # * SCALE FACTOR *
051235,000501: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051236,000502: # --------*--------------* -----------------------
051237,000503: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
051238,000504: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
051239,000505: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
051240,000506: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
051241,000507: # * *CLEAR IF NOT.
051242,000508: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
051243,000509: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
051244,000510: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
051245,000511: # * *APOCENTER.
051246,000512: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
051247,000513: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
051248,000514: # *MINUS-18, THE SWITCH IS CLEAR.
051249,000515:
051250,000516:
051251,000517: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -
051252,000518:
051253,000519: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
051254,000520: # MPAC +5* *
051255,000521: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
051256,000522:
051257,000523: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
051258,000524:
051259,000525:
051260,000526:
051261,000527: # DEBRIS -
051262,000528:
051263,000529: # PARAMETERS WHICH MAY BE OF USE -
051264,000530:
051265,000531: # * SCALE FACTOR *
051266,000532: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051267,000533: # --------*--------------* -----------------------
051268,000534: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
051269,000535: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
051270,000536: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
051271,000537: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
051272,000538: # UR1 * +1 *DP UNIT VECTOR OF RVEC
051273,000539: # U2 * +1 *DP UNIT VECTOR OF VVEC
051274,000540: # UN * +1 *DP UNIT VECTOR OF UR1*U2
051275,000541: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
051276,000542: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
051277,000543:
051278,000544:
051279,000545: # PARAMETERS OF NO USE -
051280,000546: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
051281,000547: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
051282,000548:
051283,000549:
051284,000550:
051285,000551: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
051286,000552: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
051287,000553: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
051288,000554:
051289,000555:
051290,000556:
051291,000557: # FUNCTIONAL DESCRIPTION -
051292,000558:
051293,000559: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
051294,000560: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
051295,000561: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
051296,000562: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
051297,000563: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
051298,000564:
051299,000565:
051300,000566: # THE RESTRICTIONS ARE -
051301,000567: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
051302,000568: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
051303,000569: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
051304,000570: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
051305,000571:
051306,000572: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
051307,000573:
051308,000574:
051309,000575:
051310,000576: # REFERENCES -
051311,000577: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
051312,000578:
051313,000579:
051314,000580:
051315,000581: # INPUT - ERASABLE INITIALIZATION REQUIRED
051316,000582:
051317,000583: # * SCALE FACTOR *
051318,000584: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051319,000585: # --------*--------------* -----------------------
051320,000586: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
051321,000587: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
051322,000588: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
051323,000589: # * *RESPECTIVELY, IS THE CENTRAL BODY.
051324,000590:
051325,000591:
051326,000592:
051327,000593: # SUBROUTINES CALLED -
051328,000594: # PARAM, GEOM
051329,000595:
051330,000596:
051331,000597:
051332,000598: # CALLING SEQUENCE AND NORMAL EXIT MODES -
051333,000599:
051334,000600: # IF ONLY TIME IS DESIRED AS OUTPUT -
051335,000601: # L CALL MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
051336,000602: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
051337,000603: # L+2 STODL APOAPSE
051338,000604: # L+3 0D
051339,000605: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
051340,000606: # L+5 ... CONTINUE
051341,000607:
051342,000608: # OUTPUT -
051343,000609: # * SCALE FACTOR *
051344,000610: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051345,000611: # --------*--------------* -----------------------
051346,000612: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
051347,000613: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
051348,000614: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
051349,000615:
051350,000616: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
051351,000617:
051352,000618:
051353,000619:
051354,000620: # DEBRIS -
051355,000621:
051356,000622: # PARAMETERS WHICH MAY BE OF USE -
051357,000623:
051358,000624: # * SCALE FACTOR *
051359,000625: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
051360,000626: # --------*--------------* -----------------------
051361,000627: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
051362,000628: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
051363,000629: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
051364,000630: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
051365,000631: # UR1 * +1 *DP UNIT VECTOR OF RVEC
051366,000632: # U2 * +1 *DP UNIT VECTOR OF VVEC
051367,000633: # UN * +1 *DP UNIT VECTOR OF UR1*U2
051368,000634: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
051369,000635:
051370,000636:
051371,000637: # PARAMETERS OF NO USE -
051372,000638: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5,10D-11D, 14D-21D, 31D-38D.
051373,000639: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
051374,000640:
051375,000641:
051376,000642:
051377,000643: 12,2000 SETLOC CONICS
051378,000644: 12,2000 BANK
051379,000645:
051380,000646: 12,2101 COUNT* $$/CONIC
051381,000647: 12,2101 E5,1715 EBANK= UR1
051382,000648:
051383,000649: 12,2101 77624 KEPLERN CALL
051384,000650: 12,2102 24601 COMSETUP
051385,000651: 12,2103 53575 VLOAD UNIT
051386,000652: 12,2104 01503 RRECT
051387,000653: 12,2105 16641 STODL URRECT
051388,000654: 12,2106 00045 36D
051389,000655: 12,2107 24041 STOVL R1
051390,000656: 12,2110 01503 RRECT
051391,000657: 12,2111 76441 DOT SL1R
051392,000658: 12,2112 01511 VRECT
051393,000659: 12,2113 76405 DMP SL1R
051394,000660: 12,2114 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
051395,000661: 12,2115 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
051396,000662:
051397,000663: 12,2116 01511 VRECT
051398,000664: 12,2117 57236 VSQ DMPR
051399,000665: 12,2120 00017 1/MU # 1/MU (-34 OR -28)
051400,000666: 12,2121 52405 DMP SL3
051401,000667: 12,2122 00041 R1
051402,000668: 12,2123 61425 DSU ROUND
051403,000669: 12,2124 33410 D1/64
051404,000670: 12,2125 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
051405,000671:
051406,000672: 12,2126 74421 BDSU SR1R
051407,000673: 12,2127 33410 D1/64
051408,000674: 12,2130 77671 DDV
051409,000675: 12,2131 00041 R1
051410,000676: 12,2132 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
051411,000677:
051412,000678: 12,2133 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
051413,000679: 12,2134 24143 1REV
051414,000680: 12,2135 33426 -50SC # -50SC (+12)
051415,000681: 12,2136 40071 DDV BOV
051416,000682: 12,2137 00011 ALPHA
051417,000683: 12,2140 24147 STOREMAX
051418,000684: 12,2141 52166 SQRT GOTO
051419,000685: 12,2142 24147 STOREMAX
051420,000686:
051421,000687: 12,2143 55366 1REV SQRT BDDV
051422,000688: 12,2144 33430 2PISC # 2PISC (+6)
051423,000689: 12,2145 77600 BOV
051424,000690: 12,2146 24147 STOREMAX
051425,000691: 12,2147 00013 STOREMAX STORE XMAX
051426,000692: 12,2150 65205 DMP PDDL
051427,000693: 12,2151 00023 1/ROOTMU
051428,000694: 12,2152 00011 ALPHA
051429,000695: 12,2153 65301 NORM PDDL
051430,000696: 12,2154 00047 X1
051431,000697: 12,2155 56257 SL* DDV
051432,000698: 12,2156 20173 0 -6,1
051433,000699: 12,2157 50000 BOV BMN
051434,000700: 12,2160 24174 MODDONE
051435,000701: 12,2161 24174 MODDONE # MPAC=PERIOD
051436,000702: 12,2162 51525 PERIODCH PDDL ABS # 0D=PERIOD
051437,000703: 12,2163 02171 TAU.
051438,000704: 12,2164 50025 DSU BMN
051439,000705: 12,2165 00001 0D
051440,000706: 12,2166 24174 MODDONE
051441,000707: 12,2167 77765 SIGN
051442,000708: 12,2170 02171 TAU.
051443,000709: 12,2171 16171 STODL TAU.
051444,000710: 12,2172 77650 GOTO
051445,000711: 12,2173 24162 PERIODCH
051446,000712: 12,2174 71201 MODDONE SETPD DLOAD
051447,000713: 12,2175 00001 0
051448,000714: 12,2176 02165 XKEPNEW
051449,000715: 12,2177 00025 STORE X
051450,000716: 12,2200 53165 SIGN BZE
051451,000717: 12,2201 02171 TAU.
051452,000718: 12,2202 24351 BADX
051453,000719: 12,2203 51440 BMN ABS
051454,000720: 12,2204 24351 BADX
051455,000721: 12,2205 51025 DSU BPL
051456,000722: 12,2206 00013 XMAX
051457,000723: 12,2207 24351 BADX
051458,000724: 12,2210 51145 STORBNDS DLOAD BPL
051459,000725: 12,2211 02171 TAU.
051460,000726: 12,2212 24221 STOREMIN
051461,000727: 12,2213 57545 DLOAD DCOMP
051462,000728: 12,2214 00013 XMAX
051463,000729: 12,2215 14015 STODL XMIN
051464,000730: 12,2216 15726 KEPZERO
051465,000731: 12,2217 34013 STCALL XMAX
051466,000732: 12,2220 24224 DXCOMP
051467,000733: 12,2221 77745 STOREMIN DLOAD
051468,000734: 12,2222 15726 KEPZERO
051469,000735: 12,2223 00015 STORE XMIN
051470,000736: 12,2224 57345 DXCOMP DLOAD DMPR
051471,000737: 12,2225 02171 TAU.
051472,000738: 12,2226 33421 BEE22
051473,000739: 12,2227 77646 ABS
051474,000740: 12,2230 15013 STODL EPSILONT
051475,000741: 12,2231 01553 XPREV
051476,000742: 12,2232 77621 XDIFF BDSU
051477,000743: 12,2233 00025 X
051478,000744: 12,2234 02635 STORE DELX
051479,000745:
051480,000746:
051481,000747: 12,2235 63545 KEPLOOP DLOAD DSQ
051482,000748: 12,2236 00025 X # X=XKEP
051483,000749: 12,2237 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
051484,000750: 12,2240 00047 X1
051485,000751: 12,2241 53605 DMP SRR*
051486,000752: 12,2242 00011 ALPHA
051487,000753: 12,2243 21573 0 -6,1
051488,000754: 12,2244 34031 STCALL XI # XI=ALPHA XSQ (+6)
051489,000755: 12,2245 24464 DELTIME
051490,000756: 12,2246 44200 BOV BDSU
051491,000757: 12,2247 24357 TIMEOVFL # UNLIKELY
051492,000758: 12,2250 02171 TAU.
051493,000759: 12,2251 02637 STORE DELT # DELT=DELINDEP
051494,000760: 12,2252 44246 ABS BDSU
051495,000761: 12,2253 01013 EPSILONT
051496,000762: 12,2254 71244 BPL DLOAD
051497,000763: 12,2255 24377 KEPCONVG
051498,000764: 12,2256 00037 T
051499,000765: 12,2257 60225 DSU NORM
051500,000766: 12,2260 01551 TC
051501,000767: 12,2261 00047 X1
051502,000768: 12,2262 60325 PDDL NORM
051503,000769: 12,2263 02635 DELX
051504,000770: 12,2264 00050 X2
051505,000771: 12,2265 41260 XSU,1 DMP
051506,000772: 12,2266 00047 X2
051507,000773: 12,2267 02637 DELT
051508,000774: 12,2270 56257 SLR* DDV
051509,000775: 12,2271 21202 1,1
051510,000776: 12,2272 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
051511,000777: 12,2273 71244 BPL DLOAD
051512,000778: 12,2274 24315 POSDELX
051513,000779: 12,2275 00025 X
051514,000780: 12,2276 00013 STORE XMAX # MOVE MAX BOUND IN
051515,000781: 12,2277 45221 BDSU DSU # PL AT 0
051516,000782: 12,2300 00015 XMIN
051517,000783: 12,2301 51000 BOV BPL
051518,000784: 12,2302 24307 NDXCHNGE
051519,000785: 12,2303 24307 NDXCHNGE
051520,000786: 12,2304 52145 DLOAD GOTO
051521,000787: 12,2305 00001 0D
051522,000788: 12,2306 24327 NEWDELX
051523,000789:
051524,000790:
051525,000791: 12,2307 45345 NDXCHNGE DLOAD DSU
051526,000792: 12,2310 00015 XMIN
051527,000793: 12,2311 00025 X
051528,000794: 12,2312 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
051529,000795: 12,2313 33424 DP9/10
051530,000796: 12,2314 24327 NEWDELX
051531,000797:
051532,000798:
051533,000799: 12,2315 77745 POSDELX DLOAD
051534,000800: 12,2316 00025 X
051535,000801: 12,2317 00015 STORE XMIN # MOVE MIN BOUND IN
051536,000802: 12,2320 45221 BDSU DSU # PL AT 0
051537,000803: 12,2321 00013 XMAX
051538,000804: 12,2322 50000 BOV BMN
051539,000805: 12,2323 24343 PDXCHNGE
051540,000806: 12,2324 24343 PDXCHNGE
051541,000807: 12,2325 77745 DLOAD
051542,000808: 12,2326 00001 0D
051543,000809: 12,2327 02635 NEWDELX STORE DELX
051544,000810: 12,2330 43254 BZE DAD
051545,000811: 12,2331 24377 KEPCONVG
051546,000812: 12,2332 00025 X
051547,000813: 12,2333 14025 STODL X
051548,000814: 12,2334 00037 T
051549,000815: 12,2335 01551 STORE TC
051550,000816: 12,2336 46034 BRNCHCTR RTB BHIZ
051551,000817: 12,2337 24720 CHECKCTR
051552,000818: 12,2340 24377 KEPCONVG
051553,000819: 12,2341 77650 GOTO
051554,000820: 12,2342 24235 KEPLOOP # ITERATE
051555,000821:
051556,000822:
051557,000823: 12,2343 45345 PDXCHNGE DLOAD DSU
051558,000824: 12,2344 00013 XMAX
051559,000825: 12,2345 00025 X
051560,000826: 12,2346 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
051561,000827: 12,2347 33424 DP9/10
051562,000828: 12,2350 24327 NEWDELX
051563,000829:
051564,000830:
051565,000831: 12,2351 70545 BADX DLOAD SR1
051566,000832: 12,2352 00013 XMAX
051567,000833: 12,2353 77765 SIGN
051568,000834: 12,2354 02171 TAU.
051569,000835: 12,2355 34025 STCALL X
051570,000836: 12,2356 24210 STORBNDS
051571,000837: 12,2357 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
051572,000838: 12,2360 00025 X
051573,000839: 12,2361 24375 NEGTOVFL
051574,000840: 12,2362 00013 STORE XMAX
051575,000841: 12,2363 70545 CMNTOVFL DLOAD SR1
051576,000842: 12,2364 02635 DELX
051577,000843: 12,2365 02635 STORE DELX
051578,000844: 12,2366 44254 BZE BDSU
051579,000845: 12,2367 02163 KEPRTN
051580,000846: 12,2370 00025 X
051581,000847: 12,2371 14025 STODL X
051582,000848: 12,2372 01551 TC
051583,000849: 12,2373 34037 STCALL T
051584,000850: 12,2374 24336 BRNCHCTR
051585,000851: 12,2375 34015 NEGTOVFL STCALL XMIN
051586,000852: 12,2376 24363 CMNTOVFL
051587,000853: 12,2377 44545 KEPCONVG DLOAD SR4R
051588,000854: 12,2400 00041 R1
051589,000855: 12,2401 74225 DSU VXSC
051590,000856: 12,2402 00035 XSQC(XI)
051591,000857: 12,2403 02641 URRECT
051592,000858: 12,2404 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
051593,000859: 12,2405 00025 X
051594,000860: 12,2406 60316 DSQ NORM
051595,000861: 12,2407 00047 X1
051596,000862: 12,2410 57275 DMPR DMPR
051597,000863: 12,2411 00023 1/ROOTMU
051598,000864: 12,2412 00025 X
051599,000865: 12,2413 53605 DMP SRR*
051600,000866: 12,2414 00033 S(XI)
051601,000867: 12,2415 21572 0 -7,1
051602,000868: 12,2416 77621 BDSU
051603,000869: 12,2417 00037 T
051604,000870: 12,2420 74352 SL1 VXSC
051605,000871: 12,2421 01511 VRECT
051606,000872: 12,2422 53372 VSL1 VAD # PL AT 0
051607,000873: 12,2423 77712 VSL4
051608,000874: 12,2424 01535 STORE RCV # RCV (+29 OR +27)
051609,000875:
051610,000876:
051611,000877: 12,2425 60246 ABVAL NORM
051612,000878: 12,2426 00050 X2
051613,000879: 12,2427 16647 STODL RCNORM
051614,000880: 12,2430 00031 XI
051615,000881: 12,2431 45275 DMPR DSU
051616,000882: 12,2432 00033 S(XI)
051617,000883: 12,2433 33406 D1/128
051618,000884: 12,2434 76405 DMP SL1R
051619,000885: 12,2435 00021 ROOTMU
051620,000886: 12,2436 53605 DMP SLR*
051621,000887: 12,2437 00025 X
051622,000888: 12,2440 56601 0 -3,2
051623,000889: 12,2441 74271 DDV VXSC
051624,000890: 12,2442 02647 RCNORM
051625,000891: 12,2443 02641 URRECT
051626,000892: 12,2444 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
051627,000893: 12,2445 00035 XSQC(XI) # OR +13) PL AT 6
051628,000894: 12,2446 56257 SLR* DDV
051629,000895: 12,2447 56602 0 -4,2
051630,000896: 12,2450 02647 RCNORM
051631,000897: 12,2451 74221 BDSU VXSC
051632,000898: 12,2452 33422 D1/256
051633,000899: 12,2453 01511 VRECT
051634,000900: 12,2454 42455 VAD VSL8 # PL AT 0
051635,000901: 12,2455 77626 STADR
051636,000902: 12,2456 62234 STODL VCV # VCV (+7 OR +5)
051637,000903: 12,2457 00037 T
051638,000904: 12,2460 15551 STODL TC
051639,000905: 12,2461 00025 X
051640,000906: 12,2462 35553 STCALL XPREV
051641,000907: 12,2463 02163 KEPRTN
051642,000908:
051643,000909: 12,2464 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
051644,000910: 12,2465 07171 TC POLY
051645,000911: 12,2466 00010 DEC 8 B-14
051646,000912: 12,2467 02525 12526 2DEC .083333334
051647,000913: 12,2471 67356 75666 2DEC -.266666684
051648,000914: 12,2473 15001 23771 2DEC .406349155
051649,000915: 12,2475 64342 43674 2DEC -.361198675
051650,000916: 12,2477 06563 04645 2DEC .210153242
051651,000917: 12,2501 75173 52672 2DEC -.086221951
051652,000918: 12,2503 00656 14331 2DEC .026268812
051653,000919: 12,2505 77633 40512 2DEC -.006163316
051654,000920: 12,2507 00023 11210 2DEC .001177342
051655,000921: 12,2511 77774 67506 2DEC -.000199055
051656,000922: 12,2513 06006 TC INTPRET
051657,000923: 12,2514 14033 STODL S(XI)
051658,000924: 12,2515 00031 XI
051659,000925: 12,2516 77776 EXIT
051660,000926: 12,2517 07171 TC POLY
051661,000927: 12,2520 00010 DEC 8 B-14
051662,000928: 12,2521 01000 00000 2DEC .031250001
051663,000929: 12,2523 72525 52506 2DEC -.166666719
051664,000930: 12,2525 13301 15337 2DEC .355555413
051665,000931: 12,2527 62776 54733 2DEC -.406347410
051666,000932: 12,2531 11176 13267 2DEC .288962094
051667,000933: 12,2533 73410 51674 2DEC -.140117894
051668,000934: 12,2535 01446 33641 2DEC .049247387
051669,000935: 12,2537 77451 65233 2DEC -.013081923
051670,000936: 12,2541 00055 37266 2DEC .002806389
051671,000937: 12,2543 77767 52336 2DEC -.000529414
051672,000938: 12,2545 06006 TC INTPRET
051673,000939: 12,2546 53605 DMP SRR* # PL AT 0
051674,000940: 12,2547 00001 0D
051675,000941: 12,2550 21574 0 -5,1
051676,000942: 12,2551 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
051677,000943: 12,2552 72405 DMP SL1
051678,000944: 12,2553 00043 KEPC1
051679,000945: 12,2554 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
051680,000946: 12,2555 45640 TPMODE # PL AT 0,3
051681,000947: 12,2556 53605 DMP SRR*
051682,000948: 12,2557 00033 S(XI)
051683,000949: 12,2560 21574 0 -5,1
051684,000950: 12,2561 72405 DMP SL1
051685,000951: 12,2562 00045 KEPC2
051686,000952: 12,2563 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
051687,000953: 12,2564 45640 TPMODE
051688,000954: 12,2565 00041 R1
051689,000955: 12,2566 76261 SR TAD # PL AT 3
051690,000956: 12,2567 20607 6
051691,000957: 12,2570 41301 NORM DMP # TO PRESERVE SIGNIF.
051692,000958: 12,2571 00047 X1
051693,000959: 12,2572 00025 X
051694,000960: 12,2573 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
051695,000961: 12,2574 20576 0 -3,1
051696,000962: 12,2575 57232 SL4R DMPR
051697,000963: 12,2576 00023 1/ROOTMU
051698,000964: 12,2577 00037 STORE T
051699,000965: 12,2600 77616 RVQ
051700,000966:
051701,000967: 12,2601 40001 COMSETUP SETPD BOV
051702,000968: 12,2602 00001 0D
051703,000969: 12,2603 24604 +1
051704,000970: 12,2604 77331 SSP VLOAD
051705,000971: 12,2605 00027 ITERCTR
051706,000972: 12,2606 00024 20D
051707,000973: 12,2607 22724 MUTABLE +2
051708,000974: 12,2610 00017 STORE 1/MU
051709,000975: 12,2611 77616 RVQ
051710,000976:
051711,000977: 12,2612 71214 ITERATOR BONCLR DLOAD
051712,000978: 12,2613 00614 SLOPESW
051713,000979: 12,2614 24662 FIRSTIME
051714,000980: 12,2615 00037 DEP
051715,000981: 12,2616 60225 DSU NORM
051716,000982: 12,2617 02756 DEPREV
051717,000983: 12,2620 00047 X1
051718,000984: 12,2621 60325 PDDL NORM
051719,000985: 12,2622 00015 DELINDEP
051720,000986: 12,2623 00050 X2
051721,000987: 12,2624 41260 XSU,1 DMP
051722,000988: 12,2625 00047 X2
051723,000989: 12,2626 02754 DELDEP
051724,000990: 12,2627 56257 SLR* DDV # PL UP 2
051725,000991: 12,2630 21202 1,1
051726,000992: 12,2631 43142 SR1 BOFF
051727,000993: 12,2632 04351 ORDERSW
051728,000994: 12,2633 24636 SGNCHECK
051729,000995: 12,2634 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
051730,000996: 12,2635 02754 DELDEP # DISREGARD IT TO FIND MIN.
051731,000997:
051732,000998: 12,2636 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
051733,000999: 12,2637 24674 POSDEL
051734,001000: 12,2640 43145 DLOAD BON
051735,001001: 12,2641 02326 INDEP
051736,001002: 12,2642 04311 ORDERSW
051737,001003: 12,2643 24645 MINCHECK
051738,001004: 12,2644 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
051739,001005:
051740,001006: 12,2645 45221 MINCHECK BDSU DSU
051741,001007: 12,2646 00011 MIN
051742,001008: 12,2647 51000 BOV BPL
051743,001009: 12,2650 24654 MODNGDEL
051744,001010: 12,2651 24654 MODNGDEL
051745,001011: 12,2652 77650 GOTO
051746,001012: 12,2653 24706 DELOK
051747,001013:
051748,001014:
051749,001015: 12,2654 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
051750,001016: 12,2655 00011 MIN
051751,001017: 12,2656 02326 INDEP
051752,001018: 12,2657 52005 DMP GOTO
051753,001019: 12,2660 33424 DP9/10
051754,001020: 12,2661 24710 NEWDEL
051755,001021:
051756,001022:
051757,001023: 12,2662 41335 FIRSTIME SLOAD DMP
051758,001024: 12,2663 00051 TWEEKIT
051759,001025: 12,2664 00011 MIN
051760,001026: 12,2665 67206 PUSH SLOAD
051761,001027: 12,2666 00051 TWEEKIT
051762,001028: 12,2667 45205 DMP DSU
051763,001029: 12,2670 00017 MAX
051764,001030: 12,2671 52165 SIGN GOTO
051765,001031: 12,2672 02754 DELDEP
051766,001032: 12,2673 24636 SGNCHECK
051767,001033:
051768,001034:
051769,001035: 12,2674 43145 POSDEL DLOAD BON
051770,001036: 12,2675 02326 INDEP
051771,001037: 12,2676 04311 ORDERSW
051772,001038: 12,2677 24701 MAXCHECK
051773,001039: 12,2700 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
051774,001040:
051775,001041: 12,2701 45221 MAXCHECK BDSU DSU
051776,001042: 12,2702 00017 MAX
051777,001043: 12,2703 50000 BOV BMN
051778,001044: 12,2704 24712 MODPSDEL
051779,001045: 12,2705 24712 MODPSDEL
051780,001046: 12,2706 77745 DELOK DLOAD
051781,001047: 12,2707 00001 0D
051782,001048: 12,2710 00015 NEWDEL STORE DELINDEP
051783,001049: 12,2711 77616 RVQ
051784,001050:
051785,001051:
051786,001052: 12,2712 45345 MODPSDEL DLOAD DSU
051787,001053: 12,2713 00017 MAX
051788,001054: 12,2714 02326 INDEP
051789,001055: 12,2715 52005 DMP GOTO
051790,001056: 12,2716 33424 DP9/10
051791,001057: 12,2717 24710 NEWDEL
051792,001058:
051793,001059: 12,2720 45001 CHECKCTR CS ONE
051794,001060: 12,2721 50120 INDEX FIXLOC
051795,001061: 12,2722 26026 ADS ITERCTR
051796,001062: 12,2723 54154 TS MPAC
051797,001063: 12,2724 06030 TC DANZIG
051798,001064:
051799,001065: 12,2725 44545 NEWSTATE DLOAD SR4R
051800,001066: 12,2726 00041 R1
051801,001067: 12,2727 74225 DSU VXSC
051802,001068: 12,2730 00035 XSQC(XI)
051803,001069: 12,2731 02716 UR1
051804,001070: 12,2732 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
051805,001071: 12,2733 00025 X
051806,001072: 12,2734 60316 DSQ NORM
051807,001073: 12,2735 00047 X1
051808,001074: 12,2736 57275 DMPR DMPR
051809,001075: 12,2737 00023 1/ROOTMU
051810,001076: 12,2740 00025 X
051811,001077: 12,2741 53605 DMP SRR*
051812,001078: 12,2742 00033 S(XI)
051813,001079: 12,2743 21572 0 -7,1
051814,001080: 12,2744 77621 BDSU
051815,001081: 12,2745 00037 T
051816,001082: 12,2746 74352 SL1 VXSC
051817,001083: 12,2747 02740 VVEC
051818,001084: 12,2750 53372 VSL1 VAD # PL AT 0
051819,001085: 12,2751 41512 VSL4 PUSH
051820,001086: 12,2752 77646 ABVAL
051821,001087: 12,2753 77701 LAMENTER NORM
051822,001088: 12,2754 00047 X1
051823,001089: 12,2755 16714 STODL R2
051824,001090: 12,2756 00031 XI
051825,001091: 12,2757 45205 DMP DSU
051826,001092: 12,2760 00033 S(XI)
051827,001093: 12,2761 33406 D1/128
051828,001094: 12,2762 76405 DMP SL1R
051829,001095: 12,2763 00021 ROOTMU
051830,001096: 12,2764 53605 DMP SLR*
051831,001097: 12,2765 00025 X
051832,001098: 12,2766 21176 0 -3,1
051833,001099: 12,2767 74271 DDV VXSC
051834,001100: 12,2770 02714 R2
051835,001101: 12,2771 02716 UR1
051836,001102: 12,2772 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
051837,001103: 12,2773 00035 XSQC(XI)
051838,001104: 12,2774 56257 SLR* DDV
051839,001105: 12,2775 21175 0 -4,1
051840,001106: 12,2776 02714 R2
051841,001107: 12,2777 77621 BDSU
051842,001108: 12,3000 33422 D1/256
051843,001109: 12,3001 53361 VXSC VAD
051844,001110: 12,3002 02740 VVEC # PL AT 6
051845,001111: 12,3003 43412 VSL8 RVQ
051846,001112:
051847,001113: 15,2000 SETLOC CONICS1
051848,001114: 15,2000 BANK
051849,001115:
051850,001116: 15,3402 COUNT* $$/CONIC
051851,001117: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
051852,001118: 15,3402 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
051853,001119: 15,3403 04000 00000 D1/8 2DEC 1.0 B-3
051854,001120: 15,3405 00200 00000 D1/128 2DEC 1.0 B-7
051855,001121: 15,3407 00400 00000 D1/64 2DEC 1.0 B-6
051856,001122: 15,3411 10000 00000 D1/4 2DEC 1.0 B-2
051857,001123: 15,3413 02000 00000 D1/16 2DEC 1.0 B-4
051858,001124: 15,3415 01000 00000 D1/32 2DEC 1.0 B-5
051859,001125: 15,3417 00020 00000 D1/1024 2DEC 1.0 B-10
051860,001126: 15,3421 00100 00000 D1/256 2DEC 1.0 B-8
051861,001127: 15,3423 34631 23146 DP9/10 2DEC .9
051862,001128: 15,3425 06,3725 KEPZERO EQUALS LO6ZEROS
051863,001129: 15,3425 77467 77777 -50SC 2DEC -50.0 B-12
051864,001130: 15,3427 03110 17665 2PISC 2DEC 6.28318530 B-6
051865,001131: 15,3431 15,3414 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
051866,001132: 15,3431 15,3420 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
051867,001133: 15,3431 00000 00001 ONEBIT 2DEC 1.0 B-28
051868,001134: 15,3433 37767 37737 COGUPLIM 2DEC .999511597
051869,001135: 15,3435 40010 40040 COGLOLIM 2DEC -.999511597
051870,001136:
051871,001137: 12,2000 SETLOC CONICS
051872,001138: 12,2000 BANK
051873,001139:
051874,001140: 12,3004 COUNT* $$/CONIC
051875,001141: 12,3004 45020 TIMETHET STQ CALL
051876,001142: 12,3005 02704 RTNTT
051877,001143: 12,3006 25765 PRAMSET
051878,001144: 12,3007 77624 CALL
051879,001145: 12,3010 22656 PARAM
051880,001146: 12,3011 45000 BOV CALL # PL AT 0
051881,001147: 12,3012 25031 COGAOVFL
051882,001148: 12,3013 25034 GETX
051883,001149: 12,3014 43145 COMMNOUT DLOAD BON
051884,001150: 12,3015 00031 XI
051885,001151: 12,3016 04310 INFINFLG
051886,001152: 12,3017 25762 ABTCONIC
051887,001153: 12,3020 45014 CLEAR CALL
051888,001154: 12,3021 04273 COGAFLAG
051889,001155: 12,3022 24464 DELTIME
051890,001156: 12,3023 45014 BON CALL
051891,001157: 12,3024 03706 RVSW
051892,001158: 12,3025 02704 RTNTT
051893,001159: 12,3026 24725 NEWSTATE
051894,001160: 12,3027 77650 GOTO
051895,001161: 12,3030 02704 RTNTT
051896,001162:
051897,001163: 12,3031 77614 COGAOVFL SETGO
051898,001164: 12,3032 04033 COGAFLAG
051899,001165: 12,3033 25762 ABTCONIC
051900,001166: 11,2000 SETLOC CONICS2
051901,001167: 11,2000 BANK
051902,001168: 11,2656 COUNT* $$/CONIC
051903,001169: 11,2656 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
051904,001170: 11,2657 02747 RTNPRM
051905,001171: 11,2660 03665 NORMSW
051906,001172: 11,2661 77614 CLEAR
051907,001173: 11,2662 04273 COGAFLAG
051908,001174: 11,2663 45131 SSP CALL
051909,001175: 11,2664 02667 GEOMSGN
051910,001176: 11,2665 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
051911,001177: 11,2666 13715 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
051912,001178: 11,2667 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
051913,001179: 11,2670 56261 SR DDV
051914,001180: 11,2671 20606 5
051915,001181:
051916,001182: 11,2672 00045 36D
051917,001183: 11,2673 26326 STOVL COGA
051918,001184: 11,2674 22724 MUTABLE +2
051919,001185: 11,2675 14017 STODL 1/MU
051920,001186: 11,2676 02714 MAGVEC2
051921,001187: 11,2677 60316 DSQ NORM
051922,001188: 11,2700 00047 X1
051923,001189: 11,2701 41275 DMPR DMP
051924,001190: 11,2702 00017 1/MU
051925,001191: 11,2703 00041 R1
051926,001192: 11,2704 77657 SRR*
051927,001193: 11,2705 21576 0 -3,1
051928,001194: 11,2706 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
051929,001195: 11,2707 33416 D1/32
051930,001196: 11,2710 16736 STODL R1A # R1A (+6) PL AT 0
051931,001197:
051932,001198: 11,2711 60205 DMP NORM
051933,001199: 11,2712 00045 36D
051934,001200: 11,2713 00047 X1
051935,001201: 11,2714 53605 DMP SR*
051936,001202: 11,2715 00045 36D
051937,001203: 11,2716 20575 0 -4,1
051938,001204: 11,2717 36734 STCALL P # P (+4)
051939,001205: 11,2720 02747 RTNPRM
051940,001206:
051941,001207: 05,2000 SETLOC CONICS4
051942,001208: 05,2000 BANK
051943,001209:
051944,001210: 05,3715 COUNT* $$/CONIC
051945,001211: 05,3715 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
051946,001212: 05,3716 16706 STODL U2 # U2 (+1)
051947,001213: 05,3717 00045 36D
051948,001214: 05,3720 26714 STOVL MAGVEC2 # PL AT 0
051949,001215: 05,3721 77656 UNIT
051950,001216: 05,3722 02716 STORE UR1 # UR1 (+1)
051951,001217: 05,3723 72441 DOT SL1
051952,001218: 05,3724 02706 U2
051953,001219: 05,3725 77725 PDDL # OD=CSTH (+1) PL AT 2
051954,001220: 05,3726 00045 36D
051955,001221: 05,3727 24041 STOVL R1 # R1 (+29 OR +27)
051956,001222: 05,3730 02716 UR1
051957,001223: 05,3731 76435 VXV VSL1
051958,001224: 05,3732 02706 U2
051959,001225: 05,3733 75214 BON SIGN
051960,001226: 05,3734 03705 NORMSW
051961,001227: 05,3735 13747 HAVENORM
051962,001228: 05,3736 02667 GEOMSGN
051963,001229: 05,3737 40056 UNIT BOV
051964,001230: 05,3740 13745 COLINEAR
051965,001231: 05,3741 16670 UNITNORM STODL UN # UN (+1)
051966,001232: 05,3742 00045 36D
051967,001233: 05,3743 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051968,001234: 05,3744 02667 GEOMSGN
051969,001235:
051970,001236:
051971,001237: 05,3745 52162 COLINEAR VSR1 GOTO
051972,001238: 05,3746 13741 UNITNORM
051973,001239:
051974,001240: 05,3747 75246 HAVENORM ABVAL SIGN
051975,001241: 05,3750 02667 GEOMSGN
051976,001242: 05,3751 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051977,001243:
051978,001244: 12,2000 SETLOC CONICS
051979,001245: 12,2000 BANK
051980,001246:
051981,001247: 12,3034 COUNT* $$/CONIC
051982,001248: 12,3034 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
051983,001249: 12,3035 00003 3
051984,001250: 12,3036 00052 S2
051985,001251: 12,3037 00001 1
051986,001252: 12,3040 77614 CLEAR
051987,001253: 12,3041 04276 360SW
051988,001254: 12,3042 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
051989,001255: 12,3043 02726 CSTH
051990,001256: 12,3044 44342 SR1 BDSU
051991,001257: 12,3045 33412 D1/4
051992,001258: 12,3046 54325 PDDL SRR # PL AT 4D
051993,001259: 12,3047 02724 SNTH
051994,001260: 12,3050 21607 6
051995,001261: 12,3051 77671 DDV # PL AT 2
051996,001262: 12,3052 77600 BOV
051997,001263: 12,3053 25167 360CHECK
051998,001264: 12,3054 41225 DSU DMP
051999,001265: 12,3055 02326 COGA # PL AT 0
052000,001266: 12,3056 40132 SL2R BOV
052001,001267: 12,3057 25167 360CHECK
052002,001268: 12,3060 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
052003,001269: 12,3061 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
052004,001270: 12,3062 00155 MPAC
052005,001271: 12,3063 02736 R1A
052006,001272: 12,3064 76202 SR4 TAD # PL AT 2
052007,001273: 12,3065 75440 BMN SQRT
052008,001274: 12,3066 25252 INFINITY
052009,001275: 12,3067 43306 ROUND DAD # PL AT 0D
052010,001276: 12,3070 61000 BOV TIX,2
052011,001277: 12,3071 25165 RESETX2
052012,001278: 12,3072 25060 WLOOP
052013,001279:
052014,001280:
052015,001281: 12,3073 40065 BDDV BOV
052016,001282: 12,3074 33406 D1/128
052017,001283: 12,3075 25252 INFINITY
052018,001284: 12,3076 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
052019,001285: 12,3077 25252 INFINITY
052020,001286: 12,3100 77716 DSQ
052021,001287: 12,3101 41301 NORM DMP
052022,001288: 12,3102 00047 X1
052023,001289: 12,3103 02736 R1A
052024,001290: 12,3104 77457 SRR* EXIT
052025,001291: 12,3105 21567 0 -10D,1
052026,001292: 12,3106 07171 TC POLY
052027,001293: 12,3107 00005 DEC 5 B-14
052028,001294: 12,3110 20000 00000 2DEC .5
052029,001295: 12,3112 72525 52471 2DEC -.166666770
052030,001296: 12,3114 03146 15003 2DEC .100000392
052031,001297: 12,3116 75556 45210 2DEC -.071401086
052032,001298: 12,3120 01615 13553 2DEC .055503292
052033,001299: 12,3122 76371 63777 2DEC -.047264098
052034,001300: 12,3124 01232 27367 2DEC .040694204
052035,001301:
052036,001302: 12,3126 06006 TC INTPRET
052037,001303: 12,3127 76405 DMP SL1R # PL AT 0D
052038,001304: 12,3130 43006 PUSH BON
052039,001305: 12,3131 04316 360SW
052040,001306: 12,3132 25237 TRUE360X
052041,001307: 12,3133 60316 XCOMMON DSQ NORM
052042,001308: 12,3134 00047 X1
052043,001309: 12,3135 53605 DMP SRR*
052044,001310: 12,3136 02736 R1A
052045,001311: 12,3137 21565 0 -12D,1
052046,001312: 12,3140 14031 STODL XI # XI (+6)
052047,001313:
052048,001314:
052049,001315: 12,3141 00041 R1
052050,001316: 12,3142 75542 SR1 SQRT
052051,001317: 12,3143 41306 ROUND DMP
052052,001318: 12,3144 77632 SL4R # PL AT 0
052053,001319: 12,3145 00025 STORE X # X (+17 OR +16)
052054,001320:
052055,001321:
052056,001322: 12,3146 60316 DSQ NORM
052057,001323: 12,3147 00047 X1
052058,001324: 12,3150 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
052059,001325: 12,3151 02734 P
052060,001326: 12,3152 00041 R1
052061,001327: 12,3153 75452 SL3 SQRT
052062,001328: 12,3154 56405 DMP SL3R
052063,001329: 12,3155 02326 COGA
052064,001330: 12,3156 14043 STODL KEPC1
052065,001331: 12,3157 02736 R1A
052066,001332: 12,3160 43021 BDSU CLEAR
052067,001333: 12,3161 33410 D1/64
052068,001334: 12,3162 04270 INFINFLG
052069,001335: 12,3163 00045 STORE KEPC2
052070,001336: 12,3164 77616 RVQ
052071,001337:
052072,001338:
052073,001339: 12,3165 77774 RESETX2 AXT,2
052074,001340: 12,3166 00003 3
052075,001341:
052076,001342: 12,3167 51001 360CHECK SETPD BPL
052077,001343: 12,3170 00001 0D
052078,001344: 12,3171 25174 INVRSEQN
052079,001345: 12,3172 77614 SET
052080,001346: 12,3173 04076 360SW
052081,001347:
052082,001348:
052083,001349: 12,3174 75545 INVRSEQN DLOAD SQRT
052084,001350: 12,3175 02734 P
052085,001351: 12,3176 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
052086,001352: 12,3177 02724 SNTH
052087,001353: 12,3200 02326 COGA
052088,001354: 12,3201 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
052089,001355: 12,3202 02726 CSTH
052090,001356: 12,3203 43202 SR4 DAD
052091,001357: 12,3204 33416 D1/32
052092,001358: 12,3205 41225 DSU DMP # PL AT 2,0
052093,001359: 12,3206 55301 NORM BDDV
052094,001360: 12,3207 00047 X1
052095,001361: 12,3210 02724 SNTH
052096,001362: 12,3211 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
052097,001363: 12,3212 21174 0 -5,1
052098,001364: 12,3213 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
052099,001365: 12,3214 14043 STODL 34D
052100,001366: 12,3215 33414 D1/16
052101,001367: 12,3216 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
052102,001368: 12,3217 65234 RTB PDDL # PL AT 7
052103,001369: 12,3220 45640 TPMODE
052104,001370: 12,3221 02736 R1A
052105,001371: 12,3222 40405 DMP SR4
052106,001372: 12,3223 00043 34D
052107,001373: 12,3224 77771 TAD # PL AT 4
052108,001374: 12,3225 75440 BMN SQRT
052109,001375: 12,3226 25252 INFINITY
052110,001376: 12,3227 77615 DAD # PL AT 2
052111,001377: 12,3230 60304 TIX,2 NORM
052112,001378: 12,3231 25216 1/WLOOP
052113,001379: 12,3232 00047 X1
052114,001380: 12,3233 77665 BDDV
052115,001381: 12,3234 52057 SLR* GOTO # PL AT 0
052116,001382: 12,3235 21172 0 -7,1
052117,001383: 12,3236 25076 POLYCOEF
052118,001384:
052119,001385:
052120,001386: 12,3237 50145 TRUE360X DLOAD BMN
052121,001387: 12,3240 02736 R1A
052122,001388: 12,3241 25252 INFINITY
052123,001389: 12,3242 60366 SQRT NORM
052124,001390: 12,3243 00047 X1
052125,001391: 12,3244 53665 BDDV SL*
052126,001392: 12,3245 33430 2PISC
052127,001393: 12,3246 20176 0 -3,1
052128,001394: 12,3247 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
052129,001395: 12,3250 77650 GOTO
052130,001396: 12,3251 25133 XCOMMON
052131,001397: 12,3252 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
052132,001398: 12,3253 00001 0 # INFINITY IS REQUIRED
052133,001399: 12,3254 25255 OVFLCLR
052134,001400: 12,3255 43414 OVFLCLR SET RVQ
052135,001401: 12,3256 04070 INFINFLG
052136,001402:
052137,001403: 12,3257 45020 LAMBERT STQ CALL
052138,001404: 12,3260 02704 RTNLAMB
052139,001405: 12,3261 24601 COMSETUP
052140,001406: 12,3262 57345 DLOAD DMPR
052141,001407: 12,3263 02665 TDESIRED
052142,001408: 12,3264 33415 BEE19
052143,001409: 12,3265 02330 STORE EPSILONL
052144,001410: 12,3266 77214 SET VLOAD
052145,001411: 12,3267 00474 SLOPESW
052146,001412: 12,3270 02651 R1VEC
052147,001413: 12,3271 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
052148,001414: 12,3272 02657 R2VEC # MPAC=R2VEC (+29 OR +27)
052149,001415: 12,3273 13715 GEOM
052150,001416: 12,3274 16724 STODL SNTH # 0D=CSTH (+1) PL AT 2
052151,001417: 12,3275 02714 MAGVEC2
052152,001418: 12,3276 65301 NORM PDDL # PL AT 4
052153,001419: 12,3277 00047 X1
052154,001420: 12,3300 00041 R1
052155,001421: 12,3301 56342 SR1 DDV # PL AT 2
052156,001422: 12,3302 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
052157,001423: 12,3303 20173 0 -6,1
052158,001424: 12,3304 77626 STADR
052159,001425: 12,3305 75051 STORE CSTH # CSTH (+1)
052160,001426: 12,3306 44342 SR1 BDSU
052161,001427: 12,3307 33412 D1/4
052162,001428: 12,3310 02730 STORE 1-CSTH # 1-CSTH (+2)
052163,001429:
052164,001430: 12,3311 53106 ROUND BZE
052165,001431: 12,3312 25526 360LAMB
052166,001432: 12,3313 65301 NORM PDDL # PL AT 4
052167,001433: 12,3314 00047 X1
052168,001434: 12,3315 00001 0D
052169,001435: 12,3316 56342 SR1 DDV # PL AT 2
052170,001436: 12,3317 75457 SL* SQRT
052171,001437: 12,3320 20176 0 -3,1
052172,001438: 12,3321 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
052173,001439: 12,3322 02724 SNTH
052174,001440: 12,3323 20607 6
052175,001441: 12,3324 43271 DDV DAD # PL AT 2
052176,001442: 12,3325 02730 1-CSTH
052177,001443: 12,3326 77626 STADR
052178,001444: 12,3327 77760 STORE COGAMAX
052179,001445: 12,3330 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
052180,001446: 12,3331 25336 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
052181,001447: 12,3332 25341 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
052182,001448: 12,3333 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
052183,001449: 12,3334 33434 COGUPLIM
052184,001450: 12,3335 25341 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
052185,001451: 12,3336 77745 UPLIM DLOAD
052186,001452: 12,3337 33434 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
052187,001453: 12,3340 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
052188,001454: 12,3341 54345 MAXCOGA DLOAD SR
052189,001455: 12,3342 02726 CSTH
052190,001456: 12,3343 20607 6
052191,001457: 12,3344 45425 DSU STADR
052192,001458: 12,3345 61045 STODL CSTH-RHO
052193,001459: 12,3346 02667 GEOMSGN
052194,001460: 12,3347 71240 BMN DLOAD
052195,001461: 12,3350 25545 LOLIM
052196,001462: 12,3351 02732 CSTH-RHO
052197,001463: 12,3352 56352 SL1 DDV
052198,001464: 12,3353 02724 SNTH
052199,001465: 12,3354 77600 BOV
052200,001466: 12,3355 25545 LOLIM
052201,001467: 12,3356 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
052202,001468: 12,3357 66214 BON SSP
052203,001469: 12,3360 00715 GUESSW
052204,001470: 12,3361 25532 NOGUESS
052205,001471: 12,3362 00051 TWEEKIT
052206,001472: 12,3363 00001 00001
052207,001473: 12,3364 77745 DLOAD
052208,001474: 12,3365 02326 COGA
052209,001475:
052210,001476:
052211,001477: 12,3366 77605 LAMBLOOP DMP
052212,001478: 12,3367 02724 SNTH
052213,001479: 12,3370 45342 SR1 DSU
052214,001480: 12,3371 02732 CSTH-RHO
052215,001481: 12,3372 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
052216,001482: 12,3373 00047 X1
052217,001483: 12,3374 02730 1-CSTH
052218,001484: 12,3375 56257 SL* DDV # 1-CSTH (+2) PL AT 0
052219,001485: 12,3376 20170 0 -9D,1
052220,001486: 12,3377 53040 BMN BZE
052221,001487: 12,3400 25464 NEGP
052222,001488: 12,3401 25464 NEGP
052223,001489: 12,3402 16734 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
052224,001490: 12,3403 02326 COGA
052225,001491: 12,3404 43316 DSQ DAD
052226,001492: 12,3405 33420 D1/1024
052227,001493: 12,3406 41301 NORM DMP
052228,001494: 12,3407 00047 X1
052229,001495: 12,3410 02734 P
052230,001496: 12,3411 44257 SR* BDSU
052231,001497: 12,3412 20571 0 -8D,1
052232,001498: 12,3413 33416 D1/32
052233,001499: 12,3414 16736 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
052234,001500:
052235,001501: 12,3415 02734 P
052236,001502: 12,3416 45000 BOV CALL
052237,001503: 12,3417 25467 HIENERGY
052238,001504: 12,3420 25034 GETX
052239,001505: 12,3421 77745 DLOAD
052240,001506: 12,3422 00037 T
052241,001507: 12,3423 16756 STODL TPREV
052242,001508: 12,3424 00031 XI
052243,001509: 12,3425 45014 BON CALL
052244,001510: 12,3426 04310 INFINFLG
052245,001511: 12,3427 25464 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
052246,001512: 12,3430 24464 DELTIME
052247,001513: 12,3431 44200 BOV BDSU
052248,001514: 12,3432 25503 BIGTIME
052249,001515: 12,3433 02665 TDESIRED
052250,001516: 12,3434 02754 STORE TERRLAMB
052251,001517: 12,3435 44246 ABS BDSU
052252,001518: 12,3436 02330 EPSILONL
052253,001519: 12,3437 47044 BPL RTB
052254,001520: 12,3440 25550 INITV
052255,001521: 12,3441 24720 CHECKCTR
052256,001522: 12,3442 43030 BHIZ BON
052257,001523: 12,3443 25513 SUFFCHEK
052258,001524: 12,3444 00714 SLOPESW
052259,001525: 12,3445 25453 GOITER
052260,001526: 12,3446 45345 DLOAD DSU
052261,001527: 12,3447 00037 T
052262,001528: 12,3450 02756 TPREV
052263,001529: 12,3451 77654 BZE
052264,001530: 12,3452 25513 SUFFCHEK
052265,001531: 12,3453 77624 GOITER CALL
052266,001532: 12,3454 24612 ITERATOR
052267,001533: 12,3455 53145 DLOAD BZE
052268,001534: 12,3456 00155 MPAC
052269,001535: 12,3457 25513 SUFFCHEK
052270,001536: 12,3460 77615 DAD
052271,001537: 12,3461 02326 COGA
052272,001538: 12,3462 36326 STCALL COGA
052273,001539: 12,3463 25366 LAMBLOOP
052274,001540:
052275,001541:
052276,001542: 12,3464 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
052277,001543: 12,3465 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
052278,001544: 12,3466 25506 LOENERGY
052279,001545:
052280,001546: 12,3467 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
052281,001547: 12,3470 00001 0
052282,001548: 12,3471 02326 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
052283,001549: 12,3472 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
052284,001550: 12,3473 70545 COMMONLM DLOAD SR1
052285,001551: 12,3474 00015 DCOGA
052286,001552: 12,3475 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
052287,001553: 12,3476 44254 BZE BDSU
052288,001554: 12,3477 25513 SUFFCHEK
052289,001555: 12,3500 02326 COGA
052290,001556: 12,3501 36326 STCALL COGA
052291,001557: 12,3502 25366 LAMBLOOP
052292,001558:
052293,001559:
052294,001560: 12,3503 77745 BIGTIME DLOAD
052295,001561: 12,3504 02756 TPREV
052296,001562: 12,3505 00037 STORE T
052297,001563:
052298,001564:
052299,001565: 12,3506 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
052300,001566: 12,3507 00001 0
052301,001567: 12,3510 02326 COGA # IN OVERFLOW OF TIME.
052302,001568: 12,3511 34017 STCALL COGAMAX # THIS IS THE NEW BOUND.
052303,001569: 12,3512 25473 COMMONLM
052304,001570:
052305,001571:
052306,001572: 12,3513 51545 SUFFCHEK DLOAD ABS
052307,001573: 12,3514 02754 TERRLAMB
052308,001574: 12,3515 41325 PDDL DMP # PL AT 2D
052309,001575: 12,3516 02665 TDESIRED
052310,001576: 12,3517 33412 D1/4
052311,001577: 12,3520 45215 DAD DSU # PL AT 0D
052312,001578: 12,3521 33432 ONEBIT
052313,001579: 12,3522 43044 BPL SETGO
052314,001580: 12,3523 25550 INITV
052315,001581: 12,3524 02434 SOLNSW
052316,001582: 12,3525 02704 RTNLAMB
052317,001583:
052318,001584:
052319,001585: 12,3526 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
052320,001586: 12,3527 00001 0
052321,001587: 12,3530 02434 SOLNSW
052322,001588: 12,3531 02704 RTNLAMB
052323,001589:
052324,001590:
052325,001591: 12,3532 71331 NOGUESS SSP DLOAD
052326,001592: 12,3533 00051 TWEEKIT
052327,001593: 12,3534 10000 20000
052328,001594: 12,3535 00011 COGAMIN
052329,001595: 12,3536 65342 SR1 PDDL # PL AT 2
052330,001596: 12,3537 00017 COGAMAX
052331,001597: 12,3540 43342 SR1 DAD
052332,001598: 12,3541 77626 STADR # PL AT 0
052333,001599: 12,3542 75451 STORE COGA
052334,001600: 12,3543 34015 STCALL DCOGA
052335,001601: 12,3544 25366 LAMBLOOP
052336,001602: 12,3545 52145 LOLIM DLOAD GOTO
052337,001603: 12,3546 33436 COGLOLIM # COGLOLIM=-.999511597
052338,001604: 12,3547 25356 MINCOGA
052339,001605:
052340,001606:
052341,001607: 12,3550 60345 INITV DLOAD NORM
052342,001608: 12,3551 00041 R1
052343,001609: 12,3552 00047 X1
052344,001610: 12,3553 70525 PDDL SR1 # PL AT 2
052345,001611: 12,3554 02734 P
052346,001612: 12,3555 77671 DDV # PL AT 0
052347,001613: 12,3556 75457 SL* SQRT
052348,001614: 12,3557 20175 0 -4,1
052349,001615: 12,3560 72405 DMP SL1
052350,001616: 12,3561 00021 ROOTMU
052351,001617: 12,3562 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
052352,001618: 12,3563 02326 COGA
052353,001619: 12,3564 74261 SL VXSC
052354,001620: 12,3565 20206 5
052355,001621: 12,3566 02716 UR1
052356,001622: 12,3567 77725 PDDL # XCH WITH 0D PL AT 0,6
052357,001623: 12,3570 76561 VXSC VSL1
052358,001624: 12,3571 02670 UN
052359,001625: 12,3572 53235 VXV VAD # PL AT 0
052360,001626: 12,3573 02716 UR1
052361,001627: 12,3574 43172 VSL1 CLEAR
052362,001628: 12,3575 02674 SOLNSW
052363,001629: 12,3576 02740 STORE VVEC
052364,001630: 12,3577 53135 SLOAD BZE
052365,001631: 12,3600 02676 VTARGTAG
052366,001632: 12,3601 25604 TARGETV
052367,001633: 12,3602 77650 GOTO
052368,001634: 12,3603 02704 RTNLAMB
052369,001635:
052370,001636:
052371,001637: 12,3604 45145 TARGETV DLOAD CALL
052372,001638: 12,3605 02714 MAGVEC2
052373,001639: 12,3606 24753 LAMENTER
052374,001640: 12,3607 36677 STCALL VTARGET
052375,001641: 12,3610 02704 RTNLAMB
052376,001642:
052377,001643: 12,3611 45020 TIMERAD STQ CALL
052378,001644: 12,3612 02704 RTNTR
052379,001645: 12,3613 25765 PRAMSET
052380,001646: 12,3614 77624 CALL
052381,001647: 12,3615 22656 PARAM
052382,001648: 12,3616 71200 BOV DLOAD # PL AT 0
052383,001649: 12,3617 25031 COGAOVFL
052384,001650: 12,3620 33416 D1/32
052385,001651: 12,3621 41225 DSU DMP
052386,001652: 12,3622 02736 R1A
052387,001653: 12,3623 02734 P
052388,001654: 12,3624 41366 SQRT DMP
052389,001655: 12,3625 02326 COGA
052390,001656: 12,3626 74212 SL4 VXSC
052391,001657: 12,3627 02706 U2
052392,001658: 12,3630 45325 PDDL DSU # PL AT 6
052393,001659: 12,3631 33410 D1/64
052394,001660: 12,3632 02736 R1A
052395,001661: 12,3633 52361 VXSC VSU # PL AT 0
052396,001662: 12,3634 02716 UR1
052397,001663: 12,3635 53512 VSL4 UNIT
052398,001664: 12,3636 77600 BOV
052399,001665: 12,3637 25715 CIRCULAR
052400,001666: 12,3640 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
052401,001667: 12,3641 02752 RDESIRED # 36D=ECC (+3)
052402,001668: 12,3642 00047 X1
052403,001669: 12,3643 41325 PDDL DMP # PL AT 8
052404,001670: 12,3644 00041 R1
052405,001671: 12,3645 02734 P
052406,001672: 12,3646 56257 SL* DDV # PL AT 6
052407,001673: 12,3647 20201 0,1
052408,001674: 12,3650 56225 DSU DDV
052409,001675: 12,3651 33414 D1/16
052410,001676: 12,3652 00045 36D # 36D=ECC (+3)
052411,001677: 12,3653 00031 STORE COSF
052412,001678: 12,3654 63400 BOV DSQ
052413,001679: 12,3655 20333 BADR2
052414,001680: 12,3656 50021 BDSU BMN
052415,001681: 12,3657 33412 D1/4
052416,001682: 12,3660 20333 BADR2
052417,001683: 12,3661 75366 SQRT SIGN
052418,001684: 12,3662 02751 SGNRDOT
052419,001685: 12,3663 77614 CLEAR
052420,001686: 12,3664 04272 APSESW
052421,001687:
052422,001688: 12,3665 76561 TERMNVEC VXSC VSL1
052423,001689: 12,3666 02670 UN
052424,001690: 12,3667 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
052425,001691: 12,3670 00001 0D
052426,001692: 12,3671 53361 VXSC VAD # PL AT 0
052427,001693: 12,3672 00031 COSF
052428,001694: 12,3673 41572 VSL1 PUSH # 0D=U2 PL AT 6
052429,001695:
052430,001696: 12,3674 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
052431,001697: 12,3675 02716 UR1
052432,001698: 12,3676 33412 DP1/4
052433,001699: 12,3677 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
052434,001700: 12,3700 25701 +1 # CLEAR OVFIND IF SET
052435,001701: 12,3701 26726 STOVL CSTH # CSTH (+1)
052436,001702: 12,3702 02716 UR1
052437,001703: 12,3703 76435 VXV VSL1
052438,001704: 12,3704 72441 DOT SL1
052439,001705: 12,3705 02670 UN
052440,001706: 12,3706 16724 STODL SNTH # SNTH (+1)
052441,001707: 12,3707 02734 P
052442,001708: 12,3710 77624 CALL
052443,001709: 12,3711 25034 GETX
052444,001710: 12,3712 77614 CLRGO
052445,001711: 12,3713 02634 SOLNSW
052446,001712: 12,3714 25014 COMMNOUT
052447,001713:
052448,001714:
052449,001715: 12,3715 43001 CIRCULAR SETPD SETGO
052450,001716: 12,3716 00001 0
052451,001717: 12,3717 02434 SOLNSW
052452,001718: 12,3720 25762 ABTCONIC
052453,001719:
052454,001720:
052455,001721: 10,2000 SETLOC CONICS5
052456,001722: 10,2000 BANK
052457,001723:
052458,001724: 10,2333 COUNT* $$/CONIC
052459,001725: 10,2333 75345 BADR2 DLOAD SIGN
052460,001726: 10,2334 15724 LODPHALF
052461,001727: 10,2335 00031 COSF
052462,001728: 10,2336 14031 STODL COSF
052463,001729: 10,2337 15726 KEPZERO
052464,001730: 10,2340 77614 SETGO
052465,001731: 10,2341 04032 APSESW
052466,001732: 10,2342 25665 TERMNVEC
052467,001733:
052468,001734: 12,2000 SETLOC CONICS
052469,001735: 12,2000 BANK
052470,001736:
052471,001737: 12,3721 COUNT* $$/CONIC
052472,001738: 12,3721 45020 APSIDES STQ CALL
052473,001739: 12,3722 02704 RTNAPSE
052474,001740: 12,3723 25765 PRAMSET
052475,001741: 12,3724 77624 CALL
052476,001742: 12,3725 22656 PARAM
052477,001743: 12,3726 77600 BOV # PL AT 0
052478,001744: 12,3727 25730 GETECC
052479,001745: 12,3730 42405 GETECC DMP SL4
052480,001746: 12,3731 02736 R1A
052481,001747: 12,3732 75421 BDSU SQRT
052482,001748: 12,3733 33410 D1/64
052483,001749: 12,3734 02746 STORE ECC
052484,001750: 12,3735 65215 DAD PDDL # PL AT 2
052485,001751: 12,3736 33404 D1/8
052486,001752: 12,3737 00041 R1
052487,001753: 12,3740 72405 DMP SL1
052488,001754: 12,3741 02734 P
052489,001755: 12,3742 77671 DDV # PL AT 0
052490,001756: 12,3743 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
052491,001757: 12,3744 02736 R1A
052492,001758: 12,3745 00047 X1
052493,001759: 12,3746 53725 PDDL SL* # PL AT 4
052494,001760: 12,3747 00041 R1
052495,001761: 12,3750 20174 0 -5,1
052496,001762: 12,3751 45271 DDV DSU # PL AT 2,0
052497,001763: 12,3752 50000 BOV BMN
052498,001764: 12,3753 25757 INFINAPO
052499,001765: 12,3754 25757 INFINAPO
052500,001766: 12,3755 77650 GOTO
052501,001767: 12,3756 02704 RTNAPSE
052502,001768: 12,3757 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC,PERIAPSIS
052503,001769: 12,3760 15737 LDPOSMAX
052504,001770: 12,3761 02704 RTNAPSE # THAT PL IS AT 0.
052505,001771:
052506,001772: 12,3762 77776 ABTCONIC EXIT
052507,001773: 12,3763 05701 TC POODOO
052508,001774: 12,3764 20607 OCT 20607 # NO SOLUTION FROM TIMETHET OR TIMERAD
052509,001775:
052510,001776: 12,3765 40001 PRAMSET SETPD BOV
052511,001777: 12,3766 00001 0D
052512,001778: 12,3767 25770 +1
052513,001779: 12,3770 63375 VLOAD PDVL
052514,001780: 12,3771 02651 RVEC
052515,001781: 12,3772 02740 VVEC
052516,001782: 12,3773 77616 RVQ
052517,001783:
052518,001784: 11,2000 SETLOC CONICS3
052519,001785: 11,2000 BANK
052520,001786:
052521,001787: 11,2721 COUNT* $$/CONIC
052522,001788: 11,2721 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
052523,001789: 11,2723 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
052524,001790: 11,2725 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
052525,001791: 11,2727 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
052526,001792:
052527,001793: 11,2731 06,3736 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
052528,001794:
052529,001795: # ERASABLE ASSIGNMENTS
052530,001796:
052531,001797:
052532,001798: # KEPLER SUBROUTINE
052533,001799:
052534,001800: # INPUT -
052535,001801: # RRECT ERASE +5
052536,001802: # VRECT ERASE +5
052537,001803: # TAU. ERASE +1
052538,001804: # XKEP ERASE +1
052539,001805: # TC ERASE +1
052540,001806: # XPREV ERASE +1
052541,001807: 11,2731 1/MU EQUALS 14D
052542,001808: 11,2731 ROOTMU EQUALS 16D
052543,001809: 11,2731 1/ROOTMU EQUALS 18D
052544,001810:
052545,001811: # OUTPUT -
052546,001812: # RCV ERASE +5
052547,001813: # VCV ERASE +5
052548,001814: # RC ERASE +1
052549,001815: # XPREV ERASE +1
052550,001816:
052551,001817: # DEBRIS -
052552,001818: 11,2731 ALPHA EQUALS 8D
052553,001819: 11,2731 XMAX EQUALS 10D
052554,001820: 11,2731 XMIN EQUALS 12D
052555,001821: 11,2731 X EQUALS 20D
052556,001822: 11,2731 XI EQUALS 24D
052557,001823: 11,2731 S(XI) EQUALS 26D
052558,001824: 11,2731 XSQC(XI) EQUALS 28D
052559,001825: 11,2731 T EQUALS 30D
052560,001826: 11,2731 R1 EQUALS 32D
052561,001827: 11,2731 KEPC1 EQUALS 34D
052562,001828: 11,2731 KEPC2 EQUALS 36D
052563,001829: # DELX ERASE +1
052564,001830: # DELT ERASE +1
052565,001831: # URRECT ERASE +5
052566,001832: # RCNORM ERASE +1
052567,001833: # XPREV EQUALS XKEP
052568,001834:
052569,001835:
052570,001836: # LAMBERT SUBROUTINE
052571,001837:
052572,001838: # INPUT -
052573,001839: # R1VEC ERASE +5
052574,001840: # R2VEC ERASE +5
052575,001841: # TDESIRED ERASE +1
052576,001842: # GEOMSGN ERASE +0
052577,001843: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
052578,001844: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
052579,001845: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
052580,001846: # UN ERASE +5 ONLY USED IF NORMSW IS 1
052581,001847: # VTARGTAG ERASE +0
052582,001848: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
052583,001849:
052584,001850: # OUTPUT -
052585,001851: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
052586,001852: # V1VEC EQUALS MPAC
052587,001853:
052588,001854: # DEBRIS -
052589,001855: # RTNLAMB ERASE +0
052590,001856: # U2 ERASE +5
052591,001857: # MAGVEC2 ERASE +1
052592,001858: # UR1 ERASE +5
052593,001859: # R1 EQUALS 31D
052594,001860: # UN ERASE +5
052595,001861: # SNTH ERASE +1
052596,001862: # CSTH ERASE +1
052597,001863: # 1-CSTH ERASE +1
052598,001864: # CSTH-RHO ERASE +1
052599,001865: 11,2731 COGAMAX EQUALS 14D # CLOBBERS 1/MU
052600,001866: 11,2731 COGAMIN EQUALS 8D
052601,001867: 11,2731 DCOGA EQUALS 12D
052602,001868: # TWEEKIT EQUALS 40D
052603,001869: # P ERASE +1
052604,001870: # COGA ERASE +1
052605,001871: # R1A ERASE +1
052606,001872: # X EQUALS 20D
052607,001873: # XSQ EQUALS 22D
052608,001874: # XI EQUALS 24D
052609,001875: # S(XI) EQUALS 26D
052610,001876: # XSQC(XI) EQUALS 28D
052611,001877: # T EQUALS 30D
052612,001878: # KEPC1 EQUALS 34D
052613,001879: # KEPC2 EQUALS 36D
052614,001880: # SLOPESW
052615,001881: # SOLNSW
052616,001882:
052617,001883: # OTHERS -
052618,001884:
052619,001885: # RVEC EQUALS R1VEC
052620,001886: # VVEC ERASE +5
052621,001887: # COGAFLAG
052622,001888: # RVSW
052623,001889: # INFINFLG
052624,001890: # APSESW
052625,001891: # 360SW
052626,001892: # RTNTT EQUALS RTNLAMB
052627,001893: # ECC ERASE +1
052628,001894: # RTNTR EQUALS RTNLAMB
052629,001895: # RTNAPSE EQUALS RTNLAMB
052630,001896: # R2 EQUALS MAGVEC2
052631,001897: 11,2731 COSF EQUALS 24D
052632,001898: # RTNPRM ERASE +0
052633,001899: # SGNRDOT ERASE +0
052634,001900: # RDESIRED ERASE +1
052635,001901:
052636,001902:
052637,001903: # ITERATOR SUBROUTINE
052638,001904:
052639,001905: # ORDERSW
052640,001906: 11,2731 MAX EQUALS 14D # CLOBBERS 1/MU
052641,001907: 11,2731 MIN EQUALS 8D
052642,001908: # INDEP ERASE +1
052643,001909: 11,2731 DELINDEP EQUALS 12D
052644,001910: 11,2731 ITERCTR EQUALS 22D
052645,001911: 11,2731 DEP EQUALS 30D
052646,001912: # DELDEP ERASE +1
052647,001913: # DEPREV ERASE +1
052648,001914: 11,2731 TWEEKIT EQUALS 40D
052649,001915:
052650,001916:
052651,001917: # MORE KEPLER
052652,001918:
052653,001919: # EPSILONT ERASE +1
052654,001920:
052655,001921:
052656,001922: # MORE LAMBERT
052657,001923:
052658,001924: # TERRLAMB EQUALS DELDEP
052659,001925: # TPREV EQUALS DEPREV
052660,001926:
052661,001927: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc