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