Source Code
![]() |
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
053928,000002: ## Copyright: Public domain. 053929,000003: ## Filename: CONIC_SUBROUTINES.agc 053930,000004: ## Purpose: Part of the source code for Colossus, build 249. 053931,000005: ## It is part of the source code for the Command Module's (CM) 053932,000006: ## Apollo Guidance Computer (AGC), for Apollo 9. 053933,000007: ## Assembler: yaYUL 053934,000008: ## Reference: Starts on p. 1232 053935,000009: ## Contact: Ron Burkey <info@sandroid.org>. 053936,000010: ## Website: www.ibiblio.org/apollo. 053937,000011: ## Mod history: 08/29/04 RSB. Began converting from corresponding Luminary131 file. 053938,000012: ## 2017-01-06 RSB Page numbers now agree with those on the 053939,000013: ## original harcopy, as opposed to the PDF page 053940,000014: ## numbers in 1701.pdf. 053941,000015: ## 2017-01-07 RSB Cross-diff'd comment text (not whitespace) 053942,000016: ## vs the already-proofed corresponding Colossus 053943,000017: ## 237 and Comanche 55 source-code files 053944,000018: ## and corrected errors found. 053945,000019: ## 2017-01-21 RSB Back-ported comment error fixes detected in diff'ing 053946,000020: ## Artemis 72 vs Comanche 55. 053947,000021: ## 2017-01-28 RSB WTIH -> WITH. 053948,000022: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116. 053949,000023: ## 2017-03-15 RSB Comment-text fixes identified in 5-way 053950,000024: ## side-by-side diff of Luminary 69/99/116/131/210. 053951,000025: 053952,000026: ## The contents of the "Colossus249" files, in general, are transcribed 053953,000027: ## from a scanned copy of the program listing. Notations on this 053954,000028: ## document read, in part: 053955,000029: ## 053956,000030: ## Assemble revision 249 of AGC program Colossus by NASA 053957,000031: ## 2021111-041. October 28, 1968. 053958,000032: ## 053959,000033: ## This AGC program shall also be referred to as 053960,000034: ## Colossus 1A 053961,000035: ## 053962,000036: ## Prepared by 053963,000037: ## Massachusetts Institute of Technology 053964,000038: ## 75 Cambridge Parkway 053965,000039: ## Cambridge, Massachusetts 053966,000040: ## under NASA contract NAS 9-4065. 053967,000041: ## 053968,000042: ## Refer directly to the online document mentioned above for further information. 053969,000043: ## Please report any errors (relative to the scanned pages) to info@sandroid.org. 053970,000044: ## 053971,000045: ## In some cases, where the source code for Luminary 131 overlaps that of 053972,000046: ## Colossus 249, this code is instead copied from the corresponding Luminary 131 053973,000047: ## source file, and then is proofed to incorporate any changes. 053974,000048:
![]() |
Page 1232 |
053976,000050: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967 053977,000051: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES 053978,000052: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88 053979,000053: 053980,000054: # FUNCTIONAL DESCRIPTION - 053981,000055: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL 053982,000056: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION 053983,000057: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES, 053984,000058: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES 053985,000059: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE 053986,000060: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES 053987,000061: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING 053988,000062: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU- 053989,000063: # TINES APPROPRIATELY. 053990,000064: 053991,000065: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND 053992,000066: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES, 053993,000067: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED. 053994,000068: 053995,000069: # RESTRICTIONS - 053996,000070: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING 053997,000071: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC- 053998,000072: # TORIES COULD BE HANDLED. 053999,000073: 054000,000074: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN 054001,000075: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED 054002,000076: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION. 054003,000077:
![]() |
Page 1233 |
054005,000079: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967 054006,000080: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES 054007,000081: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222 054008,000082: 054009,000083: # FUNCTIONAL DESCRIPTION - 054010,000084: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO 054011,000085: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC 054012,000086: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE 054013,000087: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT 054014,000088: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA- 054015,000089: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION. 054016,000090: 054017,000091: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY 054018,000092: # EXTRAPOLATING THE POSITION BACKWARD IN TIME. 054019,000093: 054020,000094: # IF THE DESIRED TRANSFER TIME IS POSITIVE AND EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A MODULAR 054021,000095: # TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL. 054022,000096: 054023,000097: # THE RESTRICTIONS ARE - 054024,000098: # 1. A NEGATIVE DESIRED TIME MUST BE LESS THAN ONE PERIOD IN MAGNITUDE. IF GREATER, THE ONE-PERIOD-SOLUTION 054025,000099: # WILL BE RETURNED. 054026,000100: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF 054027,000101: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 054028,000102: 054029,000103: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE 054030,000104: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE 054031,000105: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION. 054032,000106: 054033,000107: # REFERENCES - 054034,000108: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA 054035,000109: # MEMO 67-4. 054036,000110: 054037,000111: # INPUT - ERASABLE INITIALIZATION REQUIRED 054038,000112: # * SCALE FACTOR * 054039,000113: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054040,000114: # --------*--------------* ----------------------- 054041,000115: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS 054042,000116: # * +27 FOR MOON * 054043,000117: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 054044,000118: # * +5 FOR MOON * 054045,000119: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 054046,000120: # * *RESPECTIVELY, IS THE CENTRAL BODY 054047,000121: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
![]() |
Page 1234 |
054049,000123: # XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP 054050,000124: # * +16 FOR MOON *(DP) 054051,000125: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP 054052,000126: # XPREV * +17 FOR EARTH*PREVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF POWER FROM KEPPREP (DP) 054053,000127: # * +16 FOR MOON *(DP) 054054,000128: 054055,000129: # SUBROUTINES CALLED - 054056,000130: # DELTIME 054057,000131: 054058,000132: # CALLING SEQUENCE AND NORMAL EXIT MODES - 054059,000133: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR 054060,000134: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0. 054061,000135: # KEPRTN ... CONTINUE 054062,000136: 054063,000137: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE 054064,000138: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH 054065,000139: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW. 054066,000140: 054067,000141: # ABORT EXIT MODES - 054068,000142: # NONE 054069,000143: 054070,000144: # OUTPUT - 054071,000145: # * SCALE FACTOR * 054072,000146: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054073,000147: # --------*--------------* ----------------------- 054074,000148: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS 054075,000149: # * +27 FOR MOON * 054076,000150: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC 054077,000151: # * +5 FOR MOON * 054078,000152: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. 054079,000153: # XPREV * +17 FOR EARTH*DP X IN METERS-TO-THE-ONE-HALF-POWER TO WHCIH KEPLER CONVERGED. 054080,000154: # * +16 FOR MOON *(DP) 054081,000155: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 054082,000156: 054083,000157: # DEBRIS - 054084,000158: # PARAMETERS WHICH MAY BE OF USE -
![]() |
Page 1235 |
054086,000160: # * SCALE FACTOR * 054087,000161: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054088,000162: # --------*--------------* ----------------------- 054089,000163: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION 054090,000164: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS 054091,000165: # * +27 FOR MOON * 054092,000166: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS 054093,000167: # * -20 FOR MOON * 054094,000168: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A 054095,000169: # * *TAU. OF LESS THAN ONE PERIOD. 054096,000170: 054097,000171: # PARAMETERS OF NO USE - 054098,000172: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D. 054099,000173:
![]() |
Page 1236 |
054101,000175: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967 054102,000176: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES 054103,000177: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88 054104,000178: 054105,000179: # FUNCTIONAL DESCRIPTION - 054106,000180: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY 054107,000181: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE 054108,000182: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE 054109,000183: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY 054110,000184: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS 054111,000185: # UTILIZED IN THE COMPUTATION. 054112,000186: 054113,000187: # THE RESTRICTIONS ARE - 054114,000188: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED. 054115,000189: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0. 054116,000190: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 054117,000191: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 054118,000192: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION. 054119,000193: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE 054120,000194: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 054121,000195: 054122,000196: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST 054123,000197: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE- 054124,000198: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION. 054125,000199: 054126,000200: # REFERENCES - 054127,000201: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP - SECTION 5.5, SGA MEMO 67-8, 054128,000202: # SGA MEMO 67-4. 054129,000203: 054130,000204: # INPUT - ERASABLE INITIALIZATION REQUIRED 054131,000205: # * SCALE FACTOR * 054132,000206: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054133,000207: # --------*--------------* ----------------------- 054134,000208: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS 054135,000209: # * +27 FOR MOON * 054136,000210: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS 054137,000211: # * +27 FOR MOON * 054138,000212: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS 054139,000213: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 054140,000214: # * *RESPECTIVELY, IS THE CENTRAL BODY 054141,000215: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG. 054142,000216: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
![]() |
Page 1237 |
054144,000218: # * *COGA IS TO BE USED BY LAMBERT 054145,000219: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE 054146,000220: # *IGNORED IF GUESSW IS SET. 054147,000221: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF 054148,000222: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN). 054149,000223: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR 054150,000224: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR. 054151,000225: # VTARGTAG*NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS 054152,000226: # * *AT R1VEC. 054153,000227: 054154,000228: # SUBROUTINES CALLED - 054155,000229: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE) 054156,000230: 054157,000231: # CALLING SEQUENCE AND NORMAL EXIT MODES - 054158,000232: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR 054159,000233: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET 054160,000234: # IN MPAC IF VTARGTAG WAS ZERO 054161,000235: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE 054162,000236: # L+3 SOLNSW 054163,000237: # L+4 LAMABORT 054164,000238: 054165,000239: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND 054166,000240: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL. 054167,000241: 054168,000242: # ABORT EXIT MODES - 054169,000243: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T 054170,000244: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE 054171,000245: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ... 054172,000246: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR 054173,000247: # 1-CSTH 360 DEGREES. 054174,000248: # DSU BMN 054175,000249: # ONEBIT 054176,000250: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY. 054177,000251: # DLOAD DAD 054178,000252: # TDESIRED 054179,000253: # SOMETIME 054180,000254: # STCALL TDESIRED INCREASE TDESIRED 054181,000255: # LAMBERT 054182,000256: 054183,000257: # OUTPUT - 054184,000258: # * SCALE FACTOR * 054185,000259: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
![]() |
Page 1238 |
054187,000261: # --------*--------------* ----------------------- 054188,000262: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE 054189,000263: # * +5 FOR MOON *PROBLEM. 054190,000264: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND. 054191,000265: # * +5 FOR MOON * 054192,000266: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE 054193,000267: # * *SOLUTION EXISTS. 054194,000268: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 054195,000269: 054196,000270: # DEBRIS - 054197,000271: # PARAMETERS WHICH MAY BE OF USE - 054198,000272: # * SCALE FACTOR * 054199,000273: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054200,000274: # --------*--------------* ----------------------- 054201,000275: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC 054202,000276: # CSTH * +1 *DP COSINE OF ANGLE 054203,000277: # 1-CSTH * +2 *DP 1-CSTH 054204,000278: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL 054205,000279: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS 054206,000280: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS 054207,000281: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS 054208,000282: # * +27 FOR MOON * 054209,000283: # UR1 * +1 *DP UNIT VECTOR OF R1VEC 054210,000284: # U2 * +1 *DP UNIT VECTOR OF R2VEC 054211,000285: 054212,000286: # PARAMETERS OF NO USE 054213,000287: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D 054214,000288: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW 054215,000289:
![]() |
Page 1239 |
054217,000291: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967 054218,000292: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES 054219,000293: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88 054220,000294: 054221,000295: # FUNCTIONAL DESCRIPTION - 054222,000296: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE 054223,000297: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, 054224,000298: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A 054225,000299: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE 054226,000300: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 054227,000301: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 054228,000302: 054229,000303: # THE RESTRICTIONS ARE - 054230,000304: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 054231,000305: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 054232,000306: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS 054233,000307: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 054234,000308: 054235,000309: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS. 054236,000310: 054237,000311: # REFERENCES - 054238,000312: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8. 054239,000313: 054240,000314: # INPUT - ERASABLE INITIALIZATION REQUIRED 054241,000315: 054242,000316: # * SCALE FACTOR * 054243,000317: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054244,000318: # --------*--------------* ----------------------- 054245,000319: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS 054246,000320: # * +27 FOR MOON * 054247,000321: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 054248,000322: # * +5 FOR MOON * 054249,000323: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED 054250,000324: # CSTH * +1 *DP COSINE OF THE ANGLE 054251,000325: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE 054252,000326: # * *IS TO BE COMPUTED ALSO. 054253,000327: # X1 (38D)*NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 054254,000328: # * *RESPECTIVELY, IS THE CENTRAL BODY. 054255,000329: 054256,000330: # SUBROUTINES CALLED -
![]() |
Page 1240 |
054258,000332: # PARAM, GEOM, GETX, DELTIME, NEWSTATE 054259,000333: 054260,000334: # CALLING SEQUENCE AND NORMAL EXIT MODES - 054261,000335: # IF ONLY TIME IS DESIRED AS OUTPUT - 054262,000336: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR 054263,000337: # L+1 RVSW 054264,000338: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC 054265,000339: # L+3 ... CONTINUE 054266,000340: 054267,000341: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL - 054268,000342: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR 054269,000343: # L+1 RVSW 054270,000344: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND 054271,000345: # THE INITIAL VELOCITY VECTOR IN MPAC. 054272,000346: # L+3 STOVL NEWVVEC 054273,000347: # L+4 STADR 054274,000348: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS. 054275,000349: # L+6 ... CONTINUE 054276,000350: 054277,000351: # ABORT EXIT MODES - 054278,000352: # L CALL BON 054279,000353: # L+1 TIMETHET 054280,000354: # L+2 COGAFLAG 054281,000355: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED. 054282,000356: # L+4 BON IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS 054283,000357: # GOOD, SO CONTINUE 054284,000358: # L+5 INFINFLG 054285,000359: # L+6 IMPOSSBL NO SOLUTION EXISTS. 054286,000360: 054287,000361: # OUTPUT - 054288,000362: # * SCALE FACTOR * 054289,000363: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054290,000364: # --------*--------------* ----------------------- 054291,000365: # T(30D) * +28 *DP TRANSFER TIME IN CENTISECONDS 054292,000366: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH 054293,000367: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE. 054294,000368: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION), 054295,000369: # * *CLEAR IF NOT. 054296,000370: 054297,000371: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT - 054298,000372: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC. 054299,000373: # MPAC+5 * +5 FOR MOON *
![]() |
Page 1241 |
054301,000375: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D) 054302,000376: # * +27 FOR MOON * 054303,000377: 054304,000378: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 054305,000379: 054306,000380: # DEBRIS - 054307,000381: # PARAMETERS WHICH MAY BE OF USE - 054308,000382: 054309,000383: # * SCALE FACTOR * 054310,000384: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054311,000385: # --------*--------------* ----------------------- 054312,000386: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 054313,000387: # * +27 FOR MOON * 054314,000388: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 054315,000389: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1 054316,000390: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 054317,000391: # UR1 * +1 *DP UNIT VECTOR OF RVEC 054318,000392: # U2 * +1 *DP UNIT VECTOR OF VVEC 054319,000393: # UN * +1 *DP UNIT VECTOR OF UR1*U2 054320,000394: 054321,000395: # PARAMETERS OF NO USE - 054322,000396: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D 054323,000397: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW 054324,000398:
![]() |
Page 1242 |
054326,000400: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967 054327,000401: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES 054328,000402: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88 054329,000403: 054330,000404: # FUNCTIONAL DESCRIPTION - 054331,000405: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE 054332,000406: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, 054333,000407: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A 054334,000408: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE 054335,000409: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 054336,000410: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 054337,000411: 054338,000412: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER, 054339,000413: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY. 054340,000414: 054341,000415: # THE RESTRICTIONS ARE - 054342,000416: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES 054343,000417: # AND LESS THAN 178 DEGREES 12.5 MINUTES. 054344,000418: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS 054345,000419: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 054346,000420: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN 054347,000421: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN 054348,000422: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT. 054349,000423: 054350,000424: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS 054351,000425: 054352,000426: # REFERENCES - 054353,000427: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8. 054354,000428: 054355,000429: # INPUT - ERASABLE INITIALIZATION REQUIRED 054356,000430: 054357,000431: # * SCALE FACTOR * 054358,000432: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054359,000433: # --------*--------------* ----------------------- 054360,000434: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS 054361,000435: # * +27 FOR MOON * 054362,000436: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 054363,000437: # * +5 FOR MOON * 054364,000438: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE 054365,000439: # * +27 FOR MOON *COMPUTED. 054366,000440: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE 054367,000441: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
![]() |
Page 1243 |
054369,000443: # * *SINGLE-VALUED PROBLEM. 054370,000444: # X1 (38D)*NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 054371,000445: # * *RESPECTIVELY, IS THE CENTRAL BODY. 054372,000446: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE 054373,000447: # * *IS TO BE COMPUTED ALSO. 054374,000448: 054375,000449: # SUBROUTINES CALLED - 054376,000450: # PARAM, GEOM, GETX, DELTIME, NEWSTATE 054377,000451: 054378,000452: # CALLING SEQUENCE AND NORMAL EXIT MODES - 054379,000453: # IF ONLY TIME IS DESIRED AS OUTPUT - 054380,000454: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR 054381,000455: # L+1 RVSW 054382,000456: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC 054383,000457: # L+3 ... CONTINUE 054384,000458: 054385,000459: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL - 054386,000460: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR 054387,000461: # L+1 RVSW 054388,000462: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND 054389,000463: # THE INITIAL VELOCITY VECTOR IN MPAC. 054390,000464: # L+3 STOVL NEWVVEC 054391,000465: # L+4 STADR 054392,000466: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS. 054393,000467: # L+6 ... CONTINUE 054394,000468: 054395,000469: # ABORT EXIT MODES - 054396,000470: # L CALL BON 054397,000471: # L+1 TIMERAD 054398,000472: # L+2 COGAFLAG 054399,000473: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED. 054400,000474: # L+4 BON BON 054401,000475: # L+5 INFINFLG 054402,000476: # L+6 IMPOSSBL NO SOLUTION EXISTS. 054403,000477: # L+7 SOLNSW 054404,000478: # L+8 IMPOSSBL SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE. RESTRICTION 3 HAS BEEN VIOLATED. 054405,000479: # L+9 ... IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE. 054406,000480: 054407,000481: # OUTPUT - 054408,000482: # * SCALE FACTOR *
![]() |
Page 1244 |
054410,000484: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054411,000485: # --------*--------------* ----------------------- 054412,000486: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS 054413,000487: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH 054414,000488: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE. 054415,000489: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION), 054416,000490: # * *CLEAR IF NOT. 054417,000491: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR 054418,000492: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY, 054419,000493: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND 054420,000494: # * *APOCENTER. 054421,000495: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN 054422,000496: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE- 054423,000497: # *MINUS-18, THE SWITCH IS CLEAR. 054424,000498: 054425,000499: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT - 054426,000500: 054427,000501: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC. 054428,000502: # MPAC +5* +5 FOR MOON * 054429,000503: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D) 054430,000504: # * +27 FOR MOON * 054431,000505: 054432,000506: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 054433,000507: 054434,000508: # DEBRIS - 054435,000509: 054436,000510: # PARAMETERS WHICH MAY BE OF USE - 054437,000511: 054438,000512: # * SCALE FACTOR * 054439,000513: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054440,000514: # --------*--------------* ----------------------- 054441,000515: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 054442,000516: # * +27 FOR MOON * 054443,000517: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 054444,000518: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1 054445,000519: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 054446,000520: # UR1 * +1 *DP UNIT VECTOR OF RVEC 054447,000521: # U2 * +1 *DP UNIT VECTOR OF VVEC 054448,000522: # UN * +1 *DP UNIT VECTOR OF UR1*U2 054449,000523: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED. 054450,000524: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE. 054451,000525: 054452,000526: # PARAMETERS OF NO USE - 054453,000527: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D 054454,000528: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW 054455,000529: 054456,000530:
![]() |
Page 1245 |
054458,000532: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967 054459,000533: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES 054460,000534: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88 054461,000535: 054462,000536: # FUNCTIONAL DESCRIPTION - 054463,000537: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE 054464,000538: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE, 054465,000539: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE 054466,000540: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 054467,000541: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 054468,000542: 054469,000543: # THE RESTRICTIONS ARE - 054470,000544: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT 054471,000545: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED. 054472,000546: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS 054473,000547: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 054474,000548: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS. 054475,000549: 054476,000550: # REFERENCES - 054477,000551: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5 054478,000552: 054479,000553: # INPUT - ERASABLE INITIALIZATION REQUIRED 054480,000554: # * SCALE FACTOR * 054481,000555: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054482,000556: # --------*--------------* ----------------------- 054483,000557: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS 054484,000558: # * +27 FOR MOON * 054485,000559: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND 054486,000560: # * +5 FOR MOON * 054487,000561: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, 054488,000562: # * *RESPECTIVELY, IS THE CENTRAL BODY. 054489,000563: 054490,000564: # SUBROUTINES CALLED - 054491,000565: # PARAM, GEOM 054492,000566: 054493,000567: # CALLING SEQUENCE AND NORMAL EXIT MODES -
![]() |
Page 1246 |
054495,000569: # IF ONLY TIME IS DESIRED AS OUTPUT - 054496,000570: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR. 054497,000571: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D 054498,000572: # L+2 STODL APOAPSE 054499,000573: # L+3 0D 054500,000574: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS 054501,000575: # L+5 ... CONTINUE 054502,000576: 054503,000577: # OUTPUT - 054504,000578: # * SCALE FACTOR * 054505,000579: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054506,000580: # --------*--------------* ----------------------- 054507,000581: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS 054508,000582: # * +27 FOR MOON * 054509,000583: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS 054510,000584: # * +27 FOR MOON * 054511,000585: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY. 054512,000586: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. 054513,000587: 054514,000588: # DEBRIS - 054515,000589: 054516,000590: # PARAMETERS WHICH MAY BE OF USE - 054517,000591: 054518,000592: # * SCALE FACTOR * 054519,000593: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS 054520,000594: # --------*--------------* ----------------------- 054521,000595: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 054522,000596: # * +27 FOR MOON * 054523,000597: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES) 054524,000598: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1 054525,000599: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC 054526,000600: # UR1 * +1 *DP UNIT VECTOR OF RVEC 054527,000601: # U2 * +1 *DP UNIT VECTOR OF VVEC 054528,000602: # UN * +1 *DP UNIT VECTOR OF UR1*U2 054529,000603: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC 054530,000604: # * +5 FOR MOON * 054531,000605: 054532,000606: # PARAMETERS OF NO USE - 054533,000607: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D. 054534,000608: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW 054535,000609: 054536,000610: 12,2000 SETLOC CONICS
![]() |
Page 1247 |
054538,000612: 12,2000 BANK 054539,000613: 054540,000614: 12,2000 COUNT 12/CONIC 054541,000615: 054542,000616: 12,2000 E5,1723 EBANK= UR1 054543,000617: 12,2000 71201 KEPLERN SETPD DLOAD 054544,000618: 12,2001 00001 0 054545,000619: 12,2002 11456 KEPZERO 054546,000620: 12,2003 01344 STORE XMODULO 054547,000621: 12,2004 31346 STOVL* TMODULO 054548,000622: 12,2005 11631 MUTABLE,1 054549,000623: 12,2006 24017 STOVL 14D 054550,000624: 12,2007 01503 RRECT 054551,000625: 12,2010 66256 UNIT SSP 054552,000626: 12,2011 00027 ITERCTR 054553,000627: 12,2012 00024 20D 054554,000628: 12,2013 16647 STODL URRECT 054555,000629: 12,2014 00045 36D 054556,000630: 12,2015 24041 STOVL R1 054557,000631: 12,2016 01503 RRECT 054558,000632: 12,2017 76441 DOT SL1R 054559,000633: 12,2020 01511 VRECT 054560,000634: 12,2021 76405 DMP SL1R 054561,000635: 12,2022 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14) 054562,000636: 12,2023 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16) 054563,000637: 12,2024 01511 VRECT 054564,000638: 12,2025 57236 VSQ DMPR 054565,000639: 12,2026 00017 1/MU # 1/MU (-34 OR -28) 054566,000640: 12,2027 52405 DMP SL3 054567,000641: 12,2030 00041 R1 054568,000642: 12,2031 61425 DSU ROUND 054569,000643: 12,2032 11500 D1/64 054570,000644: 12,2033 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6) 054571,000645: 054572,000646: 12,2034 74421 BDSU SR1R 054573,000647: 12,2035 11500 D1/64 054574,000648: 12,2036 77671 DDV 054575,000649: 12,2037 00041 R1 054576,000650: 12,2040 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20) 054577,000651: 054578,000652: 12,2041 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC 054579,000653: 12,2042 24051 1REV 054580,000654: 12,2043 11516 -50SC # -50SC (+12) 054581,000655: 12,2044 40071 DDV BOV 054582,000656: 12,2045 00011 ALPHA 054583,000657: 12,2046 24055 STOREMAX 054584,000658: 12,2047 52166 SQRT GOTO 054585,000659: 12,2050 24055 STOREMAX
![]() |
Page 1248 |
054587,000661: 12,2051 55366 1REV SQRT BDDV 054588,000662: 12,2052 11520 2PISC # 2PISC (+6) 054589,000663: 12,2053 77600 BOV 054590,000664: 12,2054 24055 STOREMAX 054591,000665: 12,2055 50165 STOREMAX SIGN BMN 054592,000666: 12,2056 02312 TAU. 054593,000667: 12,2057 24272 BACKWARD 054594,000668: 12,2060 00013 STORE XMAX 054595,000669: 12,2061 65205 DMP PDDL # PL AT 2 054596,000670: 12,2062 00023 1/ROOTMU 054597,000671: 12,2063 00011 ALPHA 054598,000672: 12,2064 65301 NORM PDDL # DXCH WITH 0D. 0D=ALPHA PL AT 0,2 054599,000673: 12,2065 00047 X1 054600,000674: 12,2066 56257 SL* DDV # PL AT 0 054601,000675: 12,2067 20173 0 -6,1 054602,000676: 12,2070 50000 PERIODCH BOV BMN 054603,000677: 12,2071 24112 MODDONE 054604,000678: 12,2072 24112 MODDONE 054605,000679: 12,2073 77606 PUSH # 0D=PERIOD (+28) 054606,000680: 12,2074 50021 BDSU BMN 054607,000681: 12,2075 02312 TAU. 054608,000682: 12,2076 24112 MODDONE 054609,000683: 12,2077 16312 STODL TAU. 054610,000684: 12,2100 00013 XMAX 054611,000685: 12,2101 77615 DAD 054612,000686: 12,2102 01344 XMODULO 054613,000687: 12,2103 15344 STODL XMODULO 054614,000688: 12,2104 00001 0D 054615,000689: 12,2105 77615 DAD 054616,000690: 12,2106 01346 TMODULO 054617,000691: 12,2107 15346 STODL TMODULO 054618,000692: 12,2110 77650 GOTO # PL AT 0 054619,000693: 12,2111 24070 PERIODCH 054620,000694: 12,2112 71201 MODDONE SETPD DLOAD 054621,000695: 12,2113 00001 0 054622,000696: 12,2114 11456 KEPZERO 054623,000697: 12,2115 14015 STODL XMIN 054624,000698: 12,2116 02306 XKEPNEW 054625,000699: 12,2117 77625 DSU 054626,000700: 12,2120 01344 XMODULO 054627,000701: 12,2121 00025 STORE X 054628,000702: 12,2122 50054 BZE BMN 054629,000703: 12,2123 24265 BADX 054630,000704: 12,2124 24265 BADX 054631,000705: 12,2125 51025 DSU BPL 054632,000706: 12,2126 00013 XMAX 054633,000707: 12,2127 24265 BADX
![]() |
Page 1249 |
054635,000709: 12,2130 57345 DXCOMP DLOAD DMPR 054636,000710: 12,2131 02312 TAU. 054637,000711: 12,2132 11511 BEE22 054638,000712: 12,2133 77646 ABS 054639,000713: 12,2134 15350 STODL EPSILONT 054640,000714: 12,2135 01551 TC 054641,000715: 12,2136 45254 BZE DSU 054642,000716: 12,2137 24141 NEWTC 054643,000717: 12,2140 01346 TMODULO 054644,000718: 12,2141 15551 NEWTC STODL TC 054645,000719: 12,2142 01553 XPREV 054646,000720: 12,2143 45254 BZE DSU 054647,000721: 12,2144 24146 XDIFF 054648,000722: 12,2145 01344 XMODULO 054649,000723: 12,2146 77621 XDIFF BDSU 054650,000724: 12,2147 00025 X 054651,000725: 12,2150 02643 STORE DELX 054652,000726: 054653,000727: 12,2151 63545 KEPLOOP DLOAD DSQ 054654,000728: 12,2152 00025 X # X=XKEP 054655,000729: 12,2153 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2 054656,000730: 12,2154 00047 X1 054657,000731: 12,2155 53605 DMP SRR* 054658,000732: 12,2156 00011 ALPHA 054659,000733: 12,2157 21573 0 -6,1 054660,000734: 12,2160 34031 STCALL XI # XI=ALPHA XSQ (+6) 054661,000735: 12,2161 24426 DELTIME 054662,000736: 12,2162 44200 BOV BDSU 054663,000737: 12,2163 24312 TIMEOVFL # UNLIKELY 054664,000738: 12,2164 02312 TAU. 054665,000739: 12,2165 02645 STORE DELT # DELT=DELINDEP 054666,000740: 12,2166 44246 ABS BDSU 054667,000741: 12,2167 01350 EPSILONT 054668,000742: 12,2170 71244 BPL DLOAD 054669,000743: 12,2171 24334 KEPCONVG 054670,000744: 12,2172 00037 T 054671,000745: 12,2173 60225 DSU NORM 054672,000746: 12,2174 01551 TC 054673,000747: 12,2175 00047 X1 054674,000748: 12,2176 60325 PDDL NORM 054675,000749: 12,2177 02643 DELX 054676,000750: 12,2200 00050 X2 054677,000751: 12,2201 41260 XSU,1 DMP 054678,000752: 12,2202 00047 X2 054679,000753: 12,2203 02645 DELT 054680,000754: 12,2204 56257 SLR* DDV 054681,000755: 12,2205 21202 1,1 054682,000756: 12,2206 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2 054683,000757: 12,2207 71244 BPL DLOAD
![]() |
Page 1250 |
054685,000759: 12,2210 24231 POSDELX 054686,000760: 12,2211 00025 X 054687,000761: 12,2212 00013 STORE XMAX # MOVE MAX BOUND IN 054688,000762: 12,2213 45221 BDSU DSU # PL AT 0 054689,000763: 12,2214 00015 XMIN 054690,000764: 12,2215 51000 BOV BPL 054691,000765: 12,2216 24223 NDXCHNGE 054692,000766: 12,2217 24223 NDXCHNGE 054693,000767: 12,2220 52145 DLOAD GOTO 054694,000768: 12,2221 00001 0D 054695,000769: 12,2222 24243 NEWDELX 054696,000770: 054697,000771: 12,2223 45345 NDXCHNGE DLOAD DSU 054698,000772: 12,2224 00015 XMIN 054699,000773: 12,2225 00025 X 054700,000774: 12,2226 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO 054701,000775: 12,2227 11514 DP9/10 054702,000776: 12,2230 24243 NEWDELX 054703,000777: 054704,000778: 12,2231 77745 POSDELX DLOAD 054705,000779: 12,2232 00025 X 054706,000780: 12,2233 00015 STORE XMIN # MOVE MIN BOUND IN 054707,000781: 12,2234 45221 BDSU DSU # PL AT 0 054708,000782: 12,2235 00013 XMAX 054709,000783: 12,2236 50000 BOV BMN 054710,000784: 12,2237 24257 PDXCHNGE 054711,000785: 12,2240 24257 PDXCHNGE 054712,000786: 12,2241 77745 DLOAD 054713,000787: 12,2242 00001 0D 054714,000788: 12,2243 02643 NEWDELX STORE DELX 054715,000789: 12,2244 43254 BZE DAD 054716,000790: 12,2245 24334 KEPCONVG 054717,000791: 12,2246 00025 X 054718,000792: 12,2247 14025 STODL X 054719,000793: 12,2250 00037 T 054720,000794: 12,2251 01551 STORE TC 054721,000795: 12,2252 46034 BRNCHCTR RTB BHIZ 054722,000796: 12,2253 24651 CHECKCTR 054723,000797: 12,2254 24334 KEPCONVG 054724,000798: 12,2255 77650 GOTO 054725,000799: 12,2256 24151 KEPLOOP # ITERATE 054726,000800: 054727,000801: 12,2257 45345 PDXCHNGE DLOAD DSU 054728,000802: 12,2260 00013 XMAX 054729,000803: 12,2261 00025 X 054730,000804: 12,2262 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO 054731,000805: 12,2263 11514 DP9/10
![]() |
Page 1251 |
054733,000807: 12,2264 24243 NEWDELX 054734,000808: 054735,000809: 12,2265 70545 BADX DLOAD SR1 # RECIPE EXCEEDED X BOUNDS - USE XMAX/2 054736,000810: 12,2266 00013 XMAX 054737,000811: 12,2267 00025 STORE X 054738,000812: 12,2270 77650 GOTO 054739,000813: 12,2271 24130 DXCOMP 054740,000814: 054741,000815: 12,2272 14015 BACKWARD STODL XMIN 054742,000816: 12,2273 11456 KEPZERO 054743,000817: 12,2274 14013 STODL XMAX 054744,000818: 12,2275 02306 XKEPNEW 054745,000819: 12,2276 00025 STORE X 054746,000820: 12,2277 51054 BZE BPL 054747,000821: 12,2300 24305 BADBKWDX 054748,000822: 12,2301 24305 BADBKWDX 054749,000823: 12,2302 51025 DSU BPL 054750,000824: 12,2303 00015 XMIN 054751,000825: 12,2304 24130 DXCOMP 054752,000826: 12,2305 70545 BADBKWDX DLOAD SR1 054753,000827: 12,2306 00015 XMIN 054754,000828: 12,2307 00025 STORE X 054755,000829: 12,2310 77650 GOTO 054756,000830: 12,2311 24130 DXCOMP 054757,000831: 054758,000832: 12,2312 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG 054759,000833: 12,2313 00025 X 054760,000834: 12,2314 24331 NEGTOVFL 054761,000835: 12,2315 00013 STORE XMAX 054762,000836: 12,2316 70545 CMNTOVFL DLOAD SR1 054763,000837: 12,2317 02643 DELX 054764,000838: 12,2320 02643 STORE DELX 054765,000839: 12,2321 44254 BZE BDSU 054766,000840: 12,2322 02270 KEPRTN 054767,000841: 12,2323 00025 X 054768,000842: 12,2324 14025 STODL X 054769,000843: 12,2325 01551 TC 054770,000844: 12,2326 00037 STORE T 054771,000845: 12,2327 77650 GOTO 054772,000846: 12,2330 24252 BRNCHCTR 054773,000847: 12,2331 00015 NEGTOVFL STORE XMIN 054774,000848: 12,2332 77650 GOTO 054775,000849: 12,2333 24316 CMNTOVFL 054776,000850: 12,2334 44545 KEPCONVG DLOAD SR4R 054777,000851: 12,2335 00041 R1 054778,000852: 12,2336 74225 DSU VXSC 054779,000853: 12,2337 00035 XSQC(XI)
![]() |
Page 1252 |
054781,000855: 12,2340 02647 URRECT 054782,000856: 12,2341 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31) 054783,000857: 12,2342 00025 X 054784,000858: 12,2343 60316 DSQ NORM 054785,000859: 12,2344 00047 X1 054786,000860: 12,2345 57275 DMPR DMPR 054787,000861: 12,2346 00023 1/ROOTMU 054788,000862: 12,2347 00025 X 054789,000863: 12,2350 53605 DMP SRR* 054790,000864: 12,2351 00033 S(XI) 054791,000865: 12,2352 21572 0 -7,1 054792,000866: 12,2353 77621 BDSU 054793,000867: 12,2354 00037 T 054794,000868: 12,2355 74352 SL1 VXSC 054795,000869: 12,2356 01511 VRECT 054796,000870: 12,2357 53372 VSL1 VAD # PL AT 0 054797,000871: 12,2360 77712 VSL4 054798,000872: 12,2361 01535 STORE RCV # RCV (+29 OR +27) 054799,000873: 054800,000874: 12,2362 60246 ABVAL NORM 054801,000875: 12,2363 00050 X2 054802,000876: 12,2364 16655 STODL RCNORM 054803,000877: 12,2365 00031 XI 054804,000878: 12,2366 45275 DMPR DSU 054805,000879: 12,2367 00033 S(XI) 054806,000880: 12,2370 11476 D1/128 054807,000881: 12,2371 76405 DMP SL1R 054808,000882: 12,2372 00021 ROOTMU 054809,000883: 12,2373 53605 DMP SLR* 054810,000884: 12,2374 00025 X 054811,000885: 12,2375 56601 0 -3,2 054812,000886: 12,2376 74271 DDV VXSC 054813,000887: 12,2377 02655 RCNORM 054814,000888: 12,2400 02647 URRECT 054815,000889: 12,2401 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15 054816,000890: 12,2402 00035 XSQC(XI) # OR +13) PL AT 6 054817,000891: 12,2403 56257 SLR* DDV 054818,000892: 12,2404 56602 0 -4,2 054819,000893: 12,2405 02655 RCNORM 054820,000894: 12,2406 74221 BDSU VXSC 054821,000895: 12,2407 11512 D1/256 054822,000896: 12,2410 01511 VRECT 054823,000897: 12,2411 42455 VAD VSL8 054824,000898: 12,2412 77626 STADR # PL AT 0 054825,000899: 12,2413 62234 STODL VCV # VCV (+7 OR +5) 054826,000900: 12,2414 00037 T 054827,000901: 12,2415 77615 DAD 054828,000902: 12,2416 01346 TMODULO 054829,000903: 12,2417 15551 STODL TC
![]() |
Page 1253 |
054831,000905: 12,2420 00025 X 054832,000906: 12,2421 77615 DAD 054833,000907: 12,2422 01344 XMODULO 054834,000908: 12,2423 01553 STORE XPREV 054835,000909: 12,2424 77650 GOTO 054836,000910: 12,2425 02270 KEPRTN 054837,000911:
![]() |
Page 1254 |
054839,000913: 12,2426 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1) 054840,000914: 12,2427 07171 TC POLY 054841,000915: 12,2430 00010 DEC 8 B-14 054842,000916: 12,2431 02525 12526 2DEC .083333334 054843,000917: 12,2433 67356 75666 2DEC -.266666684 054844,000918: 12,2435 15001 23771 2DEC .406349155 054845,000919: 12,2437 64342 43674 2DEC -.361198675 054846,000920: 12,2441 06563 04645 2DEC .210153242 054847,000921: 12,2443 75173 52672 2DEC -.086221951 054848,000922: 12,2445 00656 14331 2DEC .026268812 054849,000923: 12,2447 77633 40512 2DEC -.006163316 054850,000924: 12,2451 00023 11210 2DEC .001177342 054851,000925: 12,2453 77774 67506 2DEC -.000199055 054852,000926: 054853,000927: 12,2455 06006 TC INTPRET 054854,000928: 12,2456 14033 STODL S(XI) 054855,000929: 12,2457 00031 XI 054856,000930: 12,2460 77776 EXIT 054857,000931: 12,2461 07171 TC POLY 054858,000932: 12,2462 00010 DEC 8 B-14 054859,000933: 12,2463 01000 00000 2DEC .031250001 054860,000934: 12,2465 72525 52506 2DEC -.166666719 054861,000935: 12,2467 13301 15337 2DEC .355555413 054862,000936: 12,2471 62776 54733 2DEC -.406347410 054863,000937: 12,2473 11176 13267 2DEC .288962094 054864,000938: 12,2475 73410 51674 2DEC -.140117894 054865,000939: 12,2477 01446 33641 2DEC .049247387 054866,000940: 12,2501 77451 65233 2DEC -.013081923 054867,000941: 12,2503 00055 37266 2DEC .002806389 054868,000942: 12,2505 77767 52336 2DEC -.000529414 054869,000943: 12,2507 06006 TC INTPRET
![]() |
Page 1255 |
054871,000945: 12,2510 53605 DMP SRR* # PL AT 0 054872,000946: 12,2511 00001 0D 054873,000947: 12,2512 21574 0 -5,1 054874,000948: 12,2513 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31) 054875,000949: 12,2514 72405 DMP SL1 054876,000950: 12,2515 00043 KEPC1 054877,000951: 12,2516 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46 054878,000952: 12,2517 45562 TPMODE # PL AT 0,3 054879,000953: 12,2520 53605 DMP SRR* 054880,000954: 12,2521 00033 S(XI) 054881,000955: 12,2522 21574 0 -5,1 054882,000956: 12,2523 72405 DMP SL1 054883,000957: 12,2524 00045 KEPC2 054884,000958: 12,2525 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6 054885,000959: 12,2526 45562 TPMODE 054886,000960: 12,2527 00041 R1 054887,000961: 12,2530 76261 SR TAD # PL AT 3 054888,000962: 12,2531 20607 6 054889,000963: 12,2532 41301 NORM DMP # TO PRESERVE SIGNIF. 054890,000964: 12,2533 00047 X1 054891,000965: 12,2534 00025 X 054892,000966: 12,2535 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0 054893,000967: 12,2536 20576 0 -3,1 054894,000968: 12,2537 57232 SL4R DMPR 054895,000969: 12,2540 00023 1/ROOTMU 054896,000970: 12,2541 00037 STORE T 054897,000971: 12,2542 77616 RVQ 054898,000972:
![]() |
Page 1256 |
054900,000974: 12,2543 71214 ITERATOR BONCLR DLOAD 054901,000975: 12,2544 00614 SLOPESW 054902,000976: 12,2545 24613 FIRSTIME 054903,000977: 12,2546 00037 DEP 054904,000978: 12,2547 60225 DSU NORM 054905,000979: 12,2550 02764 DEPREV 054906,000980: 12,2551 00047 X1 054907,000981: 12,2552 60325 PDDL NORM 054908,000982: 12,2553 00015 DELINDEP 054909,000983: 12,2554 00050 X2 054910,000984: 12,2555 41260 XSU,1 DMP 054911,000985: 12,2556 00047 X2 054912,000986: 12,2557 02762 DELDEP 054913,000987: 12,2560 56257 SLR* DDV # PL UP 2 054914,000988: 12,2561 21202 1,1 054915,000989: 12,2562 43142 SR1 BOFF 054916,000990: 12,2563 04351 ORDERSW 054917,000991: 12,2564 24567 SGNCHECK 054918,000992: 12,2565 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST 054919,000993: 12,2566 02762 DELDEP # DISREGARD IT TO FIND MIN. 054920,000994: 054921,000995: 12,2567 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2 054922,000996: 12,2570 24625 POSDEL 054923,000997: 12,2571 43145 DLOAD BON 054924,000998: 12,2572 03775 INDEP 054925,000999: 12,2573 04311 ORDERSW 054926,001000: 12,2574 24576 MINCHECK 054927,001001: 12,2575 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN. 054928,001002: 054929,001003: 12,2576 45221 MINCHECK BDSU DSU 054930,001004: 12,2577 00011 MIN 054931,001005: 12,2600 51000 BOV BPL 054932,001006: 12,2601 24605 MODNGDEL 054933,001007: 12,2602 24605 MODNGDEL 054934,001008: 12,2603 77650 GOTO 054935,001009: 12,2604 24637 DELOK 054936,001010: 054937,001011: 12,2605 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND 054938,001012: 12,2606 00011 MIN 054939,001013: 12,2607 03775 INDEP 054940,001014: 12,2610 52005 DMP GOTO 054941,001015: 12,2611 11514 DP9/10 054942,001016: 12,2612 24641 NEWDEL 054943,001017: 054944,001018: 12,2613 41345 FIRSTIME DLOAD DMP 054945,001019: 12,2614 00011 MIN 054946,001020: 12,2615 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE. 054947,001021: 12,2616 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
![]() |
Page 1257 |
054949,001023: 12,2617 00017 MAX 054950,001024: 12,2620 00051 TWEEKIT 054951,001025: 12,2621 77625 DSU 054952,001026: 12,2622 52165 SIGN GOTO 054953,001027: 12,2623 02762 DELDEP 054954,001028: 12,2624 24567 SGNCHECK 054955,001029: 054956,001030: 12,2625 43145 POSDEL DLOAD BON 054957,001031: 12,2626 03775 INDEP 054958,001032: 12,2627 04311 ORDERSW 054959,001033: 12,2630 24632 MAXCHECK 054960,001034: 12,2631 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN. 054961,001035: 054962,001036: 12,2632 45221 MAXCHECK BDSU DSU 054963,001037: 12,2633 00017 MAX 054964,001038: 12,2634 50000 BOV BMN 054965,001039: 12,2635 24643 MODPSDEL 054966,001040: 12,2636 24643 MODPSDEL 054967,001041: 12,2637 77745 DELOK DLOAD 054968,001042: 12,2640 00001 0D 054969,001043: 12,2641 00015 NEWDEL STORE DELINDEP 054970,001044: 12,2642 77616 RVQ 054971,001045: 054972,001046: 12,2643 45345 MODPSDEL DLOAD DSU 054973,001047: 12,2644 00017 MAX 054974,001048: 12,2645 03775 INDEP 054975,001049: 12,2646 52005 DMP GOTO 054976,001050: 12,2647 11514 DP9/10 054977,001051: 12,2650 24641 NEWDEL 054978,001052: 054979,001053: 12,2651 44712 CHECKCTR CS ONE 054980,001054: 12,2652 50120 INDEX FIXLOC 054981,001055: 12,2653 60026 AD ITERCTR 054982,001056: 12,2654 50120 INDEX FIXLOC 054983,001057: 12,2655 54026 TS ITERCTR 054984,001058: 12,2656 54154 TS MPAC 054985,001059: 12,2657 06030 TC DANZIG 054986,001060:
![]() |
Page 1258 |
054988,001062: 12,2660 44545 NEWSTATE DLOAD SR4R 054989,001063: 12,2661 00041 R1 054990,001064: 12,2662 74225 DSU VXSC 054991,001065: 12,2663 00035 XSQC(XI) 054992,001066: 12,2664 02724 UR1 054993,001067: 12,2665 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6 054994,001068: 12,2666 00025 X 054995,001069: 12,2667 60316 DSQ NORM 054996,001070: 12,2670 00047 X1 054997,001071: 12,2671 57275 DMPR DMPR 054998,001072: 12,2672 00023 1/ROOTMU 054999,001073: 12,2673 00025 X 055000,001074: 12,2674 53605 DMP SRR* 055001,001075: 12,2675 00033 S(XI) 055002,001076: 12,2676 21572 0 -7,1 055003,001077: 12,2677 77621 BDSU 055004,001078: 12,2700 00037 T 055005,001079: 12,2701 74352 SL1 VXSC 055006,001080: 12,2702 02746 VVEC 055007,001081: 12,2703 53372 VSL1 VAD # PL AT 0 055008,001082: 12,2704 41512 VSL4 PUSH 055009,001083: 12,2705 77646 ABVAL 055010,001084: 12,2706 77701 LAMENTER NORM 055011,001085: 12,2707 00047 X1 055012,001086: 12,2710 16722 STODL R2 055013,001087: 12,2711 00031 XI 055014,001088: 12,2712 45205 DMP DSU 055015,001089: 12,2713 00033 S(XI) 055016,001090: 12,2714 11476 D1/128 055017,001091: 12,2715 76405 DMP SL1R 055018,001092: 12,2716 00021 ROOTMU 055019,001093: 12,2717 53605 DMP SLR* 055020,001094: 12,2720 00025 X 055021,001095: 12,2721 21176 0 -3,1 055022,001096: 12,2722 74271 DDV VXSC 055023,001097: 12,2723 02722 R2 055024,001098: 12,2724 02724 UR1 055025,001099: 12,2725 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12 055026,001100: 12,2726 00035 XSQC(XI) 055027,001101: 12,2727 56257 SLR* DDV 055028,001102: 12,2730 21175 0 -4,1 055029,001103: 12,2731 02722 R2 055030,001104: 12,2732 77621 BDSU 055031,001105: 12,2733 11512 D1/256 055032,001106: 12,2734 53361 VXSC VAD 055033,001107: 12,2735 02746 VVEC # PL AT 6 055034,001108: 12,2736 43412 VSL8 RVQ 055035,001109:
![]() |
Page 1259 |
055037,001111: 04,2000 SETLOC CONICS1 055038,001112: 04,2000 BANK 055039,001113: 055040,001114: 04,3472 COUNT 04/CONIC 055041,001115: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE. 055042,001116: 04,3472 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000) 055043,001117: 04,3473 04000 00000 D1/8 2DEC 1.0 B-3 055044,001118: 04,3475 00200 00000 D1/128 2DEC 1.0 B-7 055045,001119: 04,3477 00400 00000 D1/64 2DEC 1.0 B-6 055046,001120: 04,3501 10000 00000 D1/4 2DEC 1.0 B-2 055047,001121: 04,3503 02000 00000 D1/16 2DEC 1.0 B-4 055048,001122: 04,3505 01000 00000 D1/32 2DEC 1.0 B-5 055049,001123: 04,3507 00020 00000 D1/1024 2DEC 1.0 B-10 055050,001124: 04,3511 00100 00000 D1/256 2DEC 1.0 B-8 055051,001125: 04,3513 34631 23146 DP9/10 2DEC .9 055052,001126: 04,3515 04,3455 KEPZERO EQUALS LO6ZEROS 055053,001127: 04,3515 77467 77777 -50SC 2DEC -50.0 B-12 055054,001128: 04,3517 03110 17665 2PISC 2DEC 6.28318530 B-6 055055,001129: 04,3521 04,3504 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000) 055056,001130: 04,3521 04,3510 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100) 055057,001131: 04,3521 00000 00001 ONEBIT 2DEC 1.0 B-28 055058,001132: 04,3523 37767 37737 COGUPLIM 2DEC .999511597 055059,001133: 04,3525 40010 40040 COGLOLIM 2DEC -.999511597 055060,001134:
![]() |
Page 1260 |
055062,001136: 12,2000 SETLOC CONICS 055063,001137: 12,2000 BANK 055064,001138: 055065,001139: 12,2737 COUNT 12/CONIC 055066,001140: 055067,001141: 12,2737 40220 TIMETHET STQ SETPD # PL AT 0 055068,001142: 12,2740 02712 RTNTT 055069,001143: 12,2741 00001 0 055070,001144: 12,2742 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6 055071,001145: 12,2743 02657 RVEC 055072,001146: 12,2744 02746 VVEC 055073,001147: 12,2745 77624 CALL 055074,001148: 12,2746 11527 PARAM 055075,001149: 12,2747 45000 BOV CALL 055076,001150: 12,2750 24767 COGAOVFL # PL AT 0 055077,001151: 12,2751 24772 GETX 055078,001152: 12,2752 43145 COMMNOUT DLOAD BON 055079,001153: 12,2753 00031 XI 055080,001154: 12,2754 04310 INFINFLG 055081,001155: 12,2755 02712 RTNTT 055082,001156: 12,2756 45014 CLEAR CALL 055083,001157: 12,2757 04273 COGAFLAG 055084,001158: 12,2760 24426 DELTIME 055085,001159: 12,2761 45014 BON CALL 055086,001160: 12,2762 03706 RVSW 055087,001161: 12,2763 02712 RTNTT 055088,001162: 12,2764 24660 NEWSTATE 055089,001163: 12,2765 77650 GOTO 055090,001164: 12,2766 02712 RTNTT 055091,001165: 055092,001166: 12,2767 77614 COGAOVFL SETGO 055093,001167: 12,2770 04033 COGAFLAG 055094,001168: 12,2771 02712 RTNTT
![]() |
Page 1261 |
055096,001170: 055097,001171: 04,3527 BANK 4 055098,001172: 04,2000 SETLOC CONICS1 055099,001173: 04,2000 BANK 055100,001174: 04,3527 COUNT* $$/CONIC 055101,001175: 04,3527 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6 055102,001176: 04,3530 02755 RTNPRM 055103,001177: 04,3531 03665 NORMSW 055104,001178: 04,3532 77614 CLEAR 055105,001179: 04,3533 04273 COGAFLAG 055106,001180: 04,3534 45131 SSP CALL 055107,001181: 04,3535 02675 GEOMSGN 055108,001182: 04,3536 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG 055109,001183: 04,3537 11573 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2 055110,001184: 04,3540 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0 055111,001185: 04,3541 56261 SR DDV 055112,001186: 04,3542 20606 5 055113,001187: 04,3543 00045 36D 055114,001188: 04,3544 33775 STOVL* COGA 055115,001189: 04,3545 11631 MUTABLE,1 055116,001190: 04,3546 14017 STODL 1/MU 055117,001191: 04,3547 02722 MAGVEC2 055118,001192: 04,3550 60316 DSQ NORM 055119,001193: 04,3551 00047 X1 055120,001194: 04,3552 41275 DMPR DMP 055121,001195: 04,3553 00017 1/MU 055122,001196: 04,3554 00041 R1 055123,001197: 04,3555 77657 SRR* 055124,001198: 04,3556 21576 0 -3,1 055125,001199: 04,3557 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2 055126,001200: 04,3560 11506 D1/32 055127,001201: 04,3561 16744 STODL R1A # R1A (+6) PL AT 0 055128,001202: 055129,001203: 04,3562 60205 DMP NORM 055130,001204: 04,3563 00045 36D 055131,001205: 04,3564 00047 X1 055132,001206: 04,3565 53605 DMP SR* 055133,001207: 04,3566 00045 36D 055134,001208: 04,3567 20575 0 -4,1 055135,001209: 04,3570 02742 STORE P # P (+4) 055136,001210: 04,3571 77650 GOTO 055137,001211: 04,3572 02755 RTNPRM 055138,001212:
![]() |
Page 1262 There is a handwritten note here, in Colossus 249, reading "from Lambert 1267" — RSB 2004 |
055141,001215: 04,3573 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6 055142,001216: 04,3574 16714 STODL U2 # U2 (+1) 055143,001217: 04,3575 00045 36D 055144,001218: 04,3576 26722 STOVL MAGVEC2 # PL AT 0 055145,001219: 04,3577 77656 UNIT 055146,001220: 04,3600 02724 STORE UR1 # UR1 (+1) 055147,001221: 04,3601 72441 DOT SL1 055148,001222: 04,3602 02714 U2 055149,001223: 04,3603 77725 PDDL # OD=CSTH (+1) PL AT 2 055150,001224: 04,3604 00045 36D
![]() |
There is a handwritten note in this general vicinity, in Colossus 249, reading "Same as Luminary" — RSB 2004 |
055153,001227: 04,3605 24041 STOVL R1 # R1 (+29 OR +27) 055154,001228: 04,3606 02724 UR1 055155,001229: 04,3607 76435 VXV VSL1 055156,001230: 04,3610 02714 U2 055157,001231: 04,3611 75214 BON SIGN 055158,001232: 04,3612 03705 NORMSW 055159,001233: 04,3613 11625 HAVENORM 055160,001234: 04,3614 02675 GEOMSGN 055161,001235: 04,3615 40056 UNIT BOV 055162,001236: 04,3616 11623 COLINEAR 055163,001237: 04,3617 16676 UNITNORM STODL UN # UN (+1) 055164,001238: 04,3620 00045 36D 055165,001239: 04,3621 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2) 055166,001240: 04,3622 02675 GEOMSGN 055167,001241: 055168,001242: 04,3623 52162 COLINEAR VSR1 GOTO 055169,001243: 04,3624 11617 UNITNORM 055170,001244: 055171,001245: 04,3625 75246 HAVENORM ABVAL SIGN 055172,001246: 04,3626 02675 GEOMSGN 055173,001247: 04,3627 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2) 055174,001248:
![]() |
Page 1263 |
055176,001250: 12,2772 BANK 12 055177,001251: 12,2000 SETLOC CONICS 055178,001252: 12,2000 BANK 055179,001253: 055180,001254: 12,2772 COUNT 12/CONIC 055181,001255: 055182,001256: 12,2772 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC 055183,001257: 12,2773 00003 3 055184,001258: 12,2774 00052 S2 055185,001259: 12,2775 00001 1 055186,001260: 12,2776 77614 CLEAR 055187,001261: 12,2777 04276 360SW 055188,001262: 12,3000 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2 055189,001263: 12,3001 02734 CSTH 055190,001264: 12,3002 44342 SR1 BDSU 055191,001265: 12,3003 11502 D1/4 055192,001266: 12,3004 54325 PDDL SRR # PL AT 4D 055193,001267: 12,3005 02732 SNTH 055194,001268: 12,3006 21607 6 055195,001269: 12,3007 77671 DDV # PL AT 2 055196,001270: 12,3010 77600 BOV 055197,001271: 12,3011 25125 360CHECK 055198,001272: 12,3012 41225 DSU DMP 055199,001273: 12,3013 03775 COGA # PL AT 0 055200,001274: 12,3014 40132 SL2R BOV 055201,001275: 12,3015 25125 360CHECK 055202,001276: 12,3016 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2 055203,001277: 12,3017 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5 055204,001278: 12,3020 00155 MPAC 055205,001279: 12,3021 02744 R1A 055206,001280: 12,3022 76202 SR4 TAD # PL AT 2 055207,001281: 12,3023 75440 BMN SQRT 055208,001282: 12,3024 25210 INFINITY 055209,001283: 12,3025 43306 ROUND DAD # PL AT 0D 055210,001284: 12,3026 61000 BOV TIX,2 055211,001285: 12,3027 25123 RESETX2 055212,001286: 12,3030 25016 WLOOP 055213,001287: 055214,001288: 12,3031 40065 BDDV BOV 055215,001289: 12,3032 11476 D1/128 055216,001290: 12,3033 25210 INFINITY 055217,001291: 12,3034 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2 055218,001292: 12,3035 25210 INFINITY 055219,001293: 12,3036 77716 DSQ 055220,001294: 12,3037 41301 NORM DMP 055221,001295: 12,3040 00047 X1 055222,001296: 12,3041 02744 R1A 055223,001297: 12,3042 77457 SRR* EXIT 055224,001298: 12,3043 21567 0 -10D,1
![]() |
Page 1264 |
055226,001300: 12,3044 07171 TC POLY 055227,001301: 12,3045 00005 DEC 5 B-14 055228,001302: 12,3046 20000 00000 2DEC .5 055229,001303: 12,3050 72525 52471 2DEC -.166666770 055230,001304: 12,3052 03146 15003 2DEC .100000392 055231,001305: 12,3054 75556 45210 2DEC -.071401086 055232,001306: 12,3056 01615 13553 2DEC .055503292 055233,001307: 12,3060 76371 63777 2DEC -.047264098 055234,001308: 12,3062 01232 27367 2DEC .040694204 055235,001309: 055236,001310: 12,3064 06006 TC INTPRET 055237,001311: 12,3065 76405 DMP SL1R # PL AT 0D 055238,001312: 12,3066 43006 PUSH BON 055239,001313: 12,3067 04316 360SW 055240,001314: 12,3070 25175 TRUE360X 055241,001315: 12,3071 60316 XCOMMON DSQ NORM 055242,001316: 12,3072 00047 X1 055243,001317: 12,3073 53605 DMP SRR* 055244,001318: 12,3074 02744 R1A 055245,001319: 12,3075 21565 0 -12D,1 055246,001320: 12,3076 14031 STODL XI # XI (+6) 055247,001321: 12,3077 00041 R1 055248,001322: 12,3100 75542 SR1 SQRT 055249,001323: 12,3101 41306 ROUND DMP 055250,001324: 12,3102 77632 SL4R # PL AT 0 055251,001325: 12,3103 00025 STORE X # X (+17 OR +16) 055252,001326: 055253,001327: 12,3104 60316 DSQ NORM 055254,001328: 12,3105 00047 X1 055255,001329: 12,3106 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2 055256,001330: 12,3107 02742 P 055257,001331: 12,3110 00041 R1 055258,001332: 12,3111 75452 SL3 SQRT 055259,001333: 12,3112 56405 DMP SL3R 055260,001334: 12,3113 03775 COGA 055261,001335: 12,3114 14043 STODL KEPC1 055262,001336: 12,3115 02744 R1A 055263,001337: 12,3116 43021 BDSU CLEAR 055264,001338: 12,3117 11500 D1/64 055265,001339: 12,3120 04270 INFINFLG 055266,001340: 12,3121 00045 STORE KEPC2
![]() |
Page 1265 |
055268,001342: 12,3122 77616 RVQ 055269,001343: 055270,001344: 12,3123 77774 RESETX2 AXT,2 055271,001345: 12,3124 00003 3 055272,001346: 055273,001347: 12,3125 51001 360CHECK SETPD BPL 055274,001348: 12,3126 00001 0D 055275,001349: 12,3127 25132 INVRSEQN 055276,001350: 12,3130 77614 SET 055277,001351: 12,3131 04076 360SW 055278,001352: 055279,001353: 12,3132 75545 INVRSEQN DLOAD SQRT 055280,001354: 12,3133 02742 P 055281,001355: 12,3134 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2 055282,001356: 12,3135 02732 SNTH 055283,001357: 12,3136 03775 COGA 055284,001358: 12,3137 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4 055285,001359: 12,3140 02734 CSTH 055286,001360: 12,3141 43202 SR4 DAD 055287,001361: 12,3142 11506 D1/32 055288,001362: 12,3143 41225 DSU DMP # PL AT 2,0 055289,001363: 12,3144 55301 NORM BDDV 055290,001364: 12,3145 00047 X1 055291,001365: 12,3146 02732 SNTH 055292,001366: 12,3147 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY 055293,001367: 12,3150 21174 0 -5,1 055294,001368: 12,3151 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2 055295,001369: 12,3152 14043 STODL 34D 055296,001370: 12,3153 11504 D1/16 055297,001371: 12,3154 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4 055298,001372: 12,3155 65234 RTB PDDL # PL AT 7 055299,001373: 12,3156 45562 TPMODE 055300,001374: 12,3157 02744 R1A 055301,001375: 12,3160 40405 DMP SR4 055302,001376: 12,3161 00043 34D 055303,001377: 12,3162 77771 TAD 055304,001378: 12,3163 75440 BMN SQRT # PL AT 4 055305,001379: 12,3164 25210 INFINITY 055306,001380: 12,3165 77615 DAD # PL AT 2 055307,001381: 12,3166 60304 TIX,2 NORM 055308,001382: 12,3167 25154 1/WLOOP 055309,001383: 12,3170 00047 X1 055310,001384: 12,3171 77665 BDDV 055311,001385: 12,3172 52057 SLR* GOTO # PL AT 0 055312,001386: 12,3173 21172 0 -7,1 055313,001387: 12,3174 25034 POLYCOEF 055314,001388:
![]() |
Page 1266 |
055316,001390: 12,3175 50145 TRUE360X DLOAD BMN 055317,001391: 12,3176 02744 R1A 055318,001392: 12,3177 25210 INFINITY 055319,001393: 12,3200 60366 SQRT NORM 055320,001394: 12,3201 00047 X1 055321,001395: 12,3202 53665 BDDV SL* 055322,001396: 12,3203 11520 2PISC 055323,001397: 12,3204 20176 0 -3,1 055324,001398: 12,3205 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2 055325,001399: 12,3206 77650 GOTO 055326,001400: 12,3207 25071 XCOMMON 055327,001401: 12,3210 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH 055328,001402: 12,3211 00001 0 # INFINITY IS REQUIRED 055329,001403: 12,3212 25213 OVFLCLR 055330,001404: 12,3213 43414 OVFLCLR SET RVQ 055331,001405: 12,3214 04070 INFINFLG 055332,001406:
![]() |
Page 1267 |
055334,001408: 12,3215 40220 LAMBERT STQ SETPD 055335,001409: 12,3216 02712 RTNLAMB 055336,001410: 12,3217 00001 0D 055337,001411: 12,3220 76731 SSP VLOAD* 055338,001412: 12,3221 00027 ITERCTR 055339,001413: 12,3222 00024 20D 055340,001414: 12,3223 11631 MUTABLE,1 055341,001415: 12,3224 14017 STODL 1/MU 055342,001416: 12,3225 02673 TDESIRED 055343,001417: 12,3226 77675 DMPR 055344,001418: 12,3227 11505 BEE19 055345,001419: 12,3230 03777 STORE EPSILONL 055346,001420: 12,3231 77214 SET VLOAD 055347,001421: 12,3232 00474 SLOPESW 055348,001422: 12,3233 02657 R1VEC 055349,001423: 12,3234 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6 055350,001424: 12,3235 02665 R2VEC # MPAC=R2VEC (+29 OR +27) 055351,001425: 12,3236 11573 GEOM 055352,001426: 12,3237 16732 STODL SNTH # 0D=CSTH (+1) PL AT 2 055353,001427: 12,3240 02722 MAGVEC2 055354,001428: 12,3241 65301 NORM PDDL # PL AT 4 055355,001429: 12,3242 00047 X1 055356,001430: 12,3243 00041 R1 055357,001431: 12,3244 56342 SR1 DDV # PL AT 2 055358,001432: 12,3245 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2 055359,001433: 12,3246 20173 0 -6,1 055360,001434: 12,3247 77626 STADR 055361,001435: 12,3250 75043 STORE CSTH # CSTH (+1) 055362,001436: 12,3251 44342 SR1 BDSU 055363,001437: 12,3252 11502 D1/4 055364,001438: 12,3253 02736 STORE 1-CSTH # 1-CSTH (+2) 055365,001439: 055366,001440: 12,3254 53106 ROUND BZE 055367,001441: 12,3255 25465 360LAMB 055368,001442: 12,3256 65301 NORM PDDL # PL AT 4 055369,001443: 12,3257 00047 X1 055370,001444: 12,3260 00001 0D 055371,001445: 12,3261 56342 SR1 DDV # PL AT 2 055372,001446: 12,3262 75457 SL* SQRT 055373,001447: 12,3263 20176 0 -3,1 055374,001448: 12,3264 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4 055375,001449: 12,3265 02732 SNTH 055376,001450: 12,3266 20607 6 055377,001451: 12,3267 43271 DDV DAD # PL AT 2 055378,001452: 12,3270 02736 1-CSTH 055379,001453: 12,3271 77626 STADR 055380,001454: 12,3272 77760 STORE COGAMAX 055381,001455: 12,3273 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM 055382,001456: 12,3274 25301 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE 055383,001457: 12,3275 25304 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
![]() |
Page 1268 |
055385,001459: 12,3276 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM 055386,001460: 12,3277 11524 COGUPLIM 055387,001461: 12,3300 25304 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA 055388,001462: 12,3301 77745 UPLIM DLOAD 055389,001463: 12,3302 11524 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA 055390,001464: 12,3303 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION 055391,001465: 12,3304 77745 MAXCOGA DLOAD 055392,001466: 12,3305 02734 CSTH 055393,001467: 12,3306 45261 SR DSU # PL AT 0 055394,001468: 12,3307 20607 6 055395,001469: 12,3310 77626 STADR 055396,001470: 12,3311 61037 STODL CSTH-RHO 055397,001471: 12,3312 02675 GEOMSGN 055398,001472: 12,3313 71240 BMN DLOAD 055399,001473: 12,3314 25505 LOLIM 055400,001474: 12,3315 02740 CSTH-RHO 055401,001475: 12,3316 56352 SL1 DDV 055402,001476: 12,3317 02732 SNTH 055403,001477: 12,3320 77600 BOV 055404,001478: 12,3321 25505 LOLIM 055405,001479: 12,3322 00011 MINCOGA STORE COGAMIN # COGAMIN (+5) 055406,001480: 12,3323 66214 BON SSP 055407,001481: 12,3324 00715 GUESSW 055408,001482: 12,3325 25471 NOGUESS 055409,001483: 12,3326 00051 TWEEKIT 055410,001484: 12,3327 00001 00001 055411,001485: 12,3330 77745 DLOAD 055412,001486: 12,3331 03775 COGA 055413,001487: 055414,001488: 12,3332 77605 LAMBLOOP DMP 055415,001489: 12,3333 02732 SNTH 055416,001490: 12,3334 45342 SR1 DSU 055417,001491: 12,3335 02740 CSTH-RHO 055418,001492: 12,3336 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2 055419,001493: 12,3337 00047 X1 055420,001494: 12,3340 02736 1-CSTH 055421,001495: 12,3341 56257 SL* DDV # 1-CSTH (+2) PL AT 0 055422,001496: 12,3342 20170 0 -9D,1 055423,001497: 12,3343 53040 BMN BZE 055424,001498: 12,3344 25421 NEGP 055425,001499: 12,3345 25421 NEGP 055426,001500: 12,3346 16742 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4) 055427,001501: 12,3347 03775 COGA 055428,001502: 12,3350 43316 DSQ DAD 055429,001503: 12,3351 11510 D1/1024 055430,001504: 12,3352 41301 NORM DMP 055431,001505: 12,3353 00047 X1 055432,001506: 12,3354 02742 P 055433,001507: 12,3355 44257 SR* BDSU
![]() |
Page 1269 |
055435,001509: 12,3356 20571 0 -8D,1 055436,001510: 12,3357 11506 D1/32 055437,001511: 12,3360 16744 STODL R1A # R1A=2-P(1+COGA COGA) (+6) 055438,001512: 12,3361 02742 P 055439,001513: 12,3362 45000 BOV CALL 055440,001514: 12,3363 25424 HIENERGY 055441,001515: 12,3364 24772 GETX 055442,001516: 12,3365 77745 DLOAD 055443,001517: 12,3366 00037 T 055444,001518: 12,3367 16764 STODL TPREV 055445,001519: 12,3370 00031 XI 055446,001520: 12,3371 45014 BON CALL 055447,001521: 12,3372 04310 INFINFLG 055448,001522: 12,3373 25421 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS 055449,001523: 12,3374 24426 DELTIME 055450,001524: 12,3375 44200 BOV BDSU 055451,001525: 12,3376 25441 BIGTIME 055452,001526: 12,3377 02673 TDESIRED 055453,001527: 12,3400 02762 STORE TERRLAMB 055454,001528: 12,3401 44246 ABS BDSU 055455,001529: 12,3402 03777 EPSILONL 055456,001530: 12,3403 47044 BPL RTB 055457,001531: 12,3404 25510 INITV 055458,001532: 12,3405 24651 CHECKCTR 055459,001533: 12,3406 45030 BHIZ CALL 055460,001534: 12,3407 25452 SUFFCHEK 055461,001535: 12,3410 24543 ITERATOR 055462,001536: 12,3411 53145 DLOAD BZE 055463,001537: 12,3412 00155 MPAC 055464,001538: 12,3413 25452 SUFFCHEK 055465,001539: 12,3414 77615 DAD 055466,001540: 12,3415 03775 COGA 055467,001541: 12,3416 03775 STORE COGA 055468,001542: 12,3417 77650 GOTO 055469,001543: 12,3420 25332 LAMBLOOP 055470,001544: 055471,001545: 12,3421 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE 055472,001546: 12,3422 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA. 055473,001547: 12,3423 25444 LOENERGY 055474,001548: 055475,001549: 12,3424 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED 055476,001550: 12,3425 00001 0 055477,001551: 12,3426 03775 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50. 055478,001552: 12,3427 00011 STORE COGAMIN # THIS IS THE NEW BOUND. 055479,001553: 12,3430 70545 COMMONLM DLOAD SR1 055480,001554: 12,3431 00015 DCOGA 055481,001555: 12,3432 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
![]() |
Page 1270 |
055483,001557: 12,3433 44254 BZE BDSU 055484,001558: 12,3434 25452 SUFFCHEK 055485,001559: 12,3435 03775 COGA 055486,001560: 12,3436 03775 STORE COGA 055487,001561: 12,3437 77650 GOTO # RESTART THIS LOOP 055488,001562: 12,3440 25332 LAMBLOOP 055489,001563: 055490,001564: 12,3441 77745 BIGTIME DLOAD 055491,001565: 12,3442 02764 TPREV 055492,001566: 12,3443 00037 STORE T 055493,001567: 055494,001568: 12,3444 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED 055495,001569: 12,3445 00001 0 055496,001570: 12,3446 03775 COGA # IN OVERFLOW OF TIME. 055497,001571: 12,3447 00017 STORE COGAMAX # THIS IS THE NEW BOUND. 055498,001572: 12,3450 77650 GOTO 055499,001573: 12,3451 25430 COMMONLM 055500,001574: 055501,001575: 12,3452 51545 SUFFCHEK DLOAD ABS 055502,001576: 12,3453 02762 TERRLAMB 055503,001577: 12,3454 41325 PDDL DMP 055504,001578: 12,3455 02673 TDESIRED # PL AT 2D 055505,001579: 12,3456 11502 D1/4 055506,001580: 12,3457 45215 DAD DSU # PL AT 0D 055507,001581: 12,3460 11522 ONEBIT 055508,001582: 12,3461 43044 BPL SETGO 055509,001583: 12,3462 25510 INITV 055510,001584: 12,3463 02434 SOLNSW 055511,001585: 12,3464 02712 RTNLAMB 055512,001586: 12,3465 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1 055513,001587: 12,3466 00001 0 055514,001588: 12,3467 02434 SOLNSW 055515,001589: 12,3470 02712 RTNLAMB 055516,001590: 055517,001591: 12,3471 71331 NOGUESS SSP DLOAD 055518,001592: 12,3472 00051 TWEEKIT 055519,001593: 12,3473 10000 20000 055520,001594: 12,3474 00011 COGAMIN 055521,001595: 12,3475 65342 SR1 PDDL # PL AT 2 055522,001596: 12,3476 00017 COGAMAX 055523,001597: 12,3477 43342 SR1 DAD 055524,001598: 12,3500 77626 STADR # PL AT 0 055525,001599: 12,3501 74002 STORE COGA 055526,001600: 12,3502 00015 STORE DCOGA
![]() |
Page 1271 |
055528,001602: 12,3503 77650 GOTO
055529,001603: 12,3504 25332 LAMBLOOP
![]() |
There is a handwritten note on the Colossus 249 scan here, which unfortunately is not completely legible. It is something like "Dca's from MAXCOGA" — RSB 2004 |
055533,001607: 12,3505 52145 LOLIM DLOAD GOTO 055534,001608: 12,3506 11526 COGLOLIM # COGLOLIM=-.999511597 055535,001609: 12,3507 25322 MINCOGA 055536,001610: 12,3510 60345 INITV DLOAD NORM 055537,001611: 12,3511 00041 R1 055538,001612: 12,3512 00047 X1 055539,001613: 12,3513 70525 PDDL SR1 # PL AT 2 055540,001614: 12,3514 02742 P 055541,001615: 12,3515 77671 DDV # PL AT 0 055542,001616: 12,3516 75457 SL* SQRT 055543,001617: 12,3517 20175 0 -4,1 055544,001618: 12,3520 72405 DMP SL1 055545,001619: 12,3521 00021 ROOTMU 055546,001620: 12,3522 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2 055547,001621: 12,3523 03775 COGA 055548,001622: 12,3524 74261 SL VXSC 055549,001623: 12,3525 20206 5 055550,001624: 12,3526 02724 UR1 055551,001625: 12,3527 77725 PDDL # XCH WITH 0D PL AT 0,6 055552,001626: 12,3530 76561 VXSC VSL1 055553,001627: 12,3531 02676 UN 055554,001628: 12,3532 53235 VXV VAD 055555,001629: 12,3533 02724 UR1 # PL AT 0 055556,001630: 12,3534 43172 VSL1 CLEAR 055557,001631: 12,3535 02674 SOLNSW 055558,001632: 12,3536 02746 STORE VVEC 055559,001633: 12,3537 53135 SLOAD BZE 055560,001634: 12,3540 02704 VTARGTAG 055561,001635: 12,3541 25544 TARGETV 055562,001636: 12,3542 77650 GOTO 055563,001637: 12,3543 02712 RTNLAMB 055564,001638: 055565,001639: 12,3544 45145 TARGETV DLOAD CALL 055566,001640: 12,3545 02722 MAGVEC2 055567,001641: 12,3546 24706 LAMENTER 055568,001642: 12,3547 02705 STORE VTARGET 055569,001643: 12,3550 77650 GOTO 055570,001644: 12,3551 02712 RTNLAMB 055571,001645:
![]() |
Page 1272 |
055573,001647: 12,3552 40220 TIMERAD STQ SETPD # PL AT 0 055574,001648: 12,3553 02712 RTNTR 055575,001649: 12,3554 00001 0 055576,001650: 12,3555 63375 VLOAD PDVL # PL AT 6 055577,001651: 12,3556 02657 RVEC 055578,001652: 12,3557 02746 VVEC 055579,001653: 12,3560 77624 CALL 055580,001654: 12,3561 11527 PARAM 055581,001655: 12,3562 71200 BOV DLOAD 055582,001656: 12,3563 24767 COGAOVFL # PL AT 0 055583,001657: 12,3564 11506 D1/32 055584,001658: 12,3565 41225 DSU DMP 055585,001659: 12,3566 02744 R1A 055586,001660: 12,3567 02742 P 055587,001661: 12,3570 41366 SQRT DMP 055588,001662: 12,3571 03775 COGA 055589,001663: 12,3572 74212 SL4 VXSC 055590,001664: 12,3573 02714 U2 055591,001665: 12,3574 45325 PDDL DSU # PL AT 6 055592,001666: 12,3575 11500 D1/64 055593,001667: 12,3576 02744 R1A 055594,001668: 12,3577 52361 VXSC VSU # PL AT 0 055595,001669: 12,3600 02724 UR1 055596,001670: 12,3601 53512 VSL4 UNIT 055597,001671: 12,3602 77600 BOV 055598,001672: 12,3603 25465 360LAMB # NO SOLUTION SINCE CONIC IS A CIRCLE 055599,001673: 12,3604 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6 055600,001674: 12,3605 02760 RDESIRED # 36D=ECC (+3) 055601,001675: 12,3606 00047 X1 055602,001676: 12,3607 41325 PDDL DMP # PL AT 8 055603,001677: 12,3610 00041 R1 055604,001678: 12,3611 02742 P 055605,001679: 12,3612 56257 SL* DDV # PL AT 6 055606,001680: 12,3613 20201 0,1 055607,001681: 12,3614 56225 DSU DDV 055608,001682: 12,3615 11504 D1/16 055609,001683: 12,3616 00045 36D # 36D=ECC (+3) 055610,001684: 12,3617 00031 STORE COSF 055611,001685: 12,3620 63400 BOV DSQ 055612,001686: 12,3621 25661 BADR2 055613,001687: 12,3622 50021 BDSU BMN 055614,001688: 12,3623 11502 D1/4 055615,001689: 12,3624 25661 BADR2 055616,001690: 12,3625 75366 SQRT SIGN 055617,001691: 12,3626 02757 SGNRDOT 055618,001692: 12,3627 77614 CLEAR 055619,001693: 12,3630 04272 APSESW 055620,001694: 055621,001695: 12,3631 76561 TERMNVEC VXSC VSL1 055622,001696: 12,3632 02676 UN
![]() |
Page 1273 |
055624,001698: 12,3633 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6 055625,001699: 12,3634 00001 0D 055626,001700: 12,3635 53361 VXSC VAD # PL AT 0 055627,001701: 12,3636 00031 COSF 055628,001702: 12,3637 41572 VSL1 PUSH # 0D=U2 PL AT 6 055629,001703: 055630,001704: 12,3640 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX 055631,001705: 12,3641 02724 UR1 055632,001706: 12,3642 23701 DP1/4 055633,001707: 12,3643 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL 055634,001708: 12,3644 25645 +1 # CLEAR OVFIND IF SET 055635,001709: 12,3645 26734 STOVL CSTH # CSTH (+1) 055636,001710: 12,3646 02724 UR1 055637,001711: 12,3647 76435 VXV VSL1 055638,001712: 12,3650 72441 DOT SL1 055639,001713: 12,3651 02676 UN 055640,001714: 12,3652 16732 STODL SNTH # SNTH (+1) 055641,001715: 12,3653 02742 P 055642,001716: 12,3654 77624 CALL 055643,001717: 12,3655 24772 GETX 055644,001718: 12,3656 77614 CLRGO 055645,001719: 12,3657 02634 SOLNSW 055646,001720: 12,3660 24752 COMMNOUT 055647,001721: 055648,001722: 12,3661 75345 BADR2 DLOAD SIGN 055649,001723: 12,3662 11454 LODPHALF 055650,001724: 12,3663 00031 COSF 055651,001725: 12,3664 14031 STODL COSF 055652,001726: 12,3665 11456 KEPZERO 055653,001727: 12,3666 77614 SETGO 055654,001728: 12,3667 04032 APSESW 055655,001729: 12,3670 25631 TERMNVEC 055656,001730: 055657,001731: 12,3671 40220 APSIDES STQ SETPD # PL AT 0 055658,001732: 12,3672 02712 RTNAPSE 055659,001733: 12,3673 00001 0D 055660,001734: 12,3674 63375 VLOAD PDVL # PL AT 6 055661,001735: 12,3675 02657 RVEC 055662,001736: 12,3676 02746 VVEC 055663,001737: 12,3677 77624 CALL 055664,001738: 12,3700 11527 PARAM 055665,001739: 12,3701 77600 BOV # PL AT 0 055666,001740: 12,3702 25703 GETECC 055667,001741: 12,3703 42405 GETECC DMP SL4 055668,001742: 12,3704 02744 R1A 055669,001743: 12,3705 75421 BDSU SQRT 055670,001744: 12,3706 11500 D1/64 055671,001745: 12,3707 02754 STORE ECC 055672,001746: 12,3710 65215 DAD PDDL # PL AT 2 055673,001747: 12,3711 11474 D1/8
![]() |
Page 1274 |
055675,001749: 12,3712 00041 R1 055676,001750: 12,3713 72405 DMP SL1 055677,001751: 12,3714 02742 P 055678,001752: 12,3715 77671 DDV # PL AT 0 055679,001753: 12,3716 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2 055680,001754: 12,3717 02744 R1A 055681,001755: 12,3720 00047 X1 055682,001756: 12,3721 53725 PDDL SL* # PL AT 4 055683,001757: 12,3722 00041 R1 055684,001758: 12,3723 20174 0 -5,1 055685,001759: 12,3724 45271 DDV DSU # PL AT 2,0 055686,001760: 12,3725 50000 BOV BMN 055687,001761: 12,3726 25732 INFINAPO 055688,001762: 12,3727 25732 INFINAPO 055689,001763: 12,3730 77650 GOTO 055690,001764: 12,3731 02712 RTNAPSE 055691,001765: 12,3732 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS 055692,001766: 12,3733 11467 LDPOSMAX 055693,001767: 12,3734 02712 RTNAPSE # THAT PL IS AT 0. 055694,001768:
![]() |
Page 1275 |
055696,001770: 04,2000 SETLOC CONICS1 055697,001771: 04,2000 BANK 055698,001772: 055699,001773: 04,3630 COUNT 04/CONIC 055700,001774: 055701,001775: 04,3630 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE 055702,001776: 04,3632 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE 055703,001777: 04,3634 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE) 055704,001778: 04,3636 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE) 055705,001779: 055706,001780: 04,3640 16471 01352 2DEC 4.902778 E8 B-30 # MUM 055707,001781: 04,3642 21412 20500 2DEC .203966 E-8 B+28 # 1/MUM 055708,001782: 04,3644 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM) 055709,001783: 04,3646 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM) 055710,001784: 055711,001785: 04,3650 04,3466 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. 055712,001786: 055713,001787: # ERASABLE ASSIGNMENTS 055714,001788: # KEPLER SUBROUTINE 055715,001789: 055716,001790: # INPUT - 055717,001791: # RRECT ERASE +5 055718,001792: # VRECT ERASE +5 055719,001793: # TAU. ERASE +1 055720,001794: # XKEP ERASE +1 055721,001795: # TC ERASE +1 055722,001796: # XPREV ERASE +1 055723,001797: 04,3650 1/MU EQUALS 14D 055724,001798: 04,3650 ROOTMU EQUALS 16D 055725,001799: 04,3650 1/ROOTMU EQUALS 18D 055726,001800: 055727,001801: # OUTPUT - 055728,001802: # RCV ERASE +5 055729,001803: # VCV ERASE +5 055730,001804: # RC ERASE +1 055731,001805: # XPREV ERASE +1 055732,001806: 055733,001807: # DEBRIS - 055734,001808: 04,3650 ALPHA EQUALS 8D 055735,001809: 04,3650 XMAX EQUALS 10D
![]() |
Page 1276 |
055737,001811: 04,3650 XMIN EQUALS 12D 055738,001812: 04,3650 X EQUALS 20D 055739,001813: 04,3650 XI EQUALS 24D 055740,001814: 04,3650 S(XI) EQUALS 26D 055741,001815: 04,3650 XSQC(XI) EQUALS 28D 055742,001816: 04,3650 T EQUALS 30D 055743,001817: 04,3650 R1 EQUALS 32D 055744,001818: 04,3650 KEPC1 EQUALS 34D 055745,001819: 04,3650 KEPC2 EQUALS 36D 055746,001820: 055747,001821: # DELX ERASE +1 055748,001822: # DELT ERASE +1 055749,001823: # URRECT ERASE +5 055750,001824: # RCNORM ERASE +1 055751,001825: # XPREV EQUALS XKEP 055752,001826: 055753,001827: 055754,001828: # LAMBERT SUBROUTINE 055755,001829: 055756,001830: # INPUT - 055757,001831: # R1VEC ERASE +5 055758,001832: # R2VEC ERASE +5 055759,001833: # TDESIRED ERASE +1 055760,001834: # GEOMSGN ERASE +0 055761,001835: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT 055762,001836: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO. 055763,001837: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT 055764,001838: # UN ERASE +5 ONLY USED IF NORMSW IS 1 055765,001839: # VTARGTAG ERASE +0 055766,001840: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0 055767,001841: 055768,001842: # OUTPUT - 055769,001843: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO. 055770,001844: # V1VEC EQUALS MPAC 055771,001845: 055772,001846: # DEBRIS - 055773,001847: # RTNLAMB ERASE +0 055774,001848: # U2 ERASE +5 055775,001849: # MAGVEC2 ERASE +1 055776,001850: # UR1 ERASE +5 055777,001851: # R1 EQUALS 31D 055778,001852: # UN ERASE +5 055779,001853: # SNTH ERASE +1 055780,001854: # CSTH ERASE +1 055781,001855: # 1-CSTH ERASE +1 055782,001856: # CSTH-RHO ERASE +1 055783,001857: 055784,001858: 04,3650 COGAMAX EQUALS 14D # CLOBBERS 1/MU 055785,001859: 04,3650 COGAMIN EQUALS 8D 055786,001860: 04,3650 DCOGA EQUALS 12D 055787,001861: 055788,001862: # TWEEKIT EQUALS 40D 055789,001863: # P ERASE +1
![]() |
Page 1277 |
055791,001865: # COGA ERASE +1 055792,001866: # R1A ERASE +1 055793,001867: # X EQUALS 20D 055794,001868: # XSQ EQUALS 22D 055795,001869: # XI EQUALS 24D 055796,001870: # S(XI) EQUALS 26D 055797,001871: # XSQC(XI) EQUALS 28D 055798,001872: # T EQUALS 30D 055799,001873: # KEPC1 EQUALS 34D 055800,001874: # KEPC2 EQUALS 36D 055801,001875: # SLOPESW 055802,001876: # SOLNSW 055803,001877: 055804,001878: # OTHERS - 055805,001879: # RVEC EQUALS R1VEC 055806,001880: # VVEC ERASE +5 055807,001881: # COGAFLAG 055808,001882: # RVSW 055809,001883: # INFINFLG 055810,001884: # APSESW 055811,001885: # 360SW 055812,001886: # RTNTT EQUALS RTNLAMB 055813,001887: # ECC ERASE +1 055814,001888: # RTNTR EQUALS RTNLAMB 055815,001889: # RTNAPSE EQUALS RTNLAMB 055816,001890: # R2 EQUALS MAGVEC2 055817,001891: 055818,001892: 04,3650 COSF EQUALS 24D 055819,001893: 055820,001894: # RTNPRM ERASE +0 055821,001895: # SGNRDOT ERASE +0 055822,001896: # RDESIRED ERASE +1 055823,001897: 055824,001898: 055825,001899: # ITERATOR SUBROUTINE 055826,001900: # ORDERSW 055827,001901: 04,3650 MAX EQUALS 14D # CLOBBERS 1/MU 055828,001902: 04,3650 MIN EQUALS 8D 055829,001903: 055830,001904: # INDEP ERASE +1 055831,001905: 055832,001906: 04,3650 DELINDEP EQUALS 12D 055833,001907: 04,3650 ITERCTR EQUALS 22D 055834,001908: 04,3650 DEP EQUALS 30D 055835,001909: 055836,001910: # DELDEP ERASE +1 055837,001911: # DEPREV ERASE +1 055838,001912: 055839,001913: 04,3650 TWEEKIT EQUALS 40D 055840,001914: 055841,001915: 055842,001916: # MORE KEPLER 055843,001917: # EPSILONT ERASE +1 055844,001918:
![]() |
Page 1278 |
055846,001920: # MORE LAMBERT 055847,001921: # TERRLAMB EQUALS DELDEP 055848,001922: # TPREV EQUALS DEPREV 055849,001923: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD 055850,001924: 055851,001925: End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc