Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

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

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