Source Code
054657,000001: # Copyright: Public domain.
054658,000002: # Filename: CONIC_SUBROUTINES.agc
054659,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
054660,000004: # It is part of the source code for the Command Module's (CM)
054661,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
054662,000006: # Assembler: yaYUL
054663,000007: # Contact: Ron Burkey <info@sandroid.org>.
054664,000008: # Website: www.ibiblio.org/apollo.
054665,000009: # Pages: 1262-1308
054666,000010: # Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the
054667,000011: # same name, using Comanche055 page images.
054668,000012: # 2009-05-20 RSB Corrected: Fixed four interpreter
054669,000013: # instructions.
054670,000014:
054671,000015: # This source code has been transcribed or otherwise adapted from digitized
054672,000016: # images of a hardcopy from the MIT Museum. The digitization was performed
054673,000017: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
054674,000018: # thanks to both. The images (with suitable reduction in storage size and
054675,000019: # consequent reduction in image quality as well) are available online at
054676,000020: # www.ibiblio.org/apollo. If for some reason you find that the images are
054677,000021: # illegible, contact me at info@sandroid.org about getting access to the
054678,000022: # (much) higher-quality images which Paul actually created.
054679,000023:
054680,000024: # Notations on the hardcopy document read, in part:
054681,000025:
054682,000026: # Assemble revision 055 of AGC program Comanche by NASA
054683,000027: # 2021113-051. 10:28 APR. 1, 1969
054684,000028:
054685,000029: # This AGC program shall also be referred to as
054686,000030: # Colossus 2A
054687,000031:
054688,000032: # Page 1262
054689,000033: # PROGRAM DESCRIPTION -- ENTIRE CONIC SUBROUTINE LOG SECTION DATE -- 1 SEPTEMBER 1967
054690,000034: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
054691,000035: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
054692,000036:
054693,000037: # FUNCTIONAL DESCRIPTION --
054694,000038: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
054695,000039: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
054696,000040: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
054697,000041: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
054698,000042: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
054699,000043: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
054700,000044: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINES IN MISSION PROGRAMMING
054701,000045: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROUTINES
054702,000046: # APPROPRIATELY.
054703,000047:
054704,000048: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
054705,000049: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
054706,000050: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
054707,000051:
054708,000052: # RESTRICTIONS --
054709,000053: # THE ONLY LIMITATION IN THE SCOPE OF THE PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
054710,000054: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJECTORIES
054711,000055: # COULD BE HANDLED.
054712,000056:
054713,000057: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
054714,000058: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
054715,000059: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
054716,000060:
054717,000061: # Page 1263
054718,000062: # PROGRAM DESCRIPTION -- KEPLER SUBROUTINE DATE -- 11 OCTOBER 1967
054719,000063: # MOD NO. -- 1 LOG SECTION -- CONIC SUBROUTINES
054720,000064: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS 103 AND SUNDANCE 222
054721,000065: # MOD NO. -- 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
054722,000066: # MOD NO. -- 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
054723,000067: # MOD NO. -- 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
054724,000068:
054725,000069: # FUNCTIONAL DESCRIPTION --
054726,000070: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
054727,000071: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
054728,000072: # SECTION -- CIRCULAR, ELLIPTIC, PARABOLIC, HYPERPOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
054729,000073: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
054730,000074: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION
054731,000075: # TECHNIQUE IS UTILIZED IN THE COMPUTATION.
054732,000076:
054733,000077: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
054734,000078: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
054735,000079:
054736,000080: # IF THE ABSOLUTE VALUE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
054737,000081: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
054738,000082:
054739,000083: # THE RESTRICTIONS ARE --
054740,000084: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
054741,000085: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
054742,000086: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054743,000087:
054744,000088: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
054745,000089: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
054746,000090: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
054747,000091:
054748,000092: # REFERENCES --
054749,000093: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
054750,000094: # MEMO 67-4.
054751,000095:
054752,000096: # INPUT -- ERASABLE INITIALIZATION REQUIRED
054753,000097: # SCALE FACTOR
054754,000098: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
054755,000099: # -------- -------------- -----------------------
054756,000100: # RRECT +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
054757,000101: # +27 FOR MOON
054758,000102: # Page 1264
054759,000103: # VRECT +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054760,000104: # +5 FOR MOON
054761,000105: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054762,000106: # RESPECTIVELY, IS THE CENTRAL BODY
054763,000107: # TAU +28 DESIRED TRANSFER TIME IN CENTISECONDS (DP)
054764,000108: # MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
054765,000109: # XKEPNEW +17 FOR EARTH DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS).SIGN SHOULD AGREE WTIH THAT OF TAU.
054766,000110: # +16 FOR MOON AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
054767,000111: # MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
054768,000112: # BY KEPLER TO A POOR BUT VALID GUESS.
054769,000113: # TC +28 DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
054770,000114: # XPREV +17 FOR EARTH PRVIOUS VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
054771,000115: # +16 FOR MOON ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
054772,000116:
054773,000117: # SUBROUTINES CALLED --
054774,000118: # DELTIME
054775,000119:
054776,000120: # CALLING SEQUENCE AND NORMAL EXIT MODES --
054777,000121: # KEPRTN-2 GOTO # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054778,000122: # KEPRTN-1 KEPLER # RETURNS WITH XPREV IN MPAC. PL IS AT 0.
054779,000123: # KEPRTN ... # CONTINUE
054780,000124:
054781,000125: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
054782,000126: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
054783,000127: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
054784,000128:
054785,000129: # ABORT EXIT MODE --
054786,000130: # NONE
054787,000131:
054788,000132: # OUTPUT --
054789,000133: # SCALE FACTOR
054790,000134: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
054791,000135: # -------- -------------- -----------------------
054792,000136: # RCV +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS
054793,000137: # +27 FOR MOON
054794,000138: # VCV +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
054795,000139: # +5 FOR MOON
054796,000140: # TC +28 DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
054797,000141: # XPREV +17 FOR EARTH DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X
054798,000142: # +16 FOR MOON CORRESPONDING TO ONE PERIOD.
054799,000143: # Page 1265
054800,000144: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054801,000145:
054802,000146: # DEBRIS --
054803,000147: # PARAMETERS WHICH MAY BE OF USE --
054804,000148: # SCALE FACTOR
054805,000149: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
054806,000150: # -------- -------------- -----------------------
054807,000151: # URRECT +1 DP UNIT VECTOR OF INITIAL POSITION
054808,000152: # R1 +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION IN METERS
054809,000153: # +27 FOR MOON
054810,000154: # ALPHA -22 FOR EARTH DP INVERSE OF SEMI-MAJOR AXIS IN 1/METERS
054811,000155: # -20 FOR MOON
054812,000156: # TMODULO +28 DP INTEGRAL NUMBER OF PERIODS IN CENTISECS, WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
054813,000157: # TAU. OF LESS THAN ONE PERIOD.
054814,000158:
054815,000159: # PARAMETERS OF NO USE --
054816,000160: # DP PARAMETERS -- FPSILENT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
054817,000161:
054818,000162: # Page 1266
054819,000163: # PROGRAM DESCRIPTION -- LAMBERT SUBROUTINE DATE -- 1 SEPTEMBER 1967
054820,000164: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
054821,000165: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
054822,000166:
054823,000167: # FUNCTIONAL DESCRIPTION --
054824,000168: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
054825,000169: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
054826,000170: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
054827,000171: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
054828,000172: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
054829,000173: # UTILIZED IN THE COMPUTATION.
054830,000174:
054831,000175: # THE RESTRICTIONS ARE: --
054832,000176: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
054833,000177: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
054834,000178: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054835,000179: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
054836,000180: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
054837,000181: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
054838,000182: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054839,000183:
054840,000184: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION'S SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
054841,000185: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATELY
054842,000186: # .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
054843,000187:
054844,000188: # REFERENCES --
054845,000189: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP -- SECTION 5.5, SGA MEMO 67-8,
054846,000190: # SGA MEMO 67-4.
054847,000191:
054848,000192: # INPUT -- ERASABLE INITIALIZATION REQUIRED
054849,000193: # SCALE FACTOR
054850,000194: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
054851,000195: # -------- -------------- -----------------------
054852,000196: # R1VEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
054853,000197: # +27 FOR MOON
054854,000198: # R2VEC +29 FOR EARTH DP TARGET OR TERMINAL POSITION VECTOR IN METERS
054855,000199: # +27 FOR MOON
054856,000200: # TDESIRED +28 DP DESIRED TRANSFER TIME IN CENTISECONDS
054857,000201: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054858,000202: # RESPECTIVELY, IS THE CENTRAL BODY
054859,000203: # GEOMSGN NONE SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
054860,000204: # GUESSW NONE AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
054861,000205: # Page 1267
054862,000206: # COGA IS TO BE USED BY LAMBERT
054863,000207: # COGA +5 DP GUESS OF COTANGENT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
054864,000208: # IGNORED IF GUESSW IS SET.
054865,000209: # NORMSW NONE AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
054866,000210: # LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
054867,000211: # UN +1 DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
054868,000212: # MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
054869,000213: # VTARGTAG NONE A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMUTE THE VELOCITY OF R2VEC AS WELL AS
054870,000214: # AT R1VEC.
054871,000215:
054872,000216: # SUBROUTINES CALLED --
054873,000217: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
054874,000218:
054875,000219: # CALLING SEQUENCE AND NORMAL EXIT MODES --
054876,000220: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054877,000221: # L+1 LAMBERT # RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS WAS NON-ZERO OR VTARGET
054878,000222: # # IN MPAC IF VTARGTAG WAS ZERO
054879,000223: # L+2 BON # CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
054880,000224: # L+3 SOLNSW
054881,000225: # L+4 LAMABORT
054882,000226:
054883,000227: # IF A LAMBER RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
054884,000228: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
054885,000229:
054886,000230: # ABORT EXIT MODES --
054887,000231: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
054888,000232: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2FEC. IN EITHER CASE THE FIX MUST BE MADE
054889,000233: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
054890,000234: # LAMBERT DLOAD ABS # A MEASURE OF THE PROXIMITY TO 0 OR
054891,000235: # 1-CHTH # 360 DEGREES.
054892,000236: # DSU BWM
054893,000237: # ONEBIT
054894,000238: # CHANGER2 # CHANGE R2VEC DIRECTION SLIGHTLY.
054895,000239: # DLOAD DAD
054896,000240: # TDESIRED
054897,000241: # SOMETIME
054898,000242: # STCALL TDESIRED # INCRESE TDESIRED
054899,000243: # LAMBERT
054900,000244:
054901,000245: # OUTPUT --
054902,000246: # SCALE FACTOR
054903,000247: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
054904,000248: # Page 1268
054905,000249: # -------- -------------- -----------------------
054906,000250: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
054907,000251: # +5 FOR MOON PROBLEM.
054908,000252: # VTARGET +7 FOR EARTH DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
054909,000253: # +5 FOR MOON
054910,000254: # SOLNSW NONE INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
054911,000255: # SOLUTION EXISTS.
054912,000256:
054913,000257: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054914,000258:
054915,000259: # DEBRIS --
054916,000260: # PARAMETERS WHICH MAY BE OF USE --
054917,000261: # SCALE FACTOR
054918,000262: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
054919,000263: # -------- -------------- -----------------------
054920,000264: # SNTH +1 DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
054921,000265: # CSTH +1 DP COSINE OF ANGLE
054922,000266: # 1-CSTH +2 DP 1-CSTH
054923,000267: # COGA +5 DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
054924,000268: # P +4 DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
054925,000269: # R1A +6 DP RATIO OF INITIAL RADIUS TO SEMI-MAJOR AXIS
054926,000270: # R1 (32D) +29 FOR EARTH DP INITIAL RADIUS IN METERS
054927,000271: # +27 FOR MOON
054928,000272: # UR1 +1 DP UNIT VECTOR OF R1VEC
054929,000273: # U2 +1 DP UNIT VECTOR OF R2VEC
054930,000274:
054931,000275: # PARAMETERS OF NO USE --
054932,000276: # DP PARAMETERS -- EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
054933,000277: # ADDITIONAL INTERPRETIVE SWITCHES USED -- INFINFLG, 360SW, SLOPESW, ORDERSW
054934,000278:
054935,000279: # Page 1269
054936,000280: # PROGRAM DESCRIPTION -- TIME-THETA SUBROUTINE DATE -- 1 SEPTEMBER 1967
054937,000281: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
054938,000282: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
054939,000283:
054940,000284: # FUNCTIONAL DESCRIPTION --
054941,000285: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
054942,000286: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
054943,000287: # PROVIDES THE OPTION OF COMUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
054944,000288: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
054945,000289: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WTIHOUT INTRODUCING ANY CODING CHANGES,
054946,000290: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054947,000291:
054948,000292: # THE RESTRICTIONS ARE --
054949,000293: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054950,000294: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
054951,000295: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSCP. IF THE LIMITS
054952,000296: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054953,000297:
054954,000298: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
054955,000299:
054956,000300: # REFERENCES --
054957,000301: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
054958,000302:
054959,000303: # INPUT -- ERASABLE INITIALIZATION REQUIRED
054960,000304: # SCALE FACTOR
054961,000305: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
054962,000306: # -------- -------------- -----------------------
054963,000307: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
054964,000308: # +27 FOR MOON
054965,000309: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054966,000310: # +5 FOR MOON
054967,000311: # SNTH +1 ` DP SINE OF THE TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
054968,000312: # CSTH +1 DP COSINE OF THE ANGLE
054969,000313: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
054970,000314: # IS TO BE COMPUTED ALSO.
054971,000315: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054972,000316: # RESPECTIVELY, IS THE CENTRAL BODY.
054973,000317:
054974,000318: # SUBROUTINES CALLED --
054975,000319: # Page 1270
054976,000320: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
054977,000321:
054978,000322: # CALLING SEQUENCE AND NORMAL EXIT MODES --
054979,000323: # IF ONLY TIME IS DESIRED AS OUTPUT --
054980,000324: # L SET CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054981,000325: # L+1 RVSW
054982,000326: # L+2 TIMETHET # RETURN WITH PL AT 0 AND T IN MPAC
054983,000327: # L+3 ... # CONTINUE
054984,000328:
054985,000329: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL --
054986,000330: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
054987,000331: # L+1 RVSW
054988,000332: # L+2 TIMETHET # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
054989,000333: # # THE INITIAL VELOCITY VECTOR IN MPAC.
054990,000334: # L+3 STOVL NEWVVEC
054991,000335: # L+4 STADR
054992,000336: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS.
054993,000337: # L+6 ... # CONTINUE.
054994,000338:
054995,000339: # ABORT EXIT MODES --
054996,000340: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO P00DOO WITH
054997,000341: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
054998,000342:
054999,000343: # OUTPUT --
055000,000344: # SCALE FACTOR
055001,000345: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055002,000346: # -------- -------------- -----------------------
055003,000347: # T(30D) +28 DP TRANSFER TIME IN CENTISECONDS
055004,000348: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
055005,000349: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
055006,000350: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
055007,000351: # CLEAR IF NOT.
055008,000352:
055009,000353: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT --
055010,000354: # MPAC - +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
055011,000355: # MPAC+5 +5 FOR MOON
055012,000356: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
055013,000357: # +27 FOR MOON
055014,000358:
055015,000359: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
055016,000360: # Page 1271
055017,000361:
055018,000362: # DEBRIS --
055019,000363: # PARAMETERS WHICH MAY BE OF USE --
055020,000364: # SCALE FACTOR
055021,000365: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055022,000366: # -------- -------------- -----------------------
055023,000367: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
055024,000368: # +27 FOR MOON
055025,000369: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
055026,000370: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1
055027,000371: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
055028,000372: # UR1 +1 DP UNIT VECTOR OF RVEC
055029,000373: # U2 +1 DP UNIT VECTOR OF VVEC
055030,000374: # UN +1 DP UNIT VECTOR OF UR1*U2
055031,000375:
055032,000376: # PARAMETERS OF NO USE --
055033,000377: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
055034,000378: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW
055035,000379:
055036,000380: # Page 1272
055037,000381: # PROGRAM DESCRIPTION -- TIME-RADIUS SUBROUTINE DATE -- 11 OCTOBER 1967
055038,000382: # MOD NO. -1 LOG SECTION -- CONIC SUBROUTINES
055039,000383: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
055040,000384:
055041,000385: # FUNCTIONAL DESCRIPTION --
055042,000386: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
055043,000387: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
055044,000388: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
055045,000389: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
055046,000390: # EXTENDED USING OTHER PRIMARY BODIES BY SIMMPE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
055047,000391: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
055048,000392:
055049,000393: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
055050,000394: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
055051,000395:
055052,000396: # THE RESTRICTIONS ARE --
055053,000397: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
055054,000398: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
055055,000399: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
055056,000400: # EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
055057,000401: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
055058,000402: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
055059,000403: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
055060,000404:
055061,000405: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS.
055062,000406:
055063,000407: # REFERENCES --
055064,000408: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
055065,000409:
055066,000410: # INPUT -- ERASABLE INITIALIZATION REQUIRED.
055067,000411: # SCALE FACTOR
055068,000412: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055069,000413: # -------- -------------- -----------------------
055070,000414: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
055071,000415: # +27 FOR MOON
055072,000416: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
055073,000417: # +5 FOR MOON
055074,000418: # RDESIRED +29 FOR EARTH DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
055075,000419: # +27 FOR MOON COMPUTED
055076,000420: # SGNRDOT NONE SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
055077,000421: # POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
055078,000422: # Page 1273
055079,000423: # SINGLE-VALUED PROBLEM.
055080,000424: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
055081,000425: # RESPECTIVELY, IS THE CENTRAL BODY.
055082,000426: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
055083,000427: # IS TO BE COMPUTED ALSO.
055084,000428:
055085,000429: # SUBROUTINES CALLED --
055086,000430: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
055087,000431:
055088,000432: # CALLING SEQUENCE AND NORMAL EXIT MODES --
055089,000433: # IF ONLY TIME IS DESIRED AS OUTPUT --
055090,000434: # L SET CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055091,000435: # L+1 RVSW
055092,000436: # L+2 TIMERAD # RETURN WITH PL AT 0 AND T IN MPAC
055093,000437: # L+3 ... # CONTINUE
055094,000438:
055095,000439: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL --
055096,000440: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055097,000441: # L+1 RVSW
055098,000442: # L+2 TIMERAD # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
055099,000443: # # THE INITIAL VELOCITY VECTOR IN MPAC.
055100,000444: # L+3 STOVL NEWVVEC
055101,000445: # L+4 STADR
055102,000446: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS.
055103,000447: # L+6 ... # CONTINUE
055104,000448:
055105,000449: # ABORT EXIT MODES --
055106,000450: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
055107,000451: # TO P00DOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721).
055108,000452:
055109,000453: # OUTPUT --
055110,000454: # SCALE FACTOR
055111,000455: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055112,000456: # -------- -------------- -----------------------
055113,000457: # T (30D) +28 DP TRANSFER TIME IN CENTISECONDS.
055114,000458: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
055115,000459: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
055116,000460: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
055117,000461: # CLEAR IF NOT.
055118,000462: # APSESW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
055119,000463: # Page 1274
055120,000464: # LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
055121,000465: # WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
055122,000466: # APOCENTER.
055123,000467: # SOLNSW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
055124,000468: # POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
055125,000469: # MINUS-18, THE SWITCH IS CLEAR.
055126,000470:
055127,000471: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT --
055128,000472: # MPAC - +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
055129,000473: # MPAC+5 +5 FOR MOON
055130,000474: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
055131,000475: # +27 FOR MOON
055132,000476:
055133,000477: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
055134,000478:
055135,000479: # DEBRIS --
055136,000480: # PARAMETERS WHICH MAY BE OF USE --
055137,000481: # SCALE FACTOR
055138,000482: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055139,000483: # -------- -------------- -----------------------
055140,000484: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
055141,000485: # +27 FOR MOON
055142,000486: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
055143,000487: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1
055144,000488: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
055145,000489: # UR1 +1 DP UNIT VECTOR OF RVEC
055146,000490: # U2 +1 DP UNIT VECTOR OF VVEC
055147,000491: # UN +1 DP UNIT VECTOR OF UR1*U2
055148,000492: # CSTH +1 DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
055149,000493: # SNTH +1 DP SINE OF TRUE ANOMALY DIFFERENCE.
055150,000494:
055151,000495: # PARAMETERS OF NO USE --
055152,000496: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2*R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
055153,000497: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW
055154,000498:
055155,000499:
055156,000500: # Page 1275
055157,000501: # PROGRAM DESCRIPTION -- APSIDES SUBROUTINE DATE -- 1 SEPTEMBER 1967
055158,000502: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
055159,000503: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
055160,000504:
055161,000505: # FUNCTIONAL DESCRIPTION --
055162,000506: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR, CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
055163,000507: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
055164,000508: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN
055165,000509: # BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
055166,000510: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
055167,000511:
055168,000512: # THE RESTRICTIONS ARE --
055169,000513: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
055170,000514: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
055171,000515: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
055172,000516: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
055173,000517:
055174,000518: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
055175,000519:
055176,000520: # REFERENCES --
055177,000521: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5.
055178,000522:
055179,000523: # INPUT -- ERASABLE INITIALIZATION REQUIRED
055180,000524: # SCALE FACTOR
055181,000525: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055182,000526: # -------- -------------- -----------------------
055183,000527: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
055184,000528: # +27 FOR MOON
055185,000529: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
055186,000530: # +5 FOR MOON
055187,000531: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
055188,000532: # RESPECTIVELY, IS THE CENTRAL BODY.
055189,000533:
055190,000534: # SUBROUTINES CALLED --
055191,000535: # PARAM, GEOM
055192,000536:
055193,000537: # CALLING SEQUENCE AND NORMAL EXIT MODES --
055194,000538: # Page 1276
055195,000539: # IF ONLY TIME IS DESIRED AS OUTPUT --
055196,000540: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
055197,000541: # L+1 APSIDES # RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
055198,000542: # L+2 STODL APOAPSE
055199,000543: # L+3 0D
055200,000544: # L+4 STORE PERIAPSE # APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS
055201,000545: # L+5 ... # CONTINUE
055202,000546:
055203,000547: # OUTPUT --
055204,000548: # SCALE FACTOR
055205,000549: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055206,000550: # -------- -------------- -----------------------
055207,000551: # MPAC +29 FOR EARTH DP RADIUS OF APOCENTER IN METERS
055208,000552: # +27 FOR MOON
055209,000553: # 0D-1D +29 FOR EARTH DP RADIUS OF PERICENTER IN METERS
055210,000554: # +27 FOR MOON
055211,000555: # ECC +3 DP ECCENTRICITY OF CONIC TRAJECTORY
055212,000556:
055213,000557: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
055214,000558:
055215,000559: # DEBRIS --
055216,000560: # PARAMETERS WHICH MAY BE OF USE --
055217,000561: # SCALE FACTOR
055218,000562: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
055219,000563: # -------- -------------- -----------------------
055220,000564: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
055221,000565: # +27 FOR MOON
055222,000566: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
055223,000567: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1
055224,000568: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
055225,000569: # UR1 +1 DP UNIT VECTOR OF RVEC
055226,000570: # U2 +1 DP UNIT VECTOR OF VVEC
055227,000571: # UN +1 DP UNIT VECTOR OF UR1*U2
055228,000572: # MAGVEC2 +7 FOR EARTH DP MAGNITUDE OF VVEC
055229,000573: # +5 FOR MOON
055230,000574:
055231,000575: # PARAMETERS OF NO USE --
055232,000576: # SP PARAMETERS -- RTNAPSE, GOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
055233,000577: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW
055234,000578:
055235,000579: 12,2000 SETLOC CONICS
055236,000580: # Page 1277
055237,000581: 12,2000 BANK
055238,000582:
055239,000583: 12,2042 COUNT 12/CONIC
055240,000584:
055241,000585: 12,2042 E5,1723 EBANK= UR1
055242,000586: 12,2042 40001 KEPLERN SETPD BOV
055243,000587: 12,2043 00001 0
055244,000588: 12,2044 24045 +1
055245,000589: 12,2045 77773 VLOAD*
055246,000590: 12,2046 11740 MUTABLE,1
055247,000591: 12,2047 24017 STOVL 14D
055248,000592: 12,2050 01503 RRECT
055249,000593: 12,2051 66256 UNIT SSP
055250,000594: 12,2052 00027 ITERCTR
055251,000595: 12,2053 00024 20D
055252,000596: 12,2054 16647 STODL URRECT
055253,000597: 12,2055 00045 36D
055254,000598: 12,2056 24041 STOVL R1
055255,000599: 12,2057 01503 RRECT
055256,000600: 12,2060 76441 DOT SL1R
055257,000601: 12,2061 01511 VRECT
055258,000602: 12,2062 76405 DMP SL1R
055259,000603: 12,2063 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
055260,000604: 12,2064 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
055261,000605:
055262,000606: 12,2065 01511 VRECT
055263,000607: 12,2066 57236 VSQ DMPR
055264,000608: 12,2067 00017 1/MU # 1/MU (-34 OR -28)
055265,000609: 12,2070 52405 DMP SL3
055266,000610: 12,2071 00041 R1
055267,000611: 12,2072 61425 DSU ROUND
055268,000612: 12,2073 11610 D1/64
055269,000613: 12,2074 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
055270,000614:
055271,000615: 12,2075 74421 BDSU SR1R
055272,000616: 12,2076 11610 D1/64
055273,000617: 12,2077 77671 DDV
055274,000618: 12,2100 00041 R1
055275,000619: 12,2101 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
055276,000620:
055277,000621: 12,2102 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
055278,000622: 12,2103 24112 1REV
055279,000623: 12,2104 11626 -50SC # -50SC (+12)
055280,000624: 12,2105 40071 DDV BOV
055281,000625: 12,2106 00011 ALPHA
055282,000626: 12,2107 24116 STOREMAX
055283,000627: 12,2110 52166 SQRT GOTO
055284,000628: 12,2111 24116 STOREMAX
055285,000629: # Page 1278
055286,000630: 12,2112 55366 1REV SQRT BDDV
055287,000631: 12,2113 11630 2PISC # 2PISC (+6)
055288,000632: 12,2114 77600 BOV
055289,000633: 12,2115 24116 STOREMAX
055290,000634: 12,2116 00013 STOREMAX STORE XMAX
055291,000635: 12,2117 65205 DMP PDDL
055292,000636: 12,2120 00023 1/ROOTMU
055293,000637: 12,2121 00011 ALPHA
055294,000638: 12,2122 65301 NORM PDDL
055295,000639: 12,2123 00047 X1
055296,000640: 12,2124 56257 SL* DDV
055297,000641: 12,2125 20173 0 -6,1
055298,000642: 12,2126 50000 BOV BMN
055299,000643: 12,2127 24143 MODDONE
055300,000644: 12,2130 24143 MODDONE # MPAC=PERIOD
055301,000645: 12,2131 51525 PERIODCH PDDL ABS # 0D=PERIOD
055302,000646: 12,2132 02312 TAU.
055303,000647: 12,2133 50025 DSU BMN
055304,000648: 12,2134 00001 0D
055305,000649: 12,2135 24143 MODDONE
055306,000650: 12,2136 77765 SIGN
055307,000651: 12,2137 02312 TAU.
055308,000652: 12,2140 16312 STODL TAU.
055309,000653: 12,2141 77650 GOTO
055310,000654: 12,2142 24131 PERIODCH
055311,000655: 12,2143 71201 MODDONE SETPD DLOAD
055312,000656: 12,2144 00001 0
055313,000657: 12,2145 02306 XKEPNEW
055314,000658: 12,2146 00025 STORE X
055315,000659: 12,2147 53165 SIGN BZE
055316,000660: 12,2150 02312 TAU.
055317,000661: 12,2151 24320 BADX
055318,000662: 12,2152 51440 BMN ABS
055319,000663: 12,2153 24320 BADX
055320,000664: 12,2154 51025 DSU BPL
055321,000665: 12,2155 00013 XMAX
055322,000666: 12,2156 24320 BADX
055323,000667: 12,2157 51145 STORBNDS DLOAD BPL
055324,000668: 12,2160 02312 TAU.
055325,000669: 12,2161 24170 STOREMIN
055326,000670: 12,2162 57545 DLOAD DCOMP
055327,000671: 12,2163 00013 XMAX
055328,000672: 12,2164 14015 STODL XMIN
055329,000673: 12,2165 11566 KEPZERO
055330,000674: 12,2166 34013 STCALL XMAX
055331,000675: 12,2167 24173 DXCOMP
055332,000676: 12,2170 77745 STOREMIN DLOAD
055333,000677: 12,2171 11566 KEPZERO
055334,000678: 12,2172 00015 STORE XMIN
055335,000679: 12,2173 57345 DXCOMP DLOAD DMPR
055336,000680: # Page 1279
055337,000681: 12,2174 02312 TAU.
055338,000682: 12,2175 11621 BEE22
055339,000683: 12,2176 77646 ABS
055340,000684: 12,2177 15350 STODL EPSILONT
055341,000685: 12,2200 01553 XPREV
055342,000686: 12,2201 77621 XDIFF BDSU
055343,000687: 12,2202 00025 X
055344,000688: 12,2203 02643 STORE DELX
055345,000689:
055346,000690: 12,2204 63545 KEPLOOP DLOAD DSQ
055347,000691: 12,2205 00025 X # X=XKEP
055348,000692: 12,2206 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
055349,000693: 12,2207 00047 X1
055350,000694: 12,2210 53605 DMP SRR*
055351,000695: 12,2211 00011 ALPHA
055352,000696: 12,2212 21573 0 -6,1
055353,000697: 12,2213 34031 STCALL XI # XI=ALPHA XSQ (+6)
055354,000698: 12,2214 24433 DELTIME
055355,000699: 12,2215 44200 BOV BDSU
055356,000700: 12,2216 24326 TIMEOVFL # UNLIKELY
055357,000701: 12,2217 02312 TAU.
055358,000702: 12,2220 02645 STORE DELT # DELT=DELINDEP
055359,000703: 12,2221 44246 ABS BDSU
055360,000704: 12,2222 01350 EPSILONT
055361,000705: 12,2223 71244 BPL DLOAD
055362,000706: 12,2224 24346 KEPCONVG
055363,000707: 12,2225 00037 T
055364,000708: 12,2226 60225 DSU NORM
055365,000709: 12,2227 01551 TC
055366,000710: 12,2230 00047 X1
055367,000711: 12,2231 60325 PDDL NORM
055368,000712: 12,2232 02643 DELX
055369,000713: 12,2233 00050 X2
055370,000714: 12,2234 41260 XSU,1 DMP
055371,000715: 12,2235 00047 X2
055372,000716: 12,2236 02645 DELT
055373,000717: 12,2237 56257 SLR* DDV
055374,000718: 12,2240 21202 1,1
055375,000719: 12,2241 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
055376,000720: 12,2242 71244 BPL DLOAD
055377,000721: 12,2243 24264 POSDELX
055378,000722: 12,2244 00025 X
055379,000723: 12,2245 00013 STORE XMAX # MOVE MAX BOUND IN
055380,000724: 12,2246 45221 BDSU DSU # PL AT 0
055381,000725: 12,2247 00015 XMIN
055382,000726: 12,2250 51000 BOV BPL
055383,000727: 12,2251 24256 NDXCHNGE
055384,000728: 12,2252 24256 NDXCHNGE
055385,000729: 12,2253 52145 DLOAD GOTO
055386,000730: # Page 1280
055387,000731: 12,2254 00001 0D
055388,000732: 12,2255 24276 NEWDELX
055389,000733:
055390,000734: 12,2256 45345 NDXCHNGE DLOAD DSU
055391,000735: 12,2257 00015 XMIN
055392,000736: 12,2260 00025 X
055393,000737: 12,2261 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
055394,000738: 12,2262 11624 DP9/10
055395,000739: 12,2263 24276 NEWDELX
055396,000740:
055397,000741: 12,2264 77745 POSDELX DLOAD
055398,000742: 12,2265 00025 X
055399,000743: 12,2266 00015 STORE XMIN # MOVE MIN BOUND IN
055400,000744: 12,2267 45221 BDSU DSU # PL AT 0
055401,000745: 12,2270 00013 XMAX
055402,000746: 12,2271 50000 BOV BMN
055403,000747: 12,2272 24312 PDXCHNGE
055404,000748: 12,2273 24312 PDXCHNGE
055405,000749: 12,2274 77745 DLOAD
055406,000750: 12,2275 00001 0D
055407,000751: 12,2276 02643 NEWDELX STORE DELX
055408,000752: 12,2277 43254 BZE DAD
055409,000753: 12,2300 24346 KEPCONVG
055410,000754: 12,2301 00025 X
055411,000755: 12,2302 14025 STODL X
055412,000756: 12,2303 00037 T
055413,000757: 12,2304 01551 STORE TC
055414,000758: 12,2305 46034 BRNCHCTR RTB BHIZ
055415,000759: 12,2306 24656 CHECKCTR
055416,000760: 12,2307 24346 KEPCONVG
055417,000761: 12,2310 77650 GOTO
055418,000762: 12,2311 24204 KEPLOOP # ITERATE
055419,000763:
055420,000764: 12,2312 45345 PDXCHNGE DLOAD DSU
055421,000765: 12,2313 00013 XMAX
055422,000766: 12,2314 00025 X
055423,000767: 12,2315 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
055424,000768: 12,2316 11624 DP9/10
055425,000769: 12,2317 24276 NEWDELX
055426,000770:
055427,000771: 12,2320 70545 BADX DLOAD SR1
055428,000772: 12,2321 00013 XMAX
055429,000773: 12,2322 77765 SIGN
055430,000774: 12,2323 02312 TAU.
055431,000775: 12,2324 34025 STCALL X
055432,000776: 12,2325 24157 STORBNDS
055433,000777: # Page 1281
055434,000778: 12,2326 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
055435,000779: 12,2327 00025 X
055436,000780: 12,2330 24344 NEGTOVFL
055437,000781: 12,2331 00013 STORE XMAX
055438,000782: 12,2332 70545 CMNTOVFL DLOAD SR1
055439,000783: 12,2333 02643 DELX
055440,000784: 12,2334 02643 STORE DELX
055441,000785: 12,2335 44254 BZE BDSU
055442,000786: 12,2336 02270 KEPRTN
055443,000787: 12,2337 00025 X
055444,000788: 12,2340 14025 STODL X
055445,000789: 12,2341 01551 TC
055446,000790: 12,2342 34037 STCALL T
055447,000791: 12,2343 24305 BRNCHCTR
055448,000792: 12,2344 34015 NEGTOVFL STCALL XMIN
055449,000793: 12,2345 24332 CMNTOVFL
055450,000794: 12,2346 44545 KEPCONVG DLOAD SR4R
055451,000795: 12,2347 00041 R1
055452,000796: 12,2350 74225 DSU VXSC
055453,000797: 12,2351 00035 XSQC(XI)
055454,000798: 12,2352 02647 URRECT
055455,000799: 12,2353 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
055456,000800: 12,2354 00025 X
055457,000801: 12,2355 60316 DSQ NORM
055458,000802: 12,2356 00047 X1
055459,000803: 12,2357 57275 DMPR DMPR
055460,000804: 12,2360 00023 1/ROOTMU
055461,000805: 12,2361 00025 X
055462,000806: 12,2362 53605 DMP SRR*
055463,000807: 12,2363 00033 S(XI)
055464,000808: 12,2364 21572 0 -7,1
055465,000809: 12,2365 77621 BDSU
055466,000810: 12,2366 00037 T
055467,000811: 12,2367 74352 SL1 VXSC
055468,000812: 12,2370 01511 VRECT
055469,000813: 12,2371 53372 VSL1 VAD
055470,000814: 12,2372 77712 VSL4
055471,000815: 12,2373 01535 STORE RCV # RCV (+29 OR +27)
055472,000816:
055473,000817: 12,2374 60246 ABVAL NORM
055474,000818: 12,2375 00050 X2
055475,000819: 12,2376 16655 STODL RCNORM
055476,000820: 12,2377 00031 XI
055477,000821: 12,2400 45275 DMPR DSU
055478,000822: 12,2401 00033 S(XI)
055479,000823: 12,2402 11606 D1/128
055480,000824: 12,2403 76405 DMP SL1R
055481,000825: 12,2404 00021 ROOTMU
055482,000826: 12,2405 53605 DMP SLR*
055483,000827: # Page 1282
055484,000828: 12,2406 00025 X
055485,000829: 12,2407 56601 0 -3,2
055486,000830: 12,2410 74271 DDV VXSC
055487,000831: 12,2411 02655 RCNORM
055488,000832: 12,2412 02647 URRECT
055489,000833: 12,2413 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
055490,000834: 12,2414 00035 XSQC(XI) # OR +13) PL AT 6
055491,000835: 12,2415 56257 SLR* DDV
055492,000836: 12,2416 56602 0 -4,2
055493,000837: 12,2417 02655 RCNORM
055494,000838: 12,2420 74221 BDSU VXSC
055495,000839: 12,2421 11622 D1/256
055496,000840: 12,2422 01511 VRECT
055497,000841: 12,2423 42455 VAD VSL8
055498,000842: 12,2424 77626 STADR # PL AT 0
055499,000843: 12,2425 62234 STODL VCV # VCV (+7 OR +5)
055500,000844: 12,2426 00037 T
055501,000845: 12,2427 15551 STODL TC
055502,000846: 12,2430 00025 X
055503,000847: 12,2431 35553 STCALL XPREV
055504,000848: 12,2432 02270 KEPRTN
055505,000849:
055506,000850: # Page 1283
055507,000851: 12,2433 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
055508,000852: 12,2434 07171 TC POLY
055509,000853: 12,2435 00010 DEC 8 B-14
055510,000854: 12,2436 02525 12526 2DEC .083333334
055511,000855:
055512,000856: 12,2440 67356 75666 2DEC -.266666684
055513,000857:
055514,000858: 12,2442 15001 23771 2DEC .406349155
055515,000859:
055516,000860: 12,2444 64342 43674 2DEC -.361198675
055517,000861:
055518,000862: 12,2446 06563 04645 2DEC .210153242
055519,000863:
055520,000864: 12,2450 75173 52672 2DEC -.086221951
055521,000865:
055522,000866: 12,2452 00656 14331 2DEC .026268812
055523,000867:
055524,000868: 12,2454 77633 40512 2DEC -.006163316
055525,000869:
055526,000870: 12,2456 00023 11210 2DEC .001177342
055527,000871:
055528,000872: 12,2460 77774 67506 2DEC -.000199055
055529,000873:
055530,000874: 12,2462 06006 TC INTPRET
055531,000875: 12,2463 14033 STODL S(XI)
055532,000876: 12,2464 00031 XI
055533,000877: 12,2465 77776 EXIT
055534,000878: 12,2466 07171 TC POLY
055535,000879: 12,2467 00010 DEC 8 B-14
055536,000880: 12,2470 01000 00000 2DEC .031250001
055537,000881:
055538,000882: 12,2472 72525 52506 2DEC -.166666719
055539,000883:
055540,000884: 12,2474 13301 15337 2DEC .355555413
055541,000885:
055542,000886: 12,2476 62776 54733 2DEC -.406347410
055543,000887:
055544,000888: 12,2500 11176 13267 2DEC .288962094
055545,000889:
055546,000890: 12,2502 73410 51674 2DEC -.140117894
055547,000891:
055548,000892: 12,2504 01446 33641 2DEC .049247387
055549,000893:
055550,000894: 12,2506 77451 65233 2DEC -.013081923
055551,000895:
055552,000896: 12,2510 00055 37266 2DEC .002806389
055553,000897:
055554,000898: 12,2512 77767 52336 2DEC -.000529414
055555,000899:
055556,000900: 12,2514 06006 TC INTPRET
055557,000901: # Page 1284
055558,000902: 12,2515 53605 DMP SRR* # PL AT 0
055559,000903: 12,2516 00001 0D
055560,000904: 12,2517 21574 0 -5,1
055561,000905: 12,2520 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
055562,000906: 12,2521 72405 DMP SL1
055563,000907: 12,2522 00043 KEPC1
055564,000908: 12,2523 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46)
055565,000909: 12,2524 45565 TPMODE # PL AT 0,3
055566,000910: 12,2525 53605 DMP SRR*
055567,000911: 12,2526 00033 S(XI)
055568,000912: 12,2527 21574 0 -5,1
055569,000913: 12,2530 72405 DMP SL1
055570,000914: 12,2531 00045 KEPC2
055571,000915: 12,2532 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
055572,000916: 12,2533 45565 TPMODE
055573,000917: 12,2534 00041 R1
055574,000918: 12,2535 76261 SR TAD # PL AT 3
055575,000919: 12,2536 20607 6
055576,000920: 12,2537 41301 NORM DMP # TO PRESERVE SIGNIF.
055577,000921: 12,2540 00047 X1
055578,000922: 12,2541 00025 X
055579,000923: 12,2542 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
055580,000924: 12,2543 20576 0 -3,1
055581,000925: 12,2544 57232 SL4R DMPR
055582,000926: 12,2545 00023 1/ROOTMU
055583,000927: 12,2546 00037 STORE T
055584,000928: 12,2547 77616 RVQ
055585,000929:
055586,000930: # Page 1285
055587,000931: 12,2550 71214 ITERATOR BONCLR DLOAD
055588,000932: 12,2551 00614 SLOPESW
055589,000933: 12,2552 24620 FIRSTIME
055590,000934: 12,2553 00037 DEP
055591,000935: 12,2554 60225 DSU NORM
055592,000936: 12,2555 02764 DEPREV
055593,000937: 12,2556 00047 X1
055594,000938: 12,2557 60325 PDDL NORM
055595,000939: 12,2560 00015 DELINDEP
055596,000940: 12,2561 00050 X2
055597,000941: 12,2562 41260 XSU,1 DMP
055598,000942: 12,2563 00047 X2
055599,000943: 12,2564 02762 DELDEP
055600,000944: 12,2565 56257 SLR* DDV # PL UP 2
055601,000945: 12,2566 21202 1,1
055602,000946: 12,2567 43142 SR1 BOFF
055603,000947: 12,2570 04351 ORDERSW
055604,000948: 12,2571 24574 SGNCHECK
055605,000949: 12,2572 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
055606,000950: 12,2573 02762 DELDEP # DISREGARD IT TO FIND MIN.
055607,000951:
055608,000952: 12,2574 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
055609,000953: 12,2575 24632 POSDEL
055610,000954: 12,2576 43145 DLOAD BON
055611,000955: 12,2577 03775 INDEP
055612,000956: 12,2600 04311 ORDERSW
055613,000957: 12,2601 24603 MINCHECK
055614,000958: 12,2602 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
055615,000959:
055616,000960: 12,2603 45221 MINCHECK BDSU DSU
055617,000961: 12,2604 00011 MIN
055618,000962: 12,2605 51000 BOV BPL
055619,000963: 12,2606 24612 MODNGDEL
055620,000964: 12,2607 24612 MODNGDEL
055621,000965: 12,2610 77650 GOTO
055622,000966: 12,2611 24644 DELOK
055623,000967:
055624,000968: 12,2612 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
055625,000969: 12,2613 00011 MIN
055626,000970: 12,2614 03775 INDEP
055627,000971: 12,2615 52005 DMP GOTO
055628,000972: 12,2616 11624 DP9/10
055629,000973: 12,2617 24646 NEWDEL
055630,000974:
055631,000975: 12,2620 41345 FIRSTIME DLOAD DMP
055632,000976: 12,2621 00011 MIN
055633,000977: 12,2622 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
055634,000978: 12,2623 41325 PDDL DMP # S2(41D) SHOULDN'T CONTAIN HI ORDER ONES
055635,000979: # Page 1286
055636,000980: 12,2624 00017 MAX
055637,000981: 12,2625 00051 TWEEKIT
055638,000982: 12,2626 77625 DSU
055639,000983: 12,2627 52165 SIGN GOTO
055640,000984: 12,2630 02762 DELDEP
055641,000985: 12,2631 24574 SGNCHECK
055642,000986:
055643,000987: 12,2632 43145 POSDEL DLOAD BON
055644,000988: 12,2633 03775 INDEP
055645,000989: 12,2634 04311 ORDERSW
055646,000990: 12,2635 24637 MAXCHECK
055647,000991: 12,2636 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
055648,000992:
055649,000993: 12,2637 45221 MAXCHECK BDSU DSU
055650,000994: 12,2640 00017 MAX
055651,000995: 12,2641 50000 BOV BMN
055652,000996: 12,2642 24650 MODPSDEL
055653,000997: 12,2643 24650 MODPSDEL
055654,000998: 12,2644 77745 DELOK DLOAD
055655,000999: 12,2645 00001 0D
055656,001000: 12,2646 00015 NEWDEL STORE DELINDEP
055657,001001: 12,2647 77616 RVQ
055658,001002:
055659,001003: 12,2650 45345 MODPSDEL DLOAD DSU
055660,001004: 12,2651 00017 MAX
055661,001005: 12,2652 03775 INDEP
055662,001006: 12,2653 52005 DMP GOTO
055663,001007: 12,2654 11624 DP9/10
055664,001008: 12,2655 24646 NEWDEL
055665,001009:
055666,001010: 12,2656 45017 CHECKCTR CS ONE
055667,001011: 12,2657 50120 INDEX FIXLOC
055668,001012: 12,2660 60026 AD ITERCTR
055669,001013: 12,2661 50120 INDEX FIXLOC
055670,001014: 12,2662 54026 TS ITERCTR
055671,001015: 12,2663 54154 TS MPAC
055672,001016: 12,2664 06030 TC DANZIG
055673,001017:
055674,001018: # Page 1287
055675,001019: 12,2665 44545 NEWSTATE DLOAD SR4R
055676,001020: 12,2666 00041 R1
055677,001021: 12,2667 74225 DSU VXSC
055678,001022: 12,2670 00035 XSQC(XI)
055679,001023: 12,2671 02724 UR1
055680,001024: 12,2672 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
055681,001025: 12,2673 00025 X
055682,001026: 12,2674 60316 DSQ NORM
055683,001027: 12,2675 00047 X1
055684,001028: 12,2676 57275 DMPR DMPR
055685,001029: 12,2677 00023 1/ROOTMU
055686,001030: 12,2700 00025 X
055687,001031: 12,2701 53605 DMP SRR*
055688,001032: 12,2702 00033 S(XI)
055689,001033: 12,2703 21572 0 -7,1
055690,001034: 12,2704 77621 BDSU
055691,001035: 12,2705 00037 T
055692,001036: 12,2706 74352 SL1 VXSC
055693,001037: 12,2707 02746 VVEC
055694,001038: 12,2710 53372 VSL1 VAD # PL AT 0
055695,001039: 12,2711 41512 VSL4 PUSH
055696,001040: 12,2712 77646 ABVAL
055697,001041: 12,2713 77701 LAMENTER NORM
055698,001042: 12,2714 00047 X1
055699,001043: 12,2715 16722 STODL R2
055700,001044: 12,2716 00031 XI
055701,001045: 12,2717 45205 DMP DSU
055702,001046: 12,2720 00033 S(XI)
055703,001047: 12,2721 11606 D1/128
055704,001048: 12,2722 76405 DMP SL1R
055705,001049: 12,2723 00021 ROOTMU
055706,001050: 12,2724 53605 DMP SLR*
055707,001051: 12,2725 00025 X
055708,001052: 12,2726 21176 0 -3,1
055709,001053: 12,2727 74271 DDV VXSC
055710,001054: 12,2730 02722 R2
055711,001055: 12,2731 02724 UR1
055712,001056: 12,2732 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
055713,001057: 12,2733 00035 XSQC(XI)
055714,001058: 12,2734 56257 SLR* DDV
055715,001059: 12,2735 21175 0 -4,1
055716,001060: 12,2736 02722 R2
055717,001061: 12,2737 77621 BDSU
055718,001062: 12,2740 11622 D1/256
055719,001063: 12,2741 53361 VXSC VAD
055720,001064: 12,2742 02746 VVEC # PL AT 6
055721,001065: 12,2743 43412 VSL8 RVQ
055722,001066:
055723,001067: # Page 1288
055724,001068: 04,2000 SETLOC CONICS1
055725,001069: 04,2000 BANK
055726,001070:
055727,001071: 04,3602 COUNT 04/CONIC
055728,001072: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
055729,001073: 04,3602 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
055730,001074: 04,3603 04000 00000 D1/8 2DEC 1.0 B-3
055731,001075:
055732,001076: 04,3605 00200 00000 D1/128 2DEC 1.0 B-7
055733,001077:
055734,001078: 04,3607 00400 00000 D1/64 2DEC 1.0 B-6
055735,001079:
055736,001080: 04,3611 10000 00000 D1/4 2DEC 1.0 B-2
055737,001081:
055738,001082: 04,3613 02000 00000 D1/16 2DEC 1.0 B-4
055739,001083:
055740,001084: 04,3615 01000 00000 D1/32 2DEC 1.0 B-5
055741,001085:
055742,001086: 04,3617 00020 00000 D1/1024 2DEC 1.0 B-10
055743,001087:
055744,001088: 04,3621 00100 00000 D1/256 2DEC 1.0 B-8
055745,001089:
055746,001090: 04,3623 34631 23146 DP9/10 2DEC .9
055747,001091:
055748,001092: 04,3625 04,3565 KEPZERO EQUALS LO6ZEROS
055749,001093: 04,3625 77467 77777 -50SC 2DEC -50.0 B-12
055750,001094:
055751,001095: 04,3627 03110 17665 2PISC 2DEC 6.28318530 B-6
055752,001096:
055753,001097: 04,3631 04,3614 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
055754,001098: 04,3631 04,3620 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
055755,001099: 04,3631 00000 00001 ONEBIT 2DEC 1.0 B-28
055756,001100:
055757,001101: 04,3633 37767 37737 COGUPLIM 2DEC .999511597
055758,001102:
055759,001103: 04,3635 40010 40040 COGLOLIM 2DEC -.999511597
055760,001104:
055761,001105: # Page 1289
055762,001106: 12,2000 SETLOC CONICS
055763,001107: 12,2000 BANK
055764,001108:
055765,001109: 12,2744 COUNT 12/CONIC
055766,001110:
055767,001111: 12,2744 40220 TIMETHET STQ SETPD # PL AT 0
055768,001112: 12,2745 02712 RTNTT
055769,001113: 12,2746 00001 0
055770,001114: 12,2747 77600 BOV
055771,001115: 12,2750 24751 +1
055772,001116: 12,2751 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
055773,001117: 12,2752 02657 RVEC
055774,001118: 12,2753 02746 VVEC
055775,001119: 12,2754 77624 CALL
055776,001120: 12,2755 11637 PARAM
055777,001121: 12,2756 45000 BOV CALL
055778,001122: 12,2757 24776 COGAOVFL # PL AT 0
055779,001123: 12,2760 25001 GETX
055780,001124: 12,2761 43145 COMMNOUT DLOAD BON
055781,001125: 12,2762 00031 XI
055782,001126: 12,2763 04310 INFINFLG
055783,001127: 12,2764 25751 ABTCONIC
055784,001128: 12,2765 45014 CLEAR CALL
055785,001129: 12,2766 04273 COGAFLAG
055786,001130: 12,2767 24433 DELTIME
055787,001131: 12,2770 45014 BON CALL
055788,001132: 12,2771 03706 RVSW
055789,001133: 12,2772 02712 RTNTT
055790,001134: 12,2773 24665 NEWSTATE
055791,001135: 12,2774 77650 GOTO
055792,001136: 12,2775 02712 RTNTT
055793,001137:
055794,001138: 12,2776 77614 COGAOVFL SETGO
055795,001139: 12,2777 04033 COGAFLAG
055796,001140: 12,3000 25751 ABTCONIC
055797,001141: 04,3637 BANK 4
055798,001142: 04,2000 SETLOC CONICS1
055799,001143: 04,2000 BANK
055800,001144: 04,3637 COUNT* $$/CONIC
055801,001145: 04,3637 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
055802,001146: 04,3640 02755 RTNPRM
055803,001147: 04,3641 03665 NORMSW
055804,001148: 04,3642 77614 CLEAR
055805,001149: 04,3643 04273 COGAFLAG
055806,001150: 04,3644 45131 SSP CALL
055807,001151: 04,3645 02675 GEOMSGN
055808,001152: 04,3646 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
055809,001153: 04,3647 11702 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
055810,001154: 04,3650 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
055811,001155: # Page 1290
055812,001156: 04,3651 56261 SR DDV
055813,001157: 04,3652 20606 5
055814,001158:
055815,001159: 04,3653 00045 36D
055816,001160: 04,3654 33775 STOVL* COGA
055817,001161: 04,3655 11740 MUTABLE,1
055818,001162: 04,3656 14017 STODL 1/MU
055819,001163: 04,3657 02722 MAGVEC2
055820,001164: 04,3660 60316 DSQ NORM
055821,001165: 04,3661 00047 X1
055822,001166: 04,3662 41275 DMPR DMP
055823,001167: 04,3663 00017 1/MU
055824,001168: 04,3664 00041 R1
055825,001169: 04,3665 77657 SRR*
055826,001170: 04,3666 21576 0 -3,1
055827,001171: 04,3667 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
055828,001172: 04,3670 11616 D1/32
055829,001173: 04,3671 16744 STODL R1A # R1A (+6) PL AT 0
055830,001174:
055831,001175: 04,3672 60205 DMP NORM
055832,001176: 04,3673 00045 36D
055833,001177: 04,3674 00047 X1
055834,001178: 04,3675 53605 DMP SR*
055835,001179: 04,3676 00045 36D
055836,001180: 04,3677 20575 0 -4,1
055837,001181: 04,3700 36742 STCALL P # P (+4)
055838,001182: 04,3701 02755 RTNPRM
055839,001183:
055840,001184: # Page 1291
055841,001185: 04,3702 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
055842,001186: 04,3703 16714 STODL U2 # U2 (+1)
055843,001187: 04,3704 00045 36D
055844,001188: 04,3705 26722 STOVL MAGVEC2 # PL AT 0
055845,001189: 04,3706 77656 UNIT
055846,001190: 04,3707 02724 STORE UR1 # UR1 (+1)
055847,001191: 04,3710 72441 DOT SL1
055848,001192: 04,3711 02714 U2
055849,001193: 04,3712 77725 PDDL # 0D=CSTH (+1) PL AT 2
055850,001194: 04,3713 00045 36D
055851,001195: 04,3714 24041 STOVL R1 # R1 (+29 OR +27)
055852,001196: 04,3715 02724 UR1
055853,001197: 04,3716 76435 VXV VSL1
055854,001198: 04,3717 02714 U2
055855,001199: 04,3720 75214 BON SIGN
055856,001200: 04,3721 03705 NORMSW
055857,001201: 04,3722 11734 HAVENORM
055858,001202: 04,3723 02675 GEOMSGN
055859,001203: 04,3724 40056 UNIT BOV
055860,001204: 04,3725 11732 COLINEAR
055861,001205: 04,3726 16676 UNITNORM STODL UN # UN (+1)
055862,001206: 04,3727 00045 36D
055863,001207: 04,3730 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055864,001208: 04,3731 02675 GEOMSGN
055865,001209:
055866,001210: 04,3732 52162 COLINEAR VSR1 GOTO
055867,001211: 04,3733 11726 UNITNORM
055868,001212:
055869,001213: 04,3734 75246 HAVENORM ABVAL SIGN
055870,001214: 04,3735 02675 GEOMSGN
055871,001215: 04,3736 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055872,001216:
055873,001217: # Page 1292
055874,001218: 12,3001 BANK 12
055875,001219: 12,2000 SETLOC CONICS
055876,001220: 12,2000 BANK
055877,001221:
055878,001222: 12,3001 COUNT 12/CONIC
055879,001223:
055880,001224: 12,3001 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
055881,001225: 12,3002 00003 3
055882,001226: 12,3003 00052 S2
055883,001227: 12,3004 00001 1
055884,001228: 12,3005 77614 CLEAR
055885,001229: 12,3006 04276 360SW
055886,001230: 12,3007 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
055887,001231: 12,3010 02734 CSTH
055888,001232: 12,3011 44342 SR1 BDSU
055889,001233: 12,3012 11612 D1/4
055890,001234: 12,3013 54325 PDDL SRR # PL AT 4D
055891,001235: 12,3014 02732 SNTH
055892,001236: 12,3015 21607 6
055893,001237: 12,3016 77671 DDV # PL AT 2
055894,001238: 12,3017 77600 BOV
055895,001239: 12,3020 25134 360CHECK
055896,001240: 12,3021 41225 DSU DMP
055897,001241: 12,3022 03775 COGA # PL AT 0
055898,001242: 12,3023 40132 SL2R BOV
055899,001243: 12,3024 25134 360CHECK
055900,001244: 12,3025 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
055901,001245: 12,3026 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
055902,001246: 12,3027 00155 MPAC
055903,001247: 12,3030 02744 R1A
055904,001248: 12,3031 76202 SR4 TAD # PL AT 2
055905,001249: 12,3032 75440 BMN SQRT
055906,001250: 12,3033 25217 INFINITY
055907,001251: 12,3034 43306 ROUND DAD # PL AT 0D
055908,001252: 12,3035 61000 BOV TIX,2
055909,001253: 12,3036 25132 RESETX2
055910,001254: 12,3037 25025 WLOOP
055911,001255:
055912,001256: 12,3040 40065 BDDV BOV
055913,001257: 12,3041 11606 D1/128
055914,001258: 12,3042 25217 INFINITY
055915,001259: 12,3043 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
055916,001260: 12,3044 25217 INFINITY
055917,001261: 12,3045 77716 DSQ
055918,001262: 12,3046 41301 NORM DMP
055919,001263: 12,3047 00047 X1
055920,001264: 12,3050 02744 R1A
055921,001265: 12,3051 77457 SRR* EXIT
055922,001266: 12,3052 21567 0 -10D,1
055923,001267: # Page 1293
055924,001268: 12,3053 07171 TC POLY
055925,001269: 12,3054 00005 DEC 5 B-14
055926,001270: 12,3055 20000 00000 2DEC .5
055927,001271:
055928,001272: 12,3057 72525 52471 2DEC -.166666770
055929,001273:
055930,001274: 12,3061 03146 15003 2DEC .100000392
055931,001275:
055932,001276: 12,3063 75556 45210 2DEC -.071401086
055933,001277:
055934,001278: 12,3065 01615 13553 2DEC .055503292
055935,001279:
055936,001280: 12,3067 76371 63777 2DEC -.047264098
055937,001281:
055938,001282: 12,3071 01232 27367 2DEC .040694204
055939,001283:
055940,001284: 12,3073 06006 TC INTPRET
055941,001285: 12,3074 76405 DMP SL1R # PL AT 0D
055942,001286: 12,3075 43006 PUSH BON
055943,001287: 12,3076 04316 360SW
055944,001288: 12,3077 25204 TRUE360X
055945,001289: 12,3100 60316 XCOMMON DSQ NORM
055946,001290: 12,3101 00047 X1
055947,001291: 12,3102 53605 DMP SRR*
055948,001292: 12,3103 02744 R1A
055949,001293: 12,3104 21565 0 -12D,1
055950,001294: 12,3105 14031 STODL XI # XI (+6)
055951,001295:
055952,001296: 12,3106 00041 R1
055953,001297: 12,3107 75542 SR1 SQRT
055954,001298: 12,3110 41306 ROUND DMP
055955,001299: 12,3111 77632 SL4R # PL AT 0
055956,001300: 12,3112 00025 STORE X # X (+17 OR +16)
055957,001301:
055958,001302: 12,3113 60316 DSQ NORM
055959,001303: 12,3114 00047 X1
055960,001304: 12,3115 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
055961,001305: 12,3116 02742 P
055962,001306: 12,3117 00041 R1
055963,001307: 12,3120 75452 SL3 SQRT
055964,001308: 12,3121 56405 DMP SL3R
055965,001309: 12,3122 03775 COGA
055966,001310: 12,3123 14043 STODL KEPC1
055967,001311: 12,3124 02744 R1A
055968,001312: 12,3125 43021 BDSU CLEAR
055969,001313: 12,3126 11610 D1/64
055970,001314: 12,3127 04270 INFINFLG
055971,001315: 12,3130 00045 STORE KEPC2
055972,001316: # Page 1294
055973,001317: 12,3131 77616 RVQ
055974,001318:
055975,001319: 12,3132 77774 RESETX2 AXT,2
055976,001320: 12,3133 00003 3
055977,001321:
055978,001322: 12,3134 51001 360CHECK SETPD BPL
055979,001323: 12,3135 00001 0D
055980,001324: 12,3136 25141 INVRSEQN
055981,001325: 12,3137 77614 SET
055982,001326: 12,3140 04076 360SW
055983,001327:
055984,001328: 12,3141 75545 INVRSEQN DLOAD SQRT
055985,001329: 12,3142 02742 P
055986,001330: 12,3143 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
055987,001331: 12,3144 02732 SNTH
055988,001332: 12,3145 03775 COGA
055989,001333: 12,3146 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
055990,001334: 12,3147 02734 CSTH
055991,001335: 12,3150 43202 SR4 DAD
055992,001336: 12,3151 11616 D1/32
055993,001337: 12,3152 41225 DSU DMP # PL AT 2,0
055994,001338: 12,3153 55301 NORM BDDV
055995,001339: 12,3154 00047 X1
055996,001340: 12,3155 02732 SNTH
055997,001341: 12,3156 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
055998,001342: 12,3157 21174 0 -5,1
055999,001343: 12,3160 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
056000,001344: 12,3161 14043 STODL 34D
056001,001345: 12,3162 11614 D1/16
056002,001346: 12,3163 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
056003,001347: 12,3164 65234 RTB PDDL # PL AT 7
056004,001348: 12,3165 45565 TPMODE
056005,001349: 12,3166 02744 R1A
056006,001350: 12,3167 40405 DMP SR4
056007,001351: 12,3170 00043 34D
056008,001352: 12,3171 77771 TAD
056009,001353: 12,3172 75440 BMN SQRT # PL AT 4
056010,001354: 12,3173 25217 INFINITY
056011,001355: 12,3174 77615 DAD # PL AT 2
056012,001356: 12,3175 60304 TIX,2 NORM
056013,001357: 12,3176 25163 1/WLOOP
056014,001358: 12,3177 00047 X1
056015,001359: 12,3200 77665 BDDV
056016,001360: 12,3201 52057 SLR* GOTO # PL AT 0
056017,001361: 12,3202 21172 0 -7,1
056018,001362: 12,3203 25043 POLYCOEF
056019,001363:
056020,001364: # Page 1295
056021,001365: 12,3204 50145 TRUE360X DLOAD BMN
056022,001366: 12,3205 02744 R1A
056023,001367: 12,3206 25217 INFINITY
056024,001368: 12,3207 60366 SQRT NORM
056025,001369: 12,3210 00047 X1
056026,001370: 12,3211 53665 BDDV SL*
056027,001371: 12,3212 11630 2PISC
056028,001372: 12,3213 20176 0 -3,1
056029,001373: 12,3214 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
056030,001374: 12,3215 77650 GOTO
056031,001375: 12,3216 25100 XCOMMON
056032,001376: 12,3217 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
056033,001377: 12,3220 00001 0 # INFINITY IS REQUIRED
056034,001378: 12,3221 25222 OVFLCLR
056035,001379: 12,3222 43414 OVFLCLR SET RVQ
056036,001380: 12,3223 04070 INFINFLG
056037,001381:
056038,001382: # Page 1296
056039,001383: 12,3224 40220 LAMBERT STQ SETPD
056040,001384: 12,3225 02712 RTNLAMB
056041,001385: 12,3226 00001 0D
056042,001386: 12,3227 77600 BOV
056043,001387: 12,3230 25231 +1
056044,001388: 12,3231 76731 SSP VLOAD*
056045,001389: 12,3232 00027 ITERCTR
056046,001390: 12,3233 00024 20D
056047,001391: 12,3234 11740 MUTABLE,1
056048,001392: 12,3235 14017 STODL 1/MU
056049,001393: 12,3236 02673 TDESIRED
056050,001394: 12,3237 77675 DMPR
056051,001395: 12,3240 11615 BEE19
056052,001396: 12,3241 03777 STORE EPSILONL
056053,001397: 12,3242 77214 SET VLOAD
056054,001398: 12,3243 00474 SLOPESW
056055,001399: 12,3244 02657 R1VEC
056056,001400: 12,3245 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
056057,001401: 12,3246 02665 R2VEC # MPAC=R2VEC (+29 OR +27)
056058,001402: 12,3247 11702 GEOM
056059,001403: 12,3250 16732 STODL SNTH # 0D=CSTH (+1) PL AT 2
056060,001404: 12,3251 02722 MAGVEC2
056061,001405: 12,3252 65301 NORM PDDL # PL AT 4
056062,001406: 12,3253 00047 X1
056063,001407: 12,3254 00041 R1
056064,001408: 12,3255 56342 SR1 DDV # PL AT 2
056065,001409: 12,3256 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
056066,001410: 12,3257 20173 0 -6,1
056067,001411: 12,3260 77626 STADR
056068,001412: 12,3261 75043 STORE CSTH # CSTH (+1)
056069,001413: 12,3262 44342 SR1 BDSU
056070,001414: 12,3263 11612 D1/4
056071,001415: 12,3264 02736 STORE 1-CSTH # 1-CSTH (+2)
056072,001416:
056073,001417: 12,3265 53106 ROUND BZE
056074,001418: 12,3266 25473 360LAMB
056075,001419: 12,3267 65301 NORM PDDL # PL AT 4
056076,001420: 12,3270 00047 X1
056077,001421: 12,3271 00001 0D
056078,001422: 12,3272 56342 SR1 DDV # PL AT 2
056079,001423: 12,3273 75457 SL* SQRT
056080,001424: 12,3274 20176 0 -3,1
056081,001425: 12,3275 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
056082,001426: 12,3276 02732 SNTH
056083,001427: 12,3277 20607 6
056084,001428: 12,3300 43271 DDV DAD # PL AT 2
056085,001429: 12,3301 02736 1-CSTH
056086,001430: 12,3302 77626 STADR
056087,001431: 12,3303 77760 STORE COGAMAX
056088,001432: 12,3304 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
056089,001433: # Page 1297
056090,001434: 12,3305 25312 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
056091,001435: 12,3306 25315 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
056092,001436: 12,3307 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
056093,001437: 12,3310 11634 COGUPLIM
056094,001438: 12,3311 25315 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
056095,001439: 12,3312 77745 UPLIM DLOAD
056096,001440: 12,3313 11634 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
056097,001441: 12,3314 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
056098,001442: 12,3315 77745 MAXCOGA DLOAD
056099,001443: 12,3316 02734 CSTH
056100,001444: 12,3317 45261 SR DSU # PL AT 0
056101,001445: 12,3320 20607 6
056102,001446: 12,3321 77626 STADR
056103,001447: 12,3322 61037 STODL CSTH-RHO
056104,001448: 12,3323 02675 GEOMSGN
056105,001449: 12,3324 71240 BMN DLOAD
056106,001450: 12,3325 25512 LOLIM
056107,001451: 12,3326 02740 CSTH-RHO
056108,001452: 12,3327 56352 SL1 DDV
056109,001453: 12,3330 02732 SNTH
056110,001454: 12,3331 77600 BOV
056111,001455: 12,3332 25512 LOLIM
056112,001456: 12,3333 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
056113,001457: 12,3334 66214 BON SSP
056114,001458: 12,3335 00715 GUESSW
056115,001459: 12,3336 25477 NOGUESS
056116,001460: 12,3337 00051 TWEEKIT
056117,001461: 12,3340 00001 00001
056118,001462: 12,3341 77745 DLOAD
056119,001463: 12,3342 03775 COGA
056120,001464:
056121,001465: 12,3343 77605 LAMBLOOP DMP
056122,001466: 12,3344 02732 SNTH
056123,001467: 12,3345 45342 SR1 DSU
056124,001468: 12,3346 02740 CSTH-RHO
056125,001469: 12,3347 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(XI)) PL=2
056126,001470: 12,3350 00047 X1
056127,001471: 12,3351 02736 1-CSTH
056128,001472: 12,3352 56257 SL* DDV # 1-CSTH (+2) PL AT 0
056129,001473: 12,3353 20170 0 -9D,1
056130,001474: 12,3354 53040 BMN BZE
056131,001475: 12,3355 25431 NEGP
056132,001476: 12,3356 25431 NEGP
056133,001477: 12,3357 16742 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
056134,001478: 12,3360 03775 COGA
056135,001479: 12,3361 43316 DSQ DAD
056136,001480: 12,3362 11620 D1/1024
056137,001481: 12,3363 41301 NORM DMP
056138,001482: 12,3364 00047 X1
056139,001483: # Page 1298
056140,001484: 12,3365 02742 P
056141,001485: 12,3366 44257 SR* BDSU
056142,001486: 12,3367 20571 0 -8D,1
056143,001487: 12,3370 11616 D1/32
056144,001488: 12,3371 16744 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
056145,001489:
056146,001490: 12,3372 02742 P
056147,001491: 12,3373 45000 BOV CALL
056148,001492: 12,3374 25434 HIENERGY
056149,001493: 12,3375 25001 GETX
056150,001494: 12,3376 77745 DLOAD
056151,001495: 12,3377 00037 T
056152,001496: 12,3400 16764 STODL TPREV
056153,001497: 12,3401 00031 XI
056154,001498: 12,3402 45014 BON CALL
056155,001499: 12,3403 04310 INFINFLG
056156,001500: 12,3404 25431 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
056157,001501: 12,3405 24433 DELTIME
056158,001502: 12,3406 44200 BOV BDSU
056159,001503: 12,3407 25450 BIGTIME
056160,001504: 12,3410 02673 TDESIRED
056161,001505: 12,3411 02762 STORE TERRLAMB
056162,001506: 12,3412 44246 ABS BDSU
056163,001507: 12,3413 03777 EPSILONL
056164,001508: 12,3414 47044 BPL RTB
056165,001509: 12,3415 25515 INITV
056166,001510: 12,3416 24656 CHECKCTR
056167,001511: 12,3417 45030 BHIZ CALL
056168,001512: 12,3420 25460 SUFFCHEK
056169,001513: 12,3421 24550 ITERATOR
056170,001514: 12,3422 53145 DLOAD BZE
056171,001515: 12,3423 00155 MPAC
056172,001516: 12,3424 25460 SUFFCHEK
056173,001517: 12,3425 77615 DAD
056174,001518: 12,3426 03775 COGA
056175,001519: 12,3427 37775 STCALL COGA
056176,001520: 12,3430 25343 LAMBLOOP
056177,001521:
056178,001522: 12,3431 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
056179,001523: 12,3432 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
056180,001524: 12,3433 25453 LOENERGY
056181,001525:
056182,001526: 12,3434 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED.
056183,001527: 12,3435 00001 0
056184,001528: 12,3436 03775 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
056185,001529: 12,3437 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
056186,001530: 12,3440 70545 COMMONLM DLOAD SR1
056187,001531: 12,3441 00015 DCOGA
056188,001532: # Page 1299
056189,001533: 12,3442 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
056190,001534: 12,3443 44254 BZE BDSU
056191,001535: 12,3444 25460 SUFFCHEK
056192,001536: 12,3445 03775 COGA
056193,001537: 12,3446 37775 STCALL COGA
056194,001538: 12,3447 25343 LAMBLOOP
056195,001539:
056196,001540: 12,3450 77745 BIGTIME DLOAD
056197,001541: 12,3451 02764 TPREV
056198,001542: 12,3452 00037 STORE T
056199,001543:
056200,001544: 12,3453 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
056201,001545: 12,3454 00001 0
056202,001546: 12,3455 03775 COGA # IN OVERFLOW OF TIME.
056203,001547: 12,3456 34017 STCALL COGAMAX # THIS IS THE NEW BOUND.
056204,001548: 12,3457 25440 COMMONLM
056205,001549:
056206,001550: 12,3460 51545 SUFFCHEK DLOAD ABS
056207,001551: 12,3461 02762 TERRLAMB
056208,001552: 12,3462 41325 PDDL DMP
056209,001553: 12,3463 02673 TDESIRED # PL AT 2D
056210,001554: 12,3464 11612 D1/4
056211,001555: 12,3465 45215 DAD DSU # PL AT 0D
056212,001556: 12,3466 11632 ONEBIT
056213,001557: 12,3467 43044 BPL SETGO
056214,001558: 12,3470 25515 INITV
056215,001559: 12,3471 02434 SOLNSW
056216,001560: 12,3472 02712 RTNLAMB
056217,001561:
056218,001562: 12,3473 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
056219,001563: 12,3474 00001 0
056220,001564: 12,3475 02434 SOLNSW
056221,001565: 12,3476 02712 RTNLAMB
056222,001566:
056223,001567: 12,3477 71331 NOGUESS SSP DLOAD
056224,001568: 12,3500 00051 TWEEKIT
056225,001569: 12,3501 10000 20000
056226,001570: 12,3502 00011 COGAMIN
056227,001571: 12,3503 65342 SR1 PDDL # PL AT 2
056228,001572: 12,3504 00017 COGAMAX
056229,001573: 12,3505 43342 SR1 DAD
056230,001574: 12,3506 77626 STADR # PL AT 0
056231,001575: 12,3507 74002 STORE COGA
056232,001576: 12,3510 34015 STCALL DCOGA
056233,001577: 12,3511 25343 LAMBLOOP
056234,001578: # Page 1300
056235,001579: 12,3512 52145 LOLIM DLOAD GOTO
056236,001580: 12,3513 11636 COGLOLIM # COGLOLIM=-.999511597
056237,001581: 12,3514 25333 MINCOGA
056238,001582:
056239,001583: 12,3515 60345 INITV DLOAD NORM
056240,001584: 12,3516 00041 R1
056241,001585: 12,3517 00047 X1
056242,001586: 12,3520 70525 PDDL SR1 # PL AT 2
056243,001587: 12,3521 02742 P
056244,001588: 12,3522 77671 DDV # PL AT 0
056245,001589: 12,3523 75457 SL* SQRT
056246,001590: 12,3524 20175 0 -4,1
056247,001591: 12,3525 72405 DMP SL1
056248,001592: 12,3526 00021 ROOTMU
056249,001593: 12,3527 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
056250,001594: 12,3530 03775 COGA
056251,001595: 12,3531 74261 SL VXSC
056252,001596: 12,3532 20206 5
056253,001597: 12,3533 02724 UR1
056254,001598: 12,3534 77725 PDDL # XCH WITH 0D PL AT 0,6
056255,001599: 12,3535 76561 VXSC VSL1
056256,001600: 12,3536 02676 UN
056257,001601: 12,3537 53235 VXV VAD
056258,001602: 12,3540 02724 UR1 # PL AT 0
056259,001603: 12,3541 43172 VSL1 CLEAR
056260,001604: 12,3542 02674 SOLNSW
056261,001605: 12,3543 02746 STORE VVEC
056262,001606: 12,3544 53135 SLOAD BZE
056263,001607: 12,3545 02704 VTARGTAG
056264,001608: 12,3546 25551 TARGETV
056265,001609: 12,3547 77650 GOTO
056266,001610: 12,3550 02712 RTNLAMB
056267,001611:
056268,001612: 12,3551 45145 TARGETV DLOAD CALL
056269,001613: 12,3552 02722 MAGVEC2
056270,001614: 12,3553 24713 LAMENTER
056271,001615: 12,3554 36705 STCALL VTARGET
056272,001616: 12,3555 02712 RTNLAMB
056273,001617:
056274,001618: # Page 1301
056275,001619: 12,3556 40220 TIMERAD STQ SETPD # PL AT 0
056276,001620: 12,3557 02712 RTNTR
056277,001621: 12,3560 00001 0
056278,001622: 12,3561 77600 BOV
056279,001623: 12,3562 25563 +1
056280,001624: 12,3563 63375 VLOAD PDVL # PL AT 6
056281,001625: 12,3564 02657 RVEC
056282,001626: 12,3565 02746 VVEC
056283,001627: 12,3566 77624 CALL
056284,001628: 12,3567 11637 PARAM
056285,001629: 12,3570 71200 BOV DLOAD
056286,001630: 12,3571 24776 COGAOVFL # PL AT 0
056287,001631: 12,3572 11616 D1/32
056288,001632: 12,3573 41225 DSU DMP
056289,001633: 12,3574 02744 R1A
056290,001634: 12,3575 02742 P
056291,001635: 12,3576 41366 SQRT DMP
056292,001636: 12,3577 03775 COGA
056293,001637: 12,3600 74212 SL4 VXSC
056294,001638: 12,3601 02714 U2
056295,001639: 12,3602 45325 PDDL DSU # PL AT 6
056296,001640: 12,3603 11610 D1/64
056297,001641: 12,3604 02744 R1A
056298,001642: 12,3605 52361 VXSC VSU # PL AT 0
056299,001643: 12,3606 02724 UR1
056300,001644: 12,3607 53512 VSL4 UNIT
056301,001645: 12,3610 77600 BOV
056302,001646: 12,3611 25667 CIRCULAR
056303,001647: 12,3612 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
056304,001648: 12,3613 02760 RDESIRED # 35D=ECC (+3)
056305,001649: 12,3614 00047 X1
056306,001650: 12,3615 41325 PDDL DMP # PL AT 8
056307,001651: 12,3616 00041 R1
056308,001652: 12,3617 02742 P
056309,001653: 12,3620 56257 SL* DDV # PL AT 6
056310,001654: 12,3621 20201 0,1
056311,001655: 12,3622 56225 DSU DDV
056312,001656: 12,3623 11614 D1/16
056313,001657: 12,3624 00045 36D # 36D=ECC (+3)
056314,001658: 12,3625 00031 STORE COSF
056315,001659: 12,3626 63400 BOV DSQ
056316,001660: 12,3627 25673 BADR2
056317,001661: 12,3630 50021 BDSU BMN
056318,001662: 12,3631 11612 D1/4
056319,001663: 12,3632 25673 BADR2
056320,001664: 12,3633 75366 SQRT SIGN
056321,001665: 12,3634 02757 SGNRDOT
056322,001666: 12,3635 77614 CLEAR
056323,001667: 12,3636 04272 APSESW
056324,001668:
056325,001669: # Page 1302
056326,001670: 12,3637 76561 TERMNVEC VXSC VSL1
056327,001671: 12,3640 02676 UN
056328,001672: 12,3641 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
056329,001673: 12,3642 00001 0D
056330,001674: 12,3643 53361 VXSC VAD # PL AT 0
056331,001675: 12,3644 00031 COSF
056332,001676: 12,3645 41572 VSL1 PUSH # 0D=U2 PL AT 6
056333,001677:
056334,001678: 12,3646 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
056335,001679: 12,3647 02724 UR1
056336,001680: 12,3650 23756 DP1/4
056337,001681: 12,3651 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
056338,001682: 12,3652 25653 +1 # CLEAR OVFIND IF SET
056339,001683: 12,3653 26734 STOVL CSTH # CSTH (+1)
056340,001684: 12,3654 02724 UR1
056341,001685: 12,3655 76435 VXV VSL1
056342,001686: 12,3656 72441 DOT SL1
056343,001687: 12,3657 02676 UN
056344,001688: 12,3660 16732 STODL SNTH # SNTH (+1)
056345,001689: 12,3661 02742 P
056346,001690: 12,3662 77624 CALL
056347,001691: 12,3663 25001 GETX
056348,001692: 12,3664 77614 CLRGO
056349,001693: 12,3665 02634 SOLNSW
056350,001694: 12,3666 24761 COMMNOUT
056351,001695:
056352,001696: 12,3667 43001 CIRCULAR SETPD SETGO
056353,001697: 12,3670 00001 0
056354,001698: 12,3671 02434 SOLNSW
056355,001699: 12,3672 25751 ABTCONIC
056356,001700:
056357,001701: 12,3673 75345 BADR2 DLOAD SIGN
056358,001702: 12,3674 11564 LODPHALF
056359,001703: 12,3675 00031 COSF
056360,001704: 12,3676 14031 STODL COSF
056361,001705: 12,3677 11566 KEPZERO
056362,001706: 12,3700 77614 SETGO
056363,001707: 12,3701 04032 APSESW
056364,001708: 12,3702 25637 TERMNVEC
056365,001709:
056366,001710: # Page 1303
056367,001711: 12,3703 40220 APSIDES STQ SETPD # PL AT 0
056368,001712: 12,3704 02712 RTNAPSE
056369,001713: 12,3705 00001 0D
056370,001714: 12,3706 77600 BOV
056371,001715: 12,3707 25710 +1
056372,001716: 12,3710 63375 VLOAD PDVL # PL AT 6
056373,001717: 12,3711 02657 RVEC
056374,001718: 12,3712 02746 VVEC
056375,001719: 12,3713 77624 CALL
056376,001720: 12,3714 11637 PARAM
056377,001721: 12,3715 77600 BOV # PL AT 0
056378,001722: 12,3716 25717 GETECC
056379,001723: 12,3717 42405 GETECC DMP SL4
056380,001724: 12,3720 02744 R1A
056381,001725: 12,3721 75421 BDSU SQRT
056382,001726: 12,3722 11610 D1/64
056383,001727: 12,3723 02754 STORE ECC
056384,001728: 12,3724 65215 DAD PDDL # PL AT 2
056385,001729: 12,3725 11604 D1/8
056386,001730: 12,3726 00041 R1
056387,001731: 12,3727 72405 DMP SL1
056388,001732: 12,3730 02742 P
056389,001733: 12,3731 77671 DDV # PL AT 0
056390,001734: 12,3732 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
056391,001735: 12,3733 02744 R1A
056392,001736: 12,3734 00047 X1
056393,001737: 12,3735 53725 PDDL SL* # PL AT 4
056394,001738: 12,3736 00041 R1
056395,001739: 12,3737 20174 0 -5,1
056396,001740: 12,3740 45271 DDV DSU # PL AT 2,0
056397,001741: 12,3741 50000 BOV BMN
056398,001742: 12,3742 25746 INFINAPO
056399,001743: 12,3743 25746 INFINAPO
056400,001744: 12,3744 77650 GOTO
056401,001745: 12,3745 02712 RTNAPSE
056402,001746: 12,3746 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
056403,001747: 12,3747 11577 LDPOSMAX
056404,001748: 12,3750 02712 RTNAPSE # THAT PL IS AT 0.
056405,001749:
056406,001750: # Page 1304
056407,001751: 12,3751 77776 ABTCONIC EXIT
056408,001752: 12,3752 05721 TC P00DOO
056409,001753: 12,3753 00607 OCT 00607
056410,001754:
056411,001755: # Page 1305
056412,001756: 04,2000 SETLOC CONICS1
056413,001757: 04,2000 BANK
056414,001758:
056415,001759: 04,3737 COUNT 04/CONIC
056416,001760:
056417,001761: 04,3737 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
056418,001762:
056419,001763: 04,3741 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
056420,001764:
056421,001765: 04,3743 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
056422,001766:
056423,001767: 04,3745 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
056424,001768:
056425,001769: 04,3747 16471 01352 2DEC 4.902778 E8 B-30 # MUM
056426,001770:
056427,001771: 04,3751 21412 20500 2DEC .203966 E-8 B+28 # 1/MUM
056428,001772:
056429,001773: 04,3753 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
056430,001774:
056431,001775: 04,3755 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
056432,001776:
056433,001777: 04,3757 04,3576 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
056434,001778:
056435,001779: # ERASABLE ASSIGNEMENTS
056436,001780:
056437,001781: # KEPLER SUBROUTINE
056438,001782:
056439,001783: # INPUT --
056440,001784: # RRECT ERASE +5
056441,001785: # VRECT ERASE +5
056442,001786: # TAU. ERASE +1
056443,001787: # XKEP ERASE +1
056444,001788: # TC ERASE +1
056445,001789: # XPREV ERASE +1
056446,001790: 04,3757 1/MU EQUALS 14D
056447,001791: 04,3757 ROOTMU EQUALS 16D
056448,001792: 04,3757 1/ROOTMU EQUALS 18D
056449,001793:
056450,001794: # OUTPUT --
056451,001795: # RCV ERASE +5
056452,001796: # VCV ERASE +5
056453,001797: # RC ERASE +1
056454,001798: # XPREV ERASE +1
056455,001799:
056456,001800: # DEBRIS --
056457,001801: 04,3757 ALPHA EQUALS 8D
056458,001802: 04,3757 XMAX EQUALS 10D
056459,001803: # Page 1306
056460,001804: 04,3757 XMIN EQUALS 12D
056461,001805: 04,3757 X EQUALS 20D
056462,001806: 04,3757 XI EQUALS 24D
056463,001807: 04,3757 S(XI) EQUALS 26D
056464,001808: 04,3757 XSQC(XI) EQUALS 28D
056465,001809: 04,3757 T EQUALS 30D
056466,001810: 04,3757 R1 EQUALS 32D
056467,001811: 04,3757 KEPC1 EQUALS 34D
056468,001812: 04,3757 KEPC2 EQUALS 36D
056469,001813:
056470,001814: # DELX ERASE +1
056471,001815: # DELT ERASE +1
056472,001816: # URRECT ERASE +5
056473,001817: # RCNORM ERASE +1
056474,001818: # XPREV EQUALS XKEP
056475,001819:
056476,001820:
056477,001821: # LAMBERT SUBROUTINE
056478,001822:
056479,001823: # INPUT --
056480,001824: # R1VEC ERASE +5
056481,001825: # R2VEC ERASE +5
056482,001826: # TDESIRED ERASE +1
056483,001827: # GEOMSGN ERASE +0
056484,001828: # GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT
056485,001829: # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO.
056486,001830: # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
056487,001831: # UN ERASE +5 # ONLY USED IF NORMSW IS 1
056488,001832: # VTARGTAG ERASE +0
056489,001833: # TWEEKIT EQUALS 40D # ONLY USED IF GUESSW IS 0
056490,001834:
056491,001835: # OUTPUT --
056492,001836: # VTARGET ERASE +5 # AVAILABLE ONLY IF VTARGTAG IS ZERO.
056493,001837: # V1VEC EQUALS MPAC
056494,001838:
056495,001839: # DEBRIS --
056496,001840: # RTNLAMB ERASE +0
056497,001841: # U2 ERASE +5
056498,001842: # MAGVEC2 ERASE +1
056499,001843: # UR1 ERASE +5
056500,001844: # R1 EQUALS 31D
056501,001845: # UN ERASE +5
056502,001846: # SNTH ERASE +1
056503,001847: # CSTH ERASE +1
056504,001848: # 1-CSTH ERASE +1
056505,001849: # CSTH-RHO ERASE +1
056506,001850:
056507,001851: 04,3757 COGAMAX EQUALS 14D # CLOBBERS 1/MU
056508,001852: 04,3757 COGAMIN EQUALS 8D
056509,001853: 04,3757 DCOGA EQUALS 12D
056510,001854:
056511,001855: # TWEEKIT EQUALS 40D
056512,001856: # P ERASE +1
056513,001857: # Page 1307
056514,001858: # COGA ERASE +1
056515,001859: # R1A ERASE +1
056516,001860: # X EQUALS 20D
056517,001861: # XSQ EQUALS 22D
056518,001862: # XI EQUALS 24D
056519,001863: # S(XI) EQUALS 26D
056520,001864: # XSQC(XI) EQUALS 28D
056521,001865: # T EQUALS 30D
056522,001866: # KEPC1 EQUALS 34D
056523,001867: # KEPC2 EQUALS 36D
056524,001868: # SLOPSW
056525,001869: # SOLNSW
056526,001870:
056527,001871: # OTHERS --
056528,001872: # RVEC EQUALS R1VEC
056529,001873: # VVEC ERASE +5
056530,001874: # COGAFLAG
056531,001875: # RVSW
056532,001876: # INFINFLG
056533,001877: # APSESW
056534,001878: # 360SW
056535,001879: # RTNTT EQUALS RTNLAMB
056536,001880: # ECC ERASE +1
056537,001881: # RTNTR EQUALS RTNLAMB
056538,001882: # RTNAPSE EQUALS RTNLAMB
056539,001883: # R2 EQUALS MAGVEC2
056540,001884:
056541,001885: 04,3757 COSF EQUALS 24D
056542,001886:
056543,001887: # RTNPRM ERASE +0
056544,001888: # SCNRDOT ERASE +0
056545,001889: # RDESIRED ERASE +1
056546,001890:
056547,001891:
056548,001892: # ITERATOR SUBROUTINE
056549,001893:
056550,001894: # ORDERSW
056551,001895: 04,3757 MAX EQUALS 14D # CLOBBERS 1/MU
056552,001896: 04,3757 MIN EQUALS 8D
056553,001897:
056554,001898: # INDEP ERASE +1
056555,001899:
056556,001900: 04,3757 DELINDEP EQUALS 12D
056557,001901: 04,3757 ITERCTR EQUALS 22D
056558,001902: 04,3757 DEP EQUALS 30D
056559,001903:
056560,001904: # DELDEP ERASE +1
056561,001905: # DEPREV ERASE +1
056562,001906:
056563,001907: 04,3757 TWEEKIT EQUALS 40D
056564,001908:
056565,001909:
056566,001910: # MORE KEPLER
056567,001911:
056568,001912: # EPSILONT ERASE +1
056569,001913:
056570,001914: # Page 1308
056571,001915: # MORE LAMBERT
056572,001916:
056573,001917: # TERRLAMB EQUALS DELDEP
056574,001918: # TPREV EQUALS DEPREV
056575,001919:
056576,001920: # EPSILONL EQUALS EPSILONT +2 # DOUBLE PRECISION WORD
056577,001921:
056578,001922:
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc