Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
044547,000002: ## Copyright: Public domain.
044548,000003: ## Filename: CONIC_SUBROUTINES.agc
044549,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
044550,000005: ## It is part of the reconstructed source code for the Lunar
044551,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
044552,000007: ## No original listings of this program are available;
044553,000008: ## instead, this file was created via disassembly of dumps
044554,000009: ## of various revisions of Sundance core rope modules.
044555,000010: ## Assembler: yaYUL
044556,000011: ## Contact: Ron Burkey <info@sandroid.org>.
044557,000012: ## Website: www.ibiblio.org/apollo/index.html
044558,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
044559,000014:
044560,000015: ## Sundance 302
044561,000016:
044562,000017: # PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION DATE - 1 SEPTEMBER 1967
044563,000018: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
044564,000019: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
044565,000020:
044566,000021:
044567,000022: # FUNCTIONAL DESCRIPTION -
044568,000023:
044569,000024: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
044570,000025: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
044571,000026: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
044572,000027: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
044573,000028: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
044574,000029: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
044575,000030: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
044576,000031: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
044577,000032: # TINES APPROPRIATELY.
044578,000033: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
044579,000034: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
044580,000035: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
044581,000036:
044582,000037:
044583,000038: # RESTRICTIONS -
044584,000039:
044585,000040: # THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
044586,000041: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
044587,000042: # TORIES COULD BE HANDLED.
044588,000043: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
044589,000044: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
044590,000045: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
044591,000046:
044592,000047:
044593,000048: # PROGRAM DESCRIPTION - KEPLER SUBROUTINE DATE - 11 OCTOBER 1967
044594,000049: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
044595,000050: # MOD BY KRAUSE ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
044596,000051:
044597,000052:
044598,000053: # FUNCTIONAL DESCRIPTION -
044599,000054: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
044600,000055: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
044601,000056: # SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
044602,000057: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
044603,000058: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA-
044604,000059: # TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
044605,000060: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
044606,000061: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
044607,000062: # IF THE DESIRED TRANSFER TIME IS POSITIVE AND EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A MODULAR
044608,000063: # TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
044609,000064:
044610,000065:
044611,000066: # THE RESTRICTIONS ARE -
044612,000067: # 1. A NEGATIVE DESIRED TIME MUST BE LESS THAN ONE PERIOD IN MAGNITUDE. IF GREATER, THE ONE-PERIOD- SOLUTION
044613,000068: # WILL BE RETURNED.
044614,000069: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
044615,000070: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
044616,000071:
044617,000072:
044618,000073: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
044619,000074: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
044620,000075: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
044621,000076:
044622,000077:
044623,000078:
044624,000079: # REFERENCES -
044625,000080: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
044626,000081: # MEMO 67-4.
044627,000082:
044628,000083:
044629,000084:
044630,000085: # INPUT - ERASABLE INITIALIZATION REQUIRED
044631,000086:
044632,000087: # * SCALE FACTOR *
044633,000088: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044634,000089: # --------*--------------* -----------------------
044635,000090: # RRECT * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
044636,000091: # * +27 FOR MOON *
044637,000092: # VRECT * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
044638,000093: # * +5 FOR MOON *
044639,000094: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
044640,000095: # * *RESPECTIVELY, IS THE CENTRAL BODY
044641,000096: # TAU. * +28 *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
044642,000097: # XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP
044643,000098: # * +16 FOR MOON *(DP)
044644,000099: # TC * +28 *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP
044645,000100: # XPREV * +17 FOR EARTH*PREVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF POWER FROM KEPPREP (DP)
044646,000101: # * +16 FOR MOON *(DP)
044647,000102:
044648,000103:
044649,000104:
044650,000105: # SUBROUTINES CALLED -
044651,000106: # DELTIME
044652,000107:
044653,000108:
044654,000109:
044655,000110: # CALLING SEQUENCE AND NORMAL EXIT MODES -
044656,000111:
044657,000112: # KEPRTN-2 GOTO MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
044658,000113: # KEPRTN-1 KEPLER RETURNS WITH XPREV IN MPAC. PL IS AT 0.
044659,000114: # KEPRTN ... CONTINUE
044660,000115:
044661,000116: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
044662,000117: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
044663,000118: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
044664,000119:
044665,000120:
044666,000121:
044667,000122: # ABORT EXIT MODES -
044668,000123: # NONE
044669,000124:
044670,000125:
044671,000126:
044672,000127: # OUTPUT -
044673,000128:
044674,000129: # * SCALE FACTOR *
044675,000130: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044676,000131: # --------*--------------* -----------------------
044677,000132: # RCV * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
044678,000133: # * +27 FOR MOON *
044679,000134: # VCV * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
044680,000135: # * +5 FOR MOON *
044681,000136: # TC * +28 *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED.
044682,000137: # XPREV * +17 FOR EARTH*DP X IN METERS-TO-THE-ONE-HALF-POWER TO WHCIH KEPLER CONVERGED.
044683,000138: # * +16 FOR MOON *(DP)
044684,000139: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
044685,000140:
044686,000141:
044687,000142:
044688,000143: # DEBRIS -
044689,000144:
044690,000145: # PARAMETERS WHICH MAY BE OF USE -
044691,000146:
044692,000147: # * SCALE FACTOR *
044693,000148: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044694,000149: # --------*--------------* -----------------------
044695,000150: # URRECT * +1 *DP UNIT VECTOR OF INITIAL POSITION
044696,000151: # R1 * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
044697,000152: # * +27 FOR MOON *
044698,000153: # ALPHA * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
044699,000154: # * -20 FOR MOON *
044700,000155: # TMODULO * +28 *DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
044701,000156: # * *TAU. OF LESS THAN ONE PERIOD.
044702,000157:
044703,000158: # PARAMETERS OF NO USE -
044704,000159: # DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
044705,000160:
044706,000161:
044707,000162: # PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 1967
044708,000163: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
044709,000164: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
044710,000165:
044711,000166:
044712,000167:
044713,000168: # FUNCTIONAL DESCRIPTION -
044714,000169:
044715,000170: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
044716,000171: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
044717,000172: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE
044718,000173: # SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
044719,000174: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
044720,000175: # UTILIZED IN THE COMPUTATION.
044721,000176:
044722,000177:
044723,000178: # THE RESTRICTIONS ARE -
044724,000179: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
044725,000180: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
044726,000181: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
044727,000182: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
044728,000183: # 4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
044729,000184: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
044730,000185: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
044731,000186: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
044732,000187: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATE-
044733,000188: # LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
044734,000189:
044735,000190:
044736,000191:
044737,000192: # REFERENCES -
044738,000193: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
044739,000194: # SGA MEMO 67-4.
044740,000195:
044741,000196:
044742,000197:
044743,000198: # INPUT - ERASABLE INITIALIZATION REQUIRED
044744,000199:
044745,000200: # * SCALE FACTOR *
044746,000201: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044747,000202: # --------*--------------*-----------------------
044748,000203: # R1VEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
044749,000204: # * +27 FOR MOON *
044750,000205: # R2VEC * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
044751,000206: # * +27 FOR MOON *
044752,000207: # TDESIRED* +28 *DP DESIRED TRANSFER TIME IN CENTISECONDS
044753,000208: # X1 (38D)* NONE *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
044754,000209: # * *RESPECTIVELY, IS THE CENTRAL BODY
044755,000210: # GEOMSGN * NONE *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
044756,000211: # GUESSW * NONE *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
044757,000212: # * *COGA IS TO BE USED BY LAMBERT
044758,000213: # COGA * +5 *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
044759,000214: # *IGNORED IF GUESSW IS SET.
044760,000215: # NORMSW * NONE *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
044761,000216: # * *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
044762,000217: # UN * +1 *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
044763,000218: # * *MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
044764,000219: # VTARGTAG* NONE *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
044765,000220: # * *AT R1VEC.
044766,000221:
044767,000222:
044768,000223: # SUBROUTINES CALLED -
044769,000224: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
044770,000225:
044771,000226:
044772,000227:
044773,000228: # CALLING SEQUENCE AND NORMAL EXIT MODES -
044774,000229:
044775,000230: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
044776,000231: # L+1 LAMBERT RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
044777,000232: # IN MPAC IF VTARGTAG WAS ZERO
044778,000233: # L+2 BON CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
044779,000234: # L+3 SOLNSW
044780,000235: # L+4 LAMABORT
044781,000236: # IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
044782,000237: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
044783,000238:
044784,000239:
044785,000240:
044786,000241: # ABORT EXIT MODES -
044787,000242: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
044788,000243: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC. IN EITHER CASE THE FIX MUST BE MADE
044789,000244: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
044790,000245: # LAMABORT DLOAD ABS A MEASURE OF PROXIMITY TO 0 OR
044791,000246: # 1-CSTH 360 DEGREES.
044792,000247: # DSU BMN
044793,000248: # ONEBIT
044794,000249: # CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY.
044795,000250: # DLOAD DAD
044796,000251: # TDESIRED
044797,000252: # SOMETIME
044798,000253: # STCALL TDESIRED INCREASE TDESIRED
044799,000254: # LAMBERT
044800,000255:
044801,000256:
044802,000257: # OUTPUT -
044803,000258: # * SCALE FACTOR *
044804,000259: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044805,000260: # --------*--------------* -----------------------
044806,000261: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
044807,000262: # * +5 FOR MOON *PROBLEM.
044808,000263: # VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
044809,000264: # * +5 FOR MOON *
044810,000265: # SOLNSW * NONE *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
044811,000266: # * *SOLUTION EXISTS.
044812,000267: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
044813,000268:
044814,000269:
044815,000270:
044816,000271: # DEBRIS -
044817,000272: # PARAMETERS WHICH MAY BE OF USE -
044818,000273:
044819,000274: # * SCALE FACTOR *
044820,000275: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044821,000276: # --------*--------------* -----------------------
044822,000277: # SNTH * +1 *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
044823,000278: # CSTH * +1 *DP COSINE OF ANGLE
044824,000279: # 1-CSTH * +2 *DP 1-CSTH
044825,000280: # COGA * +5 *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
044826,000281: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
044827,000282: # R1A * +6 *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
044828,000283: # R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
044829,000284: # * +27 FOR MOON *
044830,000285: # UR1 * +1 *DP UNIT VECTOR OF R1VEC
044831,000286: # U2 * +1 *DP UNIT VECTOR OF R2VEC
044832,000287:
044833,000288: # PARAMETERS OF NO USE
044834,000289: # DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
044835,000290: # ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
044836,000291:
044837,000292:
044838,000293: # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967
044839,000294: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
044840,000295: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
044841,000296:
044842,000297:
044843,000298:
044844,000299: # FUNCTIONAL DESCRIPTION -
044845,000300:
044846,000301: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
044847,000302: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
044848,000303: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
044849,000304: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
044850,000305: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
044851,000306: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
044852,000307:
044853,000308:
044854,000309: # THE RESTRICTIONS ARE -
044855,000310: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
044856,000311: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
044857,000312: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
044858,000313: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
044859,000314:
044860,000315: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
044861,000316:
044862,000317:
044863,000318:
044864,000319: # REFERENCES -
044865,000320: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
044866,000321:
044867,000322:
044868,000323:
044869,000324: # INPUT - ERASABLE INITIALIZATION REQUIRED
044870,000325:
044871,000326: # * SCALE FACTOR *
044872,000327: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044873,000328: # --------*--------------* -----------------------
044874,000329: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
044875,000330: # * +27 FOR MOON *
044876,000331: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
044877,000332: # * +5 FOR MOON *
044878,000333: # SNTH * +1 *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
044879,000334: # CSTH * +1 *DP COSINE OF THE ANGLE
044880,000335: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
044881,000336: # * *IS TO BE COMPUTED ALSO.
044882,000337: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
044883,000338: # * *RESPECTIVELY, IS THE CENTRAL BODY.
044884,000339:
044885,000340:
044886,000341:
044887,000342: # SUBROUTINES CALLED -
044888,000343: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
044889,000344:
044890,000345:
044891,000346:
044892,000347: # CALLING SEQUENCE AND NORMAL EXIT MODES -
044893,000348:
044894,000349: # IF ONLY TIME IS DESIRED AS OUTPUT -
044895,000350: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
044896,000351: # L+1 RVSW
044897,000352: # L+2 TIMETHET RETURN WITH PL AT 0 AND T IN MPAC
044898,000353: # L+3 ... CONTINUE
044899,000354:
044900,000355:
044901,000356: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
044902,000357: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
044903,000358: # L+1 RVSW
044904,000359: # L+2 TIMETHET RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
044905,000360: # THE INITIAL VELOCITY VECTOR IN MPAC.
044906,000361: # L+3 STOVL NEWVVEC
044907,000362: # L+4 STADR
044908,000363: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
044909,000364: # L+6 ... CONTINUE
044910,000365:
044911,000366:
044912,000367:
044913,000368: # ABORT EXIT MODES -
044914,000369: # L CALL BON
044915,000370: # L+1 TIMETHET
044916,000371: # L+2 COGAFLAG
044917,000372: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
044918,000373: # L+4 BON IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS
044919,000374: # GOOD, SO CONTINUE
044920,000375: # L+5 INFINFLG
044921,000376: # L+6 IMPOSSBL NO SOLUTION EXISTS.
044922,000377:
044923,000378:
044924,000379:
044925,000380: # OUTPUT -
044926,000381: # * SCALE FACTOR *
044927,000382: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044928,000383: # --------*--------------* -----------------------
044929,000384: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
044930,000385: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
044931,000386: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
044932,000387: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
044933,000388: # * *CLEAR IF NOT.
044934,000389:
044935,000390: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
044936,000391: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
044937,000392: # MPAC +5* +5 FOR MOON *
044938,000393: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
044939,000394: # * +27 FOR MOON *
044940,000395:
044941,000396: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
044942,000397:
044943,000398:
044944,000399:
044945,000400: # DEBRIS -
044946,000401:
044947,000402: # PARAMETERS WHICH MAY BE OF USE -
044948,000403:
044949,000404: # * SCALE FACTOR *
044950,000405: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
044951,000406: # --------*--------------* -----------------------
044952,000407: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
044953,000408: # * +27 FOR MOON *
044954,000409: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
044955,000410: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
044956,000411: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
044957,000412: # UR1 * +1 *DP UNIT VECTOR OF RVEC
044958,000413: # U2 * +1 *DP UNIT VECTOR OF VVEC
044959,000414: # UN * +1 *DP UNIT VECTOR OF UR1*U2
044960,000415:
044961,000416:
044962,000417: # PARAMETERS OF NO USE -
044963,000418: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
044964,000419: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
044965,000420:
044966,000421:
044967,000422: # PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE DATE - 11 OCTOBER 1967
044968,000423: # MOD NO. -1 LOG SECTION - CONIC SUBROUTINES
044969,000424: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
044970,000425:
044971,000426:
044972,000427:
044973,000428: # FUNCTIONAL DESCRIPTION -
044974,000429:
044975,000430: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
044976,000431: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
044977,000432: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
044978,000433: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
044979,000434: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
044980,000435: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
044981,000436: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
044982,000437: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
044983,000438:
044984,000439:
044985,000440: # THE RESTRICTIONS ARE -
044986,000441: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
044987,000442: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
044988,000443: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
044989,000444: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
044990,000445: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
044991,000446: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
044992,000447: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
044993,000448:
044994,000449:
044995,000450: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
044996,000451:
044997,000452:
044998,000453:
044999,000454: # REFERENCES -
045000,000455: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
045001,000456:
045002,000457:
045003,000458:
045004,000459: # INPUT - ERASABLE INITIALIZATION REQUIRED
045005,000460:
045006,000461: # * SCALE FACTOR *
045007,000462: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045008,000463: # --------*--------------* -----------------------
045009,000464: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
045010,000465: # * +27 FOR MOON *
045011,000466: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
045012,000467: # * +5 FOR MOON *
045013,000468: # RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
045014,000469: # * +27 FOR MOON *COMPUTED.
045015,000470: # SGNRDOT * NONE *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
045016,000471: # * *POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
045017,000472: # * *SINGLE-VALUED PROBLEM.
045018,000473: # X1 (38D)* NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
045019,000474: # * *RESPECTIVELY, IS THE CENTRAL BODY.
045020,000475: # RVSW * NONE *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
045021,000476: # * *IS TO BE COMPUTED ALSO.
045022,000477:
045023,000478:
045024,000479:
045025,000480: # SUBROUTINES CALLED -
045026,000481: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
045027,000482:
045028,000483:
045029,000484:
045030,000485: # CALLING SEQUENCE AND NORMAL EXIT MODES -
045031,000486:
045032,000487: # IF ONLY TIME IS DESIRED AS OUTPUT -
045033,000488: # L SET CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
045034,000489: # L+1 RVSW
045035,000490: # L+2 TIMERAD RETURN WITH PL AT 0 AND T IN MPAC
045036,000491: # L+3 ... CONTINUE
045037,000492:
045038,000493: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
045039,000494: # L CLEAR CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
045040,000495: # L+1 RVSW
045041,000496: # L+2 TIMERAD RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
045042,000497: # THE INITIAL VELOCITY VECTOR IN MPAC.
045043,000498: # L+3 STOVL NEWVVEC
045044,000499: # L+4 STADR
045045,000500: # L+5 STORE NEWRVEC NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
045046,000501: # L+6 ... CONTINUE
045047,000502:
045048,000503:
045049,000504:
045050,000505: # ABORT EXIT MODES -
045051,000506: # L CALL BON
045052,000507: # L+1 TIMERAD
045053,000508: # L+2 COGAFLAG
045054,000509: # L+3 COGABORT RESTRICTION 1 HAS BEEN VIOLATED.
045055,000510: # L+4 BON BON
045056,000511: # L+5 INFINFLG
045057,000512: # L+6 IMPOSSBL NO SOLUTION EXISTS.
045058,000513: # L+7 SOLNSW
045059,000514: # L+8 IMPOSSBL SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE. RESTRICTION 3 HAS BEEN VIOLATED.
045060,000515: # L+9 ... IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE.
045061,000516:
045062,000517:
045063,000518:
045064,000519: # OUTPUT -
045065,000520: # * SCALE FACTOR *
045066,000521: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045067,000522: # --------*--------------* -----------------------
045068,000523: # T (30D) * +28 *DP TRANSFER TIME IN CENTISECONDS
045069,000524: # INFINFLG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
045070,000525: # * *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
045071,000526: # COGAFLAG* NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
045072,000527: # * *CLEAR IF NOT.
045073,000528: # APSESW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
045074,000529: # * *LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
045075,000530: # * *WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
045076,000531: # * *APOCENTER.
045077,000532: # SOLNSW * NONE *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
045078,000533: # *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
045079,000534: # *MINUS-18, THE SWITCH IS CLEAR.
045080,000535:
045081,000536:
045082,000537:
045083,000538: # IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
045084,000539:
045085,000540: # MPAC - * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
045086,000541: # MPAC +5* +5 FOR MOON *
045087,000542: # 0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
045088,000543: # * +27 FOR MOON *
045089,000544:
045090,000545: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
045091,000546:
045092,000547:
045093,000548:
045094,000549: # DEBRIS -
045095,000550:
045096,000551: # PARAMETERS WHICH MAY BE OF USE -
045097,000552:
045098,000553: # * SCALE FACTOR *
045099,000554: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045100,000555: # --------*--------------* -----------------------
045101,000556: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
045102,000557: # * +27 FOR MOON *
045103,000558: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
045104,000559: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
045105,000560: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
045106,000561: # UR1 * +1 *DP UNIT VECTOR OF RVEC
045107,000562: # U2 * +1 *DP UNIT VECTOR OF VVEC
045108,000563: # UN * +1 *DP UNIT VECTOR OF UR1*U2
045109,000564: # CSTH * +1 *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
045110,000565: # SNTH * +1 *DP SINE OF TRUE ANOMALY DIFFERENCE.
045111,000566:
045112,000567:
045113,000568: # PARAMETERS OF NO USE -
045114,000569: # SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
045115,000570: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
045116,000571:
045117,000572:
045118,000573: # PROGRAM DESCRIPTION - APSIDES SUBROUTINE DATE - 1 SEPTEMBER 1967
045119,000574: # MOD NO. - 0 LOG SECTION - CONIC SUBROUTINES
045120,000575: # MOD BY KRAUSE ASSEMBLY - COLOSSUS REVISION 88
045121,000576:
045122,000577:
045123,000578:
045124,000579: # FUNCTIONAL DESCRIPTION -
045125,000580:
045126,000581: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
045127,000582: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
045128,000583: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
045129,000584: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
045130,000585: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
045131,000586:
045132,000587:
045133,000588: # THE RESTRICTIONS ARE -
045134,000589: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
045135,000590: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
045136,000591: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
045137,000592: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
045138,000593:
045139,000594: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
045140,000595:
045141,000596:
045142,000597:
045143,000598: # REFERENCES -
045144,000599: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
045145,000600:
045146,000601:
045147,000602:
045148,000603: # INPUT - ERASABLE INITIALIZATION REQUIRED
045149,000604:
045150,000605: # * SCALE FACTOR *
045151,000606: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045152,000607: # --------*--------------* -----------------------
045153,000608: # RVEC * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
045154,000609: # * +27 FOR MOON *
045155,000610: # VVEC * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
045156,000611: # * +5 FOR MOON *
045157,000612: # X1 (38D)*NONE *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
045158,000613: # * *RESPECTIVELY, IS THE CENTRAL BODY.
045159,000614:
045160,000615:
045161,000616:
045162,000617: # SUBROUTINES CALLED -
045163,000618: # PARAM, GEOM
045164,000619:
045165,000620:
045166,000621:
045167,000622: # CALLING SEQUENCE AND NORMAL EXIT MODES -
045168,000623: # IF ONLY TIME IS DESIRED AS OUTPUT -
045169,000624: # L CALL MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR.
045170,000625: # L+1 APSIDES RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
045171,000626: # L+2 STODL APOAPSE
045172,000627: # L+3 0D
045173,000628: # L+4 STORE PERIAPSE APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
045174,000629: # L+5 ... CONTINUE
045175,000630:
045176,000631:
045177,000632:
045178,000633: # OUTPUT -
045179,000634: # * SCALE FACTOR *
045180,000635: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045181,000636: # --------*--------------* -----------------------
045182,000637: # MPAC * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
045183,000638: # * +27 FOR MOON *
045184,000639: # 0D-1D * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
045185,000640: # * +27 FOR MOON *
045186,000641: # ECC * +3 *DP ECCENTRICITY OF CONIC TRAJECTORY.
045187,000642:
045188,000643: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
045189,000644:
045190,000645:
045191,000646:
045192,000647: # DEBRIS -
045193,000648:
045194,000649: # PARAMETERS WHICH MAY BE OF USE -
045195,000650:
045196,000651: # * SCALE FACTOR *
045197,000652: # VARIABLE*IN POWERS OF 2* DESCRIPTION AND REMARKS
045198,000653: # --------*--------------* -----------------------
045199,000654: # R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
045200,000655: # * +27 FOR MOON *
045201,000656: # R1A * +6 *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
045202,000657: # P * +4 *DP RATIO OF SEMILATUS RECTUM TO R1
045203,000658: # COGA * +5 *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
045204,000659: # UR1 * +1 *DP UNIT VECTOR OF RVEC
045205,000660: # U2 * +1 *DP UNIT VECTOR OF VVEC
045206,000661: # UN * +1 *DP UNIT VECTOR OF UR1*U2
045207,000662: # MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
045208,000663: # * +5 FOR MOON *
045209,000664:
045210,000665:
045211,000666: # PARAMETERS OF NO USE -
045212,000667: # SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
045213,000668: # ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
045214,000669:
045215,000670:
045216,000671:
045217,000672: 12,2000 SETLOC CONICS
045218,000673: 12,2000 BANK
045219,000674:
045220,000675: 12,2000 COUNT* $$/CONIC
045221,000676: 12,2000 E5,1721 EBANK= UR1
045222,000677: 12,2000 71201 KEPLERN SETPD DLOAD
045223,000678: 12,2001 00001 0
045224,000679: 12,2002 22276 KEPZERO
045225,000680: 12,2003 02201 STORE XMODULO
045226,000681: 12,2004 32203 STOVL* TMODULO
045227,000682: 12,2005 10756 MUTABLE,1
045228,000683: 12,2006 24017 STOVL 14D
045229,000684: 12,2007 01503 RRECT
045230,000685: 12,2010 66256 UNIT SSP
045231,000686: 12,2011 00027 ITERCTR
045232,000687: 12,2012 00024 20D
045233,000688: 12,2013 16647 STODL URRECT
045234,000689: 12,2014 00045 36D
045235,000690: 12,2015 24041 STOVL R1
045236,000691: 12,2016 01503 RRECT
045237,000692: 12,2017 76441 DOT SL1R
045238,000693: 12,2020 01511 VRECT
045239,000694: 12,2021 76405 DMP SL1R
045240,000695: 12,2022 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
045241,000696: 12,2023 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
045242,000697:
045243,000698: 12,2024 01511 VRECT
045244,000699: 12,2025 57236 VSQ DMPR
045245,000700: 12,2026 00017 1/MU # 1/MU (-34 OR -28)
045246,000701: 12,2027 52405 DMP SL3
045247,000702: 12,2030 00041 R1
045248,000703: 12,2031 61425 DSU ROUND
045249,000704: 12,2032 10671 D1/64
045250,000705: 12,2033 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
045251,000706:
045252,000707: 12,2034 74421 BDSU SR1R
045253,000708: 12,2035 10671 D1/64
045254,000709: 12,2036 77671 DDV
045255,000710: 12,2037 00041 R1
045256,000711: 12,2040 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
045257,000712:
045258,000713:
045259,000714: 12,2041 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC
045260,000715: 12,2042 24051 1REV
045261,000716: 12,2043 10707 -50SC # -50SC (+12)
045262,000717: 12,2044 40071 DDV BOV
045263,000718: 12,2045 00011 ALPHA
045264,000719: 12,2046 24055 STOREMAX
045265,000720: 12,2047 52166 SQRT GOTO
045266,000721: 12,2050 24055 STOREMAX
045267,000722:
045268,000723: 12,2051 55366 1REV SQRT BDDV
045269,000724: 12,2052 10711 2PISC # 2PISC (+6)
045270,000725: 12,2053 77600 BOV
045271,000726: 12,2054 24055 STOREMAX
045272,000727: 12,2055 50165 STOREMAX SIGN BMN
045273,000728: 12,2056 02076 TAU.
045274,000729: 12,2057 24272 BACKWARD
045275,000730: 12,2060 00013 STORE XMAX
045276,000731: 12,2061 65205 DMP PDDL # PL AT 2
045277,000732: 12,2062 00023 1/ROOTMU
045278,000733: 12,2063 00011 ALPHA
045279,000734: 12,2064 65301 NORM PDDL # DXCH WITH 0D. 0D=ALPHA PL AT 0,2
045280,000735: 12,2065 00047 X1
045281,000736: 12,2066 56257 SL* DDV # PL AT 0
045282,000737: 12,2067 20173 0 -6,1
045283,000738: 12,2070 50000 PERIODCH BOV BMN
045284,000739: 12,2071 24112 MODDONE
045285,000740: 12,2072 24112 MODDONE
045286,000741: 12,2073 77606 PUSH # 0D=PERIOD (+28)
045287,000742: 12,2074 50021 BDSU BMN
045288,000743: 12,2075 02076 TAU.
045289,000744: 12,2076 24112 MODDONE
045290,000745: 12,2077 16076 STODL TAU.
045291,000746: 12,2100 00013 XMAX
045292,000747: 12,2101 77615 DAD
045293,000748: 12,2102 02201 XMODULO
045294,000749: 12,2103 16201 STODL XMODULO
045295,000750: 12,2104 00001 0D
045296,000751: 12,2105 77615 DAD
045297,000752: 12,2106 02203 TMODULO
045298,000753: 12,2107 16203 STODL TMODULO # PL AT 0
045299,000754: 12,2110 77650 GOTO
045300,000755: 12,2111 24070 PERIODCH
045301,000756:
045302,000757: 12,2112 71201 MODDONE SETPD DLOAD
045303,000758: 12,2113 00001 0
045304,000759: 12,2114 22276 KEPZERO
045305,000760: 12,2115 14015 STODL XMIN
045306,000761: 12,2116 02132 XKEPNEW
045307,000762: 12,2117 77625 DSU
045308,000763: 12,2120 02201 XMODULO
045309,000764: 12,2121 00025 STORE X
045310,000765: 12,2122 50054 BZE BMN
045311,000766: 12,2123 24265 BADX
045312,000767: 12,2124 24265 BADX
045313,000768: 12,2125 51025 DSU BPL
045314,000769: 12,2126 00013 XMAX
045315,000770: 12,2127 24265 BADX
045316,000771:
045317,000772: 12,2130 57345 DXCOMP DLOAD DMPR
045318,000773: 12,2131 02076 TAU.
045319,000774: 12,2132 10702 BEE22
045320,000775: 12,2133 77646 ABS
045321,000776: 12,2134 16205 STODL EPSILONT
045322,000777: 12,2135 01551 TC
045323,000778: 12,2136 45254 BZE DSU
045324,000779: 12,2137 24141 NEWTC
045325,000780: 12,2140 02203 TMODULO
045326,000781: 12,2141 15551 NEWTC STODL TC
045327,000782: 12,2142 01553 XPREV
045328,000783: 12,2143 45254 BZE DSU
045329,000784: 12,2144 24146 XDIFF
045330,000785: 12,2145 02201 XMODULO
045331,000786: 12,2146 77621 XDIFF BDSU
045332,000787: 12,2147 00025 X
045333,000788: 12,2150 02643 STORE DELX
045334,000789:
045335,000790:
045336,000791: 12,2151 63545 KEPLOOP DLOAD DSQ
045337,000792: 12,2152 00025 X # X=XKEP
045338,000793: 12,2153 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
045339,000794: 12,2154 00047 X1
045340,000795: 12,2155 53605 DMP SRR*
045341,000796: 12,2156 00011 ALPHA
045342,000797: 12,2157 21573 0 -6,1
045343,000798: 12,2160 34031 STCALL XI # XI=ALPHA XSQ (+6)
045344,000799: 12,2161 24421 DELTIME
045345,000800: 12,2162 44200 BOV BDSU
045346,000801: 12,2163 24312 TIMEOVFL # UNLIKELY
045347,000802: 12,2164 02076 TAU.
045348,000803: 12,2165 02645 STORE DELT # DELT=DELINDEP
045349,000804: 12,2166 44246 ABS BDSU
045350,000805: 12,2167 02205 EPSILONT
045351,000806: 12,2170 71244 BPL DLOAD
045352,000807: 12,2171 24327 KEPCONVG
045353,000808: 12,2172 00037 T
045354,000809: 12,2173 60225 DSU NORM
045355,000810: 12,2174 01551 TC
045356,000811: 12,2175 00047 X1
045357,000812: 12,2176 60325 PDDL NORM
045358,000813: 12,2177 02643 DELX
045359,000814: 12,2200 00050 X2
045360,000815: 12,2201 41260 XSU,1 DMP
045361,000816: 12,2202 00047 X2
045362,000817: 12,2203 02645 DELT
045363,000818: 12,2204 56257 SLR* DDV
045364,000819: 12,2205 21202 1,1
045365,000820: 12,2206 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
045366,000821: 12,2207 71244 BPL DLOAD
045367,000822: 12,2210 24231 POSDELX
045368,000823: 12,2211 00025 X
045369,000824: 12,2212 00013 STORE XMAX # MOVE MAX BOUND IN
045370,000825: 12,2213 45221 BDSU DSU # PL AT 0
045371,000826: 12,2214 00015 XMIN
045372,000827: 12,2215 51000 BOV BPL
045373,000828: 12,2216 24223 NDXCHNGE
045374,000829: 12,2217 24223 NDXCHNGE
045375,000830: 12,2220 52145 DLOAD GOTO
045376,000831: 12,2221 00001 0D
045377,000832: 12,2222 24243 NEWDELX
045378,000833:
045379,000834:
045380,000835: 12,2223 45345 NDXCHNGE DLOAD DSU
045381,000836: 12,2224 00015 XMIN
045382,000837: 12,2225 00025 X
045383,000838: 12,2226 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
045384,000839: 12,2227 10705 DP9/10
045385,000840: 12,2230 24243 NEWDELX
045386,000841:
045387,000842:
045388,000843: 12,2231 77745 POSDELX DLOAD
045389,000844: 12,2232 00025 X
045390,000845: 12,2233 00015 STORE XMIN # MOVE MIN BOUND IN
045391,000846: 12,2234 45221 BDSU DSU # PL AT 0
045392,000847: 12,2235 00013 XMAX
045393,000848: 12,2236 50000 BOV BMN
045394,000849: 12,2237 24257 PDXCHNGE
045395,000850: 12,2240 24257 PDXCHNGE
045396,000851: 12,2241 77745 DLOAD
045397,000852: 12,2242 00001 0D
045398,000853: 12,2243 02643 NEWDELX STORE DELX
045399,000854: 12,2244 43254 BZE DAD
045400,000855: 12,2245 24327 KEPCONVG
045401,000856: 12,2246 00025 X
045402,000857: 12,2247 14025 STODL X
045403,000858: 12,2250 00037 T
045404,000859: 12,2251 01551 STORE TC
045405,000860: 12,2252 46034 BRNCHCTR RTB BHIZ
045406,000861: 12,2253 24644 CHECKCTR
045407,000862: 12,2254 24327 KEPCONVG
045408,000863: 12,2255 77650 GOTO
045409,000864: 12,2256 24151 KEPLOOP # ITERATE
045410,000865:
045411,000866:
045412,000867: 12,2257 45345 PDXCHNGE DLOAD DSU
045413,000868: 12,2260 00013 XMAX
045414,000869: 12,2261 00025 X
045415,000870: 12,2262 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
045416,000871: 12,2263 10705 DP9/10
045417,000872: 12,2264 24243 NEWDELX
045418,000873:
045419,000874:
045420,000875: 12,2265 70545 BADX DLOAD SR1 # RECIPE EXCEEDED X BOUNDS - USE XMAX/2
045421,000876: 12,2266 00013 XMAX
045422,000877: 12,2267 00025 STORE X
045423,000878: 12,2270 77650 GOTO
045424,000879: 12,2271 24130 DXCOMP
045425,000880:
045426,000881:
045427,000882: 12,2272 14015 BACKWARD STODL XMIN
045428,000883: 12,2273 22276 KEPZERO
045429,000884: 12,2274 14013 STODL XMAX
045430,000885: 12,2275 02132 XKEPNEW
045431,000886: 12,2276 00025 STORE X
045432,000887: 12,2277 51054 BZE BPL
045433,000888: 12,2300 24305 BADBKWDX
045434,000889: 12,2301 24305 BADBKWDX
045435,000890: 12,2302 51025 DSU BPL
045436,000891: 12,2303 00015 XMIN
045437,000892: 12,2304 24130 DXCOMP
045438,000893: 12,2305 70545 BADBKWDX DLOAD SR1
045439,000894: 12,2306 00015 XMIN
045440,000895: 12,2307 00025 STORE X
045441,000896: 12,2310 77650 GOTO
045442,000897: 12,2311 24130 DXCOMP
045443,000898:
045444,000899:
045445,000900: 12,2312 77745 TIMEOVFL DLOAD
045446,000901: 12,2313 00025 X
045447,000902: 12,2314 00013 STORE XMAX
045448,000903: 12,2315 70545 CMNTOVFL DLOAD SR1
045449,000904: 12,2316 02643 DELX
045450,000905: 12,2317 02643 STORE DELX
045451,000906: 12,2320 77621 BDSU
045452,000907: 12,2321 00025 X
045453,000908: 12,2322 14025 STODL X
045454,000909: 12,2323 01551 TC
045455,000910: 12,2324 00037 STORE T
045456,000911: 12,2325 77650 GOTO
045457,000912: 12,2326 24151 KEPLOOP
045458,000913: 12,2327 44545 KEPCONVG DLOAD SR4R
045459,000914: 12,2330 00041 R1
045460,000915: 12,2331 74225 DSU VXSC
045461,000916: 12,2332 00035 XSQC(XI)
045462,000917: 12,2333 02647 URRECT
045463,000918: 12,2334 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
045464,000919: 12,2335 00025 X
045465,000920: 12,2336 60316 DSQ NORM
045466,000921: 12,2337 00047 X1
045467,000922: 12,2340 57275 DMPR DMPR
045468,000923: 12,2341 00023 1/ROOTMU
045469,000924: 12,2342 00025 X
045470,000925: 12,2343 53605 DMP SRR*
045471,000926: 12,2344 00033 S(XI)
045472,000927: 12,2345 21572 0 -7,1
045473,000928: 12,2346 77621 BDSU
045474,000929: 12,2347 00037 T
045475,000930: 12,2350 74352 SL1 VXSC
045476,000931: 12,2351 01511 VRECT
045477,000932: 12,2352 53372 VSL1 VAD # PL AT 0
045478,000933: 12,2353 77712 VSL4
045479,000934: 12,2354 01535 STORE RCV # RCV (+29 OR +27)
045480,000935:
045481,000936:
045482,000937: 12,2355 60246 ABVAL NORM
045483,000938: 12,2356 00050 X2
045484,000939: 12,2357 14043 STODL RCNORM
045485,000940: 12,2360 00031 XI
045486,000941: 12,2361 45275 DMPR DSU
045487,000942: 12,2362 00033 S(XI)
045488,000943: 12,2363 10667 D1/128
045489,000944: 12,2364 76405 DMP SL1R
045490,000945: 12,2365 00021 ROOTMU
045491,000946: 12,2366 53605 DMP SLR*
045492,000947: 12,2367 00025 X
045493,000948: 12,2370 56601 0 -3,2
045494,000949: 12,2371 74271 DDV VXSC
045495,000950: 12,2372 00043 RCNORM
045496,000951: 12,2373 02647 URRECT
045497,000952: 12,2374 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
045498,000953: 12,2375 00035 XSQC(XI) # OR +13) PL AT 6
045499,000954: 12,2376 56257 SLR* DDV
045500,000955: 12,2377 56602 0 -4,2
045501,000956: 12,2400 00043 RCNORM
045502,000957: 12,2401 74221 BDSU VXSC
045503,000958: 12,2402 10703 D1/256
045504,000959: 12,2403 01511 VRECT
045505,000960: 12,2404 42455 VAD VSL8
045506,000961: 12,2405 77626 STADR # PL AT 0
045507,000962: 12,2406 62234 STODL VCV # VCV (+7 OR +5)
045508,000963: 12,2407 00037 T
045509,000964: 12,2410 77615 DAD
045510,000965: 12,2411 02203 TMODULO
045511,000966: 12,2412 15551 STODL TC
045512,000967: 12,2413 00025 X
045513,000968: 12,2414 77615 DAD
045514,000969: 12,2415 02201 XMODULO
045515,000970: 12,2416 01553 STORE XPREV
045516,000971: 12,2417 77650 GOTO
045517,000972: 12,2420 02114 KEPRTN
045518,000973:
045519,000974: 12,2421 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
045520,000975: 12,2422 07176 TC POLY
045521,000976: 12,2423 00010 DEC 8 B-14
045522,000977: 12,2424 02525 12526 2DEC .083333334
045523,000978:
045524,000979: 12,2426 67356 75666 2DEC -.266666684
045525,000980:
045526,000981: 12,2430 15001 23771 2DEC .406349155
045527,000982:
045528,000983: 12,2432 64342 43674 2DEC -.361198675
045529,000984:
045530,000985: 12,2434 06563 04645 2DEC .210153242
045531,000986:
045532,000987: 12,2436 75173 52672 2DEC -.086221951
045533,000988:
045534,000989: 12,2440 00656 14331 2DEC .026268812
045535,000990:
045536,000991: 12,2442 77633 40512 2DEC -.006163316
045537,000992:
045538,000993: 12,2444 00023 11210 2DEC .001177342
045539,000994:
045540,000995: 12,2446 77774 67506 2DEC -.000199055
045541,000996:
045542,000997: 12,2450 06014 TC INTPRET
045543,000998: 12,2451 14033 STODL S(XI)
045544,000999: 12,2452 00031 XI
045545,001000: 12,2453 77776 EXIT
045546,001001: 12,2454 07176 TC POLY
045547,001002: 12,2455 00010 DEC 8 B-14
045548,001003: 12,2456 01000 00000 2DEC .031250001
045549,001004:
045550,001005: 12,2460 72525 52506 2DEC -.166666719
045551,001006:
045552,001007: 12,2462 13301 15337 2DEC .355555413
045553,001008:
045554,001009: 12,2464 62776 54733 2DEC -.406347410
045555,001010:
045556,001011: 12,2466 11176 13267 2DEC .288962094
045557,001012:
045558,001013: 12,2470 73410 51674 2DEC -.140117894
045559,001014:
045560,001015: 12,2472 01446 33641 2DEC .049247387
045561,001016:
045562,001017: 12,2474 77451 65233 2DEC -.013081923
045563,001018:
045564,001019: 12,2476 00055 37266 2DEC .002806389
045565,001020:
045566,001021: 12,2500 77767 52336 2DEC -.000529414
045567,001022:
045568,001023: 12,2502 06014 TC INTPRET
045569,001024: 12,2503 53605 DMP SRR* # PL AT 0
045570,001025: 12,2504 00001 0D
045571,001026: 12,2505 21574 0 -5,1
045572,001027: 12,2506 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
045573,001028: 12,2507 72405 DMP SL1
045574,001029: 12,2510 00043 KEPC1
045575,001030: 12,2511 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
045576,001031: 12,2512 21531 TPMODE # PL AT 0,3
045577,001032: 12,2513 53605 DMP SRR*
045578,001033: 12,2514 00033 S(XI)
045579,001034: 12,2515 21574 0 -5,1
045580,001035: 12,2516 72405 DMP SL1
045581,001036: 12,2517 00045 KEPC2
045582,001037: 12,2520 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
045583,001038: 12,2521 21531 TPMODE
045584,001039: 12,2522 00041 R1
045585,001040: 12,2523 76261 SR TAD # PL AT 3
045586,001041: 12,2524 20607 6
045587,001042: 12,2525 41301 NORM DMP # TO PRESERVE SIGNIF.
045588,001043: 12,2526 00047 X1
045589,001044: 12,2527 00025 X
045590,001045: 12,2530 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
045591,001046: 12,2531 20576 0 -3,1
045592,001047: 12,2532 57232 SL4R DMPR
045593,001048: 12,2533 00023 1/ROOTMU
045594,001049: 12,2534 00037 STORE T
045595,001050: 12,2535 77616 RVQ
045596,001051:
045597,001052: 12,2536 71214 ITERATOR BONCLR DLOAD
045598,001053: 12,2537 00614 SLOPESW
045599,001054: 12,2540 24606 FIRSTIME
045600,001055: 12,2541 00037 DEP
045601,001056: 12,2542 60225 DSU NORM
045602,001057: 12,2543 02762 DEPREV
045603,001058: 12,2544 00047 X1
045604,001059: 12,2545 60325 PDDL NORM
045605,001060: 12,2546 00015 DELINDEP
045606,001061: 12,2547 00050 X2
045607,001062: 12,2550 41260 XSU,1 DMP
045608,001063: 12,2551 00047 X2
045609,001064: 12,2552 02760 DELDEP
045610,001065: 12,2553 56257 SLR* DDV # PL UP 2
045611,001066: 12,2554 21202 1,1
045612,001067: 12,2555 43142 SR1 BOFF
045613,001068: 12,2556 04351 ORDERSW
045614,001069: 12,2557 24562 SGNCHECK
045615,001070: 12,2560 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
045616,001071: 12,2561 02760 DELDEP # DISREGARD IT TO FIND MIN.
045617,001072:
045618,001073: 12,2562 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
045619,001074: 12,2563 24620 POSDEL
045620,001075: 12,2564 43145 DLOAD BON
045621,001076: 12,2565 02766 INDEP
045622,001077: 12,2566 04311 ORDERSW
045623,001078: 12,2567 24571 MINCHECK
045624,001079: 12,2570 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
045625,001080:
045626,001081: 12,2571 45221 MINCHECK BDSU DSU
045627,001082: 12,2572 00011 MIN
045628,001083: 12,2573 51000 BOV BPL
045629,001084: 12,2574 24600 MODNGDEL
045630,001085: 12,2575 24600 MODNGDEL
045631,001086: 12,2576 77650 GOTO
045632,001087: 12,2577 24632 DELOK
045633,001088:
045634,001089:
045635,001090: 12,2600 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
045636,001091: 12,2601 00011 MIN
045637,001092: 12,2602 02766 INDEP
045638,001093: 12,2603 52005 DMP GOTO
045639,001094: 12,2604 10705 DP9/10
045640,001095: 12,2605 24634 NEWDEL
045641,001096:
045642,001097:
045643,001098: 12,2606 41345 FIRSTIME DLOAD DMP
045644,001099: 12,2607 00011 MIN
045645,001100: 12,2610 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
045646,001101: 12,2611 41325 PDDL DMP # S2(41D) SHOULDNT CONTAIN HI ORDER ONES
045647,001102: 12,2612 00017 MAX
045648,001103: 12,2613 00051 TWEEKIT
045649,001104: 12,2614 77625 DSU
045650,001105: 12,2615 52165 SIGN GOTO
045651,001106: 12,2616 02760 DELDEP
045652,001107: 12,2617 24562 SGNCHECK
045653,001108:
045654,001109:
045655,001110: 12,2620 43145 POSDEL DLOAD BON
045656,001111: 12,2621 02766 INDEP
045657,001112: 12,2622 04311 ORDERSW
045658,001113: 12,2623 24625 MAXCHECK
045659,001114: 12,2624 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
045660,001115:
045661,001116: 12,2625 45221 MAXCHECK BDSU DSU
045662,001117: 12,2626 00017 MAX
045663,001118: 12,2627 50000 BOV BMN
045664,001119: 12,2630 24636 MODPSDEL
045665,001120: 12,2631 24636 MODPSDEL
045666,001121: 12,2632 77745 DELOK DLOAD
045667,001122: 12,2633 00001 0D
045668,001123: 12,2634 00015 NEWDEL STORE DELINDEP
045669,001124: 12,2635 77616 RVQ
045670,001125:
045671,001126:
045672,001127: 12,2636 45345 MODPSDEL DLOAD DSU
045673,001128: 12,2637 00017 MAX
045674,001129: 12,2640 02766 INDEP
045675,001130: 12,2641 52005 DMP GOTO
045676,001131: 12,2642 10705 DP9/10
045677,001132: 12,2643 24634 NEWDEL
045678,001133:
045679,001134:
045680,001135: 12,2644 45026 CHECKCTR CS ONE
045681,001136: 12,2645 50120 INDEX FIXLOC
045682,001137: 12,2646 60026 AD ITERCTR
045683,001138: 12,2647 50120 INDEX FIXLOC
045684,001139: 12,2650 54026 TS ITERCTR
045685,001140: 12,2651 54154 TS MPAC
045686,001141: 12,2652 06035 TC DANZIG
045687,001142:
045688,001143: 12,2653 44545 NEWSTATE DLOAD SR4R
045689,001144: 12,2654 00041 R1
045690,001145: 12,2655 74225 DSU VXSC
045691,001146: 12,2656 00035 XSQC(XI)
045692,001147: 12,2657 02722 UR1
045693,001148: 12,2660 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
045694,001149: 12,2661 00025 X
045695,001150: 12,2662 60316 DSQ NORM
045696,001151: 12,2663 00047 X1
045697,001152: 12,2664 57275 DMPR DMPR
045698,001153: 12,2665 00023 1/ROOTMU
045699,001154: 12,2666 00025 X
045700,001155: 12,2667 53605 DMP SRR*
045701,001156: 12,2670 00033 S(XI)
045702,001157: 12,2671 21572 0 -7,1
045703,001158: 12,2672 77621 BDSU
045704,001159: 12,2673 00037 T
045705,001160: 12,2674 74352 SL1 VXSC
045706,001161: 12,2675 02744 VVEC
045707,001162: 12,2676 53372 VSL1 VAD # PL AT 0
045708,001163: 12,2677 41512 VSL4 PUSH
045709,001164: 12,2700 77646 ABVAL
045710,001165: 12,2701 77701 LAMENTER NORM
045711,001166: 12,2702 00047 X1
045712,001167: 12,2703 16720 STODL R2
045713,001168: 12,2704 00031 XI
045714,001169: 12,2705 45205 DMP DSU
045715,001170: 12,2706 00033 S(XI)
045716,001171: 12,2707 10667 D1/128
045717,001172: 12,2710 76405 DMP SL1R
045718,001173: 12,2711 00021 ROOTMU
045719,001174: 12,2712 53605 DMP SLR*
045720,001175: 12,2713 00025 X
045721,001176: 12,2714 21176 0 -3,1
045722,001177: 12,2715 74271 DDV VXSC
045723,001178: 12,2716 02720 R2
045724,001179: 12,2717 02722 UR1
045725,001180: 12,2720 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
045726,001181: 12,2721 00035 XSQC(XI)
045727,001182: 12,2722 56257 SLR* DDV
045728,001183: 12,2723 21175 0 -4,1
045729,001184: 12,2724 02720 R2
045730,001185: 12,2725 77621 BDSU
045731,001186: 12,2726 10703 D1/256
045732,001187: 12,2727 53361 VXSC VAD # PL AT 6
045733,001188: 12,2730 02744 VVEC
045734,001189: 12,2731 43412 VSL8 RVQ
045735,001190:
|
|
Sundance 292 |
045737,001192:
045738,001193: 04,2000 SETLOC CONICS1
045739,001194: 04,2000 BANK
045740,001195:
045741,001196: 04,2663 COUNT* $$/CONIC
045742,001197: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
045743,001198: 04,2663 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
045744,001199: 04,2664 04000 00000 D1/8 2DEC 1.0 B-3
045745,001200:
045746,001201: 04,2666 00200 00000 D1/128 2DEC 1.0 B-7
045747,001202:
045748,001203: 04,2670 00400 00000 D1/64 2DEC 1.0 B-6
045749,001204:
045750,001205: 04,2672 10000 00000 D1/4 2DEC 1.0 B-2
045751,001206:
045752,001207: 04,2674 02000 00000 D1/16 2DEC 1.0 B-4
045753,001208:
045754,001209: 04,2676 01000 00000 D1/32 2DEC 1.0 B-5
045755,001210:
045756,001211: 04,2700 00020 00000 D1/1024 2DEC 1.0 B-10
045757,001212:
045758,001213: 04,2702 00100 00000 D1/256 2DEC 1.0 B-8
045759,001214:
045760,001215: 04,2704 34631 23146 DP9/10 2DEC .9
045761,001216:
045762,001217: 04,2706 11,2275 KEPZERO EQUALS LO6ZEROS
045763,001218: 04,2706 77467 77777 -50SC 2DEC -50.0 B-12
045764,001219:
045765,001220: 04,2710 03110 17665 2PISC 2DEC 6.28318530 B-6
045766,001221:
045767,001222: 04,2712 04,2675 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
045768,001223: 04,2712 04,2701 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
045769,001224: 04,2712 00000 00001 ONEBIT 2DEC 1.0 B-28
045770,001225:
045771,001226: 04,2714 37767 37737 COGUPLIM 2DEC .999511597
045772,001227:
045773,001228: 04,2716 40010 40040 COGLOLIM 2DEC -.999511597
045774,001229:
|
|
Sundance 302 |
045776,001231:
045777,001232: 12,2000 SETLOC CONICS
045778,001233: 12,2000 BANK
045779,001234:
045780,001235: 12,2732 COUNT* $$/CONIC
045781,001236: 12,2732 40220 TIMETHET STQ SETPD # PL AT 0
045782,001237: 12,2733 02710 RTNTT
045783,001238: 12,2734 00001 0
045784,001239: 12,2735 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
045785,001240: 12,2736 02655 RVEC
045786,001241: 12,2737 02744 VVEC
045787,001242: 12,2740 77624 CALL
045788,001243: 12,2741 24765 PARAM
045789,001244: 12,2742 45000 BOV CALL # PL AT 0
045790,001245: 12,2743 24762 COGAOVFL
045791,001246: 12,2744 25031 GETX
045792,001247: 12,2745 43145 COMMNOUT DLOAD BON
045793,001248: 12,2746 00031 XI
045794,001249: 12,2747 04310 INFINFLG
045795,001250: 12,2750 02710 RTNTT
045796,001251: 12,2751 45014 CLEAR CALL
045797,001252: 12,2752 04273 COGAFLAG
045798,001253: 12,2753 24421 DELTIME
045799,001254: 12,2754 45014 BON CALL
045800,001255: 12,2755 03706 RVSW
045801,001256: 12,2756 02710 RTNTT
045802,001257: 12,2757 24653 NEWSTATE
045803,001258: 12,2760 77650 GOTO
045804,001259: 12,2761 02710 RTNTT
045805,001260:
045806,001261:
045807,001262: 12,2762 77614 COGAOVFL SETGO
045808,001263: 12,2763 04033 COGAFLAG
045809,001264: 12,2764 02710 RTNTT
045810,001265:
045811,001266: 12,2765 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
045812,001267: 12,2766 02753 RTNPRM
045813,001268: 12,2767 03665 NORMSW
045814,001269: 12,2770 77614 CLEAR
045815,001270: 12,2771 04273 COGAFLAG
045816,001271: 12,2772 45131 SSP CALL
045817,001272: 12,2773 02673 GEOMSGN
045818,001273: 12,2774 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
045819,001274: 12,2775 10720 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
045820,001275: 12,2776 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
045821,001276: 12,2777 56261 SR DDV
045822,001277: 12,3000 20606 5
045823,001278:
045824,001279: 12,3001 00045 36D
045825,001280: 12,3002 32766 STOVL* COGA
045826,001281: 12,3003 10756 MUTABLE,1
045827,001282: 12,3004 14017 STODL 1/MU
045828,001283: 12,3005 02720 MAGVEC2
045829,001284: 12,3006 60316 DSQ NORM
045830,001285: 12,3007 00047 X1
045831,001286: 12,3010 41275 DMPR DMP
045832,001287: 12,3011 00017 1/MU
045833,001288: 12,3012 00041 R1
045834,001289: 12,3013 77657 SRR*
045835,001290: 12,3014 21576 0 -3,1
045836,001291: 12,3015 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
045837,001292: 12,3016 10677 D1/32
045838,001293: 12,3017 16742 STODL R1A # R1A (+6) PL AT 0
045839,001294:
045840,001295: 12,3020 60205 DMP NORM
045841,001296: 12,3021 00045 36D
045842,001297: 12,3022 00047 X1
045843,001298: 12,3023 53605 DMP SR*
045844,001299: 12,3024 00045 36D
045845,001300: 12,3025 20575 0 -4,1
045846,001301: 12,3026 02740 STORE P # P (+4)
045847,001302: 12,3027 77650 GOTO
045848,001303: 12,3030 02753 RTNPRM
045849,001304:
|
|
Sundance 292 |
045851,001306:
045852,001307: 04,2720 BANK 4
045853,001308: 04,2000 SETLOC CONICS1
045854,001309: 04,2000 BANK
045855,001310: 04,2720 COUNT* $$/CONIC
045856,001311: 04,2720 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
045857,001312: 04,2721 16712 STODL U2 # U2 (+1)
045858,001313: 04,2722 00045 36D
045859,001314: 04,2723 26720 STOVL MAGVEC2 # PL AT 0
045860,001315: 04,2724 77656 UNIT
045861,001316: 04,2725 02722 STORE UR1 # UR1 (+1)
045862,001317: 04,2726 72441 DOT SL1
045863,001318: 04,2727 02712 U2
045864,001319: 04,2730 77725 PDDL # OD=CSTH (+1) PL AT 2
045865,001320: 04,2731 00045 36D
045866,001321: 04,2732 24041 STOVL R1 # R1 (+29 OR +27)
045867,001322: 04,2733 02722 UR1
045868,001323: 04,2734 76435 VXV VSL1
045869,001324: 04,2735 02712 U2
045870,001325: 04,2736 75214 BON SIGN
045871,001326: 04,2737 03705 NORMSW
045872,001327: 04,2740 10752 HAVENORM
045873,001328: 04,2741 02673 GEOMSGN
045874,001329: 04,2742 40056 UNIT BOV
045875,001330: 04,2743 10750 COLINEAR
045876,001331: 04,2744 16674 UNITNORM STODL UN # UN (+1)
045877,001332: 04,2745 00045 36D
045878,001333: 04,2746 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
045879,001334: 04,2747 02673 GEOMSGN
045880,001335:
045881,001336:
045882,001337: 04,2750 52162 COLINEAR VSR1 GOTO
045883,001338: 04,2751 10744 UNITNORM
045884,001339:
045885,001340:
045886,001341: 04,2752 75246 HAVENORM ABVAL SIGN
045887,001342: 04,2753 02673 GEOMSGN
045888,001343: 04,2754 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
045889,001344:
045890,001345:
045891,001346: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *************
045892,001347:
045893,001348: 04,2755 22437 16067 MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
045894,001349: 04,2757 15625 21042 2DEC* .25087606 E-10 B+34* # 1/MUE
045895,001350: 04,2761 30276 04773 2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
045896,001351: 04,2763 25004 06702 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
045897,001352:
045898,001353:
045899,001354: 04,2765 16471 01352 2DEC* 4.902778 E8 B-30* # MUM
045900,001355: 04,2767 21412 20500 2DEC* .203966 E-8 B+28* # 1/MUM
045901,001356:
045902,001357: 04,2771 25477 03367 2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
045903,001358: 04,2773 27533 07571 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
045904,001359:
|
|
Sundance 302 |
045906,001361:
045907,001362: 12,3031 BANK 12
045908,001363: 12,2000 SETLOC CONICS
045909,001364: 12,2000 BANK
045910,001365:
045911,001366: 12,3031 COUNT* $$/CONIC
045912,001367: 12,3031 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
045913,001368: 12,3032 00003 3
045914,001369: 12,3033 00052 S2
045915,001370: 12,3034 00001 1
045916,001371: 12,3035 77614 CLEAR
045917,001372: 12,3036 04276 360SW
045918,001373: 12,3037 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
045919,001374: 12,3040 02732 CSTH
045920,001375: 12,3041 44342 SR1 BDSU
045921,001376: 12,3042 10673 D1/4
045922,001377: 12,3043 54325 PDDL SRR # PL AT 4D
045923,001378: 12,3044 02730 SNTH
045924,001379: 12,3045 21607 6
045925,001380: 12,3046 77671 DDV # PL AT 2
045926,001381: 12,3047 77600 BOV
045927,001382: 12,3050 25164 360CHECK
045928,001383: 12,3051 41225 DSU DMP
045929,001384: 12,3052 02766 COGA # PL AT 0
045930,001385: 12,3053 40132 SL2R BOV
045931,001386: 12,3054 25164 360CHECK
045932,001387: 12,3055 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
045933,001388: 12,3056 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
045934,001389: 12,3057 00155 MPAC
045935,001390: 12,3060 02742 R1A
045936,001391: 12,3061 76202 SR4 TAD # PL AT 2
045937,001392: 12,3062 75440 BMN SQRT
045938,001393: 12,3063 25247 INFINITY
045939,001394: 12,3064 43306 ROUND DAD # PL AT 0D
045940,001395: 12,3065 61000 BOV TIX,2
045941,001396: 12,3066 25162 RESETX2
045942,001397: 12,3067 25055 WLOOP
045943,001398:
045944,001399:
045945,001400: 12,3070 40065 BDDV BOV
045946,001401: 12,3071 10667 D1/128
045947,001402: 12,3072 25247 INFINITY
045948,001403: 12,3073 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
045949,001404: 12,3074 25247 INFINITY
045950,001405: 12,3075 77716 DSQ
045951,001406: 12,3076 41301 NORM DMP
045952,001407: 12,3077 00047 X1
045953,001408: 12,3100 02742 R1A
045954,001409: 12,3101 77457 SRR* EXIT
045955,001410: 12,3102 21567 0 -10D,1
045956,001411: 12,3103 07176 TC POLY
045957,001412: 12,3104 00005 DEC 5 B-14
045958,001413: 12,3105 20000 00000 2DEC .5
045959,001414:
045960,001415: 12,3107 72525 52471 2DEC -.166666770
045961,001416:
045962,001417: 12,3111 03146 15003 2DEC .100000392
045963,001418:
045964,001419: 12,3113 75556 45210 2DEC -.071401086
045965,001420:
045966,001421: 12,3115 01615 13553 2DEC .055503292
045967,001422:
045968,001423: 12,3117 76371 63777 2DEC -.047264098
045969,001424:
045970,001425: 12,3121 01232 27367 2DEC .040694204
045971,001426:
045972,001427: 12,3123 06014 TC INTPRET
045973,001428: 12,3124 76405 DMP SL1R # PL AT 0D
045974,001429: 12,3125 43006 PUSH BON
045975,001430: 12,3126 04316 360SW
045976,001431: 12,3127 25234 TRUE360X
045977,001432: 12,3130 60316 XCOMMON DSQ NORM
045978,001433: 12,3131 00047 X1
045979,001434: 12,3132 53605 DMP SRR*
045980,001435: 12,3133 02742 R1A
045981,001436: 12,3134 21565 0 -12D,1
045982,001437: 12,3135 14031 STODL XI # XI (+6)
045983,001438:
045984,001439:
045985,001440: 12,3136 00041 R1
045986,001441: 12,3137 75542 SR1 SQRT
045987,001442: 12,3140 41306 ROUND DMP
045988,001443: 12,3141 77632 SL4R # PL AT 0
045989,001444: 12,3142 00025 STORE X # X (+17 OR +16)
045990,001445:
045991,001446:
045992,001447: 12,3143 60316 DSQ NORM
045993,001448: 12,3144 00047 X1
045994,001449: 12,3145 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
045995,001450: 12,3146 02740 P
045996,001451: 12,3147 00041 R1
045997,001452: 12,3150 75452 SL3 SQRT
045998,001453: 12,3151 56405 DMP SL3R
045999,001454: 12,3152 02766 COGA
046000,001455: 12,3153 14043 STODL KEPC1
046001,001456: 12,3154 02742 R1A
046002,001457: 12,3155 43021 BDSU CLEAR
046003,001458: 12,3156 10671 D1/64
046004,001459: 12,3157 04270 INFINFLG
046005,001460: 12,3160 00045 STORE KEPC2
046006,001461: 12,3161 77616 RVQ
046007,001462:
046008,001463: 12,3162 77774 RESETX2 AXT,2
046009,001464: 12,3163 00003 3
046010,001465:
046011,001466:
046012,001467: 12,3164 51001 360CHECK SETPD BPL
046013,001468: 12,3165 00001 0D
046014,001469: 12,3166 25171 INVRSEQN
046015,001470: 12,3167 77614 SET
046016,001471: 12,3170 04076 360SW
046017,001472:
046018,001473:
046019,001474: 12,3171 75545 INVRSEQN DLOAD SQRT
046020,001475: 12,3172 02740 P
046021,001476: 12,3173 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
046022,001477: 12,3174 02730 SNTH
046023,001478: 12,3175 02766 COGA
046024,001479: 12,3176 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
046025,001480: 12,3177 02732 CSTH
046026,001481: 12,3200 43202 SR4 DAD
046027,001482: 12,3201 10677 D1/32
046028,001483: 12,3202 41225 DSU DMP # PL AT 2,0
046029,001484: 12,3203 55301 NORM BDDV
046030,001485: 12,3204 00047 X1
046031,001486: 12,3205 02730 SNTH
046032,001487: 12,3206 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
046033,001488: 12,3207 21174 0 -5,1
046034,001489: 12,3210 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
046035,001490: 12,3211 14043 STODL 34D
046036,001491: 12,3212 10675 D1/16
046037,001492: 12,3213 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
046038,001493: 12,3214 65234 RTB PDDL # PL AT 7
046039,001494: 12,3215 21531 TPMODE
046040,001495: 12,3216 02742 R1A
046041,001496: 12,3217 40405 DMP SR4
046042,001497: 12,3220 00043 34D
046043,001498: 12,3221 77771 TAD # PL AT 4
046044,001499: 12,3222 75440 BMN SQRT
046045,001500: 12,3223 25247 INFINITY
046046,001501: 12,3224 77615 DAD # PL AT 2
046047,001502: 12,3225 60304 TIX,2 NORM
046048,001503: 12,3226 25213 1/WLOOP
046049,001504: 12,3227 00047 X1
046050,001505: 12,3230 77665 BDDV
046051,001506: 12,3231 52057 SLR* GOTO # PL AT 0
046052,001507: 12,3232 21172 0 -7,1
046053,001508: 12,3233 25073 POLYCOEF
046054,001509:
046055,001510:
046056,001511: 12,3234 50145 TRUE360X DLOAD BMN
046057,001512: 12,3235 02742 R1A
046058,001513: 12,3236 25247 INFINITY
046059,001514: 12,3237 60366 SQRT NORM
046060,001515: 12,3240 00047 X1
046061,001516: 12,3241 53665 BDDV SL*
046062,001517: 12,3242 10711 2PISC
046063,001518: 12,3243 20176 0 -3,1
046064,001519: 12,3244 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
046065,001520: 12,3245 77650 GOTO
046066,001521: 12,3246 25130 XCOMMON
046067,001522: 12,3247 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
046068,001523: 12,3250 00001 0 # INFINITY IS REQUIRED
046069,001524: 12,3251 25252 OVFLCLR
046070,001525: 12,3252 43414 OVFLCLR SET RVQ
046071,001526: 12,3253 04070 INFINFLG
046072,001527:
046073,001528: 12,3254 40220 LAMBERT STQ SETPD
046074,001529: 12,3255 02710 RTNLAMB
046075,001530: 12,3256 00001 0D
046076,001531: 12,3257 76614 CLEAR VLOAD*
046077,001532: 12,3260 02674 SOLNSW
046078,001533: 12,3261 10756 MUTABLE,1
046079,001534: 12,3262 14017 STODL 1/MU
046080,001535: 12,3263 02671 TDESIRED
046081,001536: 12,3264 77675 DMPR
046082,001537: 12,3265 10676 BEE19
046083,001538: 12,3266 02764 STORE EPSILONL
046084,001539: 12,3267 77214 SET VLOAD
046085,001540: 12,3270 00474 SLOPESW
046086,001541: 12,3271 02655 R1VEC
046087,001542: 12,3272 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
046088,001543: 12,3273 02663 R2VEC # MPAC=R2VEC (+29 OR +27)
046089,001544: 12,3274 10720 GEOM
046090,001545: 12,3275 16730 STODL SNTH # 0D=CSTH (+1) PL AT 2
046091,001546: 12,3276 02720 MAGVEC2
046092,001547: 12,3277 65301 NORM PDDL # PL AT 4
046093,001548: 12,3300 00047 X1
046094,001549: 12,3301 00041 R1
046095,001550: 12,3302 56342 SR1 DDV # PL AT 2
046096,001551: 12,3303 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
046097,001552: 12,3304 20173 0 -6,1
046098,001553: 12,3305 77626 STADR
046099,001554: 12,3306 75045 STORE CSTH # CSTH (+1)
046100,001555: 12,3307 44342 SR1 BDSU
046101,001556: 12,3310 10673 D1/4
046102,001557: 12,3311 02734 STORE 1-CSTH # 1-CSTH (+2)
046103,001558:
046104,001559: 12,3312 53106 ROUND BZE
046105,001560: 12,3313 25523 360LAMB
046106,001561: 12,3314 65301 NORM PDDL # PL AT 4
046107,001562: 12,3315 00047 X1
046108,001563: 12,3316 00001 0D
046109,001564: 12,3317 56342 SR1 DDV # PL AT 2
046110,001565: 12,3320 75457 SL* SQRT
046111,001566: 12,3321 20176 0 -3,1
046112,001567: 12,3322 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
046113,001568: 12,3323 02730 SNTH
046114,001569: 12,3324 20607 6
046115,001570: 12,3325 43271 DDV DAD # PL AT 2
046116,001571: 12,3326 02734 1-CSTH
046117,001572: 12,3327 77626 STADR
046118,001573: 12,3330 77760 STORE COGAMAX
046119,001574: 12,3331 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
046120,001575: 12,3332 25337 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
046121,001576: 12,3333 25342 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
046122,001577: 12,3334 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
046123,001578: 12,3335 10715 COGUPLIM
046124,001579: 12,3336 25342 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
046125,001580: 12,3337 77745 UPLIM DLOAD
046126,001581: 12,3340 10715 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
046127,001582: 12,3341 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
046128,001583: 12,3342 77745 MAXCOGA DLOAD
046129,001584: 12,3343 02732 CSTH
046130,001585: 12,3344 45261 SR DSU # PL AT 0
046131,001586: 12,3345 20607 6
046132,001587: 12,3346 77626 STADR
046133,001588: 12,3347 61041 STODL CSTH-RHO
046134,001589: 12,3350 02673 GEOMSGN
046135,001590: 12,3351 71240 BMN DLOAD
046136,001591: 12,3352 25543 LOLIM
046137,001592: 12,3353 02736 CSTH-RHO
046138,001593: 12,3354 56352 SL1 DDV
046139,001594: 12,3355 02730 SNTH
046140,001595: 12,3356 77600 BOV
046141,001596: 12,3357 25543 LOLIM
046142,001597: 12,3360 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
046143,001598: 12,3361 66214 BON SSP
046144,001599: 12,3362 00715 GUESSW
046145,001600: 12,3363 25527 NOGUESS
046146,001601: 12,3364 00051 TWEEKIT
046147,001602: 12,3365 00001 00001
046148,001603: 12,3366 77745 DLOAD
046149,001604: 12,3367 02766 COGA
046150,001605:
046151,001606:
046152,001607: 12,3370 77605 LAMBLOOP DMP
046153,001608: 12,3371 02730 SNTH
046154,001609: 12,3372 45342 SR1 DSU
046155,001610: 12,3373 02736 CSTH-RHO
046156,001611: 12,3374 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(X1)) PL=2
046157,001612: 12,3375 00047 X1
046158,001613: 12,3376 02734 1-CSTH
046159,001614: 12,3377 56257 SL* DDV # 1-CSTH (+2) PL AT 0
046160,001615: 12,3400 20170 0 -9D,1
046161,001616: 12,3401 53040 BMN BZE
046162,001617: 12,3402 25457 NEGP
046163,001618: 12,3403 25457 NEGP
046164,001619: 12,3404 16740 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
046165,001620: 12,3405 02766 COGA
046166,001621: 12,3406 43316 DSQ DAD
046167,001622: 12,3407 10701 D1/1024
046168,001623: 12,3410 41301 NORM DMP
046169,001624: 12,3411 00047 X1
046170,001625: 12,3412 02740 P
046171,001626: 12,3413 44257 SR* BDSU
046172,001627: 12,3414 20571 0 -8D,1
046173,001628: 12,3415 10677 D1/32
046174,001629: 12,3416 16742 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
046175,001630: 12,3417 02740 P
046176,001631: 12,3420 45000 BOV CALL
046177,001632: 12,3421 25462 HIENERGY
046178,001633: 12,3422 25031 GETX
046179,001634: 12,3423 77745 DLOAD
046180,001635: 12,3424 00037 T
046181,001636: 12,3425 16762 STODL TPREV
046182,001637: 12,3426 00031 XI
046183,001638: 12,3427 45014 BON CALL
046184,001639: 12,3430 04310 INFINFLG
046185,001640: 12,3431 25457 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
046186,001641: 12,3432 24421 DELTIME
046187,001642: 12,3433 44200 BOV BDSU
046188,001643: 12,3434 25477 BIGTIME
046189,001644: 12,3435 02671 TDESIRED
046190,001645: 12,3436 02760 STORE TERRLAMB
046191,001646: 12,3437 44246 ABS BDSU
046192,001647: 12,3440 02764 EPSILONL
046193,001648: 12,3441 47044 BPL RTB
046194,001649: 12,3442 25546 INITV
046195,001650: 12,3443 24644 CHECKCTR
046196,001651: 12,3444 45030 BHIZ CALL
046197,001652: 12,3445 25510 SUFFCHEK
046198,001653: 12,3446 24536 ITERATOR
046199,001654: 12,3447 53145 DLOAD BZE
046200,001655: 12,3450 00155 MPAC
046201,001656: 12,3451 25510 SUFFCHEK
046202,001657: 12,3452 77615 DAD
046203,001658: 12,3453 02766 COGA
046204,001659: 12,3454 02766 STORE COGA
046205,001660: 12,3455 77650 GOTO
046206,001661: 12,3456 25370 LAMBLOOP
046207,001662:
046208,001663:
046209,001664: 12,3457 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
046210,001665: 12,3460 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
046211,001666: 12,3461 25502 LOENERGY
046212,001667:
046213,001668:
046214,001669: 12,3462 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED
046215,001670: 12,3463 00001 0
046216,001671: 12,3464 02766 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
046217,001672: 12,3465 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
046218,001673: 12,3466 70545 COMMONLM DLOAD SR1
046219,001674: 12,3467 00015 DCOGA
046220,001675: 12,3470 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
046221,001676: 12,3471 44254 BZE BDSU
046222,001677: 12,3472 25510 SUFFCHEK
046223,001678: 12,3473 02766 COGA
046224,001679: 12,3474 02766 STORE COGA
046225,001680: 12,3475 77650 GOTO # RESTART THIS LOOP
046226,001681: 12,3476 25370 LAMBLOOP
046227,001682:
046228,001683:
046229,001684: 12,3477 77745 BIGTIME DLOAD
046230,001685: 12,3500 02762 TPREV
046231,001686: 12,3501 00037 STORE T
046232,001687:
046233,001688:
046234,001689: 12,3502 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
046235,001690: 12,3503 00001 0
046236,001691: 12,3504 02766 COGA # IN OVERFLOW OF TIME.
046237,001692: 12,3505 00017 STORE COGAMAX # THIS IS THE NEW BOUND.
046238,001693: 12,3506 77650 GOTO
046239,001694: 12,3507 25466 COMMONLM
046240,001695:
046241,001696:
046242,001697: 12,3510 51545 SUFFCHEK DLOAD ABS
046243,001698: 12,3511 02760 TERRLAMB
046244,001699: 12,3512 41325 PDDL DMP # PL AT 2D
046245,001700: 12,3513 02671 TDESIRED
046246,001701: 12,3514 10664 BEE17
046247,001702: 12,3515 45215 DAD DSU # PL AT 0D
046248,001703: 12,3516 10713 ONEBIT
046249,001704: 12,3517 43044 BPL SETGO
046250,001705: 12,3520 25546 INITV
046251,001706: 12,3521 02434 SOLNSW
046252,001707: 12,3522 25546 INITV
046253,001708: 12,3523 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
046254,001709: 12,3524 00001 0
046255,001710: 12,3525 02434 SOLNSW
046256,001711: 12,3526 02710 RTNLAMB
046257,001712:
046258,001713:
046259,001714: 12,3527 71331 NOGUESS SSP DLOAD
046260,001715: 12,3530 00051 TWEEKIT
046261,001716: 12,3531 10000 20000
046262,001717: 12,3532 00011 COGAMIN
046263,001718: 12,3533 65342 SR1 PDDL # PL AT 2
046264,001719: 12,3534 00017 COGAMAX
046265,001720: 12,3535 43342 SR1 DAD
046266,001721: 12,3536 77626 STADR # PL AT 0
046267,001722: 12,3537 75011 STORE COGA
046268,001723: 12,3540 00015 STORE DCOGA
046269,001724: 12,3541 77650 GOTO
046270,001725: 12,3542 25370 LAMBLOOP
046271,001726:
046272,001727: 12,3543 52145 LOLIM DLOAD GOTO
046273,001728: 12,3544 10717 COGLOLIM # COGLOLIM=-.999511597
046274,001729: 12,3545 25360 MINCOGA
046275,001730:
046276,001731:
046277,001732: 12,3546 60345 INITV DLOAD NORM
046278,001733: 12,3547 00041 R1
046279,001734: 12,3550 00047 X1
046280,001735: 12,3551 70525 PDDL SR1 # PL AT 2
046281,001736: 12,3552 02740 P
046282,001737: 12,3553 77671 DDV # PL AT 0
046283,001738: 12,3554 75457 SL* SQRT
046284,001739: 12,3555 20175 0 -4,1
046285,001740: 12,3556 72405 DMP SL1
046286,001741: 12,3557 00021 ROOTMU
046287,001742: 12,3560 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
046288,001743: 12,3561 02766 COGA
046289,001744: 12,3562 74261 SL VXSC
046290,001745: 12,3563 20206 5
046291,001746: 12,3564 02722 UR1
046292,001747: 12,3565 77725 PDDL # XCH WITH 0D PL AT 0,6
046293,001748: 12,3566 76561 VXSC VSL1
046294,001749: 12,3567 02674 UN
046295,001750: 12,3570 53235 VXV VAD # PL AT 0
046296,001751: 12,3571 02722 UR1
046297,001752: 12,3572 77772 VSL1
046298,001753: 12,3573 02744 STORE VVEC
046299,001754: 12,3574 53135 SLOAD BZE
046300,001755: 12,3575 02702 VTARGTAG
046301,001756: 12,3576 25601 TARGETV
046302,001757: 12,3577 77650 GOTO
046303,001758: 12,3600 02710 RTNLAMB
046304,001759:
046305,001760:
046306,001761: 12,3601 45145 TARGETV DLOAD CALL
046307,001762: 12,3602 02720 MAGVEC2
046308,001763: 12,3603 24701 LAMENTER
046309,001764: 12,3604 02703 STORE VTARGET
046310,001765: 12,3605 77650 GOTO
046311,001766: 12,3606 02710 RTNLAMB
046312,001767:
046313,001768: 12,3607 40220 TIMERAD STQ SETPD # PL AT 0
046314,001769: 12,3610 02710 RTNTR
046315,001770: 12,3611 00001 0
046316,001771: 12,3612 63375 VLOAD PDVL # PL AT 6
046317,001772: 12,3613 02655 RVEC
046318,001773: 12,3614 02744 VVEC
046319,001774: 12,3615 77624 CALL
046320,001775: 12,3616 24765 PARAM
046321,001776: 12,3617 71200 BOV DLOAD # PL AT 0
046322,001777: 12,3620 24762 COGAOVFL
046323,001778: 12,3621 10677 D1/32
046324,001779: 12,3622 41225 DSU DMP
046325,001780: 12,3623 02742 R1A
046326,001781: 12,3624 02740 P
046327,001782: 12,3625 41366 SQRT DMP
046328,001783: 12,3626 02766 COGA
046329,001784: 12,3627 74212 SL4 VXSC
046330,001785: 12,3630 02712 U2
046331,001786: 12,3631 45325 PDDL DSU # PL AT 6
046332,001787: 12,3632 10671 D1/64
046333,001788: 12,3633 02742 R1A
046334,001789: 12,3634 52361 VXSC VSU # PL AT 0
046335,001790: 12,3635 02722 UR1
046336,001791: 12,3636 53512 VSL4 UNIT
046337,001792: 12,3637 77600 BOV
046338,001793: 12,3640 25523 360LAMB # NO SOLUTION SINCE CONIC IS A CIRCLE
046339,001794: 12,3641 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
046340,001795: 12,3642 02756 RDESIRED # 36D=ECC (+3)
046341,001796: 12,3643 00047 X1
046342,001797: 12,3644 41325 PDDL DMP # PL AT 8
046343,001798: 12,3645 00041 R1
046344,001799: 12,3646 02740 P
046345,001800: 12,3647 56257 SL* DDV # PL AT 6
046346,001801: 12,3650 20201 0,1
046347,001802: 12,3651 56225 DSU DDV
046348,001803: 12,3652 10675 D1/16
046349,001804: 12,3653 00045 36D # 36D=ECC (+3)
046350,001805: 12,3654 00031 STORE COSF
046351,001806: 12,3655 63400 BOV DSQ
046352,001807: 12,3656 25716 BADR2
046353,001808: 12,3657 50021 BDSU BMN
046354,001809: 12,3660 10673 D1/4
046355,001810: 12,3661 25716 BADR2
046356,001811: 12,3662 75366 SQRT SIGN
046357,001812: 12,3663 02755 SGNRDOT
046358,001813: 12,3664 77614 CLEAR
046359,001814: 12,3665 04272 APSESW
046360,001815:
046361,001816: 12,3666 76561 TERMNVEC VXSC VSL1
046362,001817: 12,3667 02674 UN
046363,001818: 12,3670 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
046364,001819: 12,3671 00001 0D
046365,001820: 12,3672 53361 VXSC VAD # PL AT 0
046366,001821: 12,3673 00031 COSF
046367,001822: 12,3674 41572 VSL1 PUSH # 0D=U2 PL AT 6
046368,001823:
046369,001824: 12,3675 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
046370,001825: 12,3676 02722 UR1
046371,001826: 12,3677 23676 DP1/4
046372,001827: 12,3700 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
046373,001828: 12,3701 25702 +1 # CLEAR OVFIND IF SET
046374,001829: 12,3702 26732 STOVL CSTH # CSTH (+1)
046375,001830: 12,3703 02722 UR1
046376,001831: 12,3704 76435 VXV VSL1
046377,001832: 12,3705 72441 DOT SL1
046378,001833: 12,3706 02674 UN
046379,001834: 12,3707 16730 STODL SNTH # SNTH (+1)
046380,001835: 12,3710 02740 P
046381,001836: 12,3711 77624 CALL
046382,001837: 12,3712 25031 GETX
046383,001838: 12,3713 77614 CLRGO
046384,001839: 12,3714 02634 SOLNSW
046385,001840: 12,3715 24745 COMMNOUT
046386,001841:
046387,001842:
046388,001843: 12,3716 75345 BADR2 DLOAD SIGN
046389,001844: 12,3717 22274 LODPHALF
046390,001845: 12,3720 00031 COSF
046391,001846: 12,3721 14031 STODL COSF
046392,001847: 12,3722 22276 KEPZERO
046393,001848: 12,3723 77614 SETGO
046394,001849: 12,3724 04032 APSESW
046395,001850: 12,3725 25666 TERMNVEC
046396,001851: 12,3726 40220 APSIDES STQ SETPD # PL AT 0
046397,001852: 12,3727 02710 RTNAPSE
046398,001853: 12,3730 00001 0D
046399,001854: 12,3731 63375 VLOAD PDVL # PL AT 6
046400,001855: 12,3732 02655 RVEC
046401,001856: 12,3733 02744 VVEC
046402,001857: 12,3734 77624 CALL
046403,001858: 12,3735 24765 PARAM
046404,001859: 12,3736 77600 BOV # PL AT 0
046405,001860: 12,3737 25740 GETECC
046406,001861: 12,3740 42405 GETECC DMP SL4
046407,001862: 12,3741 02742 R1A
046408,001863: 12,3742 75421 BDSU SQRT
046409,001864: 12,3743 10671 D1/64
046410,001865: 12,3744 02752 STORE ECC
046411,001866: 12,3745 65215 DAD PDDL # PL AT 2
046412,001867: 12,3746 10665 D1/8
046413,001868: 12,3747 00041 R1
046414,001869: 12,3750 72405 DMP SL1
046415,001870: 12,3751 02740 P
046416,001871: 12,3752 77671 DDV # PL AT 0
046417,001872: 12,3753 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
046418,001873: 12,3754 02742 R1A
046419,001874: 12,3755 00047 X1
046420,001875: 12,3756 53725 PDDL SL* # PL AT 4
046421,001876: 12,3757 00041 R1
046422,001877: 12,3760 20174 0 -5,1
046423,001878: 12,3761 45271 DDV DSU # PL AT 2,0
046424,001879: 12,3762 50000 BOV BMN
046425,001880: 12,3763 25767 INFINAPO
046426,001881: 12,3764 25767 INFINAPO
046427,001882: 12,3765 77650 GOTO
046428,001883: 12,3766 02710 RTNAPSE
046429,001884: 12,3767 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
046430,001885: 12,3770 22307 LDPOSMAX
046431,001886: 12,3771 02710 RTNAPSE # THAT PL IS AT 0.
046432,001887:
046433,001888: 12,3772 11,2306 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
046434,001889:
046435,001890: # ERASABLE ASSIGNMENTS
046436,001891:
046437,001892:
046438,001893: # KEPLER SUBROUTINE
046439,001894:
046440,001895: # INPUT -
046441,001896: # RRECT ERASE +5
046442,001897: # VRECT ERASE +5
046443,001898: # TAU. ERASE +1
046444,001899: # XKEP ERASE +1
046445,001900: # TC ERASE +1
046446,001901: # XPREV ERASE +1
046447,001902: 12,3772 1/MU EQUALS 14D
046448,001903: 12,3772 ROOTMU EQUALS 16D
046449,001904: 12,3772 1/ROOTMU EQUALS 18D
046450,001905: # OUTPUT -
046451,001906: # RCV ERASE +5
046452,001907: # VCV ERASE +5
046453,001908: # RC ERASE +1
046454,001909: # XPREV ERASE +1
046455,001910:
046456,001911: # DEBRIS -
046457,001912: 12,3772 ALPHA EQUALS 8D
046458,001913: 12,3772 XMAX EQUALS 10D
046459,001914: 12,3772 XMIN EQUALS 12D
046460,001915: 12,3772 X EQUALS 20D
046461,001916: 12,3772 XI EQUALS 24D
046462,001917: 12,3772 S(XI) EQUALS 26D
046463,001918: 12,3772 XSQC(XI) EQUALS 28D
046464,001919: 12,3772 T EQUALS 30D
046465,001920: 12,3772 R1 EQUALS 32D
046466,001921: 12,3772 KEPC1 EQUALS 34D
046467,001922: 12,3772 KEPC2 EQUALS 36D
046468,001923: # DELX ERASE +1
046469,001924: # DELT ERASE +1
046470,001925: # URRECT ERASE +5
046471,001926: # RCNORM ERASE +1
046472,001927: # XPREV EQUALS XKEP
046473,001928:
046474,001929:
046475,001930: # LAMBERT SUBROUTINE
046476,001931:
046477,001932: # INPUT-
046478,001933: # R1VEC ERASE +5
046479,001934: # R2VEC ERASE +5
046480,001935: # TDESIRED ERASE +1
046481,001936: # GEOMSGN ERASE +0
046482,001937: # GUESSW 0 IF COGA GUESS AVAILABLE, 1 IF NOT
046483,001938: # COGA ERASE +1 INPUT ONLY IF GUESSW IS ZERO.
046484,001939: # NORMSW 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
046485,001940: # UN ERASE +5 ONLY USED IF NORMSW IS 1
046486,001941: # VTARGTAG ERASE +0
046487,001942: # TWEEKIT EQUALS 40D ONLY USED IF GUESSW IS 0
046488,001943:
046489,001944: # OUTPUT -
046490,001945: # VTARGET ERASE +5 AVAILABLE ONLY IF VTARGTAG IS ZERO.
046491,001946: # V1VEC EQUALS MPAC
046492,001947:
046493,001948: # DEBRIS -
046494,001949: # RTNLAMB ERASE +0
046495,001950: # U2 ERASE +5
046496,001951: # MAGVEC2 ERASE +1
046497,001952: # UR1 ERASE +5
046498,001953: # R1 EQUALS 31D
046499,001954: # UN ERASE +5
046500,001955: # SNTH ERASE +1
046501,001956: # CSTH ERASE +1
046502,001957: # 1-CSTH ERASE +1
046503,001958: # CSTH-RHO ERASE +1
046504,001959: 12,3772 COGAMAX EQUALS 14D # CLOBBERS 1/MU
046505,001960: 12,3772 COGAMIN EQUALS 8D
046506,001961: 12,3772 DCOGA EQUALS 12D
046507,001962: # TWEEKIT EQUALS 40D
046508,001963: # P ERASE +1
046509,001964: # COGA ERASE +1
046510,001965: # R1A ERASE +1
046511,001966: # X EQUALS 20D
046512,001967: # XSQ EQUALS 22D
046513,001968: # XI EQUALS 24D
046514,001969: # S(XI) EQUALS 26D
046515,001970: # XSQC(XI) EQUALS 28D
046516,001971: # T EQUALS 30D
046517,001972: # KEPC1 EQUALS 34D
046518,001973: # KEPC2 EQUALS 36D
046519,001974: # SLOPESW
046520,001975: # SOLNSW
046521,001976: # OTHERS -
046522,001977:
046523,001978: # RVEC EQUALS R1VEC
046524,001979: # VVEC ERASE +5
046525,001980: # COGAFLAG
046526,001981: # RVSW
046527,001982: # INFINFLG
046528,001983: # APSESW
046529,001984: # 360SW
046530,001985: # RTNTT EQUALS RTNLAMB
046531,001986: # ECC ERASE +1
046532,001987: # RTNTR EQUALS RTNLAMB
046533,001988: # RTNAPSE EQUALS RTNLAMB
046534,001989: # R2 EQUALS MAGVEC2
046535,001990: 12,3772 COSF EQUALS 24D
046536,001991: # RTNPRM ERASE +0
046537,001992: # SGNRDOT ERASE +0
046538,001993: # RDESIRED ERASE +1
046539,001994:
046540,001995:
046541,001996: # ITERATOR SUBROUTINE
046542,001997:
046543,001998: # ORDERSW
046544,001999: 12,3772 MAX EQUALS 14D # CLOBBERS 1/MU
046545,002000: 12,3772 MIN EQUALS 8D
046546,002001: # INDEP ERASE +1
046547,002002: 12,3772 DELINDEP EQUALS 12D
046548,002003: 12,3772 ITERCTR EQUALS 22D
046549,002004: 12,3772 DEP EQUALS 30D
046550,002005: # DELDEP ERASE +1
046551,002006: # DEPREV ERASE +1
046552,002007: 12,3772 TWEEKIT EQUALS 40D
046553,002008:
046554,002009:
046555,002010: # MORE KEPLER
046556,002011:
046557,002012: # EPSILONT ERASE +1
046558,002013:
046559,002014:
046560,002015: # MORE LAMBERT
046561,002016:
046562,002017: # TERRLAMB EQUALS DELDEP
046563,002018: # TPREV EQUALS DEPREV
046564,002019:
046565,002020:
046566,002021: # EPSILONL EQUALS EPSILONT +2 DOUBLE PRECISION WORD
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc