Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

051850,000002:                                                                                                 #  Copyright:    Public domain.
051851,000003:                                                                                                 #  Filename:      CONIC_SUBROUTINES.agc
051852,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
051853,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
051854,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
051855,000007:                                                                                                 #  Assembler:    yaYUL
051856,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
051857,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
051858,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
051859,000011:                                                                                                 #  Mod history:  2011-04-13 JL    Adapted from corresponding Colossus 249 file.
051860,000012:                                                                                                 #                 2011-04-17 JL   Removed temporary line.
051861,000013: 
051862,000014:                                                                                                 # # Page 1228
051863,000015:                                                                                                 #  PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION                       DATE - 1 SEPTEMBER 1967
051864,000016:                                                                                                 #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
051865,000017:                                                                                                 #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
051866,000018: 
051867,000019: 
051868,000020: 
051869,000021:                                                                                                 #  FUNCTIONAL DESCRIPTION -
051870,000022: 
051871,000023:                                                                                                 #       THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
051872,000024:                                                                                                 #  INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
051873,000025:                                                                                                 #  5.5.1.2.  A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
051874,000026:                                                                                                 #  RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE.  THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
051875,000027:                                                                                                 #  INVOLVING ANY REALISTIC SET OF CONSTRAINTS.  IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
051876,000028:                                                                                                 #  EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
051877,000029:                                                                                                 #  THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
051878,000030:                                                                                                 #  DEFINITION MEMO NO. 10.  THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
051879,000031:                                                                                                 #  TIMES APPROPRIATELY.
051880,000032:                                                                                                 #       DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
051881,000033:                                                                                                 #  BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE.  AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
051882,000034:                                                                                                 #  DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
051883,000035: 
051884,000036: 
051885,000037:                                                                                                 #  RESTRICTIONS -
051886,000038: 
051887,000039:                                                                                                 #       THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
051888,000040:                                                                                                 #  LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP.  THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
051889,000041:                                                                                                 #  TORIES COULD BE HANDLED.
051890,000042:                                                                                                 #       SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
051891,000043:                                                                                                 #  THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
051892,000044:                                                                                                 #  TO INTERRUPT EACH OTHER.  IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
051893,000045: 
051894,000046:                                                                                                 # # Page 1229
051895,000047:                                                                                                 #  PROGRAM DESCRIPTION - KEPLER SUBROUTINE                                 DATE - 11 OCTOBER 1967
051896,000048:                                                                                                 #  MOD NO. -1                                                                       LOG SECTION - CONIC SUBROUTINES
051897,000049:                                                                                                 #  MOD BY KRAUSE                                                           ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
051898,000050: 
051899,000051: 
051900,000052: 
051901,000053:                                                                                                 #  FUNCTIONAL DESCRIPTION -
051902,000054:                                                                                                 #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
051903,000055:                                                                                                 #  BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR.  THE TRAJECTORY MAY BE ANY CONIC
051904,000056:                                                                                                 #  SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERPOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON.  THE
051905,000057:                                                                                                 #  USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
051906,000058:                                                                                                 #  INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERA-
051907,000059:                                                                                                 #  TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
051908,000060:                                                                                                 #       IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
051909,000061:                                                                                                 #  EXTRAPOLATING THE POSITION BACKWARD IN TIME.
051910,000062:                                                                                                 #       IF THE DESIRED TRANSFER TIME IS POSITIVE AND EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A MODULAR
051911,000063:                                                                                                 #  TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
051912,000064: 
051913,000065: 
051914,000066: 
051915,000067:                                                                                                 #  THE RESTRICTIONS ARE -
051916,000068:                                                                                                 #       1. A NEGATIVE DESIRED TIME MUST BE LESS THAN ONE PERIOD IN MAGNITUDE.  IF GREATER, THE ONE-PERIOD- SOLUTION
051917,000069:                                                                                                 #  WILL BE RETURNED.
051918,000070:                                                                                                 #       2.  THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP.  IF
051919,000071:                                                                                                 #  ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
051920,000072: 
051921,000073: 
051922,000074:                                                                                                 #       THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
051923,000075:                                                                                                 #  GUESS, XKFPNEW.  THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
051924,000076:                                                                                                 #  FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
051925,000077: 
051926,000078: 
051927,000079: 
051928,000080:                                                                                                 #  REFERENCES -
051929,000081:                                                                                                 #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
051930,000082:                                                                                                 #  MEMO 67-4.
051931,000083: 
051932,000084: 
051933,000085: 
051934,000086:                                                                                                 #  INPUT - ERASABLE INITIALIZATION REQUIRED
051935,000087: 
051936,000088:                                                                                                 #          * SCALE FACTOR *
051937,000089:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
051938,000090:                                                                                                 #  --------*--------------*                         -----------------------
051939,000091:                                                                                                 #  RRECT   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
051940,000092:                                                                                                 #          * +27 FOR MOON *
051941,000093:                                                                                                 #  VRECT   * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
051942,000094:                                                                                                 #          * +5 FOR MOON  *
051943,000095:                                                                                                 #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
051944,000096:                                                                                                 #          *              *RESPECTIVELY, IS THE CENTRAL BODY
051945,000097:                                                                                                 #  TAU     * +28          *DESIRED TRANSFER TIME IN CENTISECONDS (DP)
051946,000098:                                                                                                 # # Page 1230
051947,000099:                                                                                                 #  XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP
051948,000100:                                                                                                 #          * +16 FOR MOON *(DP)
051949,000101:                                                                                                 #  TC      * +28          *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP
051950,000102:                                                                                                 #  XPREV   * +17 FOR EARTH*PRVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP (DP)
051951,000103:                                                                                                 #          * +16 FOR MOON *(DP)
051952,000104: 
051953,000105: 
051954,000106: 
051955,000107:                                                                                                 #  SUBROUTINES CALLED -
051956,000108:                                                                                                 #       DELTIME
051957,000109: 
051958,000110: 
051959,000111: 
051960,000112:                                                                                                 #  CALLING SEQUENCE AND NORMAL EXIT MODES -
051961,000113: 
051962,000114:                                                                                                 #  KEPRTN-2 GOTO                   MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
051963,000115:                                                                                                 #  KEPRTN-1        KEPLER          RETURNS WITH XPREV IN MPAC. PL IS AT 0.
051964,000116:                                                                                                 #  KEPRTN   ...                    CONTINUE
051965,000117: 
051966,000118:                                                                                                 #  KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
051967,000119:                                                                                                 #  THE INTERRUPTED JOB.  THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
051968,000120:                                                                                                 #  ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
051969,000121: 
051970,000122: 
051971,000123: 
051972,000124:                                                                                                 #  ABORT EXIT MODES -
051973,000125:                                                                                                 #       NONE
051974,000126: 
051975,000127: 
051976,000128: 
051977,000129:                                                                                                 #  OUTPUT -
051978,000130: 
051979,000131:                                                                                                 #          * SCALE FACTOR *
051980,000132:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
051981,000133:                                                                                                 #  --------*--------------*                         -----------------------
051982,000134:                                                                                                 #  RCV     * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
051983,000135:                                                                                                 #          * +27 FOR MOON *
051984,000136:                                                                                                 #  VCV     * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
051985,000137:                                                                                                 #          * +5 FOR MOON  *
051986,000138:                                                                                                 #  TC      * +28          *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED.
051987,000139:                                                                                                 #  XPREV   * +17 FOR EARTH*DP VALUE OF X IN METERS-TO-THE-ONE-HALF-POWER TO WHICH KEPLER CONVERGED.
051988,000140:                                                                                                 #          * +16 FOR MOON *(DP)
051989,000141:                                                                                                 #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
051990,000142: 
051991,000143: 
051992,000144:                                                                                                 #  DEBRIS -
051993,000145: 
051994,000146:                                                                                                 #       PARAMETERS WHICH MAY BE OF USE -
051995,000147: 
051996,000148:                                                                                                 # # Page 1231
051997,000149:                                                                                                 #          * SCALE FACTOR *
051998,000150:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
051999,000151:                                                                                                 #  --------*--------------*                         -----------------------
052000,000152:                                                                                                 #  URRECT  * +1           *DP UNIT VECTOR OF INITIAL POSITION
052001,000153:                                                                                                 #  R1      * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
052002,000154:                                                                                                 #          * +27 FOR MOON *
052003,000155:                                                                                                 #  ALPHA   * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
052004,000156:                                                                                                 #          * -20 FOR MOON *
052005,000157:                                                                                                 # TMODULO  * +28          *DP INTEGRAL NUMBER OF PERIODS IN  CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
052006,000158:                                                                                                 #          *              *TAU. OF LESS THAN ONE PERIOD.
052007,000159: 
052008,000160:                                                                                                 #       PARAMETERS OF NO USE -
052009,000161:                                                                                                 #  DP PARAMETERS - FPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
052010,000162: 
052011,000163:                                                                                                 # # Page 1232
052012,000164:                                                                                                 #  PROGRAM DESCRIPTION - LAMBERT SUBROUTINE                                        DATE - 1 SEPTEMBER 1967
052013,000165:                                                                                                 #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
052014,000166:                                                                                                 #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
052015,000167: 
052016,000168: 
052017,000169: 
052018,000170:                                                                                                 #  FUNCTIONAL DESCRIPTION -
052019,000171: 
052020,000172:                                                                                                 #       THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
052021,000173:                                                                                                 #  FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL.  THE RESULTING TRAJECTORY MAY BE
052022,000174:                                                                                                 #  A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO TEH EARTH OR THE MOON.  THE USE OF THE
052023,000175:                                                                                                 #  SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
052024,000176:                                                                                                 #  CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERATION TECHNIQUE IS
052025,000177:                                                                                                 #  UTILIZED IN THE COMPUTATION.
052026,000178: 
052027,000179: 
052028,000180:                                                                                                 #  THE RESTRICTIONS ARE -
052029,000181:                                                                                                 #       1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
052030,000182:                                                                                                 #       2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
052031,000183:                                                                                                 #       3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052032,000184:                                                                                                 #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
052033,000185:                                                                                                 #       4. NEGATIVE TRANSFER TIME IS AMBUGUOUS AND WILL RESULT IN NO SOLUTION.
052034,000186:                                                                                                 #       5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE
052035,000187:                                                                                                 #  LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052036,000188:                                                                                                 #       THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
052037,000189:                                                                                                 #  GUESS OF THE INDEPENDENT VARIABLE, COGA.                                THE AGC COMPUTATION TIME IS APPROXIMATE-
052038,000190:                                                                                                 #  LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
052039,000191: 
052040,000192: 
052041,000193: 
052042,000194:                                                                                                 #  REFERENCES -
052043,000195:                                                                                                 #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8,
052044,000196:                                                                                                 #  SGA MEMO 67-4.
052045,000197: 
052046,000198: 
052047,000199: 
052048,000200:                                                                                                 #  INPUT - ERASABLE INITIALIZATION REQUIRED
052049,000201: 
052050,000202:                                                                                                 #          * SCALE FACTOR *
052051,000203:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052052,000204:                                                                                                 #  --------*--------------*                         -----------------------
052053,000205:                                                                                                 #  R1VEC   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052054,000206:                                                                                                 #          * +27 FOR MOON *
052055,000207:                                                                                                 #  R2VEC   * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
052056,000208:                                                                                                 #          * +27 FOR MOON *
052057,000209:                                                                                                 #  TDESIRED* +28          *DP DESIRED TRANSFER TIME IN CENTISECONDS
052058,000210:                                                                                                 #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052059,000211:                                                                                                 #          *              *RESPECTIVELY, IS THE CENTRAL BODY
052060,000212:                                                                                                 #  GEOMSGN * NONE         *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
052061,000213:                                                                                                 #  GUESSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
052062,000214:                                                                                                 # # Page 1233
052063,000215:                                                                                                 #          *              *COGA IS TO BE USED BY LAMBERT
052064,000216:                                                                                                 #  COGA    * +5           *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL).  THIS WILL BE
052065,000217:                                                                                                 #                         *IGNORED IF GUESSW IS SET.
052066,000218:                                                                                                 #  NORMSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
052067,000219:                                                                                                 #          *              *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
052068,000220:                                                                                                 #  UN      * +1           *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
052069,000221:                                                                                                 #          *              *MOMENTUM VECTOR.  THIS WILL BE IGNORED IF NORMSW IS CLEAR.
052070,000222:                                                                                                 #  VTARGTAG*NONE          *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMUTE THE VELOCITY AT R2VEC AS WELL AS
052071,000223:                                                                                                 #          *              *AT R1VEC.
052072,000224: 
052073,000225: 
052074,000226: 
052075,000227:                                                                                                 #  SUBROUTINES CALLED -
052076,000228:                                                                                                 #       GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
052077,000229: 
052078,000230: 
052079,000231: 
052080,000232:                                                                                                 #  CALLING SEQUENCE AND NORMAL EXIT MODES -
052081,000233: 
052082,000234:                                                                                                 #  L        CALL                   MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
052083,000235:                                                                                                 #  L+1             LAMBERT         RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
052084,000236:                                                                                                 #                                  IN MPAC IF VTARGTAG WAS ZERO
052085,000237:                                                                                                 #  L+2      BON                    CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
052086,000238:                                                                                                 #  L+3             SOLNSW
052087,000239:                                                                                                 #  L+4             LAMABORT
052088,000240:                                                                                                 #       IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
052089,000241:                                                                                                 #  GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
052090,000242: 
052091,000243: 
052092,000244: 
052093,000245:                                                                                                 #  ABORT EXIT MODES -
052094,000246:                                                                                                 #       IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
052095,000247:                                                                                                 #  WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC.  IN EITHER CASE THE FIX MUST BE MADE
052096,000248:                                                                                                 #  ACCORDING TO THE NEEDS OF THE PARTICULAR USER.  THE ABORT EXIT MODE MAY BE CODED AS ...
052097,000249:                                                                                                 #  LAMBERT DLOAD  ABS                      A MEASURE OF THE PROXIMITY TO 0 OR
052098,000250:                                                                                                 #                 1-CHTH                   360 DEGREES.
052099,000251:                                                                                                 #          DSU    BWM
052100,000252:                                                                                                 #                 ONEBIT
052101,000253:                                                                                                 #                 CHANGER2                 CHANGE R2VEC DIRECTION SLIGHTLY.
052102,000254:                                                                                                 #          DLOAD  DAD
052103,000255:                                                                                                 #                 TDESIRED
052104,000256:                                                                                                 #                 SOMETIME
052105,000257:                                                                                                 #          STCALL TDESIRED                 INCRESE TDESIRED
052106,000258:                                                                                                 #                 LAMBERT
052107,000259: 
052108,000260: 
052109,000261: 
052110,000262:                                                                                                 #  OUTPUT -
052111,000263:                                                                                                 #          * SCALE FACTOR *
052112,000264:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052113,000265:                                                                                                 # # Page 1234
052114,000266:                                                                                                 #  --------*--------------*                         -----------------------
052115,000267:                                                                                                 #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
052116,000268:                                                                                                 #          * +5 FOR MOON  *PROBLEM.
052117,000269:                                                                                                 #  VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
052118,000270:                                                                                                 #          * +5 FOR MOON  *
052119,000271:                                                                                                 #  SOLNSW  * NONE         *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
052120,000272:                                                                                                 #          *              *SOLUTION EXISTS.
052121,000273:                                                                                                 #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052122,000274: 
052123,000275: 
052124,000276: 
052125,000277:                                                                                                 #  DEBRIS -
052126,000278:                                                                                                 #         PARAMETERS WHICH MAY BE OF USE -
052127,000279: 
052128,000280:                                                                                                 #          * SCALE FACTOR *
052129,000281:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052130,000282:                                                                                                 #  --------*--------------*                         -----------------------
052131,000283:                                                                                                 #  SNTH    * +1           *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
052132,000284:                                                                                                 #  CSTH    * +1           *DP COSING OF ANGLE
052133,000285:                                                                                                 #  1-CSTH  * +2           *DP 1-CSTH
052134,000286:                                                                                                 #  COGA    * +5           *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
052135,000287:                                                                                                 #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
052136,000288:                                                                                                 #  R1A     * +6           *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
052137,000289:                                                                                                 #  R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
052138,000290:                                                                                                 #          * +27 FOR MOON *
052139,000291:                                                                                                 #  UR1     * +1           *DP UNIT VECTOR OF R1VEC
052140,000292:                                                                                                 #  U2      * +1           *DP UNIT VECTOR OF R2VEC
052141,000293: 
052142,000294:                                                                                                 #       PARAMETERS OF NO USE
052143,000295:                                                                                                 #  DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
052144,000296:                                                                                                 #  ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
052145,000297: 
052146,000298:                                                                                                 # # Page 1235
052147,000299:                                                                                                 #  PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE                                     DATE - 1 SEPTEMBER 1967
052148,000300:                                                                                                 #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
052149,000301:                                                                                                 #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
052150,000302: 
052151,000303: 
052152,000304: 
052153,000305:                                                                                                 #  FUNCTIONAL DESCRIPTION -
052154,000306: 
052155,000307:                                                                                                 #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
052156,000308:                                                                                                 #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
052157,000309:                                                                                                 #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
052158,000310:                                                                                                 #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
052159,000311:                                                                                                 #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WTIHOUT INTRODUCING ANY CODING CHANGES,
052160,000312:                                                                                                 #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
052161,000313: 
052162,000314: 
052163,000315:                                                                                                 #  THE RESTRICTIONS ARE -
052164,000316:                                                                                                 #       1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052165,000317:                                                                                                 #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
052166,000318:                                                                                                 #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSCP.  IF THE LIMITS
052167,000319:                                                                                                 #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052168,000320: 
052169,000321:                                                                                                 #       THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
052170,000322: 
052171,000323: 
052172,000324: 
052173,000325:                                                                                                 #  REFERENCES -
052174,000326:                                                                                                 #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
052175,000327: 
052176,000328: 
052177,000329: 
052178,000330:                                                                                                 #  INPUT - ERASABLE INITIALIZATION REQUIRED
052179,000331: 
052180,000332:                                                                                                 #          * SCALE FACTOR *
052181,000333:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052182,000334:                                                                                                 #  --------*--------------*                         -----------------------
052183,000335:                                                                                                 #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052184,000336:                                                                                                 #          * +27 FOR MOON *
052185,000337:                                                                                                 #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052186,000338:                                                                                                 #          * +5 FOR MOON  *
052187,000339:                                                                                                 #  SNTH    * +1           *DP SINE OF THE TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
052188,000340:                                                                                                 #  CSTH    * +1           *DP COSINE OF THE ANGLE
052189,000341:                                                                                                 #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
052190,000342:                                                                                                 #          *              *IS TO BE COMPUTED ALSO.
052191,000343:                                                                                                 #  X1 (38D)*NONE          *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052192,000344:                                                                                                 #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
052193,000345: 
052194,000346: 
052195,000347: 
052196,000348:                                                                                                 #  SUBROUTINES CALLED -
052197,000349:                                                                                                 # # Page 1236
052198,000350:                                                                                                 #       PARAM, GEOM, GETX, DELTIME, NEWSTATE
052199,000351: 
052200,000352: 
052201,000353: 
052202,000354:                                                                                                 #  CALLING SEQUENCE AND NORMAL EXIT MODES -
052203,000355: 
052204,000356:                                                                                                 #     IF ONLY TIME IS DESIRED AS OUTPUT -
052205,000357:                                                                                                 #  L        SET    CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
052206,000358:                                                                                                 #  L+1             RVSW
052207,000359:                                                                                                 #  L+2             TIMETHET        RETURN WITH PL AT 0 AND T IN MPAC
052208,000360:                                                                                                 #  L+3      ...                    CONTINUE
052209,000361: 
052210,000362: 
052211,000363:                                                                                                 #     IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
052212,000364:                                                                                                 #  L        CLEAR  CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
052213,000365:                                                                                                 #  L+1             RVSW
052214,000366:                                                                                                 #  L+2             TIMETHET        RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
052215,000367:                                                                                                 #                                  THE INITIAL VELOCITY VECTOR IN MPAC.
052216,000368:                                                                                                 #  L+3      STOVL  NEWVVEC
052217,000369:                                                                                                 #  L+4      STADR
052218,000370:                                                                                                 #  L+5      STORE  NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
052219,000371:                                                                                                 #  L+6      ...                            CONTINUE
052220,000372: 
052221,000373: 
052222,000374: 
052223,000375:                                                                                                 #  ABORT EXIT MODES -
052224,000376:                                                                                                 #  L        CALL   BON
052225,000377:                                                                                                 #  L+1             TIMETHET
052226,000378:                                                                                                 #  L+2             COGAFLAG
052227,000379:                                                                                                 #  L+3             COGABORT                RESTRICTION 1 HAS BEEN VIOLATED.
052228,000380:                                                                                                 #  L+4      BON                            IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS
052229,000381:                                                                                                 #                                          GOOD, SO CONTINUE
052230,000382:                                                                                                 #  L+5             INFINFLG
052231,000383:                                                                                                 #  L+6             IMPOSSBL                NO SOLUTION EXISTS.
052232,000384: 
052233,000385: 
052234,000386: 
052235,000387:                                                                                                 #  OUTPUT -
052236,000388:                                                                                                 #          * SCALE FACTOR *
052237,000389:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052238,000390:                                                                                                 #  --------*--------------*                         -----------------------
052239,000391:                                                                                                 #  T(30D)  * +28          *DP TRANSFER TIME IN CENTISECONDS
052240,000392:                                                                                                 #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
052241,000393:                                                                                                 #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
052242,000394:                                                                                                 #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
052243,000395:                                                                                                 #          *              *CLEAR IF NOT.
052244,000396: 
052245,000397:                                                                                                 #  IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
052246,000398:                                                                                                 #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
052247,000399:                                                                                                 #   MPAC+5 * +5 FOR MOON  *
052248,000400:                                                                                                 # # Page 1237
052249,000401:                                                                                                 #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
052250,000402:                                                                                                 #          * +27 FOR MOON *
052251,000403: 
052252,000404:                                                                                                 #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052253,000405: 
052254,000406: 
052255,000407: 
052256,000408:                                                                                                 #  DEBRIS -
052257,000409: 
052258,000410:                                                                                                 #       PARAMETERS WHICH MAY BE OF USE -
052259,000411: 
052260,000412:                                                                                                 #          * SCALE FACTOR *
052261,000413:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052262,000414:                                                                                                 #  --------*--------------*                         -----------------------
052263,000415:                                                                                                 #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
052264,000416:                                                                                                 #          * +27 FOR MOON *
052265,000417:                                                                                                 #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
052266,000418:                                                                                                 #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
052267,000419:                                                                                                 #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
052268,000420:                                                                                                 #  UR1     * +1           *DP UNIT VECTOR OF RVEC
052269,000421:                                                                                                 #  U2      * +1           *DP UNIT VECTOR OF VVEC
052270,000422:                                                                                                 #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
052271,000423: 
052272,000424: 
052273,000425:                                                                                                 #       PARAMETERS OF NO USE -
052274,000426:                                                                                                 #  SP PARAMETERS -  RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
052275,000427:                                                                                                 #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
052276,000428: 
052277,000429: 
052278,000430:                                                                                                 # # Page 1238
052279,000431:                                                                                                 #  PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE                            DATE - 11 OCTOBER 1967
052280,000432:                                                                                                 #  MOD NO. -1                                                                      LOG SECTION - CONIC SUBROUTINES
052281,000433:                                                                                                 #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
052282,000434: 
052283,000435: 
052284,000436: 
052285,000437:                                                                                                 #  FUNCTIONAL DESCRIPTION -
052286,000438: 
052287,000439:                                                                                                 #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
052288,000440:                                                                                                 #  STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
052289,000441:                                                                                                 #  PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
052290,000442:                                                                                                 #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
052291,000443:                                                                                                 #  EXTENDED USING OTHER PRIMARY BODIES BY SIMMPE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
052292,000444:                                                                                                 #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
052293,000445:                                                                                                 #       IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
052294,000446:                                                                                                 #  APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
052295,000447: 
052296,000448: 
052297,000449:                                                                                                 #  THE RESTRICTIONS ARE -
052298,000450:                                                                                                 #       1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
052299,000451:                                                                                                 #  AND LESS THAN 178 DEGREES 12.5 MINUTES.
052300,000452:                                                                                                 #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
052301,000453:                                                                                                 #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052302,000454:                                                                                                 #       3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
052303,000455:                                                                                                 #  RDESIRED INCREASE.  THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR.  IN
052304,000456:                                                                                                 #  PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
052305,000457: 
052306,000458: 
052307,000459:                                                                                                 #       THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
052308,000460: 
052309,000461: 
052310,000462: 
052311,000463:                                                                                                 #  REFERENCES -
052312,000464:                                                                                                 #       R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
052313,000465: 
052314,000466: 
052315,000467: 
052316,000468:                                                                                                 #  INPUT - ERASABLE INITIALIZATION REQUIRED
052317,000469: 
052318,000470:                                                                                                 #          * SCALE FACTOR *
052319,000471:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052320,000472:                                                                                                 #  --------*--------------*                         -----------------------
052321,000473:                                                                                                 #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052322,000474:                                                                                                 #          * +27 FOR MOON *
052323,000475:                                                                                                 #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052324,000476:                                                                                                 #          * +5 FOR MOON  *
052325,000477:                                                                                                 #  RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
052326,000478:                                                                                                 #          * +27 FOR MOON *COMPUTED.
052327,000479:                                                                                                 #  SGNRDOT * NONE         *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
052328,000480:                                                                                                 #          *              *POSITIVE OR NEGATIVE, RESPECTIVELY.   THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A
052329,000481:                                                                                                 # # Page 1239
052330,000482:                                                                                                 #          *              *SINGLE-VALUED PROBLEM.
052331,000483:                                                                                                 #  X1 (38D)*NONE          *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052332,000484:                                                                                                 #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
052333,000485:                                                                                                 #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
052334,000486:                                                                                                 #          *              *IS TO BE COMPUTED ALSO.
052335,000487: 
052336,000488: 
052337,000489: 
052338,000490:                                                                                                 #  SUBROUTINES CALLED -
052339,000491:                                                                                                 #       PARAM, GEOM, GETX, DELTIME, NEWSTATE
052340,000492: 
052341,000493: 
052342,000494: 
052343,000495:                                                                                                 #  CALLING SEQUENCE AND NORMAL EXIT MODES -
052344,000496: 
052345,000497:                                                                                                 #     IF ONLY TIME IS DESIRED AS OUTPUT -
052346,000498:                                                                                                 #  L        SET    CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
052347,000499:                                                                                                 #  L+1             RVSW
052348,000500:                                                                                                 #  L+2             TIMERAD         RETURN WITH PL AT 0 AND T IN MPAC
052349,000501:                                                                                                 #  L+3      ...                    CONTINUE
052350,000502: 
052351,000503: 
052352,000504:                                                                                                 #     IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
052353,000505:                                                                                                 #  L        CLEAR  CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
052354,000506:                                                                                                 #  L+1             RVSW
052355,000507:                                                                                                 #  L+2             TIMERAD         RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
052356,000508:                                                                                                 #                                  THE INITIAL VELOCITY VECTOR IN MPAC.
052357,000509:                                                                                                 #  L+3      STOVL  NEWVVEC
052358,000510:                                                                                                 #  L+4      STADR
052359,000511:                                                                                                 #  L+5      STORE  NEWRVEC                 NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
052360,000512:                                                                                                 #  L+6      ...                            CONTINUE
052361,000513: 
052362,000514: 
052363,000515: 
052364,000516:                                                                                                 #  ABORT EXIT MODES -
052365,000517:                                                                                                 #  L        CALL   BON
052366,000518:                                                                                                 #  L+1             TIMERAD
052367,000519:                                                                                                 #  L+2             COGAFLAG
052368,000520:                                                                                                 #  L+3             COGABORT        RESTRICTION 1 HAS BEEN VIOLATED.
052369,000521:                                                                                                 #  L+4      BON    BON
052370,000522:                                                                                                 #  L+5             INFINFLG
052371,000523:                                                                                                 #  L+6             IMPOSSBL        NO SOLUTION EXISTS.
052372,000524:                                                                                                 #  L+7             SOLNSW
052373,000525:                                                                                                 #  L+8             IMPOSSBL        SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE.  RESTRICTION 3 HAS BEEN VIOLATED.
052374,000526:                                                                                                 #  L+9      ...                    IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE.
052375,000527: 
052376,000528: 
052377,000529: 
052378,000530:                                                                                                 #  OUTPUT -
052379,000531:                                                                                                 #          * SCALE FACTOR *
052380,000532:                                                                                                 # # Page 1240
052381,000533:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052382,000534:                                                                                                 #  --------*--------------*                         -----------------------
052383,000535:                                                                                                 #  T (30D) * +28          *DP TRANSFER TIME IN CENTISECONDS.
052384,000536:                                                                                                 #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
052385,000537:                                                                                                 #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
052386,000538:                                                                                                 #  COGAFLAG* )NONE        *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
052387,000539:                                                                                                 #          *              *CLEAR IF NOT.
052388,000540:                                                                                                 #  APSESW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
052389,000541:                                                                                                 #          *              *LESS THAN RADIUS OF PERICENTER.  THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
052390,000542:                                                                                                 #          *              *WILL THEN BE RETURNED.  THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
052391,000543:                                                                                                 #          *              *APOCENTER.
052392,000544:                                                                                                 #  SOLNSW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
052393,000545:                                                                                                 #          *              *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3.  IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
052394,000546:                                                                                                 #          *              *MINUS-18, THE SWITCH IS CLEAR.
052395,000547: 
052396,000548: 
052397,000549:                                                                                                 #  IN ADDITION, IF VTARGTAG IS CLEAR, THE FOLLOWING ARE OUTPUT -
052398,000550: 
052399,000551:                                                                                                 #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
052400,000552:                                                                                                 #   MPAC +5* +5 FOR MOON  *
052401,000553:                                                                                                 #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
052402,000554:                                                                                                 #          * +27 FOR MOON *
052403,000555: 
052404,000556:                                                                                                 #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052405,000557: 
052406,000558: 
052407,000559: 
052408,000560:                                                                                                 #  DEBRIS -
052409,000561: 
052410,000562:                                                                                                 #       PARAMETERS WHICH MAY BE OF USE -
052411,000563: 
052412,000564:                                                                                                 #          * SCALE FACTOR *
052413,000565:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052414,000566:                                                                                                 #  --------*--------------*                         -----------------------
052415,000567:                                                                                                 #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
052416,000568:                                                                                                 #          * +27 FOR MOON *
052417,000569:                                                                                                 #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
052418,000570:                                                                                                 #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
052419,000571:                                                                                                 #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
052420,000572:                                                                                                 #  UR1     * +1           *DP UNIT VECTOR OF RVEC
052421,000573:                                                                                                 #  U2      * +1           *DP UNIT VECTOR OF VVEC
052422,000574:                                                                                                 #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
052423,000575:                                                                                                 #  CSTH    * +1           *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
052424,000576:                                                                                                 #  SNTH    * +1           *DP SINE OF TRUE ANOMALY DIFFERENCE.
052425,000577: 
052426,000578: 
052427,000579:                                                                                                 #       PARAMETERS OF NO USE --
052428,000580:                                                                                                 #  SP PARAMETERS -  RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
052429,000581:                                                                                                 #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
052430,000582: 
052431,000583: 
052432,000584:                                                                                                 # # Page 1241
052433,000585:                                                                                                 #  PROGRAM DESCRIPTION - APSIDES SUBROUTINE                                        DATE - 1 SEPTEMBER 1967
052434,000586:                                                                                                 #  MOD NO. - 0                                                                     LOG SECTION - CONIC SUBROUTINES
052435,000587:                                                                                                 #  MOD BY KRAUSE                                                                   ASSEMBLY - COLOSSUS REVISION 88
052436,000588: 
052437,000589: 
052438,000590: 
052439,000591:                                                                                                 #  FUNCTIONAL DESCRIPTION -
052440,000592: 
052441,000593:                                                                                                 #       THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR, CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
052442,000594:                                                                                                 #  ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
052443,000595:                                                                                                 #  CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
052444,000596:                                                                                                 #  EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
052445,000597:                                                                                                 #  ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
052446,000598: 
052447,000599: 
052448,000600:                                                                                                 #  THE RESTRICTIONS ARE -
052449,000601:                                                                                                 #       1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
052450,000602:                                                                                                 #  TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
052451,000603:                                                                                                 #       2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
052452,000604:                                                                                                 #  ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
052453,000605: 
052454,000606:                                                                                                 #       THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
052455,000607: 
052456,000608: 
052457,000609: 
052458,000610:                                                                                                 #  REFERENCES -
052459,000611:                                                                                                 #       MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
052460,000612: 
052461,000613: 
052462,000614: 
052463,000615:                                                                                                 #  INPUT - ERASABLE INITIALIZATION REQUIRED
052464,000616: 
052465,000617:                                                                                                 #          * SCALE FACTOR *
052466,000618:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052467,000619:                                                                                                 #  --------*--------------*                         -----------------------
052468,000620:                                                                                                 #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
052469,000621:                                                                                                 #          * +27 FOR MOON *
052470,000622:                                                                                                 #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
052471,000623:                                                                                                 #          * +5 FOR MOON  *
052472,000624:                                                                                                 #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
052473,000625:                                                                                                 #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
052474,000626: 
052475,000627: 
052476,000628: 
052477,000629:                                                                                                 #  SUBROUTINES CALLED -
052478,000630:                                                                                                 #       PARAM, GEOM
052479,000631: 
052480,000632: 
052481,000633: 
052482,000634:                                                                                                 #  CALLING SEQUENCE AND NORMAL EXIT MODES -
052483,000635:                                                                                                 # # Page 1242
052484,000636:                                                                                                 #     IF ONLY TIME IS DESIRED AS OUTPUT -
052485,000637:                                                                                                 #  L        CALL                   MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR.
052486,000638:                                                                                                 #  L+1             APSIDES         RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
052487,000639:                                                                                                 #  L+2      STODL  APOAPSE
052488,000640:                                                                                                 #  L+3             0D
052489,000641:                                                                                                 #  L+4      STORE  PERIAPSE                APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
052490,000642:                                                                                                 #  L+5      ...                    CONTINUE
052491,000643: 
052492,000644: 
052493,000645: 
052494,000646:                                                                                                 #  OUTPUT -
052495,000647:                                                                                                 #          * SCALE FACTOR *
052496,000648:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052497,000649:                                                                                                 #  --------*--------------*                         -----------------------
052498,000650:                                                                                                 #  MPAC    * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
052499,000651:                                                                                                 #          * +27 FOR MOON *
052500,000652:                                                                                                 #  0D-1D   * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
052501,000653:                                                                                                 #          * +27 FOR MOON *
052502,000654:                                                                                                 #  ECC     * +3           *DP ECCENTRICITY OF CONIC TRAJECTORY.
052503,000655: 
052504,000656:                                                                                                 #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
052505,000657: 
052506,000658: 
052507,000659: 
052508,000660:                                                                                                 #  DEBRIS -
052509,000661: 
052510,000662:                                                                                                 #       PARAMETERS WHICH MAY BE OF USE -
052511,000663: 
052512,000664:                                                                                                 #          * SCALE FACTOR *
052513,000665:                                                                                                 #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
052514,000666:                                                                                                 #  --------*--------------*                         -----------------------
052515,000667:                                                                                                 #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
052516,000668:                                                                                                 #          * +27 FOR MOON *
052517,000669:                                                                                                 #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
052518,000670:                                                                                                 #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
052519,000671:                                                                                                 #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
052520,000672:                                                                                                 #  UR1     * +1           *DP UNIT VECTOR OF RVEC
052521,000673:                                                                                                 #  U2      * +1           *DP UNIT VECTOR OF VVEC
052522,000674:                                                                                                 #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
052523,000675:                                                                                                 #  MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
052524,000676:                                                                                                 #          * +5 FOR MOON  *
052525,000677: 
052526,000678: 
052527,000679:                                                                                                 #       PARAMETERS OF NO USE -
052528,000680:                                                                                                 #  SP PARAMETERS - RTNAPSE, GOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5,10D-11D, 14D-21D, 31D-38D.
052529,000681:                                                                                                 #  ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
052530,000682: 
052531,000683: 
052532,000684: 
052533,000685: 12,2000                                          SETLOC   CONICS                                
052534,000686:                                                                                                 # # Page 1243
052535,000687: 12,2000                                          BANK                                           
052536,000688: 
052537,000689: 12,2000                                          COUNT    12/CONIC                              
052538,000690: 
052539,000691: 12,2000  0002723                                 EBANK=   UR1                                   
052540,000692: 12,2000           71201        KEPLERN           SETPD    DLOAD                                 
052541,000693: 12,2001           00001                                   0                                     
052542,000694: 12,2002           11453                                   KEPZERO                               
052543,000695: 12,2003           01344                          STORE    XMODULO                               
052544,000696: 12,2004           31346                          STOVL*   TMODULO                               
052545,000697: 12,2005           11626                                   MUTABLE,1                             
052546,000698: 12,2006           24017                          STOVL    14D                                   
052547,000699: 12,2007           01503                                   RRECT                                 
052548,000700: 12,2010           66256                          UNIT     SSP                                   
052549,000701: 12,2011           00027                                   ITERCTR                               
052550,000702: 12,2012           00024                                   20D                                   
052551,000703: 12,2013           16647                          STODL    URRECT                                
052552,000704: 12,2014           00045                                   36D                                   
052553,000705: 12,2015           24041                          STOVL    R1                                    
052554,000706: 12,2016           01503                                   RRECT                                 
052555,000707: 12,2017           76441                          DOT      SL1R                                  
052556,000708: 12,2020           01511                                   VRECT                                 
052557,000709: 12,2021           76405                          DMP      SL1R                                  
052558,000710: 12,2022           00023                                   1/ROOTMU                              #  1/ROOTMU (-17 OR -14)
052559,000711: 12,2023           24043                          STOVL    KEPC1                                 #  C1=R.V/ROOTMU (+17 OR +16)
052560,000712: 12,2024           01511                                   VRECT                                 
052561,000713: 12,2025           57236                          VSQ      DMPR                                  
052562,000714: 12,2026           00017                                   1/MU                                  #  1/MU (-34 OR -28)
052563,000715: 12,2027           52405                          DMP      SL3                                   
052564,000716: 12,2030           00041                                   R1                                    
052565,000717: 12,2031           61425                          DSU      ROUND                                 
052566,000718: 12,2032           11475                                   D1/64                                 
052567,000719: 12,2033           00045                          STORE    KEPC2                                 #  C2=RV.V/MU -1 (+6)
052568,000720: 
052569,000721: 12,2034           74421                          BDSU     SR1R                                  
052570,000722: 12,2035           11475                                   D1/64                                 
052571,000723: 12,2036           77671                          DDV                                            
052572,000724: 12,2037           00041                                   R1                                    
052573,000725: 12,2040           00011                          STORE    ALPHA                                 #  ALPHA=(1-C2)/R1 (-22 OR -20)
052574,000726: 
052575,000727: 
052576,000728: 12,2041           71244                          BPL      DLOAD                                 #  MAXIMUM X DEPENDS ON TYPE OF CONIC
052577,000729: 12,2042           24051                                   1REV                                  
052578,000730: 12,2043           11513                                   -50SC                                 #  -50SC (+12)
052579,000731: 12,2044           40071                          DDV      BOV                                   
052580,000732: 12,2045           00011                                   ALPHA                                 
052581,000733: 12,2046           24055                                   STOREMAX                              
052582,000734: 12,2047           52166                          SQRT     GOTO                                  
052583,000735: 12,2050           24055                                   STOREMAX                              
052584,000736:                                                                                                 # # Page 1244
052585,000737: 12,2051           55366        1REV              SQRT     BDDV                                  
052586,000738: 12,2052           11515                                   2PISC                                 #  2PISC (+6)
052587,000739: 12,2053           77600                          BOV                                            
052588,000740: 12,2054           24055                                   STOREMAX                              
052589,000741: 12,2055           50165        STOREMAX          SIGN     BMN                                   
052590,000742: 12,2056           02312                                   TAU.                                  
052591,000743: 12,2057           24272                                   BACKWARD                              
052592,000744: 12,2060           00013                          STORE    XMAX                                  
052593,000745: 12,2061           65205                          DMP      PDDL                                  #                               PL AT 2
052594,000746: 12,2062           00023                                   1/ROOTMU                              
052595,000747: 12,2063           00011                                   ALPHA                                 
052596,000748: 12,2064           65301                          NORM     PDDL                                  #  DXCH WITH 0D.  0D=ALPHA      PL AT 0,2
052597,000749: 12,2065           00047                                   X1                                    
052598,000750: 12,2066           56257                          SL*      DDV                                   #                               PL AT 0
052599,000751: 12,2067           20173                                   0          -6,1                       
052600,000752: 12,2070           50000        PERIODCH          BOV      BMN                                   
052601,000753: 12,2071           24112                                   MODDONE                               
052602,000754: 12,2072           24112                                   MODDONE                               
052603,000755: 12,2073           77606                          PUSH                                           #  0D=PERIOD (+28)
052604,000756: 12,2074           50021                          BDSU     BMN                                   
052605,000757: 12,2075           02312                                   TAU.                                  
052606,000758: 12,2076           24112                                   MODDONE                               
052607,000759: 12,2077           16312                          STODL    TAU.                                  
052608,000760: 12,2100           00013                                   XMAX                                  
052609,000761: 12,2101           77615                          DAD                                            
052610,000762: 12,2102           01344                                   XMODULO                               
052611,000763: 12,2103           15344                          STODL    XMODULO                               
052612,000764: 12,2104           00001                                   0D                                    
052613,000765: 12,2105           77615                          DAD                                            
052614,000766: 12,2106           01346                                   TMODULO                               
052615,000767: 12,2107           15346                          STODL    TMODULO                               #                               PL AT 0
052616,000768: 12,2110           77650                          GOTO                                           
052617,000769: 12,2111           24070                                   PERIODCH                              
052618,000770: 
052619,000771: 12,2112           71201        MODDONE           SETPD    DLOAD                                 
052620,000772: 12,2113           00001                                   0                                     
052621,000773: 12,2114           11453                                   KEPZERO                               
052622,000774: 12,2115           14015                          STODL    XMIN                                  
052623,000775: 12,2116           02306                                   XKEPNEW                               
052624,000776: 12,2117           77625                          DSU                                            
052625,000777: 12,2120           01344                                   XMODULO                               
052626,000778: 12,2121           00025                          STORE    X                                     
052627,000779: 12,2122           50054                          BZE      BMN                                   
052628,000780: 12,2123           24265                                   BADX                                  
052629,000781: 12,2124           24265                                   BADX                                  
052630,000782: 12,2125           51025                          DSU      BPL                                   
052631,000783: 12,2126           00013                                   XMAX                                  
052632,000784: 12,2127           24265                                   BADX                                  
052633,000785: 
052634,000786:                                                                                                 # # Page 1245
052635,000787: 12,2130           57345        DXCOMP            DLOAD    DMPR                                  
052636,000788: 12,2131           02312                                   TAU.                                  
052637,000789: 12,2132           11506                                   BEE22                                 
052638,000790: 12,2133           77646                          ABS                                            
052639,000791: 12,2134           15350                          STODL    EPSILONT                              
052640,000792: 12,2135           01551                                   TC                                    
052641,000793: 12,2136           45254                          BZE      DSU                                   
052642,000794: 12,2137           24141                                   NEWTC                                 
052643,000795: 12,2140           01346                                   TMODULO                               
052644,000796: 12,2141           15551        NEWTC             STODL    TC                                    
052645,000797: 12,2142           01553                                   XPREV                                 
052646,000798: 12,2143           45254                          BZE      DSU                                   
052647,000799: 12,2144           24146                                   XDIFF                                 
052648,000800: 12,2145           01344                                   XMODULO                               
052649,000801: 12,2146           77621        XDIFF             BDSU                                           
052650,000802: 12,2147           00025                                   X                                     
052651,000803: 12,2150           02643                          STORE    DELX                                  
052652,000804: 
052653,000805: 
052654,000806: 12,2151           63545        KEPLOOP           DLOAD    DSQ                                   
052655,000807: 12,2152           00025                                   X                                     #  X=XKEP
052656,000808: 12,2153           41501                          NORM     PUSH                                  #  0D=XSQ (+34 OR +32 -N1)      PL AT 2
052657,000809: 12,2154           00047                                   X1                                    
052658,000810: 12,2155           53605                          DMP      SRR*                                  
052659,000811: 12,2156           00011                                   ALPHA                                 
052660,000812: 12,2157           21573                                   0          -6,1                       
052661,000813: 12,2160           34031                          STCALL   XI                                    #  XI=ALPHA XSQ (+6)
052662,000814: 12,2161           24426                                   DELTIME                               
052663,000815: 12,2162           44200                          BOV      BDSU                                  
052664,000816: 12,2163           24312                                   TIMEOVFL                              #  UNLIKELY
052665,000817: 12,2164           02312                                   TAU.                                  
052666,000818: 12,2165           02645                          STORE    DELT                                  #  DELT=DELINDEP
052667,000819: 12,2166           44246                          ABS      BDSU                                  
052668,000820: 12,2167           01350                                   EPSILONT                              
052669,000821: 12,2170           71244                          BPL      DLOAD                                 
052670,000822: 12,2171           24334                                   KEPCONVG                              
052671,000823: 12,2172           00037                                   T                                     
052672,000824: 12,2173           60225                          DSU      NORM                                  
052673,000825: 12,2174           01551                                   TC                                    
052674,000826: 12,2175           00047                                   X1                                    
052675,000827: 12,2176           60325                          PDDL     NORM                                  
052676,000828: 12,2177           02643                                   DELX                                  
052677,000829: 12,2200           00050                                   X2                                    
052678,000830: 12,2201           41260                          XSU,1    DMP                                   
052679,000831: 12,2202           00047                                   X2                                    
052680,000832: 12,2203           02645                                   DELT                                  
052681,000833: 12,2204           56257                          SLR*     DDV                                   
052682,000834: 12,2205           21202                                   1,1                                   
052683,000835: 12,2206           41542                          SR1      PUSH                                  #  0D=TRIAL DELX                PL AT 2
052684,000836: 12,2207           71244                          BPL      DLOAD                                 
052685,000837:                                                                                                 # # Page 1246
052686,000838: 12,2210           24231                                   POSDELX                               
052687,000839: 12,2211           00025                                   X                                     
052688,000840: 12,2212           00013                          STORE    XMAX                                  #  MOVE MAX BOUND IN
052689,000841: 12,2213           45221                          BDSU     DSU                                   #                               PL AT 0
052690,000842: 12,2214           00015                                   XMIN                                  
052691,000843: 12,2215           51000                          BOV      BPL                                   
052692,000844: 12,2216           24223                                   NDXCHNGE                              
052693,000845: 12,2217           24223                                   NDXCHNGE                              
052694,000846: 12,2220           52145                          DLOAD    GOTO                                  
052695,000847: 12,2221           00001                                   0D                                    
052696,000848: 12,2222           24243                                   NEWDELX                               
052697,000849: 
052698,000850: 
052699,000851: 12,2223           45345        NDXCHNGE          DLOAD    DSU                                   
052700,000852: 12,2224           00015                                   XMIN                                  
052701,000853: 12,2225           00025                                   X                                     
052702,000854: 12,2226           52075                          DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
052703,000855: 12,2227           11511                                   DP9/10                                
052704,000856: 12,2230           24243                                   NEWDELX                               
052705,000857: 
052706,000858: 
052707,000859: 12,2231           77745        POSDELX           DLOAD                                          
052708,000860: 12,2232           00025                                   X                                     
052709,000861: 12,2233           00015                          STORE    XMIN                                  #  MOVE MIN BOUND IN
052710,000862: 12,2234           45221                          BDSU     DSU                                   #                               PL AT 0
052711,000863: 12,2235           00013                                   XMAX                                  
052712,000864: 12,2236           50000                          BOV      BMN                                   
052713,000865: 12,2237           24257                                   PDXCHNGE                              
052714,000866: 12,2240           24257                                   PDXCHNGE                              
052715,000867: 12,2241           77745                          DLOAD                                          
052716,000868: 12,2242           00001                                   0D                                    
052717,000869: 12,2243           02643        NEWDELX           STORE    DELX                                  
052718,000870: 12,2244           43254                          BZE      DAD                                   
052719,000871: 12,2245           24334                                   KEPCONVG                              
052720,000872: 12,2246           00025                                   X                                     
052721,000873: 12,2247           14025                          STODL    X                                     
052722,000874: 12,2250           00037                                   T                                     
052723,000875: 12,2251           01551                          STORE    TC                                    
052724,000876: 12,2252           46034        BRNCHCTR          RTB      BHIZ                                  
052725,000877: 12,2253           24651                                   CHECKCTR                              
052726,000878: 12,2254           24334                                   KEPCONVG                              
052727,000879: 12,2255           77650                          GOTO                                           
052728,000880: 12,2256           24151                                   KEPLOOP                               #  ITERATE
052729,000881: 
052730,000882: 
052731,000883: 12,2257           45345        PDXCHNGE          DLOAD    DSU                                   
052732,000884: 12,2260           00013                                   XMAX                                  
052733,000885: 12,2261           00025                                   X                                     
052734,000886: 12,2262           52075                          DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
052735,000887: 12,2263           11511                                   DP9/10                                
052736,000888:                                                                                                 # # Page 1247
052737,000889: 12,2264           24243                                   NEWDELX                               
052738,000890: 
052739,000891: 
052740,000892: 12,2265           70545        BADX              DLOAD    SR1                                   #  RECIPE EXCEEDED X BOUNDS - USE XMAX/1
052741,000893: 12,2266           00013                                   XMAX                                  
052742,000894: 12,2267           00025                          STORE    X                                     
052743,000895: 12,2270           77650                          GOTO                                           
052744,000896: 12,2271           24130                                   DXCOMP                                
052745,000897: 
052746,000898: 
052747,000899: 12,2272           14015        BACKWARD          STODL    XMIN                                  
052748,000900: 12,2273           11453                                   KEPZERO                               
052749,000901: 12,2274           14013                          STODL    XMAX                                  
052750,000902: 12,2275           02306                                   XKEPNEW                               
052751,000903: 12,2276           00025                          STORE    X                                     
052752,000904: 12,2277           51054                          BZE      BPL                                   
052753,000905: 12,2300           24305                                   BADBKWDX                              
052754,000906: 12,2301           24305                                   BADBKWDX                              
052755,000907: 12,2302           51025                          DSU      BPL                                   
052756,000908: 12,2303           00015                                   XMIN                                  
052757,000909: 12,2304           24130                                   DXCOMP                                
052758,000910: 12,2305           70545        BADBKWDX          DLOAD    SR1                                   
052759,000911: 12,2306           00015                                   XMIN                                  
052760,000912: 12,2307           00025                          STORE    X                                     
052761,000913: 12,2310           77650                          GOTO                                           
052762,000914: 12,2311           24130                                   DXCOMP                                
052763,000915: 
052764,000916: 
052765,000917: 12,2312           50145        TIMEOVFL          DLOAD    BMN                                   #  X WAS TOO BIG
052766,000918: 12,2313           00025                                   X                                     
052767,000919: 12,2314           24331                                   NEGTOVFL                              
052768,000920: 12,2315           00013                          STORE    XMAX                                  
052769,000921: 12,2316           70545        CMNTOVFL          DLOAD    SR1                                   
052770,000922: 12,2317           02643                                   DELX                                  
052771,000923: 12,2320           02643                          STORE    DELX                                  
052772,000924: 12,2321           44254                          BZE      BDSU                                  
052773,000925: 12,2322           02270                                   KEPRTN                                
052774,000926: 12,2323           00025                                   X                                     
052775,000927: 12,2324           14025                          STODL    X                                     
052776,000928: 12,2325           01551                                   TC                                    
052777,000929: 12,2326           00037                          STORE    T                                     
052778,000930: 12,2327           77650                          GOTO                                           
052779,000931: 12,2330           24252                                   BRNCHCTR                              
052780,000932: 12,2331           00015        NEGTOVFL          STORE    XMIN                                  
052781,000933: 12,2332           77650                          GOTO                                           
052782,000934: 12,2333           24316                                   CMNTOVFL                              
052783,000935: 12,2334           44545        KEPCONVG          DLOAD    SR4R                                  
052784,000936: 12,2335           00041                                   R1                                    
052785,000937: 12,2336           74225                          DSU      VXSC                                  
052786,000938: 12,2337           00035                                   XSQC(XI)                              
052787,000939:                                                                                                 # # Page 1248
052788,000940: 12,2340           02647                                   URRECT                                
052789,000941: 12,2341           65372                          VSL1     PDDL                                  #  0D=(R1-XSQC(XI))URRECT (+33 OR +31)
052790,000942: 12,2342           00025                                   X                                     
052791,000943: 12,2343           60316                          DSQ      NORM                                  
052792,000944: 12,2344           00047                                   X1                                    
052793,000945: 12,2345           57275                          DMPR     DMPR                                  
052794,000946: 12,2346           00023                                   1/ROOTMU                              
052795,000947: 12,2347           00025                                   X                                     
052796,000948: 12,2350           53605                          DMP      SRR*                                  
052797,000949: 12,2351           00033                                   S(XI)                                 
052798,000950: 12,2352           21572                                   0          -7,1                       
052799,000951: 12,2353           77621                          BDSU                                           
052800,000952: 12,2354           00037                                   T                                     
052801,000953: 12,2355           74352                          SL1      VXSC                                  
052802,000954: 12,2356           01511                                   VRECT                                 
052803,000955: 12,2357           53372                          VSL1     VAD                                   #                               PL AT 0
052804,000956: 12,2360           77712                          VSL4                                           
052805,000957: 12,2361           01535                          STORE    RCV                                   #  RCV (+29 OR +27)
052806,000958: 
052807,000959: 
052808,000960: 12,2362           60246                          ABVAL    NORM                                  
052809,000961: 12,2363           00050                                   X2                                    
052810,000962: 12,2364           16655                          STODL    RCNORM                                
052811,000963: 12,2365           00031                                   XI                                    
052812,000964: 12,2366           45275                          DMPR     DSU                                   
052813,000965: 12,2367           00033                                   S(XI)                                 
052814,000966: 12,2370           11473                                   D1/128                                
052815,000967: 12,2371           76405                          DMP      SL1R                                  
052816,000968: 12,2372           00021                                   ROOTMU                                
052817,000969: 12,2373           53605                          DMP      SLR*                                  
052818,000970: 12,2374           00025                                   X                                     
052819,000971: 12,2375           56601                                   0          -3,2                       
052820,000972: 12,2376           74271                          DDV      VXSC                                  
052821,000973: 12,2377           02655                                   RCNORM                                
052822,000974: 12,2400           02647                                   URRECT                                
052823,000975: 12,2401           65372                          VSL1     PDDL                                  #  0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
052824,000976: 12,2402           00035                                   XSQC(XI)                              #  OR +13)                        PL AT 6
052825,000977: 12,2403           56257                          SLR*     DDV                                   
052826,000978: 12,2404           56602                                   0          -4,2                       
052827,000979: 12,2405           02655                                   RCNORM                                
052828,000980: 12,2406           74221                          BDSU     VXSC                                  
052829,000981: 12,2407           11507                                   D1/256                                
052830,000982: 12,2410           01511                                   VRECT                                 
052831,000983: 12,2411           42455                          VAD      VSL8                                  #                               PL AT 0
052832,000984: 12,2412           77626                          STADR                                          
052833,000985: 12,2413           62234                          STODL    VCV                                   #  VCV (+7 OR +5)
052834,000986: 12,2414           00037                                   T                                     
052835,000987: 12,2415           77615                          DAD                                            
052836,000988: 12,2416           01346                                   TMODULO                               
052837,000989: 12,2417           15551                          STODL    TC                                    
052838,000990:                                                                                                 # # Page 1249
052839,000991: 12,2420           00025                                   X                                     
052840,000992: 12,2421           77615                          DAD                                            
052841,000993: 12,2422           01344                                   XMODULO                               
052842,000994: 12,2423           01553                          STORE    XPREV                                 
052843,000995: 12,2424           77650                          GOTO                                           
052844,000996: 12,2425           02270                                   KEPRTN                                
052845,000997: 
052846,000998:                                                                                                 # # Page 1250
052847,000999: 12,2426           77776        DELTIME           EXIT                                           #  MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
052848,001000: 12,2427           07171                          TC       POLY                                  
052849,001001: 12,2430           00010                          DEC      8          B-14                       
052850,001002: 12,2431           02525 12526                    2DEC     .083333334                            
052851,001003: 12,2433           67356 75666                    2DEC     -.266666684                            
052852,001004: 12,2435           15001 23771                    2DEC     .406349155                            
052853,001005: 12,2437           64342 43674                    2DEC     -.361198675                            
052854,001006: 12,2441           06563 04645                    2DEC     .210153242                            
052855,001007: 12,2443           75173 52672                    2DEC     -.086221951                            
052856,001008: 12,2445           00656 14331                    2DEC     .026268812                            
052857,001009: 12,2447           77633 40512                    2DEC     -.006163316                            
052858,001010: 12,2451           00023 11210                    2DEC     .001177342                            
052859,001011: 12,2453           77774 67506                    2DEC     -.000199055                            
052860,001012: 12,2455           06006                          TC       INTPRET                               
052861,001013: 12,2456           14033                          STODL    S(XI)                                 
052862,001014: 12,2457           00031                                   XI                                    
052863,001015: 12,2460           77776                          EXIT                                           
052864,001016: 12,2461           07171                          TC       POLY                                  
052865,001017: 12,2462           00010                          DEC      8          B-14                       
052866,001018: 12,2463           01000 00000                    2DEC     .031250001                            
052867,001019: 12,2465           72525 52506                    2DEC     -.166666719                            
052868,001020: 12,2467           13301 15337                    2DEC     .355555413                            
052869,001021: 12,2471           62776 54733                    2DEC     -.406347410                            
052870,001022: 12,2473           11176 13267                    2DEC     .288962094                            
052871,001023: 12,2475           73410 51674                    2DEC     -.140117894                            
052872,001024: 12,2477           01446 33641                    2DEC     .049247387                            
052873,001025: 12,2501           77451 65233                    2DEC     -.013081923                            
052874,001026: 12,2503           00055 37266                    2DEC     .002806389                            
052875,001027: 12,2505           77767 52336                    2DEC     -.000529414                            
052876,001028: 12,2507           06006                          TC       INTPRET                               
052877,001029:                                                                                                 # # Page 1251
052878,001030: 12,2510           53605                          DMP      SRR*                                  #                               PL AT 0
052879,001031: 12,2511           00001                                   0D                                    
052880,001032: 12,2512           21574                                   0          -5,1                       
052881,001033: 12,2513           00035                          STORE    XSQC(XI)                              #  XSQC(XI) (+33 OR +31)
052882,001034: 12,2514           72405                          DMP      SL1                                   
052883,001035: 12,2515           00043                                   KEPC1                                 
052884,001036: 12,2516           65234                          RTB      PDDL                                  #  XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46)
052885,001037: 12,2517           45562                                   TPMODE                                #                               PL AT 0,3
052886,001038: 12,2520           53605                          DMP      SRR*                                  
052887,001039: 12,2521           00033                                   S(XI)                                 
052888,001040: 12,2522           21574                                   0          -5,1                       
052889,001041: 12,2523           72405                          DMP      SL1                                   
052890,001042: 12,2524           00045                                   KEPC2                                 
052891,001043: 12,2525           65234                          RTB      PDDL                                  #  3D=C2 XSQ S(XI) (+35 OR +33)   PL AT 6
052892,001044: 12,2526           45562                                   TPMODE                                
052893,001045: 12,2527           00041                                   R1                                    
052894,001046: 12,2530           76261                          SR       TAD                                   #                               PL AT 3
052895,001047: 12,2531           20607                                   6                                     
052896,001048: 12,2532           41301                          NORM     DMP                                   #  TO PRESERVE SIGNIF.
052897,001049: 12,2533           00047                                   X1                                    
052898,001050: 12,2534           00025                                   X                                     
052899,001051: 12,2535           76257                          SR*      TAD                                   #  X(C2 XSQ S(XI) +R1) (+49 OR +46) PL AT 0
052900,001052: 12,2536           20576                                   0          -3,1                       
052901,001053: 12,2537           57232                          SL4R     DMPR                                  
052902,001054: 12,2540           00023                                   1/ROOTMU                              
052903,001055: 12,2541           00037                          STORE    T                                     
052904,001056: 12,2542           77616                          RVQ                                            
052905,001057: 
052906,001058:                                                                                                 # # Page 1252
052907,001059: 12,2543           71214        ITERATOR          BONCLR   DLOAD                                 
052908,001060: 12,2544           00614                                   SLOPESW                               
052909,001061: 12,2545           24613                                   FIRSTIME                              
052910,001062: 12,2546           00037                                   DEP                                   
052911,001063: 12,2547           60225                          DSU      NORM                                  
052912,001064: 12,2550           02764                                   DEPREV                                
052913,001065: 12,2551           00047                                   X1                                    
052914,001066: 12,2552           60325                          PDDL     NORM                                  
052915,001067: 12,2553           00015                                   DELINDEP                              
052916,001068: 12,2554           00050                                   X2                                    
052917,001069: 12,2555           41260                          XSU,1    DMP                                   
052918,001070: 12,2556           00047                                   X2                                    
052919,001071: 12,2557           02762                                   DELDEP                                
052920,001072: 12,2560           56257                          SLR*     DDV                                   #                               PL UP 2
052921,001073: 12,2561           21202                                   1,1                                   
052922,001074: 12,2562           43142                          SR1      BOFF                                  
052923,001075: 12,2563           04351                                   ORDERSW                               
052924,001076: 12,2564           24567                                   SGNCHECK                              
052925,001077: 12,2565           75246                          ABS      SIGN                                  #  IN CASE 2ND DERIV. CHANGED SIGN, MUST
052926,001078: 12,2566           02762                                   DELDEP                                #  DISREGARD IT TO FIND MIN.
052927,001079: 
052928,001080: 12,2567           51006        SGNCHECK          PUSH     BPL                                   #  TRIAL DELINDEP               PL DOWN 2
052929,001081: 12,2570           24625                                   POSDEL                                
052930,001082: 12,2571           43145                          DLOAD    BON                                   
052931,001083: 12,2572           03775                                   INDEP                                 
052932,001084: 12,2573           04311                                   ORDERSW                               
052933,001085: 12,2574           24576                                   MINCHECK                              
052934,001086: 12,2575           00017                          STORE    MAX                                   #  IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
052935,001087: 
052936,001088: 12,2576           45221        MINCHECK          BDSU     DSU                                   
052937,001089: 12,2577           00011                                   MIN                                   
052938,001090: 12,2600           51000                          BOV      BPL                                   
052939,001091: 12,2601           24605                                   MODNGDEL                              
052940,001092: 12,2602           24605                                   MODNGDEL                              
052941,001093: 12,2603           77650                          GOTO                                           
052942,001094: 12,2604           24637                                   DELOK                                 
052943,001095: 
052944,001096: 
052945,001097: 12,2605           45345        MODNGDEL          DLOAD    DSU                                   #  TRIAL DELINDEP WOULD EXCEED MIN BOUND
052946,001098: 12,2606           00011                                   MIN                                   
052947,001099: 12,2607           03775                                   INDEP                                 
052948,001100: 12,2610           52005                          DMP      GOTO                                  
052949,001101: 12,2611           11511                                   DP9/10                                
052950,001102: 12,2612           24641                                   NEWDEL                                
052951,001103: 
052952,001104: 
052953,001105: 12,2613           41345        FIRSTIME          DLOAD    DMP                                   
052954,001106: 12,2614           00011                                   MIN                                   
052955,001107: 12,2615           00051                                   TWEEKIT                               #  DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
052956,001108: 12,2616           41325                          PDDL     DMP                                   #  S2(41D) SHOULDNT CONTAIN HI ORDER ONES
052957,001109:                                                                                                 # # Page 1253
052958,001110: 12,2617           00017                                   MAX                                   
052959,001111: 12,2620           00051                                   TWEEKIT                               
052960,001112: 12,2621           77625                          DSU                                            
052961,001113: 12,2622           52165                          SIGN     GOTO                                  
052962,001114: 12,2623           02762                                   DELDEP                                
052963,001115: 12,2624           24567                                   SGNCHECK                              
052964,001116: 
052965,001117: 
052966,001118: 12,2625           43145        POSDEL            DLOAD    BON                                   
052967,001119: 12,2626           03775                                   INDEP                                 
052968,001120: 12,2627           04311                                   ORDERSW                               
052969,001121: 12,2630           24632                                   MAXCHECK                              
052970,001122: 12,2631           00011                          STORE    MIN                                   #  IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
052971,001123: 
052972,001124: 12,2632           45221        MAXCHECK          BDSU     DSU                                   
052973,001125: 12,2633           00017                                   MAX                                   
052974,001126: 12,2634           50000                          BOV      BMN                                   
052975,001127: 12,2635           24643                                   MODPSDEL                              
052976,001128: 12,2636           24643                                   MODPSDEL                              
052977,001129: 12,2637           77745        DELOK             DLOAD                                          
052978,001130: 12,2640           00001                                   0D                                    
052979,001131: 12,2641           00015        NEWDEL            STORE    DELINDEP                              
052980,001132: 12,2642           77616                          RVQ                                            
052981,001133: 
052982,001134: 
052983,001135: 12,2643           45345        MODPSDEL          DLOAD    DSU                                   
052984,001136: 12,2644           00017                                   MAX                                   
052985,001137: 12,2645           03775                                   INDEP                                 
052986,001138: 12,2646           52005                          DMP      GOTO                                  
052987,001139: 12,2647           11511                                   DP9/10                                
052988,001140: 12,2650           24641                                   NEWDEL                                
052989,001141: 
052990,001142: 
052991,001143: 12,2651           44712        CHECKCTR          CS       ONE                                   
052992,001144: 12,2652           50120                          INDEX    FIXLOC                                
052993,001145: 12,2653           60026                          AD       ITERCTR                               
052994,001146: 12,2654           50120                          INDEX    FIXLOC                                
052995,001147: 12,2655           54026                          TS       ITERCTR                               
052996,001148: 12,2656           54154                          TS       MPAC                                  
052997,001149: 12,2657           06030                          TC       DANZIG                                
052998,001150: 
052999,001151:                                                                                                 # # Page 1254
053000,001152: 12,2660           44545        NEWSTATE          DLOAD    SR4R                                  
053001,001153: 12,2661           00041                                   R1                                    
053002,001154: 12,2662           74225                          DSU      VXSC                                  
053003,001155: 12,2663           00035                                   XSQC(XI)                              
053004,001156: 12,2664           02724                                   UR1                                   
053005,001157: 12,2665           65372                          VSL1     PDDL                                  #  0D=(R1-XSQC(XI))UR1 (+33 OR 31) PL AT 6
053006,001158: 12,2666           00025                                   X                                     
053007,001159: 12,2667           60316                          DSQ      NORM                                  
053008,001160: 12,2670           00047                                   X1                                    
053009,001161: 12,2671           57275                          DMPR     DMPR                                  
053010,001162: 12,2672           00023                                   1/ROOTMU                              
053011,001163: 12,2673           00025                                   X                                     
053012,001164: 12,2674           53605                          DMP      SRR*                                  
053013,001165: 12,2675           00033                                   S(XI)                                 
053014,001166: 12,2676           21572                                   0          -7,1                       
053015,001167: 12,2677           77621                          BDSU                                           
053016,001168: 12,2700           00037                                   T                                     
053017,001169: 12,2701           74352                          SL1      VXSC                                  
053018,001170: 12,2702           02746                                   VVEC                                  
053019,001171: 12,2703           53372                          VSL1     VAD                                   #                               PL AT 0
053020,001172: 12,2704           41512                          VSL4     PUSH                                  
053021,001173: 12,2705           77646                          ABVAL                                          
053022,001174: 12,2706           77701        LAMENTER          NORM                                           
053023,001175: 12,2707           00047                                   X1                                    
053024,001176: 12,2710           16722                          STODL    R2                                    
053025,001177: 12,2711           00031                                   XI                                    
053026,001178: 12,2712           45205                          DMP      DSU                                   
053027,001179: 12,2713           00033                                   S(XI)                                 
053028,001180: 12,2714           11473                                   D1/128                                
053029,001181: 12,2715           76405                          DMP      SL1R                                  
053030,001182: 12,2716           00021                                   ROOTMU                                
053031,001183: 12,2717           53605                          DMP      SLR*                                  
053032,001184: 12,2720           00025                                   X                                     
053033,001185: 12,2721           21176                                   0          -3,1                       
053034,001186: 12,2722           74271                          DDV      VXSC                                  
053035,001187: 12,2723           02722                                   R2                                    
053036,001188: 12,2724           02724                                   UR1                                   
053037,001189: 12,2725           65372                          VSL1     PDDL                                  #  6D=V2VEC PART (+15 OR 13)       PL AT 12
053038,001190: 12,2726           00035                                   XSQC(XI)                              
053039,001191: 12,2727           56257                          SLR*     DDV                                   
053040,001192: 12,2730           21175                                   0          -4,1                       
053041,001193: 12,2731           02722                                   R2                                    
053042,001194: 12,2732           77621                          BDSU                                           
053043,001195: 12,2733           11507                                   D1/256                                
053044,001196: 12,2734           53361                          VXSC     VAD                                   #                               PL AT 6
053045,001197: 12,2735           02746                                   VVEC                                  
053046,001198: 12,2736           43412                          VSL8     RVQ                                   
053047,001199: 
053048,001200:                                                                                                 # # Page 1255
053049,001201: 04,2000                                          SETLOC   CONICS1                               
053050,001202: 04,2000                                          BANK                                           
053051,001203: 
053052,001204: 04,3467                                          COUNT    04/CONIC                              
053053,001205:                                                                                                 #  DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
053054,001206: 04,3467           00000        BEE17             DEC      0          B-14                       #  KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
053055,001207: 04,3470           04000 00000  D1/8              2DEC     1.0        B-3                        
053056,001208: 04,3472           00200 00000  D1/128            2DEC     1.0        B-7                        
053057,001209: 04,3474           00400 00000  D1/64             2DEC     1.0        B-6                        
053058,001210: 04,3476           10000 00000  D1/4              2DEC     1.0        B-2                        
053059,001211: 04,3500           02000 00000  D1/16             2DEC     1.0        B-4                        
053060,001212: 04,3502           01000 00000  D1/32             2DEC     1.0        B-5                        
053061,001213: 04,3504           00020 00000  D1/1024           2DEC     1.0        B-10                       
053062,001214: 04,3506           00100 00000  D1/256            2DEC     1.0        B-8                        
053063,001215: 04,3510           34631 23146  DP9/10            2DEC     .9                                    
053064,001216: 04,3512  04,3452               KEPZERO           EQUALS   LO6ZEROS                              
053065,001217: 04,3512           77467 77777  -50SC             2DEC     -50.0      B-12                       
053066,001218: 04,3514           03110 17665  2PISC             2DEC     6.28318530 B-6                        
053067,001219: 04,3516  04,3501               BEE19             EQUALS   D1/32      -1                         #  2DEC 1.0 B-19 (00000 01000)
053068,001220: 04,3516  04,3505               BEE22             EQUALS   D1/256     -1                         #  2DEC 1.0 B-22 (00000 00100)
053069,001221: 04,3516           00000 00001  ONEBIT            2DEC     1.0        B-28                       
053070,001222: 04,3520           37767 37737  COGUPLIM          2DEC     .999511597                            
053071,001223: 04,3522           40010 40040  COGLOLIM          2DEC     -.999511597                            
053072,001224: 
053073,001225:                                                                                                 # # Page 1256
053074,001226: 12,2000                                          SETLOC   CONICS                                
053075,001227: 12,2000                                          BANK                                           
053076,001228: 
053077,001229: 12,2737                                          COUNT    12/CONIC                              
053078,001230: 
053079,001231: 12,2737           40220        TIMETHET          STQ      SETPD                                 #                               PL AT 0
053080,001232: 12,2740           02712                                   RTNTT                                 
053081,001233: 12,2741           00001                                   0                                     
053082,001234: 12,2742           63375                          VLOAD    PDVL                                  #  SETUP FOR PARAM CALL         PL AT 6
053083,001235: 12,2743           02657                                   RVEC                                  
053084,001236: 12,2744           02746                                   VVEC                                  
053085,001237: 12,2745           77624                          CALL                                           
053086,001238: 12,2746           11524                                   PARAM                                 
053087,001239: 12,2747           45000                          BOV      CALL                                  
053088,001240: 12,2750           24767                                   COGAOVFL                              #                               PL AT 0
053089,001241: 12,2751           24772                                   GETX                                  
053090,001242: 12,2752           43145        COMMNOUT          DLOAD    BON                                   
053091,001243: 12,2753           00031                                   XI                                    
053092,001244: 12,2754           04310                                   INFINFLG                              
053093,001245: 12,2755           02712                                   RTNTT                                 
053094,001246: 12,2756           45014                          CLEAR    CALL                                  
053095,001247: 12,2757           04273                                   COGAFLAG                              
053096,001248: 12,2760           24426                                   DELTIME                               
053097,001249: 12,2761           45014                          BON      CALL                                  
053098,001250: 12,2762           03706                                   RVSW                                  
053099,001251: 12,2763           02712                                   RTNTT                                 
053100,001252: 12,2764           24660                                   NEWSTATE                              
053101,001253: 12,2765           77650                          GOTO                                           
053102,001254: 12,2766           02712                                   RTNTT                                 
053103,001255: 
053104,001256: 
053105,001257: 12,2767           77614        COGAOVFL          SETGO                                          
053106,001258: 12,2770           04033                                   COGAFLAG                              
053107,001259: 12,2771           02712                                   RTNTT                                 
053108,001260: 
053109,001261:                                                                                                 # # Page 1257
053110,001262: 04,3524                                          BANK     4                                     
053111,001263: 04,2000                                          SETLOC   CONICS1                               
053112,001264: 04,2000                                          BANK                                           
053113,001265: 04,3524                                          COUNT*   $$/CONIC                              
053114,001266: 04,3524           43020        PARAM             STQ      CLEAR                                 #  MPAC=V1VEC, 0D=R1VEC         PL AT 6
053115,001267: 04,3525           02755                                   RTNPRM                                
053116,001268: 04,3526           03665                                   NORMSW                                
053117,001269: 04,3527           77614                          CLEAR                                          
053118,001270: 04,3530           04273                                   COGAFLAG                              
053119,001271: 04,3531           45131                          SSP      CALL                                  
053120,001272: 04,3532           02675                                   GEOMSGN                               
053121,001273: 04,3533           27777                                   37777                                 #  GAMMA ALWAYS LESS THAN 180DEG
053122,001274: 04,3534           11570                                   GEOM                                  #  MPAC=SNGA (+1), 0D=CSGA (+I) PL AT 2
053123,001275: 04,3535           14045                          STODL    36D                                   #  36D=SIN GAMMA (+1)           PL AT 0
053124,001276: 04,3536           56261                          SR       DDV                                   
053125,001277: 04,3537           20606                                   5                                     
053126,001278: 
053127,001279: 04,3540           00045                                   36D                                   
053128,001280: 04,3541           33775                          STOVL*   COGA                                  
053129,001281: 04,3542           11626                                   MUTABLE,1                             
053130,001282: 04,3543           14017                          STODL    1/MU                                  
053131,001283: 04,3544           02722                                   MAGVEC2                               
053132,001284: 04,3545           60316                          DSQ      NORM                                  
053133,001285: 04,3546           00047                                   X1                                    
053134,001286: 04,3547           41275                          DMPR     DMP                                   
053135,001287: 04,3550           00017                                   1/MU                                  
053136,001288: 04,3551           00041                                   R1                                    
053137,001289: 04,3552           77657                          SRR*                                           
053138,001290: 04,3553           21576                                   0          -3,1                       
053139,001291: 04,3554           44206                          PUSH     BDSU                                  #  0D=R1 V1SQ/MU (+6)           PL AT 2
053140,001292: 04,3555           11503                                   D1/32                                 
053141,001293: 04,3556           16744                          STODL    R1A                                   #  R1A (+6)                     PL AT 0
053142,001294: 
053143,001295: 04,3557           60205                          DMP      NORM                                  
053144,001296: 04,3560           00045                                   36D                                   
053145,001297: 04,3561           00047                                   X1                                    
053146,001298: 04,3562           53605                          DMP      SR*                                   
053147,001299: 04,3563           00045                                   36D                                   
053148,001300: 04,3564           20575                                   0          -4,1                       
053149,001301: 04,3565           02742                          STORE    P                                     #  P (+4)
053150,001302: 04,3566           77650                          GOTO                                           
053151,001303: 04,3567           02755                                   RTNPRM                                
053152,001304: 
053153,001305:                                                                                                 # # Page 1258
053154,001306: 04,3570           77656        GEOM              UNIT                                           #  MPAC=V2VEC, 0D=R1VEC         PL AT 6
053155,001307: 04,3571           16714                          STODL    U2                                    #  U2 (+1)
053156,001308: 04,3572           00045                                   36D                                   
053157,001309: 04,3573           26722                          STOVL    MAGVEC2                               #                               PL AT 0
053158,001310: 04,3574           77656                          UNIT                                           
053159,001311: 04,3575           02724                          STORE    UR1                                   #  UR1 (+1)
053160,001312: 04,3576           72441                          DOT      SL1                                   
053161,001313: 04,3577           02714                                   U2                                    
053162,001314: 04,3600           77725                          PDDL                                           #  0D=CSTH (+1)                 PL AT 2
053163,001315: 04,3601           00045                                   36D                                   
053164,001316: 04,3602           24041                          STOVL    R1                                    #  R1 (+29 OR +27)
053165,001317: 04,3603           02724                                   UR1                                   
053166,001318: 04,3604           76435                          VXV      VSL1                                  
053167,001319: 04,3605           02714                                   U2                                    
053168,001320: 04,3606           75214                          BON      SIGN                                  
053169,001321: 04,3607           03705                                   NORMSW                                
053170,001322: 04,3610           11622                                   HAVENORM                              
053171,001323: 04,3611           02675                                   GEOMSGN                               
053172,001324: 04,3612           40056                          UNIT     BOV                                   
053173,001325: 04,3613           11620                                   COLINEAR                              
053174,001326: 04,3614           16676        UNITNORM          STODL    UN                                    #  UN (+1)
053175,001327: 04,3615           00045                                   36D                                   
053176,001328: 04,3616           43565                          SIGN     RVQ                                   #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
053177,001329: 04,3617           02675                                   GEOMSGN                               
053178,001330: 
053179,001331: 
053180,001332: 04,3620           52162        COLINEAR          VSR1     GOTO                                  
053181,001333: 04,3621           11614                                   UNITNORM                              
053182,001334: 
053183,001335: 
053184,001336: 04,3622           75246        HAVENORM          ABVAL    SIGN                                  
053185,001337: 04,3623           02675                                   GEOMSGN                               
053186,001338: 04,3624           77616                          RVQ                                            #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
053187,001339: 
053188,001340:                                                                                                 # # Page 1259
053189,001341: 12,2772                                          BANK     12                                    
053190,001342: 12,2000                                          SETLOC   CONICS                                
053191,001343: 12,2000                                          BANK                                           
053192,001344: 
053193,001345: 12,2772                                          COUNT    12/CONIC                              
053194,001346: 
053195,001347: 12,2772           66374        GETX              AXT,2    SSP                                   #  ASSUMES P (+4) IN MPAC
053196,001348: 12,2773           00003                                   3                                     
053197,001349: 12,2774           00052                                   S2                                    
053198,001350: 12,2775           00001                                   1                                     
053199,001351: 12,2776           77614                          CLEAR                                          
053200,001352: 12,2777           04276                                   360SW                                 
053201,001353: 12,3000           65366                          SQRT     PDDL                                  #  0D=SQRT(P)                       PL AT 2
053202,001354: 12,3001           02734                                   CSTH                                  
053203,001355: 12,3002           44342                          SR1      BDSU                                  
053204,001356: 12,3003           11477                                   D1/4                                  
053205,001357: 12,3004           54325                          PDDL     SRR                                   #                               PL AT 4D
053206,001358: 12,3005           02732                                   SNTH                                  
053207,001359: 12,3006           21607                                   6                                     
053208,001360: 12,3007           77671                          DDV                                            #                               PL AT 2
053209,001361: 12,3010           77600                          BOV                                            
053210,001362: 12,3011           25125                                   360CHECK                              
053211,001363: 12,3012           41225                          DSU      DMP                                   
053212,001364: 12,3013           03775                                   COGA                                  #                                   PL AT 0
053213,001365: 12,3014           40132                          SL2R     BOV                                   
053214,001366: 12,3015           25125                                   360CHECK                              
053215,001367: 12,3016           63406        WLOOP             PUSH     DSQ                                   #  0D=W (+5)                        PL AT 2
053216,001368: 12,3017           65351                          TLOAD    PDDL                                  #  2D=WSQ (+10)                     PL AT 5
053217,001369: 12,3020           00155                                   MPAC                                  
053218,001370: 12,3021           02744                                   R1A                                   
053219,001371: 12,3022           76202                          SR4      TAD                                   #                               PL AT 2
053220,001372: 12,3023           75440                          BMN      SQRT                                  
053221,001373: 12,3024           25210                                   INFINITY                              
053222,001374: 12,3025           43306                          ROUND    DAD                                   #                               PL AT 0D
053223,001375: 12,3026           61000                          BOV      TIX,2                                 
053224,001376: 12,3027           25123                                   RESETX2                               
053225,001377: 12,3030           25016                                   WLOOP                                 
053226,001378: 
053227,001379: 
053228,001380: 12,3031           40065                          BDDV     BOV                                   
053229,001381: 12,3032           11473                                   D1/128                                
053230,001382: 12,3033           25210                                   INFINITY                              
053231,001383: 12,3034           41440        POLYCOEF          BMN      PUSH                                  #  0D=1/W (+2) OR 16/W (+6)     PL AT 2
053232,001384: 12,3035           25210                                   INFINITY                              
053233,001385: 12,3036           77716                          DSQ                                            
053234,001386: 12,3037           41301                          NORM     DMP                                   
053235,001387: 12,3040           00047                                   X1                                    
053236,001388: 12,3041           02744                                   R1A                                   
053237,001389: 12,3042           77457                          SRR*     EXIT                                  
053238,001390: 12,3043           21567                                   0          -10D,1                     
053239,001391:                                                                                                 # # Page 1260
053240,001392: 12,3044           07171                          TC       POLY                                  
053241,001393: 12,3045           00005                          DEC      5          B-14                       
053242,001394: 12,3046           20000 00000                    2DEC     .5                                    
053243,001395: 12,3050           72525 52471                    2DEC     -.166666770                            
053244,001396: 12,3052           03146 15003                    2DEC     .100000392                            
053245,001397: 12,3054           75556 45210                    2DEC     -.071401086                            
053246,001398: 12,3056           01615 13553                    2DEC     .055503292                            
053247,001399: 12,3060           76371 63777                    2DEC     -.047264098                            
053248,001400: 12,3062           01232 27367                    2DEC     .040694204                            
053249,001401: 12,3064           06006                          TC       INTPRET                               
053250,001402: 12,3065           76405                          DMP      SL1R                                  #                               PL AT 0D
053251,001403: 12,3066           43006                          PUSH     BON                                   
053252,001404: 12,3067           04316                                   360SW                                 
053253,001405: 12,3070           25175                                   TRUE360X                              
053254,001406: 12,3071           60316        XCOMMON           DSQ      NORM                                  
053255,001407: 12,3072           00047                                   X1                                    
053256,001408: 12,3073           53605                          DMP      SRR*                                  
053257,001409: 12,3074           02744                                   R1A                                   
053258,001410: 12,3075           21565                                   0          -12D,1                     
053259,001411: 12,3076           14031                          STODL    XI                                    #  XI (+6)
053260,001412: 
053261,001413: 
053262,001414: 12,3077           00041                                   R1                                    
053263,001415: 12,3100           75542                          SR1      SQRT                                  
053264,001416: 12,3101           41306                          ROUND    DMP                                   
053265,001417: 12,3102           77632                          SL4R                                           #                               PL AT 0
053266,001418: 12,3103           00025                          STORE    X                                     #  X (+17 OR +16)
053267,001419: 
053268,001420: 
053269,001421: 12,3104           60316                          DSQ      NORM                                  
053270,001422: 12,3105           00047                                   X1                                    
053271,001423: 12,3106           41325                          PDDL     DMP                                   #  0D=XSQ (+34 OR +32 -N1)      PL AT 2
053272,001424: 12,3107           02742                                   P                                     
053273,001425: 12,3110           00041                                   R1                                    
053274,001426: 12,3111           75452                          SL3      SQRT                                  
053275,001427: 12,3112           56405                          DMP      SL3R                                  
053276,001428: 12,3113           03775                                   COGA                                  
053277,001429: 12,3114           14043                          STODL    KEPC1                                 
053278,001430: 12,3115           02744                                   R1A                                   
053279,001431: 12,3116           43021                          BDSU     CLEAR                                 
053280,001432: 12,3117           11475                                   D1/64                                 
053281,001433: 12,3120           04270                                   INFINFLG                              
053282,001434: 12,3121           00045                          STORE    KEPC2                                 
053283,001435:                                                                                                 # # Page 1261
053284,001436: 12,3122           77616                          RVQ                                            
053285,001437: 
053286,001438: 
053287,001439: 12,3123           77774        RESETX2           AXT,2                                          
053288,001440: 12,3124           00003                                   3                                     
053289,001441: 
053290,001442: 
053291,001443: 12,3125           51001        360CHECK          SETPD    BPL                                   
053292,001444: 12,3126           00001                                   0D                                    
053293,001445: 12,3127           25132                                   INVRSEQN                              
053294,001446: 12,3130           77614                          SET                                            
053295,001447: 12,3131           04076                                   360SW                                 
053296,001448: 
053297,001449: 
053298,001450: 12,3132           75545        INVRSEQN          DLOAD    SQRT                                  
053299,001451: 12,3133           02742                                   P                                     
053300,001452: 12,3134           41325                          PDDL     DMP                                   #  0D=SQRT(P)  (+2)                 PL AT 2
053301,001453: 12,3135           02732                                   SNTH                                  
053302,001454: 12,3136           03775                                   COGA                                  
053303,001455: 12,3137           65352                          SL1      PDDL                                  #  2D=SNTH COGA (+5)                PL AT 4
053304,001456: 12,3140           02734                                   CSTH                                  
053305,001457: 12,3141           43202                          SR4      DAD                                   
053306,001458: 12,3142           11503                                   D1/32                                 
053307,001459: 12,3143           41225                          DSU      DMP                                   #                               PL AT 2,0
053308,001460: 12,3144           55301                          NORM     BDDV                                  
053309,001461: 12,3145           00047                                   X1                                    
053310,001462: 12,3146           02732                                   SNTH                                  
053311,001463: 12,3147           51457                          SLR*     ABS                                   #  NOTE: NEAR 360 CASE TREATED DIFFERENTLY
053312,001464: 12,3150           21174                                   0          -5,1                       
053313,001465: 12,3151           63406                          PUSH     DSQ                                   #  0D=1/W (-1)                  PL AT 2
053314,001466: 12,3152           14043                          STODL    34D                                   
053315,001467: 12,3153           11501                                   D1/16                                 
053316,001468: 12,3154           63406        1/WLOOP           PUSH     DSQ                                   #  2D=G (+4)                        PL AT 4
053317,001469: 12,3155           65234                          RTB      PDDL                                  #                               PL AT 7
053318,001470: 12,3156           45562                                   TPMODE                                
053319,001471: 12,3157           02744                                   R1A                                   
053320,001472: 12,3160           40405                          DMP      SR4                                   
053321,001473: 12,3161           00043                                   34D                                   
053322,001474: 12,3162           77771                          TAD                                            #                                   PL AT 4
053323,001475: 12,3163           75440                          BMN      SQRT                                  
053324,001476: 12,3164           25210                                   INFINITY                              
053325,001477: 12,3165           77615                          DAD                                            #                               PL AT 2
053326,001478: 12,3166           60304                          TIX,2    NORM                                  
053327,001479: 12,3167           25154                                   1/WLOOP                               
053328,001480: 12,3170           00047                                   X1                                    
053329,001481: 12,3171           77665                          BDDV                                           
053330,001482: 12,3172           52057                          SLR*     GOTO                                  #                                   PL AT 0
053331,001483: 12,3173           21172                                   0          -7,1                       
053332,001484: 12,3174           25034                                   POLYCOEF                              
053333,001485: 
053334,001486:                                                                                                 # # Page 1262
053335,001487: 12,3175           50145        TRUE360X          DLOAD    BMN                                   
053336,001488: 12,3176           02744                                   R1A                                   
053337,001489: 12,3177           25210                                   INFINITY                              
053338,001490: 12,3200           60366                          SQRT     NORM                                  
053339,001491: 12,3201           00047                                   X1                                    
053340,001492: 12,3202           53665                          BDDV     SL*                                   
053341,001493: 12,3203           11515                                   2PISC                                 
053342,001494: 12,3204           20176                                   0          -3,1                       
053343,001495: 12,3205           41425                          DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X          PL AT 0,2
053344,001496: 12,3206           77650                          GOTO                                           
053345,001497: 12,3207           25071                                   XCOMMON                               
053346,001498: 12,3210           40001        INFINITY          SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
053347,001499: 12,3211           00001                                   0                                     #  INFINITY IS REQUIRED
053348,001500: 12,3212           25213                                   OVFLCLR                               
053349,001501: 12,3213           43414        OVFLCLR           SET      RVQ                                   
053350,001502: 12,3214           04070                                   INFINFLG                              
053351,001503: 
053352,001504:                                                                                                 # # Page 1263
053353,001505: 12,3215           40220        LAMBERT           STQ      SETPD                                 
053354,001506: 12,3216           02712                                   RTNLAMB                               
053355,001507: 12,3217           00001                                   0D                                    
053356,001508: 12,3220           76731                          SSP      VLOAD*                                
053357,001509: 12,3221           00027                                   ITERCTR                               
053358,001510: 12,3222           00024                                   20D                                   
053359,001511: 12,3223           11626                                   MUTABLE,1                             
053360,001512: 12,3224           14017                          STODL    1/MU                                  
053361,001513: 12,3225           02673                                   TDESIRED                              
053362,001514: 12,3226           77675                          DMPR                                           
053363,001515: 12,3227           11502                                   BEE19                                 
053364,001516: 12,3230           03777                          STORE    EPSILONL                              
053365,001517: 12,3231           77214                          SET      VLOAD                                 
053366,001518: 12,3232           00474                                   SLOPESW                               
053367,001519: 12,3233           02657                                   R1VEC                                 
053368,001520: 12,3234           45115                          PDVL     CALL                                  #  0D=R1VEC (+29 OR +27)        PL AT 6
053369,001521: 12,3235           02665                                   R2VEC                                 #  MPAC=R2VEC (+29 OR +27)
053370,001522: 12,3236           11570                                   GEOM                                  
053371,001523: 12,3237           16732                          STODL    SNTH                                  #  0D=CSTH (+1)                 PL AT 2
053372,001524: 12,3240           02722                                   MAGVEC2                               
053373,001525: 12,3241           65301                          NORM     PDDL                                  #                               PL AT 4
053374,001526: 12,3242           00047                                   X1                                    
053375,001527: 12,3243           00041                                   R1                                    
053376,001528: 12,3244           56342                          SR1      DDV                                   #                               PL AT 2
053377,001529: 12,3245           65257                          SL*      PDDL                                  #  DXCH WITH 0D, 0D=R1/R2 (+7)  PL AT 0,2
053378,001530: 12,3246           20173                                   0          -6,1                       
053379,001531: 12,3247           77626                          STADR                                          
053380,001532: 12,3250           75043                          STORE    CSTH                                  #  CSTH (+1)
053381,001533: 12,3251           44342                          SR1      BDSU                                  
053382,001534: 12,3252           11477                                   D1/4                                  
053383,001535: 12,3253           02736                          STORE    1-CSTH                                #  1-CSTH (+2)
053384,001536: 
053385,001537: 12,3254           53106                          ROUND    BZE                                   
053386,001538: 12,3255           25465                                   360LAMB                               
053387,001539: 12,3256           65301                          NORM     PDDL                                  #                               PL AT 4
053388,001540: 12,3257           00047                                   X1                                    
053389,001541: 12,3260           00001                                   0D                                    
053390,001542: 12,3261           56342                          SR1      DDV                                   #                               PL AT 2
053391,001543: 12,3262           75457                          SL*      SQRT                                  
053392,001544: 12,3263           20176                                   0          -3,1                       
053393,001545: 12,3264           54325                          PDDL     SR                                    #  2D=SQRT(2R1/R2(1-CSTH)) (+5) PL AT 4
053394,001546: 12,3265           02732                                   SNTH                                  
053395,001547: 12,3266           20607                                   6                                     
053396,001548: 12,3267           43271                          DDV      DAD                                   #                               PL AT 2
053397,001549: 12,3270           02736                                   1-CSTH                                
053398,001550: 12,3271           77626                          STADR                                          
053399,001551: 12,3272           77760                          STORE    COGAMAX                               
053400,001552: 12,3273           50000                          BOV      BMN                                   #  IF OVFL, COGAMAX=COGUPLIM
053401,001553: 12,3274           25301                                   UPLIM                                 #  IF NEG, USE EVEN IF LT COGLOLIM, SINCE
053402,001554: 12,3275           25304                                   MAXCOGA                               #    THIS WOULD BE RESET IN LAMBLOOP
053403,001555:                                                                                                 # # Page 1264
053404,001556: 12,3276           50025                          DSU      BMN                                   #  IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
053405,001557: 12,3277           11521                                   COGUPLIM                              
053406,001558: 12,3300           25304                                   MAXCOGA                               #  OTHERWISE OK, SO GO TO MAXCOGA
053407,001559: 12,3301           77745        UPLIM             DLOAD                                          
053408,001560: 12,3302           11521                                   COGUPLIM                              #  COGUPLIM=.999511597 = MAX VALUE OF COGA
053409,001561: 12,3303           00017                          STORE    COGAMAX                               #    NOT CAUSING OVFL IN R1A CALCULATION
053410,001562: 12,3304           77745        MAXCOGA           DLOAD                                          
053411,001563: 12,3305           02734                                   CSTH                                  
053412,001564: 12,3306           45261                          SR       DSU                                   #                               PL AT 0
053413,001565: 12,3307           20607                                   6                                     
053414,001566: 12,3310           77626                          STADR                                          
053415,001567: 12,3311           61037                          STODL    CSTH-RHO                              
053416,001568: 12,3312           02675                                   GEOMSGN                               
053417,001569: 12,3313           71240                          BMN      DLOAD                                 
053418,001570: 12,3314           25505                                   LOLIM                                 
053419,001571: 12,3315           02740                                   CSTH-RHO                              
053420,001572: 12,3316           56352                          SL1      DDV                                   
053421,001573: 12,3317           02732                                   SNTH                                  
053422,001574: 12,3320           77600                          BOV                                            
053423,001575: 12,3321           25505                                   LOLIM                                 
053424,001576: 12,3322           00011        MINCOGA           STORE    COGAMIN                               #  COGAMIN (+5)
053425,001577: 12,3323           66214                          BON      SSP                                   
053426,001578: 12,3324           00715                                   GUESSW                                
053427,001579: 12,3325           25471                                   NOGUESS                               
053428,001580: 12,3326           00051                                   TWEEKIT                               
053429,001581: 12,3327           00001                                   00001                                 
053430,001582: 12,3330           77745                          DLOAD                                          
053431,001583: 12,3331           03775                                   COGA                                  
053432,001584: 
053433,001585: 
053434,001586: 12,3332           77605        LAMBLOOP          DMP                                            
053435,001587: 12,3333           02732                                   SNTH                                  
053436,001588: 12,3334           45342                          SR1      DSU                                   
053437,001589: 12,3335           02740                                   CSTH-RHO                              
053438,001590: 12,3336           65301                          NORM     PDDL                                  #  0D=SNTH COGA-(CSTH-RHO) (+7+C(XI)) PL=2
053439,001591: 12,3337           00047                                   X1                                    
053440,001592: 12,3340           02736                                   1-CSTH                                
053441,001593: 12,3341           56257                          SL*      DDV                                   #  1-CSTH  (+2)                 PL AT 0
053442,001594: 12,3342           20170                                   0          -9D,1                      
053443,001595: 12,3343           53040                          BMN      BZE                                   
053444,001596: 12,3344           25421                                   NEGP                                  
053445,001597: 12,3345           25421                                   NEGP                                  
053446,001598: 12,3346           16742                          STODL    P                                     #  P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
053447,001599: 12,3347           03775                                   COGA                                  
053448,001600: 12,3350           43316                          DSQ      DAD                                   
053449,001601: 12,3351           11505                                   D1/1024                               
053450,001602: 12,3352           41301                          NORM     DMP                                   
053451,001603: 12,3353           00047                                   X1                                    
053452,001604: 12,3354           02742                                   P                                     
053453,001605: 12,3355           44257                          SR*      BDSU                                  
053454,001606:                                                                                                 # # Page 1265
053455,001607: 12,3356           20571                                   0          -8D,1                      
053456,001608: 12,3357           11503                                   D1/32                                 
053457,001609: 12,3360           16744                          STODL    R1A                                   #  R1A=2-P(1+COGA COGA) (+6)
053458,001610: 
053459,001611: 12,3361           02742                                   P                                     
053460,001612: 12,3362           45000                          BOV      CALL                                  
053461,001613: 12,3363           25424                                   HIENERGY                              
053462,001614: 12,3364           24772                                   GETX                                  
053463,001615: 12,3365           77745                          DLOAD                                          
053464,001616: 12,3366           00037                                   T                                     
053465,001617: 12,3367           16764                          STODL    TPREV                                 
053466,001618: 12,3370           00031                                   XI                                    
053467,001619: 12,3371           45014                          BON      CALL                                  
053468,001620: 12,3372           04310                                   INFINFLG                              
053469,001621: 12,3373           25421                                   NEGP                                  #  HAVE EXCEEDED THEORETICAL BOUNDS
053470,001622: 12,3374           24426                                   DELTIME                               
053471,001623: 12,3375           44200                          BOV      BDSU                                  
053472,001624: 12,3376           25441                                   BIGTIME                               
053473,001625: 12,3377           02673                                   TDESIRED                              
053474,001626: 12,3400           02762                          STORE    TERRLAMB                              
053475,001627: 12,3401           44246                          ABS      BDSU                                  
053476,001628: 12,3402           03777                                   EPSILONL                              
053477,001629: 12,3403           47044                          BPL      RTB                                   
053478,001630: 12,3404           25510                                   INITV                                 
053479,001631: 12,3405           24651                                   CHECKCTR                              
053480,001632: 12,3406           45030                          BHIZ     CALL                                  
053481,001633: 12,3407           25452                                   SUFFCHEK                              
053482,001634: 12,3410           24543                                   ITERATOR                              
053483,001635: 12,3411           53145                          DLOAD    BZE                                   
053484,001636: 12,3412           00155                                   MPAC                                  
053485,001637: 12,3413           25452                                   SUFFCHEK                              
053486,001638: 12,3414           77615                          DAD                                            
053487,001639: 12,3415           03775                                   COGA                                  
053488,001640: 12,3416           03775                          STORE    COGA                                  
053489,001641: 12,3417           77650                          GOTO                                           
053490,001642: 12,3420           25332                                   LAMBLOOP                              
053491,001643: 
053492,001644: 
053493,001645: 12,3421           51145        NEGP              DLOAD    BPL                                   #  IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
053494,001646: 12,3422           00015                                   DCOGA                                 #  BOUND CALCULATION. TRY NEW COGA.
053495,001647: 12,3423           25444                                   LOENERGY                              
053496,001648: 
053497,001649: 
053498,001650: 12,3424           71201        HIENERGY          SETPD    DLOAD                                 #  HIGH ENERGY TRAJECTORY RESULTED
053499,001651: 12,3425           00001                                   0                                     
053500,001652: 12,3426           03775                                   COGA                                  #  IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
053501,001653: 12,3427           00011                          STORE    COGAMIN                               #  THIS IS THE NEW BOUND.
053502,001654: 12,3430           70545        COMMONLM          DLOAD    SR1                                   
053503,001655: 12,3431           00015                                   DCOGA                                 
053504,001656: 12,3432           00015                          STORE    DCOGA                                 #  USE DCOGA/2 AS DECREMENT
053505,001657:                                                                                                 # # Page 1266
053506,001658: 12,3433           44254                          BZE      BDSU                                  
053507,001659: 12,3434           25452                                   SUFFCHEK                              
053508,001660: 12,3435           03775                                   COGA                                  
053509,001661: 12,3436           03775                          STORE    COGA                                  
053510,001662: 12,3437           77650                          GOTO                                           #  RESTART THIS LOOP
053511,001663: 12,3440           25332                                   LAMBLOOP                              
053512,001664: 
053513,001665: 
053514,001666: 12,3441           77745        BIGTIME           DLOAD                                          
053515,001667: 12,3442           02764                                   TPREV                                 
053516,001668: 12,3443           00037                          STORE    T                                     
053517,001669: 
053518,001670: 
053519,001671: 12,3444           71201        LOENERGY          SETPD    DLOAD                                 #  LOW ENERGY TRAJECTORY RESULTED
053520,001672: 12,3445           00001                                   0                                     
053521,001673: 12,3446           03775                                   COGA                                  #  IN OVERFLOW OF TIME.
053522,001674: 12,3447           00017                          STORE    COGAMAX                               #  THIS IS THE NEW BOUND.
053523,001675: 12,3450           77650                          GOTO                                           
053524,001676: 12,3451           25430                                   COMMONLM                              
053525,001677: 
053526,001678: 
053527,001679: 12,3452           51545        SUFFCHEK          DLOAD    ABS                                   
053528,001680: 12,3453           02762                                   TERRLAMB                              
053529,001681: 12,3454           41325                          PDDL     DMP                                   #                               PL AT 2D
053530,001682: 12,3455           02673                                   TDESIRED                              
053531,001683: 12,3456           11477                                   D1/4                                  
053532,001684: 12,3457           45215                          DAD      DSU                                   #                               PL AT 0D
053533,001685: 12,3460           11517                                   ONEBIT                                
053534,001686: 12,3461           43044                          BPL      SETGO                                 
053535,001687: 12,3462           25510                                   INITV                                 
053536,001688: 12,3463           02434                                   SOLNSW                                
053537,001689: 12,3464           02712                                   RTNLAMB                               
053538,001690: 
053539,001691: 
053540,001692: 12,3465           43001        360LAMB           SETPD    SETGO                                 #  LAMBERT CANNOT HANDLE CSTH=1
053541,001693: 12,3466           00001                                   0                                     
053542,001694: 12,3467           02434                                   SOLNSW                                
053543,001695: 12,3470           02712                                   RTNLAMB                               
053544,001696: 
053545,001697: 
053546,001698: 12,3471           71331        NOGUESS           SSP      DLOAD                                 
053547,001699: 12,3472           00051                                   TWEEKIT                               
053548,001700: 12,3473           10000                                   20000                                 
053549,001701: 12,3474           00011                                   COGAMIN                               
053550,001702: 12,3475           65342                          SR1      PDDL                                  #                               PL AT 2
053551,001703: 12,3476           00017                                   COGAMAX                               
053552,001704: 12,3477           43342                          SR1      DAD                                   
053553,001705: 12,3500           77626                          STADR                                          #                               PL AT 0
053554,001706: 12,3501           74002                          STORE    COGA                                  
053555,001707: 12,3502           00015                          STORE    DCOGA                                 
053556,001708:                                                                                                 # # Page 1267
053557,001709: 12,3503           77650                          GOTO                                           
053558,001710: 12,3504           25332                                   LAMBLOOP                              
053559,001711: 
053560,001712: 
053561,001713: 12,3505           52145        LOLIM             DLOAD    GOTO                                  
053562,001714: 12,3506           11523                                   COGLOLIM                              #  COGLOLIM=-.999511597
053563,001715: 12,3507           25322                                   MINCOGA                               
053564,001716: 
053565,001717: 
053566,001718: 12,3510           60345        INITV             DLOAD    NORM                                  
053567,001719: 12,3511           00041                                   R1                                    
053568,001720: 12,3512           00047                                   X1                                    
053569,001721: 12,3513           70525                          PDDL     SR1                                   #                               PL AT 2
053570,001722: 12,3514           02742                                   P                                     
053571,001723: 12,3515           77671                          DDV                                            #                               PL AT 0
053572,001724: 12,3516           75457                          SL*      SQRT                                  
053573,001725: 12,3517           20175                                   0          -4,1                       
053574,001726: 12,3520           72405                          DMP      SL1                                   
053575,001727: 12,3521           00021                                   ROOTMU                                
053576,001728: 12,3522           41206                          PUSH     DMP                                   #  0D=VTAN (+7)                 PL AT 2
053577,001729: 12,3523           03775                                   COGA                                  
053578,001730: 12,3524           74261                          SL       VXSC                                  
053579,001731: 12,3525           20206                                   5                                     
053580,001732: 12,3526           02724                                   UR1                                   
053581,001733: 12,3527           77725                          PDDL                                           #  XCH WITH 0D                  PL AT 0,6
053582,001734: 12,3530           76561                          VXSC     VSL1                                  
053583,001735: 12,3531           02676                                   UN                                    
053584,001736: 12,3532           53235                          VXV      VAD                                   #                               PL AT 0
053585,001737: 12,3533           02724                                   UR1                                   
053586,001738: 12,3534           43172                          VSL1     CLEAR                                 
053587,001739: 12,3535           02674                                   SOLNSW                                
053588,001740: 12,3536           02746                          STORE    VVEC                                  
053589,001741: 12,3537           53135                          SLOAD    BZE                                   
053590,001742: 12,3540           02704                                   VTARGTAG                              
053591,001743: 12,3541           25544                                   TARGETV                               
053592,001744: 12,3542           77650                          GOTO                                           
053593,001745: 12,3543           02712                                   RTNLAMB                               
053594,001746: 
053595,001747: 
053596,001748: 12,3544           45145        TARGETV           DLOAD    CALL                                  
053597,001749: 12,3545           02722                                   MAGVEC2                               
053598,001750: 12,3546           24706                                   LAMENTER                              
053599,001751: 12,3547           02705                          STORE    VTARGET                               
053600,001752: 12,3550           77650                          GOTO                                           
053601,001753: 12,3551           02712                                   RTNLAMB                               
053602,001754: 
053603,001755:                                                                                                 # # Page 1268
053604,001756: 12,3552           40220        TIMERAD           STQ      SETPD                                 #                                  PL AT 0
053605,001757: 12,3553           02712                                   RTNTR                                 
053606,001758: 12,3554           00001                                   0                                     
053607,001759: 12,3555           63375                          VLOAD    PDVL                                  #                                  PL AT 6
053608,001760: 12,3556           02657                                   RVEC                                  
053609,001761: 12,3557           02746                                   VVEC                                  
053610,001762: 12,3560           77624                          CALL                                           
053611,001763: 12,3561           11524                                   PARAM                                 
053612,001764: 12,3562           71200                          BOV      DLOAD                                 #                                  PL AT 0
053613,001765: 12,3563           24767                                   COGAOVFL                              
053614,001766: 12,3564           11503                                   D1/32                                 
053615,001767: 12,3565           41225                          DSU      DMP                                   
053616,001768: 12,3566           02744                                   R1A                                   
053617,001769: 12,3567           02742                                   P                                     
053618,001770: 12,3570           41366                          SQRT     DMP                                   
053619,001771: 12,3571           03775                                   COGA                                  
053620,001772: 12,3572           74212                          SL4      VXSC                                  
053621,001773: 12,3573           02714                                   U2                                    
053622,001774: 12,3574           45325                          PDDL     DSU                                   #                                  PL AT 6
053623,001775: 12,3575           11475                                   D1/64                                 
053624,001776: 12,3576           02744                                   R1A                                   
053625,001777: 12,3577           52361                          VXSC     VSU                                   #                                  PL AT 0
053626,001778: 12,3600           02724                                   UR1                                   
053627,001779: 12,3601           53512                          VSL4     UNIT                                  
053628,001780: 12,3602           77600                          BOV                                            
053629,001781: 12,3603           25465                                   360LAMB                               #  NO SOLUTION SINCE CONIC IS A CIRCLE
053630,001782: 12,3604           60325                          PDDL     NORM                                  #  0D=UNIT(ECC) (+3)               PL AT 6
053631,001783: 12,3605           02760                                   RDESIRED                              #  35D=ECC (+3)
053632,001784: 12,3606           00047                                   X1                                    
053633,001785: 12,3607           41325                          PDDL     DMP                                   #                               PL AT 8
053634,001786: 12,3610           00041                                   R1                                    
053635,001787: 12,3611           02742                                   P                                     
053636,001788: 12,3612           56257                          SL*      DDV                                   #                               PL AT 6
053637,001789: 12,3613           20201                                   0,1                                   
053638,001790: 12,3614           56225                          DSU      DDV                                   
053639,001791: 12,3615           11501                                   D1/16                                 
053640,001792: 12,3616           00045                                   36D                                   #  36D=ECC (+3)
053641,001793: 12,3617           00031                          STORE    COSF                                  
053642,001794: 12,3620           63400                          BOV      DSQ                                   
053643,001795: 12,3621           25661                                   BADR2                                 
053644,001796: 12,3622           50021                          BDSU     BMN                                   
053645,001797: 12,3623           11477                                   D1/4                                  
053646,001798: 12,3624           25661                                   BADR2                                 
053647,001799: 12,3625           75366                          SQRT     SIGN                                  
053648,001800: 12,3626           02757                                   SGNRDOT                               
053649,001801: 12,3627           77614                          CLEAR                                          
053650,001802: 12,3630           04272                                   APSESW                                
053651,001803: 
053652,001804: 12,3631           76561        TERMNVEC          VXSC     VSL1                                  
053653,001805: 12,3632           02676                                   UN                                    
053654,001806:                                                                                                 # # Page 1269
053655,001807: 12,3633           63235                          VXV      PDVL                                  #  VXCH WITH 0D                 PL AT 0,6
053656,001808: 12,3634           00001                                   0D                                    
053657,001809: 12,3635           53361                          VXSC     VAD                                   #                               PL AT 0
053658,001810: 12,3636           00031                                   COSF                                  
053659,001811: 12,3637           41572                          VSL1     PUSH                                  #  0D=U2                        PL AT 6
053660,001812: 
053661,001813: 12,3640           56241                          DOT      DDV                                   #  LIMITS RESULT TO POSMAX OR NEGMAX
053662,001814: 12,3641           02724                                   UR1                                   
053663,001815: 12,3642           23701                                   DP1/4                                 
053664,001816: 12,3643           40142                          SR1      BOV                                   #  SCALE BACK DOWN TO NORMAL
053665,001817: 12,3644           25645                                   +1                                    #  CLEAR OVFIND IF SET
053666,001818: 12,3645           26734                          STOVL    CSTH                                  #  CSTH (+1)
053667,001819: 12,3646           02724                                   UR1                                   
053668,001820: 12,3647           76435                          VXV      VSL1                                  
053669,001821: 12,3650           72441                          DOT      SL1                                   
053670,001822: 12,3651           02676                                   UN                                    
053671,001823: 12,3652           16732                          STODL    SNTH                                  #  SNTH (+1)
053672,001824: 12,3653           02742                                   P                                     
053673,001825: 12,3654           77624                          CALL                                           
053674,001826: 12,3655           24772                                   GETX                                  
053675,001827: 12,3656           77614                          CLRGO                                          
053676,001828: 12,3657           02634                                   SOLNSW                                
053677,001829: 12,3660           24752                                   COMMNOUT                              
053678,001830: 
053679,001831: 
053680,001832: 12,3661           75345        BADR2             DLOAD    SIGN                                  
053681,001833: 12,3662           11451                                   LODPHALF                              
053682,001834: 12,3663           00031                                   COSF                                  
053683,001835: 12,3664           14031                          STODL    COSF                                  
053684,001836: 12,3665           11453                                   KEPZERO                               
053685,001837: 12,3666           77614                          SETGO                                          
053686,001838: 12,3667           04032                                   APSESW                                
053687,001839: 12,3670           25631                                   TERMNVEC                              
053688,001840: 12,3671           40220        APSIDES           STQ      SETPD                                 #                                 PL AT  0
053689,001841: 12,3672           02712                                   RTNAPSE                               
053690,001842: 12,3673           00001                                   0D                                    
053691,001843: 12,3674           63375                          VLOAD    PDVL                                  #                                 PL AT  6
053692,001844: 12,3675           02657                                   RVEC                                  
053693,001845: 12,3676           02746                                   VVEC                                  
053694,001846: 12,3677           77624                          CALL                                           
053695,001847: 12,3700           11524                                   PARAM                                 
053696,001848: 12,3701           77600                          BOV                                            #                                 PL AT  0
053697,001849: 12,3702           25703                                   GETECC                                
053698,001850: 12,3703           42405        GETECC            DMP      SL4                                   
053699,001851: 12,3704           02744                                   R1A                                   
053700,001852: 12,3705           75421                          BDSU     SQRT                                  
053701,001853: 12,3706           11475                                   D1/64                                 
053702,001854: 12,3707           02754                          STORE    ECC                                   
053703,001855: 12,3710           65215                          DAD      PDDL                                  #                                 PL AT  2
053704,001856: 12,3711           11471                                   D1/8                                  
053705,001857:                                                                                                 # # Page 1270
053706,001858: 12,3712           00041                                   R1                                    
053707,001859: 12,3713           72405                          DMP      SL1                                   
053708,001860: 12,3714           02742                                   P                                     
053709,001861: 12,3715           77671                          DDV                                            #                                 PL AT  0
053710,001862: 12,3716           60325                          PDDL     NORM                                  #  0D=RP (+29 OR +27)             PL AT  2
053711,001863: 12,3717           02744                                   R1A                                   
053712,001864: 12,3720           00047                                   X1                                    
053713,001865: 12,3721           53725                          PDDL     SL*                                   #                                 PL AT  4
053714,001866: 12,3722           00041                                   R1                                    
053715,001867: 12,3723           20174                                   0          -5,1                       
053716,001868: 12,3724           45271                          DDV      DSU                                   #                                 PL AT 2,0
053717,001869: 12,3725           50000                          BOV      BMN                                   
053718,001870: 12,3726           25732                                   INFINAPO                              
053719,001871: 12,3727           25732                                   INFINAPO                              
053720,001872: 12,3730           77650                          GOTO                                           
053721,001873: 12,3731           02712                                   RTNAPSE                               
053722,001874: 12,3732           52145        INFINAPO          DLOAD    GOTO                                  #  RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
053723,001875: 12,3733           11464                                   LDPOSMAX                              
053724,001876: 12,3734           02712                                   RTNAPSE                               #  THAT PL IS AT 0.
053725,001877: 
053726,001878:                                                                                                 # # Page 1271
053727,001879: 04,2000                                          SETLOC   CONICS1                               
053728,001880: 04,2000                                          BANK                                           
053729,001881: 
053730,001882: 04,3625                                          COUNT    04/CONIC                              
053731,001883: 
053732,001884: 04,3625           22437 16067  MUTABLE           2DEC*    3.986032   E10        B-36*           #  MUE
053733,001885: 04,3627           15625 21042                    2DEC*    .25087606  E-10       B+34*           #  1/MUE
053734,001886: 04,3631           30276 04773                    2DEC*    1.99650495 E5         B-18*           #  SQRT(MUE)
053735,001887: 04,3633           25004 06702                    2DEC*    .50087529  E-5        B+17*           #  1/SQRT(MUE)
053736,001888: 
053737,001889: 04,3635           16471 01352                    2DEC     4.902778   E8         B-30            #  MUM
053738,001890: 04,3637           21412 20500                    2DEC     .203966    E-8        B+28            #  1/MUM
053739,001891: 04,3641           25477 03367                    2DEC*    2.21422176 E4         B-15*           #  SQRT(MUM)
053740,001892: 04,3643           27533 07571                    2DEC*    .45162595  E-4        B+14*           #  1/SQRT(MUM)
053741,001893: 
053742,001894: 
053743,001895: 04,3645  04,3463               LDPOSMAX          EQUALS   LODPMAX                               #  DPPOSMAX IN LOW MEMORY.
053744,001896: 
053745,001897:                                                                                                 #  ERASABLE ASSIGNEMENTS
053746,001898: 
053747,001899: 
053748,001900:                                                                                                 #  KEPLER SUBROUTINE
053749,001901: 
053750,001902:                                                                                                 #     INPUT -
053751,001903:                                                                                                 #  RRECT    ERASE  +5
053752,001904:                                                                                                 #  VRECT    ERASE  +5
053753,001905:                                                                                                 #  TAU.     ERASE  +1
053754,001906:                                                                                                 #  XKEP     ERASE  +1
053755,001907:                                                                                                 #  TC       ERASE  +1
053756,001908:                                                                                                 #  XPREV    ERASE  +1
053757,001909: 04,3645                        1/MU              EQUALS   14D                                   
053758,001910: 04,3645                        ROOTMU            EQUALS   16D                                   
053759,001911: 04,3645                        1/ROOTMU          EQUALS   18D                                   
053760,001912:                                                                                                 #     OUTPUT -
053761,001913:                                                                                                 #  RCV      ERASE  +5
053762,001914:                                                                                                 #  VCV      ERASE  +5
053763,001915:                                                                                                 #  RC       ERASE  +1
053764,001916:                                                                                                 #  XPREV    ERASE  +1
053765,001917: 
053766,001918:                                                                                                 #     DEBRIS -
053767,001919: 04,3645                        ALPHA             EQUALS   8D                                    
053768,001920: 04,3645                        XMAX              EQUALS   10D                                   
053769,001921:                                                                                                 # # Page 1272
053770,001922: 04,3645                        XMIN              EQUALS   12D                                   
053771,001923: 04,3645                        X                 EQUALS   20D                                   
053772,001924: 04,3645                        XI                EQUALS   24D                                   
053773,001925: 04,3645                        S(XI)             EQUALS   26D                                   
053774,001926: 04,3645                        XSQC(XI)          EQUALS   28D                                   
053775,001927: 04,3645                        T                 EQUALS   30D                                   
053776,001928: 04,3645                        R1                EQUALS   32D                                   
053777,001929: 04,3645                        KEPC1             EQUALS   34D                                   
053778,001930: 04,3645                        KEPC2             EQUALS   36D                                   
053779,001931:                                                                                                 #  DELX     ERASE  +1
053780,001932:                                                                                                 #  DELT     ERASE  +1
053781,001933:                                                                                                 #  URRECT   ERASE  +5
053782,001934:                                                                                                 #  RCNORM   ERASE  +1
053783,001935:                                                                                                 #  XPREV    EQUALS XKEP
053784,001936: 
053785,001937: 
053786,001938:                                                                                                 #  LAMBERT SUBROUTINE
053787,001939: 
053788,001940:                                                                                                 #     INPUT-
053789,001941:                                                                                                 #  R1VEC    ERASE  +5
053790,001942:                                                                                                 #  R2VEC    ERASE  +5
053791,001943:                                                                                                 #  TDESIRED ERASE  +1
053792,001944:                                                                                                 #  GEOMSGN  ERASE  +0
053793,001945:                                                                                                 #  GUESSW                          0 IF COGA GUESS AVIABLE, 1 IF NOT
053794,001946:                                                                                                 #  COGA     ERASE  +1              INPUT ONLY IF GUESSW IS ZERO.
053795,001947:                                                                                                 #  NORMSW                          0 IF UN TO BE COMPUTED, 1 IF UN INPUT
053796,001948:                                                                                                 #  UN       ERASE  +5              ONLY USED IF NORMSW IS 1
053797,001949:                                                                                                 #  VTARGTAG ERASE  +0
053798,001950:                                                                                                 #  TWEEKIT  EQUALS 40D             ONLY USED IF GUESSW IS 0
053799,001951: 
053800,001952:                                                                                                 #     OUTPUT -
053801,001953:                                                                                                 #  VTARGET  ERASE  +5              AVAILABLE ONLY IF VTARGTAG IS ZERO.
053802,001954:                                                                                                 #  V1VEC    EQUALS MPAC
053803,001955: 
053804,001956:                                                                                                 #     DEBRIS -
053805,001957:                                                                                                 #  RTNLAMB  ERASE  +0
053806,001958:                                                                                                 #  U2       ERASE  +5
053807,001959:                                                                                                 #  MAGVEC2  ERASE  +1
053808,001960:                                                                                                 #  UR1      ERASE  +5
053809,001961:                                                                                                 #  R1       EQUALS 31D
053810,001962:                                                                                                 #  UN       ERASE  +5
053811,001963:                                                                                                 #  SNTH     ERASE  +1
053812,001964:                                                                                                 #  CSTH     ERASE  +1
053813,001965:                                                                                                 #  1-CSTH   ERASE  +1
053814,001966:                                                                                                 #  CSTH-RHO ERASE  +1
053815,001967: 04,3645                        COGAMAX           EQUALS   14D                                   #  CLOBBERS 1/MU
053816,001968: 04,3645                        COGAMIN           EQUALS   8D                                    
053817,001969: 04,3645                        DCOGA             EQUALS   12D                                   
053818,001970:                                                                                                 #  TWEEKIT  EQUALS 40D
053819,001971:                                                                                                 #  P        ERASE  +1
053820,001972:                                                                                                 # # Page 1273
053821,001973:                                                                                                 #  COGA     ERASE  +1
053822,001974:                                                                                                 #  R1A      ERASE  +1
053823,001975:                                                                                                 #  X        EQUALS 20D
053824,001976:                                                                                                 #  XSQ      EQUALS 22D
053825,001977:                                                                                                 #  XI       EQUALS 24D
053826,001978:                                                                                                 #  S(XI)    EQUALS 26D
053827,001979:                                                                                                 #  XSQC(XI) EQUALS 28D
053828,001980:                                                                                                 #  T        EQUALS 30D
053829,001981:                                                                                                 #  KEPC1    EQUALS 34D
053830,001982:                                                                                                 #  KEPC2    EQUALS 36D
053831,001983:                                                                                                 #  SLOPESW
053832,001984:                                                                                                 #  SOLNSW
053833,001985:                                                                                                 #  OTHERS -
053834,001986: 
053835,001987:                                                                                                 #  RVEC     EQUALS R1VEC
053836,001988:                                                                                                 #  VVEC     ERASE  +5
053837,001989:                                                                                                 #  COGAFLAG
053838,001990:                                                                                                 #  RVSW
053839,001991:                                                                                                 #  INFINFLG
053840,001992:                                                                                                 #  APSESW
053841,001993:                                                                                                 #  360SW
053842,001994:                                                                                                 #  RTNTT    EQUALS RTNLAMB
053843,001995:                                                                                                 #  ECC      ERASE  +1
053844,001996:                                                                                                 #  RTNTR    EQUALS RTNLAMB
053845,001997:                                                                                                 #  RTNAPSE  EQUALS RTNLAMB
053846,001998:                                                                                                 #  R2       EQUALS MAGVEC2
053847,001999: 04,3645                        COSF              EQUALS   24D                                   
053848,002000:                                                                                                 #  RTNPRM   ERASE  +0
053849,002001:                                                                                                 #  SCNRDOT  ERASE  +0
053850,002002:                                                                                                 #  RDESIRED ERASE  +1
053851,002003: 
053852,002004: 
053853,002005:                                                                                                 #  ITERATOR SUBROUTINE
053854,002006: 
053855,002007:                                                                                                 #  ORDERSW
053856,002008: 04,3645                        MAX               EQUALS   14D                                   #  CLOBBERS 1/MU
053857,002009: 04,3645                        MIN               EQUALS   8D                                    
053858,002010:                                                                                                 #  INDEP    ERASE  +1
053859,002011: 04,3645                        DELINDEP          EQUALS   12D                                   
053860,002012: 04,3645                        ITERCTR           EQUALS   22D                                   
053861,002013: 04,3645                        DEP               EQUALS   30D                                   
053862,002014:                                                                                                 #  DELDEP   ERASE  +1
053863,002015:                                                                                                 #  DEPREV   ERASE  +1
053864,002016: 04,3645                        TWEEKIT           EQUALS   40D                                   
053865,002017: 
053866,002018: 
053867,002019:                                                                                                 #  MORE KEPLER
053868,002020: 
053869,002021:                                                                                                 #  EPSILONT ERASE  +1
053870,002022: 
053871,002023:                                                                                                 # # Page 1274
053872,002024:                                                                                                 #  MORE LAMBERT
053873,002025: 
053874,002026:                                                                                                 #  TERRLAMB EQUALS DELDEP
053875,002027:                                                                                                 #  TPREV    EQUALS DEPREV
053876,002028: 
053877,002029: 
053878,002030:                                                                                                 #  EPSILONL EQUALS EPSILONT +2     DOUBLE PRECISION WORD

End of include-file CONIC_SUBROUTINES.agc.  Parent file is MAIN.agc