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