Source Code

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