GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
049886,000002: ## Copyright: Public domain.
049887,000003: ## Filename: CONIC_SUBROUTINES.agc
049888,000004: ## Purpose: The main source file for Luminary revision 069.
049889,000005: ## It is part of the source code for the original release
049890,000006: ## of the flight software for the Lunar Module's (LM) Apollo
049891,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
049892,000008: ## version was Luminary 69 revision 2, which included a
049893,000009: ## newer lunar gravity model and only affected module 2.
049894,000010: ## This file is intended to be a faithful transcription, except
049895,000011: ## that the code format has been changed to conform to the
049896,000012: ## requirements of the yaYUL assembler rather than the
049897,000013: ## original YUL assembler.
049898,000014: ## Reference: pp. 1154-1199
049899,000015: ## Assembler: yaYUL
049900,000016: ## Contact: Ron Burkey <info@sandroid.org>.
049901,000017: ## Website: www.ibiblio.org/apollo/index.html
049902,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
049903,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
049904,000020: ## 2017-01-22 MAS Updated for Luminary 69
049905,000021: ## 2017-01-28 RSB WTIH -> WITH.
049906,000022: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
049907,000023: ## and fixed errors found.
049908,000024: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
049909,000025: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
049910,000026: ## side-by-side diff of Luminary 69/99/116/131/210.
049911,000027: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
049912,000028: ## Luminary 99 vs Comanche 55.
049913,000029:
|
|
Page 1154 |
049915,000031: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
049916,000032: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
049917,000033: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
049918,000034:
049919,000035:
049920,000036: # FUNCTIONAL DESCRIPTION -
049921,000037:
049922,000038: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
049923,000039: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
049924,000040: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
049925,000041: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
049926,000042: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
049927,000043: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
049928,000044: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
049929,000045: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
049930,000046: # TINES APPROPRIATELY.
049931,000047: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
049932,000048: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
049933,000049: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
049934,000050:
049935,000051:
049936,000052: # RESTRICTIONS -
049937,000053:
049938,000054: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
049939,000055: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
049940,000056: # TORIES COULD BE HANDLED.
049941,000057: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
049942,000058: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
049943,000059: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
049944,000060:
049945,000061:
|
|
Page 1155 |
049947,000063: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
049948,000064: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
049949,000065: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
049950,000066: # MOD NO. - 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
049951,000067:
049952,000068:
049953,000069: # FUNCTIONAL DESCRIPTION -
049954,000070: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
049955,000071: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
049956,000072: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
049957,000073: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
049958,000074: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
049959,000075: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
049960,000076: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
049961,000077: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
049962,000078: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
049963,000079: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
049964,000080:
049965,000081:
049966,000082: # THE RESTRICTIONS ARE -
049967,000083: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
049968,000084: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
049969,000085: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
049970,000086:
049971,000087:
049972,000088: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
049973,000089: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
049974,000090: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
049975,000091:
049976,000092:
049977,000093:
049978,000094: # REFERENCES -
049979,000095: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
049980,000096: # MEMO 67-4.
049981,000097:
049982,000098:
049983,000099:
049984,000100: # INPUT - ERASABLE INITIALIZATION REQUIRED
049985,000101:
049986,000102: # * SCALE FACTOR *
049987,000103: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
049988,000104: # --------*--------------* -----------------------
049989,000105: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
049990,000106: # * +27 FOR MOON *
049991,000107: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
049992,000108: # * +5 FOR MOON *
049993,000109: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
049994,000110: # * *RESPECTIVELY, IS THE CENTRAL BODY
049995,000111: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
049996,000112: # XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP
|
|
Page 1156 |
049998,000114: # * +16 FOR MOON *(DP)
049999,000115: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP
050000,000116: # XPREV * +17 FOR EARTH*PREVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF POWER FROM KEPPREP (DP)
050001,000117: # * +16 FOR MOON *(DP)
050002,000118:
050003,000119:
050004,000120:
050005,000121: # SUBROUTINES CALLED -
050006,000122: # DELTIME
050007,000123:
050008,000124:
050009,000125:
050010,000126: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050011,000127:
050012,000128: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050013,000129: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
050014,000130: # KEPRTN ... CONTINUE
050015,000131:
050016,000132: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
050017,000133: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
050018,000134: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
050019,000135:
050020,000136:
050021,000137:
050022,000138: # ABORT EXIT MODES -
050023,000139: # NONE
050024,000140:
050025,000141:
050026,000142:
050027,000143: # OUTPUT -
050028,000144:
050029,000145: # * SCALE FACTOR *
050030,000146: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050031,000147: # --------*--------------* -----------------------
050032,000148: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
050033,000149: # * +27 FOR MOON *
050034,000150: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
050035,000151: # * +5 FOR MOON *
050036,000152: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED.
050037,000153: # XPREV * +17 FOR EARTH*DP X IN METERS-TO-THE-ONE-HALF-POWER TO WHCIH KEPLER CONVERGED.
050038,000154: # * +16 FOR MOON *(DP)
050039,000155: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050040,000156:
050041,000157:
050042,000158:
050043,000159: # DEBRIS -
050044,000160:
050045,000161: # PARAMETERS WHICH MAY BE OF USE -
050046,000162:
050047,000163: # * SCALE FACTOR *
|
|
Page 1157 |
050049,000165: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050050,000166: # --------*--------------* -----------------------
050051,000167: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
050052,000168: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
050053,000169: # * +27 FOR MOON *
050054,000170: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
050055,000171: # * -20 FOR MOON *
050056,000172: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
050057,000173: # * *TAU. OF LESS THAN ONE PERIOD.
050058,000174:
050059,000175: # PARAMETERS OF NO USE -
050060,000176: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
050061,000177:
050062,000178:
|
|
Page 1158 |
050064,000180: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
050065,000181: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050066,000182: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050067,000183:
050068,000184:
050069,000185:
050070,000186: # FUNCTIONAL DESCRIPTION -
050071,000187:
050072,000188: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
050073,000189: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
050074,000190: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
050075,000191: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
050076,000192: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
050077,000193: # UTILIZED IN THE COMPUTATION.
050078,000194:
050079,000195:
050080,000196: # THE RESTRICTIONS ARE -
050081,000197: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
050082,000198: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
050083,000199: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050084,000200: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
050085,000201: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
050086,000202: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
050087,000203: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050088,000204: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
050089,000205: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
050090,000206: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
050091,000207:
050092,000208:
050093,000209:
050094,000210: # REFERENCES -
050095,000211: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
050096,000212: # SGA MEMO 67-4.
050097,000213:
050098,000214:
050099,000215:
050100,000216: # INPUT - ERASABLE INITIALIZATION REQUIRED
050101,000217:
050102,000218: # * SCALE FACTOR *
050103,000219: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050104,000220: # --------*--------------*-----------------------
050105,000221: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050106,000222: # * +27 FOR MOON *
050107,000223: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
050108,000224: # * +27 FOR MOON *
050109,000225: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
050110,000226: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050111,000227: # * *RESPECTIVELY, IS THE CENTRAL BODY
050112,000228: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
050113,000229: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
|
|
Page 1159 |
050115,000231: # * *COGA IS TO BE USED BY LAMBERT
050116,000232: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
050117,000233: # *IGNORED IF GUESSW IS SET.
050118,000234: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
050119,000235: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
050120,000236: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
050121,000237: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
050122,000238: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
050123,000239: # * *AT R1VEC.
050124,000240: # ITERCTR * NONE *A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE.
050125,000241: # * *(AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
050126,000242: # * *ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.)
050127,000243: # * *TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
050128,000244:
050129,000245:
050130,000246: # SUBROUTINES CALLED -
050131,000247: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
050132,000248:
050133,000249:
050134,000250:
050135,000251: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050136,000252:
050137,000253: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050138,000254: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
050139,000255: # IN MPAC IF VTARGTAG WAS ZERO
050140,000256: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
050141,000257: # L+3 SOLNSW
050142,000258: # L+4 LAMABORT
050143,000259: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
050144,000260: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
050145,000261:
050146,000262:
050147,000263:
050148,000264: # ABORT EXIT MODES -
050149,000265: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
050150,000266: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
050151,000267: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
050152,000268: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
050153,000269: # 1-CSTH 360 DEGREES.
050154,000270: # DSU BMN
050155,000271: # ONEBIT
050156,000272: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
050157,000273: # DLOAD DAD
050158,000274: # TDESIRED
050159,000275: # SOMETIME
050160,000276: # STCALL TDESIRED INCREASE TDESIRED
050161,000277: # LAMBERT
050162,000278:
050163,000279:
|
|
Page 1160 |
050165,000281: # OUTPUT -
050166,000282: # * SCALE FACTOR *
050167,000283: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050168,000284: # --------*--------------* -----------------------
050169,000285: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
050170,000286: # * +5 FOR MOON *PROBLEM.
050171,000287: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
050172,000288: # * +5 FOR MOON *
050173,000289: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
050174,000290: # * *SOLUTION EXISTS.
050175,000291: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050176,000292:
050177,000293:
050178,000294:
050179,000295: # DEBRIS -
050180,000296: # PARAMETERS WHICH MAY BE OF USE -
050181,000297:
050182,000298: # * SCALE FACTOR *
050183,000299: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050184,000300: # --------*--------------* -----------------------
050185,000301: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
050186,000302: # CSTH * +1 *DP COSINE OF ANGLE
050187,000303: # 1-CSTH * +2 *DP 1-CSTH
050188,000304: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
050189,000305: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
050190,000306: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
050191,000307: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
050192,000308: # * +27 FOR MOON *
050193,000309: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
050194,000310: # U2 * +1 *DP UNIT VECTOR OF R2VEC
050195,000311:
050196,000312: # PARAMETERS OF NO USE
050197,000313: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
050198,000314: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
050199,000315:
050200,000316:
|
|
Page 1161 |
050202,000318: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
050203,000319: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050204,000320: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050205,000321:
050206,000322:
050207,000323:
050208,000324: # FUNCTIONAL DESCRIPTION -
050209,000325:
050210,000326: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
050211,000327: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050212,000328: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050213,000329: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
050214,000330: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050215,000331: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050216,000332:
050217,000333:
050218,000334: # THE RESTRICTIONS ARE -
050219,000335: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050220,000336: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
050221,000337: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
050222,000338: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050223,000339:
050224,000340: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
050225,000341:
050226,000342:
050227,000343:
050228,000344: # REFERENCES -
050229,000345: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050230,000346:
050231,000347:
050232,000348:
050233,000349: # INPUT - ERASABLE INITIALIZATION REQUIRED
050234,000350:
050235,000351: # * SCALE FACTOR *
050236,000352: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050237,000353: # --------*--------------* -----------------------
050238,000354: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050239,000355: # * +27 FOR MOON *
050240,000356: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050241,000357: # * +5 FOR MOON *
050242,000358: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
050243,000359: # CSTH * +1 *DP COSINE OF THE ANGLE
050244,000360: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050245,000361: # * *IS TO BE COMPUTED ALSO.
050246,000362: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050247,000363: # * *RESPECTIVELY, IS THE CENTRAL BODY.
050248,000364:
050249,000365:
050250,000366:
050251,000367: # SUBROUTINES CALLED -
|
|
Page 1162 |
050253,000369: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
050254,000370:
050255,000371:
050256,000372:
050257,000373: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050258,000374:
050259,000375: # IF ONLY TIME IS DESIRED AS OUTPUT -
050260,000376: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050261,000377: # L+1 RVSW
050262,000378: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
050263,000379: # L+3 ... CONTINUE
050264,000380:
050265,000381:
050266,000382: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050267,000383: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050268,000384: # L+1 RVSW
050269,000385: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050270,000386: # THE INITIAL VELOCITY VECTOR IN MPAC.
050271,000387: # L+3 STOVL NEWVVEC
050272,000388: # L+4 STADR
050273,000389: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050274,000390: # L+6 ... CONTINUE
050275,000391:
050276,000392:
050277,000393:
050278,000394: # ABORT EXIT MODES -
050279,000395: # L CALL BON
050280,000396: # L+1 TIMETHET
050281,000397: # L+2 COGAFLAG
050282,000398: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
050283,000399: # L+4 BON IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS
050284,000400: # GOOD, SO CONTINUE
050285,000401: # L+5 INFINFLG
050286,000402: # L+6 IMPOSSBL NO SOLUTION EXISTS.
050287,000403:
050288,000404:
050289,000405:
050290,000406: # OUTPUT -
050291,000407: # * SCALE FACTOR *
050292,000408: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050293,000409: # --------*--------------* -----------------------
050294,000410: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
050295,000411: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
050296,000412: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050297,000413: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050298,000414: # * *CLEAR IF NOT.
050299,000415:
050300,000416: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
050301,000417: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050302,000418: # MPAC +5* +5 FOR MOON *
|
|
Page 1163 |
050304,000420: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050305,000421: # * +27 FOR MOON *
050306,000422:
050307,000423: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050308,000424:
050309,000425:
050310,000426:
050311,000427: # DEBRIS -
050312,000428:
050313,000429: # PARAMETERS WHICH MAY BE OF USE -
050314,000430:
050315,000431: # * SCALE FACTOR *
050316,000432: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050317,000433: # --------*--------------* -----------------------
050318,000434: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050319,000435: # * +27 FOR MOON *
050320,000436: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050321,000437: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
050322,000438: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050323,000439: # UR1 * +1 *DP UNIT VECTOR OF RVEC
050324,000440: # U2 * +1 *DP UNIT VECTOR OF VVEC
050325,000441: # UN * +1 *DP UNIT VECTOR OF UR1*U2
050326,000442:
050327,000443:
050328,000444: # PARAMETERS OF NO USE -
050329,000445: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050330,000446: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050331,000447:
050332,000448:
|
|
Page 1164 |
050334,000450: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
050335,000451: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
050336,000452: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050337,000453:
050338,000454:
050339,000455:
050340,000456: # FUNCTIONAL DESCRIPTION -
050341,000457:
050342,000458: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
050343,000459: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
050344,000460: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
050345,000461: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
050346,000462: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050347,000463: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050348,000464: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
050349,000465: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
050350,000466:
050351,000467:
050352,000468: # THE RESTRICTIONS ARE -
050353,000469: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
050354,000470: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
050355,000471: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
050356,000472: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050357,000473: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
050358,000474: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
050359,000475: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
050360,000476:
050361,000477:
050362,000478: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
050363,000479:
050364,000480:
050365,000481:
050366,000482: # REFERENCES -
050367,000483: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
050368,000484:
050369,000485:
050370,000486:
050371,000487: # INPUT - ERASABLE INITIALIZATION REQUIRED
050372,000488:
050373,000489: # * SCALE FACTOR *
050374,000490: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050375,000491: # --------*--------------* -----------------------
050376,000492: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050377,000493: # * +27 FOR MOON *
050378,000494: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050379,000495: # * +5 FOR MOON *
050380,000496: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
050381,000497: # * +27 FOR MOON *COMPUTED.
050382,000498: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
050383,000499: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
|
|
Page 1165 |
050385,000501: # * *SINGLE-VALUED PROBLEM.
050386,000502: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050387,000503: # * *RESPECTIVELY, IS THE CENTRAL BODY.
050388,000504: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
050389,000505: # * *IS TO BE COMPUTED ALSO.
050390,000506:
050391,000507:
050392,000508:
050393,000509: # SUBROUTINES CALLED -
050394,000510: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
050395,000511:
050396,000512:
050397,000513:
050398,000514: # CALLING SEQUENCE AND NORMAL EXIT MODES -
050399,000515:
050400,000516: # IF ONLY TIME IS DESIRED AS OUTPUT -
050401,000517: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050402,000518: # L+1 RVSW
050403,000519: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
050404,000520: # L+3 ... CONTINUE
050405,000521:
050406,000522: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
050407,000523: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
050408,000524: # L+1 RVSW
050409,000525: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
050410,000526: # THE INITIAL VELOCITY VECTOR IN MPAC.
050411,000527: # L+3 STOVL NEWVVEC
050412,000528: # L+4 STADR
050413,000529: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
050414,000530: # L+6 ... CONTINUE
050415,000531:
050416,000532:
050417,000533:
050418,000534: # ABORT EXIT MODES -
050419,000535: # L CALL BON
050420,000536: # L+1 TIMERAD
050421,000537: # L+2 COGAFLAG
050422,000538: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
050423,000539: # L+4 BON BON
050424,000540: # L+5 INFINFLG
050425,000541: # L+6 IMPOSSBL NO SOLUTION EXISTS.
050426,000542: # L+7 SOLNSW
050427,000543: # L+8 IMPOSSBL SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE. RESTRICTION 3 HAS BEEN VIOLATED.
050428,000544: # L+9 ... IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE.
050429,000545:
050430,000546:
050431,000547:
050432,000548: # OUTPUT -
050433,000549: # * SCALE FACTOR *
|
|
Page 1166 |
050435,000551: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050436,000552: # --------*--------------* -----------------------
050437,000553: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
050438,000554: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
050439,000555: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
050440,000556: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
050441,000557: # * *CLEAR IF NOT.
050442,000558: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
050443,000559: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
050444,000560: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
050445,000561: # * *APOCENTER.
050446,000562: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
050447,000563: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
050448,000564: # *MINUS-18, THE SWITCH IS CLEAR.
050449,000565:
050450,000566:
050451,000567:
050452,000568: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
050453,000569:
050454,000570: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
050455,000571: # MPAC +5* +5 FOR MOON *
050456,000572: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
050457,000573: # * +27 FOR MOON *
050458,000574:
050459,000575: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050460,000576:
050461,000577:
050462,000578:
050463,000579: # DEBRIS -
050464,000580:
050465,000581: # PARAMETERS WHICH MAY BE OF USE -
050466,000582:
050467,000583: # * SCALE FACTOR *
050468,000584: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050469,000585: # --------*--------------* -----------------------
050470,000586: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050471,000587: # * +27 FOR MOON *
050472,000588: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050473,000589: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
050474,000590: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050475,000591: # UR1 * +1 *DP UNIT VECTOR OF RVEC
050476,000592: # U2 * +1 *DP UNIT VECTOR OF VVEC
050477,000593: # UN * +1 *DP UNIT VECTOR OF UR1*U2
050478,000594: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
050479,000595: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
050480,000596:
050481,000597:
050482,000598: # PARAMETERS OF NO USE -
050483,000599: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
050484,000600: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
050485,000601:
050486,000602:
|
|
Page 1167 |
050488,000604: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
050489,000605: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
050490,000606: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
050491,000607:
050492,000608:
050493,000609:
050494,000610: # FUNCTIONAL DESCRIPTION -
050495,000611:
050496,000612: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
050497,000613: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
050498,000614: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
050499,000615: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
050500,000616: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
050501,000617:
050502,000618:
050503,000619: # THE RESTRICTIONS ARE -
050504,000620: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
050505,000621: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
050506,000622: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
050507,000623: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
050508,000624:
050509,000625: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
050510,000626:
050511,000627:
050512,000628:
050513,000629: # REFERENCES -
050514,000630: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
050515,000631:
050516,000632:
050517,000633:
050518,000634: # INPUT - ERASABLE INITIALIZATION REQUIRED
050519,000635:
050520,000636: # * SCALE FACTOR *
050521,000637: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050522,000638: # --------*--------------* -----------------------
050523,000639: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
050524,000640: # * +27 FOR MOON *
050525,000641: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
050526,000642: # * +5 FOR MOON *
050527,000643: # X1 (38D)*NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
050528,000644: # * *RESPECTIVELY, IS THE CENTRAL BODY.
050529,000645:
050530,000646:
050531,000647:
050532,000648: # SUBROUTINES CALLED -
050533,000649: # PARAM, GEOM
050534,000650:
050535,000651:
050536,000652:
050537,000653: # CALLING SEQUENCE AND NORMAL EXIT MODES -
|
|
Page 1168 |
050539,000655: # IF ONLY TIME IS DESIRED AS OUTPUT -
050540,000656: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR.
050541,000657: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
050542,000658: # L+2 STODL APOAPSE
050543,000659: # L+3 0D
050544,000660: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
050545,000661: # L+5 ... CONTINUE
050546,000662:
050547,000663:
050548,000664:
050549,000665: # OUTPUT -
050550,000666: # * SCALE FACTOR *
050551,000667: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050552,000668: # --------*--------------* -----------------------
050553,000669: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
050554,000670: # * +27 FOR MOON *
050555,000671: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
050556,000672: # * +27 FOR MOON *
050557,000673: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
050558,000674:
050559,000675: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
050560,000676:
050561,000677:
050562,000678:
050563,000679: # DEBRIS -
050564,000680:
050565,000681: # PARAMETERS WHICH MAY BE OF USE -
050566,000682:
050567,000683: # * SCALE FACTOR *
050568,000684: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
050569,000685: # --------*--------------* -----------------------
050570,000686: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
050571,000687: # * +27 FOR MOON *
050572,000688: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
050573,000689: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
050574,000690: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
050575,000691: # UR1 * +1 *DP UNIT VECTOR OF RVEC
050576,000692: # U2 * +1 *DP UNIT VECTOR OF VVEC
050577,000693: # UN * +1 *DP UNIT VECTOR OF UR1*U2
050578,000694: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
050579,000695: # * +5 FOR MOON *
050580,000696:
050581,000697:
050582,000698: # PARAMETERS OF NO USE -
050583,000699: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
050584,000700: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
050585,000701:
050586,000702:
050587,000703:
050588,000704: 12,2000 SETLOC CONICS
|
|
Page 1169 |
050590,000706: 12,2000 BANK
050591,000707:
050592,000708: 12,2000 COUNT* $$/CONIC
050593,000709: 12,2000 E5,1721 EBANK= UR1
050594,000710: 12,2000 71201 KEPLERN SETPD DLOAD
050595,000711: 12,2001 00001 0
050596,000712: 12,2002 22275 KEPZERO
050597,000713: 12,2003 02177 STORE XMODULO
050598,000714: 12,2004 32201 STOVL* TMODULO
050599,000715: 12,2005 10005 MUTABLE,1
050600,000716: 12,2006 24017 STOVL 14D
050601,000717: 12,2007 01503 RRECT
050602,000718: 12,2010 66256 UNIT SSP
050603,000719: 12,2011 00027 ITERCTR
050604,000720: 12,2012 00024 20D
050605,000721: 12,2013 16647 STODL URRECT
050606,000722: 12,2014 00045 36D
050607,000723: 12,2015 24041 STOVL R1
050608,000724: 12,2016 01503 RRECT
050609,000725: 12,2017 76441 DOT SL1R
050610,000726: 12,2020 01511 VRECT
050611,000727: 12,2021 76405 DMP SL1R
050612,000728: 12,2022 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
050613,000729: 12,2023 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
050614,000730:
050615,000731: 12,2024 01511 VRECT
050616,000732: 12,2025 57236 VSQ DMPR
050617,000733: 12,2026 00017 1/MU # 1/MU (-34 OR -28)
050618,000734: 12,2027 52405 DMP SL3
050619,000735: 12,2030 00041 R1
050620,000736: 12,2031 61425 DSU ROUND
050621,000737: 12,2032 10756 D1/64
050622,000738: 12,2033 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
050623,000739:
050624,000740: 12,2034 74421 BDSU SR1R
050625,000741: 12,2035 10756 D1/64
050626,000742: 12,2036 77671 DDV
050627,000743: 12,2037 00041 R1
050628,000744: 12,2040 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
050629,000745:
050630,000746:
050631,000747: 12,2041 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
050632,000748: 12,2042 24051 1REV
050633,000749: 12,2043 10774 -50SC # -50SC (+12)
050634,000750: 12,2044 40071 DDV BOV
050635,000751: 12,2045 00011 ALPHA
050636,000752: 12,2046 24055 STOREMAX
050637,000753: 12,2047 52166 SQRT GOTO
050638,000754: 12,2050 24055 STOREMAX
050639,000755:
|
|
Page 1170 |
050641,000757: 12,2051 55366 1REV SQRT BDDV
050642,000758: 12,2052 10776 2PISC # 2PISC (+6)
050643,000759: 12,2053 77600 BOV
050644,000760: 12,2054 24055 STOREMAX
050645,000761: 12,2055 00013 STOREMAX STORE XMAX
050646,000762: 12,2056 65205 DMP PDDL
050647,000763: 12,2057 00023 1/ROOTMU
050648,000764: 12,2060 00011 ALPHA
050649,000765: 12,2061 65301 NORM PDDL
050650,000766: 12,2062 00047 X1
050651,000767: 12,2063 56257 SL* DDV
050652,000768: 12,2064 20173 0 -6,1
050653,000769: 12,2065 50000 BOV BMN
050654,000770: 12,2066 24112 MODDONE
050655,000771: 12,2067 24112 MODDONE # MPAC=PERIOD
050656,000772: 12,2070 51525 PERIODCH PDDL ABS # 0D=PERIOD
050657,000773: 12,2071 02074 TAU.
050658,000774: 12,2072 50025 DSU BMN
050659,000775: 12,2073 00001 0D
050660,000776: 12,2074 24112 MODDONE
050661,000777: 12,2075 77765 SIGN
050662,000778: 12,2076 02074 TAU.
050663,000779: 12,2077 16074 STODL TAU.
050664,000780: 12,2100 00013 XMAX
050665,000781: 12,2101 77615 DAD
050666,000782: 12,2102 02177 XMODULO
050667,000783: 12,2103 16177 STODL XMODULO
050668,000784: 12,2104 00001 0D
050669,000785: 12,2105 77615 DAD
050670,000786: 12,2106 02201 TMODULO
050671,000787: 12,2107 16201 STODL TMODULO
050672,000788: 12,2110 77650 GOTO
050673,000789: 12,2111 24070 PERIODCH
050674,000790: 12,2112 77601 MODDONE SETPD
050675,000791: 12,2113 00001 0
050676,000792: 12,2114 75345 DLOAD SIGN
050677,000793: 12,2115 02201 TMODULO
050678,000794: 12,2116 02074 TAU.
050679,000795: 12,2117 02201 STORE TMODULO
050680,000796: 12,2120 75345 DLOAD SIGN
050681,000797: 12,2121 02177 XMODULO
050682,000798: 12,2122 02074 TAU.
050683,000799: 12,2123 02177 STORE XMODULO
050684,000800: 12,2124 77621 BDSU
050685,000801: 12,2125 02130 XKEPNEW
050686,000802: 12,2126 00025 STORE X
050687,000803: 12,2127 53165 SIGN BZE
050688,000804: 12,2130 02074 TAU.
050689,000805: 12,2131 24311 BADX
050690,000806: 12,2132 51440 BMN ABS
|
|
Page 1171 |
050692,000808: 12,2133 24311 BADX
050693,000809: 12,2134 51025 DSU BPL
050694,000810: 12,2135 00013 XMAX
050695,000811: 12,2136 24311 BADX
050696,000812: 12,2137 51145 STORBNDS DLOAD BPL
050697,000813: 12,2140 02074 TAU.
050698,000814: 12,2141 24151 STOREMIN
050699,000815: 12,2142 57545 DLOAD DCOMP
050700,000816: 12,2143 00013 XMAX
050701,000817: 12,2144 14015 STODL XMIN
050702,000818: 12,2145 22275 KEPZERO
050703,000819: 12,2146 00013 STORE XMAX
050704,000820: 12,2147 77650 GOTO
050705,000821: 12,2150 24154 DXCOMP
050706,000822: 12,2151 77745 STOREMIN DLOAD
050707,000823: 12,2152 22275 KEPZERO
050708,000824: 12,2153 00015 STORE XMIN
050709,000825: 12,2154 57345 DXCOMP DLOAD DMPR
050710,000826: 12,2155 02074 TAU.
050711,000827: 12,2156 10767 BEE22
050712,000828: 12,2157 77646 ABS
050713,000829: 12,2160 16203 STODL EPSILONT
050714,000830: 12,2161 01551 TC
050715,000831: 12,2162 45254 BZE DSU
050716,000832: 12,2163 24165 NEWTC
050717,000833: 12,2164 02201 TMODULO
050718,000834: 12,2165 15551 NEWTC STODL TC
050719,000835: 12,2166 01553 XPREV
050720,000836: 12,2167 45254 BZE DSU
050721,000837: 12,2170 24172 XDIFF
050722,000838: 12,2171 02177 XMODULO
050723,000839: 12,2172 77621 XDIFF BDSU
050724,000840: 12,2173 00025 X
050725,000841: 12,2174 02643 STORE DELX
050726,000842:
050727,000843:
050728,000844: 12,2175 63545 KEPLOOP DLOAD DSQ
050729,000845: 12,2176 00025 X # X=XKEP
050730,000846: 12,2177 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
050731,000847: 12,2200 00047 X1
050732,000848: 12,2201 53605 DMP SRR*
050733,000849: 12,2202 00011 ALPHA
050734,000850: 12,2203 21573 0 -6,1
050735,000851: 12,2204 34031 STCALL XI # XI=ALPHA XSQ (+6)
050736,000852: 12,2205 24434 DELTIME
050737,000853: 12,2206 44200 BOV BDSU
050738,000854: 12,2207 24320 TIMEOVFL # UNLIKELY
050739,000855: 12,2210 02074 TAU.
050740,000856: 12,2211 02645 STORE DELT # DELT=DELINDEP
050741,000857: 12,2212 44246 ABS BDSU
|
|
Page 1172 |
050743,000859: 12,2213 02203 EPSILONT
050744,000860: 12,2214 71244 BPL DLOAD
050745,000861: 12,2215 24342 KEPCONVG
050746,000862: 12,2216 00037 T
050747,000863: 12,2217 60225 DSU NORM
050748,000864: 12,2220 01551 TC
050749,000865: 12,2221 00047 X1
050750,000866: 12,2222 60325 PDDL NORM
050751,000867: 12,2223 02643 DELX
050752,000868: 12,2224 00050 X2
050753,000869: 12,2225 41260 XSU,1 DMP
050754,000870: 12,2226 00047 X2
050755,000871: 12,2227 02645 DELT
050756,000872: 12,2230 56257 SLR* DDV
050757,000873: 12,2231 21202 1,1
050758,000874: 12,2232 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
050759,000875: 12,2233 71244 BPL DLOAD
050760,000876: 12,2234 24255 POSDELX
050761,000877: 12,2235 00025 X
050762,000878: 12,2236 00013 STORE XMAX # MOVE MAX BOUND IN
050763,000879: 12,2237 45221 BDSU DSU # PL AT 0
050764,000880: 12,2240 00015 XMIN
050765,000881: 12,2241 51000 BOV BPL
050766,000882: 12,2242 24247 NDXCHNGE
050767,000883: 12,2243 24247 NDXCHNGE
050768,000884: 12,2244 52145 DLOAD GOTO
050769,000885: 12,2245 00001 0D
050770,000886: 12,2246 24267 NEWDELX
050771,000887:
050772,000888:
050773,000889: 12,2247 45345 NDXCHNGE DLOAD DSU
050774,000890: 12,2250 00015 XMIN
050775,000891: 12,2251 00025 X
050776,000892: 12,2252 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
050777,000893: 12,2253 10772 DP9/10
050778,000894: 12,2254 24267 NEWDELX
050779,000895:
050780,000896:
050781,000897: 12,2255 77745 POSDELX DLOAD
050782,000898: 12,2256 00025 X
050783,000899: 12,2257 00015 STORE XMIN # MOVE MIN BOUND IN
050784,000900: 12,2260 45221 BDSU DSU # PL AT 0
050785,000901: 12,2261 00013 XMAX
050786,000902: 12,2262 50000 BOV BMN
050787,000903: 12,2263 24303 PDXCHNGE
050788,000904: 12,2264 24303 PDXCHNGE
050789,000905: 12,2265 77745 DLOAD
050790,000906: 12,2266 00001 0D
050791,000907: 12,2267 02643 NEWDELX STORE DELX
050792,000908: 12,2270 43254 BZE DAD
|
|
Page 1173 |
050794,000910: 12,2271 24342 KEPCONVG
050795,000911: 12,2272 00025 X
050796,000912: 12,2273 14025 STODL X
050797,000913: 12,2274 00037 T
050798,000914: 12,2275 01551 STORE TC
050799,000915: 12,2276 46034 BRNCHCTR RTB BHIZ
050800,000916: 12,2277 24657 CHECKCTR
050801,000917: 12,2300 24342 KEPCONVG
050802,000918: 12,2301 77650 GOTO
050803,000919: 12,2302 24175 KEPLOOP # ITERATE
050804,000920:
050805,000921:
050806,000922: 12,2303 45345 PDXCHNGE DLOAD DSU
050807,000923: 12,2304 00013 XMAX
050808,000924: 12,2305 00025 X
050809,000925: 12,2306 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
050810,000926: 12,2307 10772 DP9/10
050811,000927: 12,2310 24267 NEWDELX
050812,000928:
050813,000929:
050814,000930: 12,2311 70545 BADX DLOAD SR1
050815,000931: 12,2312 00013 XMAX
050816,000932: 12,2313 77765 SIGN
050817,000933: 12,2314 02074 TAU.
050818,000934: 12,2315 00025 STORE X
050819,000935: 12,2316 77650 GOTO
050820,000936: 12,2317 24137 STORBNDS
050821,000937: 12,2320 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
050822,000938: 12,2321 00025 X
050823,000939: 12,2322 24337 NEGTOVFL
050824,000940: 12,2323 00013 STORE XMAX
050825,000941: 12,2324 70545 CMNTOVFL DLOAD SR1
050826,000942: 12,2325 02643 DELX
050827,000943: 12,2326 02643 STORE DELX
050828,000944: 12,2327 44254 BZE BDSU
050829,000945: 12,2330 02112 KEPRTN
050830,000946: 12,2331 00025 X
050831,000947: 12,2332 14025 STODL X
050832,000948: 12,2333 01551 TC
050833,000949: 12,2334 00037 STORE T
050834,000950: 12,2335 77650 GOTO
050835,000951: 12,2336 24276 BRNCHCTR
050836,000952: 12,2337 00015 NEGTOVFL STORE XMIN
050837,000953: 12,2340 77650 GOTO
050838,000954: 12,2341 24324 CMNTOVFL
050839,000955: 12,2342 44545 KEPCONVG DLOAD SR4R
050840,000956: 12,2343 00041 R1
050841,000957: 12,2344 74225 DSU VXSC
050842,000958: 12,2345 00035 XSQC(XI)
050843,000959: 12,2346 02647 URRECT
|
|
Page 1174 |
050845,000961: 12,2347 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
050846,000962: 12,2350 00025 X
050847,000963: 12,2351 60316 DSQ NORM
050848,000964: 12,2352 00047 X1
050849,000965: 12,2353 57275 DMPR DMPR
050850,000966: 12,2354 00023 1/ROOTMU
050851,000967: 12,2355 00025 X
050852,000968: 12,2356 53605 DMP SRR*
050853,000969: 12,2357 00033 S(XI)
050854,000970: 12,2360 21572 0 -7,1
050855,000971: 12,2361 77621 BDSU
050856,000972: 12,2362 00037 T
050857,000973: 12,2363 74352 SL1 VXSC
050858,000974: 12,2364 01511 VRECT
050859,000975: 12,2365 53372 VSL1 VAD # PL AT 0
050860,000976: 12,2366 77712 VSL4
050861,000977: 12,2367 01535 STORE RCV # RCV (+29 OR +27)
050862,000978:
050863,000979:
050864,000980: 12,2370 60246 ABVAL NORM
050865,000981: 12,2371 00050 X2
050866,000982: 12,2372 14043 STODL RCNORM
050867,000983: 12,2373 00031 XI
050868,000984: 12,2374 45275 DMPR DSU
050869,000985: 12,2375 00033 S(XI)
050870,000986: 12,2376 10754 D1/128
050871,000987: 12,2377 76405 DMP SL1R
050872,000988: 12,2400 00021 ROOTMU
050873,000989: 12,2401 53605 DMP SLR*
050874,000990: 12,2402 00025 X
050875,000991: 12,2403 56601 0 -3,2
050876,000992: 12,2404 74271 DDV VXSC
050877,000993: 12,2405 00043 RCNORM
050878,000994: 12,2406 02647 URRECT
050879,000995: 12,2407 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
050880,000996: 12,2410 00035 XSQC(XI) # OR +13) PL AT 6
050881,000997: 12,2411 56257 SLR* DDV
050882,000998: 12,2412 56602 0 -4,2
050883,000999: 12,2413 00043 RCNORM
050884,001000: 12,2414 74221 BDSU VXSC
050885,001001: 12,2415 10770 D1/256
050886,001002: 12,2416 01511 VRECT
050887,001003: 12,2417 42455 VAD VSL8
050888,001004: 12,2420 77626 STADR # PL AT 0
050889,001005: 12,2421 62234 STODL VCV # VCV (+7 OR +5)
050890,001006: 12,2422 00037 T
050891,001007: 12,2423 77615 DAD
050892,001008: 12,2424 02201 TMODULO
050893,001009: 12,2425 15551 STODL TC
050894,001010: 12,2426 00025 X
|
|
Page 1175 |
050896,001012: 12,2427 77615 DAD
050897,001013: 12,2430 02177 XMODULO
050898,001014: 12,2431 01553 STORE XPREV
050899,001015: 12,2432 77650 GOTO
050900,001016: 12,2433 02112 KEPRTN
050901,001017:
|
|
Page 1176 |
050903,001019: 12,2434 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
050904,001020: 12,2435 07221 TC POLY
050905,001021: 12,2436 00010 DEC 8 B-14
050906,001022: 12,2437 02525 12526 2DEC .083333334
050907,001023:
050908,001024: 12,2441 67356 75666 2DEC -.266666684
050909,001025:
050910,001026: 12,2443 15001 23771 2DEC .406349155
050911,001027:
050912,001028: 12,2445 64342 43674 2DEC -.361198675
050913,001029:
050914,001030: 12,2447 06563 04645 2DEC .210153242
050915,001031:
050916,001032: 12,2451 75173 52672 2DEC -.086221951
050917,001033:
050918,001034: 12,2453 00656 14331 2DEC .026268812
050919,001035:
050920,001036: 12,2455 77633 40512 2DEC -.006163316
050921,001037:
050922,001038: 12,2457 00023 11210 2DEC .001177342
050923,001039:
050924,001040: 12,2461 77774 67506 2DEC -.000199055
050925,001041:
050926,001042: 12,2463 06036 TC INTPRET
050927,001043: 12,2464 14033 STODL S(XI)
050928,001044: 12,2465 00031 XI
050929,001045: 12,2466 77776 EXIT
050930,001046: 12,2467 07221 TC POLY
050931,001047: 12,2470 00010 DEC 8 B-14
050932,001048: 12,2471 01000 00000 2DEC .031250001
050933,001049:
050934,001050: 12,2473 72525 52506 2DEC -.166666719
050935,001051:
050936,001052: 12,2475 13301 15337 2DEC .355555413
050937,001053:
050938,001054: 12,2477 62776 54733 2DEC -.406347410
050939,001055:
050940,001056: 12,2501 11176 13267 2DEC .288962094
050941,001057:
050942,001058: 12,2503 73410 51674 2DEC -.140117894
050943,001059:
050944,001060: 12,2505 01446 33641 2DEC .049247387
050945,001061:
050946,001062: 12,2507 77451 65233 2DEC -.013081923
050947,001063:
050948,001064: 12,2511 00055 37266 2DEC .002806389
050949,001065:
050950,001066: 12,2513 77767 52336 2DEC -.000529414
050951,001067:
050952,001068: 12,2515 06036 TC INTPRET
|
|
Page 1177 |
050954,001070: 12,2516 53605 DMP SRR* # PL AT 0
050955,001071: 12,2517 00001 0D
050956,001072: 12,2520 21574 0 -5,1
050957,001073: 12,2521 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
050958,001074: 12,2522 72405 DMP SL1
050959,001075: 12,2523 00043 KEPC1
050960,001076: 12,2524 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
050961,001077: 12,2525 21537 TPMODE # PL AT 0,3
050962,001078: 12,2526 53605 DMP SRR*
050963,001079: 12,2527 00033 S(XI)
050964,001080: 12,2530 21574 0 -5,1
050965,001081: 12,2531 72405 DMP SL1
050966,001082: 12,2532 00045 KEPC2
050967,001083: 12,2533 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
050968,001084: 12,2534 21537 TPMODE
050969,001085: 12,2535 00041 R1
050970,001086: 12,2536 76261 SR TAD # PL AT 3
050971,001087: 12,2537 20607 6
050972,001088: 12,2540 41301 NORM DMP # TO PRESERVE SIGNIF.
050973,001089: 12,2541 00047 X1
050974,001090: 12,2542 00025 X
050975,001091: 12,2543 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
050976,001092: 12,2544 20576 0 -3,1
050977,001093: 12,2545 57232 SL4R DMPR
050978,001094: 12,2546 00023 1/ROOTMU
050979,001095: 12,2547 00037 STORE T
050980,001096: 12,2550 77616 RVQ
050981,001097:
|
|
Page 1178 |
050983,001099: 12,2551 71214 ITERATOR BONCLR DLOAD
050984,001100: 12,2552 00614 SLOPESW
050985,001101: 12,2553 24621 FIRSTIME
050986,001102: 12,2554 00037 DEP
050987,001103: 12,2555 60225 DSU NORM
050988,001104: 12,2556 02762 DEPREV
050989,001105: 12,2557 00047 X1
050990,001106: 12,2560 60325 PDDL NORM
050991,001107: 12,2561 00015 DELINDEP
050992,001108: 12,2562 00050 X2
050993,001109: 12,2563 41260 XSU,1 DMP
050994,001110: 12,2564 00047 X2
050995,001111: 12,2565 02760 DELDEP
050996,001112: 12,2566 56257 SLR* DDV # PL UP 2
050997,001113: 12,2567 21202 1,1
050998,001114: 12,2570 43142 SR1 BOFF
050999,001115: 12,2571 04351 ORDERSW
051000,001116: 12,2572 24575 SGNCHECK
051001,001117: 12,2573 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
051002,001118: 12,2574 02760 DELDEP # DISREGARD IT TO FIND MIN.
051003,001119:
051004,001120: 12,2575 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
051005,001121: 12,2576 24633 POSDEL
051006,001122: 12,2577 43145 DLOAD BON
051007,001123: 12,2600 02766 INDEP
051008,001124: 12,2601 04311 ORDERSW
051009,001125: 12,2602 24604 MINCHECK
051010,001126: 12,2603 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
051011,001127:
051012,001128: 12,2604 45221 MINCHECK BDSU DSU
051013,001129: 12,2605 00011 MIN
051014,001130: 12,2606 51000 BOV BPL
051015,001131: 12,2607 24613 MODNGDEL
051016,001132: 12,2610 24613 MODNGDEL
051017,001133: 12,2611 77650 GOTO
051018,001134: 12,2612 24645 DELOK
051019,001135:
051020,001136:
051021,001137: 12,2613 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
051022,001138: 12,2614 00011 MIN
051023,001139: 12,2615 02766 INDEP
051024,001140: 12,2616 52005 DMP GOTO
051025,001141: 12,2617 10772 DP9/10
051026,001142: 12,2620 24647 NEWDEL
051027,001143:
051028,001144:
051029,001145: 12,2621 41345 FIRSTIME DLOAD DMP
051030,001146: 12,2622 00011 MIN
051031,001147: 12,2623 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
051032,001148: 12,2624 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
|
|
Page 1179 |
051034,001150: 12,2625 00017 MAX
051035,001151: 12,2626 00051 TWEEKIT
051036,001152: 12,2627 77625 DSU
051037,001153: 12,2630 52165 SIGN GOTO
051038,001154: 12,2631 02760 DELDEP
051039,001155: 12,2632 24575 SGNCHECK
051040,001156:
051041,001157:
051042,001158: 12,2633 43145 POSDEL DLOAD BON
051043,001159: 12,2634 02766 INDEP
051044,001160: 12,2635 04311 ORDERSW
051045,001161: 12,2636 24640 MAXCHECK
051046,001162: 12,2637 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
051047,001163:
051048,001164: 12,2640 45221 MAXCHECK BDSU DSU
051049,001165: 12,2641 00017 MAX
051050,001166: 12,2642 50000 BOV BMN
051051,001167: 12,2643 24651 MODPSDEL
051052,001168: 12,2644 24651 MODPSDEL
051053,001169: 12,2645 77745 DELOK DLOAD
051054,001170: 12,2646 00001 0D
051055,001171: 12,2647 00015 NEWDEL STORE DELINDEP
051056,001172: 12,2650 77616 RVQ
051057,001173:
051058,001174:
051059,001175: 12,2651 45345 MODPSDEL DLOAD DSU
051060,001176: 12,2652 00017 MAX
051061,001177: 12,2653 02766 INDEP
051062,001178: 12,2654 52005 DMP GOTO
051063,001179: 12,2655 10772 DP9/10
051064,001180: 12,2656 24647 NEWDEL
051065,001181:
051066,001182:
051067,001183: 12,2657 44753 CHECKCTR CS ONE
051068,001184: 12,2660 50120 INDEX FIXLOC
051069,001185: 12,2661 60026 AD ITERCTR
051070,001186: 12,2662 50120 INDEX FIXLOC
051071,001187: 12,2663 54026 TS ITERCTR
051072,001188: 12,2664 54154 TS MPAC
051073,001189: 12,2665 06060 TC DANZIG
051074,001190:
|
|
Page 1180 |
051076,001192: 12,2666 44545 NEWSTATE DLOAD SR4R
051077,001193: 12,2667 00041 R1
051078,001194: 12,2670 74225 DSU VXSC
051079,001195: 12,2671 00035 XSQC(XI)
051080,001196: 12,2672 02722 UR1
051081,001197: 12,2673 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
051082,001198: 12,2674 00025 X
051083,001199: 12,2675 60316 DSQ NORM
051084,001200: 12,2676 00047 X1
051085,001201: 12,2677 57275 DMPR DMPR
051086,001202: 12,2700 00023 1/ROOTMU
051087,001203: 12,2701 00025 X
051088,001204: 12,2702 53605 DMP SRR*
051089,001205: 12,2703 00033 S(XI)
051090,001206: 12,2704 21572 0 -7,1
051091,001207: 12,2705 77621 BDSU
051092,001208: 12,2706 00037 T
051093,001209: 12,2707 74352 SL1 VXSC
051094,001210: 12,2710 02744 VVEC
051095,001211: 12,2711 53372 VSL1 VAD # PL AT 0
051096,001212: 12,2712 41512 VSL4 PUSH
051097,001213: 12,2713 77646 ABVAL
051098,001214: 12,2714 77701 LAMENTER NORM
051099,001215: 12,2715 00047 X1
051100,001216: 12,2716 16720 STODL R2
051101,001217: 12,2717 00031 XI
051102,001218: 12,2720 45205 DMP DSU
051103,001219: 12,2721 00033 S(XI)
051104,001220: 12,2722 10754 D1/128
051105,001221: 12,2723 76405 DMP SL1R
051106,001222: 12,2724 00021 ROOTMU
051107,001223: 12,2725 53605 DMP SLR*
051108,001224: 12,2726 00025 X
051109,001225: 12,2727 21176 0 -3,1
051110,001226: 12,2730 74271 DDV VXSC
051111,001227: 12,2731 02720 R2
051112,001228: 12,2732 02722 UR1
051113,001229: 12,2733 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
051114,001230: 12,2734 00035 XSQC(XI)
051115,001231: 12,2735 56257 SLR* DDV
051116,001232: 12,2736 21175 0 -4,1
051117,001233: 12,2737 02720 R2
051118,001234: 12,2740 77621 BDSU
051119,001235: 12,2741 10770 D1/256
051120,001236: 12,2742 53361 VXSC VAD # PL AT 6
051121,001237: 12,2743 02744 VVEC
051122,001238: 12,2744 43412 VSL8 RVQ
051123,001239:
|
|
Page 1181 |
051125,001241: 04,2000 SETLOC CONICS1
051126,001242: 04,2000 BANK
051127,001243:
051128,001244: 04,2750 COUNT* $$/CONIC
051129,001245: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
051130,001246: 04,2750 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
051131,001247: 04,2751 04000 00000 D1/8 2DEC 1.0 B-3
051132,001248:
051133,001249: 04,2753 00200 00000 D1/128 2DEC 1.0 B-7
051134,001250:
051135,001251: 04,2755 00400 00000 D1/64 2DEC 1.0 B-6
051136,001252:
051137,001253: 04,2757 10000 00000 D1/4 2DEC 1.0 B-2
051138,001254:
051139,001255: 04,2761 02000 00000 D1/16 2DEC 1.0 B-4
051140,001256:
051141,001257: 04,2763 01000 00000 D1/32 2DEC 1.0 B-5
051142,001258:
051143,001259: 04,2765 00020 00000 D1/1024 2DEC 1.0 B-10
051144,001260:
051145,001261: 04,2767 00100 00000 D1/256 2DEC 1.0 B-8
051146,001262:
051147,001263: 04,2771 34631 23146 DP9/10 2DEC .9
051148,001264:
051149,001265: 04,2773 11,2274 KEPZERO EQUALS LO6ZEROS
051150,001266: 04,2773 77467 77777 -50SC 2DEC -50.0 B-12
051151,001267:
051152,001268: 04,2775 03110 17665 2PISC 2DEC 6.28318530 B-6
051153,001269:
051154,001270: 04,2777 04,2762 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
051155,001271: 04,2777 04,2766 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
051156,001272: 04,2777 00000 00001 ONEBIT 2DEC 1.0 B-28
051157,001273:
051158,001274: 04,3001 37767 37737 COGUPLIM 2DEC .999511597
051159,001275:
051160,001276: 04,3003 40010 40040 COGLOLIM 2DEC -.999511597
051161,001277:
051162,001278:
|
|
Page 1182 |
051164,001280: 12,2000 SETLOC CONICS
051165,001281: 12,2000 BANK
051166,001282:
051167,001283: 12,2745 COUNT* $$/CONIC
051168,001284: 12,2745 40220 TIMETHET STQ SETPD # PL AT 0
051169,001285: 12,2746 02710 RTNTT
051170,001286: 12,2747 00001 0
051171,001287: 12,2750 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
051172,001288: 12,2751 02655 RVEC
051173,001289: 12,2752 02744 VVEC
051174,001290: 12,2753 77624 CALL
051175,001291: 12,2754 11005 PARAM
051176,001292: 12,2755 45000 BOV CALL # PL AT 0
051177,001293: 12,2756 24775 COGAOVFL
051178,001294: 12,2757 25000 GETX
051179,001295: 12,2760 43145 COMMNOUT DLOAD BON
051180,001296: 12,2761 00031 XI
051181,001297: 12,2762 04310 INFINFLG
051182,001298: 12,2763 02710 RTNTT
051183,001299: 12,2764 45014 CLEAR CALL
051184,001300: 12,2765 04273 COGAFLAG
051185,001301: 12,2766 24434 DELTIME
051186,001302: 12,2767 45014 BON CALL
051187,001303: 12,2770 03706 RVSW
051188,001304: 12,2771 02710 RTNTT
051189,001305: 12,2772 24666 NEWSTATE
051190,001306: 12,2773 77650 GOTO
051191,001307: 12,2774 02710 RTNTT
051192,001308:
051193,001309:
051194,001310: 12,2775 77614 COGAOVFL SETGO
051195,001311: 12,2776 04033 COGAFLAG
051196,001312: 12,2777 02710 RTNTT
051197,001313:
|
|
Page 1183 |
051199,001315: 04,3005 BANK 4
051200,001316: 04,2000 SETLOC CONICS1
051201,001317: 04,2000 BANK
051202,001318: 04,3005 COUNT* $$/CONIC
051203,001319: 04,3005 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
051204,001320: 04,3006 02753 RTNPRM
051205,001321: 04,3007 03665 NORMSW
051206,001322: 04,3010 77614 CLEAR
051207,001323: 04,3011 04273 COGAFLAG
051208,001324: 04,3012 45131 SSP CALL
051209,001325: 04,3013 02673 GEOMSGN
051210,001326: 04,3014 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
051211,001327: 04,3015 11051 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
051212,001328: 04,3016 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
051213,001329: 04,3017 56261 SR DDV
051214,001330: 04,3020 20606 5
051215,001331:
051216,001332: 04,3021 00045 36D
051217,001333: 04,3022 32766 STOVL* COGA
051218,001334: 04,3023 10005 MUTABLE,1
051219,001335: 04,3024 14017 STODL 1/MU
051220,001336: 04,3025 02720 MAGVEC2
051221,001337: 04,3026 60316 DSQ NORM
051222,001338: 04,3027 00047 X1
051223,001339: 04,3030 41275 DMPR DMP
051224,001340: 04,3031 00017 1/MU
051225,001341: 04,3032 00041 R1
051226,001342: 04,3033 77657 SRR*
051227,001343: 04,3034 21576 0 -3,1
051228,001344: 04,3035 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
051229,001345: 04,3036 10764 D1/32
051230,001346: 04,3037 16742 STODL R1A # R1A (+6) PL AT 0
051231,001347:
051232,001348: 04,3040 60205 DMP NORM
051233,001349: 04,3041 00045 36D
051234,001350: 04,3042 00047 X1
051235,001351: 04,3043 53605 DMP SR*
051236,001352: 04,3044 00045 36D
051237,001353: 04,3045 20575 0 -4,1
051238,001354: 04,3046 02740 STORE P # P (+4)
051239,001355: 04,3047 77650 GOTO
051240,001356: 04,3050 02753 RTNPRM
051241,001357:
|
|
Page 1184 |
051243,001359: 04,3051 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
051244,001360: 04,3052 16712 STODL U2 # U2 (+1)
051245,001361: 04,3053 00045 36D
051246,001362: 04,3054 26720 STOVL MAGVEC2 # PL AT 0
051247,001363: 04,3055 77656 UNIT
051248,001364: 04,3056 02722 STORE UR1 # UR1 (+1)
051249,001365: 04,3057 72441 DOT SL1
051250,001366: 04,3060 02712 U2
051251,001367: 04,3061 77725 PDDL # OD=CSTH (+1) PL AT 2
051252,001368: 04,3062 00045 36D
051253,001369: 04,3063 24041 STOVL R1 # R1 (+29 OR +27)
051254,001370: 04,3064 02722 UR1
051255,001371: 04,3065 76435 VXV VSL1
051256,001372: 04,3066 02712 U2
051257,001373: 04,3067 75214 BON SIGN
051258,001374: 04,3070 03705 NORMSW
051259,001375: 04,3071 11103 HAVENORM
051260,001376: 04,3072 02673 GEOMSGN
051261,001377: 04,3073 40056 UNIT BOV
051262,001378: 04,3074 11101 COLINEAR
051263,001379: 04,3075 16674 UNITNORM STODL UN # UN (+1)
051264,001380: 04,3076 00045 36D
051265,001381: 04,3077 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051266,001382: 04,3100 02673 GEOMSGN
051267,001383:
051268,001384:
051269,001385: 04,3101 52162 COLINEAR VSR1 GOTO
051270,001386: 04,3102 11075 UNITNORM
051271,001387:
051272,001388:
051273,001389: 04,3103 75246 HAVENORM ABVAL SIGN
051274,001390: 04,3104 02673 GEOMSGN
051275,001391: 04,3105 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
051276,001392:
|
|
Page 1185 |
051278,001394: 12,3000 BANK 12
051279,001395: 12,2000 SETLOC CONICS
051280,001396: 12,2000 BANK
051281,001397:
051282,001398: 12,3000 COUNT* $$/CONIC
051283,001399: 12,3000 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
051284,001400: 12,3001 00003 3
051285,001401: 12,3002 00052 S2
051286,001402: 12,3003 00001 1
051287,001403: 12,3004 77614 CLEAR
051288,001404: 12,3005 04276 360SW
051289,001405: 12,3006 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
051290,001406: 12,3007 02732 CSTH
051291,001407: 12,3010 44342 SR1 BDSU
051292,001408: 12,3011 10760 D1/4
051293,001409: 12,3012 54325 PDDL SRR # PL AT 4D
051294,001410: 12,3013 02730 SNTH
051295,001411: 12,3014 21607 6
051296,001412: 12,3015 77671 DDV # PL AT 2
051297,001413: 12,3016 77600 BOV
051298,001414: 12,3017 25133 360CHECK
051299,001415: 12,3020 41225 DSU DMP
051300,001416: 12,3021 02766 COGA # PL AT 0
051301,001417: 12,3022 40132 SL2R BOV
051302,001418: 12,3023 25133 360CHECK
051303,001419: 12,3024 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
051304,001420: 12,3025 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
051305,001421: 12,3026 00155 MPAC
051306,001422: 12,3027 02742 R1A
051307,001423: 12,3030 76202 SR4 TAD # PL AT 2
051308,001424: 12,3031 75440 BMN SQRT
051309,001425: 12,3032 25216 INFINITY
051310,001426: 12,3033 43306 ROUND DAD # PL AT 0D
051311,001427: 12,3034 61000 BOV TIX,2
051312,001428: 12,3035 25131 RESETX2
051313,001429: 12,3036 25024 WLOOP
051314,001430:
051315,001431:
051316,001432: 12,3037 40065 BDDV BOV
051317,001433: 12,3040 10754 D1/128
051318,001434: 12,3041 25216 INFINITY
051319,001435: 12,3042 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
051320,001436: 12,3043 25216 INFINITY
051321,001437: 12,3044 77716 DSQ
051322,001438: 12,3045 41301 NORM DMP
051323,001439: 12,3046 00047 X1
051324,001440: 12,3047 02742 R1A
051325,001441: 12,3050 77457 SRR* EXIT
051326,001442: 12,3051 21567 0 -10D,1
051327,001443: 12,3052 07221 TC POLY
|
|
Page 1186 |
051329,001445: 12,3053 00005 DEC 5 B-14
051330,001446: 12,3054 20000 00000 2DEC .5
051331,001447:
051332,001448: 12,3056 72525 52471 2DEC -.166666770
051333,001449:
051334,001450: 12,3060 03146 15003 2DEC .100000392
051335,001451:
051336,001452: 12,3062 75556 45210 2DEC -.071401086
051337,001453:
051338,001454: 12,3064 01615 13553 2DEC .055503292
051339,001455:
051340,001456: 12,3066 76371 63777 2DEC -.047264098
051341,001457:
051342,001458: 12,3070 01232 27367 2DEC .040694204
051343,001459:
051344,001460: 12,3072 06036 TC INTPRET
051345,001461: 12,3073 76405 DMP SL1R # PL AT 0D
051346,001462: 12,3074 43006 PUSH BON
051347,001463: 12,3075 04316 360SW
051348,001464: 12,3076 25203 TRUE360X
051349,001465: 12,3077 60316 XCOMMON DSQ NORM
051350,001466: 12,3100 00047 X1
051351,001467: 12,3101 53605 DMP SRR*
051352,001468: 12,3102 02742 R1A
051353,001469: 12,3103 21565 0 -12D,1
051354,001470: 12,3104 14031 STODL XI # XI (+6)
051355,001471:
051356,001472:
051357,001473: 12,3105 00041 R1
051358,001474: 12,3106 75542 SR1 SQRT
051359,001475: 12,3107 41306 ROUND DMP
051360,001476: 12,3110 77632 SL4R # PL AT 0
051361,001477: 12,3111 00025 STORE X # X (+17 OR +16)
051362,001478:
051363,001479:
051364,001480: 12,3112 60316 DSQ NORM
051365,001481: 12,3113 00047 X1
051366,001482: 12,3114 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
051367,001483: 12,3115 02740 P
051368,001484: 12,3116 00041 R1
051369,001485: 12,3117 75452 SL3 SQRT
051370,001486: 12,3120 56405 DMP SL3R
051371,001487: 12,3121 02766 COGA
051372,001488: 12,3122 14043 STODL KEPC1
051373,001489: 12,3123 02742 R1A
051374,001490: 12,3124 43021 BDSU CLEAR
051375,001491: 12,3125 10756 D1/64
051376,001492: 12,3126 04270 INFINFLG
051377,001493: 12,3127 00045 STORE KEPC2
051378,001494: 12,3130 77616 RVQ
051379,001495:
|
|
Page 1187 |
051381,001497: 12,3131 77774 RESETX2 AXT,2
051382,001498: 12,3132 00003 3
051383,001499:
051384,001500:
051385,001501: 12,3133 51001 360CHECK SETPD BPL
051386,001502: 12,3134 00001 0D
051387,001503: 12,3135 25140 INVRSEQN
051388,001504: 12,3136 77614 SET
051389,001505: 12,3137 04076 360SW
051390,001506:
051391,001507:
051392,001508: 12,3140 75545 INVRSEQN DLOAD SQRT
051393,001509: 12,3141 02740 P
051394,001510: 12,3142 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
051395,001511: 12,3143 02730 SNTH
051396,001512: 12,3144 02766 COGA
051397,001513: 12,3145 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
051398,001514: 12,3146 02732 CSTH
051399,001515: 12,3147 43202 SR4 DAD
051400,001516: 12,3150 10764 D1/32
051401,001517: 12,3151 41225 DSU DMP # PL AT 2,0
051402,001518: 12,3152 55301 NORM BDDV
051403,001519: 12,3153 00047 X1
051404,001520: 12,3154 02730 SNTH
051405,001521: 12,3155 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
051406,001522: 12,3156 21174 0 -5,1
051407,001523: 12,3157 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
051408,001524: 12,3160 14043 STODL 34D
051409,001525: 12,3161 10762 D1/16
051410,001526: 12,3162 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
051411,001527: 12,3163 65234 RTB PDDL # PL AT 7
051412,001528: 12,3164 21537 TPMODE
051413,001529: 12,3165 02742 R1A
051414,001530: 12,3166 40405 DMP SR4
051415,001531: 12,3167 00043 34D
051416,001532: 12,3170 77771 TAD # PL AT 4
051417,001533: 12,3171 75440 BMN SQRT
051418,001534: 12,3172 25216 INFINITY
051419,001535: 12,3173 77615 DAD # PL AT 2
051420,001536: 12,3174 60304 TIX,2 NORM
051421,001537: 12,3175 25162 1/WLOOP
051422,001538: 12,3176 00047 X1
051423,001539: 12,3177 77665 BDDV
051424,001540: 12,3200 52057 SLR* GOTO # PL AT 0
051425,001541: 12,3201 21172 0 -7,1
051426,001542: 12,3202 25042 POLYCOEF
051427,001543:
051428,001544:
051429,001545: 12,3203 50145 TRUE360X DLOAD BMN
051430,001546: 12,3204 02742 R1A
|
|
Page 1188 |
051432,001548: 12,3205 25216 INFINITY
051433,001549: 12,3206 60366 SQRT NORM
051434,001550: 12,3207 00047 X1
051435,001551: 12,3210 53665 BDDV SL*
051436,001552: 12,3211 10776 2PISC
051437,001553: 12,3212 20176 0 -3,1
051438,001554: 12,3213 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
051439,001555: 12,3214 77650 GOTO
051440,001556: 12,3215 25077 XCOMMON
051441,001557: 12,3216 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
051442,001558: 12,3217 00001 0 # INFINITY IS REQUIRED
051443,001559: 12,3220 25221 OVFLCLR
051444,001560: 12,3221 43414 OVFLCLR SET RVQ
051445,001561: 12,3222 04070 INFINFLG
051446,001562:
|
|
Page 1189 |
051448,001564: 12,3223 40220 LAMBERT STQ SETPD
051449,001565: 12,3224 02710 RTNLAMB
051450,001566: 12,3225 00001 0D
051451,001567: 12,3226 76614 CLEAR VLOAD*
051452,001568: 12,3227 02674 SOLNSW
051453,001569: 12,3230 10005 MUTABLE,1
051454,001570: 12,3231 14017 STODL 1/MU
051455,001571: 12,3232 02671 TDESIRED
051456,001572: 12,3233 77675 DMPR
051457,001573: 12,3234 10763 BEE19
051458,001574: 12,3235 02764 STORE EPSILONL
051459,001575: 12,3236 77214 SET VLOAD
051460,001576: 12,3237 00474 SLOPESW
051461,001577: 12,3240 02655 R1VEC
051462,001578: 12,3241 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
051463,001579: 12,3242 02663 R2VEC # MPAC=R2VEC (+29 OR +27)
051464,001580: 12,3243 11051 GEOM
051465,001581: 12,3244 16730 STODL SNTH # 0D=CSTH (+1) PL AT 2
051466,001582: 12,3245 02720 MAGVEC2
051467,001583: 12,3246 65301 NORM PDDL # PL AT 4
051468,001584: 12,3247 00047 X1
051469,001585: 12,3250 00041 R1
051470,001586: 12,3251 56342 SR1 DDV # PL AT 2
051471,001587: 12,3252 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
051472,001588: 12,3253 20173 0 -6,1
051473,001589: 12,3254 77626 STADR
051474,001590: 12,3255 75045 STORE CSTH # CSTH (+1)
051475,001591: 12,3256 44342 SR1 BDSU
051476,001592: 12,3257 10760 D1/4
051477,001593: 12,3260 02734 STORE 1-CSTH # 1-CSTH (+2)
051478,001594:
051479,001595: 12,3261 53106 ROUND BZE
051480,001596: 12,3262 25472 360LAMB
051481,001597: 12,3263 65301 NORM PDDL # PL AT 4
051482,001598: 12,3264 00047 X1
051483,001599: 12,3265 00001 0D
051484,001600: 12,3266 56342 SR1 DDV # PL AT 2
051485,001601: 12,3267 75457 SL* SQRT
051486,001602: 12,3270 20176 0 -3,1
051487,001603: 12,3271 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
051488,001604: 12,3272 02730 SNTH
051489,001605: 12,3273 20607 6
051490,001606: 12,3274 43271 DDV DAD # PL AT 2
051491,001607: 12,3275 02734 1-CSTH
051492,001608: 12,3276 77626 STADR
051493,001609: 12,3277 77760 STORE COGAMAX
051494,001610: 12,3300 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
051495,001611: 12,3301 25306 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
051496,001612: 12,3302 25311 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
051497,001613: 12,3303 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
|
|
Page 1190 |
051499,001615: 12,3304 11002 COGUPLIM
051500,001616: 12,3305 25311 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
051501,001617: 12,3306 77745 UPLIM DLOAD
051502,001618: 12,3307 11002 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
051503,001619: 12,3310 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
051504,001620: 12,3311 77745 MAXCOGA DLOAD
051505,001621: 12,3312 02732 CSTH
051506,001622: 12,3313 45261 SR DSU # PL AT 0
051507,001623: 12,3314 20607 6
051508,001624: 12,3315 77626 STADR
051509,001625: 12,3316 61041 STODL CSTH-RHO
051510,001626: 12,3317 02673 GEOMSGN
051511,001627: 12,3320 71240 BMN DLOAD
051512,001628: 12,3321 25512 LOLIM
051513,001629: 12,3322 02736 CSTH-RHO
051514,001630: 12,3323 56352 SL1 DDV
051515,001631: 12,3324 02730 SNTH
051516,001632: 12,3325 77600 BOV
051517,001633: 12,3326 25512 LOLIM
051518,001634: 12,3327 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
051519,001635: 12,3330 66214 BON SSP
051520,001636: 12,3331 00715 GUESSW
051521,001637: 12,3332 25476 NOGUESS
051522,001638: 12,3333 00051 TWEEKIT
051523,001639: 12,3334 00001 00001
051524,001640: 12,3335 77745 DLOAD
051525,001641: 12,3336 02766 COGA
051526,001642:
051527,001643:
051528,001644: 12,3337 77605 LAMBLOOP DMP
051529,001645: 12,3340 02730 SNTH
051530,001646: 12,3341 45342 SR1 DSU
051531,001647: 12,3342 02736 CSTH-RHO
051532,001648: 12,3343 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
051533,001649: 12,3344 00047 X1
051534,001650: 12,3345 02734 1-CSTH
051535,001651: 12,3346 56257 SL* DDV # 1-CSTH (+2) PL AT 0
051536,001652: 12,3347 20170 0 -9D,1
051537,001653: 12,3350 53040 BMN BZE
051538,001654: 12,3351 25426 NEGP
051539,001655: 12,3352 25426 NEGP
051540,001656: 12,3353 16740 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
051541,001657: 12,3354 02766 COGA
051542,001658: 12,3355 43316 DSQ DAD
051543,001659: 12,3356 10766 D1/1024
051544,001660: 12,3357 41301 NORM DMP
051545,001661: 12,3360 00047 X1
051546,001662: 12,3361 02740 P
051547,001663: 12,3362 44257 SR* BDSU
051548,001664: 12,3363 20571 0 -8D,1
|
|
Page 1191 |
051550,001666: 12,3364 10764 D1/32
051551,001667: 12,3365 16742 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
051552,001668: 12,3366 02740 P
051553,001669: 12,3367 45000 BOV CALL
051554,001670: 12,3370 25431 HIENERGY
051555,001671: 12,3371 25000 GETX
051556,001672: 12,3372 77745 DLOAD
051557,001673: 12,3373 00037 T
051558,001674: 12,3374 16762 STODL TPREV
051559,001675: 12,3375 00031 XI
051560,001676: 12,3376 45014 BON CALL
051561,001677: 12,3377 04310 INFINFLG
051562,001678: 12,3400 25426 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
051563,001679: 12,3401 24434 DELTIME
051564,001680: 12,3402 44200 BOV BDSU
051565,001681: 12,3403 25446 BIGTIME
051566,001682: 12,3404 02671 TDESIRED
051567,001683: 12,3405 02760 STORE TERRLAMB
051568,001684: 12,3406 44246 ABS BDSU
051569,001685: 12,3407 02764 EPSILONL
051570,001686: 12,3410 47044 BPL RTB
051571,001687: 12,3411 25515 INITV
051572,001688: 12,3412 24657 CHECKCTR
051573,001689: 12,3413 45030 BHIZ CALL
051574,001690: 12,3414 25457 SUFFCHEK
051575,001691: 12,3415 24551 ITERATOR
051576,001692: 12,3416 53145 DLOAD BZE
051577,001693: 12,3417 00155 MPAC
051578,001694: 12,3420 25457 SUFFCHEK
051579,001695: 12,3421 77615 DAD
051580,001696: 12,3422 02766 COGA
051581,001697: 12,3423 02766 STORE COGA
051582,001698: 12,3424 77650 GOTO
051583,001699: 12,3425 25337 LAMBLOOP
051584,001700:
051585,001701:
051586,001702: 12,3426 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
051587,001703: 12,3427 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
051588,001704: 12,3430 25451 LOENERGY
051589,001705:
051590,001706:
051591,001707: 12,3431 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
051592,001708: 12,3432 00001 0
051593,001709: 12,3433 02766 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
051594,001710: 12,3434 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
051595,001711: 12,3435 70545 COMMONLM DLOAD SR1
051596,001712: 12,3436 00015 DCOGA
051597,001713: 12,3437 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
051598,001714: 12,3440 44254 BZE BDSU
|
|
Page 1192 |
051600,001716: 12,3441 25457 SUFFCHEK
051601,001717: 12,3442 02766 COGA
051602,001718: 12,3443 02766 STORE COGA
051603,001719: 12,3444 77650 GOTO # RESTART THIS LOOP
051604,001720: 12,3445 25337 LAMBLOOP
051605,001721:
051606,001722:
051607,001723: 12,3446 77745 BIGTIME DLOAD
051608,001724: 12,3447 02762 TPREV
051609,001725: 12,3450 00037 STORE T
051610,001726:
051611,001727:
051612,001728: 12,3451 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
051613,001729: 12,3452 00001 0
051614,001730: 12,3453 02766 COGA # IN OVERFLOW OF TIME.
051615,001731: 12,3454 00017 STORE COGAMAX # THIS IS THE NEW BOUND.
051616,001732: 12,3455 77650 GOTO
051617,001733: 12,3456 25435 COMMONLM
051618,001734:
051619,001735:
051620,001736: 12,3457 51545 SUFFCHEK DLOAD ABS
051621,001737: 12,3460 02760 TERRLAMB
051622,001738: 12,3461 41325 PDDL DMP # PL AT 2D
051623,001739: 12,3462 02671 TDESIRED
051624,001740: 12,3463 10751 BEE17
051625,001741: 12,3464 45215 DAD DSU # PL AT 0D
051626,001742: 12,3465 11000 ONEBIT
051627,001743: 12,3466 43044 BPL SETGO
051628,001744: 12,3467 25515 INITV
051629,001745: 12,3470 02434 SOLNSW
051630,001746: 12,3471 25515 INITV
051631,001747: 12,3472 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
051632,001748: 12,3473 00001 0
051633,001749: 12,3474 02434 SOLNSW
051634,001750: 12,3475 02710 RTNLAMB
051635,001751:
051636,001752:
051637,001753: 12,3476 71331 NOGUESS SSP DLOAD
051638,001754: 12,3477 00051 TWEEKIT
051639,001755: 12,3500 10000 20000
051640,001756: 12,3501 00011 COGAMIN
051641,001757: 12,3502 65342 SR1 PDDL # PL AT 2
051642,001758: 12,3503 00017 COGAMAX
051643,001759: 12,3504 43342 SR1 DAD
051644,001760: 12,3505 77626 STADR # PL AT 0
051645,001761: 12,3506 75011 STORE COGA
051646,001762: 12,3507 00015 STORE DCOGA
051647,001763: 12,3510 77650 GOTO
051648,001764: 12,3511 25337 LAMBLOOP
051649,001765:
|
|
Page 1193 |
051651,001767: 12,3512 52145 LOLIM DLOAD GOTO
051652,001768: 12,3513 11004 COGLOLIM # COGLOLIM=-.999511597
051653,001769: 12,3514 25327 MINCOGA
051654,001770:
051655,001771:
051656,001772: 12,3515 60345 INITV DLOAD NORM
051657,001773: 12,3516 00041 R1
051658,001774: 12,3517 00047 X1
051659,001775: 12,3520 70525 PDDL SR1 # PL AT 2
051660,001776: 12,3521 02740 P
051661,001777: 12,3522 77671 DDV # PL AT 0
051662,001778: 12,3523 75457 SL* SQRT
051663,001779: 12,3524 20175 0 -4,1
051664,001780: 12,3525 72405 DMP SL1
051665,001781: 12,3526 00021 ROOTMU
051666,001782: 12,3527 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
051667,001783: 12,3530 02766 COGA
051668,001784: 12,3531 74261 SL VXSC
051669,001785: 12,3532 20206 5
051670,001786: 12,3533 02722 UR1
051671,001787: 12,3534 77725 PDDL # XCH WITH 0D PL AT 0,6
051672,001788: 12,3535 76561 VXSC VSL1
051673,001789: 12,3536 02674 UN
051674,001790: 12,3537 53235 VXV VAD # PL AT 0
051675,001791: 12,3540 02722 UR1
051676,001792: 12,3541 77772 VSL1
051677,001793: 12,3542 02744 STORE VVEC
051678,001794: 12,3543 53135 SLOAD BZE
051679,001795: 12,3544 02702 VTARGTAG
051680,001796: 12,3545 25550 TARGETV
051681,001797: 12,3546 77650 GOTO
051682,001798: 12,3547 02710 RTNLAMB
051683,001799:
051684,001800:
051685,001801: 12,3550 45145 TARGETV DLOAD CALL
051686,001802: 12,3551 02720 MAGVEC2
051687,001803: 12,3552 24714 LAMENTER
051688,001804: 12,3553 02703 STORE VTARGET
051689,001805: 12,3554 77650 GOTO
051690,001806: 12,3555 02710 RTNLAMB
051691,001807:
|
|
Page 1194 |
051693,001809: 12,3556 40220 TIMERAD STQ SETPD # PL AT 0
051694,001810: 12,3557 02710 RTNTR
051695,001811: 12,3560 00001 0
051696,001812: 12,3561 63375 VLOAD PDVL # PL AT 6
051697,001813: 12,3562 02655 RVEC
051698,001814: 12,3563 02744 VVEC
051699,001815: 12,3564 77624 CALL
051700,001816: 12,3565 11005 PARAM
051701,001817: 12,3566 71200 BOV DLOAD # PL AT 0
051702,001818: 12,3567 24775 COGAOVFL
051703,001819: 12,3570 10764 D1/32
051704,001820: 12,3571 41225 DSU DMP
051705,001821: 12,3572 02742 R1A
051706,001822: 12,3573 02740 P
051707,001823: 12,3574 41366 SQRT DMP
051708,001824: 12,3575 02766 COGA
051709,001825: 12,3576 74212 SL4 VXSC
051710,001826: 12,3577 02712 U2
051711,001827: 12,3600 45325 PDDL DSU # PL AT 6
051712,001828: 12,3601 10756 D1/64
051713,001829: 12,3602 02742 R1A
051714,001830: 12,3603 52361 VXSC VSU # PL AT 0
051715,001831: 12,3604 02722 UR1
051716,001832: 12,3605 53512 VSL4 UNIT
051717,001833: 12,3606 77600 BOV
051718,001834: 12,3607 25472 360LAMB # NO SOLUTION SINCE CONIC IS A CIRCLE
051719,001835: 12,3610 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
051720,001836: 12,3611 02756 RDESIRED # 36D=ECC (+3)
051721,001837: 12,3612 00047 X1
051722,001838: 12,3613 41325 PDDL DMP # PL AT 8
051723,001839: 12,3614 00041 R1
051724,001840: 12,3615 02740 P
051725,001841: 12,3616 56257 SL* DDV # PL AT 6
051726,001842: 12,3617 20201 0,1
051727,001843: 12,3620 56225 DSU DDV
051728,001844: 12,3621 10762 D1/16
051729,001845: 12,3622 00045 36D # 36D=ECC (+3)
051730,001846: 12,3623 00031 STORE COSF
051731,001847: 12,3624 63400 BOV DSQ
051732,001848: 12,3625 25665 BADR2
051733,001849: 12,3626 50021 BDSU BMN
051734,001850: 12,3627 10760 D1/4
051735,001851: 12,3630 25665 BADR2
051736,001852: 12,3631 75366 SQRT SIGN
051737,001853: 12,3632 02755 SGNRDOT
051738,001854: 12,3633 77614 CLEAR
051739,001855: 12,3634 04272 APSESW
051740,001856:
051741,001857: 12,3635 76561 TERMNVEC VXSC VSL1
051742,001858: 12,3636 02674 UN
|
|
Page 1195 |
051744,001860: 12,3637 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
051745,001861: 12,3640 00001 0D
051746,001862: 12,3641 53361 VXSC VAD # PL AT 0
051747,001863: 12,3642 00031 COSF
051748,001864: 12,3643 41572 VSL1 PUSH # 0D=U2 PL AT 6
051749,001865:
051750,001866: 12,3644 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
051751,001867: 12,3645 02722 UR1
051752,001868: 12,3646 23702 DP1/4
051753,001869: 12,3647 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
051754,001870: 12,3650 25651 +1 # CLEAR OVFIND IF SET
051755,001871: 12,3651 26732 STOVL CSTH # CSTH (+1)
051756,001872: 12,3652 02722 UR1
051757,001873: 12,3653 76435 VXV VSL1
051758,001874: 12,3654 72441 DOT SL1
051759,001875: 12,3655 02674 UN
051760,001876: 12,3656 16730 STODL SNTH # SNTH (+1)
051761,001877: 12,3657 02740 P
051762,001878: 12,3660 77624 CALL
051763,001879: 12,3661 25000 GETX
051764,001880: 12,3662 77614 CLRGO
051765,001881: 12,3663 02634 SOLNSW
051766,001882: 12,3664 24760 COMMNOUT
051767,001883:
051768,001884:
051769,001885: 12,3665 75345 BADR2 DLOAD SIGN
051770,001886: 12,3666 22273 LODPHALF
051771,001887: 12,3667 00031 COSF
051772,001888: 12,3670 14031 STODL COSF
051773,001889: 12,3671 22275 KEPZERO
051774,001890: 12,3672 77614 SETGO
051775,001891: 12,3673 04032 APSESW
051776,001892: 12,3674 25635 TERMNVEC
051777,001893: 12,3675 40220 APSIDES STQ SETPD # PL AT 0
051778,001894: 12,3676 02710 RTNAPSE
051779,001895: 12,3677 00001 0D
051780,001896: 12,3700 63375 VLOAD PDVL # PL AT 6
051781,001897: 12,3701 02655 RVEC
051782,001898: 12,3702 02744 VVEC
051783,001899: 12,3703 77624 CALL
051784,001900: 12,3704 11005 PARAM
051785,001901: 12,3705 77600 BOV # PL AT 0
051786,001902: 12,3706 25707 GETECC
051787,001903: 12,3707 42405 GETECC DMP SL4
051788,001904: 12,3710 02742 R1A
051789,001905: 12,3711 75421 BDSU SQRT
051790,001906: 12,3712 10756 D1/64
051791,001907: 12,3713 02752 STORE ECC
051792,001908: 12,3714 65215 DAD PDDL # PL AT 2
051793,001909: 12,3715 10752 D1/8
|
|
Page 1196 |
051795,001911: 12,3716 00041 R1
051796,001912: 12,3717 72405 DMP SL1
051797,001913: 12,3720 02740 P
051798,001914: 12,3721 77671 DDV # PL AT 0
051799,001915: 12,3722 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
051800,001916: 12,3723 02742 R1A
051801,001917: 12,3724 00047 X1
051802,001918: 12,3725 53725 PDDL SL* # PL AT 4
051803,001919: 12,3726 00041 R1
051804,001920: 12,3727 20174 0 -5,1
051805,001921: 12,3730 45271 DDV DSU # PL AT 2,0
051806,001922: 12,3731 50000 BOV BMN
051807,001923: 12,3732 25736 INFINAPO
051808,001924: 12,3733 25736 INFINAPO
051809,001925: 12,3734 77650 GOTO
051810,001926: 12,3735 02710 RTNAPSE
051811,001927: 12,3736 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
051812,001928: 12,3737 22306 LDPOSMAX
051813,001929: 12,3740 02710 RTNAPSE # THAT PL IS AT 0.
051814,001930:
|
|
Page 1197 |
051816,001932: 12,3741 11,2305 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
051817,001933:
051818,001934: # ERASABLE ASSIGNMENTS
051819,001935:
051820,001936:
051821,001937: # KEPLER SUBROUTINE
051822,001938:
051823,001939: # INPUT -
051824,001940: # RRECT ERASE +5
051825,001941: # VRECT ERASE +5
051826,001942: # TAU. ERASE +1
051827,001943: # XKEP ERASE +1
051828,001944: # TC ERASE +1
051829,001945: # XPREV ERASE +1
051830,001946: 12,3741 1/MU EQUALS 14D
051831,001947: 12,3741 ROOTMU EQUALS 16D
051832,001948: 12,3741 1/ROOTMU EQUALS 18D
051833,001949: # OUTPUT -
051834,001950: # RCV ERASE +5
051835,001951: # VCV ERASE +5
051836,001952: # RC ERASE +1
051837,001953: # XPREV ERASE +1
051838,001954:
051839,001955: # DEBRIS -
051840,001956: 12,3741 ALPHA EQUALS 8D
051841,001957: 12,3741 XMAX EQUALS 10D
051842,001958: 12,3741 XMIN EQUALS 12D
051843,001959: 12,3741 X EQUALS 20D
051844,001960: 12,3741 XI EQUALS 24D
051845,001961: 12,3741 S(XI) EQUALS 26D
051846,001962: 12,3741 XSQC(XI) EQUALS 28D
051847,001963: 12,3741 T EQUALS 30D
051848,001964: 12,3741 R1 EQUALS 32D
051849,001965: 12,3741 KEPC1 EQUALS 34D
051850,001966: 12,3741 KEPC2 EQUALS 36D
051851,001967: # DELX ERASE +1
051852,001968: # DELT ERASE +1
051853,001969: # URRECT ERASE +5
051854,001970: # RCNORM ERASE +1
051855,001971: # XPREV EQUALS XKEP
051856,001972:
051857,001973:
051858,001974: # LAMBERT SUBROUTINE
051859,001975:
051860,001976: # INPUT-
051861,001977: # R1VEC ERASE +5
051862,001978: # R2VEC ERASE +5
051863,001979: # TDESIRED ERASE +1
051864,001980: # GEOMSGN ERASE +0
051865,001981: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
|
|
Page 1198 |
051867,001983: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
051868,001984: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
051869,001985: # UN ERASE +5 ONLY USED IF NORMSW IS 1
051870,001986: # VTARGTAG ERASE +0
051871,001987: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
051872,001988:
051873,001989: # OUTPUT -
051874,001990: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
051875,001991: # V1VEC EQUALS MPAC
051876,001992:
051877,001993: # DEBRIS -
051878,001994: # RTNLAMB ERASE +0
051879,001995: # U2 ERASE +5
051880,001996: # MAGVEC2 ERASE +1
051881,001997: # UR1 ERASE +5
051882,001998: # R1 EQUALS 31D
051883,001999: # UN ERASE +5
051884,002000: # SNTH ERASE +1
051885,002001: # CSTH ERASE +1
051886,002002: # 1-CSTH ERASE +1
051887,002003: # CSTH-RHO ERASE +1
051888,002004: 12,3741 COGAMAX EQUALS 14D # CLOBBERS 1/MU
051889,002005: 12,3741 COGAMIN EQUALS 8D
051890,002006: 12,3741 DCOGA EQUALS 12D
051891,002007: # TWEEKIT EQUALS 40D
051892,002008: # P ERASE +1
051893,002009: # COGA ERASE +1
051894,002010: # R1A ERASE +1
051895,002011: # X EQUALS 20D
051896,002012: # XSQ EQUALS 22D
051897,002013: # XI EQUALS 24D
051898,002014: # S(XI) EQUALS 26D
051899,002015: # XSQC(XI) EQUALS 28D
051900,002016: # T EQUALS 30D
051901,002017: # KEPC1 EQUALS 34D
051902,002018: # KEPC2 EQUALS 36D
051903,002019: # SLOPESW
051904,002020: # SOLNSW
051905,002021: # OTHERS -
051906,002022:
051907,002023: # RVEC EQUALS R1VEC
051908,002024: # VVEC ERASE +5
051909,002025: # COGAFLAG
051910,002026: # RVSW
051911,002027: # INFINFLG
051912,002028: # APSESW
051913,002029: # 360SW
051914,002030: # RTNTT EQUALS RTNLAMB
051915,002031: # ECC ERASE +1
051916,002032: # RTNTR EQUALS RTNLAMB
|
|
Page 1199 |
051918,002034: # RTNAPSE EQUALS RTNLAMB
051919,002035: # R2 EQUALS MAGVEC2
051920,002036: 12,3741 COSF EQUALS 24D
051921,002037: # RTNPRM ERASE +0
051922,002038: # SGNRDOT ERASE +0
051923,002039: # RDESIRED ERASE +1
051924,002040:
051925,002041:
051926,002042: # ITERATOR SUBROUTINE
051927,002043:
051928,002044: # ORDERSW
051929,002045: 12,3741 MAX EQUALS 14D # CLOBBERS 1/MU
051930,002046: 12,3741 MIN EQUALS 8D
051931,002047: # INDEP ERASE +1
051932,002048: 12,3741 DELINDEP EQUALS 12D
051933,002049: 12,3741 ITERCTR EQUALS 22D
051934,002050: 12,3741 DEP EQUALS 30D
051935,002051: # DELDEP ERASE +1
051936,002052: # DEPREV ERASE +1
051937,002053: 12,3741 TWEEKIT EQUALS 40D
051938,002054:
051939,002055:
051940,002056: # MORE KEPLER
051941,002057:
051942,002058: # EPSILONT ERASE +1
051943,002059:
051944,002060:
051945,002061: # MORE LAMBERT
051946,002062:
051947,002063: # TERRLAMB EQUALS DELDEP
051948,002064: # TPREV EQUALS DEPREV
051949,002065:
051950,002066:
051951,002067: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc