Source Code

053282,000001: # Copyright: Public domain. 053283,000002: # Filename: CONIC_SUBROUTINES.agc 053284,000003: # Purpose: Part of the source code for Colossus, build 249. 053285,000004: # It is part of the source code for the Command Module's (CM) 053286,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 053287,000006: # Assembler: yaYUL 053288,000007: # Reference: Starts on p. 1244 of 1701.pdf. 053289,000008: # Contact: Ron Burkey <info@sandroid.org>. 053290,000009: # Website: www.ibiblio.org/apollo. 053291,000010: # Mod history: 08/29/04 RSB. Began converting from corresponding Luminary131 file. 053292,000011: 053293,000012: # The contents of the "Colossus249" files, in general, are transcribed 053294,000013: # from a scanned document obtained from MIT's website, 053295,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 053296,000015: # document read, in part: 053297,000016: 053298,000017: # Assemble revision 249 of AGC program Colossus by NASA 053299,000018: # 2021111-041. October 28, 1968. 053300,000019: 053301,000020: # This AGC program shall also be referred to as 053302,000021: # Colossus 1A 053303,000022: 053304,000023: # Prepared by 053305,000024: # Massachusetts Institute of Technology 053306,000025: # 75 Cambridge Parkway 053307,000026: # Cambridge, Massachusetts 053308,000027: # under NASA contract NAS 9-4065. 053309,000028: 053310,000029: # Refer directly to the online document mentioned above for further information. 053311,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 053312,000031: 053313,000032: # In some cases, where the source code for Luminary 131 overlaps that of 053314,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 053315,000034: # source file, and then is proofed to incorporate any changes. 053316,000035: 053317,000036: # Page 1244 053318,000037: # PROGRAM DESCRIPTION -- ENTIRE CONIC SUBROUTINE LOG SECTION DATE -- 1 SEPTEMBER 1967 053319,000038: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 053320,000039: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 053321,000040: 053322,000041: # FUNCTIONAL DESCRIPTION -- 053323,000042: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL 053324,000043: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION 053325,000044: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES, 053326,000045: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES 053327,000046: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE 053328,000047: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES 053329,000048: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINES IN MISSION PROGRAMMING 053330,000049: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROUTINES 053331,000050: # APPROPRIATELY. 053332,000051: 053333,000052: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND 053334,000053: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES, 053335,000054: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED. 053336,000055: 053337,000056: # RESTRICTIONS -- 053338,000057: # THE ONLY LIMITATION IN THE SCOPE OF THE PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING 053339,000058: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJECTORIES 053340,000059: # COULD BE HANDLED. 053341,000060: 053342,000061: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN 053343,000062: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED 053344,000063: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION. 053345,000064: 053346,000065: # Page 1245 053347,000066: # PROGRAM DESCRIPTION -- KEPLER SUBROUTINE DATE -- 11 OCTOBER 1967 053348,000067: # MOD NO. -1 LOG SECTION -- CONIC SUBROUTINES 053349,000068: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS 103 AND SUNDANCE 222 053350,000069: 053351,000070: # FUNCTIONAL DESCRIPTION -- 053352,000071: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO 053353,000072: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC 053354,000073: # SECTION -- CIRCULAR, ELLIPTIC, PARABOLIC, HYPERPOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE 053355,000074: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT 053356,000075: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION 053357,000076: # TECHNIQUE IS UTILIZED IN THE COMPUTATION. 053358,000077: 053359,000078: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY 053360,000079: # EXTRAPOLATING THE POSITION BACKWARD IN TIME. 053361,000080: 053362,000081: # IF THE DESIRED TRANSFER TIME IS POSITIVE AND EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A MODULAR 053363,000082: # TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL. 053364,000083: 053365,000084: # THE RESTRICTIONS ARE -- 053366,000085: # 1. A NEGATIVE DESIRED TIME MUST BE LESS THAN ONE PERIOD IN MAGNITUDE. IF GREATER, THE ONE-PERIOD-SOLUTION 053367,000086: # WILL BE RETURNED. 053368,000087: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF 053369,000088: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 053370,000089: 053371,000090: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE 053372,000091: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE 053373,000092: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION. 053374,000093: 053375,000094: # REFERENCES -- 053376,000095: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA 053377,000096: # MEMO 67-4. 053378,000097: 053379,000098: # INPUT -- ERASABLE INITIALIZATION REQUIRED 053380,000099: # SCALE FACTOR 053381,000100: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053382,000101: # -------- -------------- ----------------------- 053383,000102: # RRECT +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 053384,000103: # +27 FOR MOON 053385,000104: # VRECT +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 053386,000105: # +5 FOR MOON 053387,000106: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 053388,000107: # RESPECTIVELY, IS THE CENTRAL BODY 053389,000108: # TAU +28 DESIRED TRANSFER TIME IN CENTISECONDS (DP) 053390,000109: # Page 1246 053391,000110: # XKEPNEW +17 FOR EARTH GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP 053392,000111: # +16 FOR MOON (DP) 053393,000112: # TC +28 DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP 053394,000113: # XPREV +17 FOR EARTH PRVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP 053395,000114: # +16 FOR MOON (DP) 053396,000115: 053397,000116: # SUBROUTINES CALLED -- 053398,000117: # DELTIME 053399,000118: 053400,000119: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 053401,000120: # KEPRTN-2 GOTO # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 053402,000121: # KEPRTN-1 KEPLER # RETURNS WITH XPREV IN MPAC. PL IS AT 0. 053403,000122: # KEPRTN ... # CONTINUE 053404,000123: 053405,000124: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE 053406,000125: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH 053407,000126: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW. 053408,000127: 053409,000128: # ABORT EXIT MODE -- 053410,000129: # NONE 053411,000130: 053412,000131: # OUTPUT -- 053413,000132: # SCALE FACTOR 053414,000133: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053415,000134: # -------- -------------- ----------------------- 053416,000135: # RCV +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS 053417,000136: # +27 FOR MOON 053418,000137: # VCV +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC 053419,000138: # +5 FOR MOON 053420,000139: # TC +28 DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. 053421,000140: # XPREV +17 FOR EARTH DP VALUE OF X IN METERS-TO-THE-ONE-HALF-POWER TO WHICH KEPLER CONVERGED. 053422,000141: # +16 FOR MOON (DP) 053423,000142: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 053424,000143: 053425,000144: # DEBRIS -- 053426,000145: # PARAMETERS WHICH MAY BE OF USE -- 053427,000146: # Page 1247 053428,000147: # SCALE FACTOR 053429,000148: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053430,000149: # -------- -------------- ----------------------- 053431,000150: # URRECT +1 DP UNIT VECTOR OF INITIAL POSITION 053432,000151: # R1 +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION IN METERS 053433,000152: # +27 FOR MOON 053434,000153: # ALPHA -22 FOR EARTH DP INVERSE OF SEMI-MAJOR AXIS IN 1/METERS 053435,000154: # -20 FOR MOON 053436,000155: # TMODULO +28 DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A 053437,000156: # TAU. OF LESS THAN ONE PERIOD. 053438,000157: 053439,000158: # PARAMETERS OF NO USE -- 053440,000159: # DP PARAMETERS -- FPSILENT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D. 053441,000160: 053442,000161: # Page 1248 053443,000162: # PROGRAM DESCRIPTION -- LAMBERT SUBROUTINE DATE -- 1 SEPTEMBER 1967 053444,000163: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 053445,000164: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 053446,000165: 053447,000166: # FUNCTIONAL DESCRIPTION -- 053448,000167: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY 053449,000168: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE 053450,000169: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO TEH EARTH OR THE MOON. THE USE OF THE 053451,000170: # SUBROUTINE CAN BE EXTEDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY 053452,000171: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS 053453,000172: # UTILIZED IN THE COMPUTATION. 053454,000173: 053455,000174: # THE RESTRICTIONS ARE: -- 053456,000175: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED. 053457,000176: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0. 053458,000177: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 053459,000178: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 053460,000179: # 4. NEGATIVE TRANSFER TIME IS AMBUGUOUS AND WILL RESULT IN NO SOLUTION. 053461,000180: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE 053462,000181: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 053463,000182: 053464,000183: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION'S SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST 053465,000184: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATELY 053466,000185: # .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION. 053467,000186: 053468,000187: # REFERENCES -- 053469,000188: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP -- SECTION 5.5, SGA MEMO 67-8, 053470,000189: # SGA MEMO 67-4. 053471,000190: 053472,000191: # INPUT -- ERASABLE INITIALIZATION REQUIRED 053473,000192: # SCALE FACTOR 053474,000193: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053475,000194: # -------- -------------- ----------------------- 053476,000195: # R1VEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 053477,000196: # +27 FOR MOON 053478,000197: # R2VEC +29 FOR EARTH DP TARGET OR TERMINAL POSITION VECTOR IN METERS 053479,000198: # +27 FOR MOON 053480,000199: # TDESIRED +28 DP DESIRED TRANSFER TIME IN CENTISECONDS 053481,000200: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 053482,000201: # RESPECTIVELY, IS THE CENTRAL BODY 053483,000202: # GEOMSGN NONE SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG. 053484,000203: # GUESSW NONE AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF 053485,000204: # Page 1249 053486,000205: # COGA IS TO BE USED BY LAMBERT 053487,000206: # COGA +5 DP GUESS OF COTANGENT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE 053488,000207: # IGNORED IF GUESSW IS SET. 053489,000208: # NORMSW NONE AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF 053490,000209: # LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN). 053491,000210: # UN +1 DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR 053492,000211: # MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR. 053493,000212: # VTARGTAG NONE A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMUTE THE VELOCITY OF R2VEC AS WELL AS 053494,000213: # AT R1VEC. 053495,000214: 053496,000215: # SUBROUTINES CALLED -- 053497,000216: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE) 053498,000217: 053499,000218: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 053500,000219: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 053501,000220: # L+1 LAMBERT # RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS WAS NON-ZERO OR VTARGET 053502,000221: # # IN MPAC IF VTARGTAG WAS ZERO 053503,000222: # L+2 BON # CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE 053504,000223: # L+3 SOLNSW 053505,000224: # L+4 LAMABORT 053506,000225: 053507,000226: # IF A LAMBER RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND 053508,000227: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL. 053509,000228: 053510,000229: # ABORT EXIT MODES -- 053511,000230: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 260 DEG, OR T 053512,000231: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2FEC. IN EITHER CASE THE FIX MUST BE MADE 053513,000232: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ... 053514,000233: # LAMBERT DLOAD ABS # A MEASURE OF THE PROXIMITY TO 0 OR 053515,000234: # 1-CHTH # 360 DEGREES. 053516,000235: # DSU BWM 053517,000236: # ONEBIT 053518,000237: # CHANGER2 # CHANGE R2VEC DIRECTION SLIGHTLY. 053519,000238: # DLOAD DAD 053520,000239: # TDESIRED 053521,000240: # SOMETIE 053522,000241: # STCALL TDESIRED # INCRESE TDESIRED 053523,000242: # LAMBERT 053524,000243: 053525,000244: # OUTPUT -- 053526,000245: # SCALE FACTOR 053527,000246: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053528,000247: # Page 1250 053529,000248: # -------- -------------- ----------------------- 053530,000249: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE 053531,000250: # +5 FOR MOON PROBLEM. 053532,000251: # VTARGET +7 FOR EARTH DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND. 053533,000252: # +5 FOR MOON 053534,000253: # SOLNSW NONE INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE 053535,000254: # SOLUTION EXISTS. 053536,000255: 053537,000256: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 053538,000257: 053539,000258: # DEBRIS -- 053540,000259: # PARAMETERS WHICH MAY BE OF USE -- 053541,000260: # SCALE FACTOR 053542,000261: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053543,000262: # -------- -------------- ----------------------- 053544,000263: # SNTH +1 DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC 053545,000264: # CSTH +1 DP COSING OF ANGLE 053546,000265: # 1-CSTH +2 DP 1-CSTH 053547,000266: # COGA +5 DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL 053548,000267: # P +4 DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS 053549,000268: # R1A +6 DP RATIO OF INITIAL RADIUS TO SEMI-MAJOR AXIS 053550,000269: # R1 (32D) +29 FOR EARTH DP INITIAL RADIUS IN METERS 053551,000270: # +27 FOR MOON 053552,000271: # UR1 +1 DP UNIT VECTOR OF R1VEC 053553,000272: # U2 +1 DP UNIT VECTOR OF R2VEC 053554,000273: 053555,000274: # PARAMETERS OF NO USE -- 053556,000275: # DP PARAMETERS -- EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D 053557,000276: # ADDITIONAL INTERPRETIVE SWITCHES USED -- INFINFLG, 360SW, SLOPESW, ORDERSW 053558,000277: 053559,000278: # Page 1251 053560,000279: # PROGRAM DESCRIPTION -- TIME-THETA SUBROUTINE DATE -- 1 SEPTEMBER 1967 053561,000280: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 053562,000281: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 053563,000282: 053564,000283: # FUNCTIONAL DESCRIPTION -- 053565,000284: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE 053566,000285: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, 053567,000286: # PROVIDES THE OPTION OF COMUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A 053568,000287: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF TEH SUBROUTINE CAN BE 053569,000288: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WTIHOUT INTRODUCING ANY CODING CHANGES, 053570,000289: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 053571,000290: 053572,000291: # THE RESTRICTIONS ARE -- 053573,000292: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 053574,000293: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 053575,000294: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSCP. IF THE LIMITS 053576,000295: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLY. 053577,000296: 053578,000297: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS. 053579,000298: 053580,000299: # REFERENCES -- 053581,000300: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8. 053582,000301: 053583,000302: # INPUT -- ERASABLE INITIALIZATION REQUIRED 053584,000303: # SCALE FACTOR 053585,000304: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053586,000305: # -------- -------------- ----------------------- 053587,000306: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 053588,000307: # +27 FOR MOON 053589,000308: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 053590,000309: # +5 FOR MOON 053591,000310: # SNTH +1 ` DP SINE OF THE TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED 053592,000311: # CSTH +1 DP COSINE OF THE ANGLE 053593,000312: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE 053594,000313: # IS TO BE COMPUTED ALSO. 053595,000314: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 053596,000315: # RESPECTIVELY, IS THE CENTRAL BODY. 053597,000316: 053598,000317: # SUBROUTINES CALLED -- 053599,000318: # Page 1252 053600,000319: # PARAM, GEOM, GETX, DELTIME, NEWSTATE 053601,000320: 053602,000321: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 053603,000322: # IF ONLY TIME IS DESIRED AS OUTPUT -- 053604,000323: # L SET CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 053605,000324: # L+1 RVSW 053606,000325: # L+2 TIMETHET # RETURN WITH PL AT 0 AND T IN MPAC 053607,000326: # L+3 --- # CONTINUE 053608,000327: 053609,000328: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -- 053610,000329: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 053611,000330: # L+1 RVSW 053612,000331: # L+2 TIMETHET # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND 053613,000332: # # THE INITIAL VELOCITY VECTOR IN MPAC. 053614,000333: # L+3 STOVL NEWVVEC 053615,000334: # L+4 STADR 053616,000335: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS. 053617,000336: # L+6 ... # CONTINUE. 053618,000337: 053619,000338: # ABORT EXIT MODES -- 053620,000339: # L CALL BON 053621,000340: # L+1 TIMETHET 053622,000341: # L+2 COGAFLAG 053623,000342: # L+3 COGABORT # RESTRICTION 1 HAS BEEN VIOLATED. 053624,000343: # L+4 BON # IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS 053625,000344: # # GOOD, SO CONTINUE. 053626,000345: # L+5 INFINFLG 053627,000346: # L+6 IMPOSSBL # NO SOLUTION EXISTS. 053628,000347: 053629,000348: # OUTPUT -- 053630,000349: # SCALE FACTOR 053631,000350: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053632,000351: # -------- -------------- ----------------------- 053633,000352: # T(30D) +28 DP TRANSFER TIME IN CENTISECONDS 053634,000353: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH 053635,000354: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE. 053636,000355: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION), 053637,000356: # CLEAR IF NOT. 053638,000357: 053639,000358: # IN ADDITION, IF VTARGTAG IS CLEAR, THE FOLLOWING ARE OUTPUT -- 053640,000359: # MPAC - +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC. 053641,000360: # MPAC+5 +5 FOR MOON 053642,000361: # Page 1253 053643,000362: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D) 053644,000363: # +27 FOR MOON 053645,000364: 053646,000365: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 053647,000366: 053648,000367: # DEBRIS -- 053649,000368: # PARAMETERS WHICH MAY BE OF USE -- 053650,000369: # SCALE FACTOR 053651,000370: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053652,000371: # -------- -------------- ----------------------- 053653,000372: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 053654,000373: # +27 FOR MOON 053655,000374: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 053656,000375: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1 053657,000376: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 053658,000377: # UR1 +1 DP UNIT VECTOR OF RVEC 053659,000378: # U2 +1 DP UNIT VECTOR OF VVEC 053660,000379: # UN +1 DP UNIT VECTOR OF UR1*U2 053661,000380: 053662,000381: # PARAMETERS OF NO USE -- 053663,000382: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, R1D 053664,000383: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW 053665,000384: 053666,000385: # Page 1254 053667,000386: # PROGRAM DESCRIPTION -- TIME-RADIUS SUBROUTINE DATE -- 11 OCTOBER 1967 053668,000387: # MOD NO. -1 LOG SECTION -- CONIC SUBROUTINES 053669,000388: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 053670,000389: 053671,000390: # FUNCTIONAL DESCRIPTION -- 053672,000391: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE 053673,000392: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, 053674,000393: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A 053675,000394: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE 053676,000395: # EXTENDED USING OTHER PRIMARY BODIES BY SIMMPE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 053677,000396: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 053678,000397: 053679,000398: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER, 053680,000399: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY. 053681,000400: 053682,000401: # THE RESTRICTIONS ARE -- 053683,000402: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 053684,000403: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 053685,000404: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN TEH GSOP. IF THE LIMITS 053686,000405: # EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 053687,000406: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN 053688,000407: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN 053689,000408: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT. 053690,000409: 053691,000410: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS. 053692,000411: 053693,000412: # REFERENCES -- 053694,000413: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8. 053695,000414: 053696,000415: # INPUT -- ERASABLE INITIALIZATION REQUIRED. 053697,000416: # SCALE FACTOR 053698,000417: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053699,000418: # -------- -------------- ----------------------- 053700,000419: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 053701,000420: # +27 FOR MOON 053702,000421: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 053703,000422: # +5 FOR MOON 053704,000423: # RDESIRED +29 FOR EARTH DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE 053705,000424: # +27 FOR MOON COMPUTED 053706,000425: # SGNRDOT NONE SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE 053707,000426: # POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A 053708,000427: # Page 1255 053709,000428: # SINGLE-VALUED PROBLEM. 053710,000429: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 053711,000430: # RESPECTIVELY, IS THE CENTRAL BODY. 053712,000431: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE 053713,000432: # IS TO BE COMPUTED ALSO. 053714,000433: 053715,000434: # SUBROUTINES CALLED -- 053716,000435: # PARAM, GEOM, GETX, DELTIME, NEWSTATE 053717,000436: 053718,000437: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 053719,000438: # IF ONLY TIME IS DESIRED AS OUTPUT -- 053720,000439: # L SET CALL # USE BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 053721,000440: # L+1 RVSW 053722,000441: # L+2 TIMERAD # RETURN WITH PL AT 0 AND T IN MPAC 053723,000442: # L+3 ... # CONTINUE 053724,000443: 053725,000444: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -- 053726,000445: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 053727,000446: # L+1 RVSW 053728,000447: # L+2 TIMERAD # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND 053729,000448: # # THE INITIAL VELOCITY VECTOR IN MPAC. 053730,000449: # L+3 STOVL NEWVVEC 053731,000450: # L+4 STADR 053732,000451: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS. 053733,000452: # ... # CONTINUE 053734,000453: 053735,000454: # ABORT EXIT MODES -- 053736,000455: # L CALL BON 053737,000456: # L+1 TIMERAD 053738,000457: # L+2 COGAFLAG 053739,000458: # L+3 COGABORT # RESTRICTION 1 HAS BEEN VIOLATED 053740,000459: # L+4 BON BON 053741,000460: # L+5 INFINFLG 053742,000461: # L+6 IMPOSSBL # NO SOLUTION EXISTS 053743,000462: # L+7 SOLNSW 053744,000463: # L+8 IMPOSSBL # SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE. RESTRICTION 3 HAS BEEN VIOLATED. 053745,000464: # L+9 ... # IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE. 053746,000465: 053747,000466: # OUTPUT -- 053748,000467: # SCALE FACTOR 053749,000468: # Page 1256 053750,000469: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053751,000470: # -------- -------------- ----------------------- 053752,000471: # T (30D) +28 DP TRANSFER TIME IN CENTISECONDS. 053753,000472: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH 053754,000473: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE. 053755,000474: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION), 053756,000475: # CLEAR IF NOT. 053757,000476: # APSESW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR 053758,000477: # LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY, 053759,000478: # WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND 053760,000479: # APOCENTER. 053761,000480: # SOLNSW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN 053762,000481: # POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE- 053763,000482: # MINUS-18, THE SWITCH IS CLEAR. 053764,000483: 053765,000484: # IN ADDITION, IF VTARGTAG IS CLEAR, THE FOLLOWING ARE OUTPUT -- 053766,000485: # MPAC - +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC. 053767,000486: # MPAC+5 +5 FOR MOON 053768,000487: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D) 053769,000488: # +27 FOR MOON 053770,000489: 053771,000490: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 053772,000491: 053773,000492: # DEBRIS -- 053774,000493: # PARAMETERS WHICH MAY BE OF USE -- 053775,000494: # SCALE FACTOR 053776,000495: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053777,000496: # -------- -------------- ----------------------- 053778,000497: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 053779,000498: # +27 FOR MOON 053780,000499: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 053781,000500: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1 053782,000501: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 053783,000502: # UR1 +1 DP UNIT VECTOR OF RVEC 053784,000503: # U2 +1 DP UNIT VECTOR OF VVEC 053785,000504: # UN +1 DP UNIT VECTOR OF UR1*U2 053786,000505: # CSTH +1 DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED. 053787,000506: # SNTH +1 DP SINE OF TRUE ANOMALY DIFFERENCE. 053788,000507: 053789,000508: # PARAMETERS OF NO USE -- 053790,000509: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2*R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D 053791,000510: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW 053792,000511: 053793,000512: 053794,000513: # Page 1257 053795,000514: # PROGRAM DESCRIPTION -- APSIDES SUBROUTINE DATE -- 1 SEPTEMBER 1967 053796,000515: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES 053797,000516: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88 053798,000517: 053799,000518: # FUNCTIONAL DESCRIPTION -- 053800,000519: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR, CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE 053801,000520: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE, 053802,000521: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN 053803,000522: # BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 053804,000523: # EXCEPTING TEH INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 053805,000524: 053806,000525: # THE RESTRICTIONS ARE -- 053807,000526: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT 053808,000527: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED. 053809,000528: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS 053810,000529: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 053811,000530: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS. 053812,000531: 053813,000532: # REFERENCES -- 053814,000533: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5. 053815,000534: 053816,000535: # INPUT -- ERASABLE INITIALIZATION REQUIRED 053817,000536: # SCALE FACTOR 053818,000537: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053819,000538: # -------- -------------- ----------------------- 053820,000539: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS 053821,000540: # +27 FOR MOON 053822,000541: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 053823,000542: # +5 FOR MOON 053824,000543: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 053825,000544: # RESPECTIVELY, IS THE CENTRAL BODY. 053826,000545: 053827,000546: # SUBROUTINES CALLED -- 053828,000547: # PARAM, GEOM 053829,000548: 053830,000549: # CALLING SEQUENCE AND NORMAL EXIT MODES -- 053831,000550: # Page 1258 053832,000551: # IF ONLY TIME IS DESIRED AS OUTPUT -- 053833,000552: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. 053834,000553: # L+1 APSIDES # RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D 053835,000554: # L+2 STODL APOAPSE 053836,000555: # L+3 0D 053837,000556: # L+4 STORE PERIAPSE # APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS 053838,000557: # L+5 ... # CONTINUE 053839,000558: 053840,000559: # OUTPUT -- 053841,000560: # SCALE FACTOR 053842,000561: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053843,000562: # -------- -------------- ----------------------- 053844,000563: # MPAC +29 FOR EARTH DP RADIUS OF APOCENTER IN METERS 053845,000564: # +27 FOR MOON 053846,000565: # 0D-1D +29 FOR EARTH DP RADIUS OF PERICENTER IN METERS 053847,000566: # +27 FOR MOON 053848,000567: # ECC +3 DP ECCENTRICITY OF CONIC TRAJECTORY 053849,000568: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 053850,000569: 053851,000570: # DEBRIS -- 053852,000571: # PARAMETERS WHICH MAY BE OF USE -- 053853,000572: # SCALE FACTOR 053854,000573: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS 053855,000574: # -------- -------------- ----------------------- 053856,000575: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 053857,000576: # +27 FOR MOON 053858,000577: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 053859,000578: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1 053860,000579: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 053861,000580: # UR1 +1 DP UNIT VECTOR OF RVEC 053862,000581: # U2 +1 DP UNIT VECTOR OF VVEC 053863,000582: # UN +1 DP UNIT VECTOR OF UR1*U2 053864,000583: # MAGVEC2 +7 FOR EARTH DP MAGNITUDE OF VVEC 053865,000584: # +5 FOR MOON 053866,000585: 053867,000586: # PARAMETERS OF NO USE -- 053868,000587: # SP PARAMETERS -- RTNAPSE, GOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D. 053869,000588: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW 053870,000589: 053871,000590: 12,2000 SETLOC CONICS 053872,000591: # Page 1259 053873,000592: 12,2000 BANK 053874,000593: 053875,000594: 12,2000 COUNT 12/CONIC 053876,000595: 053877,000596: 12,2000 0002723 EBANK= UR1 053878,000597: 12,2000 71201 KEPLERN SETPD DLOAD 053879,000598: 12,2001 00001 0 053880,000599: 12,2002 11456 KEPZERO 053881,000600: 12,2003 01344 STORE XMODULO 053882,000601: 12,2004 31346 STOVL* TMODULO 053883,000602: 12,2005 11631 MUTABLE,1 053884,000603: 12,2006 24017 STOVL 14D 053885,000604: 12,2007 01503 RRECT 053886,000605: 12,2010 66256 UNIT SSP 053887,000606: 12,2011 00027 ITERCTR 053888,000607: 12,2012 00024 20D 053889,000608: 12,2013 16647 STODL URRECT 053890,000609: 12,2014 00045 36D 053891,000610: 12,2015 24041 STOVL R1 053892,000611: 12,2016 01503 RRECT 053893,000612: 12,2017 76441 DOT SL1R 053894,000613: 12,2020 01511 VRECT 053895,000614: 12,2021 76405 DMP SL1R 053896,000615: 12,2022 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14) 053897,000616: 12,2023 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16) 053898,000617: 12,2024 01511 VRECT 053899,000618: 12,2025 57236 VSQ DMPR 053900,000619: 12,2026 00017 1/MU # 1/MU (-34 OR -28) 053901,000620: 12,2027 52405 DMP SL3 053902,000621: 12,2030 00041 R1 053903,000622: 12,2031 61425 DSU ROUND 053904,000623: 12,2032 11500 D1/64 053905,000624: 12,2033 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6) 053906,000625: 053907,000626: 12,2034 74421 BDSU SR1R 053908,000627: 12,2035 11500 D1/64 053909,000628: 12,2036 77671 DDV 053910,000629: 12,2037 00041 R1 053911,000630: 12,2040 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20) 053912,000631: 053913,000632: 12,2041 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC) 053914,000633: 12,2042 24051 1REV 053915,000634: 12,2043 11516 -50SC # -50SC (+12) 053916,000635: 12,2044 40071 DDV BOV 053917,000636: 12,2045 00011 ALPHA 053918,000637: 12,2046 24055 STOREMAX 053919,000638: 12,2047 52166 SQRT GOTO 053920,000639: 12,2050 24055 STOREMAX 053921,000640: # Page 1260 053922,000641: 12,2051 55366 1REV SQRT BDDV 053923,000642: 12,2052 11520 2PISC # 2PISC (+6) 053924,000643: 12,2053 77600 BOV 053925,000644: 12,2054 24055 STOREMAX 053926,000645: 12,2055 50165 STOREMAX SIGN BMN 053927,000646: 12,2056 02312 TAU. 053928,000647: 12,2057 24272 BACKWARD 053929,000648: 12,2060 00013 STORE XMAX 053930,000649: 12,2061 65205 DMP PDDL # PL AT 2 053931,000650: 12,2062 00023 1/ROOTMU 053932,000651: 12,2063 00011 ALPHA 053933,000652: 12,2064 65301 NORM PDDL # DXCH WITH 0D. 0D=ALPHA PL AT 0,2 053934,000653: 12,2065 00047 X1 053935,000654: 12,2066 56257 SL* DDV # PL AT 0 053936,000655: 12,2067 20173 0 -6,1 053937,000656: 12,2070 50000 PERIODCH BOV BMN 053938,000657: 12,2071 24112 MODDONE 053939,000658: 12,2072 24112 MODDONE 053940,000659: 12,2073 77606 PUSH # 0D=PERIOD (+28) 053941,000660: 12,2074 50021 BDSU BMN 053942,000661: 12,2075 02312 TAU. 053943,000662: 12,2076 24112 MODDONE 053944,000663: 12,2077 16312 STODL TAU. 053945,000664: 12,2100 00013 XMAX 053946,000665: 12,2101 77615 DAD 053947,000666: 12,2102 01344 XMODULO 053948,000667: 12,2103 15344 STODL XMODULO 053949,000668: 12,2104 00001 0D 053950,000669: 12,2105 77615 DAD 053951,000670: 12,2106 01346 TMODULO 053952,000671: 12,2107 15346 STODL TMODULO 053953,000672: 12,2110 77650 GOTO # PL AT 0 053954,000673: 12,2111 24070 PERIODCH 053955,000674: 12,2112 71201 MODDONE SETPD DLOAD 053956,000675: 12,2113 00001 0 053957,000676: 12,2114 11456 KEPZERO 053958,000677: 12,2115 14015 STODL XMIN 053959,000678: 12,2116 02306 XKEPNEW 053960,000679: 12,2117 77625 DSU 053961,000680: 12,2120 01344 XMODULO 053962,000681: 12,2121 00025 STORE X 053963,000682: 12,2122 50054 BZE BMN 053964,000683: 12,2123 24265 BADX 053965,000684: 12,2124 24265 BADX 053966,000685: 12,2125 51025 DSU BPL 053967,000686: 12,2126 00013 XMAX 053968,000687: 12,2127 24265 BADX 053969,000688: # Page 1261 053970,000689: 12,2130 57345 DXCOMP DLOAD DMPR 053971,000690: 12,2131 02312 TAU. 053972,000691: 12,2132 11511 BEE22 053973,000692: 12,2133 77646 ABS 053974,000693: 12,2134 15350 STODL EPSILONT 053975,000694: 12,2135 01551 TC 053976,000695: 12,2136 45254 BZE DSU 053977,000696: 12,2137 24141 NEWTC 053978,000697: 12,2140 01346 TMODULO 053979,000698: 12,2141 15551 NEWTC STODL TC 053980,000699: 12,2142 01553 XPREV 053981,000700: 12,2143 45254 BZE DSU 053982,000701: 12,2144 24146 XDIFF 053983,000702: 12,2145 01344 XMODULO 053984,000703: 12,2146 77621 XDIFF BDSU 053985,000704: 12,2147 00025 X 053986,000705: 12,2150 02643 STORE DELX 053987,000706: 053988,000707: 12,2151 63545 KEPLOOP DLOAD DSQ 053989,000708: 12,2152 00025 X # X=XKEP 053990,000709: 12,2153 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2 053991,000710: 12,2154 00047 X1 053992,000711: 12,2155 53605 DMP SRR* 053993,000712: 12,2156 00011 ALPHA 053994,000713: 12,2157 21573 0 -6,1 053995,000714: 12,2160 34031 STCALL XI # XI=ALPHA XSQ (+6) 053996,000715: 12,2161 24426 DELTIME 053997,000716: 12,2162 44200 BOV BDSU 053998,000717: 12,2163 24312 TIMEOVFL # UNLIKELY 053999,000718: 12,2164 02312 TAU. 054000,000719: 12,2165 02645 STORE DELT # DELT=DELINDEP 054001,000720: 12,2166 44246 ABS BDSU 054002,000721: 12,2167 01350 EPSILONT 054003,000722: 12,2170 71244 BPL DLOAD 054004,000723: 12,2171 24334 KEPCONVG 054005,000724: 12,2172 00037 T 054006,000725: 12,2173 60225 DSU NORM 054007,000726: 12,2174 01551 TC 054008,000727: 12,2175 00047 X1 054009,000728: 12,2176 60325 PDDL NORM 054010,000729: 12,2177 02643 DELX 054011,000730: 12,2200 00050 X2 054012,000731: 12,2201 41260 XSU,1 DMP 054013,000732: 12,2202 00047 X2 054014,000733: 12,2203 02645 DELT 054015,000734: 12,2204 56257 SLR* DDV 054016,000735: 12,2205 21202 1,1 054017,000736: 12,2206 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2 054018,000737: 12,2207 71244 BPL DLOAD 054019,000738: # Page 1262 054020,000739: 12,2210 24231 POSDELX 054021,000740: 12,2211 00025 X 054022,000741: 12,2212 00013 STORE XMAX # MOVE MAX BOUND IN 054023,000742: 12,2213 45221 BDSU DSU # PL AT 0 054024,000743: 12,2214 00015 XMIN 054025,000744: 12,2215 51000 BOV BPL 054026,000745: 12,2216 24223 NDXCHNGE 054027,000746: 12,2217 24223 NDXCHNGE 054028,000747: 12,2220 52145 DLOAD GOTO 054029,000748: 12,2221 00001 0D 054030,000749: 12,2222 24243 NEWDELX 054031,000750: 054032,000751: 12,2223 45345 NDXCHNGE DLOAD DSU 054033,000752: 12,2224 00015 XMIN 054034,000753: 12,2225 00025 X 054035,000754: 12,2226 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO 054036,000755: 12,2227 11514 DP9/10 054037,000756: 12,2230 24243 NEWDELX 054038,000757: 054039,000758: 12,2231 77745 POSDELX DLOAD 054040,000759: 12,2232 00025 X 054041,000760: 12,2233 00015 STORE XMIN # MOVE MIN BOUND IN 054042,000761: 12,2234 45221 BDSU DSU # PL AT 0 054043,000762: 12,2235 00013 XMAX 054044,000763: 12,2236 50000 BOV BMN 054045,000764: 12,2237 24257 PDXCHNGE 054046,000765: 12,2240 24257 PDXCHNGE 054047,000766: 12,2241 77745 DLOAD 054048,000767: 12,2242 00001 0D 054049,000768: 12,2243 02643 NEWDELX STORE DELX 054050,000769: 12,2244 43254 BZE DAD 054051,000770: 12,2245 24334 KEPCONVG 054052,000771: 12,2246 00025 X 054053,000772: 12,2247 14025 STODL X 054054,000773: 12,2250 00037 T 054055,000774: 12,2251 01551 STORE TC 054056,000775: 12,2252 46034 BRNCHCTR RTB BHIZ 054057,000776: 12,2253 24651 CHECKCTR 054058,000777: 12,2254 24334 KEPCONVG 054059,000778: 12,2255 77650 GOTO 054060,000779: 12,2256 24151 KEPLOOP # ITERATE 054061,000780: 054062,000781: 12,2257 45345 PDXCHNGE DLOAD DSU 054063,000782: 12,2260 00013 XMAX 054064,000783: 12,2261 00025 X 054065,000784: 12,2262 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO 054066,000785: 12,2263 11514 DP9/10 054067,000786: # Page 1263 054068,000787: 12,2264 24243 NEWDELX 054069,000788: 054070,000789: 12,2265 70545 BADX DLOAD SR1 054071,000790: 12,2266 00013 XMAX 054072,000791: 12,2267 00025 STORE X 054073,000792: 12,2270 77650 GOTO 054074,000793: 12,2271 24130 DXCOMP 054075,000794: 054076,000795: 12,2272 14015 BACKWARD STODL XMIN 054077,000796: 12,2273 11456 KEPZERO 054078,000797: 12,2274 14013 STODL XMAX 054079,000798: 12,2275 02306 XKEPNEW 054080,000799: 12,2276 00025 STORE X 054081,000800: 12,2277 51054 BZE BPL 054082,000801: 12,2300 24305 BADBKWDX 054083,000802: 12,2301 24305 BADBKWDX 054084,000803: 12,2302 51025 DSU BPL 054085,000804: 12,2303 00015 XMIN 054086,000805: 12,2304 24130 DXCOMP 054087,000806: 12,2305 70545 BADBKWDX DLOAD SR1 054088,000807: 12,2306 00015 XMIN 054089,000808: 12,2307 00025 STORE X 054090,000809: 12,2310 77650 GOTO 054091,000810: 12,2311 24130 DXCOMP 054092,000811: 054093,000812: 12,2312 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG 054094,000813: 12,2313 00025 X 054095,000814: 12,2314 24331 NEGTOVFL 054096,000815: 12,2315 00013 STORE XMAX 054097,000816: 12,2316 70545 CMNTOVFL DLOAD SR1 054098,000817: 12,2317 02643 DELX 054099,000818: 12,2320 02643 STORE DELX 054100,000819: 12,2321 44254 BZE BDSU 054101,000820: 12,2322 02270 KEPRTN 054102,000821: 12,2323 00025 X 054103,000822: 12,2324 14025 STODL X 054104,000823: 12,2325 01551 TC 054105,000824: 12,2326 00037 STORE T 054106,000825: 12,2327 77650 GOTO 054107,000826: 12,2330 24252 BRNCHCTR 054108,000827: 12,2331 00015 NEGTOVFL STORE XMIN 054109,000828: 12,2332 77650 GOTO 054110,000829: 12,2333 24316 CMNTOVFL 054111,000830: 12,2334 44545 KEPCONVG DLOAD SR4R 054112,000831: 12,2335 00041 R1 054113,000832: 12,2336 74225 DSU VXSC 054114,000833: 12,2337 00035 XSQC(XI) 054115,000834: # Page 1264 054116,000835: 12,2340 02647 URRECT 054117,000836: 12,2341 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31) 054118,000837: 12,2342 00025 X 054119,000838: 12,2343 60316 DSQ NORM 054120,000839: 12,2344 00047 X1 054121,000840: 12,2345 57275 DMPR DMPR 054122,000841: 12,2346 00023 1/ROOTMU 054123,000842: 12,2347 00025 X 054124,000843: 12,2350 53605 DMP SRR* 054125,000844: 12,2351 00033 S(XI) 054126,000845: 12,2352 21572 0 -7,1 054127,000846: 12,2353 77621 BDSU 054128,000847: 12,2354 00037 T 054129,000848: 12,2355 74352 SL1 VXSC 054130,000849: 12,2356 01511 VRECT 054131,000850: 12,2357 53372 VSL1 VAD 054132,000851: 12,2360 77712 VSL4 054133,000852: 12,2361 01535 STORE RCV # RCV (+29 OR +27) 054134,000853: 054135,000854: 12,2362 60246 ABVAL NORM 054136,000855: 12,2363 00050 X2 054137,000856: 12,2364 16655 STODL RCNORM 054138,000857: 12,2365 00031 XI 054139,000858: 12,2366 45275 DMPR DSU 054140,000859: 12,2367 00033 S(XI) 054141,000860: 12,2370 11476 D1/128 054142,000861: 12,2371 76405 DMP SL1R 054143,000862: 12,2372 00021 ROOTMU 054144,000863: 12,2373 53605 DMP SLR* 054145,000864: 12,2374 00025 X 054146,000865: 12,2375 56601 0 -3,2 054147,000866: 12,2376 74271 DDV VXSC 054148,000867: 12,2377 02655 RCNORM 054149,000868: 12,2400 02647 URRECT 054150,000869: 12,2401 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15 054151,000870: 12,2402 00035 XSQC(XI) # OR +13) PL AT 6 054152,000871: 12,2403 56257 SLR* DDV 054153,000872: 12,2404 56602 0 -4,2 054154,000873: 12,2405 02655 RCNORM 054155,000874: 12,2406 74221 BDSU VXSC 054156,000875: 12,2407 11512 D1/256 054157,000876: 12,2410 01511 VRECT 054158,000877: 12,2411 42455 VAD VSL8 054159,000878: 12,2412 77626 STADR # PL AT 0 054160,000879: 12,2413 62234 STODL VCV # VCV (+7 OR +5) 054161,000880: 12,2414 00037 T 054162,000881: 12,2415 77615 DAD 054163,000882: 12,2416 01346 TMODULO 054164,000883: 12,2417 15551 STODL TC 054165,000884: # Page 1265 054166,000885: 12,2420 00025 X 054167,000886: 12,2421 77615 DAD 054168,000887: 12,2422 01344 XMODULO 054169,000888: 12,2423 01553 STORE XPREV 054170,000889: 12,2424 77650 GOTO 054171,000890: 12,2425 02270 KEPRTN 054172,000891: 054173,000892: # Page 1266 054174,000893: 12,2426 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1) 054175,000894: 12,2427 07171 TC POLY 054176,000895: 12,2430 00010 DEC 8 B-14 054177,000896: 12,2431 02525 12526 2DEC .083333334 054178,000897: 12,2433 67356 75666 2DEC -.266666684 054179,000898: 12,2435 15001 23771 2DEC .406349155 054180,000899: 12,2437 64342 43674 2DEC -.361198675 054181,000900: 12,2441 06563 04645 2DEC .210153242 054182,000901: 12,2443 75173 52672 2DEC -.086221951 054183,000902: 12,2445 00656 14331 2DEC .026268812 054184,000903: 12,2447 77633 40512 2DEC -.006163316 054185,000904: 12,2451 00023 11210 2DEC .001177342 054186,000905: 12,2453 77774 67506 2DEC -.000199055 054187,000906: 054188,000907: 12,2455 06006 TC INTPRET 054189,000908: 12,2456 14033 STODL S(XI) 054190,000909: 12,2457 00031 XI 054191,000910: 12,2460 77776 EXIT 054192,000911: 12,2461 07171 TC POLY 054193,000912: 12,2462 00010 DEC 8 B-14 054194,000913: 12,2463 01000 00000 2DEC .031250001 054195,000914: 12,2465 72525 52506 2DEC -.166666719 054196,000915: 12,2467 13301 15337 2DEC .355555413 054197,000916: 12,2471 62776 54733 2DEC -.406347410 054198,000917: 12,2473 11176 13267 2DEC .288962094 054199,000918: 12,2475 73410 51674 2DEC -.140117894 054200,000919: 12,2477 01446 33641 2DEC .049247387 054201,000920: 12,2501 77451 65233 2DEC -.013081923 054202,000921: 12,2503 00055 37266 2DEC .002806389 054203,000922: 12,2505 77767 52336 2DEC -.000529414 054204,000923: 12,2507 06006 TC INTPRET 054205,000924: # Page 1267 054206,000925: 12,2510 53605 DMP SRR* # PL AT 0 054207,000926: 12,2511 00001 0D 054208,000927: 12,2512 21574 0 -5,1 054209,000928: 12,2513 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31) 054210,000929: 12,2514 72405 DMP SL1 054211,000930: 12,2515 00043 KEPC1 054212,000931: 12,2516 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46) 054213,000932: 12,2517 45562 TPMODE # PL AT 0,3 054214,000933: 12,2520 53605 DMP SRR* 054215,000934: 12,2521 00033 S(XI) 054216,000935: 12,2522 21574 0 -5,1 054217,000936: 12,2523 72405 DMP SL1 054218,000937: 12,2524 00045 KEPC2 054219,000938: 12,2525 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6 054220,000939: 12,2526 45562 TPMODE 054221,000940: 12,2527 00041 R1 054222,000941: 12,2530 76261 SR TAD # PL AT 3 054223,000942: 12,2531 20607 6 054224,000943: 12,2532 41301 NORM DMP # TO PRESERVE SIGNIF. 054225,000944: 12,2533 00047 X1 054226,000945: 12,2534 00025 X 054227,000946: 12,2535 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0 054228,000947: 12,2536 20576 0 -3,1 054229,000948: 12,2537 57232 SL4R DMPR 054230,000949: 12,2540 00023 1/ROOTMU 054231,000950: 12,2541 00037 STORE T 054232,000951: 12,2542 77616 RVQ 054233,000952: 054234,000953: # Page 1268 054235,000954: 12,2543 71214 ITERATOR BONCLR DLOAD 054236,000955: 12,2544 00614 SLOPESW 054237,000956: 12,2545 24613 FIRSTIME 054238,000957: 12,2546 00037 DEP 054239,000958: 12,2547 60225 DSU NORM 054240,000959: 12,2550 02764 DEPREV 054241,000960: 12,2551 00047 X1 054242,000961: 12,2552 60325 PDDL NORM 054243,000962: 12,2553 00015 DELINDEP 054244,000963: 12,2554 00050 X2 054245,000964: 12,2555 41260 XSU,1 DMP 054246,000965: 12,2556 00047 X2 054247,000966: 12,2557 02762 DELDEP 054248,000967: 12,2560 56257 SLR* DDV # PL UP 2 054249,000968: 12,2561 21202 1,1 054250,000969: 12,2562 43142 SR1 BOFF 054251,000970: 12,2563 04351 ORDERSW 054252,000971: 12,2564 24567 SGNCHECK 054253,000972: 12,2565 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST 054254,000973: 12,2566 02762 DELDEP # DISREGARD IT TO FIND MIN. 054255,000974: 054256,000975: 12,2567 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2 054257,000976: 12,2570 24625 POSDEL 054258,000977: 12,2571 43145 DLOAD BON 054259,000978: 12,2572 03775 INDEP 054260,000979: 12,2573 04311 ORDERSW 054261,000980: 12,2574 24576 MINCHECK 054262,000981: 12,2575 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN. 054263,000982: 054264,000983: 12,2576 45221 MINCHECK BDSU DSU 054265,000984: 12,2577 00011 MIN 054266,000985: 12,2600 51000 BOV BPL 054267,000986: 12,2601 24605 MODNGDEL 054268,000987: 12,2602 24605 MODNGDEL 054269,000988: 12,2603 77650 GOTO 054270,000989: 12,2604 24637 DELOK 054271,000990: 054272,000991: 12,2605 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND 054273,000992: 12,2606 00011 MIN 054274,000993: 12,2607 03775 INDEP 054275,000994: 12,2610 52005 DMP GOTO 054276,000995: 12,2611 11514 DP9/10 054277,000996: 12,2612 24641 NEWDEL 054278,000997: 054279,000998: 12,2613 41345 FIRSTIME DLOAD DMP 054280,000999: 12,2614 00011 MIN 054281,001000: 12,2615 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE. 054282,001001: 12,2616 41325 PDDL DMP # S2(41D) SHOULDN'T CONTAIN HI ORDER ONES 054283,001002: # Page 1269 054284,001003: 12,2617 00017 MAX 054285,001004: 12,2620 00051 TWEEKIT 054286,001005: 12,2621 77625 DSU 054287,001006: 12,2622 52165 SIGN GOTO 054288,001007: 12,2623 02762 DELDEP 054289,001008: 12,2624 24567 SGNCHECK 054290,001009: 054291,001010: 12,2625 43145 POSDEL DLOAD BON 054292,001011: 12,2626 03775 INDEP 054293,001012: 12,2627 04311 ORDERSW 054294,001013: 12,2630 24632 MAXCHECK 054295,001014: 12,2631 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN. 054296,001015: 054297,001016: 12,2632 45221 MAXCHECK BDSU DSU 054298,001017: 12,2633 00017 MAX 054299,001018: 12,2634 50000 BOV BMN 054300,001019: 12,2635 24643 MODPSDEL 054301,001020: 12,2636 24643 MODPSDEL 054302,001021: 12,2637 77745 DELOK DLOAD 054303,001022: 12,2640 00001 0D 054304,001023: 12,2641 00015 NEWDEL STORE DELINDEP 054305,001024: 12,2642 77616 RVQ 054306,001025: 054307,001026: 12,2643 45345 MODPSDEL DLOAD DSU 054308,001027: 12,2644 00017 MAX 054309,001028: 12,2645 03775 INDEP 054310,001029: 12,2646 52005 DMP GOTO 054311,001030: 12,2647 11514 DP9/10 054312,001031: 12,2650 24641 NEWDEL 054313,001032: 054314,001033: 12,2651 44712 CHECKCTR CS ONE 054315,001034: 12,2652 50120 INDEX FIXLOC 054316,001035: 12,2653 60026 AD ITERCTR 054317,001036: 12,2654 50120 INDEX FIXLOC 054318,001037: 12,2655 54026 TS ITERCTR 054319,001038: 12,2656 54154 TS MPAC 054320,001039: 12,2657 06030 TC DANZIG 054321,001040: 054322,001041: # Page 1270 054323,001042: 12,2660 44545 NEWSTATE DLOAD SR4R 054324,001043: 12,2661 00041 R1 054325,001044: 12,2662 74225 DSU VXSC 054326,001045: 12,2663 00035 XSQC(XI) 054327,001046: 12,2664 02724 UR1 054328,001047: 12,2665 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6 054329,001048: 12,2666 00025 X 054330,001049: 12,2667 60316 DSQ NORM 054331,001050: 12,2670 00047 X1 054332,001051: 12,2671 57275 DMPR DMPR 054333,001052: 12,2672 00023 1/ROOTMU 054334,001053: 12,2673 00025 X 054335,001054: 12,2674 53605 DMP SRR* 054336,001055: 12,2675 00033 S(XI) 054337,001056: 12,2676 21572 0 -7,1 054338,001057: 12,2677 77621 BDSU 054339,001058: 12,2700 00037 T 054340,001059: 12,2701 74352 SL1 VXSC 054341,001060: 12,2702 02746 VVEC 054342,001061: 12,2703 53372 VSL1 VAD # PL AT 0 054343,001062: 12,2704 41512 VSL4 PUSH 054344,001063: 12,2705 77646 ABVAL 054345,001064: 12,2706 77701 LAMENTER NORM 054346,001065: 12,2707 00047 X1 054347,001066: 12,2710 16722 STODL R2 054348,001067: 12,2711 00031 XI 054349,001068: 12,2712 45205 DMP DSU 054350,001069: 12,2713 00033 S(XI) 054351,001070: 12,2714 11476 D1/128 054352,001071: 12,2715 76405 DMP SL1R 054353,001072: 12,2716 00021 ROOTMU 054354,001073: 12,2717 53605 DMP SLR* 054355,001074: 12,2720 00025 X 054356,001075: 12,2721 21176 0 -3,1 054357,001076: 12,2722 74271 DDV VXSC 054358,001077: 12,2723 02722 R2 054359,001078: 12,2724 02724 UR1 054360,001079: 12,2725 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12 054361,001080: 12,2726 00035 XSQC(XI) 054362,001081: 12,2727 56257 SLR* DDV 054363,001082: 12,2730 21175 0 -4,1 054364,001083: 12,2731 02722 R2 054365,001084: 12,2732 77621 BDSU 054366,001085: 12,2733 11512 D1/256 054367,001086: 12,2734 53361 VXSC VAD 054368,001087: 12,2735 02746 VVEC # PL AT 6 054369,001088: 12,2736 43412 VSL8 RVQ 054370,001089: 054371,001090: # Page 1271 054372,001091: 04,2000 SETLOC CONICS1 054373,001092: 04,2000 BANK 054374,001093: 054375,001094: 04,3472 COUNT 04/CONIC 054376,001095: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE. 054377,001096: 04,3472 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000) 054378,001097: 04,3473 04000 00000 D1/8 2DEC 1.0 B-3 054379,001098: 04,3475 00200 00000 D1/128 2DEC 1.0 B-7 054380,001099: 04,3477 00400 00000 D1/64 2DEC 1.0 B-6 054381,001100: 04,3501 10000 00000 D1/4 2DEC 1.0 B-2 054382,001101: 04,3503 02000 00000 D1/16 2DEC 1.0 B-4 054383,001102: 04,3505 01000 00000 D1/32 2DEC 1.0 B-5 054384,001103: 04,3507 00020 00000 D1/1024 2DEC 1.0 B-10 054385,001104: 04,3511 00100 00000 D1/256 2DEC 1.0 B-8 054386,001105: 04,3513 34631 23146 DP9/10 2DEC .9 054387,001106: 04,3515 04,3455 KEPZERO EQUALS LO6ZEROS 054388,001107: 04,3515 77467 77777 -50SC 2DEC -50.0 B-12 054389,001108: 04,3517 03110 17665 2PISC 2DEC 6.28318530 B-6 054390,001109: 04,3521 04,3504 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000) 054391,001110: 04,3521 04,3510 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100) 054392,001111: 04,3521 00000 00001 ONEBIT 2DEC 1.0 B-28 054393,001112: 04,3523 37767 37737 COGUPLIM 2DEC .999511597 054394,001113: 04,3525 40010 40040 COGLOLIM 2DEC -.999511597 054395,001114: 054396,001115: # Page 1272 054397,001116: 12,2000 SETLOC CONICS 054398,001117: 12,2000 BANK 054399,001118: 054400,001119: 12,2737 COUNT 12/CONIC 054401,001120: 054402,001121: 12,2737 40220 TIMETHET STQ SETPD # PL AT 0 054403,001122: 12,2740 02712 RTNTT 054404,001123: 12,2741 00001 0 054405,001124: 12,2742 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6 054406,001125: 12,2743 02657 RVEC 054407,001126: 12,2744 02746 VVEC 054408,001127: 12,2745 77624 CALL 054409,001128: 12,2746 11527 PARAM 054410,001129: 12,2747 45000 BOV CALL 054411,001130: 12,2750 24767 COGAOVFL # PL AT 0 054412,001131: 12,2751 24772 GETX 054413,001132: 12,2752 43145 COMMNOUT DLOAD BON 054414,001133: 12,2753 00031 XI 054415,001134: 12,2754 04310 INFINFLG 054416,001135: 12,2755 02712 RTNTT 054417,001136: 12,2756 45014 CLEAR CALL 054418,001137: 12,2757 04273 COGAFLAG 054419,001138: 12,2760 24426 DELTIME 054420,001139: 12,2761 45014 BON CALL 054421,001140: 12,2762 03706 RVSW 054422,001141: 12,2763 02712 RTNTT 054423,001142: 12,2764 24660 NEWSTATE 054424,001143: 12,2765 77650 GOTO 054425,001144: 12,2766 02712 RTNTT 054426,001145: 054427,001146: 12,2767 77614 COGAOVFL SETGO 054428,001147: 12,2770 04033 COGAFLAG 054429,001148: 12,2771 02712 RTNTT 054430,001149: # Page 1273 054431,001150: 054432,001151: 04,3527 BANK 4 054433,001152: 04,2000 SETLOC CONICS1 054434,001153: 04,2000 BANK 054435,001154: 04,3527 COUNT* $$/CONIC 054436,001155: 04,3527 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6 054437,001156: 04,3530 02755 RTNPRM 054438,001157: 04,3531 03665 NORMSW 054439,001158: 04,3532 77614 CLEAR 054440,001159: 04,3533 04273 COGAFLAG 054441,001160: 04,3534 45131 SSP CALL 054442,001161: 04,3535 02675 GEOMSGN 054443,001162: 04,3536 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG 054444,001163: 04,3537 11573 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2 054445,001164: 04,3540 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0 054446,001165: 04,3541 56261 SR DDV 054447,001166: 04,3542 20606 5 054448,001167: 04,3543 00045 36D 054449,001168: 04,3544 33775 STOVL* COGA 054450,001169: 04,3545 11631 MUTABLE,1 054451,001170: 04,3546 14017 STODL 1/MU 054452,001171: 04,3547 02722 MAGVEC2 054453,001172: 04,3550 60316 DSQ NORM 054454,001173: 04,3551 00047 X1 054455,001174: 04,3552 41275 DMPR DMP 054456,001175: 04,3553 00017 1/MU 054457,001176: 04,3554 00041 R1 054458,001177: 04,3555 77657 SRR* 054459,001178: 04,3556 21576 0 -3,1 054460,001179: 04,3557 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2 054461,001180: 04,3560 11506 D1/32 054462,001181: 04,3561 16744 STODL R1A # R1A (+6) PL AT 0 054463,001182: 054464,001183: 04,3562 60205 DMP NORM 054465,001184: 04,3563 00045 36D 054466,001185: 04,3564 00047 X1 054467,001186: 04,3565 53605 DMP SR* 054468,001187: 04,3566 00045 36D 054469,001188: 04,3567 20575 0 -4,1 054470,001189: 04,3570 02742 STORE P # P (+4) 054471,001190: 04,3571 77650 GOTO 054472,001191: 04,3572 02755 RTNPRM 054473,001192: 054474,001193: # Page 1274 054475,001194: # There is a handwritten note here, in Colossus 249, reading "from Lambert 1267" --- RSB 2004 054476,001195: 04,3573 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6 054477,001196: 04,3574 16714 STODL U2 # U2 (+1) 054478,001197: 04,3575 00045 36D 054479,001198: 04,3576 26722 STOVL MAGVEC2 # PL AT 0 054480,001199: 04,3577 77656 UNIT 054481,001200: 04,3600 02724 STORE UR1 # UR1 (+1) 054482,001201: 04,3601 72441 DOT SL1 054483,001202: 04,3602 02714 U2 054484,001203: 04,3603 77725 PDDL # 0D=CSTH (+1) PL AT 2 054485,001204: 04,3604 00045 36D 054486,001205: # There is a handwritten note in this general vicinity, in Colossus 249, reading 054487,001206: # "Same as Luminary" --- RSB 2004 054488,001207: 04,3605 24041 STOVL R1 # R1 (+29 OR +27) 054489,001208: 04,3606 02724 UR1 054490,001209: 04,3607 76435 VXV VSL1 054491,001210: 04,3610 02714 U2 054492,001211: 04,3611 75214 BON SIGN 054493,001212: 04,3612 03705 NORMSW 054494,001213: 04,3613 11625 HAVENORM 054495,001214: 04,3614 02675 GEOMSGN 054496,001215: 04,3615 40056 UNIT BOV 054497,001216: 04,3616 11623 COLINEAR 054498,001217: 04,3617 16676 UNITNORM STODL UN # UN (+1) 054499,001218: 04,3620 00045 36D 054500,001219: 04,3621 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2) 054501,001220: 04,3622 02675 GEOMSGN 054502,001221: 054503,001222: 04,3623 52162 COLINEAR VSR1 GOTO 054504,001223: 04,3624 11617 UNITNORM 054505,001224: 054506,001225: 04,3625 75246 HAVENORM ABVAL SIGN 054507,001226: 04,3626 02675 GEOMSGN 054508,001227: 04,3627 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2) 054509,001228: 054510,001229: # Page 1275 054511,001230: 12,2772 BANK 12 054512,001231: 12,2000 SETLOC CONICS 054513,001232: 12,2000 BANK 054514,001233: 054515,001234: 12,2772 COUNT 12/CONIC 054516,001235: 054517,001236: 12,2772 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC 054518,001237: 12,2773 00003 3 054519,001238: 12,2774 00052 S2 054520,001239: 12,2775 00001 1 054521,001240: 12,2776 77614 CLEAR 054522,001241: 12,2777 04276 360SW 054523,001242: 12,3000 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2 054524,001243: 12,3001 02734 CSTH 054525,001244: 12,3002 44342 SR1 BDSU 054526,001245: 12,3003 11502 D1/4 054527,001246: 12,3004 54325 PDDL SRR # PL AT 4D 054528,001247: 12,3005 02732 SNTH 054529,001248: 12,3006 21607 6 054530,001249: 12,3007 77671 DDV # PL AT 2 054531,001250: 12,3010 77600 BOV 054532,001251: 12,3011 25125 360CHECK 054533,001252: 12,3012 41225 DSU DMP 054534,001253: 12,3013 03775 COGA # PL AT 0 054535,001254: 12,3014 40132 SL2R BOV 054536,001255: 12,3015 25125 360CHECK 054537,001256: 12,3016 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2 054538,001257: 12,3017 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5 054539,001258: 12,3020 00155 MPAC 054540,001259: 12,3021 02744 R1A 054541,001260: 12,3022 76202 SR4 TAD # PL AT 2 054542,001261: 12,3023 75440 BMN SQRT 054543,001262: 12,3024 25210 INFINITY 054544,001263: 12,3025 43306 ROUND DAD # PL AT 0D 054545,001264: 12,3026 61000 BOV TIX,2 054546,001265: 12,3027 25123 RESETX2 054547,001266: 12,3030 25016 WLOOP 054548,001267: 054549,001268: 12,3031 40065 BDDV BOV 054550,001269: 12,3032 11476 D1/128 054551,001270: 12,3033 25210 INFINITY 054552,001271: 12,3034 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2 054553,001272: 12,3035 25210 INFINITY 054554,001273: 12,3036 77716 DSQ 054555,001274: 12,3037 41301 NORM DMP 054556,001275: 12,3040 00047 X1 054557,001276: 12,3041 02744 R1A 054558,001277: 12,3042 77457 SRR* EXIT 054559,001278: 12,3043 21567 0 -10D,1 054560,001279: # Page 1276 054561,001280: 12,3044 07171 TC POLY 054562,001281: 12,3045 00005 DEC 5 B-14 054563,001282: 12,3046 20000 00000 2DEC .5 054564,001283: 12,3050 72525 52471 2DEC -.166666770 054565,001284: 12,3052 03146 15003 2DEC .100000392 054566,001285: 12,3054 75556 45210 2DEC -.071401086 054567,001286: 12,3056 01615 13553 2DEC .055503292 054568,001287: 12,3060 76371 63777 2DEC -.047264098 054569,001288: 12,3062 01232 27367 2DEC .040694204 054570,001289: 054571,001290: 12,3064 06006 TC INTPRET 054572,001291: 12,3065 76405 DMP SL1R # PL AT 0D 054573,001292: 12,3066 43006 PUSH BON 054574,001293: 12,3067 04316 360SW 054575,001294: 12,3070 25175 TRUE360X 054576,001295: 12,3071 60316 XCOMMON DSQ NORM 054577,001296: 12,3072 00047 X1 054578,001297: 12,3073 53605 DMP SRR* 054579,001298: 12,3074 02744 R1A 054580,001299: 12,3075 21565 0 -12D,1 054581,001300: 12,3076 14031 STODL XI # XI (+6) 054582,001301: 12,3077 00041 R1 054583,001302: 12,3100 75542 SR1 SQRT 054584,001303: 12,3101 41306 ROUND DMP 054585,001304: 12,3102 77632 SL4R # PL AT 0 054586,001305: 12,3103 00025 STORE X # X (+17 OR +16) 054587,001306: 054588,001307: 12,3104 60316 DSQ NORM 054589,001308: 12,3105 00047 X1 054590,001309: 12,3106 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2 054591,001310: 12,3107 02742 P 054592,001311: 12,3110 00041 R1 054593,001312: 12,3111 75452 SL3 SQRT 054594,001313: 12,3112 56405 DMP SL3R 054595,001314: 12,3113 03775 COGA 054596,001315: 12,3114 14043 STODL KEPC1 054597,001316: 12,3115 02744 R1A 054598,001317: 12,3116 43021 BDSU CLEAR 054599,001318: 12,3117 11500 D1/64 054600,001319: 12,3120 04270 INFINFLG 054601,001320: 12,3121 00045 STORE KEPC2 054602,001321: # Page 1277 054603,001322: 12,3122 77616 RVQ 054604,001323: 054605,001324: 12,3123 77774 RESETX2 AXT,2 054606,001325: 12,3124 00003 3 054607,001326: 054608,001327: 12,3125 51001 360CHECK SETPD BPL 054609,001328: 12,3126 00001 0D 054610,001329: 12,3127 25132 INVRSEQN 054611,001330: 12,3130 77614 SET 054612,001331: 12,3131 04076 360SW 054613,001332: 054614,001333: 12,3132 75545 INVRSEQN DLOAD SQRT 054615,001334: 12,3133 02742 P 054616,001335: 12,3134 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2 054617,001336: 12,3135 02732 SNTH 054618,001337: 12,3136 03775 COGA 054619,001338: 12,3137 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4 054620,001339: 12,3140 02734 CSTH 054621,001340: 12,3141 43202 SR4 DAD 054622,001341: 12,3142 11506 D1/32 054623,001342: 12,3143 41225 DSU DMP # PL AT 2,0 054624,001343: 12,3144 55301 NORM BDDV 054625,001344: 12,3145 00047 X1 054626,001345: 12,3146 02732 SNTH 054627,001346: 12,3147 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY 054628,001347: 12,3150 21174 0 -5,1 054629,001348: 12,3151 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2 054630,001349: 12,3152 14043 STODL 34D 054631,001350: 12,3153 11504 D1/16 054632,001351: 12,3154 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4 054633,001352: 12,3155 65234 RTB PDDL # PL AT 7 054634,001353: 12,3156 45562 TPMODE 054635,001354: 12,3157 02744 R1A 054636,001355: 12,3160 40405 DMP SR4 054637,001356: 12,3161 00043 34D 054638,001357: 12,3162 77771 TAD 054639,001358: 12,3163 75440 BMN SQRT # PL AT 4 054640,001359: 12,3164 25210 INFINITY 054641,001360: 12,3165 77615 DAD # PL AT 2 054642,001361: 12,3166 60304 TIX,2 NORM 054643,001362: 12,3167 25154 1/WLOOP 054644,001363: 12,3170 00047 X1 054645,001364: 12,3171 77665 BDDV 054646,001365: 12,3172 52057 SLR* GOTO # PL AT 0 054647,001366: 12,3173 21172 0 -7,1 054648,001367: 12,3174 25034 POLYCOEF 054649,001368: 054650,001369: # Page 1278 054651,001370: 12,3175 50145 TRUE360X DLOAD BMN 054652,001371: 12,3176 02744 R1A 054653,001372: 12,3177 25210 INFINITY 054654,001373: 12,3200 60366 SQRT NORM 054655,001374: 12,3201 00047 X1 054656,001375: 12,3202 53665 BDDV SL* 054657,001376: 12,3203 11520 2PISC 054658,001377: 12,3204 20176 0 -3,1 054659,001378: 12,3205 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2 054660,001379: 12,3206 77650 GOTO 054661,001380: 12,3207 25071 XCOMMON 054662,001381: 12,3210 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH 054663,001382: 12,3211 00001 0 # INFINITY IS REQUIRED 054664,001383: 12,3212 25213 OVFLCLR 054665,001384: 12,3213 43414 OVFLCLR SET RVQ 054666,001385: 12,3214 04070 INFINFLG 054667,001386: 054668,001387: # Page 1279 054669,001388: 12,3215 40220 LAMBERT STQ SETPD 054670,001389: 12,3216 02712 RTNLAMB 054671,001390: 12,3217 00001 0D 054672,001391: 12,3220 76731 SSP VLOAD* 054673,001392: 12,3221 00027 ITERCTR 054674,001393: 12,3222 00024 20D 054675,001394: 12,3223 11631 MUTABLE,1 054676,001395: 12,3224 14017 STODL 1/MU 054677,001396: 12,3225 02673 TDESIRED 054678,001397: 12,3226 77675 DMPR 054679,001398: 12,3227 11505 BEE19 054680,001399: 12,3230 03777 STORE EPSILONL 054681,001400: 12,3231 77214 SET VLOAD 054682,001401: 12,3232 00474 SLOPESW 054683,001402: 12,3233 02657 R1VEC 054684,001403: 12,3234 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6 054685,001404: 12,3235 02665 R2VEC # MPAC=R2VEC (+29 OR +27) 054686,001405: 12,3236 11573 GEOM 054687,001406: 12,3237 16732 STODL SNTH # 0D=CSTH (+1) PL AT 2 054688,001407: 12,3240 02722 MAGVEC2 054689,001408: 12,3241 65301 NORM PDDL 054690,001409: 12,3242 00047 X1 054691,001410: 12,3243 00041 R1 054692,001411: 12,3244 56342 SR1 DDV # PL AT 2 054693,001412: 12,3245 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2 054694,001413: 12,3246 20173 0 -6,1 054695,001414: 12,3247 77626 STADR 054696,001415: 12,3250 75043 STORE CSTH # CSTH (+1) 054697,001416: 12,3251 44342 SR1 BDSU 054698,001417: 12,3252 11502 D1/4 054699,001418: 12,3253 02736 STORE 1-CSTH # 1-CSTH (+2) 054700,001419: 054701,001420: 12,3254 53106 ROUND BZE 054702,001421: 12,3255 25465 360LAMB 054703,001422: 12,3256 65301 NORM PDDL # PL AT 4 054704,001423: 12,3257 00047 X1 054705,001424: 12,3260 00001 0D 054706,001425: 12,3261 56342 SR1 DDV # PL AT 2 054707,001426: 12,3262 75457 SL* SQRT 054708,001427: 12,3263 20176 0 -3,1 054709,001428: 12,3264 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4 054710,001429: 12,3265 02732 SNTH 054711,001430: 12,3266 20607 6 054712,001431: 12,3267 43271 DDV DAD # PL AT 2 054713,001432: 12,3270 02736 1-CSTH 054714,001433: 12,3271 77626 STADR 054715,001434: 12,3272 77760 STORE COGAMAX 054716,001435: 12,3273 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM 054717,001436: 12,3274 25301 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE 054718,001437: 12,3275 25304 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP 054719,001438: # Page 1280 054720,001439: 12,3276 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM 054721,001440: 12,3277 11524 COGUPLIM 054722,001441: 12,3300 25304 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA 054723,001442: 12,3301 77745 UPLIM DLOAD 054724,001443: 12,3302 11524 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA 054725,001444: 12,3303 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION 054726,001445: 12,3304 77745 MAXCOGA DLOAD 054727,001446: 12,3305 02734 CSTH 054728,001447: 12,3306 45261 SR DSU # PL AT 0 054729,001448: 12,3307 20607 6 054730,001449: 12,3310 77626 STADR 054731,001450: 12,3311 61037 STODL CSTH-RHO 054732,001451: 12,3312 02675 GEOMSGN 054733,001452: 12,3313 71240 BMN DLOAD 054734,001453: 12,3314 25505 LOLIM 054735,001454: 12,3315 02740 CSTH-RHO 054736,001455: 12,3316 56352 SL1 DDV 054737,001456: 12,3317 02732 SNTH 054738,001457: 12,3320 77600 BOV 054739,001458: 12,3321 25505 LOLIM 054740,001459: 12,3322 00011 MINCOGA STORE COGAMIN # COGAMIN (+5) 054741,001460: 12,3323 66214 BON SSP 054742,001461: 12,3324 00715 GUESSW 054743,001462: 12,3325 25471 NOGUESS 054744,001463: 12,3326 00051 TWEEKIT 054745,001464: 12,3327 00001 00001 054746,001465: 12,3330 77745 DLOAD 054747,001466: 12,3331 03775 COGA 054748,001467: 054749,001468: 12,3332 77605 LAMBLOOP DMP 054750,001469: 12,3333 02732 SNTH 054751,001470: 12,3334 45342 SR1 DSU 054752,001471: 12,3335 02740 CSTH-RHO 054753,001472: 12,3336 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(XI)) PL = 2 054754,001473: 12,3337 00047 X1 054755,001474: 12,3340 02736 1-CSTH 054756,001475: 12,3341 56257 SL* DDV # 1-CSTH (+2) PL AT 0 054757,001476: 12,3342 20170 0 -9D,1 054758,001477: 12,3343 53040 BMN BZE 054759,001478: 12,3344 25421 NEGP 054760,001479: 12,3345 25421 NEGP 054761,001480: 12,3346 16742 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4) 054762,001481: 12,3347 03775 COGA 054763,001482: 12,3350 43316 DSQ DAD 054764,001483: 12,3351 11510 D1/1024 054765,001484: 12,3352 41301 NORM DMP 054766,001485: 12,3353 00047 X1 054767,001486: 12,3354 02742 P 054768,001487: 12,3355 44257 SR* BDSU 054769,001488: # Page 1281 054770,001489: 12,3356 20571 0 -8D,1 054771,001490: 12,3357 11506 D1/32 054772,001491: 12,3360 16744 STODL R1A # R1A=2-P(1+COGA COGA) (+6) 054773,001492: 12,3361 02742 P 054774,001493: 12,3362 45000 BOV CALL 054775,001494: 12,3363 25424 HIENERGY 054776,001495: 12,3364 24772 GETX 054777,001496: 12,3365 77745 DLOAD 054778,001497: 12,3366 00037 T 054779,001498: 12,3367 16764 STODL TPREV 054780,001499: 12,3370 00031 XI 054781,001500: 12,3371 45014 BON CALL 054782,001501: 12,3372 04310 INFINFLG 054783,001502: 12,3373 25421 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS 054784,001503: 12,3374 24426 DELTIME 054785,001504: 12,3375 44200 BOV BDSU 054786,001505: 12,3376 25441 BIGTIME 054787,001506: 12,3377 02673 TDESIRED 054788,001507: 12,3400 02762 STORE TERRLAMB 054789,001508: 12,3401 44246 ABS BDSU 054790,001509: 12,3402 03777 EPSILONL 054791,001510: 12,3403 47044 BPL RTB 054792,001511: 12,3404 25510 INITV 054793,001512: 12,3405 24651 CHECKCTR 054794,001513: 12,3406 45030 BHIZ CALL 054795,001514: 12,3407 25452 SUFFCHEK 054796,001515: 12,3410 24543 ITERATOR 054797,001516: 12,3411 53145 DLOAD BZE 054798,001517: 12,3412 00155 MPAC 054799,001518: 12,3413 25452 SUFFCHEK 054800,001519: 12,3414 77615 DAD 054801,001520: 12,3415 03775 COGA 054802,001521: 12,3416 03775 STORE COGA 054803,001522: 12,3417 77650 GOTO 054804,001523: 12,3420 25332 LAMBLOOP 054805,001524: 054806,001525: 12,3421 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE 054807,001526: 12,3422 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA. 054808,001527: 12,3423 25444 LOENERGY 054809,001528: 054810,001529: 12,3424 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED. 054811,001530: 12,3425 00001 0 054812,001531: 12,3426 03775 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50. 054813,001532: 12,3427 00011 STORE COGAMIN # THIS IS THE NEW BOUND. 054814,001533: 12,3430 70545 COMMONLM DLOAD SR1 054815,001534: 12,3431 00015 DCOGA 054816,001535: 12,3432 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT 054817,001536: # Page 1282 054818,001537: 12,3433 44254 BZE BDSU 054819,001538: 12,3434 25452 SUFFCHEK 054820,001539: 12,3435 03775 COGA 054821,001540: 12,3436 03775 STORE COGA 054822,001541: 12,3437 77650 GOTO # RESTART THIS LOOP 054823,001542: 12,3440 25332 LAMBLOOP 054824,001543: 054825,001544: 12,3441 77745 BIGTIME DLOAD 054826,001545: 12,3442 02764 TPREV 054827,001546: 12,3443 00037 STORE T 054828,001547: 054829,001548: 12,3444 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED 054830,001549: 12,3445 00001 0 054831,001550: 12,3446 03775 COGA # IN OVERFLOW OF TIME. 054832,001551: 12,3447 00017 STORE COGAMAX # THIS IS THE NEW BOUND. 054833,001552: 12,3450 77650 GOTO 054834,001553: 12,3451 25430 COMMONLM 054835,001554: 054836,001555: 12,3452 51545 SUFFCHEK DLOAD ABS 054837,001556: 12,3453 02762 TERRLAMB 054838,001557: 12,3454 41325 PDDL DMP 054839,001558: 12,3455 02673 TDESIRED # PL AT 2D 054840,001559: 12,3456 11502 D1/4 054841,001560: 12,3457 45215 DAD DSU # PL AT 0D 054842,001561: 12,3460 11522 ONEBIT 054843,001562: 12,3461 43044 BPL SETGO 054844,001563: 12,3462 25510 INITV 054845,001564: 12,3463 02434 SOLNSW 054846,001565: 12,3464 02712 RTNLAMB 054847,001566: 12,3465 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1 054848,001567: 12,3466 00001 0 054849,001568: 12,3467 02434 SOLNSW 054850,001569: 12,3470 02712 RTNLAMB 054851,001570: 054852,001571: 12,3471 71331 NOGUESS SSP DLOAD 054853,001572: 12,3472 00051 TWEEKIT 054854,001573: 12,3473 10000 20000 054855,001574: 12,3474 00011 COGAMIN 054856,001575: 12,3475 65342 SR1 PDDL 054857,001576: 12,3476 00017 COGAMAX 054858,001577: 12,3477 43342 SR1 DAD 054859,001578: 12,3500 77626 STADR # PL AT 0 054860,001579: 12,3501 74002 STORE COGA 054861,001580: 12,3502 00015 STORE DCOGA 054862,001581: # Page 1283 054863,001582: 12,3503 77650 GOTO 054864,001583: 12,3504 25332 LAMBLOOP 054865,001584: # There is a handwritten note on the Colossus 249 scan here, which unfortunately 054866,001585: # is not completely legible. It is something like "Dca's from MAXCOGA" 054867,001586: # --- RSB 2004 054868,001587: 12,3505 52145 LOLIM DLOAD GOTO 054869,001588: 12,3506 11526 COGLOLIM # COGLOLIM=-.999511597 054870,001589: 12,3507 25322 MINCOGA 054871,001590: 12,3510 60345 INITV DLOAD NORM 054872,001591: 12,3511 00041 R1 054873,001592: 12,3512 00047 X1 054874,001593: 12,3513 70525 PDDL SR1 # PL AT 2 054875,001594: 12,3514 02742 P 054876,001595: 12,3515 77671 DDV # PL AT 0 054877,001596: 12,3516 75457 SL* SQRT 054878,001597: 12,3517 20175 0 -4,1 054879,001598: 12,3520 72405 DMP SL1 054880,001599: 12,3521 00021 ROOTMU 054881,001600: 12,3522 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2 054882,001601: 12,3523 03775 COGA 054883,001602: 12,3524 74261 SL VXSC 054884,001603: 12,3525 20206 5 054885,001604: 12,3526 02724 UR1 054886,001605: 12,3527 77725 PDDL # XCH WITH 0D PL AT 0,6 054887,001606: 12,3530 76561 VXSC VSL1 054888,001607: 12,3531 02676 UN 054889,001608: 12,3532 53235 VXV VAD 054890,001609: 12,3533 02724 UR1 # PL AT 0 054891,001610: 12,3534 43172 VSL1 CLEAR 054892,001611: 12,3535 02674 SOLNSW 054893,001612: 12,3536 02746 STORE VVEC 054894,001613: 12,3537 53135 SLOAD BZE 054895,001614: 12,3540 02704 VTARGTAG 054896,001615: 12,3541 25544 TARGETV 054897,001616: 12,3542 77650 GOTO 054898,001617: 12,3543 02712 RTNLAMB 054899,001618: 054900,001619: 12,3544 45145 TARGETV DLOAD CALL 054901,001620: 12,3545 02722 MAGVEC2 054902,001621: 12,3546 24706 LAMENTER 054903,001622: 12,3547 02705 STORE VTARGET 054904,001623: 12,3550 77650 GOTO 054905,001624: 12,3551 02712 RTNLAMB 054906,001625: 054907,001626: # Page 1284 054908,001627: 12,3552 40220 TIMERAD STQ SETPD # PL AT 0 054909,001628: 12,3553 02712 RTNTR 054910,001629: 12,3554 00001 0 054911,001630: 12,3555 63375 VLOAD PDVL # PL AT 6 054912,001631: 12,3556 02657 RVEC 054913,001632: 12,3557 02746 VVEC 054914,001633: 12,3560 77624 CALL 054915,001634: 12,3561 11527 PARAM 054916,001635: 12,3562 71200 BOV DLOAD 054917,001636: 12,3563 24767 COGAOVFL # PL AT 0 054918,001637: 12,3564 11506 D1/32 054919,001638: 12,3565 41225 DSU DMP 054920,001639: 12,3566 02744 R1A 054921,001640: 12,3567 02742 P 054922,001641: 12,3570 41366 SQRT DMP 054923,001642: 12,3571 03775 COGA 054924,001643: 12,3572 74212 SL4 VXSC 054925,001644: 12,3573 02714 U2 054926,001645: 12,3574 45325 PDDL DSU # PL AT 6 054927,001646: 12,3575 11500 D1/64 054928,001647: 12,3576 02744 R1A 054929,001648: 12,3577 52361 VXSC VSU # PL AT 0 054930,001649: 12,3600 02724 UR1 054931,001650: 12,3601 53512 VSL4 UNIT 054932,001651: 12,3602 77600 BOV 054933,001652: 12,3603 25465 360LAMB # NO SOLUTION SINCE CONIC IS A CIRCLE 054934,001653: 12,3604 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6 054935,001654: 12,3605 02760 RDESIRED # 35D=ECC (+3) 054936,001655: 12,3606 00047 X1 054937,001656: 12,3607 41325 PDDL DMP # PL AT 8 054938,001657: 12,3610 00041 R1 054939,001658: 12,3611 02742 P 054940,001659: 12,3612 56257 SL* DDV # PL AT 6 054941,001660: 12,3613 20201 0,1 054942,001661: 12,3614 56225 DSU DDV 054943,001662: 12,3615 11504 D1/16 054944,001663: 12,3616 00045 36D # 36D=ECC (+3) 054945,001664: 12,3617 00031 STORE COSF 054946,001665: 12,3620 63400 BOV DSQ 054947,001666: 12,3621 25661 BADR2 054948,001667: 12,3622 50021 BDSU BMN 054949,001668: 12,3623 11502 D1/4 054950,001669: 12,3624 25661 BADR2 054951,001670: 12,3625 75366 SQRT SIGN 054952,001671: 12,3626 02757 SGNRDOT 054953,001672: 12,3627 77614 CLEAR 054954,001673: 12,3630 04272 APSESW 054955,001674: 054956,001675: 12,3631 76561 TERMNVEC VXSC VSL1 054957,001676: 12,3632 02676 UN 054958,001677: # Page 1285 054959,001678: 12,3633 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6 054960,001679: 12,3634 00001 0D 054961,001680: 12,3635 53361 VXSC VAD # PL AT 0 054962,001681: 12,3636 00031 COSF 054963,001682: 12,3637 41572 VSL1 PUSH # 0D=U2 PL AT 6 054964,001683: 054965,001684: 12,3640 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX 054966,001685: 12,3641 02724 UR1 054967,001686: 12,3642 23701 DP1/4 054968,001687: 12,3643 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL 054969,001688: 12,3644 25645 +1 # CLEAR OVFIND IF SET 054970,001689: 12,3645 26734 STOVL CSTH # CSTH (+1) 054971,001690: 12,3646 02724 UR1 054972,001691: 12,3647 76435 VXV VSL1 054973,001692: 12,3650 72441 DOT SL1 054974,001693: 12,3651 02676 UN 054975,001694: 12,3652 16732 STODL SNTH # SNTH (+1) 054976,001695: 12,3653 02742 P 054977,001696: 12,3654 77624 CALL 054978,001697: 12,3655 24772 GETX 054979,001698: 12,3656 77614 CLRGO 054980,001699: 12,3657 02634 SOLNSW 054981,001700: 12,3660 24752 COMMNOUT 054982,001701: 054983,001702: 12,3661 75345 BADR2 DLOAD SIGN 054984,001703: 12,3662 11454 LODPHALF 054985,001704: 12,3663 00031 COSF 054986,001705: 12,3664 14031 STODL COSF 054987,001706: 12,3665 11456 KEPZERO 054988,001707: 12,3666 77614 SETGO 054989,001708: 12,3667 04032 APSESW 054990,001709: 12,3670 25631 TERMNVEC 054991,001710: 054992,001711: 12,3671 40220 APSIDES STQ SETPD # PL AT 0 054993,001712: 12,3672 02712 RTNAPSE 054994,001713: 12,3673 00001 0D 054995,001714: 12,3674 63375 VLOAD PDVL # PL AT 6 054996,001715: 12,3675 02657 RVEC 054997,001716: 12,3676 02746 VVEC 054998,001717: 12,3677 77624 CALL 054999,001718: 12,3700 11527 PARAM 055000,001719: 12,3701 77600 BOV # PL AT 0 055001,001720: 12,3702 25703 GETECC 055002,001721: 12,3703 42405 GETECC DMP SL4 055003,001722: 12,3704 02744 R1A 055004,001723: 12,3705 75421 BDSU SQRT 055005,001724: 12,3706 11500 D1/64 055006,001725: 12,3707 02754 STORE ECC 055007,001726: 12,3710 65215 DAD PDDL # PL AT 2 055008,001727: 12,3711 11474 D1/8 055009,001728: # Page 1286 055010,001729: 12,3712 00041 R1 055011,001730: 12,3713 72405 DMP SL1 055012,001731: 12,3714 02742 P 055013,001732: 12,3715 77671 DDV # PL AT 0 055014,001733: 12,3716 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2 055015,001734: 12,3717 02744 R1A 055016,001735: 12,3720 00047 X1 055017,001736: 12,3721 53725 PDDL SL* # PL AT 4 055018,001737: 12,3722 00041 R1 055019,001738: 12,3723 20174 0 -5,1 055020,001739: 12,3724 45271 DDV DSU # PL AT 2,0 055021,001740: 12,3725 50000 BOV BMN 055022,001741: 12,3726 25732 INFINAPO 055023,001742: 12,3727 25732 INFINAPO 055024,001743: 12,3730 77650 GOTO 055025,001744: 12,3731 02712 RTNAPSE 055026,001745: 12,3732 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS 055027,001746: 12,3733 11467 LDPOSMAX 055028,001747: 12,3734 02712 RTNAPSE # THAT PL IS AT 0. 055029,001748: 055030,001749: # Page 1287 055031,001750: 04,2000 SETLOC CONICS1 055032,001751: 04,2000 BANK 055033,001752: 055034,001753: 04,3630 COUNT 04/CONIC 055035,001754: 055036,001755: 04,3630 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE 055037,001756: 04,3632 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE 055038,001757: 04,3634 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE) 055039,001758: 04,3636 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE) 055040,001759: 055041,001760: 04,3640 16471 01352 2DEC 4.902778 E8 B-30 # MUM 055042,001761: 04,3642 21412 20500 2DEC .203966 E-8 B+28 # 1/MUM 055043,001762: 04,3644 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM) 055044,001763: 04,3646 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM) 055045,001764: 055046,001765: 04,3650 04,3466 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. 055047,001766: 055048,001767: # ERASABLE ASSIGNEMENTS 055049,001768: # KEPLER SUBROUTINE 055050,001769: 055051,001770: # INPUT -- 055052,001771: # RRECT ERASE +5 055053,001772: # VRECT ERASE +5 055054,001773: # TAU. ERASE +1 055055,001774: # XKEP ERASE +1 055056,001775: # TC ERASE +1 055057,001776: # XPREV ERASE +1 055058,001777: 04,3650 1/MU EQUALS 14D 055059,001778: 04,3650 ROOTMU EQUALS 16D 055060,001779: 04,3650 1/ROOTMU EQUALS 18D 055061,001780: 055062,001781: # OUTPUT -- 055063,001782: # RCV ERASE +5 055064,001783: # VCV ERASE +5 055065,001784: # RC ERASE +1 055066,001785: # XPREV ERASE +1 055067,001786: 055068,001787: # DEBRIS -- 055069,001788: 04,3650 ALPHA EQUALS 8D 055070,001789: 04,3650 XMAX EQUALS 10D 055071,001790: # Page 1288 055072,001791: 04,3650 XMIN EQUALS 12D 055073,001792: 04,3650 X EQUALS 20D 055074,001793: 04,3650 XI EQUALS 24D 055075,001794: 04,3650 S(XI) EQUALS 26D 055076,001795: 04,3650 XSQC(XI) EQUALS 28D 055077,001796: 04,3650 T EQUALS 30D 055078,001797: 04,3650 R1 EQUALS 32D 055079,001798: 04,3650 KEPC1 EQUALS 34D 055080,001799: 04,3650 KEPC2 EQUALS 36D 055081,001800: 055082,001801: # DELX ERASE +1 055083,001802: # DELT ERASE +1 055084,001803: # URRECT ERASE +5 055085,001804: # RCNORM ERASE +1 055086,001805: # XPREV EQUALS XKEP 055087,001806: 055088,001807: 055089,001808: # LAMBERT SUBROUTINE 055090,001809: 055091,001810: # INPUT -- 055092,001811: # R1VEC ERASE +5 055093,001812: # R2VEC ERASE +5 055094,001813: # TDESIRED ERASE +1 055095,001814: # GEOMSGN ERASE +0 055096,001815: # GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT 055097,001816: # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. 055098,001817: # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT 055099,001818: # UN ERASE +5 # ONLY USEC IF NORMSE IS 1 055100,001819: # VTARGTAG ERASE +0 055101,001820: # TWEEKIT EQUALS 40D # ONLY USED IF GUESSW IS 0 055102,001821: 055103,001822: # OUTPUT -- 055104,001823: # VTARGET ERASE +5 # AVAILABLE ONLY IF VTARGTAG IS ZERO. 055105,001824: # V1VEC EQUALS MPAC 055106,001825: 055107,001826: # DEBRIS -- 055108,001827: # RTNLAMB ERASE +0 055109,001828: # U2 ERASE +5 055110,001829: # MAGVEC2 ERASE +1 055111,001830: # UR1 ERASE +5 055112,001831: # R1 EQUALS 31D 055113,001832: # UN ERASE +5 055114,001833: # SNTH ERASE +1 055115,001834: # CSTH ERASE +1 055116,001835: # 1-CSTH ERASE +1 055117,001836: # CSTH-RHO ERASE +1 055118,001837: 055119,001838: 04,3650 COGAMAX EQUALS 14D # CLOBBERS 1/MU 055120,001839: 04,3650 COGAMIN EQUALS 8D 055121,001840: 04,3650 DCOGA EQUALS 12D 055122,001841: 055123,001842: # TWEEKIT EQUALS 40D 055124,001843: # P ERASE +1 055125,001844: # Page 1289 055126,001845: # COGA ERASE +1 055127,001846: # R1A ERASE +1 055128,001847: # X EQUALS 20D 055129,001848: # XSQ EQUALS 22D 055130,001849: # XI EQUALS 24D 055131,001850: # S(XI) EQUALS 26D 055132,001851: # XSQC(XI) EQUALS 28D 055133,001852: # T EQUALS 30D 055134,001853: # KEPC1 EQUALS 34D 055135,001854: # KEPC2 EQUALS 36D 055136,001855: # SLOPSW 055137,001856: # SOLNSW 055138,001857: 055139,001858: # OTHERS -- 055140,001859: # RVEC EQUALS R1VEC 055141,001860: # VVEC ERASE +5 055142,001861: # COGAFLAG 055143,001862: # RVSW 055144,001863: # INFINFLG 055145,001864: # APSESW 055146,001865: # 360SW 055147,001866: # RTNTT EQUALS RTNLAMB 055148,001867: # ECC ERASE +1 055149,001868: # RTNTR EQUALS RTNLAMB 055150,001869: # RTNAPSE EQUALS RTNLAMB 055151,001870: # R2 EQUALS MAGVEC2 055152,001871: 055153,001872: 04,3650 COSF EQUALS 24D 055154,001873: 055155,001874: # RTNPRM ERASE +0 055156,001875: # SCNRDOT ERASE +0 055157,001876: # RDESIRED ERASE +1 055158,001877: 055159,001878: 055160,001879: # ITERATOR SUBROUTINE 055161,001880: # ORDERSW 055162,001881: 04,3650 MAX EQUALS 14D # CLOBBERS 1/MU 055163,001882: 04,3650 MIN EQUALS 8D 055164,001883: 055165,001884: # INDEP ERASE +1 055166,001885: 055167,001886: 04,3650 DELINDEP EQUALS 12D 055168,001887: 04,3650 ITERCTR EQUALS 22D 055169,001888: 04,3650 DEP EQUALS 30D 055170,001889: 055171,001890: # DELDEP ERASE +1 055172,001891: # DEPREV ERASE +1 055173,001892: 055174,001893: 04,3650 TWEEKIT EQUALS 40D 055175,001894: 055176,001895: 055177,001896: # MORE KEPLER 055178,001897: # EPSILONT ERASE +1 055179,001898: 055180,001899: # Page 1290 055181,001900: # MORE LAMBERT 055182,001901: # TERRLAMB EQUALS DELDEP 055183,001902: # TPREV EQUALS DEPREV 055184,001903: # EPSILONL EQUALS EPSILONT +2 # DOUBLE PRECISION WORD 055185,001904: 055186,001905: End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc