Source Code

047781,000001: # Copyright: Public domain. 047782,000002: # Filename: CONIC_SUBROUTINES.agc 047783,000003: # Purpose: A section of Luminary 1C, revision 131. 047784,000004: # It is part of the source code for the Lunar Module's (LM) 047785,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 047786,000006: # This file is intended to be a faithful transcription, except 047787,000007: # that the code format has been changed to conform to the 047788,000008: # requirements of the yaYUL assembler rather than the 047789,000009: # original YUL assembler. 047790,000010: # Reference: pp. 1158-1202 of 1729.pdf. 047791,000011: # Contact: Ron Burkey <info@sandroid.org>. 047792,000012: # Website: www.ibiblio.org/apollo/index.html 047793,000013: # Mod history: 06/01/03 RSB. Began transcribing. 047794,000014: # 05/14/05 RSB Corrected website reference above. 047795,000015: # 2010-08-24 JL Fixed page 1162 number. 047796,000016: 047797,000017: # Page 1158 047798,000018: # PROGRAM DESCRIPTION -- ENTIRE CONIC SUBROUTINE LOG SECTION DATE -- 1 SEPTEMBER 1967 047799,000019: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 047800,000020: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 047801,000021: 047802,000022: # FUNCTIONAL DESCRIPTION -- 047803,000023: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL 047804,000024: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION 047805,000025: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES, 047806,000026: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES 047807,000027: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE 047808,000028: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES 047809,000029: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINES IN MISSION PROGRAMMING 047810,000030: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROUTINES 047811,000031: # APPROPRIATELY. 047812,000032: 047813,000033: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND 047814,000034: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES, 047815,000035: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED. 047816,000036: 047817,000037: # RESTRICTIONS -- 047818,000038: # THE ONLY LIMITATION IN THE SCOPE OF THE PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING 047819,000039: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJECTORIES 047820,000040: # COULD BE HANDLED. 047821,000041: 047822,000042: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN 047823,000043: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED 047824,000044: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION. 047825,000045: 047826,000046: # Page 1159 047827,000047: # PROGRAM DESCRIPTION -- KEPLER SUBROUTINE DATE -- 11 OCTOBER 1967 047828,000048: # MOD NO. -1 LOG SECTION -- CONIC SUBROUTINES 047829,000049: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS 103 AND SUNDANCE 222 047830,000050: # MOD NO. -- 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD. 047831,000051: # MOD NO. -- 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING 047832,000052: # MOD NO. -- 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY 047833,000053: 047834,000054: # FUNCTIONAL DESCRIPTION -- 047835,000055: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO 047836,000056: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC 047837,000057: # SECTION -- CIRCULAR, ELLIPTIC, PARABOLIC, HYPERPOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE 047838,000058: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT 047839,000059: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION 047840,000060: # TECHNIQUE IS UTILIZED IN THE COMPUTATION. 047841,000061: 047842,000062: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY 047843,000063: # EXTRAPOLATING THE POSITION BACKWARD IN TIME. 047844,000064: 047845,000065: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A 047846,000066: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE). 047847,000067: 047848,000068: # THE RESTRICTIONS ARE -- 047849,000069: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.) 047850,000070: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF 047851,000071: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 047852,000072: 047853,000073: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE 047854,000074: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE 047855,000075: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION. 047856,000076: 047857,000077: # REFERENCES -- 047858,000078: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA 047859,000079: # MEMO 67-4. 047860,000080: 047861,000081: # INPUT -- ERASABLE INITIALIZATION REQUIRED 047862,000082: # SCALE FACTOR 047863,000083: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 047864,000084: # -------- -------------- ----------------------- 047865,000085: # RRECT +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 047866,000086: # +27 FOR MOON 047867,000087: # Page 1160 047868,000088: # VRECT +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 047869,000089: # +5 FOR MOON 047870,000090: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 047871,000091: # RESPECTIVELY, IS THE CENTRAL BODY 047872,000092: # TAU +28 DESIRED TRANSFER TIME IN CENTISECONDS (DP) 047873,000093: # MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD. 047874,000094: # XKEPNEW +17 FOR EARTH DP GUESS OF ROOT X OF KEPLER'S EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU. 047875,000095: # +16 FOR MOON AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ., 2PI SQRT(SEMI 047876,000096: # MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET 047877,000097: # BY KEPLER TO A POOR BUT VALID GUESS. 047878,000098: # TC +28 DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD. 047879,000099: # XPREV +17 FOR EARTH DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE 047880,000100: # +16 FOR MOON ORBITAL PERIOD, VIZ., 2PI SQRT(SEMI-MAJOR AXIS) 047881,000101: 047882,000102: # SUBROUTINES CALLED -- 047883,000103: # DELTIME 047884,000104: 047885,000105: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 047886,000106: # KEPRTN-2 GOTO # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 047887,000107: # KEPRTN-1 KEPLER # RETURNS WITH XPREV IN MPAC. PL IS AT 0. 047888,000108: # KEPRTN ... # CONTINUE 047889,000109: 047890,000110: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE 047891,000111: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH 047892,000112: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW. 047893,000113: 047894,000114: # ABORT EXIT MODE -- 047895,000115: # NONE 047896,000116: 047897,000117: # OUTPUT -- 047898,000118: # SCALE FACTOR 047899,000119: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 047900,000120: # -------- -------------- ----------------------- 047901,000121: # RCV +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS 047902,000122: # +27 FOR MOON 047903,000123: # VCV +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC 047904,000124: # +5 FOR MOON 047905,000125: # TC +28 DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD 047906,000126: # XPREV +17 FOR EARTH DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X 047907,000127: # +16 FOR MOON CORRSPONDING ONE PERIOD. 047908,000128: # Page 1161 047909,000129: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 047910,000130: 047911,000131: # DEBRIS -- 047912,000132: # PARAMETERS WHICH MAY BE OF USE -- 047913,000133: # SCALE FACTOR 047914,000134: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 047915,000135: # -------- -------------- ----------------------- 047916,000136: # URRECT +1 DP UNIT VECTOR OF INITIAL POSITION 047917,000137: # R1 +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION IN METERS 047918,000138: # +27 FOR MOON 047919,000139: # ALPHA -22 FOR EARTH DP INVERSE OF SEMI-MAJOR AXIS IN 1/METERS 047920,000140: # -20 FOR MOON 047921,000141: # TMODULO +28 DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A 047922,000142: # TAU. OF LESS THAN ONE PERIOD. 047923,000143: 047924,000144: # PARAMETERS OF NO USE -- 047925,000145: # DP PARAMETERS -- FPSILENT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D. 047926,000146: 047927,000147: # Page 1162 047928,000148: # PROGRAM DESCRIPTION -- LAMBERT SUBROUTINE DATE -- 1 SEPTEMBER 1967 047929,000149: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 047930,000150: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 047931,000151: 047932,000152: # FUNCTIONAL DESCRIPTION -- 047933,000153: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY 047934,000154: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE 047935,000155: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO TEH EARTH OR THE MOON. THE USE OF THE 047936,000156: # SUBROUTINE CAN BE EXTEDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY 047937,000157: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS 047938,000158: # UTILIZED IN THE COMPUTATION. 047939,000159: 047940,000160: # THE RESTRICTIONS ARE: -- 047941,000161: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED. 047942,000162: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0. 047943,000163: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 047944,000164: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 047945,000165: # 4. NEGATIVE TRANSFER TIME IS AMBUGUOUS AND WILL RESULT IN NO SOLUTION. 047946,000166: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE 047947,000167: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 047948,000168: 047949,000169: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION'S SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST 047950,000170: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATELY 047951,000171: # .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION. 047952,000172: 047953,000173: # REFERENCES -- 047954,000174: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP -- SECTION 5.5, SGA MEMO 67-8, 047955,000175: # SGA MEMO 67-4. 047956,000176: 047957,000177: # INPUT -- ERASABLE INITIALIZATION REQUIRED 047958,000178: # SCALE FACTOR 047959,000179: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 047960,000180: # -------- -------------- ----------------------- 047961,000181: # R1VEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 047962,000182: # +27 FOR MOON 047963,000183: # R2VEC +29 FOR EARTH DP TARGET OR TERMINAL POSITION VECTOR IN METERS 047964,000184: # +27 FOR MOON 047965,000185: # TDESIRED +28 DP DESIRED TRANSFER TIME IN CENTISECONDS 047966,000186: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 047967,000187: # RESPECTIVELY, IS THE CENTRAL BODY 047968,000188: # GEOMSGN NONE SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG. 047969,000189: # GUESSW NONE AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF 047970,000190: # Page 1163 047971,000191: # COGA IS TO BE USED BY LAMBERT 047972,000192: # COGA +5 DP GUESS OF COTANGENT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE 047973,000193: # IGNORED IF GUESSW IS SET. 047974,000194: # NORMSW NONE AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF 047975,000195: # LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN). 047976,000196: # UN +1 DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR 047977,000197: # MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR. 047978,000198: # VTARGTAG NONE A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMUTE THE VELOCITY OF R2VEC AS WELL AS 047979,000199: # AT R1VEC. 047980,000200: # ITERCTR NONE A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE. 047981,000201: # [AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST 047982,000202: # ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.] 047983,000203: # TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS. 047984,000204: 047985,000205: # SUBROUTINES CALLED -- 047986,000206: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE) 047987,000207: 047988,000208: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 047989,000209: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 047990,000210: # L+1 LAMBERT # RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS WAS NON-ZERO OR VTARGET 047991,000211: # # IN MPAC IF VTARGTAG WAS ZERO 047992,000212: # L+2 BON # CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE 047993,000213: # L+3 SOLNSW 047994,000214: # L+4 LAMABORT 047995,000215: 047996,000216: # IF A LAMBER RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND 047997,000217: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL. 047998,000218: 047999,000219: # ABORT EXIT MODES -- 048000,000220: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 260 DEG, OR T 048001,000221: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2FEC. IN EITHER CASE THE FIX MUST BE MADE 048002,000222: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ... 048003,000223: # LAMBERT DLOAD ABS # A MEASURE OF THE PROXIMITY TO 0 OR 048004,000224: # 1-CHTH # 360 DEGREES. 048005,000225: # DSU BWM 048006,000226: # ONEBIT 048007,000227: # CHANGER2 # CHANGE R2VEC DIRECTION SLIGHTLY. 048008,000228: # DLOAD DAD 048009,000229: # TDESIRED 048010,000230: # SOMETIE 048011,000231: # STCALL TDESIRED # INCRESE TDESIRED 048012,000232: # LAMBERT 048013,000233: 048014,000234: # Page 1164 048015,000235: # OUTPUT -- 048016,000236: # SCALE FACTOR 048017,000237: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048018,000238: # -------- -------------- ----------------------- 048019,000239: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE 048020,000240: # +5 FOR MOON PROBLEM. 048021,000241: # VTARGET +7 FOR EARTH DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND. 048022,000242: # +5 FOR MOON 048023,000243: # SOLNSW NONE INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE 048024,000244: # SOLUTION EXISTS. 048025,000245: 048026,000246: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 048027,000247: 048028,000248: # DEBRIS -- 048029,000249: # PARAMETERS WHICH MAY BE OF USE -- 048030,000250: # SCALE FACTOR 048031,000251: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048032,000252: # -------- -------------- ----------------------- 048033,000253: # SNTH +1 DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC 048034,000254: # CSTH +1 DP COSING OF ANGLE 048035,000255: # 1-CSTH +2 DP 1-CSTH 048036,000256: # COGA +5 DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL 048037,000257: # P +4 DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS 048038,000258: # R1A +6 DP RATIO OF INITIAL RADIUS TO SEMI-MAJOR AXIS 048039,000259: # R1 (32D) +29 FOR EARTH DP INITIAL RADIUS IN METERS 048040,000260: # +27 FOR MOON 048041,000261: # UR1 +1 DP UNIT VECTOR OF R1VEC 048042,000262: # U2 +1 DP UNIT VECTOR OF R2VEC 048043,000263: 048044,000264: # PARAMETERS OF NO USE -- 048045,000265: # DP PARAMETERS -- EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D 048046,000266: # ADDITIONAL INTERPRETIVE SWITCHES USED -- INFINFLG, 360SW, SLOPESW, ORDERSW 048047,000267: 048048,000268: # Page 1165 048049,000269: # PROGRAM DESCRIPTION -- TIME-THETA SUBROUTINE DATE -- 1 SEPTEMBER 1967 048050,000270: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 048051,000271: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 048052,000272: 048053,000273: # FUNCTIONAL DESCRIPTION -- 048054,000274: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE 048055,000275: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, 048056,000276: # PROVIDES THE OPTION OF COMUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A 048057,000277: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF TEH SUBROUTINE CAN BE 048058,000278: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WTIHOUT INTRODUCING ANY CODING CHANGES, 048059,000279: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 048060,000280: 048061,000281: # THE RESTRICTIONS ARE -- 048062,000282: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 048063,000283: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 048064,000284: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSCP. IF THE LIMITS 048065,000285: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLY. 048066,000286: 048067,000287: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS. 048068,000288: 048069,000289: # REFERENCES -- 048070,000290: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8. 048071,000291: 048072,000292: # INPUT -- ERASABLE INITIALIZATION REQUIRED 048073,000293: # SCALE FACTOR 048074,000294: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048075,000295: # -------- -------------- ----------------------- 048076,000296: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 048077,000297: # +27 FOR MOON 048078,000298: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 048079,000299: # +5 FOR MOON 048080,000300: # SNTH +1 ` DP SINE OF THE TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED 048081,000301: # CSTH +1 DP COSINE OF THE ANGLE 048082,000302: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE 048083,000303: # IS TO BE COMPUTED ALSO. 048084,000304: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 048085,000305: # RESPECTIVELY, IS THE CENTRAL BODY. 048086,000306: 048087,000307: # SUBROUTINES CALLED -- 048088,000308: # Page 1166 048089,000309: # PARAM, GEOM, GETX, DELTIME, NEWSTATE 048090,000310: 048091,000311: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 048092,000312: # IF ONLY TIME IS DESIRED AS OUTPUT -- 048093,000313: # L SET CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 048094,000314: # L+1 RVSW 048095,000315: # L+2 TIMETHET # RETURN WITH PL AT 0 AND T IN MPAC 048096,000316: # L+3 --- # CONTINUE 048097,000317: 048098,000318: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -- 048099,000319: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 048100,000320: # L+1 RVSW 048101,000321: # L+2 TIMETHET # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND 048102,000322: # # THE INITIAL VELOCITY VECTOR IN MPAC. 048103,000323: # L+3 STOVL NEWVVEC 048104,000324: # L+4 STADR 048105,000325: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS. 048106,000326: # L+6 ... # CONTINUE. 048107,000327: 048108,000328: # ABORT EXIT MODES -- 048109,000329: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO P00DOO WITH 048110,000330: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721). 048111,000331: 048112,000332: # OUTPUT -- 048113,000333: # SCALE FACTOR 048114,000334: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048115,000335: # -------- -------------- ----------------------- 048116,000336: # T(30D) +28 DP TRANSFER TIME IN CENTISECONDS 048117,000337: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH 048118,000338: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE. 048119,000339: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION), 048120,000340: # CLEAR IF NOT. 048121,000341: 048122,000342: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -- 048123,000343: # MPAC - MPAC+5 +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC. 048124,000344: # +5 FOR MOON 048125,000345: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D) 048126,000346: # +27 FOR MOON 048127,000347: 048128,000348: # FOR TOHER OTHER WHICH MAY BE OF USE, SEE DEBRIS. 048129,000349: 048130,000350: # Page 1167 048131,000351: # DEBRIS -- 048132,000352: # PARAMETERS WHICH MAY BE OF USE -- 048133,000353: # SCALE FACTOR 048134,000354: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048135,000355: # -------- -------------- ----------------------- 048136,000356: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 048137,000357: # +27 FOR MOON 048138,000358: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 048139,000359: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1 048140,000360: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 048141,000361: # UR1 +1 DP UNIT VECTOR OF RVEC 048142,000362: # U2 +1 DP UNIT VECTOR OF VVEC 048143,000363: # UN +1 DP UNIT VECTOR OF UR1*U2 048144,000364: 048145,000365: # PARAMETERS OF NO USE -- 048146,000366: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, R1D 048147,000367: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW 048148,000368: 048149,000369: # Page 1168 048150,000370: # PROGRAM DESCRIPTION -- TIME-RADIUS SUBROUTINE DATE -- 11 OCTOBER 1967 048151,000371: # MOD NO. -1 LOG SECTION -- CONIC SUBROUTINES 048152,000372: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 048153,000373: 048154,000374: # FUNCTIONAL DESCRIPTION -- 048155,000375: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE 048156,000376: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, 048157,000377: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A 048158,000378: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE 048159,000379: # EXTENDED USING OTHER PRIMARY BODIES BY SIMMPE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 048160,000380: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 048161,000381: 048162,000382: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER, 048163,000383: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY. 048164,000384: 048165,000385: # THE RESTRICTIONS ARE -- 048166,000386: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 048167,000387: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 048168,000388: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN TEH GSOP. IF THE LIMITS 048169,000389: # EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 048170,000390: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN 048171,000391: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN 048172,000392: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT. 048173,000393: 048174,000394: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS. 048175,000395: 048176,000396: # REFERENCES -- 048177,000397: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8. 048178,000398: 048179,000399: # INPUT -- ERASABLE INITIALIZATION REQUIRED. 048180,000400: # SCALE FACTOR 048181,000401: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048182,000402: # -------- -------------- ----------------------- 048183,000403: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 048184,000404: # +27 FOR MOON 048185,000405: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 048186,000406: # +5 FOR MOON 048187,000407: # RDESIRED +29 FOR EARTH DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE 048188,000408: # +27 FOR MOON COMPUTED 048189,000409: # SGNRDOT NONE SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE 048190,000410: # POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A 048191,000411: # Page 1169 048192,000412: # SINGLE-VALUED PROBLEM. 048193,000413: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 048194,000414: # RESPECTIVELY, IS THE CENTRAL BODY. 048195,000415: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE 048196,000416: # IS TO BE COMPUTED ALSO. 048197,000417: 048198,000418: # SUBROUTINES CALLED -- 048199,000419: # PARAM, GEOM, GETX, DELTIME, NEWSTATE 048200,000420: 048201,000421: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 048202,000422: # IF ONLY TIME IS DESIRED AS OUTPUT -- 048203,000423: # L SET CALL # USE BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 048204,000424: # L+1 RVSW 048205,000425: # L+2 TIMERAD # RETURN WITH PL AT 0 AND T IN MPAC 048206,000426: # L+3 ... # CONTINUE 048207,000427: 048208,000428: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -- 048209,000429: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 048210,000430: # L+1 RVSW 048211,000431: # L+2 TIMERAD # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND 048212,000432: # # THE INITIAL VELOCITY VECTOR IN MPAC. 048213,000433: # L+3 STOVL NEWVVEC 048214,000434: # L+4 STADR 048215,000435: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS. 048216,000436: # ... # CONTINUE 048217,000437: 048218,000438: # ABORT EXIT MODES -- 048219,000439: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER 048220,000440: # TO P00DOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721) 048221,000441: 048222,000442: # OUTPUT -- 048223,000443: # SCALE FACTOR 048224,000444: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048225,000445: # -------- -------------- ----------------------- 048226,000446: # T (30D) +28 DP TRANSFER TIME IN CENTISECONDS. 048227,000447: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH 048228,000448: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE. 048229,000449: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION), 048230,000450: # CLEAR IF NOT. 048231,000451: # APSESW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR 048232,000452: # Page 1170 048233,000453: # LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY, 048234,000454: # WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND 048235,000455: # APOCENTER. 048236,000456: # SOLNSW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN 048237,000457: # POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE- 048238,000458: # MINUS-18, THE SWITCH IS CLEAR. 048239,000459: 048240,000460: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT -- 048241,000461: # MPAC - MPAC+5 +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC. 048242,000462: # +5 FOR MOON 048243,000463: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D) 048244,000464: # +27 FOR MOON 048245,000465: 048246,000466: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 048247,000467: 048248,000468: # DEBRIS -- 048249,000469: # PARAMETERS WHICH MAY BE OF USE -- 048250,000470: # SCALE FACTOR 048251,000471: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048252,000472: # -------- -------------- ----------------------- 048253,000473: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 048254,000474: # +27 FOR MOON 048255,000475: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 048256,000476: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1 048257,000477: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 048258,000478: # UR1 +1 DP UNIT VECTOR OF RVEC 048259,000479: # U2 +1 DP UNIT VECTOR OF VVEC 048260,000480: # UN +1 DP UNIT VECTOR OF UR1*U2 048261,000481: # CSTH +1 DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED. 048262,000482: # SNTH +1 DP SINE OF TRUE ANOMALY DIFFERENCE. 048263,000483: 048264,000484: # PARAMETERS OF NO USE -- 048265,000485: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2*R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D 048266,000486: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW 048267,000487: 048268,000488: 048269,000489: # Page 1171 048270,000490: # PROGRAM DESCRIPTION -- APSIDES SUBROUTINE DATE -- 1 SEPTEMBER 1967 048271,000491: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 048272,000492: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 048273,000493: 048274,000494: # FUNCTIONAL DESCRIPTION -- 048275,000495: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR, CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE 048276,000496: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE, 048277,000497: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN 048278,000498: # BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 048279,000499: # EXCEPTING TEH INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 048280,000500: 048281,000501: # THE RESTRICTIONS ARE -- 048282,000502: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT 048283,000503: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED. 048284,000504: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS 048285,000505: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 048286,000506: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS. 048287,000507: 048288,000508: # REFERENCES -- 048289,000509: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5. 048290,000510: 048291,000511: # INPUT -- ERASABLE INITIALIZATION REQUIRED 048292,000512: # SCALE FACTOR 048293,000513: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048294,000514: # -------- -------------- ----------------------- 048295,000515: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 048296,000516: # +27 FOR MOON 048297,000517: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 048298,000518: # +5 FOR MOON 048299,000519: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 048300,000520: # RESPECTIVELY, IS THE CENTRAL BODY. 048301,000521: 048302,000522: # SUBROUTINES CALLED -- 048303,000523: # PARAM, GEOM 048304,000524: 048305,000525: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 048306,000526: # Page 1172 048307,000527: # IF ONLY TIME IS DESIRED AS OUTPUT -- 048308,000528: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 048309,000529: # L+1 APSIDES # RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D 048310,000530: # L+2 STODL APOAPSE 048311,000531: # L+3 0D 048312,000532: # L+4 STORE PERIAPSE # APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS 048313,000533: # L+5 ... # CONTINUE 048314,000534: 048315,000535: # OUTPUT -- 048316,000536: # SCALE FACTOR 048317,000537: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048318,000538: # -------- -------------- ----------------------- 048319,000539: # MPAC +29 FOR EARTH DP RADIUS OF APOCENTER IN METERS 048320,000540: # +27 FOR MOON 048321,000541: # 0D-1D +29 FOR EARTH DP RADIUS OF PERICENTER IN METERS 048322,000542: # +27 FOR MOON 048323,000543: # ECC +3 DP ECCENTRICITY OF CONIC TRAJECTORY 048324,000544: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 048325,000545: 048326,000546: # DEBRIS -- 048327,000547: # PARAMETERS WHICH MAY BE OF USE -- 048328,000548: # SCALE FACTOR 048329,000549: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 048330,000550: # -------- -------------- ----------------------- 048331,000551: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 048332,000552: # +27 FOR MOON 048333,000553: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 048334,000554: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1 048335,000555: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 048336,000556: # UR1 +1 DP UNIT VECTOR OF RVEC 048337,000557: # U2 +1 DP UNIT VECTOR OF VVEC 048338,000558: # UN +1 DP UNIT VECTOR OF UR1*U2 048339,000559: # MAGVEC2 +7 FOR EARTH DP MAGNITUDE OF VVEC 048340,000560: # +5 FOR MOON 048341,000561: 048342,000562: # PARAMETERS OF NO USE -- 048343,000563: # SP PARAMETERS -- RTNAPSE, GOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D. 048344,000564: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW 048345,000565: 048346,000566: 12,2000 SETLOC CONICS 048347,000567: # Page 1173 048348,000568: 12,2000 BANK 048349,000569: 048350,000570: 12,2023 COUNT* $$/CONIC 048351,000571: 12,2023 E5,1721 EBANK= UR1 048352,000572: 12,2023 40001 KEPLERN SETPD BOV 048353,000573: 12,2024 00001 0 048354,000574: 12,2025 24026 +1 048355,000575: 12,2026 77773 VLOAD* 048356,000576: 12,2027 10005 MUTABLE,1 048357,000577: 12,2030 24017 STOVL 14D 048358,000578: 12,2031 01503 RRECT 048359,000579: 12,2032 66256 UNIT SSP 048360,000580: 12,2033 00027 ITERCTR 048361,000581: 12,2034 00024 20D 048362,000582: 12,2035 16647 STODL URRECT 048363,000583: 12,2036 00045 36D 048364,000584: 12,2037 24041 STOVL R1 048365,000585: 12,2040 01503 RRECT 048366,000586: 12,2041 76441 DOT SL1R 048367,000587: 12,2042 01511 VRECT 048368,000588: 12,2043 76405 DMP SL1R 048369,000589: 12,2044 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14) 048370,000590: 12,2045 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16) 048371,000591: 12,2046 01511 VRECT 048372,000592: 12,2047 57236 VSQ DMPR 048373,000593: 12,2050 00017 1/MU # 1/MU (-34 OR -28) 048374,000594: 12,2051 52405 DMP SL3 048375,000595: 12,2052 00041 R1 048376,000596: 12,2053 61425 DSU ROUND 048377,000597: 12,2054 11001 D1/64 048378,000598: 12,2055 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6) 048379,000599: 048380,000600: 12,2056 74421 BDSU SR1R 048381,000601: 12,2057 11001 D1/64 048382,000602: 12,2060 77671 DDV 048383,000603: 12,2061 00041 R1 048384,000604: 12,2062 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20) 048385,000605: 048386,000606: 12,2063 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC) 048387,000607: 12,2064 24073 1REV 048388,000608: 12,2065 11017 -50SC # -50SC (+12) 048389,000609: 12,2066 40071 DDV BOV 048390,000610: 12,2067 00011 ALPHA 048391,000611: 12,2070 24077 STOREMAX 048392,000612: 12,2071 52166 SQRT GOTO 048393,000613: 12,2072 24077 STOREMAX 048394,000614: 048395,000615: 12,2073 55366 1REV SQRT BDDV 048396,000616: # Page 1174 048397,000617: 12,2074 11021 2PISC # 2PISC (+6) 048398,000618: 12,2075 77600 BOV 048399,000619: 12,2076 24077 STOREMAX 048400,000620: 12,2077 00013 STOREMAX STORE XMAX 048401,000621: 12,2100 65205 DMP PDDL 048402,000622: 12,2101 00023 1/ROOTMU 048403,000623: 12,2102 00011 ALPHA 048404,000624: 12,2103 65301 NORM PDDL 048405,000625: 12,2104 00047 X1 048406,000626: 12,2105 56257 SL* DDV 048407,000627: 12,2106 20173 0 -6,1 048408,000628: 12,2107 50000 BOV BMN 048409,000629: 12,2110 24124 MODDONE 048410,000630: 12,2111 24124 MODDONE # MPAC=PERIOD 048411,000631: 12,2112 51525 PERIODCH PDDL ABS # 0D=PERIOD 048412,000632: 12,2113 02074 TAU. 048413,000633: 12,2114 50025 DSU BMN 048414,000634: 12,2115 00001 0D 048415,000635: 12,2116 24124 MODDONE 048416,000636: 12,2117 77765 SIGN 048417,000637: 12,2120 02074 TAU. 048418,000638: 12,2121 16074 STODL TAU. 048419,000639: 12,2122 77650 GOTO 048420,000640: 12,2123 24112 PERIODCH 048421,000641: 12,2124 71201 MODDONE SETPD DLOAD 048422,000642: 12,2125 00001 0 048423,000643: 12,2126 02130 XKEPNEW 048424,000644: 12,2127 00025 STORE X 048425,000645: 12,2130 53165 SIGN BZE 048426,000646: 12,2131 02074 TAU. 048427,000647: 12,2132 24302 BADX 048428,000648: 12,2133 51440 BMN ABS 048429,000649: 12,2134 24302 BADX 048430,000650: 12,2135 51025 DSU BPL 048431,000651: 12,2136 00013 XMAX 048432,000652: 12,2137 24302 BADX 048433,000653: 12,2140 51145 STORBNDS DLOAD BPL 048434,000654: 12,2141 02074 TAU. 048435,000655: 12,2142 24152 STOREMIN 048436,000656: 12,2143 57545 DLOAD DCOMP 048437,000657: 12,2144 00013 XMAX 048438,000658: 12,2145 14015 STODL XMIN 048439,000659: 12,2146 24007 KEPZERO 048440,000660: 12,2147 00013 STORE XMAX 048441,000661: 12,2150 77650 GOTO 048442,000662: 12,2151 24155 DXCOMP 048443,000663: 12,2152 77745 STOREMIN DLOAD 048444,000664: 12,2153 24007 KEPZERO 048445,000665: 12,2154 00015 STORE XMIN 048446,000666: 12,2155 57345 DXCOMP DLOAD DMPR 048447,000667: # Page 1175 048448,000668: 12,2156 02074 TAU. 048449,000669: 12,2157 11012 BEE22 048450,000670: 12,2160 77646 ABS 048451,000671: 12,2161 16177 STODL EPSILONT 048452,000672: 12,2162 01553 XPREV 048453,000673: 12,2163 77621 XDIFF BDSU 048454,000674: 12,2164 00025 X 048455,000675: 12,2165 02643 STORE DELX 048456,000676: 048457,000677: 12,2166 63545 KEPLOOP DLOAD DSQ 048458,000678: 12,2167 00025 X # X=XKEP 048459,000679: 12,2170 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2 048460,000680: 12,2171 00047 X1 048461,000681: 12,2172 53605 DMP SRR* 048462,000682: 12,2173 00011 ALPHA 048463,000683: 12,2174 21573 0 -6,1 048464,000684: 12,2175 34031 STCALL XI # XI=ALPHA XSQ (+6) 048465,000685: 12,2176 24421 DELTIME 048466,000686: 12,2177 44200 BOV BDSU 048467,000687: 12,2200 24311 TIMEOVFL # UNLIKELY 048468,000688: 12,2201 02074 TAU. 048469,000689: 12,2202 02645 STORE DELT # DELT=DELINDEP 048470,000690: 12,2203 44246 ABS BDSU 048471,000691: 12,2204 02177 EPSILONT 048472,000692: 12,2205 71244 BPL DLOAD 048473,000693: 12,2206 24333 KEPCONVG 048474,000694: 12,2207 00037 T 048475,000695: 12,2210 60225 DSU NORM 048476,000696: 12,2211 01551 TC 048477,000697: 12,2212 00047 X1 048478,000698: 12,2213 60325 PDDL NORM 048479,000699: 12,2214 02643 DELX 048480,000700: 12,2215 00050 X2 048481,000701: 12,2216 41260 XSU,1 DMP 048482,000702: 12,2217 00047 X2 048483,000703: 12,2220 02645 DELT 048484,000704: 12,2221 56257 SLR* DDV 048485,000705: 12,2222 21202 1,1 048486,000706: 12,2223 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2 048487,000707: 12,2224 71244 BPL DLOAD 048488,000708: 12,2225 24246 POSDELX 048489,000709: 12,2226 00025 X 048490,000710: 12,2227 00013 STORE XMAX # MOVE MAX BOUND IN 048491,000711: 12,2230 45221 BDSU DSU # PL AT 0 048492,000712: 12,2231 00015 XMIN 048493,000713: 12,2232 51000 BOV BPL 048494,000714: 12,2233 24240 NDXCHNGE 048495,000715: 12,2234 24240 NDXCHNGE 048496,000716: 12,2235 52145 DLOAD GOTO 048497,000717: # Page 1176 048498,000718: 12,2236 00001 0D 048499,000719: 12,2237 24260 NEWDELX 048500,000720: 048501,000721: 12,2240 45345 NDXCHNGE DLOAD DSU 048502,000722: 12,2241 00015 XMIN 048503,000723: 12,2242 00025 X 048504,000724: 12,2243 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO 048505,000725: 12,2244 11015 DP9/10 048506,000726: 12,2245 24260 NEWDELX 048507,000727: 048508,000728: 12,2246 77745 POSDELX DLOAD 048509,000729: 12,2247 00025 X 048510,000730: 12,2250 00015 STORE XMIN # MOVE MIN BOUND IN 048511,000731: 12,2251 45221 BDSU DSU # PL AT 0 048512,000732: 12,2252 00013 XMAX 048513,000733: 12,2253 50000 BOV BMN 048514,000734: 12,2254 24274 PDXCHNGE 048515,000735: 12,2255 24274 PDXCHNGE 048516,000736: 12,2256 77745 DLOAD 048517,000737: 12,2257 00001 0D 048518,000738: 12,2260 02643 NEWDELX STORE DELX 048519,000739: 12,2261 43254 BZE DAD 048520,000740: 12,2262 24333 KEPCONVG 048521,000741: 12,2263 00025 X 048522,000742: 12,2264 14025 STODL X 048523,000743: 12,2265 00037 T 048524,000744: 12,2266 01551 STORE TC 048525,000745: 12,2267 46034 BRNCHCTR RTB BHIZ 048526,000746: 12,2270 24644 CHECKCTR 048527,000747: 12,2271 24333 KEPCONVG 048528,000748: 12,2272 77650 GOTO 048529,000749: 12,2273 24166 KEPLOOP # ITERATE 048530,000750: 048531,000751: 12,2274 45345 PDXCHNGE DLOAD DSU 048532,000752: 12,2275 00013 XMAX 048533,000753: 12,2276 00025 X 048534,000754: 12,2277 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO 048535,000755: 12,2300 11015 DP9/10 048536,000756: 12,2301 24260 NEWDELX 048537,000757: 048538,000758: 12,2302 70545 BADX DLOAD SR1 048539,000759: 12,2303 00013 XMAX 048540,000760: 12,2304 77765 SIGN 048541,000761: 12,2305 02074 TAU. 048542,000762: 12,2306 00025 STORE X 048543,000763: 12,2307 77650 GOTO 048544,000764: # Page 1177 048545,000765: 12,2310 24140 STORBNDS 048546,000766: 12,2311 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG 048547,000767: 12,2312 00025 X 048548,000768: 12,2313 24330 NEGTOVFL 048549,000769: 12,2314 00013 STORE XMAX 048550,000770: 12,2315 70545 CMNTOVFL DLOAD SR1 048551,000771: 12,2316 02643 DELX 048552,000772: 12,2317 02643 STORE DELX 048553,000773: 12,2320 44254 BZE BDSU 048554,000774: 12,2321 02112 KEPRTN 048555,000775: 12,2322 00025 X 048556,000776: 12,2323 14025 STODL X 048557,000777: 12,2324 01551 TC 048558,000778: 12,2325 00037 STORE T 048559,000779: 12,2326 77650 GOTO 048560,000780: 12,2327 24267 BRNCHCTR 048561,000781: 12,2330 00015 NEGTOVFL STORE XMIN 048562,000782: 12,2331 77650 GOTO 048563,000783: 12,2332 24315 CMNTOVFL 048564,000784: 12,2333 44545 KEPCONVG DLOAD SR4R 048565,000785: 12,2334 00041 R1 048566,000786: 12,2335 74225 DSU VXSC 048567,000787: 12,2336 00035 XSQC(XI) 048568,000788: 12,2337 02647 URRECT 048569,000789: 12,2340 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31) 048570,000790: 12,2341 00025 X 048571,000791: 12,2342 60316 DSQ NORM 048572,000792: 12,2343 00047 X1 048573,000793: 12,2344 57275 DMPR DMPR 048574,000794: 12,2345 00023 1/ROOTMU 048575,000795: 12,2346 00025 X 048576,000796: 12,2347 53605 DMP SRR* 048577,000797: 12,2350 00033 S(XI) 048578,000798: 12,2351 21572 0 -7,1 048579,000799: 12,2352 77621 BDSU 048580,000800: 12,2353 00037 T 048581,000801: 12,2354 74352 SL1 VXSC 048582,000802: 12,2355 01511 VRECT 048583,000803: 12,2356 53372 VSL1 VAD 048584,000804: 12,2357 77712 VSL4 048585,000805: 12,2360 01535 STORE RCV # RCV (+29 OR +27) 048586,000806: 048587,000807: 12,2361 60246 ABVAL NORM 048588,000808: 12,2362 00050 X2 048589,000809: 12,2363 14043 STODL RCNORM 048590,000810: 12,2364 00031 XI 048591,000811: 12,2365 45275 DMPR DSU 048592,000812: 12,2366 00033 S(XI) 048593,000813: 12,2367 10777 D1/128 048594,000814: # Page 1178 048595,000815: 12,2370 76405 DMP SL1R 048596,000816: 12,2371 00021 ROOTMU 048597,000817: 12,2372 53605 DMP SLR* 048598,000818: 12,2373 00025 X 048599,000819: 12,2374 56601 0 -3,2 048600,000820: 12,2375 74271 DDV VXSC 048601,000821: 12,2376 00043 RCNORM 048602,000822: 12,2377 02647 URRECT 048603,000823: 12,2400 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15 048604,000824: 12,2401 00035 XSQC(XI) # OR +13) PL AT 6 048605,000825: 12,2402 56257 SLR* DDV 048606,000826: 12,2403 56602 0 -4,2 048607,000827: 12,2404 00043 RCNORM 048608,000828: 12,2405 74221 BDSU VXSC 048609,000829: 12,2406 11013 D1/256 048610,000830: 12,2407 01511 VRECT 048611,000831: 12,2410 42455 VAD VSL8 048612,000832: 12,2411 77626 STADR # PL AT 0 048613,000833: 12,2412 62234 STODL VCV # VCV (+7 OR +5) 048614,000834: 12,2413 00037 T 048615,000835: 12,2414 15551 STODL TC 048616,000836: 12,2415 00025 X 048617,000837: 12,2416 01553 STORE XPREV 048618,000838: 12,2417 77650 GOTO 048619,000839: 12,2420 02112 KEPRTN 048620,000840: 048621,000841: # Page 1179 048622,000842: 12,2421 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1) 048623,000843: 12,2422 07225 TC POLY 048624,000844: 12,2423 00010 DEC 8 B-14 048625,000845: 12,2424 02525 12526 2DEC .083333334 048626,000846: 12,2426 67356 75666 2DEC -.266666684 048627,000847: 12,2430 15001 23771 2DEC .406349155 048628,000848: 12,2432 64342 43674 2DEC -.361198675 048629,000849: 12,2434 06563 04645 2DEC .210153242 048630,000850: 12,2436 75173 52672 2DEC -.086221951 048631,000851: 12,2440 00656 14331 2DEC .026268812 048632,000852: 12,2442 77633 40512 2DEC -.006163316 048633,000853: 12,2444 00023 11210 2DEC .001177342 048634,000854: 12,2446 77774 67506 2DEC -.000199055 048635,000855: 048636,000856: 12,2450 06042 TC INTPRET 048637,000857: 12,2451 14033 STODL S(XI) 048638,000858: 12,2452 00031 XI 048639,000859: 12,2453 77776 EXIT 048640,000860: 12,2454 07225 TC POLY 048641,000861: 12,2455 00010 DEC 8 B-14 048642,000862: 12,2456 01000 00000 2DEC .031250001 048643,000863: 12,2460 72525 52506 2DEC -.166666719 048644,000864: 12,2462 13301 15337 2DEC .355555413 048645,000865: 12,2464 62776 54733 2DEC -.406347410 048646,000866: 12,2466 11176 13267 2DEC .288962094 048647,000867: 12,2470 73410 51674 2DEC -.140117894 048648,000868: 12,2472 01446 33641 2DEC .049247387 048649,000869: 12,2474 77451 65233 2DEC -.013081923 048650,000870: 12,2476 00055 37266 2DEC .002806389 048651,000871: 12,2500 77767 52336 2DEC -.000529414 048652,000872: 12,2502 06042 TC INTPRET 048653,000873: # Page 1180 048654,000874: 12,2503 53605 DMP SRR* # PL AT 0 048655,000875: 12,2504 00001 0D 048656,000876: 12,2505 21574 0 -5,1 048657,000877: 12,2506 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31) 048658,000878: 12,2507 72405 DMP SL1 048659,000879: 12,2510 00043 KEPC1 048660,000880: 12,2511 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46) 048661,000881: 12,2512 21634 TPMODE # PL AT 0,3 048662,000882: 12,2513 53605 DMP SRR* 048663,000883: 12,2514 00033 S(XI) 048664,000884: 12,2515 21574 0 -5,1 048665,000885: 12,2516 72405 DMP SL1 048666,000886: 12,2517 00045 KEPC2 048667,000887: 12,2520 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6 048668,000888: 12,2521 21634 TPMODE 048669,000889: 12,2522 00041 R1 048670,000890: 12,2523 76261 SR TAD # PL AT 3 048671,000891: 12,2524 20607 6 048672,000892: 12,2525 41301 NORM DMP # TO PRESERVE SIGNIF. 048673,000893: 12,2526 00047 X1 048674,000894: 12,2527 00025 X 048675,000895: 12,2530 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0 048676,000896: 12,2531 20576 0 -3,1 048677,000897: 12,2532 57232 SL4R DMPR 048678,000898: 12,2533 00023 1/ROOTMU 048679,000899: 12,2534 00037 STORE T 048680,000900: 12,2535 77616 RVQ 048681,000901: 048682,000902: # Page 1181 048683,000903: 12,2536 71214 ITERATOR BONCLR DLOAD 048684,000904: 12,2537 00614 SLOPESW 048685,000905: 12,2540 24606 FIRSTIME 048686,000906: 12,2541 00037 DEP 048687,000907: 12,2542 60225 DSU NORM 048688,000908: 12,2543 02762 DEPREV 048689,000909: 12,2544 00047 X1 048690,000910: 12,2545 60325 PDDL NORM 048691,000911: 12,2546 00015 DELINDEP 048692,000912: 12,2547 00050 X2 048693,000913: 12,2550 41260 XSU,1 DMP 048694,000914: 12,2551 00047 X2 048695,000915: 12,2552 02760 DELDEP 048696,000916: 12,2553 56257 SLR* DDV # PL UP 2 048697,000917: 12,2554 21202 1,1 048698,000918: 12,2555 43142 SR1 BOFF 048699,000919: 12,2556 04351 ORDERSW 048700,000920: 12,2557 24562 SGNCHECK 048701,000921: 12,2560 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST 048702,000922: 12,2561 02760 DELDEP # DISREGARD IT TO FIND MIN. 048703,000923: 048704,000924: 12,2562 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2 048705,000925: 12,2563 24620 POSDEL 048706,000926: 12,2564 43145 DLOAD BON 048707,000927: 12,2565 02766 INDEP 048708,000928: 12,2566 04311 ORDERSW 048709,000929: 12,2567 24571 MINCHECK 048710,000930: 12,2570 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN. 048711,000931: 048712,000932: 12,2571 45221 MINCHECK BDSU DSU 048713,000933: 12,2572 00011 MIN 048714,000934: 12,2573 51000 BOV BPL 048715,000935: 12,2574 24600 MODNGDEL 048716,000936: 12,2575 24600 MODNGDEL 048717,000937: 12,2576 77650 GOTO 048718,000938: 12,2577 24632 DELOK 048719,000939: 048720,000940: 12,2600 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND 048721,000941: 12,2601 00011 MIN 048722,000942: 12,2602 02766 INDEP 048723,000943: 12,2603 52005 DMP GOTO 048724,000944: 12,2604 11015 DP9/10 048725,000945: 12,2605 24634 NEWDEL 048726,000946: 048727,000947: 12,2606 41345 FIRSTIME DLOAD DMP 048728,000948: 12,2607 00011 MIN 048729,000949: 12,2610 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE. 048730,000950: 12,2611 41325 PDDL DMP # S2(41D) SHOULDN'T CONTAIN HI ORDER ONES 048731,000951: # Page 1182 048732,000952: 12,2612 00017 MAX 048733,000953: 12,2613 00051 TWEEKIT 048734,000954: 12,2614 77625 DSU 048735,000955: 12,2615 52165 SIGN GOTO 048736,000956: 12,2616 02760 DELDEP 048737,000957: 12,2617 24562 SGNCHECK 048738,000958: 048739,000959: 12,2620 43145 POSDEL DLOAD BON 048740,000960: 12,2621 02766 INDEP 048741,000961: 12,2622 04311 ORDERSW 048742,000962: 12,2623 24625 MAXCHECK 048743,000963: 12,2624 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN. 048744,000964: 048745,000965: 12,2625 45221 MAXCHECK BDSU DSU 048746,000966: 12,2626 00017 MAX 048747,000967: 12,2627 50000 BOV BMN 048748,000968: 12,2630 24636 MODPSDEL 048749,000969: 12,2631 24636 MODPSDEL 048750,000970: 12,2632 77745 DELOK DLOAD 048751,000971: 12,2633 00001 0D 048752,000972: 12,2634 00015 NEWDEL STORE DELINDEP 048753,000973: 12,2635 77616 RVQ 048754,000974: 048755,000975: 12,2636 45345 MODPSDEL DLOAD DSU 048756,000976: 12,2637 00017 MAX 048757,000977: 12,2640 02766 INDEP 048758,000978: 12,2641 52005 DMP GOTO 048759,000979: 12,2642 11015 DP9/10 048760,000980: 12,2643 24634 NEWDEL 048761,000981: 048762,000982: 12,2644 44753 CHECKCTR CS ONE 048763,000983: 12,2645 50120 INDEX FIXLOC 048764,000984: 12,2646 60026 AD ITERCTR 048765,000985: 12,2647 50120 INDEX FIXLOC 048766,000986: 12,2650 54026 TS ITERCTR 048767,000987: 12,2651 54154 TS MPAC 048768,000988: 12,2652 06064 TC DANZIG 048769,000989: 048770,000990: # Page 1183 048771,000991: 12,2653 44545 NEWSTATE DLOAD SR4R 048772,000992: 12,2654 00041 R1 048773,000993: 12,2655 74225 DSU VXSC 048774,000994: 12,2656 00035 XSQC(XI) 048775,000995: 12,2657 02722 UR1 048776,000996: 12,2660 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6 048777,000997: 12,2661 00025 X 048778,000998: 12,2662 60316 DSQ NORM 048779,000999: 12,2663 00047 X1 048780,001000: 12,2664 57275 DMPR DMPR 048781,001001: 12,2665 00023 1/ROOTMU 048782,001002: 12,2666 00025 X 048783,001003: 12,2667 53605 DMP SRR* 048784,001004: 12,2670 00033 S(XI) 048785,001005: 12,2671 21572 0 -7,1 048786,001006: 12,2672 77621 BDSU 048787,001007: 12,2673 00037 T 048788,001008: 12,2674 74352 SL1 VXSC 048789,001009: 12,2675 02744 VVEC 048790,001010: 12,2676 53372 VSL1 VAD # PL AT 0 048791,001011: 12,2677 41512 VSL4 PUSH 048792,001012: 12,2700 77646 ABVAL 048793,001013: 12,2701 77701 LAMENTER NORM 048794,001014: 12,2702 00047 X1 048795,001015: 12,2703 16720 STODL R2 048796,001016: 12,2704 00031 XI 048797,001017: 12,2705 45205 DMP DSU 048798,001018: 12,2706 00033 S(XI) 048799,001019: 12,2707 10777 D1/128 048800,001020: 12,2710 76405 DMP SL1R 048801,001021: 12,2711 00021 ROOTMU 048802,001022: 12,2712 53605 DMP SLR* 048803,001023: 12,2713 00025 X 048804,001024: 12,2714 21176 0 -3,1 048805,001025: 12,2715 74271 DDV VXSC 048806,001026: 12,2716 02720 R2 048807,001027: 12,2717 02722 UR1 048808,001028: 12,2720 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12 048809,001029: 12,2721 00035 XSQC(XI) 048810,001030: 12,2722 56257 SLR* DDV 048811,001031: 12,2723 21175 0 -4,1 048812,001032: 12,2724 02720 R2 048813,001033: 12,2725 77621 BDSU 048814,001034: 12,2726 11013 D1/256 048815,001035: 12,2727 53361 VXSC VAD 048816,001036: 12,2730 02744 VVEC # PL AT 6 048817,001037: 12,2731 43412 VSL8 RVQ 048818,001038: 048819,001039: # Page 1184 048820,001040: 04,2000 SETLOC CONICS1 048821,001041: 04,2000 BANK 048822,001042: 048823,001043: 04,2773 COUNT* $$/CONIC 048824,001044: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE. 048825,001045: 04,2773 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000) 048826,001046: 04,2774 04000 00000 D1/8 2DEC 1.0 B-3 048827,001047: 04,2776 00200 00000 D1/128 2DEC 1.0 B-7 048828,001048: 04,3000 00400 00000 D1/64 2DEC 1.0 B-6 048829,001049: 04,3002 10000 00000 D1/4 2DEC 1.0 B-2 048830,001050: 04,3004 02000 00000 D1/16 2DEC 1.0 B-4 048831,001051: 04,3006 01000 00000 D1/32 2DEC 1.0 B-5 048832,001052: 04,3010 00020 00000 D1/1024 2DEC 1.0 B-10 048833,001053: 04,3012 00100 00000 D1/256 2DEC 1.0 B-8 048834,001054: 04,3014 34631 23146 DP9/10 2DEC .9 048835,001055: 04,3016 12,2006 KEPZERO EQUALS LO6ZEROS 048836,001056: 04,3016 77467 77777 -50SC 2DEC -50.0 B-12 048837,001057: 04,3020 03110 17665 2PISC 2DEC 6.28318530 B-6 048838,001058: 04,3022 04,3005 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000) 048839,001059: 04,3022 04,3011 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100) 048840,001060: 04,3022 00000 00001 ONEBIT 2DEC 1.0 B-28 048841,001061: 04,3024 37767 37737 COGUPLIM 2DEC .999511597 048842,001062: 04,3026 40010 40040 COGLOLIM 2DEC -.999511597 048843,001063: 048844,001064: # Page 1185 048845,001065: 12,2000 SETLOC CONICS 048846,001066: 12,2000 BANK 048847,001067: 048848,001068: 12,2732 COUNT* $$/CONIC 048849,001069: 12,2732 40220 TIMETHET STQ SETPD # PL AT 0 048850,001070: 12,2733 02710 RTNTT 048851,001071: 12,2734 00001 0 048852,001072: 12,2735 77600 BOV 048853,001073: 12,2736 24737 +1 048854,001074: 12,2737 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6 048855,001075: 12,2740 02655 RVEC 048856,001076: 12,2741 02744 VVEC 048857,001077: 12,2742 77624 CALL 048858,001078: 12,2743 11030 PARAM 048859,001079: 12,2744 45000 BOV CALL 048860,001080: 12,2745 24764 COGAOVFL # PL AT 0 048861,001081: 12,2746 24767 GETX 048862,001082: 12,2747 43145 COMMNOUT DLOAD BON 048863,001083: 12,2750 00031 XI 048864,001084: 12,2751 04310 INFINFLG 048865,001085: 12,2752 25752 ABTCONIC 048866,001086: 12,2753 45014 CLEAR CALL 048867,001087: 12,2754 04273 COGAFLAG 048868,001088: 12,2755 24421 DELTIME 048869,001089: 12,2756 45014 BON CALL 048870,001090: 12,2757 03706 RVSW 048871,001091: 12,2760 02710 RTNTT 048872,001092: 12,2761 24653 NEWSTATE 048873,001093: 12,2762 77650 GOTO 048874,001094: 12,2763 02710 RTNTT 048875,001095: 048876,001096: 12,2764 77614 COGAOVFL SETGO 048877,001097: 12,2765 04033 COGAFLAG 048878,001098: 12,2766 25752 ABTCONIC 048879,001099: 048880,001100: 04,3030 BANK 4 048881,001101: 04,2000 SETLOC CONICS1 048882,001102: 04,2000 BANK 048883,001103: 04,3030 COUNT* $$/CONIC 048884,001104: 04,3030 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6 048885,001105: 04,3031 02753 RTNPRM 048886,001106: 04,3032 03665 NORMSW 048887,001107: 04,3033 77614 CLEAR 048888,001108: 04,3034 04273 COGAFLAG 048889,001109: 04,3035 45131 SSP CALL 048890,001110: 04,3036 02673 GEOMSGN 048891,001111: 04,3037 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG 048892,001112: 04,3040 11074 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2 048893,001113: 04,3041 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0 048894,001114: 04,3042 56261 SR DDV 048895,001115: # Page 1186 048896,001116: 04,3043 20606 5 048897,001117: 04,3044 00045 36D 048898,001118: 04,3045 32766 STOVL* COGA 048899,001119: 04,3046 10005 MUTABLE,1 048900,001120: 04,3047 14017 STODL 1/MU 048901,001121: 04,3050 02720 MAGVEC2 048902,001122: 04,3051 60316 DSQ NORM 048903,001123: 04,3052 00047 X1 048904,001124: 04,3053 41275 DMPR DMP 048905,001125: 04,3054 00017 1/MU 048906,001126: 04,3055 00041 R1 048907,001127: 04,3056 77657 SRR* 048908,001128: 04,3057 21576 0 -3,1 048909,001129: 04,3060 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2 048910,001130: 04,3061 11007 D1/32 048911,001131: 04,3062 16742 STODL R1A # R1A (+6) PL AT 0 048912,001132: 048913,001133: 04,3063 60205 DMP NORM 048914,001134: 04,3064 00045 36D 048915,001135: 04,3065 00047 X1 048916,001136: 04,3066 53605 DMP SR* 048917,001137: 04,3067 00045 36D 048918,001138: 04,3070 20575 0 -4,1 048919,001139: 04,3071 02740 STORE P # P (+4) 048920,001140: 04,3072 77650 GOTO 048921,001141: 04,3073 02753 RTNPRM 048922,001142: 048923,001143: # Page 1187 048924,001144: 04,3074 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6 048925,001145: 04,3075 16712 STODL U2 # U2 (+1) 048926,001146: 04,3076 00045 36D 048927,001147: 04,3077 26720 STOVL MAGVEC2 # PL AT 0 048928,001148: 04,3100 77656 UNIT 048929,001149: 04,3101 02722 STORE UR1 # UR1 (+1) 048930,001150: 04,3102 72441 DOT SL1 048931,001151: 04,3103 02712 U2 048932,001152: 04,3104 77725 PDDL # 0D=CSTH (+1) PL AT 2 048933,001153: 04,3105 00045 36D 048934,001154: 04,3106 24041 STOVL R1 # R1 (+29 OR +27) 048935,001155: 04,3107 02722 UR1 048936,001156: 04,3110 76435 VXV VSL1 048937,001157: 04,3111 02712 U2 048938,001158: 04,3112 75214 BON SIGN 048939,001159: 04,3113 03705 NORMSW 048940,001160: 04,3114 11126 HAVENORM 048941,001161: 04,3115 02673 GEOMSGN 048942,001162: 04,3116 40056 UNIT BOV 048943,001163: 04,3117 11124 COLINEAR 048944,001164: 04,3120 16674 UNITNORM STODL UN # UN (+1) 048945,001165: 04,3121 00045 36D 048946,001166: 04,3122 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2) 048947,001167: 04,3123 02673 GEOMSGN 048948,001168: 048949,001169: 04,3124 52162 COLINEAR VSR1 GOTO 048950,001170: 04,3125 11120 UNITNORM 048951,001171: 048952,001172: 04,3126 75246 HAVENORM ABVAL SIGN 048953,001173: 04,3127 02673 GEOMSGN 048954,001174: 04,3130 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2) 048955,001175: 048956,001176: # Page 1188 048957,001177: 12,2767 BANK 12 048958,001178: 12,2000 SETLOC CONICS 048959,001179: 12,2000 BANK 048960,001180: 048961,001181: 12,2767 COUNT* $$/CONIC 048962,001182: 12,2767 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC 048963,001183: 12,2770 00003 3 048964,001184: 12,2771 00052 S2 048965,001185: 12,2772 00001 1 048966,001186: 12,2773 77614 CLEAR 048967,001187: 12,2774 04276 360SW 048968,001188: 12,2775 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2 048969,001189: 12,2776 02732 CSTH 048970,001190: 12,2777 44342 SR1 BDSU 048971,001191: 12,3000 11003 D1/4 048972,001192: 12,3001 54325 PDDL SRR # PL AT 4D 048973,001193: 12,3002 02730 SNTH 048974,001194: 12,3003 21607 6 048975,001195: 12,3004 77671 DDV # PL AT 2 048976,001196: 12,3005 77600 BOV 048977,001197: 12,3006 25122 360CHECK 048978,001198: 12,3007 41225 DSU DMP 048979,001199: 12,3010 02766 COGA # PL AT 0 048980,001200: 12,3011 40132 SL2R BOV 048981,001201: 12,3012 25122 360CHECK 048982,001202: 12,3013 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2 048983,001203: 12,3014 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5 048984,001204: 12,3015 00155 MPAC 048985,001205: 12,3016 02742 R1A 048986,001206: 12,3017 76202 SR4 TAD # PL AT 2 048987,001207: 12,3020 75440 BMN SQRT 048988,001208: 12,3021 25205 INFINITY 048989,001209: 12,3022 43306 ROUND DAD # PL AT 0D 048990,001210: 12,3023 61000 BOV TIX,2 048991,001211: 12,3024 25120 RESETX2 048992,001212: 12,3025 25013 WLOOP 048993,001213: 048994,001214: 12,3026 40065 BDDV BOV 048995,001215: 12,3027 10777 D1/128 048996,001216: 12,3030 25205 INFINITY 048997,001217: 12,3031 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2 048998,001218: 12,3032 25205 INFINITY 048999,001219: 12,3033 77716 DSQ 049000,001220: 12,3034 41301 NORM DMP 049001,001221: 12,3035 00047 X1 049002,001222: 12,3036 02742 R1A 049003,001223: 12,3037 77457 SRR* EXIT 049004,001224: 12,3040 21567 0 -10D,1 049005,001225: 12,3041 07225 TC POLY 049006,001226: # Page 1189 049007,001227: 12,3042 00005 DEC 5 B-14 049008,001228: 12,3043 20000 00000 2DEC .5 049009,001229: 12,3045 72525 52471 2DEC -.166666770 049010,001230: 12,3047 03146 15003 2DEC .100000392 049011,001231: 12,3051 75556 45210 2DEC -.071401086 049012,001232: 12,3053 01615 13553 2DEC .055503292 049013,001233: 12,3055 76371 63777 2DEC -.047264098 049014,001234: 12,3057 01232 27367 2DEC .040694204 049015,001235: 049016,001236: 12,3061 06042 TC INTPRET 049017,001237: 12,3062 76405 DMP SL1R # PL AT 0D 049018,001238: 12,3063 43006 PUSH BON 049019,001239: 12,3064 04316 360SW 049020,001240: 12,3065 25172 TRUE360X 049021,001241: 12,3066 60316 XCOMMON DSQ NORM 049022,001242: 12,3067 00047 X1 049023,001243: 12,3070 53605 DMP SRR* 049024,001244: 12,3071 02742 R1A 049025,001245: 12,3072 21565 0 -12D,1 049026,001246: 12,3073 14031 STODL XI # XI (+6) 049027,001247: 12,3074 00041 R1 049028,001248: 12,3075 75542 SR1 SQRT 049029,001249: 12,3076 41306 ROUND DMP 049030,001250: 12,3077 77632 SL4R # PL AT 0 049031,001251: 12,3100 00025 STORE X # X (+17 OR +16) 049032,001252: 049033,001253: 12,3101 60316 DSQ NORM 049034,001254: 12,3102 00047 X1 049035,001255: 12,3103 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2 049036,001256: 12,3104 02740 P 049037,001257: 12,3105 00041 R1 049038,001258: 12,3106 75452 SL3 SQRT 049039,001259: 12,3107 56405 DMP SL3R 049040,001260: 12,3110 02766 COGA 049041,001261: 12,3111 14043 STODL KEPC1 049042,001262: 12,3112 02742 R1A 049043,001263: 12,3113 43021 BDSU CLEAR 049044,001264: 12,3114 11001 D1/64 049045,001265: 12,3115 04270 INFINFLG 049046,001266: 12,3116 00045 STORE KEPC2 049047,001267: 12,3117 77616 RVQ 049048,001268: 049049,001269: # Page 1190 049050,001270: 12,3120 77774 RESETX2 AXT,2 049051,001271: 12,3121 00003 3 049052,001272: 049053,001273: 12,3122 51001 360CHECK SETPD BPL 049054,001274: 12,3123 00001 0D 049055,001275: 12,3124 25127 INVRSEQN 049056,001276: 12,3125 77614 SET 049057,001277: 12,3126 04076 360SW 049058,001278: 049059,001279: 12,3127 75545 INVRSEQN DLOAD SQRT 049060,001280: 12,3130 02740 P 049061,001281: 12,3131 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2 049062,001282: 12,3132 02730 SNTH 049063,001283: 12,3133 02766 COGA 049064,001284: 12,3134 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4 049065,001285: 12,3135 02732 CSTH 049066,001286: 12,3136 43202 SR4 DAD 049067,001287: 12,3137 11007 D1/32 049068,001288: 12,3140 41225 DSU DMP # PL AT 2,0 049069,001289: 12,3141 55301 NORM BDDV 049070,001290: 12,3142 00047 X1 049071,001291: 12,3143 02730 SNTH 049072,001292: 12,3144 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY 049073,001293: 12,3145 21174 0 -5,1 049074,001294: 12,3146 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2 049075,001295: 12,3147 14043 STODL 34D 049076,001296: 12,3150 11005 D1/16 049077,001297: 12,3151 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4 049078,001298: 12,3152 65234 RTB PDDL # PL AT 7 049079,001299: 12,3153 21634 TPMODE 049080,001300: 12,3154 02742 R1A 049081,001301: 12,3155 40405 DMP SR4 049082,001302: 12,3156 00043 34D 049083,001303: 12,3157 77771 TAD 049084,001304: 12,3160 75440 BMN SQRT # PL AT 4 049085,001305: 12,3161 25205 INFINITY 049086,001306: 12,3162 77615 DAD # PL AT 2 049087,001307: 12,3163 60304 TIX,2 NORM 049088,001308: 12,3164 25151 1/WLOOP 049089,001309: 12,3165 00047 X1 049090,001310: 12,3166 77665 BDDV 049091,001311: 12,3167 52057 SLR* GOTO # PL AT 0 049092,001312: 12,3170 21172 0 -7,1 049093,001313: 12,3171 25031 POLYCOEF 049094,001314: 049095,001315: 12,3172 50145 TRUE360X DLOAD BMN 049096,001316: 12,3173 02742 R1A 049097,001317: # Page 1191 049098,001318: 12,3174 25205 INFINITY 049099,001319: 12,3175 60366 SQRT NORM 049100,001320: 12,3176 00047 X1 049101,001321: 12,3177 53665 BDDV SL* 049102,001322: 12,3200 11021 2PISC 049103,001323: 12,3201 20176 0 -3,1 049104,001324: 12,3202 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2 049105,001325: 12,3203 77650 GOTO 049106,001326: 12,3204 25066 XCOMMON 049107,001327: 12,3205 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH 049108,001328: 12,3206 00001 0 # INFINITY IS REQUIRED 049109,001329: 12,3207 25210 OVFLCLR 049110,001330: 12,3210 43414 OVFLCLR SET RVQ 049111,001331: 12,3211 04070 INFINFLG 049112,001332: 049113,001333: # Page 1192 049114,001334: 12,3212 40220 LAMBERT STQ SETPD 049115,001335: 12,3213 02710 RTNLAMB 049116,001336: 12,3214 00001 0D 049117,001337: 12,3215 77600 BOV 049118,001338: 12,3216 25217 +1 049119,001339: 12,3217 76614 CLEAR VLOAD* 049120,001340: 12,3220 02674 SOLNSW 049121,001341: 12,3221 10005 MUTABLE,1 049122,001342: 12,3222 14017 STODL 1/MU 049123,001343: 12,3223 02671 TDESIRED 049124,001344: 12,3224 77675 DMPR 049125,001345: 12,3225 11006 BEE19 049126,001346: 12,3226 02764 STORE EPSILONL 049127,001347: 12,3227 77214 SET VLOAD 049128,001348: 12,3230 00474 SLOPESW 049129,001349: 12,3231 02655 R1VEC 049130,001350: 12,3232 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6 049131,001351: 12,3233 02663 R2VEC # MPAC=R2VEC (+29 OR +27) 049132,001352: 12,3234 11074 GEOM 049133,001353: 12,3235 16730 STODL SNTH # 0D=CSTH (+1) PL AT 2 049134,001354: 12,3236 02720 MAGVEC2 049135,001355: 12,3237 65301 NORM PDDL 049136,001356: 12,3240 00047 X1 049137,001357: 12,3241 00041 R1 049138,001358: 12,3242 56342 SR1 DDV # PL AT 2 049139,001359: 12,3243 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2 049140,001360: 12,3244 20173 0 -6,1 049141,001361: 12,3245 77626 STADR 049142,001362: 12,3246 75045 STORE CSTH # CSTH (+1) 049143,001363: 12,3247 44342 SR1 BDSU 049144,001364: 12,3250 11003 D1/4 049145,001365: 12,3251 02734 STORE 1-CSTH # 1-CSTH (+2) 049146,001366: 049147,001367: 12,3252 53106 ROUND BZE 049148,001368: 12,3253 25473 360LAMB 049149,001369: 12,3254 65301 NORM PDDL # PL AT 4 049150,001370: 12,3255 00047 X1 049151,001371: 12,3256 00001 0D 049152,001372: 12,3257 56342 SR1 DDV # PL AT 2 049153,001373: 12,3260 75457 SL* SQRT 049154,001374: 12,3261 20176 0 -3,1 049155,001375: 12,3262 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4 049156,001376: 12,3263 02730 SNTH 049157,001377: 12,3264 20607 6 049158,001378: 12,3265 43271 DDV DAD # PL AT 2 049159,001379: 12,3266 02734 1-CSTH 049160,001380: 12,3267 77626 STADR 049161,001381: 12,3270 77760 STORE COGAMAX 049162,001382: 12,3271 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM 049163,001383: 12,3272 25277 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE 049164,001384: # Page 1193 049165,001385: 12,3273 25302 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP 049166,001386: 12,3274 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM 049167,001387: 12,3275 11025 COGUPLIM 049168,001388: 12,3276 25302 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA 049169,001389: 12,3277 77745 UPLIM DLOAD 049170,001390: 12,3300 11025 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA 049171,001391: 12,3301 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION 049172,001392: 12,3302 77745 MAXCOGA DLOAD 049173,001393: 12,3303 02732 CSTH 049174,001394: 12,3304 45261 SR DSU # PL AT 0 049175,001395: 12,3305 20607 6 049176,001396: 12,3306 77626 STADR 049177,001397: 12,3307 61041 STODL CSTH-RHO 049178,001398: 12,3310 02673 GEOMSGN 049179,001399: 12,3311 71240 BMN DLOAD 049180,001400: 12,3312 25513 LOLIM 049181,001401: 12,3313 02736 CSTH-RHO 049182,001402: 12,3314 56352 SL1 DDV 049183,001403: 12,3315 02730 SNTH 049184,001404: 12,3316 77600 BOV 049185,001405: 12,3317 25513 LOLIM 049186,001406: 12,3320 00011 MINCOGA STORE COGAMIN # COGAMIN (+5) 049187,001407: 12,3321 66214 BON SSP 049188,001408: 12,3322 00715 GUESSW 049189,001409: 12,3323 25477 NOGUESS 049190,001410: 12,3324 00051 TWEEKIT 049191,001411: 12,3325 00001 00001 049192,001412: 12,3326 77745 DLOAD 049193,001413: 12,3327 02766 COGA 049194,001414: 049195,001415: 12,3330 77605 LAMBLOOP DMP 049196,001416: 12,3331 02730 SNTH 049197,001417: 12,3332 45342 SR1 DSU 049198,001418: 12,3333 02736 CSTH-RHO 049199,001419: 12,3334 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(XI)) PL = 2 049200,001420: 12,3335 00047 X1 049201,001421: 12,3336 02734 1-CSTH 049202,001422: 12,3337 56257 SL* DDV # 1-CSTH (+2) PL AT 0 049203,001423: 12,3340 20170 0 -9D,1 049204,001424: 12,3341 53040 BMN BZE 049205,001425: 12,3342 25427 NEGP 049206,001426: 12,3343 25427 NEGP 049207,001427: 12,3344 16740 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4) 049208,001428: 12,3345 02766 COGA 049209,001429: 12,3346 43316 DSQ DAD 049210,001430: 12,3347 11011 D1/1024 049211,001431: 12,3350 41301 NORM DMP 049212,001432: 12,3351 00047 X1 049213,001433: 12,3352 02740 P 049214,001434: # Page 1194 049215,001435: 12,3353 44257 SR* BDSU 049216,001436: 12,3354 20571 0 -8D,1 049217,001437: 12,3355 11007 D1/32 049218,001438: 12,3356 16742 STODL R1A # R1A=2-P(1+COGA COGA) (+6) 049219,001439: 12,3357 02740 P 049220,001440: 12,3360 45000 BOV CALL 049221,001441: 12,3361 25432 HIENERGY 049222,001442: 12,3362 24767 GETX 049223,001443: 12,3363 77745 DLOAD 049224,001444: 12,3364 00037 T 049225,001445: 12,3365 16762 STODL TPREV 049226,001446: 12,3366 00031 XI 049227,001447: 12,3367 45014 BON CALL 049228,001448: 12,3370 04310 INFINFLG 049229,001449: 12,3371 25427 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS 049230,001450: 12,3372 24421 DELTIME 049231,001451: 12,3373 44200 BOV BDSU 049232,001452: 12,3374 25447 BIGTIME 049233,001453: 12,3375 02671 TDESIRED 049234,001454: 12,3376 02760 STORE TERRLAMB 049235,001455: 12,3377 44246 ABS BDSU 049236,001456: 12,3400 02764 EPSILONL 049237,001457: 12,3401 47044 BPL RTB 049238,001458: 12,3402 25516 INITV 049239,001459: 12,3403 24644 CHECKCTR 049240,001460: 12,3404 43030 BHIZ BON 049241,001461: 12,3405 25460 SUFFCHEK 049242,001462: 12,3406 00714 SLOPESW 049243,001463: 12,3407 25415 GOITER 049244,001464: 12,3410 45345 DLOAD DSU 049245,001465: 12,3411 00037 T 049246,001466: 12,3412 02762 TPREV 049247,001467: 12,3413 77654 BZE 049248,001468: 12,3414 25460 SUFFCHEK 049249,001469: 12,3415 77624 GOITER CALL 049250,001470: 12,3416 24536 ITERATOR 049251,001471: 12,3417 53145 DLOAD BZE 049252,001472: 12,3420 00155 MPAC 049253,001473: 12,3421 25460 SUFFCHEK 049254,001474: 12,3422 77615 DAD 049255,001475: 12,3423 02766 COGA 049256,001476: 12,3424 02766 STORE COGA 049257,001477: 12,3425 77650 GOTO 049258,001478: 12,3426 25330 LAMBLOOP 049259,001479: 049260,001480: 12,3427 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE 049261,001481: 12,3430 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA. 049262,001482: 12,3431 25452 LOENERGY 049263,001483: 049264,001484: # Page 1195 049265,001485: 12,3432 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED. 049266,001486: 12,3433 00001 0 049267,001487: 12,3434 02766 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50. 049268,001488: 12,3435 00011 STORE COGAMIN # THIS IS THE NEW BOUND. 049269,001489: 12,3436 70545 COMMONLM DLOAD SR1 049270,001490: 12,3437 00015 DCOGA 049271,001491: 12,3440 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT 049272,001492: 12,3441 44254 BZE BDSU 049273,001493: 12,3442 25460 SUFFCHEK 049274,001494: 12,3443 02766 COGA 049275,001495: 12,3444 02766 STORE COGA 049276,001496: 12,3445 77650 GOTO # RESTART THIS LOOP 049277,001497: 12,3446 25330 LAMBLOOP 049278,001498: 049279,001499: 12,3447 77745 BIGTIME DLOAD 049280,001500: 12,3450 02762 TPREV 049281,001501: 12,3451 00037 STORE T 049282,001502: 049283,001503: 12,3452 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED 049284,001504: 12,3453 00001 0 049285,001505: 12,3454 02766 COGA # IN OVERFLOW OF TIME. 049286,001506: 12,3455 00017 STORE COGAMAX # THIS IS THE NEW BOUND. 049287,001507: 12,3456 77650 GOTO 049288,001508: 12,3457 25436 COMMONLM 049289,001509: 049290,001510: 12,3460 51545 SUFFCHEK DLOAD ABS 049291,001511: 12,3461 02760 TERRLAMB 049292,001512: 12,3462 41325 PDDL DMP 049293,001513: 12,3463 02671 TDESIRED # PL AT 2D 049294,001514: 12,3464 10774 BEE17 049295,001515: 12,3465 45215 DAD DSU # PL AT 0D 049296,001516: 12,3466 11023 ONEBIT 049297,001517: 12,3467 43044 BPL SETGO 049298,001518: 12,3470 25516 INITV 049299,001519: 12,3471 02434 SOLNSW 049300,001520: 12,3472 25516 INITV 049301,001521: 12,3473 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1 049302,001522: 12,3474 00001 0 049303,001523: 12,3475 02434 SOLNSW 049304,001524: 12,3476 02710 RTNLAMB 049305,001525: 049306,001526: 12,3477 71331 NOGUESS SSP DLOAD 049307,001527: 12,3500 00051 TWEEKIT 049308,001528: 12,3501 10000 20000 049309,001529: 12,3502 00011 COGAMIN 049310,001530: 12,3503 65342 SR1 PDDL 049311,001531: # Page 1196 049312,001532: 12,3504 00017 COGAMAX 049313,001533: 12,3505 43342 SR1 DAD 049314,001534: 12,3506 77626 STADR # PL AT 0 049315,001535: 12,3507 75011 STORE COGA 049316,001536: 12,3510 00015 STORE DCOGA 049317,001537: 12,3511 77650 GOTO 049318,001538: 12,3512 25330 LAMBLOOP 049319,001539: 049320,001540: 12,3513 52145 LOLIM DLOAD GOTO 049321,001541: 12,3514 11027 COGLOLIM # COGLOLIM=-.999511597 049322,001542: 12,3515 25320 MINCOGA 049323,001543: 049324,001544: 12,3516 60345 INITV DLOAD NORM 049325,001545: 12,3517 00041 R1 049326,001546: 12,3520 00047 X1 049327,001547: 12,3521 70525 PDDL SR1 # PL AT 2 049328,001548: 12,3522 02740 P 049329,001549: 12,3523 77671 DDV # PL AT 0 049330,001550: 12,3524 75457 SL* SQRT 049331,001551: 12,3525 20175 0 -4,1 049332,001552: 12,3526 72405 DMP SL1 049333,001553: 12,3527 00021 ROOTMU 049334,001554: 12,3530 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2 049335,001555: 12,3531 02766 COGA 049336,001556: 12,3532 74261 SL VXSC 049337,001557: 12,3533 20206 5 049338,001558: 12,3534 02722 UR1 049339,001559: 12,3535 77725 PDDL # XCH WITH 0D PL AT 0,6 049340,001560: 12,3536 76561 VXSC VSL1 049341,001561: 12,3537 02674 UN 049342,001562: 12,3540 53235 VXV VAD 049343,001563: 12,3541 02722 UR1 # PL AT 0 049344,001564: 12,3542 77772 VSL1 049345,001565: 12,3543 02744 STORE VVEC 049346,001566: 12,3544 53135 SLOAD BZE 049347,001567: 12,3545 02702 VTARGTAG 049348,001568: 12,3546 25551 TARGETV 049349,001569: 12,3547 77650 GOTO 049350,001570: 12,3550 02710 RTNLAMB 049351,001571: 049352,001572: 12,3551 45145 TARGETV DLOAD CALL 049353,001573: 12,3552 02720 MAGVEC2 049354,001574: 12,3553 24701 LAMENTER 049355,001575: 12,3554 02703 STORE VTARGET 049356,001576: 12,3555 77650 GOTO 049357,001577: 12,3556 02710 RTNLAMB 049358,001578: 049359,001579: # Page 1197 049360,001580: 12,3557 40220 TIMERAD STQ SETPD # PL AT 0 049361,001581: 12,3560 02710 RTNTR 049362,001582: 12,3561 00001 0 049363,001583: 12,3562 77600 BOV 049364,001584: 12,3563 25564 +1 049365,001585: 12,3564 63375 VLOAD PDVL # PL AT 6 049366,001586: 12,3565 02655 RVEC 049367,001587: 12,3566 02744 VVEC 049368,001588: 12,3567 77624 CALL 049369,001589: 12,3570 11030 PARAM 049370,001590: 12,3571 71200 BOV DLOAD 049371,001591: 12,3572 24764 COGAOVFL # PL AT 0 049372,001592: 12,3573 11007 D1/32 049373,001593: 12,3574 41225 DSU DMP 049374,001594: 12,3575 02742 R1A 049375,001595: 12,3576 02740 P 049376,001596: 12,3577 41366 SQRT DMP 049377,001597: 12,3600 02766 COGA 049378,001598: 12,3601 74212 SL4 VXSC 049379,001599: 12,3602 02712 U2 049380,001600: 12,3603 45325 PDDL DSU # PL AT 6 049381,001601: 12,3604 11001 D1/64 049382,001602: 12,3605 02742 R1A 049383,001603: 12,3606 52361 VXSC VSU # PL AT 0 049384,001604: 12,3607 02722 UR1 049385,001605: 12,3610 53512 VSL4 UNIT 049386,001606: 12,3611 77600 BOV 049387,001607: 12,3612 25670 CIRCULAR 049388,001608: 12,3613 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6 049389,001609: 12,3614 02756 RDESIRED # 35D=ECC (+3) 049390,001610: 12,3615 00047 X1 049391,001611: 12,3616 41325 PDDL DMP # PL AT 8 049392,001612: 12,3617 00041 R1 049393,001613: 12,3620 02740 P 049394,001614: 12,3621 56257 SL* DDV # PL AT 6 049395,001615: 12,3622 20201 0,1 049396,001616: 12,3623 56225 DSU DDV 049397,001617: 12,3624 11005 D1/16 049398,001618: 12,3625 00045 36D # 36D=ECC (+3) 049399,001619: 12,3626 00031 STORE COSF 049400,001620: 12,3627 63400 BOV DSQ 049401,001621: 12,3630 25674 BADR2 049402,001622: 12,3631 50021 BDSU BMN 049403,001623: 12,3632 11003 D1/4 049404,001624: 12,3633 25674 BADR2 049405,001625: 12,3634 75366 SQRT SIGN 049406,001626: 12,3635 02755 SGNRDOT 049407,001627: 12,3636 77614 CLEAR 049408,001628: 12,3637 04272 APSESW 049409,001629: # Page 1198 049410,001630: 12,3640 76561 TERMNVEC VXSC VSL1 049411,001631: 12,3641 02674 UN 049412,001632: 12,3642 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6 049413,001633: 12,3643 00001 0D 049414,001634: 12,3644 53361 VXSC VAD # PL AT 0 049415,001635: 12,3645 00031 COSF 049416,001636: 12,3646 41572 VSL1 PUSH # 0D=U2 PL AT 6 049417,001637: 049418,001638: 12,3647 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX 049419,001639: 12,3650 02722 UR1 049420,001640: 12,3651 25766 DP1/4 049421,001641: 12,3652 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL 049422,001642: 12,3653 25654 +1 # CLEAR OVFIND IF SET 049423,001643: 12,3654 26732 STOVL CSTH # CSTH (+1) 049424,001644: 12,3655 02722 UR1 049425,001645: 12,3656 76435 VXV VSL1 049426,001646: 12,3657 72441 DOT SL1 049427,001647: 12,3660 02674 UN 049428,001648: 12,3661 16730 STODL SNTH # SNTH (+1) 049429,001649: 12,3662 02740 P 049430,001650: 12,3663 77624 CALL 049431,001651: 12,3664 24767 GETX 049432,001652: 12,3665 77614 CLRGO 049433,001653: 12,3666 02634 SOLNSW 049434,001654: 12,3667 24747 COMMNOUT 049435,001655: 049436,001656: 12,3670 43001 CIRCULAR SETPD SETGO 049437,001657: 12,3671 00001 0 049438,001658: 12,3672 02434 SOLNSW 049439,001659: 12,3673 25752 ABTCONIC 049440,001660: 049441,001661: 12,3674 75345 BADR2 DLOAD SIGN 049442,001662: 12,3675 24005 LODPHALF 049443,001663: 12,3676 00031 COSF 049444,001664: 12,3677 14031 STODL COSF 049445,001665: 12,3700 24007 KEPZERO 049446,001666: 12,3701 77614 SETGO 049447,001667: 12,3702 04032 APSESW 049448,001668: 12,3703 25640 TERMNVEC 049449,001669: 049450,001670: # Page 1199 049451,001671: 12,3704 40220 APSIDES STQ SETPD # PL AT 0 049452,001672: 12,3705 02710 RTNAPSE 049453,001673: 12,3706 00001 0D 049454,001674: 12,3707 77600 BOV 049455,001675: 12,3710 25711 +1 049456,001676: 12,3711 63375 VLOAD PDVL # PL AT 6 049457,001677: 12,3712 02655 RVEC 049458,001678: 12,3713 02744 VVEC 049459,001679: 12,3714 77624 CALL 049460,001680: 12,3715 11030 PARAM 049461,001681: 12,3716 77600 BOV # PL AT 0 049462,001682: 12,3717 25720 GETECC 049463,001683: 12,3720 42405 GETECC DMP SL4 049464,001684: 12,3721 02742 R1A 049465,001685: 12,3722 75421 BDSU SQRT 049466,001686: 12,3723 11001 D1/64 049467,001687: 12,3724 02752 STORE ECC 049468,001688: 12,3725 65215 DAD PDDL # PL AT 2 049469,001689: 12,3726 10775 D1/8 049470,001690: 12,3727 00041 R1 049471,001691: 12,3730 72405 DMP SL1 049472,001692: 12,3731 02740 P 049473,001693: 12,3732 77671 DDV # PL AT 0 049474,001694: 12,3733 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2 049475,001695: 12,3734 02742 R1A 049476,001696: 12,3735 00047 X1 049477,001697: 12,3736 53725 PDDL SL* # PL AT 4 049478,001698: 12,3737 00041 R1 049479,001699: 12,3740 20174 0 -5,1 049480,001700: 12,3741 45271 DDV DSU # PL AT 2,0 049481,001701: 12,3742 50000 BOV BMN 049482,001702: 12,3743 25747 INFINAPO 049483,001703: 12,3744 25747 INFINAPO 049484,001704: 12,3745 77650 GOTO 049485,001705: 12,3746 02710 RTNAPSE 049486,001706: 12,3747 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS 049487,001707: 12,3750 24020 LDPOSMAX 049488,001708: 12,3751 02710 RTNAPSE # THAT PL IS AT 0. 049489,001709: 049490,001710: # Page 1200 049491,001711: 12,3752 77776 ABTCONIC EXIT 049492,001712: 12,3753 05642 TC P00DOO 049493,001713: 12,3754 20607 OCT 20607 049494,001714: 049495,001715: 12,3755 12,2017 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. 049496,001716: 049497,001717: # ERASABLE ASSIGNEMENTS 049498,001718: # KEPLER SUBROUTINE 049499,001719: 049500,001720: # INPUT -- 049501,001721: # RRECT ERASE +5 049502,001722: # VRECT ERASE +5 049503,001723: # TAU. ERASE +1 049504,001724: # XKEP ERASE +1 049505,001725: # TC ERASE +1 049506,001726: # XPREV ERASE +1 049507,001727: 12,3755 1/MU EQUALS 14D 049508,001728: 12,3755 ROOTMU EQUALS 16D 049509,001729: 12,3755 1/ROOTMU EQUALS 18D 049510,001730: 049511,001731: # OUTPUT -- 049512,001732: # RCV ERASE +5 049513,001733: # VCV ERASE +5 049514,001734: # RC ERASE +1 049515,001735: # XPREV ERASE +1 049516,001736: 049517,001737: # DEBRIS -- 049518,001738: 12,3755 ALPHA EQUALS 8D 049519,001739: 12,3755 XMAX EQUALS 10D 049520,001740: 12,3755 XMIN EQUALS 12D 049521,001741: 12,3755 X EQUALS 20D 049522,001742: 12,3755 XI EQUALS 24D 049523,001743: 12,3755 S(XI) EQUALS 26D 049524,001744: 12,3755 XSQC(XI) EQUALS 28D 049525,001745: 12,3755 T EQUALS 30D 049526,001746: 12,3755 R1 EQUALS 32D 049527,001747: 12,3755 KEPC1 EQUALS 34D 049528,001748: 12,3755 KEPC2 EQUALS 36D 049529,001749: # DELX ERASE +1 049530,001750: # DELT ERASE +1 049531,001751: # URRECT ERASE +5 049532,001752: # RCNORM ERASE +1 049533,001753: # XPREV EQUALS XKEP 049534,001754: 049535,001755: 049536,001756: # LAMBERT SUBROUTINE 049537,001757: 049538,001758: # INPUT -- 049539,001759: # R1VEC ERASE +5 049540,001760: # Page 1201 049541,001761: # R2VEC ERASE +5 049542,001762: # TDESIRED ERASE +1 049543,001763: # GEOMSGN ERASE +0 049544,001764: # GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT 049545,001765: # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. 049546,001766: # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT 049547,001767: # UN ERASE +5 # ONLY USEC IF NORMSE IS 1 049548,001768: # VTARGTAG ERASE +0 049549,001769: # TWEEKIT EQUALS 40D # ONLY USED IF GUESSW IS 0 049550,001770: 049551,001771: # OUTPUT -- 049552,001772: # VTARGET ERASE +5 # AVAILABLE ONLY IF VTARGTAG IS ZERO. 049553,001773: # V1VEC EQUALS MPAC 049554,001774: 049555,001775: # DEBRIS -- 049556,001776: # RTNLAMB ERASE +0 049557,001777: # U2 ERASE +5 049558,001778: # MAGVEC2 ERASE +1 049559,001779: # UR1 ERASE +5 049560,001780: # R1 EQUALS 31D 049561,001781: # UN ERASE +5 049562,001782: # SNTH ERASE +1 049563,001783: # CSTH ERASE +1 049564,001784: # 1-CSTH ERASE +1 049565,001785: # CSTH-RHO ERASE +1 049566,001786: 12,3755 COGAMAX EQUALS 14D # CLOBBERS 1/MU 049567,001787: 12,3755 COGAMIN EQUALS 8D 049568,001788: 12,3755 DCOGA EQUALS 12D 049569,001789: # TWEEKIT EQUALS 40D 049570,001790: # P ERASE +1 049571,001791: # COGA ERASE +1 049572,001792: # R1A ERASE +1 049573,001793: # X EQUALS 20D 049574,001794: # XSQ EQUALS 22D 049575,001795: # XI EQUALS 24D 049576,001796: # S(XI) EQUALS 26D 049577,001797: # XSQC(XI) EQUALS 28D 049578,001798: # T EQUALS 30D 049579,001799: # KEPC1 EQUALS 34D 049580,001800: # KEPC2 EQUALS 36D 049581,001801: # SLOPSW 049582,001802: # SOLNSW 049583,001803: 049584,001804: # OTHERS -- 049585,001805: # RVEC EQUALS R1VEC 049586,001806: # VVEC ERASE +5 049587,001807: # COGAFLAG 049588,001808: # RVSW 049589,001809: # INFINFLG 049590,001810: # APSESW 049591,001811: # Page 1202 049592,001812: # 360SW 049593,001813: # RTNTT EQUALS RTNLAMB 049594,001814: # ECC ERASE +1 049595,001815: # RTNTR EQUALS RTNLAMB 049596,001816: # RTNAPSE EQUALS RTNLAMB 049597,001817: # R2 EQUALS MAGVEC2 049598,001818: 12,3755 COSF EQUALS 24D 049599,001819: # RTNPRM ERASE +0 049600,001820: # SCNRDOT ERASE +0 049601,001821: # RDESIRED ERASE +1 049602,001822: 049603,001823: 049604,001824: # ITERATOR SUBROUTINE 049605,001825: # ORDERSW 049606,001826: 12,3755 MAX EQUALS 14D # CLOBBERS 1/MU 049607,001827: 12,3755 MIN EQUALS 8D 049608,001828: # INDEP ERASE +1 049609,001829: 12,3755 DELINDEP EQUALS 12D 049610,001830: 12,3755 ITERCTR EQUALS 22D 049611,001831: 12,3755 DEP EQUALS 30D 049612,001832: # DELDEP ERASE +1 049613,001833: # DEPREV ERASE +1 049614,001834: 12,3755 TWEEKIT EQUALS 40D 049615,001835: 049616,001836: 049617,001837: # MORE KEPLER 049618,001838: # EPSILONT ERASE +1 049619,001839: 049620,001840: 049621,001841: # MORE LAMBERT 049622,001842: # TERRLAMB EQUALS DELDEP 049623,001843: # TPREV EQUALS DEPREV 049624,001844: # EPSILONL EQUALS EPSILONT +2 # DOUBLE PRECISION WORD 049625,001845: End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc