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