Source Code
047752,000001: # Copyright: Public domain.
047753,000002: # Filename: CONIC_SUBROUTINES.agc
047754,000003: # Purpose: A section of Luminary 1C, revision 131.
047755,000004: # It is part of the source code for the Lunar Module's (LM)
047756,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
047757,000006: # This file is intended to be a faithful transcription, except
047758,000007: # that the code format has been changed to conform to the
047759,000008: # requirements of the yaYUL assembler rather than the
047760,000009: # original YUL assembler.
047761,000010: # Reference: pp. 1158-1202 of 1729.pdf.
047762,000011: # Contact: Ron Burkey <info@sandroid.org>.
047763,000012: # Website: www.ibiblio.org/apollo/index.html
047764,000013: # Mod history: 06/01/03 RSB. Began transcribing.
047765,000014: # 05/14/05 RSB Corrected website reference above.
047766,000015:
047767,000016: # Page 1158
047768,000017: # PROGRAM DESCRIPTION -- ENTIRE CONIC SUBROUTINE LOG SECTION DATE -- 1 SEPTEMBER 1967
047769,000018: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
047770,000019: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
047771,000020:
047772,000021: # FUNCTIONAL DESCRIPTION --
047773,000022: # THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
047774,000023: # INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
047775,000024: # 5.5.1.2. A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
047776,000025: # RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
047777,000026: # INVOLVING ANY REALISTIC SET OF CONSTRAINTS. IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
047778,000027: # EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
047779,000028: # THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINES IN MISSION PROGRAMMING
047780,000029: # DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROUTINES
047781,000030: # APPROPRIATELY.
047782,000031:
047783,000032: # DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
047784,000033: # BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
047785,000034: # DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
047786,000035:
047787,000036: # RESTRICTIONS --
047788,000037: # THE ONLY LIMITATION IN THE SCOPE OF THE PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
047789,000038: # LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJECTORIES
047790,000039: # COULD BE HANDLED.
047791,000040:
047792,000041: # SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
047793,000042: # THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
047794,000043: # TO INTERRUPT EACH OTHER. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
047795,000044:
047796,000045: # Page 1159
047797,000046: # PROGRAM DESCRIPTION -- KEPLER SUBROUTINE DATE -- 11 OCTOBER 1967
047798,000047: # MOD NO. -1 LOG SECTION -- CONIC SUBROUTINES
047799,000048: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS 103 AND SUNDANCE 222
047800,000049: # MOD NO. -- 2 (AUGUST 1968) BY ROBERTSON: TO PERMIT BACKDATING BY MORE THAN ONE ORBITAL PERIOD.
047801,000050: # MOD NO. -- 3 (DEC 1968) BY ROBERTSON: SUPPRESSION OF X-MODULO-ING
047802,000051: # MOD NO. -- 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLER ENTRY
047803,000052:
047804,000053: # FUNCTIONAL DESCRIPTION --
047805,000054: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
047806,000055: # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC
047807,000056: # SECTION -- CIRCULAR, ELLIPTIC, PARABOLIC, HYPERPOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
047808,000057: # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
047809,000058: # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION
047810,000059: # TECHNIQUE IS UTILIZED IN THE COMPUTATION.
047811,000060:
047812,000061: # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
047813,000062: # EXTRAPOLATING THE POSITION BACKWARD IN TIME.
047814,000063:
047815,000064: # IF THE ABSOLUTE VALUE OF THE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
047816,000065: # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME (WHETHER POSITIVE OR NEGATIVE).
047817,000066:
047818,000067: # THE RESTRICTIONS ARE --
047819,000068: # 1. (PREVIOUS RESTRICTION ON THE NEGATIVE DESIRED TRANSFER TIME IS NOW DELETED.)
047820,000069: # 2. THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF
047821,000070: # ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
047822,000071:
047823,000072: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
047824,000073: # GUESS, XKFPNEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
047825,000074: # FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
047826,000075:
047827,000076: # REFERENCES --
047828,000077: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
047829,000078: # MEMO 67-4.
047830,000079:
047831,000080: # INPUT -- ERASABLE INITIALIZATION REQUIRED
047832,000081: # SCALE FACTOR
047833,000082: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
047834,000083: # -------- -------------- -----------------------
047835,000084: # RRECT +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
047836,000085: # +27 FOR MOON
047837,000086: # Page 1160
047838,000087: # VRECT +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
047839,000088: # +5 FOR MOON
047840,000089: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
047841,000090: # RESPECTIVELY, IS THE CENTRAL BODY
047842,000091: # TAU +28 DESIRED TRANSFER TIME IN CENTISECONDS (DP)
047843,000092: # MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
047844,000093: # XKEPNEW +17 FOR EARTH DP GUESS OF ROOT X OF KEPLER'S EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
047845,000094: # +16 FOR MOON AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ., 2PI SQRT(SEMI
047846,000095: # MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
047847,000096: # BY KEPLER TO A POOR BUT VALID GUESS.
047848,000097: # TC +28 DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
047849,000098: # XPREV +17 FOR EARTH DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
047850,000099: # +16 FOR MOON ORBITAL PERIOD, VIZ., 2PI SQRT(SEMI-MAJOR AXIS)
047851,000100:
047852,000101: # SUBROUTINES CALLED --
047853,000102: # DELTIME
047854,000103:
047855,000104: # CALLING SEQUENCE AND NORMAL EXIT MODES --
047856,000105: # KEPRTN-2 GOTO # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
047857,000106: # KEPRTN-1 KEPLER # RETURNS WITH XPREV IN MPAC. PL IS AT 0.
047858,000107: # KEPRTN ... # CONTINUE
047859,000108:
047860,000109: # KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
047861,000110: # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
047862,000111: # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
047863,000112:
047864,000113: # ABORT EXIT MODE --
047865,000114: # NONE
047866,000115:
047867,000116: # OUTPUT --
047868,000117: # SCALE FACTOR
047869,000118: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
047870,000119: # -------- -------------- -----------------------
047871,000120: # RCV +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS
047872,000121: # +27 FOR MOON
047873,000122: # VCV +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
047874,000123: # +5 FOR MOON
047875,000124: # TC +28 DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD
047876,000125: # XPREV +17 FOR EARTH DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X
047877,000126: # +16 FOR MOON CORRSPONDING ONE PERIOD.
047878,000127: # Page 1161
047879,000128: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
047880,000129:
047881,000130: # DEBRIS --
047882,000131: # PARAMETERS WHICH MAY BE OF USE --
047883,000132: # SCALE FACTOR
047884,000133: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
047885,000134: # -------- -------------- -----------------------
047886,000135: # URRECT +1 DP UNIT VECTOR OF INITIAL POSITION
047887,000136: # R1 +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION IN METERS
047888,000137: # +27 FOR MOON
047889,000138: # ALPHA -22 FOR EARTH DP INVERSE OF SEMI-MAJOR AXIS IN 1/METERS
047890,000139: # -20 FOR MOON
047891,000140: # TMODULO +28 DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
047892,000141: # TAU. OF LESS THAN ONE PERIOD.
047893,000142:
047894,000143: # PARAMETERS OF NO USE --
047895,000144: # DP PARAMETERS -- FPSILENT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
047896,000145:
047897,000146: # Page 1163
047898,000147: # PROGRAM DESCRIPTION -- LAMBERT SUBROUTINE DATE -- 1 SEPTEMBER 1967
047899,000148: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
047900,000149: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
047901,000150:
047902,000151: # FUNCTIONAL DESCRIPTION --
047903,000152: # THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
047904,000153: # FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE
047905,000154: # A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO TEH EARTH OR THE MOON. THE USE OF THE
047906,000155: # SUBROUTINE CAN BE EXTEDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
047907,000156: # CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS
047908,000157: # UTILIZED IN THE COMPUTATION.
047909,000158:
047910,000159: # THE RESTRICTIONS ARE: --
047911,000160: # 1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
047912,000161: # 2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
047913,000162: # 3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
047914,000163: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
047915,000164: # 4. NEGATIVE TRANSFER TIME IS AMBUGUOUS AND WILL RESULT IN NO SOLUTION.
047916,000165: # 5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE
047917,000166: # LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
047918,000167:
047919,000168: # THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION'S SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
047920,000169: # GUESS OF THE INDEPENDENT VARIABLE, COGA. THE AGC COMPUTATION TIME IS APPROXIMATELY
047921,000170: # .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
047922,000171:
047923,000172: # REFERENCES --
047924,000173: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP -- SECTION 5.5, SGA MEMO 67-8,
047925,000174: # SGA MEMO 67-4.
047926,000175:
047927,000176: # INPUT -- ERASABLE INITIALIZATION REQUIRED
047928,000177: # SCALE FACTOR
047929,000178: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
047930,000179: # -------- -------------- -----------------------
047931,000180: # R1VEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
047932,000181: # +27 FOR MOON
047933,000182: # R2VEC +29 FOR EARTH DP TARGET OR TERMINAL POSITION VECTOR IN METERS
047934,000183: # +27 FOR MOON
047935,000184: # TDESIRED +28 DP DESIRED TRANSFER TIME IN CENTISECONDS
047936,000185: # X1 (38D) NONE INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
047937,000186: # RESPECTIVELY, IS THE CENTRAL BODY
047938,000187: # GEOMSGN NONE SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
047939,000188: # GUESSW NONE AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
047940,000189: # Page 1163
047941,000190: # COGA IS TO BE USED BY LAMBERT
047942,000191: # COGA +5 DP GUESS OF COTANGENT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE
047943,000192: # IGNORED IF GUESSW IS SET.
047944,000193: # NORMSW NONE AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
047945,000194: # LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
047946,000195: # UN +1 DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
047947,000196: # MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLEAR.
047948,000197: # VTARGTAG NONE A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMUTE THE VELOCITY OF R2VEC AS WELL AS
047949,000198: # AT R1VEC.
047950,000199: # ITERCTR NONE A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE.
047951,000200: # [AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
047952,000201: # ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.]
047953,000202: # TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
047954,000203:
047955,000204: # SUBROUTINES CALLED --
047956,000205: # GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
047957,000206:
047958,000207: # CALLING SEQUENCE AND NORMAL EXIT MODES --
047959,000208: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
047960,000209: # L+1 LAMBERT # RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS WAS NON-ZERO OR VTARGET
047961,000210: # # IN MPAC IF VTARGTAG WAS ZERO
047962,000211: # L+2 BON # CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
047963,000212: # L+3 SOLNSW
047964,000213: # L+4 LAMABORT
047965,000214:
047966,000215: # IF A LAMBER RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
047967,000216: # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
047968,000217:
047969,000218: # ABORT EXIT MODES --
047970,000219: # IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 260 DEG, OR T
047971,000220: # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2FEC. IN EITHER CASE THE FIX MUST BE MADE
047972,000221: # ACCORDING TO THE NEEDS OF THE PARTICULAR USER. THE ABORT EXIT MODE MAY BE CODED AS ...
047973,000222: # LAMBERT DLOAD ABS # A MEASURE OF THE PROXIMITY TO 0 OR
047974,000223: # 1-CHTH # 360 DEGREES.
047975,000224: # DSU BWM
047976,000225: # ONEBIT
047977,000226: # CHANGER2 # CHANGE R2VEC DIRECTION SLIGHTLY.
047978,000227: # DLOAD DAD
047979,000228: # TDESIRED
047980,000229: # SOMETIE
047981,000230: # STCALL TDESIRED # INCRESE TDESIRED
047982,000231: # LAMBERT
047983,000232:
047984,000233: # Page 1164
047985,000234: # OUTPUT --
047986,000235: # SCALE FACTOR
047987,000236: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
047988,000237: # -------- -------------- -----------------------
047989,000238: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
047990,000239: # +5 FOR MOON PROBLEM.
047991,000240: # VTARGET +7 FOR EARTH DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
047992,000241: # +5 FOR MOON
047993,000242: # SOLNSW NONE INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
047994,000243: # SOLUTION EXISTS.
047995,000244:
047996,000245: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
047997,000246:
047998,000247: # DEBRIS --
047999,000248: # PARAMETERS WHICH MAY BE OF USE --
048000,000249: # SCALE FACTOR
048001,000250: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048002,000251: # -------- -------------- -----------------------
048003,000252: # SNTH +1 DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
048004,000253: # CSTH +1 DP COSING OF ANGLE
048005,000254: # 1-CSTH +2 DP 1-CSTH
048006,000255: # COGA +5 DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
048007,000256: # P +4 DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
048008,000257: # R1A +6 DP RATIO OF INITIAL RADIUS TO SEMI-MAJOR AXIS
048009,000258: # R1 (32D) +29 FOR EARTH DP INITIAL RADIUS IN METERS
048010,000259: # +27 FOR MOON
048011,000260: # UR1 +1 DP UNIT VECTOR OF R1VEC
048012,000261: # U2 +1 DP UNIT VECTOR OF R2VEC
048013,000262:
048014,000263: # PARAMETERS OF NO USE --
048015,000264: # DP PARAMETERS -- EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
048016,000265: # ADDITIONAL INTERPRETIVE SWITCHES USED -- INFINFLG, 360SW, SLOPESW, ORDERSW
048017,000266:
048018,000267: # Page 1165
048019,000268: # PROGRAM DESCRIPTION -- TIME-THETA SUBROUTINE DATE -- 1 SEPTEMBER 1967
048020,000269: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
048021,000270: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
048022,000271:
048023,000272: # FUNCTIONAL DESCRIPTION --
048024,000273: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
048025,000274: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
048026,000275: # PROVIDES THE OPTION OF COMUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
048027,000276: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF TEH SUBROUTINE CAN BE
048028,000277: # EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WTIHOUT INTRODUCING ANY CODING CHANGES,
048029,000278: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
048030,000279:
048031,000280: # THE RESTRICTIONS ARE --
048032,000281: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
048033,000282: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
048034,000283: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSCP. IF THE LIMITS
048035,000284: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLY.
048036,000285:
048037,000286: # THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
048038,000287:
048039,000288: # REFERENCES --
048040,000289: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
048041,000290:
048042,000291: # INPUT -- ERASABLE INITIALIZATION REQUIRED
048043,000292: # SCALE FACTOR
048044,000293: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048045,000294: # -------- -------------- -----------------------
048046,000295: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
048047,000296: # +27 FOR MOON
048048,000297: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
048049,000298: # +5 FOR MOON
048050,000299: # SNTH +1 ` DP SINE OF THE TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
048051,000300: # CSTH +1 DP COSINE OF THE ANGLE
048052,000301: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
048053,000302: # IS TO BE COMPUTED ALSO.
048054,000303: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
048055,000304: # RESPECTIVELY, IS THE CENTRAL BODY.
048056,000305:
048057,000306: # SUBROUTINES CALLED --
048058,000307: # Page 1166
048059,000308: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
048060,000309:
048061,000310: # CALLING SEQUENCE AND NORMAL EXIT MODES --
048062,000311: # IF ONLY TIME IS DESIRED AS OUTPUT --
048063,000312: # L SET CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
048064,000313: # L+1 RVSW
048065,000314: # L+2 TIMETHET # RETURN WITH PL AT 0 AND T IN MPAC
048066,000315: # L+3 --- # CONTINUE
048067,000316:
048068,000317: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL --
048069,000318: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
048070,000319: # L+1 RVSW
048071,000320: # L+2 TIMETHET # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
048072,000321: # # THE INITIAL VELOCITY VECTOR IN MPAC.
048073,000322: # L+3 STOVL NEWVVEC
048074,000323: # L+4 STADR
048075,000324: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS.
048076,000325: # L+6 ... # CONTINUE.
048077,000326:
048078,000327: # ABORT EXIT MODES --
048079,000328: # IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO P00DOO WITH
048080,000329: # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
048081,000330:
048082,000331: # OUTPUT --
048083,000332: # SCALE FACTOR
048084,000333: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048085,000334: # -------- -------------- -----------------------
048086,000335: # T(30D) +28 DP TRANSFER TIME IN CENTISECONDS
048087,000336: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
048088,000337: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
048089,000338: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
048090,000339: # CLEAR IF NOT.
048091,000340:
048092,000341: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT --
048093,000342: # MPAC - MPAC+5 +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
048094,000343: # +5 FOR MOON
048095,000344: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
048096,000345: # +27 FOR MOON
048097,000346:
048098,000347: # FOR TOHER OTHER WHICH MAY BE OF USE, SEE DEBRIS.
048099,000348:
048100,000349: # Page 1167
048101,000350: # DEBRIS --
048102,000351: # PARAMETERS WHICH MAY BE OF USE --
048103,000352: # SCALE FACTOR
048104,000353: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048105,000354: # -------- -------------- -----------------------
048106,000355: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
048107,000356: # +27 FOR MOON
048108,000357: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
048109,000358: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1
048110,000359: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
048111,000360: # UR1 +1 DP UNIT VECTOR OF RVEC
048112,000361: # U2 +1 DP UNIT VECTOR OF VVEC
048113,000362: # UN +1 DP UNIT VECTOR OF UR1*U2
048114,000363:
048115,000364: # PARAMETERS OF NO USE --
048116,000365: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, R1D
048117,000366: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW
048118,000367:
048119,000368: # Page 1168
048120,000369: # PROGRAM DESCRIPTION -- TIME-RADIUS SUBROUTINE DATE -- 11 OCTOBER 1967
048121,000370: # MOD NO. -1 LOG SECTION -- CONIC SUBROUTINES
048122,000371: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
048123,000372:
048124,000373: # FUNCTIONAL DESCRIPTION --
048125,000374: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
048126,000375: # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
048127,000376: # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A
048128,000377: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE
048129,000378: # EXTENDED USING OTHER PRIMARY BODIES BY SIMMPE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
048130,000379: # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
048131,000380:
048132,000381: # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
048133,000382: # APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
048134,000383:
048135,000384: # THE RESTRICTIONS ARE --
048136,000385: # 1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
048137,000386: # AND LESS THAN 178 DEGREES 12.5 MINUTES.
048138,000387: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN TEH GSOP. IF THE LIMITS
048139,000388: # EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
048140,000389: # 3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
048141,000390: # RDESIRED INCREASE. THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR. IN
048142,000391: # PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
048143,000392:
048144,000393: # THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS.
048145,000394:
048146,000395: # REFERENCES --
048147,000396: # R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
048148,000397:
048149,000398: # INPUT -- ERASABLE INITIALIZATION REQUIRED.
048150,000399: # SCALE FACTOR
048151,000400: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048152,000401: # -------- -------------- -----------------------
048153,000402: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
048154,000403: # +27 FOR MOON
048155,000404: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
048156,000405: # +5 FOR MOON
048157,000406: # RDESIRED +29 FOR EARTH DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
048158,000407: # +27 FOR MOON COMPUTED
048159,000408: # SGNRDOT NONE SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
048160,000409: # POSITIVE OR NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
048161,000410: # Page 1169
048162,000411: # SINGLE-VALUED PROBLEM.
048163,000412: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
048164,000413: # RESPECTIVELY, IS THE CENTRAL BODY.
048165,000414: # RVSW NONE AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
048166,000415: # IS TO BE COMPUTED ALSO.
048167,000416:
048168,000417: # SUBROUTINES CALLED --
048169,000418: # PARAM, GEOM, GETX, DELTIME, NEWSTATE
048170,000419:
048171,000420: # CALLING SEQUENCE AND NORMAL EXIT MODES --
048172,000421: # IF ONLY TIME IS DESIRED AS OUTPUT --
048173,000422: # L SET CALL # USE BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
048174,000423: # L+1 RVSW
048175,000424: # L+2 TIMERAD # RETURN WITH PL AT 0 AND T IN MPAC
048176,000425: # L+3 ... # CONTINUE
048177,000426:
048178,000427: # IF THE UPDATE STATE VECTOR IS DESIRED AS WELL --
048179,000428: # L CLEAR CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
048180,000429: # L+1 RVSW
048181,000430: # L+2 TIMERAD # RETURNS WITH PL AT 6. THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
048182,000431: # # THE INITIAL VELOCITY VECTOR IN MPAC.
048183,000432: # L+3 STOVL NEWVVEC
048184,000433: # L+4 STADR
048185,000434: # L+5 STORE NEWRVEC # NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS.
048186,000435: # ... # CONTINUE
048187,000436:
048188,000437: # ABORT EXIT MODES --
048189,000438: # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER
048190,000439: # TO P00DOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721)
048191,000440:
048192,000441: # OUTPUT --
048193,000442: # SCALE FACTOR
048194,000443: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048195,000444: # -------- -------------- -----------------------
048196,000445: # T (30D) +28 DP TRANSFER TIME IN CENTISECONDS.
048197,000446: # INFINFLG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
048198,000447: # INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
048199,000448: # COGAFLAG NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
048200,000449: # CLEAR IF NOT.
048201,000450: # APSESW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
048202,000451: # Page 1170
048203,000452: # LESS THAN RADIUS OF PERICENTER. THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
048204,000453: # WILL THEN BE RETURNED. THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
048205,000454: # APOCENTER.
048206,000455: # SOLNSW NONE AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
048207,000456: # POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3. IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
048208,000457: # MINUS-18, THE SWITCH IS CLEAR.
048209,000458:
048210,000459: # IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT --
048211,000460: # MPAC - MPAC+5 +7 FOR EARTH DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
048212,000461: # +5 FOR MOON
048213,000462: # 0D - 5D +29 FOR EARTH DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
048214,000463: # +27 FOR MOON
048215,000464:
048216,000465: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
048217,000466:
048218,000467: # DEBRIS --
048219,000468: # PARAMETERS WHICH MAY BE OF USE --
048220,000469: # SCALE FACTOR
048221,000470: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048222,000471: # -------- -------------- -----------------------
048223,000472: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
048224,000473: # +27 FOR MOON
048225,000474: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
048226,000475: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1
048227,000476: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
048228,000477: # UR1 +1 DP UNIT VECTOR OF RVEC
048229,000478: # U2 +1 DP UNIT VECTOR OF VVEC
048230,000479: # UN +1 DP UNIT VECTOR OF UR1*U2
048231,000480: # CSTH +1 DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
048232,000481: # SNTH +1 DP SINE OF TRUE ANOMALY DIFFERENCE.
048233,000482:
048234,000483: # PARAMETERS OF NO USE --
048235,000484: # SP PARAMETERS -- RTNTT, GEOMSGN, RTNPRM, MAGVEC2*R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
048236,000485: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW, 360SW
048237,000486:
048238,000487:
048239,000488: # Page 1171
048240,000489: # PROGRAM DESCRIPTION -- APSIDES SUBROUTINE DATE -- 1 SEPTEMBER 1967
048241,000490: # MOD NO. -- 0 LOG SECTION -- CONIC SUBROUTINES
048242,000491: # MOD BY KRAUSE ASSEMBLY -- COLOSSUS REVISION 88
048243,000492:
048244,000493: # FUNCTIONAL DESCRIPTION --
048245,000494: # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR, CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
048246,000495: # ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
048247,000496: # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN
048248,000497: # BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
048249,000498: # EXCEPTING TEH INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
048250,000499:
048251,000500: # THE RESTRICTIONS ARE --
048252,000501: # 1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
048253,000502: # TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
048254,000503: # 2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP. IF THE LIMITS
048255,000504: # ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
048256,000505: # THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
048257,000506:
048258,000507: # REFERENCES --
048259,000508: # MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5.
048260,000509:
048261,000510: # INPUT -- ERASABLE INITIALIZATION REQUIRED
048262,000511: # SCALE FACTOR
048263,000512: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048264,000513: # -------- -------------- -----------------------
048265,000514: # RVEC +29 FOR EARTH DP INITIAL POSITION VECTOR IN METERS
048266,000515: # +27 FOR MOON
048267,000516: # VVEC +7 FOR EARTH DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
048268,000517: # +5 FOR MOON
048269,000518: # X1 (38D) NONE INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
048270,000519: # RESPECTIVELY, IS THE CENTRAL BODY.
048271,000520:
048272,000521: # SUBROUTINES CALLED --
048273,000522: # PARAM, GEOM
048274,000523:
048275,000524: # CALLING SEQUENCE AND NORMAL EXIT MODES --
048276,000525: # Page 1172
048277,000526: # IF ONLY TIME IS DESIRED AS OUTPUT --
048278,000527: # L CALL # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
048279,000528: # L+1 APSIDES # RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
048280,000529: # L+2 STODL APOAPSE
048281,000530: # L+3 0D
048282,000531: # L+4 STORE PERIAPSE # APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USER'S LOCATIONS
048283,000532: # L+5 ... # CONTINUE
048284,000533:
048285,000534: # OUTPUT --
048286,000535: # SCALE FACTOR
048287,000536: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048288,000537: # -------- -------------- -----------------------
048289,000538: # MPAC +29 FOR EARTH DP RADIUS OF APOCENTER IN METERS
048290,000539: # +27 FOR MOON
048291,000540: # 0D-1D +29 FOR EARTH DP RADIUS OF PERICENTER IN METERS
048292,000541: # +27 FOR MOON
048293,000542: # ECC +3 DP ECCENTRICITY OF CONIC TRAJECTORY
048294,000543: # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
048295,000544:
048296,000545: # DEBRIS --
048297,000546: # PARAMETERS WHICH MAY BE OF USE --
048298,000547: # SCALE FACTOR
048299,000548: # VARIABLE IN POWERS OF 2 DESCRIPTION AND REMARKS
048300,000549: # -------- -------------- -----------------------
048301,000550: # R1 (32D) +29 FOR EARTH DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
048302,000551: # +27 FOR MOON
048303,000552: # R1A +6 DP RATIO OF R1 TO SEMI-MAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
048304,000553: # P +4 DP RATIO OF SEMILATUS RECTUM TO R1
048305,000554: # COGA +5 DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
048306,000555: # UR1 +1 DP UNIT VECTOR OF RVEC
048307,000556: # U2 +1 DP UNIT VECTOR OF VVEC
048308,000557: # UN +1 DP UNIT VECTOR OF UR1*U2
048309,000558: # MAGVEC2 +7 FOR EARTH DP MAGNITUDE OF VVEC
048310,000559: # +5 FOR MOON
048311,000560:
048312,000561: # PARAMETERS OF NO USE --
048313,000562: # SP PARAMETERS -- RTNAPSE, GOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
048314,000563: # ADDITIONAL INTERPRETIVE SWITCHES USED -- NORMSW
048315,000564:
048316,000565: 12,2000 SETLOC CONICS
048317,000566: # Page 1173
048318,000567: 12,2000 BANK
048319,000568:
048320,000569: 12,2023 COUNT* $$/CONIC
048321,000570: 12,2023 E5,1721 EBANK= UR1
048322,000571: 12,2023 40001 KEPLERN SETPD BOV
048323,000572: 12,2024 00001 0
048324,000573: 12,2025 24026 +1
048325,000574: 12,2026 77773 VLOAD*
048326,000575: 12,2027 10005 MUTABLE,1
048327,000576: 12,2030 24017 STOVL 14D
048328,000577: 12,2031 01503 RRECT
048329,000578: 12,2032 66256 UNIT SSP
048330,000579: 12,2033 00027 ITERCTR
048331,000580: 12,2034 00024 20D
048332,000581: 12,2035 16647 STODL URRECT
048333,000582: 12,2036 00045 36D
048334,000583: 12,2037 24041 STOVL R1
048335,000584: 12,2040 01503 RRECT
048336,000585: 12,2041 76441 DOT SL1R
048337,000586: 12,2042 01511 VRECT
048338,000587: 12,2043 76405 DMP SL1R
048339,000588: 12,2044 00023 1/ROOTMU # 1/ROOTMU (-17 OR -14)
048340,000589: 12,2045 24043 STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
048341,000590: 12,2046 01511 VRECT
048342,000591: 12,2047 57236 VSQ DMPR
048343,000592: 12,2050 00017 1/MU # 1/MU (-34 OR -28)
048344,000593: 12,2051 52405 DMP SL3
048345,000594: 12,2052 00041 R1
048346,000595: 12,2053 61425 DSU ROUND
048347,000596: 12,2054 11001 D1/64
048348,000597: 12,2055 00045 STORE KEPC2 # C2=RV.V/MU -1 (+6)
048349,000598:
048350,000599: 12,2056 74421 BDSU SR1R
048351,000600: 12,2057 11001 D1/64
048352,000601: 12,2060 77671 DDV
048353,000602: 12,2061 00041 R1
048354,000603: 12,2062 00011 STORE ALPHA # ALPHA=(1-C2)/R1 (-22 OR -20)
048355,000604:
048356,000605: 12,2063 71244 BPL DLOAD # MAXIMUM X DEPENDS ON TYPE OF CONIC)
048357,000606: 12,2064 24073 1REV
048358,000607: 12,2065 11017 -50SC # -50SC (+12)
048359,000608: 12,2066 40071 DDV BOV
048360,000609: 12,2067 00011 ALPHA
048361,000610: 12,2070 24077 STOREMAX
048362,000611: 12,2071 52166 SQRT GOTO
048363,000612: 12,2072 24077 STOREMAX
048364,000613:
048365,000614: 12,2073 55366 1REV SQRT BDDV
048366,000615: # Page 1174
048367,000616: 12,2074 11021 2PISC # 2PISC (+6)
048368,000617: 12,2075 77600 BOV
048369,000618: 12,2076 24077 STOREMAX
048370,000619: 12,2077 00013 STOREMAX STORE XMAX
048371,000620: 12,2100 65205 DMP PDDL
048372,000621: 12,2101 00023 1/ROOTMU
048373,000622: 12,2102 00011 ALPHA
048374,000623: 12,2103 65301 NORM PDDL
048375,000624: 12,2104 00047 X1
048376,000625: 12,2105 56257 SL* DDV
048377,000626: 12,2106 20173 0 -6,1
048378,000627: 12,2107 50000 BOV BMN
048379,000628: 12,2110 24124 MODDONE
048380,000629: 12,2111 24124 MODDONE # MPAC=PERIOD
048381,000630: 12,2112 51525 PERIODCH PDDL ABS # 0D=PERIOD
048382,000631: 12,2113 02074 TAU.
048383,000632: 12,2114 50025 DSU BMN
048384,000633: 12,2115 00001 0D
048385,000634: 12,2116 24124 MODDONE
048386,000635: 12,2117 77765 SIGN
048387,000636: 12,2120 02074 TAU.
048388,000637: 12,2121 16074 STODL TAU.
048389,000638: 12,2122 77650 GOTO
048390,000639: 12,2123 24112 PERIODCH
048391,000640: 12,2124 71201 MODDONE SETPD DLOAD
048392,000641: 12,2125 00001 0
048393,000642: 12,2126 02130 XKEPNEW
048394,000643: 12,2127 00025 STORE X
048395,000644: 12,2130 53165 SIGN BZE
048396,000645: 12,2131 02074 TAU.
048397,000646: 12,2132 24302 BADX
048398,000647: 12,2133 51440 BMN ABS
048399,000648: 12,2134 24302 BADX
048400,000649: 12,2135 51025 DSU BPL
048401,000650: 12,2136 00013 XMAX
048402,000651: 12,2137 24302 BADX
048403,000652: 12,2140 51145 STORBNDS DLOAD BPL
048404,000653: 12,2141 02074 TAU.
048405,000654: 12,2142 24152 STOREMIN
048406,000655: 12,2143 57545 DLOAD DCOMP
048407,000656: 12,2144 00013 XMAX
048408,000657: 12,2145 14015 STODL XMIN
048409,000658: 12,2146 24007 KEPZERO
048410,000659: 12,2147 00013 STORE XMAX
048411,000660: 12,2150 77650 GOTO
048412,000661: 12,2151 24155 DXCOMP
048413,000662: 12,2152 77745 STOREMIN DLOAD
048414,000663: 12,2153 24007 KEPZERO
048415,000664: 12,2154 00015 STORE XMIN
048416,000665: 12,2155 57345 DXCOMP DLOAD DMPR
048417,000666: # Page 1175
048418,000667: 12,2156 02074 TAU.
048419,000668: 12,2157 11012 BEE22
048420,000669: 12,2160 77646 ABS
048421,000670: 12,2161 16177 STODL EPSILONT
048422,000671: 12,2162 01553 XPREV
048423,000672: 12,2163 77621 XDIFF BDSU
048424,000673: 12,2164 00025 X
048425,000674: 12,2165 02643 STORE DELX
048426,000675:
048427,000676: 12,2166 63545 KEPLOOP DLOAD DSQ
048428,000677: 12,2167 00025 X # X=XKEP
048429,000678: 12,2170 41501 NORM PUSH # 0D=XSQ (+34 OR +32 -N1) PL AT 2
048430,000679: 12,2171 00047 X1
048431,000680: 12,2172 53605 DMP SRR*
048432,000681: 12,2173 00011 ALPHA
048433,000682: 12,2174 21573 0 -6,1
048434,000683: 12,2175 34031 STCALL XI # XI=ALPHA XSQ (+6)
048435,000684: 12,2176 24421 DELTIME
048436,000685: 12,2177 44200 BOV BDSU
048437,000686: 12,2200 24311 TIMEOVFL # UNLIKELY
048438,000687: 12,2201 02074 TAU.
048439,000688: 12,2202 02645 STORE DELT # DELT=DELINDEP
048440,000689: 12,2203 44246 ABS BDSU
048441,000690: 12,2204 02177 EPSILONT
048442,000691: 12,2205 71244 BPL DLOAD
048443,000692: 12,2206 24333 KEPCONVG
048444,000693: 12,2207 00037 T
048445,000694: 12,2210 60225 DSU NORM
048446,000695: 12,2211 01551 TC
048447,000696: 12,2212 00047 X1
048448,000697: 12,2213 60325 PDDL NORM
048449,000698: 12,2214 02643 DELX
048450,000699: 12,2215 00050 X2
048451,000700: 12,2216 41260 XSU,1 DMP
048452,000701: 12,2217 00047 X2
048453,000702: 12,2220 02645 DELT
048454,000703: 12,2221 56257 SLR* DDV
048455,000704: 12,2222 21202 1,1
048456,000705: 12,2223 41542 SR1 PUSH # 0D=TRIAL DELX PL AT 2
048457,000706: 12,2224 71244 BPL DLOAD
048458,000707: 12,2225 24246 POSDELX
048459,000708: 12,2226 00025 X
048460,000709: 12,2227 00013 STORE XMAX # MOVE MAX BOUND IN
048461,000710: 12,2230 45221 BDSU DSU # PL AT 0
048462,000711: 12,2231 00015 XMIN
048463,000712: 12,2232 51000 BOV BPL
048464,000713: 12,2233 24240 NDXCHNGE
048465,000714: 12,2234 24240 NDXCHNGE
048466,000715: 12,2235 52145 DLOAD GOTO
048467,000716: # Page 1176
048468,000717: 12,2236 00001 0D
048469,000718: 12,2237 24260 NEWDELX
048470,000719:
048471,000720: 12,2240 45345 NDXCHNGE DLOAD DSU
048472,000721: 12,2241 00015 XMIN
048473,000722: 12,2242 00025 X
048474,000723: 12,2243 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
048475,000724: 12,2244 11015 DP9/10
048476,000725: 12,2245 24260 NEWDELX
048477,000726:
048478,000727: 12,2246 77745 POSDELX DLOAD
048479,000728: 12,2247 00025 X
048480,000729: 12,2250 00015 STORE XMIN # MOVE MIN BOUND IN
048481,000730: 12,2251 45221 BDSU DSU # PL AT 0
048482,000731: 12,2252 00013 XMAX
048483,000732: 12,2253 50000 BOV BMN
048484,000733: 12,2254 24274 PDXCHNGE
048485,000734: 12,2255 24274 PDXCHNGE
048486,000735: 12,2256 77745 DLOAD
048487,000736: 12,2257 00001 0D
048488,000737: 12,2260 02643 NEWDELX STORE DELX
048489,000738: 12,2261 43254 BZE DAD
048490,000739: 12,2262 24333 KEPCONVG
048491,000740: 12,2263 00025 X
048492,000741: 12,2264 14025 STODL X
048493,000742: 12,2265 00037 T
048494,000743: 12,2266 01551 STORE TC
048495,000744: 12,2267 46034 BRNCHCTR RTB BHIZ
048496,000745: 12,2270 24644 CHECKCTR
048497,000746: 12,2271 24333 KEPCONVG
048498,000747: 12,2272 77650 GOTO
048499,000748: 12,2273 24166 KEPLOOP # ITERATE
048500,000749:
048501,000750: 12,2274 45345 PDXCHNGE DLOAD DSU
048502,000751: 12,2275 00013 XMAX
048503,000752: 12,2276 00025 X
048504,000753: 12,2277 52075 DMPR GOTO # TO FORCE MPAC +2 TO ZERO
048505,000754: 12,2300 11015 DP9/10
048506,000755: 12,2301 24260 NEWDELX
048507,000756:
048508,000757: 12,2302 70545 BADX DLOAD SR1
048509,000758: 12,2303 00013 XMAX
048510,000759: 12,2304 77765 SIGN
048511,000760: 12,2305 02074 TAU.
048512,000761: 12,2306 00025 STORE X
048513,000762: 12,2307 77650 GOTO
048514,000763: # Page 1177
048515,000764: 12,2310 24140 STORBNDS
048516,000765: 12,2311 50145 TIMEOVFL DLOAD BMN # X WAS TOO BIG
048517,000766: 12,2312 00025 X
048518,000767: 12,2313 24330 NEGTOVFL
048519,000768: 12,2314 00013 STORE XMAX
048520,000769: 12,2315 70545 CMNTOVFL DLOAD SR1
048521,000770: 12,2316 02643 DELX
048522,000771: 12,2317 02643 STORE DELX
048523,000772: 12,2320 44254 BZE BDSU
048524,000773: 12,2321 02112 KEPRTN
048525,000774: 12,2322 00025 X
048526,000775: 12,2323 14025 STODL X
048527,000776: 12,2324 01551 TC
048528,000777: 12,2325 00037 STORE T
048529,000778: 12,2326 77650 GOTO
048530,000779: 12,2327 24267 BRNCHCTR
048531,000780: 12,2330 00015 NEGTOVFL STORE XMIN
048532,000781: 12,2331 77650 GOTO
048533,000782: 12,2332 24315 CMNTOVFL
048534,000783: 12,2333 44545 KEPCONVG DLOAD SR4R
048535,000784: 12,2334 00041 R1
048536,000785: 12,2335 74225 DSU VXSC
048537,000786: 12,2336 00035 XSQC(XI)
048538,000787: 12,2337 02647 URRECT
048539,000788: 12,2340 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))URRECT (+33 OR +31)
048540,000789: 12,2341 00025 X
048541,000790: 12,2342 60316 DSQ NORM
048542,000791: 12,2343 00047 X1
048543,000792: 12,2344 57275 DMPR DMPR
048544,000793: 12,2345 00023 1/ROOTMU
048545,000794: 12,2346 00025 X
048546,000795: 12,2347 53605 DMP SRR*
048547,000796: 12,2350 00033 S(XI)
048548,000797: 12,2351 21572 0 -7,1
048549,000798: 12,2352 77621 BDSU
048550,000799: 12,2353 00037 T
048551,000800: 12,2354 74352 SL1 VXSC
048552,000801: 12,2355 01511 VRECT
048553,000802: 12,2356 53372 VSL1 VAD
048554,000803: 12,2357 77712 VSL4
048555,000804: 12,2360 01535 STORE RCV # RCV (+29 OR +27)
048556,000805:
048557,000806: 12,2361 60246 ABVAL NORM
048558,000807: 12,2362 00050 X2
048559,000808: 12,2363 14043 STODL RCNORM
048560,000809: 12,2364 00031 XI
048561,000810: 12,2365 45275 DMPR DSU
048562,000811: 12,2366 00033 S(XI)
048563,000812: 12,2367 10777 D1/128
048564,000813: # Page 1178
048565,000814: 12,2370 76405 DMP SL1R
048566,000815: 12,2371 00021 ROOTMU
048567,000816: 12,2372 53605 DMP SLR*
048568,000817: 12,2373 00025 X
048569,000818: 12,2374 56601 0 -3,2
048570,000819: 12,2375 74271 DDV VXSC
048571,000820: 12,2376 00043 RCNORM
048572,000821: 12,2377 02647 URRECT
048573,000822: 12,2400 65372 VSL1 PDDL # 0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
048574,000823: 12,2401 00035 XSQC(XI) # OR +13) PL AT 6
048575,000824: 12,2402 56257 SLR* DDV
048576,000825: 12,2403 56602 0 -4,2
048577,000826: 12,2404 00043 RCNORM
048578,000827: 12,2405 74221 BDSU VXSC
048579,000828: 12,2406 11013 D1/256
048580,000829: 12,2407 01511 VRECT
048581,000830: 12,2410 42455 VAD VSL8
048582,000831: 12,2411 77626 STADR # PL AT 0
048583,000832: 12,2412 62234 STODL VCV # VCV (+7 OR +5)
048584,000833: 12,2413 00037 T
048585,000834: 12,2414 15551 STODL TC
048586,000835: 12,2415 00025 X
048587,000836: 12,2416 01553 STORE XPREV
048588,000837: 12,2417 77650 GOTO
048589,000838: 12,2420 02112 KEPRTN
048590,000839:
048591,000840: # Page 1179
048592,000841: 12,2421 77776 DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
048593,000842: 12,2422 07225 TC POLY
048594,000843: 12,2423 00010 DEC 8 B-14
048595,000844: 12,2424 02525 12526 2DEC .083333334
048596,000845: 12,2426 67356 75666 2DEC -.266666684
048597,000846: 12,2430 15001 23771 2DEC .406349155
048598,000847: 12,2432 64342 43674 2DEC -.361198675
048599,000848: 12,2434 06563 04645 2DEC .210153242
048600,000849: 12,2436 75173 52672 2DEC -.086221951
048601,000850: 12,2440 00656 14331 2DEC .026268812
048602,000851: 12,2442 77633 40512 2DEC -.006163316
048603,000852: 12,2444 00023 11210 2DEC .001177342
048604,000853: 12,2446 77774 67506 2DEC -.000199055
048605,000854:
048606,000855: 12,2450 06042 TC INTPRET
048607,000856: 12,2451 14033 STODL S(XI)
048608,000857: 12,2452 00031 XI
048609,000858: 12,2453 77776 EXIT
048610,000859: 12,2454 07225 TC POLY
048611,000860: 12,2455 00010 DEC 8 B-14
048612,000861: 12,2456 01000 00000 2DEC .031250001
048613,000862: 12,2460 72525 52506 2DEC -.166666719
048614,000863: 12,2462 13301 15337 2DEC .355555413
048615,000864: 12,2464 62776 54733 2DEC -.406347410
048616,000865: 12,2466 11176 13267 2DEC .288962094
048617,000866: 12,2470 73410 51674 2DEC -.140117894
048618,000867: 12,2472 01446 33641 2DEC .049247387
048619,000868: 12,2474 77451 65233 2DEC -.013081923
048620,000869: 12,2476 00055 37266 2DEC .002806389
048621,000870: 12,2500 77767 52336 2DEC -.000529414
048622,000871: 12,2502 06042 TC INTPRET
048623,000872: # Page 1180
048624,000873: 12,2503 53605 DMP SRR* # PL AT 0
048625,000874: 12,2504 00001 0D
048626,000875: 12,2505 21574 0 -5,1
048627,000876: 12,2506 00035 STORE XSQC(XI) # XSQC(XI) (+33 OR +31)
048628,000877: 12,2507 72405 DMP SL1
048629,000878: 12,2510 00043 KEPC1
048630,000879: 12,2511 65234 RTB PDDL # XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46)
048631,000880: 12,2512 21634 TPMODE # PL AT 0,3
048632,000881: 12,2513 53605 DMP SRR*
048633,000882: 12,2514 00033 S(XI)
048634,000883: 12,2515 21574 0 -5,1
048635,000884: 12,2516 72405 DMP SL1
048636,000885: 12,2517 00045 KEPC2
048637,000886: 12,2520 65234 RTB PDDL # 3D=C2 XSQ S(XI) (+35 OR +33) PL AT 6
048638,000887: 12,2521 21634 TPMODE
048639,000888: 12,2522 00041 R1
048640,000889: 12,2523 76261 SR TAD # PL AT 3
048641,000890: 12,2524 20607 6
048642,000891: 12,2525 41301 NORM DMP # TO PRESERVE SIGNIF.
048643,000892: 12,2526 00047 X1
048644,000893: 12,2527 00025 X
048645,000894: 12,2530 76257 SR* TAD # X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
048646,000895: 12,2531 20576 0 -3,1
048647,000896: 12,2532 57232 SL4R DMPR
048648,000897: 12,2533 00023 1/ROOTMU
048649,000898: 12,2534 00037 STORE T
048650,000899: 12,2535 77616 RVQ
048651,000900:
048652,000901: # Page 1181
048653,000902: 12,2536 71214 ITERATOR BONCLR DLOAD
048654,000903: 12,2537 00614 SLOPESW
048655,000904: 12,2540 24606 FIRSTIME
048656,000905: 12,2541 00037 DEP
048657,000906: 12,2542 60225 DSU NORM
048658,000907: 12,2543 02762 DEPREV
048659,000908: 12,2544 00047 X1
048660,000909: 12,2545 60325 PDDL NORM
048661,000910: 12,2546 00015 DELINDEP
048662,000911: 12,2547 00050 X2
048663,000912: 12,2550 41260 XSU,1 DMP
048664,000913: 12,2551 00047 X2
048665,000914: 12,2552 02760 DELDEP
048666,000915: 12,2553 56257 SLR* DDV # PL UP 2
048667,000916: 12,2554 21202 1,1
048668,000917: 12,2555 43142 SR1 BOFF
048669,000918: 12,2556 04351 ORDERSW
048670,000919: 12,2557 24562 SGNCHECK
048671,000920: 12,2560 75246 ABS SIGN # IN CASE 2ND DERIV. CHANGED SIGN, MUST
048672,000921: 12,2561 02760 DELDEP # DISREGARD IT TO FIND MIN.
048673,000922:
048674,000923: 12,2562 51006 SGNCHECK PUSH BPL # TRIAL DELINDEP PL DOWN 2
048675,000924: 12,2563 24620 POSDEL
048676,000925: 12,2564 43145 DLOAD BON
048677,000926: 12,2565 02766 INDEP
048678,000927: 12,2566 04311 ORDERSW
048679,000928: 12,2567 24571 MINCHECK
048680,000929: 12,2570 00017 STORE MAX # IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
048681,000930:
048682,000931: 12,2571 45221 MINCHECK BDSU DSU
048683,000932: 12,2572 00011 MIN
048684,000933: 12,2573 51000 BOV BPL
048685,000934: 12,2574 24600 MODNGDEL
048686,000935: 12,2575 24600 MODNGDEL
048687,000936: 12,2576 77650 GOTO
048688,000937: 12,2577 24632 DELOK
048689,000938:
048690,000939: 12,2600 45345 MODNGDEL DLOAD DSU # TRIAL DELINDEP WOULD EXCEED MIN BOUND
048691,000940: 12,2601 00011 MIN
048692,000941: 12,2602 02766 INDEP
048693,000942: 12,2603 52005 DMP GOTO
048694,000943: 12,2604 11015 DP9/10
048695,000944: 12,2605 24634 NEWDEL
048696,000945:
048697,000946: 12,2606 41345 FIRSTIME DLOAD DMP
048698,000947: 12,2607 00011 MIN
048699,000948: 12,2610 00051 TWEEKIT # DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
048700,000949: 12,2611 41325 PDDL DMP # S2(41D) SHOULDN'T CONTAIN HI ORDER ONES
048701,000950: # Page 1182
048702,000951: 12,2612 00017 MAX
048703,000952: 12,2613 00051 TWEEKIT
048704,000953: 12,2614 77625 DSU
048705,000954: 12,2615 52165 SIGN GOTO
048706,000955: 12,2616 02760 DELDEP
048707,000956: 12,2617 24562 SGNCHECK
048708,000957:
048709,000958: 12,2620 43145 POSDEL DLOAD BON
048710,000959: 12,2621 02766 INDEP
048711,000960: 12,2622 04311 ORDERSW
048712,000961: 12,2623 24625 MAXCHECK
048713,000962: 12,2624 00011 STORE MIN # IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
048714,000963:
048715,000964: 12,2625 45221 MAXCHECK BDSU DSU
048716,000965: 12,2626 00017 MAX
048717,000966: 12,2627 50000 BOV BMN
048718,000967: 12,2630 24636 MODPSDEL
048719,000968: 12,2631 24636 MODPSDEL
048720,000969: 12,2632 77745 DELOK DLOAD
048721,000970: 12,2633 00001 0D
048722,000971: 12,2634 00015 NEWDEL STORE DELINDEP
048723,000972: 12,2635 77616 RVQ
048724,000973:
048725,000974: 12,2636 45345 MODPSDEL DLOAD DSU
048726,000975: 12,2637 00017 MAX
048727,000976: 12,2640 02766 INDEP
048728,000977: 12,2641 52005 DMP GOTO
048729,000978: 12,2642 11015 DP9/10
048730,000979: 12,2643 24634 NEWDEL
048731,000980:
048732,000981: 12,2644 44753 CHECKCTR CS ONE
048733,000982: 12,2645 50120 INDEX FIXLOC
048734,000983: 12,2646 60026 AD ITERCTR
048735,000984: 12,2647 50120 INDEX FIXLOC
048736,000985: 12,2650 54026 TS ITERCTR
048737,000986: 12,2651 54154 TS MPAC
048738,000987: 12,2652 06064 TC DANZIG
048739,000988:
048740,000989: # Page 1183
048741,000990: 12,2653 44545 NEWSTATE DLOAD SR4R
048742,000991: 12,2654 00041 R1
048743,000992: 12,2655 74225 DSU VXSC
048744,000993: 12,2656 00035 XSQC(XI)
048745,000994: 12,2657 02722 UR1
048746,000995: 12,2660 65372 VSL1 PDDL # 0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
048747,000996: 12,2661 00025 X
048748,000997: 12,2662 60316 DSQ NORM
048749,000998: 12,2663 00047 X1
048750,000999: 12,2664 57275 DMPR DMPR
048751,001000: 12,2665 00023 1/ROOTMU
048752,001001: 12,2666 00025 X
048753,001002: 12,2667 53605 DMP SRR*
048754,001003: 12,2670 00033 S(XI)
048755,001004: 12,2671 21572 0 -7,1
048756,001005: 12,2672 77621 BDSU
048757,001006: 12,2673 00037 T
048758,001007: 12,2674 74352 SL1 VXSC
048759,001008: 12,2675 02744 VVEC
048760,001009: 12,2676 53372 VSL1 VAD # PL AT 0
048761,001010: 12,2677 41512 VSL4 PUSH
048762,001011: 12,2700 77646 ABVAL
048763,001012: 12,2701 77701 LAMENTER NORM
048764,001013: 12,2702 00047 X1
048765,001014: 12,2703 16720 STODL R2
048766,001015: 12,2704 00031 XI
048767,001016: 12,2705 45205 DMP DSU
048768,001017: 12,2706 00033 S(XI)
048769,001018: 12,2707 10777 D1/128
048770,001019: 12,2710 76405 DMP SL1R
048771,001020: 12,2711 00021 ROOTMU
048772,001021: 12,2712 53605 DMP SLR*
048773,001022: 12,2713 00025 X
048774,001023: 12,2714 21176 0 -3,1
048775,001024: 12,2715 74271 DDV VXSC
048776,001025: 12,2716 02720 R2
048777,001026: 12,2717 02722 UR1
048778,001027: 12,2720 65372 VSL1 PDDL # 6D=V2VEC PART (+15 OR 13) PL AT 12
048779,001028: 12,2721 00035 XSQC(XI)
048780,001029: 12,2722 56257 SLR* DDV
048781,001030: 12,2723 21175 0 -4,1
048782,001031: 12,2724 02720 R2
048783,001032: 12,2725 77621 BDSU
048784,001033: 12,2726 11013 D1/256
048785,001034: 12,2727 53361 VXSC VAD
048786,001035: 12,2730 02744 VVEC # PL AT 6
048787,001036: 12,2731 43412 VSL8 RVQ
048788,001037:
048789,001038: # Page 1184
048790,001039: 04,2000 SETLOC CONICS1
048791,001040: 04,2000 BANK
048792,001041:
048793,001042: 04,2773 COUNT* $$/CONIC
048794,001043: # DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
048795,001044: 04,2773 00000 BEE17 DEC 0 B-14 # KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
048796,001045: 04,2774 04000 00000 D1/8 2DEC 1.0 B-3
048797,001046: 04,2776 00200 00000 D1/128 2DEC 1.0 B-7
048798,001047: 04,3000 00400 00000 D1/64 2DEC 1.0 B-6
048799,001048: 04,3002 10000 00000 D1/4 2DEC 1.0 B-2
048800,001049: 04,3004 02000 00000 D1/16 2DEC 1.0 B-4
048801,001050: 04,3006 01000 00000 D1/32 2DEC 1.0 B-5
048802,001051: 04,3010 00020 00000 D1/1024 2DEC 1.0 B-10
048803,001052: 04,3012 00100 00000 D1/256 2DEC 1.0 B-8
048804,001053: 04,3014 34631 23146 DP9/10 2DEC .9
048805,001054: 04,3016 12,2006 KEPZERO EQUALS LO6ZEROS
048806,001055: 04,3016 77467 77777 -50SC 2DEC -50.0 B-12
048807,001056: 04,3020 03110 17665 2PISC 2DEC 6.28318530 B-6
048808,001057: 04,3022 04,3005 BEE19 EQUALS D1/32 -1 # 2DEC 1.0 B-19 (00000 01000)
048809,001058: 04,3022 04,3011 BEE22 EQUALS D1/256 -1 # 2DEC 1.0 B-22 (00000 00100)
048810,001059: 04,3022 00000 00001 ONEBIT 2DEC 1.0 B-28
048811,001060: 04,3024 37767 37737 COGUPLIM 2DEC .999511597
048812,001061: 04,3026 40010 40040 COGLOLIM 2DEC -.999511597
048813,001062:
048814,001063: # Page 1185
048815,001064: 12,2000 SETLOC CONICS
048816,001065: 12,2000 BANK
048817,001066:
048818,001067: 12,2732 COUNT* $$/CONIC
048819,001068: 12,2732 40220 TIMETHET STQ SETPD # PL AT 0
048820,001069: 12,2733 02710 RTNTT
048821,001070: 12,2734 00001 0
048822,001071: 12,2735 77600 BOV
048823,001072: 12,2736 24737 +1
048824,001073: 12,2737 63375 VLOAD PDVL # SETUP FOR PARAM CALL PL AT 6
048825,001074: 12,2740 02655 RVEC
048826,001075: 12,2741 02744 VVEC
048827,001076: 12,2742 77624 CALL
048828,001077: 12,2743 11030 PARAM
048829,001078: 12,2744 45000 BOV CALL
048830,001079: 12,2745 24764 COGAOVFL # PL AT 0
048831,001080: 12,2746 24767 GETX
048832,001081: 12,2747 43145 COMMNOUT DLOAD BON
048833,001082: 12,2750 00031 XI
048834,001083: 12,2751 04310 INFINFLG
048835,001084: 12,2752 25752 ABTCONIC
048836,001085: 12,2753 45014 CLEAR CALL
048837,001086: 12,2754 04273 COGAFLAG
048838,001087: 12,2755 24421 DELTIME
048839,001088: 12,2756 45014 BON CALL
048840,001089: 12,2757 03706 RVSW
048841,001090: 12,2760 02710 RTNTT
048842,001091: 12,2761 24653 NEWSTATE
048843,001092: 12,2762 77650 GOTO
048844,001093: 12,2763 02710 RTNTT
048845,001094:
048846,001095: 12,2764 77614 COGAOVFL SETGO
048847,001096: 12,2765 04033 COGAFLAG
048848,001097: 12,2766 25752 ABTCONIC
048849,001098:
048850,001099: 04,3030 BANK 4
048851,001100: 04,2000 SETLOC CONICS1
048852,001101: 04,2000 BANK
048853,001102: 04,3030 COUNT* $$/CONIC
048854,001103: 04,3030 43020 PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
048855,001104: 04,3031 02753 RTNPRM
048856,001105: 04,3032 03665 NORMSW
048857,001106: 04,3033 77614 CLEAR
048858,001107: 04,3034 04273 COGAFLAG
048859,001108: 04,3035 45131 SSP CALL
048860,001109: 04,3036 02673 GEOMSGN
048861,001110: 04,3037 27777 37777 # GAMMA ALWAYS LESS THAN 180DEG
048862,001111: 04,3040 11074 GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
048863,001112: 04,3041 14045 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
048864,001113: 04,3042 56261 SR DDV
048865,001114: # Page 1186
048866,001115: 04,3043 20606 5
048867,001116: 04,3044 00045 36D
048868,001117: 04,3045 32766 STOVL* COGA
048869,001118: 04,3046 10005 MUTABLE,1
048870,001119: 04,3047 14017 STODL 1/MU
048871,001120: 04,3050 02720 MAGVEC2
048872,001121: 04,3051 60316 DSQ NORM
048873,001122: 04,3052 00047 X1
048874,001123: 04,3053 41275 DMPR DMP
048875,001124: 04,3054 00017 1/MU
048876,001125: 04,3055 00041 R1
048877,001126: 04,3056 77657 SRR*
048878,001127: 04,3057 21576 0 -3,1
048879,001128: 04,3060 44206 PUSH BDSU # 0D=R1 V1SQ/MU (+6) PL AT 2
048880,001129: 04,3061 11007 D1/32
048881,001130: 04,3062 16742 STODL R1A # R1A (+6) PL AT 0
048882,001131:
048883,001132: 04,3063 60205 DMP NORM
048884,001133: 04,3064 00045 36D
048885,001134: 04,3065 00047 X1
048886,001135: 04,3066 53605 DMP SR*
048887,001136: 04,3067 00045 36D
048888,001137: 04,3070 20575 0 -4,1
048889,001138: 04,3071 02740 STORE P # P (+4)
048890,001139: 04,3072 77650 GOTO
048891,001140: 04,3073 02753 RTNPRM
048892,001141:
048893,001142: # Page 1187
048894,001143: 04,3074 77656 GEOM UNIT # MPAC=V2VEC, 0D=R1VEC PL AT 6
048895,001144: 04,3075 16712 STODL U2 # U2 (+1)
048896,001145: 04,3076 00045 36D
048897,001146: 04,3077 26720 STOVL MAGVEC2 # PL AT 0
048898,001147: 04,3100 77656 UNIT
048899,001148: 04,3101 02722 STORE UR1 # UR1 (+1)
048900,001149: 04,3102 72441 DOT SL1
048901,001150: 04,3103 02712 U2
048902,001151: 04,3104 77725 PDDL # 0D=CSTH (+1) PL AT 2
048903,001152: 04,3105 00045 36D
048904,001153: 04,3106 24041 STOVL R1 # R1 (+29 OR +27)
048905,001154: 04,3107 02722 UR1
048906,001155: 04,3110 76435 VXV VSL1
048907,001156: 04,3111 02712 U2
048908,001157: 04,3112 75214 BON SIGN
048909,001158: 04,3113 03705 NORMSW
048910,001159: 04,3114 11126 HAVENORM
048911,001160: 04,3115 02673 GEOMSGN
048912,001161: 04,3116 40056 UNIT BOV
048913,001162: 04,3117 11124 COLINEAR
048914,001163: 04,3120 16674 UNITNORM STODL UN # UN (+1)
048915,001164: 04,3121 00045 36D
048916,001165: 04,3122 43565 SIGN RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
048917,001166: 04,3123 02673 GEOMSGN
048918,001167:
048919,001168: 04,3124 52162 COLINEAR VSR1 GOTO
048920,001169: 04,3125 11120 UNITNORM
048921,001170:
048922,001171: 04,3126 75246 HAVENORM ABVAL SIGN
048923,001172: 04,3127 02673 GEOMSGN
048924,001173: 04,3130 77616 RVQ # MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
048925,001174:
048926,001175: # Page 1188
048927,001176: 12,2767 BANK 12
048928,001177: 12,2000 SETLOC CONICS
048929,001178: 12,2000 BANK
048930,001179:
048931,001180: 12,2767 COUNT* $$/CONIC
048932,001181: 12,2767 66374 GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
048933,001182: 12,2770 00003 3
048934,001183: 12,2771 00052 S2
048935,001184: 12,2772 00001 1
048936,001185: 12,2773 77614 CLEAR
048937,001186: 12,2774 04276 360SW
048938,001187: 12,2775 65366 SQRT PDDL # 0D=SQRT(P) PL AT 2
048939,001188: 12,2776 02732 CSTH
048940,001189: 12,2777 44342 SR1 BDSU
048941,001190: 12,3000 11003 D1/4
048942,001191: 12,3001 54325 PDDL SRR # PL AT 4D
048943,001192: 12,3002 02730 SNTH
048944,001193: 12,3003 21607 6
048945,001194: 12,3004 77671 DDV # PL AT 2
048946,001195: 12,3005 77600 BOV
048947,001196: 12,3006 25122 360CHECK
048948,001197: 12,3007 41225 DSU DMP
048949,001198: 12,3010 02766 COGA # PL AT 0
048950,001199: 12,3011 40132 SL2R BOV
048951,001200: 12,3012 25122 360CHECK
048952,001201: 12,3013 63406 WLOOP PUSH DSQ # 0D=W (+5) PL AT 2
048953,001202: 12,3014 65351 TLOAD PDDL # 2D=WSQ (+10) PL AT 5
048954,001203: 12,3015 00155 MPAC
048955,001204: 12,3016 02742 R1A
048956,001205: 12,3017 76202 SR4 TAD # PL AT 2
048957,001206: 12,3020 75440 BMN SQRT
048958,001207: 12,3021 25205 INFINITY
048959,001208: 12,3022 43306 ROUND DAD # PL AT 0D
048960,001209: 12,3023 61000 BOV TIX,2
048961,001210: 12,3024 25120 RESETX2
048962,001211: 12,3025 25013 WLOOP
048963,001212:
048964,001213: 12,3026 40065 BDDV BOV
048965,001214: 12,3027 10777 D1/128
048966,001215: 12,3030 25205 INFINITY
048967,001216: 12,3031 41440 POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
048968,001217: 12,3032 25205 INFINITY
048969,001218: 12,3033 77716 DSQ
048970,001219: 12,3034 41301 NORM DMP
048971,001220: 12,3035 00047 X1
048972,001221: 12,3036 02742 R1A
048973,001222: 12,3037 77457 SRR* EXIT
048974,001223: 12,3040 21567 0 -10D,1
048975,001224: 12,3041 07225 TC POLY
048976,001225: # Page 1189
048977,001226: 12,3042 00005 DEC 5 B-14
048978,001227: 12,3043 20000 00000 2DEC .5
048979,001228: 12,3045 72525 52471 2DEC -.166666770
048980,001229: 12,3047 03146 15003 2DEC .100000392
048981,001230: 12,3051 75556 45210 2DEC -.071401086
048982,001231: 12,3053 01615 13553 2DEC .055503292
048983,001232: 12,3055 76371 63777 2DEC -.047264098
048984,001233: 12,3057 01232 27367 2DEC .040694204
048985,001234:
048986,001235: 12,3061 06042 TC INTPRET
048987,001236: 12,3062 76405 DMP SL1R # PL AT 0D
048988,001237: 12,3063 43006 PUSH BON
048989,001238: 12,3064 04316 360SW
048990,001239: 12,3065 25172 TRUE360X
048991,001240: 12,3066 60316 XCOMMON DSQ NORM
048992,001241: 12,3067 00047 X1
048993,001242: 12,3070 53605 DMP SRR*
048994,001243: 12,3071 02742 R1A
048995,001244: 12,3072 21565 0 -12D,1
048996,001245: 12,3073 14031 STODL XI # XI (+6)
048997,001246: 12,3074 00041 R1
048998,001247: 12,3075 75542 SR1 SQRT
048999,001248: 12,3076 41306 ROUND DMP
049000,001249: 12,3077 77632 SL4R # PL AT 0
049001,001250: 12,3100 00025 STORE X # X (+17 OR +16)
049002,001251:
049003,001252: 12,3101 60316 DSQ NORM
049004,001253: 12,3102 00047 X1
049005,001254: 12,3103 41325 PDDL DMP # 0D=XSQ (+34 OR +32 -N1) PL AT 2
049006,001255: 12,3104 02740 P
049007,001256: 12,3105 00041 R1
049008,001257: 12,3106 75452 SL3 SQRT
049009,001258: 12,3107 56405 DMP SL3R
049010,001259: 12,3110 02766 COGA
049011,001260: 12,3111 14043 STODL KEPC1
049012,001261: 12,3112 02742 R1A
049013,001262: 12,3113 43021 BDSU CLEAR
049014,001263: 12,3114 11001 D1/64
049015,001264: 12,3115 04270 INFINFLG
049016,001265: 12,3116 00045 STORE KEPC2
049017,001266: 12,3117 77616 RVQ
049018,001267:
049019,001268: # Page 1190
049020,001269: 12,3120 77774 RESETX2 AXT,2
049021,001270: 12,3121 00003 3
049022,001271:
049023,001272: 12,3122 51001 360CHECK SETPD BPL
049024,001273: 12,3123 00001 0D
049025,001274: 12,3124 25127 INVRSEQN
049026,001275: 12,3125 77614 SET
049027,001276: 12,3126 04076 360SW
049028,001277:
049029,001278: 12,3127 75545 INVRSEQN DLOAD SQRT
049030,001279: 12,3130 02740 P
049031,001280: 12,3131 41325 PDDL DMP # 0D=SQRT(P) (+2) PL AT 2
049032,001281: 12,3132 02730 SNTH
049033,001282: 12,3133 02766 COGA
049034,001283: 12,3134 65352 SL1 PDDL # 2D=SNTH COGA (+5) PL AT 4
049035,001284: 12,3135 02732 CSTH
049036,001285: 12,3136 43202 SR4 DAD
049037,001286: 12,3137 11007 D1/32
049038,001287: 12,3140 41225 DSU DMP # PL AT 2,0
049039,001288: 12,3141 55301 NORM BDDV
049040,001289: 12,3142 00047 X1
049041,001290: 12,3143 02730 SNTH
049042,001291: 12,3144 51457 SLR* ABS # NOTE: NEAR 360 CASE TREATED DIFFERENTLY
049043,001292: 12,3145 21174 0 -5,1
049044,001293: 12,3146 63406 PUSH DSQ # 0D=1/W (-1) PL AT 2
049045,001294: 12,3147 14043 STODL 34D
049046,001295: 12,3150 11005 D1/16
049047,001296: 12,3151 63406 1/WLOOP PUSH DSQ # 2D=G (+4) PL AT 4
049048,001297: 12,3152 65234 RTB PDDL # PL AT 7
049049,001298: 12,3153 21634 TPMODE
049050,001299: 12,3154 02742 R1A
049051,001300: 12,3155 40405 DMP SR4
049052,001301: 12,3156 00043 34D
049053,001302: 12,3157 77771 TAD
049054,001303: 12,3160 75440 BMN SQRT # PL AT 4
049055,001304: 12,3161 25205 INFINITY
049056,001305: 12,3162 77615 DAD # PL AT 2
049057,001306: 12,3163 60304 TIX,2 NORM
049058,001307: 12,3164 25151 1/WLOOP
049059,001308: 12,3165 00047 X1
049060,001309: 12,3166 77665 BDDV
049061,001310: 12,3167 52057 SLR* GOTO # PL AT 0
049062,001311: 12,3170 21172 0 -7,1
049063,001312: 12,3171 25031 POLYCOEF
049064,001313:
049065,001314: 12,3172 50145 TRUE360X DLOAD BMN
049066,001315: 12,3173 02742 R1A
049067,001316: # Page 1191
049068,001317: 12,3174 25205 INFINITY
049069,001318: 12,3175 60366 SQRT NORM
049070,001319: 12,3176 00047 X1
049071,001320: 12,3177 53665 BDDV SL*
049072,001321: 12,3200 11021 2PISC
049073,001322: 12,3201 20176 0 -3,1
049074,001323: 12,3202 41425 DSU PUSH # 0D=2PI/SQRT(R1A) -X PL AT 0,2
049075,001324: 12,3203 77650 GOTO
049076,001325: 12,3204 25066 XCOMMON
049077,001326: 12,3205 40001 INFINITY SETPD BOV # NO SOLUTION EXISTS SINCE CLOSURE THROUGH
049078,001327: 12,3206 00001 0 # INFINITY IS REQUIRED
049079,001328: 12,3207 25210 OVFLCLR
049080,001329: 12,3210 43414 OVFLCLR SET RVQ
049081,001330: 12,3211 04070 INFINFLG
049082,001331:
049083,001332: # Page 1192
049084,001333: 12,3212 40220 LAMBERT STQ SETPD
049085,001334: 12,3213 02710 RTNLAMB
049086,001335: 12,3214 00001 0D
049087,001336: 12,3215 77600 BOV
049088,001337: 12,3216 25217 +1
049089,001338: 12,3217 76614 CLEAR VLOAD*
049090,001339: 12,3220 02674 SOLNSW
049091,001340: 12,3221 10005 MUTABLE,1
049092,001341: 12,3222 14017 STODL 1/MU
049093,001342: 12,3223 02671 TDESIRED
049094,001343: 12,3224 77675 DMPR
049095,001344: 12,3225 11006 BEE19
049096,001345: 12,3226 02764 STORE EPSILONL
049097,001346: 12,3227 77214 SET VLOAD
049098,001347: 12,3230 00474 SLOPESW
049099,001348: 12,3231 02655 R1VEC
049100,001349: 12,3232 45115 PDVL CALL # 0D=R1VEC (+29 OR +27) PL AT 6
049101,001350: 12,3233 02663 R2VEC # MPAC=R2VEC (+29 OR +27)
049102,001351: 12,3234 11074 GEOM
049103,001352: 12,3235 16730 STODL SNTH # 0D=CSTH (+1) PL AT 2
049104,001353: 12,3236 02720 MAGVEC2
049105,001354: 12,3237 65301 NORM PDDL
049106,001355: 12,3240 00047 X1
049107,001356: 12,3241 00041 R1
049108,001357: 12,3242 56342 SR1 DDV # PL AT 2
049109,001358: 12,3243 65257 SL* PDDL # DXCH WITH 0D, 0D=R1/R2 (+7) PL AT 0,2
049110,001359: 12,3244 20173 0 -6,1
049111,001360: 12,3245 77626 STADR
049112,001361: 12,3246 75045 STORE CSTH # CSTH (+1)
049113,001362: 12,3247 44342 SR1 BDSU
049114,001363: 12,3250 11003 D1/4
049115,001364: 12,3251 02734 STORE 1-CSTH # 1-CSTH (+2)
049116,001365:
049117,001366: 12,3252 53106 ROUND BZE
049118,001367: 12,3253 25473 360LAMB
049119,001368: 12,3254 65301 NORM PDDL # PL AT 4
049120,001369: 12,3255 00047 X1
049121,001370: 12,3256 00001 0D
049122,001371: 12,3257 56342 SR1 DDV # PL AT 2
049123,001372: 12,3260 75457 SL* SQRT
049124,001373: 12,3261 20176 0 -3,1
049125,001374: 12,3262 54325 PDDL SR # 2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
049126,001375: 12,3263 02730 SNTH
049127,001376: 12,3264 20607 6
049128,001377: 12,3265 43271 DDV DAD # PL AT 2
049129,001378: 12,3266 02734 1-CSTH
049130,001379: 12,3267 77626 STADR
049131,001380: 12,3270 77760 STORE COGAMAX
049132,001381: 12,3271 50000 BOV BMN # IF OVFL, COGAMAX=COGUPLIM
049133,001382: 12,3272 25277 UPLIM # IF NEG, USE EVEN IF LT COGLOLIM, SINCE
049134,001383: # Page 1193
049135,001384: 12,3273 25302 MAXCOGA # THIS WOULD BE RESET IN LAMBLOOP
049136,001385: 12,3274 50025 DSU BMN # IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
049137,001386: 12,3275 11025 COGUPLIM
049138,001387: 12,3276 25302 MAXCOGA # OTHERWISE OK, SO GO TO MAXCOGA
049139,001388: 12,3277 77745 UPLIM DLOAD
049140,001389: 12,3300 11025 COGUPLIM # COGUPLIM=.999511597 = MAX VALUE OF COGA
049141,001390: 12,3301 00017 STORE COGAMAX # NOT CAUSING OVFL IN R1A CALCULATION
049142,001391: 12,3302 77745 MAXCOGA DLOAD
049143,001392: 12,3303 02732 CSTH
049144,001393: 12,3304 45261 SR DSU # PL AT 0
049145,001394: 12,3305 20607 6
049146,001395: 12,3306 77626 STADR
049147,001396: 12,3307 61041 STODL CSTH-RHO
049148,001397: 12,3310 02673 GEOMSGN
049149,001398: 12,3311 71240 BMN DLOAD
049150,001399: 12,3312 25513 LOLIM
049151,001400: 12,3313 02736 CSTH-RHO
049152,001401: 12,3314 56352 SL1 DDV
049153,001402: 12,3315 02730 SNTH
049154,001403: 12,3316 77600 BOV
049155,001404: 12,3317 25513 LOLIM
049156,001405: 12,3320 00011 MINCOGA STORE COGAMIN # COGAMIN (+5)
049157,001406: 12,3321 66214 BON SSP
049158,001407: 12,3322 00715 GUESSW
049159,001408: 12,3323 25477 NOGUESS
049160,001409: 12,3324 00051 TWEEKIT
049161,001410: 12,3325 00001 00001
049162,001411: 12,3326 77745 DLOAD
049163,001412: 12,3327 02766 COGA
049164,001413:
049165,001414: 12,3330 77605 LAMBLOOP DMP
049166,001415: 12,3331 02730 SNTH
049167,001416: 12,3332 45342 SR1 DSU
049168,001417: 12,3333 02736 CSTH-RHO
049169,001418: 12,3334 65301 NORM PDDL # 0D=SNTH COGA-(CSTH-RHO) (+7+C(XI)) PL = 2
049170,001419: 12,3335 00047 X1
049171,001420: 12,3336 02734 1-CSTH
049172,001421: 12,3337 56257 SL* DDV # 1-CSTH (+2) PL AT 0
049173,001422: 12,3340 20170 0 -9D,1
049174,001423: 12,3341 53040 BMN BZE
049175,001424: 12,3342 25427 NEGP
049176,001425: 12,3343 25427 NEGP
049177,001426: 12,3344 16740 STODL P # P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
049178,001427: 12,3345 02766 COGA
049179,001428: 12,3346 43316 DSQ DAD
049180,001429: 12,3347 11011 D1/1024
049181,001430: 12,3350 41301 NORM DMP
049182,001431: 12,3351 00047 X1
049183,001432: 12,3352 02740 P
049184,001433: # Page 1194
049185,001434: 12,3353 44257 SR* BDSU
049186,001435: 12,3354 20571 0 -8D,1
049187,001436: 12,3355 11007 D1/32
049188,001437: 12,3356 16742 STODL R1A # R1A=2-P(1+COGA COGA) (+6)
049189,001438: 12,3357 02740 P
049190,001439: 12,3360 45000 BOV CALL
049191,001440: 12,3361 25432 HIENERGY
049192,001441: 12,3362 24767 GETX
049193,001442: 12,3363 77745 DLOAD
049194,001443: 12,3364 00037 T
049195,001444: 12,3365 16762 STODL TPREV
049196,001445: 12,3366 00031 XI
049197,001446: 12,3367 45014 BON CALL
049198,001447: 12,3370 04310 INFINFLG
049199,001448: 12,3371 25427 NEGP # HAVE EXCEEDED THEORETICAL BOUNDS
049200,001449: 12,3372 24421 DELTIME
049201,001450: 12,3373 44200 BOV BDSU
049202,001451: 12,3374 25447 BIGTIME
049203,001452: 12,3375 02671 TDESIRED
049204,001453: 12,3376 02760 STORE TERRLAMB
049205,001454: 12,3377 44246 ABS BDSU
049206,001455: 12,3400 02764 EPSILONL
049207,001456: 12,3401 47044 BPL RTB
049208,001457: 12,3402 25516 INITV
049209,001458: 12,3403 24644 CHECKCTR
049210,001459: 12,3404 43030 BHIZ BON
049211,001460: 12,3405 25460 SUFFCHEK
049212,001461: 12,3406 00714 SLOPESW
049213,001462: 12,3407 25415 GOITER
049214,001463: 12,3410 45345 DLOAD DSU
049215,001464: 12,3411 00037 T
049216,001465: 12,3412 02762 TPREV
049217,001466: 12,3413 77654 BZE
049218,001467: 12,3414 25460 SUFFCHEK
049219,001468: 12,3415 77624 GOITER CALL
049220,001469: 12,3416 24536 ITERATOR
049221,001470: 12,3417 53145 DLOAD BZE
049222,001471: 12,3420 00155 MPAC
049223,001472: 12,3421 25460 SUFFCHEK
049224,001473: 12,3422 77615 DAD
049225,001474: 12,3423 02766 COGA
049226,001475: 12,3424 02766 STORE COGA
049227,001476: 12,3425 77650 GOTO
049228,001477: 12,3426 25330 LAMBLOOP
049229,001478:
049230,001479: 12,3427 51145 NEGP DLOAD BPL # IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
049231,001480: 12,3430 00015 DCOGA # BOUND CALCULATION. TRY NEW COGA.
049232,001481: 12,3431 25452 LOENERGY
049233,001482:
049234,001483: # Page 1195
049235,001484: 12,3432 71201 HIENERGY SETPD DLOAD # HIGH ENERGY TRAJECTORY RESULTED.
049236,001485: 12,3433 00001 0
049237,001486: 12,3434 02766 COGA # IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
049238,001487: 12,3435 00011 STORE COGAMIN # THIS IS THE NEW BOUND.
049239,001488: 12,3436 70545 COMMONLM DLOAD SR1
049240,001489: 12,3437 00015 DCOGA
049241,001490: 12,3440 00015 STORE DCOGA # USE DCOGA/2 AS DECREMENT
049242,001491: 12,3441 44254 BZE BDSU
049243,001492: 12,3442 25460 SUFFCHEK
049244,001493: 12,3443 02766 COGA
049245,001494: 12,3444 02766 STORE COGA
049246,001495: 12,3445 77650 GOTO # RESTART THIS LOOP
049247,001496: 12,3446 25330 LAMBLOOP
049248,001497:
049249,001498: 12,3447 77745 BIGTIME DLOAD
049250,001499: 12,3450 02762 TPREV
049251,001500: 12,3451 00037 STORE T
049252,001501:
049253,001502: 12,3452 71201 LOENERGY SETPD DLOAD # LOW ENERGY TRAJECTORY RESULTED
049254,001503: 12,3453 00001 0
049255,001504: 12,3454 02766 COGA # IN OVERFLOW OF TIME.
049256,001505: 12,3455 00017 STORE COGAMAX # THIS IS THE NEW BOUND.
049257,001506: 12,3456 77650 GOTO
049258,001507: 12,3457 25436 COMMONLM
049259,001508:
049260,001509: 12,3460 51545 SUFFCHEK DLOAD ABS
049261,001510: 12,3461 02760 TERRLAMB
049262,001511: 12,3462 41325 PDDL DMP
049263,001512: 12,3463 02671 TDESIRED # PL AT 2D
049264,001513: 12,3464 10774 BEE17
049265,001514: 12,3465 45215 DAD DSU # PL AT 0D
049266,001515: 12,3466 11023 ONEBIT
049267,001516: 12,3467 43044 BPL SETGO
049268,001517: 12,3470 25516 INITV
049269,001518: 12,3471 02434 SOLNSW
049270,001519: 12,3472 25516 INITV
049271,001520: 12,3473 43001 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
049272,001521: 12,3474 00001 0
049273,001522: 12,3475 02434 SOLNSW
049274,001523: 12,3476 02710 RTNLAMB
049275,001524:
049276,001525: 12,3477 71331 NOGUESS SSP DLOAD
049277,001526: 12,3500 00051 TWEEKIT
049278,001527: 12,3501 10000 20000
049279,001528: 12,3502 00011 COGAMIN
049280,001529: 12,3503 65342 SR1 PDDL
049281,001530: # Page 1196
049282,001531: 12,3504 00017 COGAMAX
049283,001532: 12,3505 43342 SR1 DAD
049284,001533: 12,3506 77626 STADR # PL AT 0
049285,001534: 12,3507 75011 STORE COGA
049286,001535: 12,3510 00015 STORE DCOGA
049287,001536: 12,3511 77650 GOTO
049288,001537: 12,3512 25330 LAMBLOOP
049289,001538:
049290,001539: 12,3513 52145 LOLIM DLOAD GOTO
049291,001540: 12,3514 11027 COGLOLIM # COGLOLIM=-.999511597
049292,001541: 12,3515 25320 MINCOGA
049293,001542:
049294,001543: 12,3516 60345 INITV DLOAD NORM
049295,001544: 12,3517 00041 R1
049296,001545: 12,3520 00047 X1
049297,001546: 12,3521 70525 PDDL SR1 # PL AT 2
049298,001547: 12,3522 02740 P
049299,001548: 12,3523 77671 DDV # PL AT 0
049300,001549: 12,3524 75457 SL* SQRT
049301,001550: 12,3525 20175 0 -4,1
049302,001551: 12,3526 72405 DMP SL1
049303,001552: 12,3527 00021 ROOTMU
049304,001553: 12,3530 41206 PUSH DMP # 0D=VTAN (+7) PL AT 2
049305,001554: 12,3531 02766 COGA
049306,001555: 12,3532 74261 SL VXSC
049307,001556: 12,3533 20206 5
049308,001557: 12,3534 02722 UR1
049309,001558: 12,3535 77725 PDDL # XCH WITH 0D PL AT 0,6
049310,001559: 12,3536 76561 VXSC VSL1
049311,001560: 12,3537 02674 UN
049312,001561: 12,3540 53235 VXV VAD
049313,001562: 12,3541 02722 UR1 # PL AT 0
049314,001563: 12,3542 77772 VSL1
049315,001564: 12,3543 02744 STORE VVEC
049316,001565: 12,3544 53135 SLOAD BZE
049317,001566: 12,3545 02702 VTARGTAG
049318,001567: 12,3546 25551 TARGETV
049319,001568: 12,3547 77650 GOTO
049320,001569: 12,3550 02710 RTNLAMB
049321,001570:
049322,001571: 12,3551 45145 TARGETV DLOAD CALL
049323,001572: 12,3552 02720 MAGVEC2
049324,001573: 12,3553 24701 LAMENTER
049325,001574: 12,3554 02703 STORE VTARGET
049326,001575: 12,3555 77650 GOTO
049327,001576: 12,3556 02710 RTNLAMB
049328,001577:
049329,001578: # Page 1197
049330,001579: 12,3557 40220 TIMERAD STQ SETPD # PL AT 0
049331,001580: 12,3560 02710 RTNTR
049332,001581: 12,3561 00001 0
049333,001582: 12,3562 77600 BOV
049334,001583: 12,3563 25564 +1
049335,001584: 12,3564 63375 VLOAD PDVL # PL AT 6
049336,001585: 12,3565 02655 RVEC
049337,001586: 12,3566 02744 VVEC
049338,001587: 12,3567 77624 CALL
049339,001588: 12,3570 11030 PARAM
049340,001589: 12,3571 71200 BOV DLOAD
049341,001590: 12,3572 24764 COGAOVFL # PL AT 0
049342,001591: 12,3573 11007 D1/32
049343,001592: 12,3574 41225 DSU DMP
049344,001593: 12,3575 02742 R1A
049345,001594: 12,3576 02740 P
049346,001595: 12,3577 41366 SQRT DMP
049347,001596: 12,3600 02766 COGA
049348,001597: 12,3601 74212 SL4 VXSC
049349,001598: 12,3602 02712 U2
049350,001599: 12,3603 45325 PDDL DSU # PL AT 6
049351,001600: 12,3604 11001 D1/64
049352,001601: 12,3605 02742 R1A
049353,001602: 12,3606 52361 VXSC VSU # PL AT 0
049354,001603: 12,3607 02722 UR1
049355,001604: 12,3610 53512 VSL4 UNIT
049356,001605: 12,3611 77600 BOV
049357,001606: 12,3612 25670 CIRCULAR
049358,001607: 12,3613 60325 PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6
049359,001608: 12,3614 02756 RDESIRED # 35D=ECC (+3)
049360,001609: 12,3615 00047 X1
049361,001610: 12,3616 41325 PDDL DMP # PL AT 8
049362,001611: 12,3617 00041 R1
049363,001612: 12,3620 02740 P
049364,001613: 12,3621 56257 SL* DDV # PL AT 6
049365,001614: 12,3622 20201 0,1
049366,001615: 12,3623 56225 DSU DDV
049367,001616: 12,3624 11005 D1/16
049368,001617: 12,3625 00045 36D # 36D=ECC (+3)
049369,001618: 12,3626 00031 STORE COSF
049370,001619: 12,3627 63400 BOV DSQ
049371,001620: 12,3630 25674 BADR2
049372,001621: 12,3631 50021 BDSU BMN
049373,001622: 12,3632 11003 D1/4
049374,001623: 12,3633 25674 BADR2
049375,001624: 12,3634 75366 SQRT SIGN
049376,001625: 12,3635 02755 SGNRDOT
049377,001626: 12,3636 77614 CLEAR
049378,001627: 12,3637 04272 APSESW
049379,001628: # Page 1198
049380,001629: 12,3640 76561 TERMNVEC VXSC VSL1
049381,001630: 12,3641 02674 UN
049382,001631: 12,3642 63235 VXV PDVL # VXCH WITH 0D PL AT 0,6
049383,001632: 12,3643 00001 0D
049384,001633: 12,3644 53361 VXSC VAD # PL AT 0
049385,001634: 12,3645 00031 COSF
049386,001635: 12,3646 41572 VSL1 PUSH # 0D=U2 PL AT 6
049387,001636:
049388,001637: 12,3647 56241 DOT DDV # LIMITS RESULT TO POSMAX OR NEGMAX
049389,001638: 12,3650 02722 UR1
049390,001639: 12,3651 25766 DP1/4
049391,001640: 12,3652 40142 SR1 BOV # SCALE BACK DOWN TO NORMAL
049392,001641: 12,3653 25654 +1 # CLEAR OVFIND IF SET
049393,001642: 12,3654 26732 STOVL CSTH # CSTH (+1)
049394,001643: 12,3655 02722 UR1
049395,001644: 12,3656 76435 VXV VSL1
049396,001645: 12,3657 72441 DOT SL1
049397,001646: 12,3660 02674 UN
049398,001647: 12,3661 16730 STODL SNTH # SNTH (+1)
049399,001648: 12,3662 02740 P
049400,001649: 12,3663 77624 CALL
049401,001650: 12,3664 24767 GETX
049402,001651: 12,3665 77614 CLRGO
049403,001652: 12,3666 02634 SOLNSW
049404,001653: 12,3667 24747 COMMNOUT
049405,001654:
049406,001655: 12,3670 43001 CIRCULAR SETPD SETGO
049407,001656: 12,3671 00001 0
049408,001657: 12,3672 02434 SOLNSW
049409,001658: 12,3673 25752 ABTCONIC
049410,001659:
049411,001660: 12,3674 75345 BADR2 DLOAD SIGN
049412,001661: 12,3675 24005 LODPHALF
049413,001662: 12,3676 00031 COSF
049414,001663: 12,3677 14031 STODL COSF
049415,001664: 12,3700 24007 KEPZERO
049416,001665: 12,3701 77614 SETGO
049417,001666: 12,3702 04032 APSESW
049418,001667: 12,3703 25640 TERMNVEC
049419,001668:
049420,001669: # Page 1199
049421,001670: 12,3704 40220 APSIDES STQ SETPD # PL AT 0
049422,001671: 12,3705 02710 RTNAPSE
049423,001672: 12,3706 00001 0D
049424,001673: 12,3707 77600 BOV
049425,001674: 12,3710 25711 +1
049426,001675: 12,3711 63375 VLOAD PDVL # PL AT 6
049427,001676: 12,3712 02655 RVEC
049428,001677: 12,3713 02744 VVEC
049429,001678: 12,3714 77624 CALL
049430,001679: 12,3715 11030 PARAM
049431,001680: 12,3716 77600 BOV # PL AT 0
049432,001681: 12,3717 25720 GETECC
049433,001682: 12,3720 42405 GETECC DMP SL4
049434,001683: 12,3721 02742 R1A
049435,001684: 12,3722 75421 BDSU SQRT
049436,001685: 12,3723 11001 D1/64
049437,001686: 12,3724 02752 STORE ECC
049438,001687: 12,3725 65215 DAD PDDL # PL AT 2
049439,001688: 12,3726 10775 D1/8
049440,001689: 12,3727 00041 R1
049441,001690: 12,3730 72405 DMP SL1
049442,001691: 12,3731 02740 P
049443,001692: 12,3732 77671 DDV # PL AT 0
049444,001693: 12,3733 60325 PDDL NORM # 0D=RP (+29 OR +27) PL AT 2
049445,001694: 12,3734 02742 R1A
049446,001695: 12,3735 00047 X1
049447,001696: 12,3736 53725 PDDL SL* # PL AT 4
049448,001697: 12,3737 00041 R1
049449,001698: 12,3740 20174 0 -5,1
049450,001699: 12,3741 45271 DDV DSU # PL AT 2,0
049451,001700: 12,3742 50000 BOV BMN
049452,001701: 12,3743 25747 INFINAPO
049453,001702: 12,3744 25747 INFINAPO
049454,001703: 12,3745 77650 GOTO
049455,001704: 12,3746 02710 RTNAPSE
049456,001705: 12,3747 52145 INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
049457,001706: 12,3750 24020 LDPOSMAX
049458,001707: 12,3751 02710 RTNAPSE # THAT PL IS AT 0.
049459,001708:
049460,001709: # Page 1200
049461,001710: 12,3752 77776 ABTCONIC EXIT
049462,001711: 12,3753 05642 TC P00DOO
049463,001712: 12,3754 20607 OCT 20607
049464,001713:
049465,001714: 12,3755 12,2017 LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
049466,001715:
049467,001716: # ERASABLE ASSIGNEMENTS
049468,001717: # KEPLER SUBROUTINE
049469,001718:
049470,001719: # INPUT --
049471,001720: # RRECT ERASE +5
049472,001721: # VRECT ERASE +5
049473,001722: # TAU. ERASE +1
049474,001723: # XKEP ERASE +1
049475,001724: # TC ERASE +1
049476,001725: # XPREV ERASE +1
049477,001726: 12,3755 1/MU EQUALS 14D
049478,001727: 12,3755 ROOTMU EQUALS 16D
049479,001728: 12,3755 1/ROOTMU EQUALS 18D
049480,001729:
049481,001730: # OUTPUT --
049482,001731: # RCV ERASE +5
049483,001732: # VCV ERASE +5
049484,001733: # RC ERASE +1
049485,001734: # XPREV ERASE +1
049486,001735:
049487,001736: # DEBRIS --
049488,001737: 12,3755 ALPHA EQUALS 8D
049489,001738: 12,3755 XMAX EQUALS 10D
049490,001739: 12,3755 XMIN EQUALS 12D
049491,001740: 12,3755 X EQUALS 20D
049492,001741: 12,3755 XI EQUALS 24D
049493,001742: 12,3755 S(XI) EQUALS 26D
049494,001743: 12,3755 XSQC(XI) EQUALS 28D
049495,001744: 12,3755 T EQUALS 30D
049496,001745: 12,3755 R1 EQUALS 32D
049497,001746: 12,3755 KEPC1 EQUALS 34D
049498,001747: 12,3755 KEPC2 EQUALS 36D
049499,001748: # DELX ERASE +1
049500,001749: # DELT ERASE +1
049501,001750: # URRECT ERASE +5
049502,001751: # RCNORM ERASE +1
049503,001752: # XPREV EQUALS XKEP
049504,001753:
049505,001754:
049506,001755: # LAMBERT SUBROUTINE
049507,001756:
049508,001757: # INPUT --
049509,001758: # R1VEC ERASE +5
049510,001759: # Page 1201
049511,001760: # R2VEC ERASE +5
049512,001761: # TDESIRED ERASE +1
049513,001762: # GEOMSGN ERASE +0
049514,001763: # GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT
049515,001764: # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO.
049516,001765: # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
049517,001766: # UN ERASE +5 # ONLY USEC IF NORMSE IS 1
049518,001767: # VTARGTAG ERASE +0
049519,001768: # TWEEKIT EQUALS 40D # ONLY USED IF GUESSW IS 0
049520,001769:
049521,001770: # OUTPUT --
049522,001771: # VTARGET ERASE +5 # AVAILABLE ONLY IF VTARGTAG IS ZERO.
049523,001772: # V1VEC EQUALS MPAC
049524,001773:
049525,001774: # DEBRIS --
049526,001775: # RTNLAMB ERASE +0
049527,001776: # U2 ERASE +5
049528,001777: # MAGVEC2 ERASE +1
049529,001778: # UR1 ERASE +5
049530,001779: # R1 EQUALS 31D
049531,001780: # UN ERASE +5
049532,001781: # SNTH ERASE +1
049533,001782: # CSTH ERASE +1
049534,001783: # 1-CSTH ERASE +1
049535,001784: # CSTH-RHO ERASE +1
049536,001785: 12,3755 COGAMAX EQUALS 14D # CLOBBERS 1/MU
049537,001786: 12,3755 COGAMIN EQUALS 8D
049538,001787: 12,3755 DCOGA EQUALS 12D
049539,001788: # TWEEKIT EQUALS 40D
049540,001789: # P ERASE +1
049541,001790: # COGA ERASE +1
049542,001791: # R1A ERASE +1
049543,001792: # X EQUALS 20D
049544,001793: # XSQ EQUALS 22D
049545,001794: # XI EQUALS 24D
049546,001795: # S(XI) EQUALS 26D
049547,001796: # XSQC(XI) EQUALS 28D
049548,001797: # T EQUALS 30D
049549,001798: # KEPC1 EQUALS 34D
049550,001799: # KEPC2 EQUALS 36D
049551,001800: # SLOPSW
049552,001801: # SOLNSW
049553,001802:
049554,001803: # OTHERS --
049555,001804: # RVEC EQUALS R1VEC
049556,001805: # VVEC ERASE +5
049557,001806: # COGAFLAG
049558,001807: # RVSW
049559,001808: # INFINFLG
049560,001809: # APSESW
049561,001810: # Page 1202
049562,001811: # 360SW
049563,001812: # RTNTT EQUALS RTNLAMB
049564,001813: # ECC ERASE +1
049565,001814: # RTNTR EQUALS RTNLAMB
049566,001815: # RTNAPSE EQUALS RTNLAMB
049567,001816: # R2 EQUALS MAGVEC2
049568,001817: 12,3755 COSF EQUALS 24D
049569,001818: # RTNPRM ERASE +0
049570,001819: # SCNRDOT ERASE +0
049571,001820: # RDESIRED ERASE +1
049572,001821:
049573,001822:
049574,001823: # ITERATOR SUBROUTINE
049575,001824: # ORDERSW
049576,001825: 12,3755 MAX EQUALS 14D # CLOBBERS 1/MU
049577,001826: 12,3755 MIN EQUALS 8D
049578,001827: # INDEP ERASE +1
049579,001828: 12,3755 DELINDEP EQUALS 12D
049580,001829: 12,3755 ITERCTR EQUALS 22D
049581,001830: 12,3755 DEP EQUALS 30D
049582,001831: # DELDEP ERASE +1
049583,001832: # DEPREV ERASE +1
049584,001833: 12,3755 TWEEKIT EQUALS 40D
049585,001834:
049586,001835:
049587,001836: # MORE KEPLER
049588,001837: # EPSILONT ERASE +1
049589,001838:
049590,001839:
049591,001840: # MORE LAMBERT
049592,001841: # TERRLAMB EQUALS DELDEP
049593,001842: # TPREV EQUALS DEPREV
049594,001843: # EPSILONL EQUALS EPSILONT +2 # DOUBLE PRECISION WORD
049595,001844:
End of include-file CONIC_SUBROUTINES.agc. Parent file is MAIN.agc