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