Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

053912,000002:                                                                                                  ## Copyright:   Public domain.
053913,000003:                                                                                                  ## Filename:    CONIC_SUBROUTINES.agc
053914,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
053915,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
053916,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
053917,000007:                                                                                                  ## Assembler:   yaYUL
053918,000008:                                                                                                  ## Reference:   Starts on p. 1232
053919,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
053920,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
053921,000011:                                                                                                  ## Mod history: 08/29/04 RSB.   Began converting from corresponding Luminary131 file.
053922,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
053923,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
053924,000014:                                                                                                  ##                              numbers in 1701.pdf.
053925,000015:                                                                                                  ##              2017-01-07 RSB  Cross-diff'd comment text (not whitespace)
053926,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
053927,000017:                                                                                                  ##                              237 and Comanche 55 source-code files
053928,000018:                                                                                                  ##                              and corrected errors found.
053929,000019:                                                                                                  ##              2017-01-21 RSB  Back-ported comment error fixes detected in diff'ing
053930,000020:                                                                                                  ##                              Artemis 72 vs Comanche 55.
053931,000021:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
053932,000022:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
053933,000023:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
053934,000024:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
053935,000025: 
053936,000026:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
053937,000027:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
053938,000028:                                                                                                  ## document read, in part:
053939,000029:                                                                                                  ##
053940,000030:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
053941,000031:                                                                                                  ##      2021111-041.  October 28, 1968.  
053942,000032:                                                                                                  ##
053943,000033:                                                                                                  ##      This AGC program shall also be referred to as
053944,000034:                                                                                                  ##                              Colossus 1A
053945,000035:                                                                                                  ##
053946,000036:                                                                                                  ##      Prepared by
053947,000037:                                                                                                  ##                      Massachusetts Institute of Technology
053948,000038:                                                                                                  ##                      75 Cambridge Parkway
053949,000039:                                                                                                  ##                      Cambridge, Massachusetts
053950,000040:                                                                                                  ##      under NASA contract NAS 9-4065.
053951,000041:                                                                                                  ##
053952,000042:                                                                                                  ## Refer directly to the online document mentioned above for further information.
053953,000043:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
053954,000044:                                                                                                  ##
053955,000045:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
053956,000046:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
053957,000047:                                                                                                  ## source file, and then is proofed to incorporate any changes.
053958,000048: 

Page 1232

053960,000050:                                                                                                  #  PROGRAM DESCRIPTION - ENTIRE CONIC SUBROUTINE LOG SECTION     DATE - 1 SEPTEMBER 1967
053961,000051:                                                                                                  #  MOD NO. - 0                                                   LOG SECTION - CONIC SUBROUTINES
053962,000052:                                                                                                  #  MOD BY KRAUSE                                                 ASSEMBLY - COLOSSUS REVISION 88
053963,000053: 
053964,000054:                                                                                                  #  FUNCTIONAL DESCRIPTION -
053965,000055:                                                                                                  #        THE FOLLOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL
053966,000056:                                                                                                  #        INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION
053967,000057:                                                                                                  #        5.5.1.2.  A GENERAL USAGE POINT-OF-VIEW WAS TAKEN IN FORMULATING, MECHANIZING, AND SCALING THE SUBROUTINES,
053968,000058:                                                                                                  #        RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE.  THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES
053969,000059:                                                                                                  #        INVOLVING ANY REALISTIC SET OF CONSTRAINTS.  IT SHOULD BE NOTED THAT ONLY ONE SET OF CODING IS USED, WHETHER THE
053970,000060:                                                                                                  #        EARTH, MOON, OR ANY OTHER CELESTIAL BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM, PROVIDED ONE OBSERVES
053971,000061:                                                                                                  #        THE INHERENT SCALE CHANGE REQUIRED IN POSITION, VELOCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING
053972,000062:                                                                                                  #        DEFINITION MEMO NO. 10.  THIS CAN BE ACCOMPLISHED BY SIMPLY ADDING TO THE MUTABLE AND INITIALIZING THE SUBROU-
053973,000063:                                                                                                  #        TINES APPROPRIATELY.
053974,000064: 
053975,000065:                                                                                                  #        DUE TO THE UNIFORMITY OF THE EQUATIONS INVOLVED, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND
053976,000066:                                                                                                  #        BLOCKS OF EQUATIONS AS SUBROUTINES OF LOWER RANK WHENEVER POSSIBLE.  AS A RESULT, THREE BY-PRODUCTS SUBROUTINES,
053977,000067:                                                                                                  #        DIRECTLY USABLE AS INDEPENDENT SUBROUTINES, WERE GENERATED.
053978,000068: 
053979,000069:                                                                                                  #  RESTRICTIONS -
053980,000070:                                                                                                  #        THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING
053981,000071:                                                                                                  #        LIMIT OF EACH PARAMETER AS SPECIFIED IN THE GSOP.  THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC-
053982,000072:                                                                                                  #        TORIES COULD BE HANDLED.
053983,000073: 
053984,000074:                                                                                                  #        SINCE THE SUBROUTINES (EXCEPT KEPLER) USE COMMON SUBROUTINES OF LOWER RANK WHICH USE ERASABLE OTHER THAN
053985,000075:                                                                                                  #        THE PUSHLIST (DUE TO ITS LIMITED SIZE) AND COMMON INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED
053986,000076:                                                                                                  #        TO INTERRUPT EACH OTHER.  IT IS UP TO THE USER TO GUARANTEE THIS CONDITION.
053987,000077: 

Page 1233

053989,000079:                                                                                                  #  PROGRAM DESCRIPTION - KEPLER SUBROUTINE                       DATE - 11 OCTOBER 1967
053990,000080:                                                                                                  #  MOD NO. -1                                                    LOG SECTION - CONIC SUBROUTINES
053991,000081:                                                                                                  #  MOD BY KRAUSE                                                 ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222
053992,000082: 
053993,000083:                                                                                                  #  FUNCTIONAL DESCRIPTION -
053994,000084:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO
053995,000085:                                                                                                  #        BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR.  THE TRAJECTORY MAY BE ANY CONIC
053996,000086:                                                                                                  #        SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE
053997,000087:                                                                                                  #        USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT
053998,000088:                                                                                                  #        INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERA-
053999,000089:                                                                                                  #        TION TECHNIQUE IS UTILIZED IN THE COMPUTATION.
054000,000090: 
054001,000091:                                                                                                  #        IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
054002,000092:                                                                                                  #        EXTRAPOLATING THE POSITION BACKWARD IN TIME.
054003,000093: 
054004,000094:                                                                                                  #        IF THE DESIRED TRANSFER TIME IS POSITIVE AND EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A MODULAR
054005,000095:                                                                                                  #        TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
054006,000096: 
054007,000097:                                                                                                  #  THE RESTRICTIONS ARE -
054008,000098:                                                                                                  #        1.      A NEGATIVE DESIRED TIME MUST BE LESS THAN ONE PERIOD IN MAGNITUDE.  IF GREATER, THE ONE-PERIOD-SOLUTION
054009,000099:                                                                                                  #                WILL BE RETURNED.
054010,000100:                                                                                                  #        2.      THE PARAMETERS IN THE PROBLEM CANNOT EXCEED THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP.  IF
054011,000101:                                                                                                  #                ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054012,000102: 
054013,000103:                                                                                                  #        THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATION SPEED IS DEPENDENT ON THE ACCURACY OF THE
054014,000104:                                                                                                  #        GUESS, XKFPNEW.  THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR INITIALIZATION, .065 SECONDS FOR THE
054015,000105:                                                                                                  #        FINAL COMPUTATIONS, PLUS .083 SECONDS FOR EACH ITERATION.
054016,000106: 
054017,000107:                                                                                                  #  REFERENCES -
054018,000108:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP, SECTION 5.5, SGA
054019,000109:                                                                                                  #        MEMO 67-4.
054020,000110: 
054021,000111:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054022,000112:                                                                                                  #          * SCALE FACTOR *
054023,000113:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054024,000114:                                                                                                  #  --------*--------------*                         -----------------------
054025,000115:                                                                                                  #  RRECT   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054026,000116:                                                                                                  #          * +27 FOR MOON *
054027,000117:                                                                                                  #  VRECT   * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054028,000118:                                                                                                  #          * +5 FOR MOON  *
054029,000119:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054030,000120:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
054031,000121:                                                                                                  #  TAU.    * +28          *DESIRED TRANSFER TIME IN CENTISECONDS (DP)

Page 1234

054033,000123:                                                                                                  #  XKEPNEW * +17 FOR EARTH*GUESS OF X IN METERS-TO-THE-ONE-HALF FROM KEPPREP
054034,000124:                                                                                                  #          * +16 FOR MOON *(DP)
054035,000125:                                                                                                  #  TC      * +28          *DP PREV. VALUE OF TIME IN CENTISECS FROM KEPPREP
054036,000126:                                                                                                  #  XPREV   * +17 FOR EARTH*PREVIOUS VALUE OF X IN METERS-TO-THE-ONE-HALF POWER FROM KEPPREP (DP)
054037,000127:                                                                                                  #          * +16 FOR MOON *(DP)
054038,000128: 
054039,000129:                                                                                                  #  SUBROUTINES CALLED -
054040,000130:                                                                                                  #        DELTIME
054041,000131: 
054042,000132:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054043,000133:                                                                                                  #        KEPRTN-2        GOTO                    MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
054044,000134:                                                                                                  #        KEPRTN-1                KEPLER          RETURNS WITH XPREV IN MPAC.  PL IS AT 0.
054045,000135:                                                                                                  #        KEPRTN          ...                     CONTINUE
054046,000136: 
054047,000137:                                                                                                  #        KEPLER MUST NOT BE CALLED DIRECTLY SINCE AN INTERRUPTION OF IT WOULD DESTROY THE ERASABLES IT NEEDS TO COMPLETE
054048,000138:                                                                                                  #        THE INTERRUPTED JOB.  THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
054049,000139:                                                                                                  #        ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
054050,000140: 
054051,000141:                                                                                                  #  ABORT EXIT MODES -
054052,000142:                                                                                                  #        NONE
054053,000143: 
054054,000144:                                                                                                  #  OUTPUT -
054055,000145:                                                                                                  #          * SCALE FACTOR *
054056,000146:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054057,000147:                                                                                                  #  --------*--------------*                         -----------------------
054058,000148:                                                                                                  #  RCV     * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS
054059,000149:                                                                                                  #          * +27 FOR MOON *
054060,000150:                                                                                                  #  VCV     * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
054061,000151:                                                                                                  #          * +5 FOR MOON  *
054062,000152:                                                                                                  #  TC      * +28          *DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED.
054063,000153:                                                                                                  #  XPREV   * +17 FOR EARTH*DP X IN METERS-TO-THE-ONE-HALF-POWER TO WHCIH KEPLER CONVERGED.
054064,000154:                                                                                                  #          * +16 FOR MOON *(DP)
054065,000155:                                                                                                  #        FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054066,000156: 
054067,000157:                                                                                                  #  DEBRIS -
054068,000158:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -

Page 1235

054070,000160:                                                                                                  #          * SCALE FACTOR *
054071,000161:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054072,000162:                                                                                                  #  --------*--------------*                         -----------------------
054073,000163:                                                                                                  #  URRECT  * +1           *DP UNIT VECTOR OF INITIAL POSITION
054074,000164:                                                                                                  #  R1      * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
054075,000165:                                                                                                  #          * +27 FOR MOON *
054076,000166:                                                                                                  #  ALPHA   * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
054077,000167:                                                                                                  #          * -20 FOR MOON *
054078,000168:                                                                                                  #  TMODULO * +28          *DP INTEGRAL NUMBER OF PERIODS IN  CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
054079,000169:                                                                                                  #          *              *TAU. OF LESS THAN ONE PERIOD.
054080,000170: 
054081,000171:                                                                                                  #  PARAMETERS OF NO USE -
054082,000172:                                                                                                  #        DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
054083,000173: 

Page 1236

054085,000175:                                                                                                  #  PROGRAM DESCRIPTION - LAMBERT SUBROUTINE                      DATE - 1 SEPTEMBER 1967
054086,000176:                                                                                                  #  MOD NO. - 0                                                   LOG SECTION - CONIC SUBROUTINES
054087,000177:                                                                                                  #  MOD BY KRAUSE                                                 ASSEMBLY - COLOSSUS REVISION 88
054088,000178: 
054089,000179:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054090,000180:                                                                                                  #        THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY
054091,000181:                                                                                                  #        FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL.  THE RESULTING TRAJECTORY MAY BE
054092,000182:                                                                                                  #        A SECTION OF A CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE
054093,000183:                                                                                                  #        SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY
054094,000184:                                                                                                  #        CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.  AN ITERATION TECHNIQUE IS
054095,000185:                                                                                                  #        UTILIZED IN THE COMPUTATION.
054096,000186: 
054097,000187:                                                                                                  #  THE RESTRICTIONS ARE -
054098,000188:                                                                                                  #        1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED.
054099,000189:                                                                                                  #        2. AN ACCURACY DEGRADATION OCCURS AS THE COSINE OF THE TRUE ANOMALY DIFFERENCE APPROACHES +1.0.
054100,000190:                                                                                                  #        3. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054101,000191:                                                                                                  #           AND LESS THAN 178 DEGREES 12.5 MINUTES.
054102,000192:                                                                                                  #        4. NEGATIVE TRANSFER TIME IS AMBIGUOUS AND WILL RESULT IN NO SOLUTION.
054103,000193:                                                                                                  #        5. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE
054104,000194:                                                                                                  #           LIMITS ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054105,000195: 
054106,000196:                                                                                                  #        THE NUMBER OF ITERATIONS AND, THEREFORE, THE COMPUTATIONS SPEED IS DEPENDENT ON THE ACCURACY OF THE FIRST
054107,000197:                                                                                                  #        GUESS OF THE INDEPENDENT VARIABLE, COGA.  THE AGC COMPUTATION TIME IS APPROXIMATE-
054108,000198:                                                                                                  #        LY .105 SECONDS FOR INITIALIZATION, .069 SECONDS FOR FINAL COMPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION.
054109,000199: 
054110,000200:                                                                                                  #  REFERENCES -
054111,000201:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP - SECTION 5.5, SGA MEMO 67-8,
054112,000202:                                                                                                  #        SGA MEMO 67-4.
054113,000203: 
054114,000204:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054115,000205:                                                                                                  #          * SCALE FACTOR *
054116,000206:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054117,000207:                                                                                                  #  --------*--------------*                         -----------------------
054118,000208:                                                                                                  #  R1VEC   * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054119,000209:                                                                                                  #          * +27 FOR MOON *
054120,000210:                                                                                                  #  R2VEC   * +29 FOR EARTH*DP TARGET OR TERMINAL POSITION VECTOR IN METERS
054121,000211:                                                                                                  #          * +27 FOR MOON *
054122,000212:                                                                                                  #  TDESIRED* +28          *DP DESIRED TRANSFER TIME IN CENTISECONDS
054123,000213:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054124,000214:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY
054125,000215:                                                                                                  #  GEOMSGN * NONE         *SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
054126,000216:                                                                                                  #  GUESSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF

Page 1237

054128,000218:                                                                                                  #          *              *COGA IS TO BE USED BY LAMBERT
054129,000219:                                                                                                  #  COGA    * +5           *DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL).  THIS WILL BE
054130,000220:                                                                                                  #                         *IGNORED IF GUESSW IS SET.
054131,000221:                                                                                                  #  NORMSW  * NONE         *AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
054132,000222:                                                                                                  #          *              *LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
054133,000223:                                                                                                  #  UN      * +1           *DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
054134,000224:                                                                                                  #          *              *MOMENTUM VECTOR.  THIS WILL BE IGNORED IF NORMSW IS CLEAR.
054135,000225:                                                                                                  #  VTARGTAG*NONE          *A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
054136,000226:                                                                                                  #          *              *AT R1VEC.
054137,000227: 
054138,000228:                                                                                                  #  SUBROUTINES CALLED -
054139,000229:                                                                                                  #        GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
054140,000230: 
054141,000231:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054142,000232:                                                                                                  #        L       CALL                    MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
054143,000233:                                                                                                  #        L+1             LAMBERT         RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZERO OR VTARGET
054144,000234:                                                                                                  #                                        IN MPAC IF VTARGTAG WAS ZERO
054145,000235:                                                                                                  #        L+2     BON                     CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
054146,000236:                                                                                                  #        L+3             SOLNSW
054147,000237:                                                                                                  #        L+4             LAMABORT
054148,000238: 
054149,000239:                                                                                                  #        IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
054150,000240:                                                                                                  #        GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
054151,000241: 
054152,000242:                                                                                                  #  ABORT EXIT MODES -
054153,000243:                                                                                                  #        IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
054154,000244:                                                                                                  #        WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC.  IN EITHER CASE THE FIX MUST BE MADE
054155,000245:                                                                                                  #        ACCORDING TO THE NEEDS OF THE PARTICULAR USER.  THE ABORT EXIT MODE MAY BE CODED AS ...
054156,000246:                                                                                                  #        LAMABORT        DLOAD   ABS             A MEASURE OF PROXIMITY TO 0 OR
054157,000247:                                                                                                  #                                1-CSTH          360 DEGREES.
054158,000248:                                                                                                  #                        DSU     BMN
054159,000249:                                                                                                  #                                ONEBIT
054160,000250:                                                                                                  #                                CHANGER2        CHANGE R2VEC DIRECTION SLIGHTLY.
054161,000251:                                                                                                  #                        DLOAD   DAD
054162,000252:                                                                                                  #                                TDESIRED
054163,000253:                                                                                                  #                                SOMETIME
054164,000254:                                                                                                  #                        STCALL  TDESIRED        INCREASE TDESIRED
054165,000255:                                                                                                  #                                LAMBERT
054166,000256: 
054167,000257:                                                                                                  #  OUTPUT -
054168,000258:                                                                                                  #          * SCALE FACTOR *
054169,000259:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS

Page 1238

054171,000261:                                                                                                  #  --------*--------------*                         -----------------------
054172,000262:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE
054173,000263:                                                                                                  #          * +5 FOR MOON  *PROBLEM.
054174,000264:                                                                                                  #  VTARGET * +7 FOR EARTH *DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND.
054175,000265:                                                                                                  #          * +5 FOR MOON  *
054176,000266:                                                                                                  #  SOLNSW  * NONE         *INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE
054177,000267:                                                                                                  #          *              *SOLUTION EXISTS.
054178,000268:                                                                                                  #  FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054179,000269: 
054180,000270:                                                                                                  #  DEBRIS -
054181,000271:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054182,000272:                                                                                                  #          * SCALE FACTOR *
054183,000273:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054184,000274:                                                                                                  #  --------*--------------*                         -----------------------
054185,000275:                                                                                                  #  SNTH    * +1           *DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC
054186,000276:                                                                                                  #  CSTH    * +1           *DP COSINE OF ANGLE
054187,000277:                                                                                                  #  1-CSTH  * +2           *DP 1-CSTH
054188,000278:                                                                                                  #  COGA    * +5           *DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL
054189,000279:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS
054190,000280:                                                                                                  #  R1A     * +6           *DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS
054191,000281:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP INITIAL RADIUS IN METERS
054192,000282:                                                                                                  #          * +27 FOR MOON *
054193,000283:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF R1VEC
054194,000284:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF R2VEC
054195,000285: 
054196,000286:                                                                                                  #        PARAMETERS OF NO USE
054197,000287:                                                                                                  #                DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D
054198,000288:                                                                                                  #                ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW
054199,000289: 

Page 1239

054201,000291:                                                                                                  #  PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE                   DATE - 1 SEPTEMBER 1967
054202,000292:                                                                                                  #  MOD NO. - 0                                                   LOG SECTION - CONIC SUBROUTINES
054203,000293:                                                                                                  #  MOD BY KRAUSE                                                 ASSEMBLY - COLOSSUS REVISION 88
054204,000294: 
054205,000295:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054206,000296:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE
054207,000297:                                                                                                  #        STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
054208,000298:                                                                                                  #        PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
054209,000299:                                                                                                  #        CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
054210,000300:                                                                                                  #        EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054211,000301:                                                                                                  #        ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054212,000302: 
054213,000303:                                                                                                  #  THE RESTRICTIONS ARE -
054214,000304:                                                                                                  #        1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054215,000305:                                                                                                  #           AND LESS THAN 178 DEGREES 12.5 MINUTES.
054216,000306:                                                                                                  #        2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
054217,000307:                                                                                                  #           ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054218,000308: 
054219,000309:                                                                                                  #        THE AGC COMPUTATION TIME IS APPROXIMATELY .292 SECONDS.
054220,000310: 
054221,000311:                                                                                                  #  REFERENCES -
054222,000312:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
054223,000313: 
054224,000314:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054225,000315: 
054226,000316:                                                                                                  #          * SCALE FACTOR *
054227,000317:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054228,000318:                                                                                                  #  --------*--------------*                         -----------------------
054229,000319:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054230,000320:                                                                                                  #          * +27 FOR MOON *
054231,000321:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054232,000322:                                                                                                  #          * +5 FOR MOON  *
054233,000323:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE STATE IS TO BE UPDATED
054234,000324:                                                                                                  #  CSTH    * +1           *DP COSINE OF THE ANGLE
054235,000325:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
054236,000326:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
054237,000327:                                                                                                  #  X1 (38D)*NONE          *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054238,000328:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
054239,000329: 
054240,000330:                                                                                                  #  SUBROUTINES CALLED -

Page 1240

054242,000332:                                                                                                  #        PARAM, GEOM, GETX, DELTIME, NEWSTATE
054243,000333: 
054244,000334:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054245,000335:                                                                                                  #        IF ONLY TIME IS DESIRED AS OUTPUT -
054246,000336:                                                                                                  #        L       SET     CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
054247,000337:                                                                                                  #        L+1             RVSW
054248,000338:                                                                                                  #        L+2             TIMETHET        RETURN WITH PL AT 0 AND T IN MPAC
054249,000339:                                                                                                  #        L+3     ...                     CONTINUE
054250,000340: 
054251,000341:                                                                                                  #        IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
054252,000342:                                                                                                  #        L       CLEAR   CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
054253,000343:                                                                                                  #        L+1             RVSW
054254,000344:                                                                                                  #        L+2             TIMETHET        RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
054255,000345:                                                                                                  #                                        THE INITIAL VELOCITY VECTOR IN MPAC.
054256,000346:                                                                                                  #        L+3     STOVL   NEWVVEC
054257,000347:                                                                                                  #        L+4     STADR
054258,000348:                                                                                                  #        L+5     STORE   NEWRVEC         NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
054259,000349:                                                                                                  #        L+6     ...                     CONTINUE
054260,000350: 
054261,000351:                                                                                                  #  ABORT EXIT MODES -
054262,000352:                                                                                                  #        L       CALL    BON
054263,000353:                                                                                                  #        L+1             TIMETHET
054264,000354:                                                                                                  #        L+2             COGAFLAG
054265,000355:                                                                                                  #        L+3             COGABORT        RESTRICTION 1 HAS BEEN VIOLATED.
054266,000356:                                                                                                  #        L+4     BON                     IF NEITHER FLAG IS SET AND RESTRICTION 2 HAS NOT BEEN VIOLATED, THE SOLUTION IS
054267,000357:                                                                                                  #                                        GOOD, SO CONTINUE
054268,000358:                                                                                                  #        L+5             INFINFLG
054269,000359:                                                                                                  #        L+6             IMPOSSBL        NO SOLUTION EXISTS.
054270,000360: 
054271,000361:                                                                                                  #  OUTPUT -
054272,000362:                                                                                                  #          * SCALE FACTOR *
054273,000363:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054274,000364:                                                                                                  #  --------*--------------*                         -----------------------
054275,000365:                                                                                                  #  T(30D)  * +28          *DP TRANSFER TIME IN CENTISECONDS
054276,000366:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH
054277,000367:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
054278,000368:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
054279,000369:                                                                                                  #          *              *CLEAR IF NOT.
054280,000370: 
054281,000371:                                                                                                  #        IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
054282,000372:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
054283,000373:                                                                                                  #   MPAC+5 * +5 FOR MOON  *

Page 1241

054285,000375:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
054286,000376:                                                                                                  #          * +27 FOR MOON *
054287,000377: 
054288,000378:                                                                                                  #        FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054289,000379: 
054290,000380:                                                                                                  #  DEBRIS -
054291,000381:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054292,000382: 
054293,000383:                                                                                                  #          * SCALE FACTOR *
054294,000384:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054295,000385:                                                                                                  #  --------*--------------*                         -----------------------
054296,000386:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054297,000387:                                                                                                  #          * +27 FOR MOON *
054298,000388:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054299,000389:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
054300,000390:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054301,000391:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
054302,000392:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
054303,000393:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
054304,000394: 
054305,000395:                                                                                                  #  PARAMETERS OF NO USE -
054306,000396:                                                                                                  #        SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
054307,000397:                                                                                                  #        ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
054308,000398: 

Page 1242

054310,000400:                                                                                                  #  PROGRAM DESCRIPTION - TIME-RADIUS SUBROUTINE          DATE - 11 OCTOBER 1967
054311,000401:                                                                                                  #  MOD NO. -1                                            LOG SECTION - CONIC SUBROUTINES
054312,000402:                                                                                                  #  MOD BY KRAUSE                                         ASSEMBLY - COLOSSUS REVISION 88
054313,000403: 
054314,000404:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054315,000405:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED RADIUS TO WHICH THE
054316,000406:                                                                                                  #        STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION,
054317,000407:                                                                                                  #        PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR.  THE RESULTING TRAJECTORY MAY BE A SECTION OF A
054318,000408:                                                                                                  #        CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
054319,000409:                                                                                                  #        EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054320,000410:                                                                                                  #        ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054321,000411: 
054322,000412:                                                                                                  #        IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER,
054323,000413:                                                                                                  #        APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY.
054324,000414: 
054325,000415:                                                                                                  #  THE RESTRICTIONS ARE -
054326,000416:                                                                                                  #        1. THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER THAN 1 DEGREE 47.5 MINUTES
054327,000417:                                                                                                  #           AND LESS THAN 178 DEGREES 12.5 MINUTES.
054328,000418:                                                                                                  #        2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
054329,000419:                                                                                                  #           ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054330,000420:                                                                                                  #        3. AN ACCURACY DEGRADATION OCCURS AS THE SENSITIVITIES OF TIME AND UPDATED STATE VECTOR TO CHANGES IN
054331,000421:                                                                                                  #           RDESIRED INCREASE.  THIS WILL OCCUR NEAR EITHER APSIS OF THE CONIC AND WHEN THE CONIC IS NEARLY CIRCULAR.  IN
054332,000422:                                                                                                  #           PARTICULAR, IF THE CONIC IS AN EXACT CIRCLE, THE PROBLEM IS UNDEFINED AND THE SUBROUTINE WILL ABORT.
054333,000423: 
054334,000424:                                                                                                  #        THE AGC COMPUTATION TIME IS APPROXIMATELY .363 SECONDS
054335,000425: 
054336,000426:                                                                                                  #  REFERENCES -
054337,000427:                                                                                                  #        R-479, MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5, SGA MEMO 67-8.
054338,000428: 
054339,000429:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054340,000430: 
054341,000431:                                                                                                  #          * SCALE FACTOR *
054342,000432:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054343,000433:                                                                                                  #  --------*--------------*                         -----------------------
054344,000434:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054345,000435:                                                                                                  #          * +27 FOR MOON *
054346,000436:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054347,000437:                                                                                                  #          * +5 FOR MOON  *
054348,000438:                                                                                                  #  RDESIRED* +29 FOR EARTH*DP TERMINAL RADIAL DISTANCE ON CONIC TRAJECTORY FOR WHICH TRANSFER TIME IS TO BE
054349,000439:                                                                                                  #          * +27 FOR MOON *COMPUTED.
054350,000440:                                                                                                  #  SGNRDOT * NONE         *SP TAG SET TO +.5 OR -.5 ACCORDING TO WHETHER THE RADIAL VELOCITY AT RDESIRED IS TO BE
054351,000441:                                                                                                  #          *              *POSITIVE OR NEGATIVE, RESPECTIVELY.   THIS TAG REDUCES THE DOUBLE-VALUED PROBLEM TO A

Page 1243

054353,000443:                                                                                                  #          *              *SINGLE-VALUED PROBLEM.
054354,000444:                                                                                                  #  X1 (38D)*NONE          *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054355,000445:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
054356,000446:                                                                                                  #  RVSW    * NONE         *AN INTERPRETIVE SWITCH TO BE SET IF ONLY TIME IS TO BE AN OUTPUT, CLEAR IF THE NEW STATE
054357,000447:                                                                                                  #          *              *IS TO BE COMPUTED ALSO.
054358,000448: 
054359,000449:                                                                                                  #  SUBROUTINES CALLED -
054360,000450:                                                                                                  #        PARAM, GEOM, GETX, DELTIME, NEWSTATE
054361,000451: 
054362,000452:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -
054363,000453:                                                                                                  #        IF ONLY TIME IS DESIRED AS OUTPUT -
054364,000454:                                                                                                  #        L       SET     CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
054365,000455:                                                                                                  #        L+1             RVSW
054366,000456:                                                                                                  #        L+2             TIMERAD         RETURN WITH PL AT 0 AND T IN MPAC
054367,000457:                                                                                                  #        L+3     ...                     CONTINUE
054368,000458: 
054369,000459:                                                                                                  #        IF THE UPDATE STATE VECTOR IS DESIRED AS WELL -
054370,000460:                                                                                                  #        L       CLEAR   CALL            MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR
054371,000461:                                                                                                  #        L+1             RVSW
054372,000462:                                                                                                  #        L+2             TIMERAD         RETURNS WITH PL AT 6.  THE INITIAL POSITION VECTOR IS IN 0D OF THE PUSHLIST AND
054373,000463:                                                                                                  #                                        THE INITIAL VELOCITY VECTOR IN MPAC.
054374,000464:                                                                                                  #        L+3     STOVL   NEWVVEC
054375,000465:                                                                                                  #        L+4     STADR
054376,000466:                                                                                                  #        L+5     STORE   NEWRVEC         NEWVVEC AND NEWRVEC ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS.
054377,000467:                                                                                                  #        L+6     ...                     CONTINUE
054378,000468: 
054379,000469:                                                                                                  #  ABORT EXIT MODES -
054380,000470:                                                                                                  #        L       CALL    BON
054381,000471:                                                                                                  #        L+1             TIMERAD
054382,000472:                                                                                                  #        L+2             COGAFLAG
054383,000473:                                                                                                  #        L+3             COGABORT        RESTRICTION 1 HAS BEEN VIOLATED.
054384,000474:                                                                                                  #        L+4     BON     BON
054385,000475:                                                                                                  #        L+5             INFINFLG
054386,000476:                                                                                                  #        L+6             IMPOSSBL        NO SOLUTION EXISTS.
054387,000477:                                                                                                  #        L+7             SOLNSW
054388,000478:                                                                                                  #        L+8             IMPOSSBL        SOLUTION IS UNDEFINED SINCE CONIC IS A CIRCLE.  RESTRICTION 3 HAS BEEN VIOLATED.
054389,000479:                                                                                                  #        L+9     ...                     IF ALL THREE OF THE FLAGS ARE CLEAR, A SOLUTION EXISTS, SO CONTINUE.
054390,000480: 
054391,000481:                                                                                                  #  OUTPUT -
054392,000482:                                                                                                  #          * SCALE FACTOR *

Page 1244

054394,000484:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054395,000485:                                                                                                  #  --------*--------------*                         -----------------------
054396,000486:                                                                                                  #  T (30D) * +28          *DP TRANSFER TIME IN CENTISECONDS
054397,000487:                                                                                                  #  INFINFLG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED AND SGNRDOT REQUIRE CLOSURE THROUGH
054398,000488:                                                                                                  #          *              *INFINITY (NO SOLUTION), CLEAR IF A PHYSICAL SOLUTION IS POSSIBLE.
054399,000489:                                                                                                  #  COGAFLAG* NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RESTRICTION 1 HAS BEEN VIOLATED (NO SOLUTION),
054400,000490:                                                                                                  #          *              *CLEAR IF NOT.
054401,000491:                                                                                                  #  APSESW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF RDESIRED WAS GREATER THAN RADIUS OF APOCENTER OR
054402,000492:                                                                                                  #          *              *LESS THAN RADIUS OF PERICENTER.  THE APOCENTER OR PERICENTER SOLUTION, RESPECTIVELY,
054403,000493:                                                                                                  #          *              *WILL THEN BE RETURNED.  THE SWITCH IS CLEAR IF RDESIRED WAS BETWEEN PERICENTER AND
054404,000494:                                                                                                  #          *              *APOCENTER.
054405,000495:                                                                                                  #  SOLNSW  * NONE         *AN INTERPRETIVE SWITCH WHICH IS SET IF THE CONIC IS SO CLOSE TO A CIRCLE THAT THE TERMIN
054406,000496:                                                                                                  #                         *POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3.  IF ECCENTRICITY IS GREATER THAN 2-TO-THE-
054407,000497:                                                                                                  #                         *MINUS-18, THE SWITCH IS CLEAR.
054408,000498: 
054409,000499:                                                                                                  #        IN ADDITION, IF VTARGTAG IS NON-ZERO, THE FOLLOWING ARE OUTPUT -
054410,000500: 
054411,000501:                                                                                                  #  MPAC -  * +7 FOR EARTH *DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC.
054412,000502:                                                                                                  #   MPAC +5* +5 FOR MOON  *
054413,000503:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
054414,000504:                                                                                                  #          * +27 FOR MOON *
054415,000505: 
054416,000506:                                                                                                  #        FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054417,000507: 
054418,000508:                                                                                                  #  DEBRIS -
054419,000509: 
054420,000510:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054421,000511: 
054422,000512:                                                                                                  #          * SCALE FACTOR *
054423,000513:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054424,000514:                                                                                                  #  --------*--------------*                         -----------------------
054425,000515:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054426,000516:                                                                                                  #          * +27 FOR MOON *
054427,000517:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054428,000518:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
054429,000519:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054430,000520:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
054431,000521:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
054432,000522:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
054433,000523:                                                                                                  #  CSTH    * +1           *DP COSINE OF TRUE ANOMALY DIFFERENCE BETWEEN RVEC AND RDESIRED.
054434,000524:                                                                                                  #  SNTH    * +1           *DP SINE OF TRUE ANOMALY DIFFERENCE.
054435,000525: 
054436,000526:                                                                                                  #        PARAMETERS OF NO USE -
054437,000527:                                                                                                  #                SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
054438,000528:                                                                                                  #                ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
054439,000529: 
054440,000530: 

Page 1245

054442,000532:                                                                                                  #  PROGRAM DESCRIPTION - APSIDES SUBROUTINE              DATE - 1 SEPTEMBER 1967
054443,000533:                                                                                                  #  MOD NO. - 0                                           LOG SECTION - CONIC SUBROUTINES
054444,000534:                                                                                                  #  MOD BY KRAUSE                                         ASSEMBLY - COLOSSUS REVISION 88
054445,000535: 
054446,000536:                                                                                                  #  FUNCTIONAL DESCRIPTION -
054447,000537:                                                                                                  #        THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS OF PERICENTER AND OF APOCENTER AND THE
054448,000538:                                                                                                  #        ECCENTRICITY OF THE RESULTING CONIC TRAJECTORY, WHICH MAY BE A STRAIGHT LINE,
054449,000539:                                                                                                  #        CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON.  THE USE OF THE SUBROUTINE CAN BE
054450,000540:                                                                                                  #        EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES,
054451,000541:                                                                                                  #        ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
054452,000542: 
054453,000543:                                                                                                  #  THE RESTRICTIONS ARE -
054454,000544:                                                                                                  #        1. IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,870,910 METERS WITH RESPECT
054455,000545:                                                                                                  #           TO THE EARTH OR 134,217,727.5 METERS WITH RESPECT TO THE MOON) WILL BE RETURNED.
054456,000546:                                                                                                  #        2. THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSOP.  IF THE LIMITS
054457,000547:                                                                                                  #           ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS.
054458,000548:                                                                                                  #        THE AGC COMPUTATION TIME IS APPROXIMATELY .103 SECONDS.
054459,000549: 
054460,000550:                                                                                                  #  REFERENCES -
054461,000551:                                                                                                  #        MISSION PROGRAMMING DEFINITION MEMO NO. 10, LUNAR LANDING MISSION GSOP-SECTION 5.5
054462,000552: 
054463,000553:                                                                                                  #  INPUT - ERASABLE INITIALIZATION REQUIRED
054464,000554:                                                                                                  #          * SCALE FACTOR *
054465,000555:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054466,000556:                                                                                                  #  --------*--------------*                         -----------------------
054467,000557:                                                                                                  #  RVEC    * +29 FOR EARTH*DP INITIAL POSITION VECTOR IN METERS
054468,000558:                                                                                                  #          * +27 FOR MOON *
054469,000559:                                                                                                  #  VVEC    * +7 FOR EARTH *DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
054470,000560:                                                                                                  #          * +5 FOR MOON  *
054471,000561:                                                                                                  #  X1 (38D)* NONE         *INDEX REGISTER TO BE SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
054472,000562:                                                                                                  #          *              *RESPECTIVELY, IS THE CENTRAL BODY.
054473,000563: 
054474,000564:                                                                                                  #  SUBROUTINES CALLED -
054475,000565:                                                                                                  #        PARAM, GEOM
054476,000566: 
054477,000567:                                                                                                  #  CALLING SEQUENCE AND NORMAL EXIT MODES -

Page 1246

054479,000569:                                                                                                  #        IF ONLY TIME IS DESIRED AS OUTPUT -
054480,000570:                                                                                                  #        L       CALL                    MUST BE IN INTERPRETIVE MODE AND OVFIND MUST BE CLEAR.
054481,000571:                                                                                                  #        L+1             APSIDES         RETURNS WITH PL AT 0, RADIUS OF APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0D
054482,000572:                                                                                                  #        L+2     STODL   APOAPSE
054483,000573:                                                                                                  #        L+3             0D
054484,000574:                                                                                                  #        L+4     STORE   PERIAPSE        APOAPSE AND PERIAPSE ARE SYMBOLIC REPRESENTATIONS OF THE USERS LOCATIONS
054485,000575:                                                                                                  #        L+5     ...                     CONTINUE
054486,000576: 
054487,000577:                                                                                                  #  OUTPUT -
054488,000578:                                                                                                  #          * SCALE FACTOR *
054489,000579:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054490,000580:                                                                                                  #  --------*--------------*                         -----------------------
054491,000581:                                                                                                  #  MPAC    * +29 FOR EARTH*DP RADIUS OF APOCENTER IN METERS
054492,000582:                                                                                                  #          * +27 FOR MOON *
054493,000583:                                                                                                  #  0D-1D   * +29 FOR EARTH*DP RADIUS OF PERICENTER IN METERS
054494,000584:                                                                                                  #          * +27 FOR MOON *
054495,000585:                                                                                                  #  ECC     * +3           *DP ECCENTRICITY OF CONIC TRAJECTORY.
054496,000586:                                                                                                  #        FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054497,000587: 
054498,000588:                                                                                                  #  DEBRIS -
054499,000589: 
054500,000590:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054501,000591: 
054502,000592:                                                                                                  #          * SCALE FACTOR *
054503,000593:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054504,000594:                                                                                                  #  --------*--------------*                         -----------------------
054505,000595:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054506,000596:                                                                                                  #          * +27 FOR MOON *
054507,000597:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054508,000598:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
054509,000599:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054510,000600:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
054511,000601:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
054512,000602:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
054513,000603:                                                                                                  #  MAGVEC2 * +7 FOR EARTH *DP MAGNITUDE OF VVEC
054514,000604:                                                                                                  #          * +5 FOR MOON  *
054515,000605: 
054516,000606:                                                                                                  #        PARAMETERS OF NO USE -
054517,000607:                                                                                                  #                SP PARAMETERS - RTNAPSE, GEOMSGN, RTNPRM, PLUS PUSHLIST LOCATIONS 0-5, 10D-11D, 14D-21D, 31D-38D.
054518,000608:                                                                                                  #                ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW
054519,000609: 
054520,000610: 12,2000                                           SETLOC   CONICS                                

Page 1247

054522,000612: 12,2000                                           BANK                                           
054523,000613: 
054524,000614: 12,2000                                           COUNT    12/CONIC                              
054525,000615: 
054526,000616: 12,2000  E5,1723                                  EBANK=   UR1                                   
054527,000617: 12,2000           71201        KEPLERN            SETPD    DLOAD                                 
054528,000618: 12,2001           00001                                    0                                     
054529,000619: 12,2002           11456                                    KEPZERO                               
054530,000620: 12,2003           01344                           STORE    XMODULO                               
054531,000621: 12,2004           31346                           STOVL*   TMODULO                               
054532,000622: 12,2005           11631                                    MUTABLE,1                             
054533,000623: 12,2006           24017                           STOVL    14D                                   
054534,000624: 12,2007           01503                                    RRECT                                 
054535,000625: 12,2010           66256                           UNIT     SSP                                   
054536,000626: 12,2011           00027                                    ITERCTR                               
054537,000627: 12,2012           00024                                    20D                                   
054538,000628: 12,2013           16647                           STODL    URRECT                                
054539,000629: 12,2014           00045                                    36D                                   
054540,000630: 12,2015           24041                           STOVL    R1                                    
054541,000631: 12,2016           01503                                    RRECT                                 
054542,000632: 12,2017           76441                           DOT      SL1R                                  
054543,000633: 12,2020           01511                                    VRECT                                 
054544,000634: 12,2021           76405                           DMP      SL1R                                  
054545,000635: 12,2022           00023                                    1/ROOTMU                              #  1/ROOTMU (-17 OR -14)
054546,000636: 12,2023           24043                           STOVL    KEPC1                                 #  C1=R.V/ROOTMU (+17 OR +16)
054547,000637: 12,2024           01511                                    VRECT                                 
054548,000638: 12,2025           57236                           VSQ      DMPR                                  
054549,000639: 12,2026           00017                                    1/MU                                  #  1/MU (-34 OR -28)
054550,000640: 12,2027           52405                           DMP      SL3                                   
054551,000641: 12,2030           00041                                    R1                                    
054552,000642: 12,2031           61425                           DSU      ROUND                                 
054553,000643: 12,2032           11500                                    D1/64                                 
054554,000644: 12,2033           00045                           STORE    KEPC2                                 #  C2=RV.V/MU -1 (+6)
054555,000645: 
054556,000646: 12,2034           74421                           BDSU     SR1R                                  
054557,000647: 12,2035           11500                                    D1/64                                 
054558,000648: 12,2036           77671                           DDV                                            
054559,000649: 12,2037           00041                                    R1                                    
054560,000650: 12,2040           00011                           STORE    ALPHA                                 #  ALPHA=(1-C2)/R1 (-22 OR -20)
054561,000651: 
054562,000652: 12,2041           71244                           BPL      DLOAD                                 #  MAXIMUM X DEPENDS ON TYPE OF CONIC
054563,000653: 12,2042           24051                                    1REV                                  
054564,000654: 12,2043           11516                                    -50SC                                 #  -50SC (+12)
054565,000655: 12,2044           40071                           DDV      BOV                                   
054566,000656: 12,2045           00011                                    ALPHA                                 
054567,000657: 12,2046           24055                                    STOREMAX                              
054568,000658: 12,2047           52166                           SQRT     GOTO                                  
054569,000659: 12,2050           24055                                    STOREMAX                              

Page 1248

054571,000661: 12,2051           55366        1REV               SQRT     BDDV                                  
054572,000662: 12,2052           11520                                    2PISC                                 #  2PISC (+6)
054573,000663: 12,2053           77600                           BOV                                            
054574,000664: 12,2054           24055                                    STOREMAX                              
054575,000665: 12,2055           50165        STOREMAX           SIGN     BMN                                   
054576,000666: 12,2056           02312                                    TAU.                                  
054577,000667: 12,2057           24272                                    BACKWARD                              
054578,000668: 12,2060           00013                           STORE    XMAX                                  
054579,000669: 12,2061           65205                           DMP      PDDL                                  #                                PL AT 2
054580,000670: 12,2062           00023                                    1/ROOTMU                              
054581,000671: 12,2063           00011                                    ALPHA                                 
054582,000672: 12,2064           65301                           NORM     PDDL                                  #  DXCH WITH 0D.  0D=ALPHA       PL AT 0,2
054583,000673: 12,2065           00047                                    X1                                    
054584,000674: 12,2066           56257                           SL*      DDV                                   #                                PL AT 0
054585,000675: 12,2067           20173                                    0          -6,1                       
054586,000676: 12,2070           50000        PERIODCH           BOV      BMN                                   
054587,000677: 12,2071           24112                                    MODDONE                               
054588,000678: 12,2072           24112                                    MODDONE                               
054589,000679: 12,2073           77606                           PUSH                                           #  0D=PERIOD (+28)
054590,000680: 12,2074           50021                           BDSU     BMN                                   
054591,000681: 12,2075           02312                                    TAU.                                  
054592,000682: 12,2076           24112                                    MODDONE                               
054593,000683: 12,2077           16312                           STODL    TAU.                                  
054594,000684: 12,2100           00013                                    XMAX                                  
054595,000685: 12,2101           77615                           DAD                                            
054596,000686: 12,2102           01344                                    XMODULO                               
054597,000687: 12,2103           15344                           STODL    XMODULO                               
054598,000688: 12,2104           00001                                    0D                                    
054599,000689: 12,2105           77615                           DAD                                            
054600,000690: 12,2106           01346                                    TMODULO                               
054601,000691: 12,2107           15346                           STODL    TMODULO                               
054602,000692: 12,2110           77650                           GOTO                                           #                                PL AT 0
054603,000693: 12,2111           24070                                    PERIODCH                              
054604,000694: 12,2112           71201        MODDONE            SETPD    DLOAD                                 
054605,000695: 12,2113           00001                                    0                                     
054606,000696: 12,2114           11456                                    KEPZERO                               
054607,000697: 12,2115           14015                           STODL    XMIN                                  
054608,000698: 12,2116           02306                                    XKEPNEW                               
054609,000699: 12,2117           77625                           DSU                                            
054610,000700: 12,2120           01344                                    XMODULO                               
054611,000701: 12,2121           00025                           STORE    X                                     
054612,000702: 12,2122           50054                           BZE      BMN                                   
054613,000703: 12,2123           24265                                    BADX                                  
054614,000704: 12,2124           24265                                    BADX                                  
054615,000705: 12,2125           51025                           DSU      BPL                                   
054616,000706: 12,2126           00013                                    XMAX                                  
054617,000707: 12,2127           24265                                    BADX                                  

Page 1249

054619,000709: 12,2130           57345        DXCOMP             DLOAD    DMPR                                  
054620,000710: 12,2131           02312                                    TAU.                                  
054621,000711: 12,2132           11511                                    BEE22                                 
054622,000712: 12,2133           77646                           ABS                                            
054623,000713: 12,2134           15350                           STODL    EPSILONT                              
054624,000714: 12,2135           01551                                    TC                                    
054625,000715: 12,2136           45254                           BZE      DSU                                   
054626,000716: 12,2137           24141                                    NEWTC                                 
054627,000717: 12,2140           01346                                    TMODULO                               
054628,000718: 12,2141           15551        NEWTC              STODL    TC                                    
054629,000719: 12,2142           01553                                    XPREV                                 
054630,000720: 12,2143           45254                           BZE      DSU                                   
054631,000721: 12,2144           24146                                    XDIFF                                 
054632,000722: 12,2145           01344                                    XMODULO                               
054633,000723: 12,2146           77621        XDIFF              BDSU                                           
054634,000724: 12,2147           00025                                    X                                     
054635,000725: 12,2150           02643                           STORE    DELX                                  
054636,000726: 
054637,000727: 12,2151           63545        KEPLOOP            DLOAD    DSQ                                   
054638,000728: 12,2152           00025                                    X                                     #  X=XKEP
054639,000729: 12,2153           41501                           NORM     PUSH                                  #  0D=XSQ (+34 OR +32 -N1)       PL AT 2
054640,000730: 12,2154           00047                                    X1                                    
054641,000731: 12,2155           53605                           DMP      SRR*                                  
054642,000732: 12,2156           00011                                    ALPHA                                 
054643,000733: 12,2157           21573                                    0          -6,1                       
054644,000734: 12,2160           34031                           STCALL   XI                                    #  XI=ALPHA XSQ (+6)
054645,000735: 12,2161           24426                                    DELTIME                               
054646,000736: 12,2162           44200                           BOV      BDSU                                  
054647,000737: 12,2163           24312                                    TIMEOVFL                              #  UNLIKELY
054648,000738: 12,2164           02312                                    TAU.                                  
054649,000739: 12,2165           02645                           STORE    DELT                                  #  DELT=DELINDEP
054650,000740: 12,2166           44246                           ABS      BDSU                                  
054651,000741: 12,2167           01350                                    EPSILONT                              
054652,000742: 12,2170           71244                           BPL      DLOAD                                 
054653,000743: 12,2171           24334                                    KEPCONVG                              
054654,000744: 12,2172           00037                                    T                                     
054655,000745: 12,2173           60225                           DSU      NORM                                  
054656,000746: 12,2174           01551                                    TC                                    
054657,000747: 12,2175           00047                                    X1                                    
054658,000748: 12,2176           60325                           PDDL     NORM                                  
054659,000749: 12,2177           02643                                    DELX                                  
054660,000750: 12,2200           00050                                    X2                                    
054661,000751: 12,2201           41260                           XSU,1    DMP                                   
054662,000752: 12,2202           00047                                    X2                                    
054663,000753: 12,2203           02645                                    DELT                                  
054664,000754: 12,2204           56257                           SLR*     DDV                                   
054665,000755: 12,2205           21202                                    1,1                                   
054666,000756: 12,2206           41542                           SR1      PUSH                                  #  0D=TRIAL DELX         PL AT 2
054667,000757: 12,2207           71244                           BPL      DLOAD                                 

Page 1250

054669,000759: 12,2210           24231                                    POSDELX                               
054670,000760: 12,2211           00025                                    X                                     
054671,000761: 12,2212           00013                           STORE    XMAX                                  #  MOVE MAX BOUND IN
054672,000762: 12,2213           45221                           BDSU     DSU                                   #                        PL AT 0
054673,000763: 12,2214           00015                                    XMIN                                  
054674,000764: 12,2215           51000                           BOV      BPL                                   
054675,000765: 12,2216           24223                                    NDXCHNGE                              
054676,000766: 12,2217           24223                                    NDXCHNGE                              
054677,000767: 12,2220           52145                           DLOAD    GOTO                                  
054678,000768: 12,2221           00001                                    0D                                    
054679,000769: 12,2222           24243                                    NEWDELX                               
054680,000770: 
054681,000771: 12,2223           45345        NDXCHNGE           DLOAD    DSU                                   
054682,000772: 12,2224           00015                                    XMIN                                  
054683,000773: 12,2225           00025                                    X                                     
054684,000774: 12,2226           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
054685,000775: 12,2227           11514                                    DP9/10                                
054686,000776: 12,2230           24243                                    NEWDELX                               
054687,000777: 
054688,000778: 12,2231           77745        POSDELX            DLOAD                                          
054689,000779: 12,2232           00025                                    X                                     
054690,000780: 12,2233           00015                           STORE    XMIN                                  #  MOVE MIN BOUND IN
054691,000781: 12,2234           45221                           BDSU     DSU                                   #                        PL AT 0
054692,000782: 12,2235           00013                                    XMAX                                  
054693,000783: 12,2236           50000                           BOV      BMN                                   
054694,000784: 12,2237           24257                                    PDXCHNGE                              
054695,000785: 12,2240           24257                                    PDXCHNGE                              
054696,000786: 12,2241           77745                           DLOAD                                          
054697,000787: 12,2242           00001                                    0D                                    
054698,000788: 12,2243           02643        NEWDELX            STORE    DELX                                  
054699,000789: 12,2244           43254                           BZE      DAD                                   
054700,000790: 12,2245           24334                                    KEPCONVG                              
054701,000791: 12,2246           00025                                    X                                     
054702,000792: 12,2247           14025                           STODL    X                                     
054703,000793: 12,2250           00037                                    T                                     
054704,000794: 12,2251           01551                           STORE    TC                                    
054705,000795: 12,2252           46034        BRNCHCTR           RTB      BHIZ                                  
054706,000796: 12,2253           24651                                    CHECKCTR                              
054707,000797: 12,2254           24334                                    KEPCONVG                              
054708,000798: 12,2255           77650                           GOTO                                           
054709,000799: 12,2256           24151                                    KEPLOOP                               #  ITERATE
054710,000800: 
054711,000801: 12,2257           45345        PDXCHNGE           DLOAD    DSU                                   
054712,000802: 12,2260           00013                                    XMAX                                  
054713,000803: 12,2261           00025                                    X                                     
054714,000804: 12,2262           52075                           DMPR     GOTO                                  #  TO FORCE MPAC +2 TO ZERO
054715,000805: 12,2263           11514                                    DP9/10                                

Page 1251

054717,000807: 12,2264           24243                                    NEWDELX                               
054718,000808: 
054719,000809: 12,2265           70545        BADX               DLOAD    SR1                                   #  RECIPE EXCEEDED X BOUNDS - USE XMAX/2
054720,000810: 12,2266           00013                                    XMAX                                  
054721,000811: 12,2267           00025                           STORE    X                                     
054722,000812: 12,2270           77650                           GOTO                                           
054723,000813: 12,2271           24130                                    DXCOMP                                
054724,000814: 
054725,000815: 12,2272           14015        BACKWARD           STODL    XMIN                                  
054726,000816: 12,2273           11456                                    KEPZERO                               
054727,000817: 12,2274           14013                           STODL    XMAX                                  
054728,000818: 12,2275           02306                                    XKEPNEW                               
054729,000819: 12,2276           00025                           STORE    X                                     
054730,000820: 12,2277           51054                           BZE      BPL                                   
054731,000821: 12,2300           24305                                    BADBKWDX                              
054732,000822: 12,2301           24305                                    BADBKWDX                              
054733,000823: 12,2302           51025                           DSU      BPL                                   
054734,000824: 12,2303           00015                                    XMIN                                  
054735,000825: 12,2304           24130                                    DXCOMP                                
054736,000826: 12,2305           70545        BADBKWDX           DLOAD    SR1                                   
054737,000827: 12,2306           00015                                    XMIN                                  
054738,000828: 12,2307           00025                           STORE    X                                     
054739,000829: 12,2310           77650                           GOTO                                           
054740,000830: 12,2311           24130                                    DXCOMP                                
054741,000831: 
054742,000832: 12,2312           50145        TIMEOVFL           DLOAD    BMN                                   #  X WAS TOO BIG
054743,000833: 12,2313           00025                                    X                                     
054744,000834: 12,2314           24331                                    NEGTOVFL                              
054745,000835: 12,2315           00013                           STORE    XMAX                                  
054746,000836: 12,2316           70545        CMNTOVFL           DLOAD    SR1                                   
054747,000837: 12,2317           02643                                    DELX                                  
054748,000838: 12,2320           02643                           STORE    DELX                                  
054749,000839: 12,2321           44254                           BZE      BDSU                                  
054750,000840: 12,2322           02270                                    KEPRTN                                
054751,000841: 12,2323           00025                                    X                                     
054752,000842: 12,2324           14025                           STODL    X                                     
054753,000843: 12,2325           01551                                    TC                                    
054754,000844: 12,2326           00037                           STORE    T                                     
054755,000845: 12,2327           77650                           GOTO                                           
054756,000846: 12,2330           24252                                    BRNCHCTR                              
054757,000847: 12,2331           00015        NEGTOVFL           STORE    XMIN                                  
054758,000848: 12,2332           77650                           GOTO                                           
054759,000849: 12,2333           24316                                    CMNTOVFL                              
054760,000850: 12,2334           44545        KEPCONVG           DLOAD    SR4R                                  
054761,000851: 12,2335           00041                                    R1                                    
054762,000852: 12,2336           74225                           DSU      VXSC                                  
054763,000853: 12,2337           00035                                    XSQC(XI)                              

Page 1252

054765,000855: 12,2340           02647                                    URRECT                                
054766,000856: 12,2341           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))URRECT (+33 OR +31)
054767,000857: 12,2342           00025                                    X                                     
054768,000858: 12,2343           60316                           DSQ      NORM                                  
054769,000859: 12,2344           00047                                    X1                                    
054770,000860: 12,2345           57275                           DMPR     DMPR                                  
054771,000861: 12,2346           00023                                    1/ROOTMU                              
054772,000862: 12,2347           00025                                    X                                     
054773,000863: 12,2350           53605                           DMP      SRR*                                  
054774,000864: 12,2351           00033                                    S(XI)                                 
054775,000865: 12,2352           21572                                    0          -7,1                       
054776,000866: 12,2353           77621                           BDSU                                           
054777,000867: 12,2354           00037                                    T                                     
054778,000868: 12,2355           74352                           SL1      VXSC                                  
054779,000869: 12,2356           01511                                    VRECT                                 
054780,000870: 12,2357           53372                           VSL1     VAD                                   #                                                PL AT 0
054781,000871: 12,2360           77712                           VSL4                                           
054782,000872: 12,2361           01535                           STORE    RCV                                   #  RCV (+29 OR +27)
054783,000873: 
054784,000874: 12,2362           60246                           ABVAL    NORM                                  
054785,000875: 12,2363           00050                                    X2                                    
054786,000876: 12,2364           16655                           STODL    RCNORM                                
054787,000877: 12,2365           00031                                    XI                                    
054788,000878: 12,2366           45275                           DMPR     DSU                                   
054789,000879: 12,2367           00033                                    S(XI)                                 
054790,000880: 12,2370           11476                                    D1/128                                
054791,000881: 12,2371           76405                           DMP      SL1R                                  
054792,000882: 12,2372           00021                                    ROOTMU                                
054793,000883: 12,2373           53605                           DMP      SLR*                                  
054794,000884: 12,2374           00025                                    X                                     
054795,000885: 12,2375           56601                                    0          -3,2                       
054796,000886: 12,2376           74271                           DDV      VXSC                                  
054797,000887: 12,2377           02655                                    RCNORM                                
054798,000888: 12,2400           02647                                    URRECT                                
054799,000889: 12,2401           65372                           VSL1     PDDL                                  #  0D=URRECT(XI S(XI)-1)X ROOTMU/RCV (+15
054800,000890: 12,2402           00035                                    XSQC(XI)                              #  OR +13)                       PL AT 6
054801,000891: 12,2403           56257                           SLR*     DDV                                   
054802,000892: 12,2404           56602                                    0          -4,2                       
054803,000893: 12,2405           02655                                    RCNORM                                
054804,000894: 12,2406           74221                           BDSU     VXSC                                  
054805,000895: 12,2407           11512                                    D1/256                                
054806,000896: 12,2410           01511                                    VRECT                                 
054807,000897: 12,2411           42455                           VAD      VSL8                                  
054808,000898: 12,2412           77626                           STADR                                          #                                PL AT 0
054809,000899: 12,2413           62234                           STODL    VCV                                   #  VCV (+7 OR +5)
054810,000900: 12,2414           00037                                    T                                     
054811,000901: 12,2415           77615                           DAD                                            
054812,000902: 12,2416           01346                                    TMODULO                               
054813,000903: 12,2417           15551                           STODL    TC                                    

Page 1253

054815,000905: 12,2420           00025                                    X                                     
054816,000906: 12,2421           77615                           DAD                                            
054817,000907: 12,2422           01344                                    XMODULO                               
054818,000908: 12,2423           01553                           STORE    XPREV                                 
054819,000909: 12,2424           77650                           GOTO                                           
054820,000910: 12,2425           02270                                    KEPRTN                                
054821,000911: 

Page 1254

054823,000913: 12,2426           77776        DELTIME            EXIT                                           #  MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
054824,000914: 12,2427           07171                           TC       POLY                                  
054825,000915: 12,2430           00010                           DEC      8          B-14                       
054826,000916: 12,2431           02525 12526                     2DEC     .083333334                            
054827,000917: 12,2433           67356 75666                     2DEC     -.266666684                            
054828,000918: 12,2435           15001 23771                     2DEC     .406349155                            
054829,000919: 12,2437           64342 43674                     2DEC     -.361198675                            
054830,000920: 12,2441           06563 04645                     2DEC     .210153242                            
054831,000921: 12,2443           75173 52672                     2DEC     -.086221951                            
054832,000922: 12,2445           00656 14331                     2DEC     .026268812                            
054833,000923: 12,2447           77633 40512                     2DEC     -.006163316                            
054834,000924: 12,2451           00023 11210                     2DEC     .001177342                            
054835,000925: 12,2453           77774 67506                     2DEC     -.000199055                            
054836,000926: 
054837,000927: 12,2455           06006                           TC       INTPRET                               
054838,000928: 12,2456           14033                           STODL    S(XI)                                 
054839,000929: 12,2457           00031                                    XI                                    
054840,000930: 12,2460           77776                           EXIT                                           
054841,000931: 12,2461           07171                           TC       POLY                                  
054842,000932: 12,2462           00010                           DEC      8          B-14                       
054843,000933: 12,2463           01000 00000                     2DEC     .031250001                            
054844,000934: 12,2465           72525 52506                     2DEC     -.166666719                            
054845,000935: 12,2467           13301 15337                     2DEC     .355555413                            
054846,000936: 12,2471           62776 54733                     2DEC     -.406347410                            
054847,000937: 12,2473           11176 13267                     2DEC     .288962094                            
054848,000938: 12,2475           73410 51674                     2DEC     -.140117894                            
054849,000939: 12,2477           01446 33641                     2DEC     .049247387                            
054850,000940: 12,2501           77451 65233                     2DEC     -.013081923                            
054851,000941: 12,2503           00055 37266                     2DEC     .002806389                            
054852,000942: 12,2505           77767 52336                     2DEC     -.000529414                            
054853,000943: 12,2507           06006                           TC       INTPRET                               

Page 1255

054855,000945: 12,2510           53605                           DMP      SRR*                                  #                                PL AT 0
054856,000946: 12,2511           00001                                    0D                                    
054857,000947: 12,2512           21574                                    0          -5,1                       
054858,000948: 12,2513           00035                           STORE    XSQC(XI)                              #  XSQC(XI) (+33 OR +31)
054859,000949: 12,2514           72405                           DMP      SL1                                   
054860,000950: 12,2515           00043                                    KEPC1                                 
054861,000951: 12,2516           65234                           RTB      PDDL                                  #  XCH WITH PL. 0D=C1 XSQ C(XI) (+49 OR +46
054862,000952: 12,2517           45562                                    TPMODE                                #                                PL AT 0,3
054863,000953: 12,2520           53605                           DMP      SRR*                                  
054864,000954: 12,2521           00033                                    S(XI)                                 
054865,000955: 12,2522           21574                                    0          -5,1                       
054866,000956: 12,2523           72405                           DMP      SL1                                   
054867,000957: 12,2524           00045                                    KEPC2                                 
054868,000958: 12,2525           65234                           RTB      PDDL                                  #  3D=C2 XSQ S(XI) (+35 OR +33)  PL AT 6
054869,000959: 12,2526           45562                                    TPMODE                                
054870,000960: 12,2527           00041                                    R1                                    
054871,000961: 12,2530           76261                           SR       TAD                                   #                                PL AT 3
054872,000962: 12,2531           20607                                    6                                     
054873,000963: 12,2532           41301                           NORM     DMP                                   #  TO PRESERVE SIGNIF.
054874,000964: 12,2533           00047                                    X1                                    
054875,000965: 12,2534           00025                                    X                                     
054876,000966: 12,2535           76257                           SR*      TAD                                   #  X(C2 XSQ S(XI) +R1) (+49 OR +46)  PL AT 0
054877,000967: 12,2536           20576                                    0          -3,1                       
054878,000968: 12,2537           57232                           SL4R     DMPR                                  
054879,000969: 12,2540           00023                                    1/ROOTMU                              
054880,000970: 12,2541           00037                           STORE    T                                     
054881,000971: 12,2542           77616                           RVQ                                            
054882,000972: 

Page 1256

054884,000974: 12,2543           71214        ITERATOR           BONCLR   DLOAD                                 
054885,000975: 12,2544           00614                                    SLOPESW                               
054886,000976: 12,2545           24613                                    FIRSTIME                              
054887,000977: 12,2546           00037                                    DEP                                   
054888,000978: 12,2547           60225                           DSU      NORM                                  
054889,000979: 12,2550           02764                                    DEPREV                                
054890,000980: 12,2551           00047                                    X1                                    
054891,000981: 12,2552           60325                           PDDL     NORM                                  
054892,000982: 12,2553           00015                                    DELINDEP                              
054893,000983: 12,2554           00050                                    X2                                    
054894,000984: 12,2555           41260                           XSU,1    DMP                                   
054895,000985: 12,2556           00047                                    X2                                    
054896,000986: 12,2557           02762                                    DELDEP                                
054897,000987: 12,2560           56257                           SLR*     DDV                                   #                                PL UP 2
054898,000988: 12,2561           21202                                    1,1                                   
054899,000989: 12,2562           43142                           SR1      BOFF                                  
054900,000990: 12,2563           04351                                    ORDERSW                               
054901,000991: 12,2564           24567                                    SGNCHECK                              
054902,000992: 12,2565           75246                           ABS      SIGN                                  #  IN CASE 2ND DERIV. CHANGED SIGN, MUST
054903,000993: 12,2566           02762                                    DELDEP                                #  DISREGARD IT TO FIND MIN.
054904,000994: 
054905,000995: 12,2567           51006        SGNCHECK           PUSH     BPL                                   #  TRIAL DELINDEP                PL DOWN 2
054906,000996: 12,2570           24625                                    POSDEL                                
054907,000997: 12,2571           43145                           DLOAD    BON                                   
054908,000998: 12,2572           03775                                    INDEP                                 
054909,000999: 12,2573           04311                                    ORDERSW                               
054910,001000: 12,2574           24576                                    MINCHECK                              
054911,001001: 12,2575           00017                           STORE    MAX                                   #  IF NOT 2ND ORDER, CAN MOVE MAX BOUND IN.
054912,001002: 
054913,001003: 12,2576           45221        MINCHECK           BDSU     DSU                                   
054914,001004: 12,2577           00011                                    MIN                                   
054915,001005: 12,2600           51000                           BOV      BPL                                   
054916,001006: 12,2601           24605                                    MODNGDEL                              
054917,001007: 12,2602           24605                                    MODNGDEL                              
054918,001008: 12,2603           77650                           GOTO                                           
054919,001009: 12,2604           24637                                    DELOK                                 
054920,001010: 
054921,001011: 12,2605           45345        MODNGDEL           DLOAD    DSU                                   #  TRIAL DELINDEP WOULD EXCEED MIN BOUND
054922,001012: 12,2606           00011                                    MIN                                   
054923,001013: 12,2607           03775                                    INDEP                                 
054924,001014: 12,2610           52005                           DMP      GOTO                                  
054925,001015: 12,2611           11514                                    DP9/10                                
054926,001016: 12,2612           24641                                    NEWDEL                                
054927,001017: 
054928,001018: 12,2613           41345        FIRSTIME           DLOAD    DMP                                   
054929,001019: 12,2614           00011                                    MIN                                   
054930,001020: 12,2615           00051                                    TWEEKIT                               #  DLOAD TWEEKIT(40D) SENSITIVE TO CHANGE.
054931,001021: 12,2616           41325                           PDDL     DMP                                   #  S2(41D) SHOULDNT CONTAIN HI ORDER ONES

Page 1257

054933,001023: 12,2617           00017                                    MAX                                   
054934,001024: 12,2620           00051                                    TWEEKIT                               
054935,001025: 12,2621           77625                           DSU                                            
054936,001026: 12,2622           52165                           SIGN     GOTO                                  
054937,001027: 12,2623           02762                                    DELDEP                                
054938,001028: 12,2624           24567                                    SGNCHECK                              
054939,001029: 
054940,001030: 12,2625           43145        POSDEL             DLOAD    BON                                   
054941,001031: 12,2626           03775                                    INDEP                                 
054942,001032: 12,2627           04311                                    ORDERSW                               
054943,001033: 12,2630           24632                                    MAXCHECK                              
054944,001034: 12,2631           00011                           STORE    MIN                                   #  IF NOT 2ND ORDER, CAN MOVE MIN BOUND IN.
054945,001035: 
054946,001036: 12,2632           45221        MAXCHECK           BDSU     DSU                                   
054947,001037: 12,2633           00017                                    MAX                                   
054948,001038: 12,2634           50000                           BOV      BMN                                   
054949,001039: 12,2635           24643                                    MODPSDEL                              
054950,001040: 12,2636           24643                                    MODPSDEL                              
054951,001041: 12,2637           77745        DELOK              DLOAD                                          
054952,001042: 12,2640           00001                                    0D                                    
054953,001043: 12,2641           00015        NEWDEL             STORE    DELINDEP                              
054954,001044: 12,2642           77616                           RVQ                                            
054955,001045: 
054956,001046: 12,2643           45345        MODPSDEL           DLOAD    DSU                                   
054957,001047: 12,2644           00017                                    MAX                                   
054958,001048: 12,2645           03775                                    INDEP                                 
054959,001049: 12,2646           52005                           DMP      GOTO                                  
054960,001050: 12,2647           11514                                    DP9/10                                
054961,001051: 12,2650           24641                                    NEWDEL                                
054962,001052: 
054963,001053: 12,2651           44712        CHECKCTR           CS       ONE                                   
054964,001054: 12,2652           50120                           INDEX    FIXLOC                                
054965,001055: 12,2653           60026                           AD       ITERCTR                               
054966,001056: 12,2654           50120                           INDEX    FIXLOC                                
054967,001057: 12,2655           54026                           TS       ITERCTR                               
054968,001058: 12,2656           54154                           TS       MPAC                                  
054969,001059: 12,2657           06030                           TC       DANZIG                                
054970,001060: 

Page 1258

054972,001062: 12,2660           44545        NEWSTATE           DLOAD    SR4R                                  
054973,001063: 12,2661           00041                                    R1                                    
054974,001064: 12,2662           74225                           DSU      VXSC                                  
054975,001065: 12,2663           00035                                    XSQC(XI)                              
054976,001066: 12,2664           02724                                    UR1                                   
054977,001067: 12,2665           65372                           VSL1     PDDL                                  #  0D=(R1-XSQC(XI))UR1 (+33 OR 31)       PL AT 6
054978,001068: 12,2666           00025                                    X                                     
054979,001069: 12,2667           60316                           DSQ      NORM                                  
054980,001070: 12,2670           00047                                    X1                                    
054981,001071: 12,2671           57275                           DMPR     DMPR                                  
054982,001072: 12,2672           00023                                    1/ROOTMU                              
054983,001073: 12,2673           00025                                    X                                     
054984,001074: 12,2674           53605                           DMP      SRR*                                  
054985,001075: 12,2675           00033                                    S(XI)                                 
054986,001076: 12,2676           21572                                    0          -7,1                       
054987,001077: 12,2677           77621                           BDSU                                           
054988,001078: 12,2700           00037                                    T                                     
054989,001079: 12,2701           74352                           SL1      VXSC                                  
054990,001080: 12,2702           02746                                    VVEC                                  
054991,001081: 12,2703           53372                           VSL1     VAD                                   #                                PL AT 0
054992,001082: 12,2704           41512                           VSL4     PUSH                                  
054993,001083: 12,2705           77646                           ABVAL                                          
054994,001084: 12,2706           77701        LAMENTER           NORM                                           
054995,001085: 12,2707           00047                                    X1                                    
054996,001086: 12,2710           16722                           STODL    R2                                    
054997,001087: 12,2711           00031                                    XI                                    
054998,001088: 12,2712           45205                           DMP      DSU                                   
054999,001089: 12,2713           00033                                    S(XI)                                 
055000,001090: 12,2714           11476                                    D1/128                                
055001,001091: 12,2715           76405                           DMP      SL1R                                  
055002,001092: 12,2716           00021                                    ROOTMU                                
055003,001093: 12,2717           53605                           DMP      SLR*                                  
055004,001094: 12,2720           00025                                    X                                     
055005,001095: 12,2721           21176                                    0          -3,1                       
055006,001096: 12,2722           74271                           DDV      VXSC                                  
055007,001097: 12,2723           02722                                    R2                                    
055008,001098: 12,2724           02724                                    UR1                                   
055009,001099: 12,2725           65372                           VSL1     PDDL                                  #  6D=V2VEC PART (+15 OR 13)     PL AT 12
055010,001100: 12,2726           00035                                    XSQC(XI)                              
055011,001101: 12,2727           56257                           SLR*     DDV                                   
055012,001102: 12,2730           21175                                    0          -4,1                       
055013,001103: 12,2731           02722                                    R2                                    
055014,001104: 12,2732           77621                           BDSU                                           
055015,001105: 12,2733           11512                                    D1/256                                
055016,001106: 12,2734           53361                           VXSC     VAD                                   
055017,001107: 12,2735           02746                                    VVEC                                  #                                PL AT 6
055018,001108: 12,2736           43412                           VSL8     RVQ                                   
055019,001109: 

Page 1259

055021,001111: 04,2000                                           SETLOC   CONICS1                               
055022,001112: 04,2000                                           BANK                                           
055023,001113: 
055024,001114: 04,3472                                           COUNT    04/CONIC                              
055025,001115:                                                                                                  #  DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
055026,001116: 04,3472           00000        BEE17              DEC      0          B-14                       #  KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
055027,001117: 04,3473           04000 00000  D1/8               2DEC     1.0        B-3                        
055028,001118: 04,3475           00200 00000  D1/128             2DEC     1.0        B-7                        
055029,001119: 04,3477           00400 00000  D1/64              2DEC     1.0        B-6                        
055030,001120: 04,3501           10000 00000  D1/4               2DEC     1.0        B-2                        
055031,001121: 04,3503           02000 00000  D1/16              2DEC     1.0        B-4                        
055032,001122: 04,3505           01000 00000  D1/32              2DEC     1.0        B-5                        
055033,001123: 04,3507           00020 00000  D1/1024            2DEC     1.0        B-10                       
055034,001124: 04,3511           00100 00000  D1/256             2DEC     1.0        B-8                        
055035,001125: 04,3513           34631 23146  DP9/10             2DEC     .9                                    
055036,001126: 04,3515  04,3455               KEPZERO            EQUALS   LO6ZEROS                              
055037,001127: 04,3515           77467 77777  -50SC              2DEC     -50.0      B-12                       
055038,001128: 04,3517           03110 17665  2PISC              2DEC     6.28318530 B-6                        
055039,001129: 04,3521  04,3504               BEE19              EQUALS   D1/32      -1                         #  2DEC 1.0 B-19 (00000 01000)
055040,001130: 04,3521  04,3510               BEE22              EQUALS   D1/256     -1                         #  2DEC 1.0 B-22 (00000 00100)
055041,001131: 04,3521           00000 00001  ONEBIT             2DEC     1.0        B-28                       
055042,001132: 04,3523           37767 37737  COGUPLIM           2DEC     .999511597                            
055043,001133: 04,3525           40010 40040  COGLOLIM           2DEC     -.999511597                            
055044,001134: 

Page 1260

055046,001136: 12,2000                                           SETLOC   CONICS                                
055047,001137: 12,2000                                           BANK                                           
055048,001138: 
055049,001139: 12,2737                                           COUNT    12/CONIC                              
055050,001140: 
055051,001141: 12,2737           40220        TIMETHET           STQ      SETPD                                 #                                PL AT 0
055052,001142: 12,2740           02712                                    RTNTT                                 
055053,001143: 12,2741           00001                                    0                                     
055054,001144: 12,2742           63375                           VLOAD    PDVL                                  #  SETUP FOR PARAM CALL          PL AT 6
055055,001145: 12,2743           02657                                    RVEC                                  
055056,001146: 12,2744           02746                                    VVEC                                  
055057,001147: 12,2745           77624                           CALL                                           
055058,001148: 12,2746           11527                                    PARAM                                 
055059,001149: 12,2747           45000                           BOV      CALL                                  
055060,001150: 12,2750           24767                                    COGAOVFL                              #                                PL AT 0
055061,001151: 12,2751           24772                                    GETX                                  
055062,001152: 12,2752           43145        COMMNOUT           DLOAD    BON                                   
055063,001153: 12,2753           00031                                    XI                                    
055064,001154: 12,2754           04310                                    INFINFLG                              
055065,001155: 12,2755           02712                                    RTNTT                                 
055066,001156: 12,2756           45014                           CLEAR    CALL                                  
055067,001157: 12,2757           04273                                    COGAFLAG                              
055068,001158: 12,2760           24426                                    DELTIME                               
055069,001159: 12,2761           45014                           BON      CALL                                  
055070,001160: 12,2762           03706                                    RVSW                                  
055071,001161: 12,2763           02712                                    RTNTT                                 
055072,001162: 12,2764           24660                                    NEWSTATE                              
055073,001163: 12,2765           77650                           GOTO                                           
055074,001164: 12,2766           02712                                    RTNTT                                 
055075,001165: 
055076,001166: 12,2767           77614        COGAOVFL           SETGO                                          
055077,001167: 12,2770           04033                                    COGAFLAG                              
055078,001168: 12,2771           02712                                    RTNTT                                 

Page 1261

055080,001170: 
055081,001171: 04,3527                                           BANK     4                                     
055082,001172: 04,2000                                           SETLOC   CONICS1                               
055083,001173: 04,2000                                           BANK                                           
055084,001174: 04,3527                                           COUNT*   $$/CONIC                              
055085,001175: 04,3527           43020        PARAM              STQ      CLEAR                                 #  MPAC=V1VEC, 0D=R1VEC          PL AT 6
055086,001176: 04,3530           02755                                    RTNPRM                                
055087,001177: 04,3531           03665                                    NORMSW                                
055088,001178: 04,3532           77614                           CLEAR                                          
055089,001179: 04,3533           04273                                    COGAFLAG                              
055090,001180: 04,3534           45131                           SSP      CALL                                  
055091,001181: 04,3535           02675                                    GEOMSGN                               
055092,001182: 04,3536           27777                                    37777                                 #  GAMMA ALWAYS LESS THAN 180DEG
055093,001183: 04,3537           11573                                    GEOM                                  #  MPAC=SNGA (+1), 0D=CSGA (+1)  PL AT 2
055094,001184: 04,3540           14045                           STODL    36D                                   #  36D=SIN GAMMA (+1)            PL AT 0
055095,001185: 04,3541           56261                           SR       DDV                                   
055096,001186: 04,3542           20606                                    5                                     
055097,001187: 04,3543           00045                                    36D                                   
055098,001188: 04,3544           33775                           STOVL*   COGA                                  
055099,001189: 04,3545           11631                                    MUTABLE,1                             
055100,001190: 04,3546           14017                           STODL    1/MU                                  
055101,001191: 04,3547           02722                                    MAGVEC2                               
055102,001192: 04,3550           60316                           DSQ      NORM                                  
055103,001193: 04,3551           00047                                    X1                                    
055104,001194: 04,3552           41275                           DMPR     DMP                                   
055105,001195: 04,3553           00017                                    1/MU                                  
055106,001196: 04,3554           00041                                    R1                                    
055107,001197: 04,3555           77657                           SRR*                                           
055108,001198: 04,3556           21576                                    0          -3,1                       
055109,001199: 04,3557           44206                           PUSH     BDSU                                  #  0D=R1 V1SQ/MU (+6)            PL AT 2
055110,001200: 04,3560           11506                                    D1/32                                 
055111,001201: 04,3561           16744                           STODL    R1A                                   #  R1A (+6)                      PL AT 0
055112,001202: 
055113,001203: 04,3562           60205                           DMP      NORM                                  
055114,001204: 04,3563           00045                                    36D                                   
055115,001205: 04,3564           00047                                    X1                                    
055116,001206: 04,3565           53605                           DMP      SR*                                   
055117,001207: 04,3566           00045                                    36D                                   
055118,001208: 04,3567           20575                                    0          -4,1                       
055119,001209: 04,3570           02742                           STORE    P                                     #  P (+4)
055120,001210: 04,3571           77650                           GOTO                                           
055121,001211: 04,3572           02755                                    RTNPRM                                
055122,001212: 

Page 1262 There is a handwritten note here, in Colossus 249, reading "from Lambert 1267" — RSB 2004

055125,001215: 04,3573           77656        GEOM               UNIT                                           #  MPAC=V2VEC, 0D=R1VEC          PL AT 6
055126,001216: 04,3574           16714                           STODL    U2                                    #  U2 (+1)
055127,001217: 04,3575           00045                                    36D                                   
055128,001218: 04,3576           26722                           STOVL    MAGVEC2                               #                                PL AT 0
055129,001219: 04,3577           77656                           UNIT                                           
055130,001220: 04,3600           02724                           STORE    UR1                                   #  UR1 (+1)
055131,001221: 04,3601           72441                           DOT      SL1                                   
055132,001222: 04,3602           02714                                    U2                                    
055133,001223: 04,3603           77725                           PDDL                                           #  OD=CSTH (+1)                  PL AT 2
055134,001224: 04,3604           00045                                    36D                                   

There is a handwritten note in this general vicinity, in Colossus 249, reading "Same as Luminary" — RSB 2004

055137,001227: 04,3605           24041                           STOVL    R1                                    #  R1 (+29 OR +27)
055138,001228: 04,3606           02724                                    UR1                                   
055139,001229: 04,3607           76435                           VXV      VSL1                                  
055140,001230: 04,3610           02714                                    U2                                    
055141,001231: 04,3611           75214                           BON      SIGN                                  
055142,001232: 04,3612           03705                                    NORMSW                                
055143,001233: 04,3613           11625                                    HAVENORM                              
055144,001234: 04,3614           02675                                    GEOMSGN                               
055145,001235: 04,3615           40056                           UNIT     BOV                                   
055146,001236: 04,3616           11623                                    COLINEAR                              
055147,001237: 04,3617           16676        UNITNORM           STODL    UN                                    #  UN (+1)
055148,001238: 04,3620           00045                                    36D                                   
055149,001239: 04,3621           43565                           SIGN     RVQ                                   #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055150,001240: 04,3622           02675                                    GEOMSGN                               
055151,001241: 
055152,001242: 04,3623           52162        COLINEAR           VSR1     GOTO                                  
055153,001243: 04,3624           11617                                    UNITNORM                              
055154,001244: 
055155,001245: 04,3625           75246        HAVENORM           ABVAL    SIGN                                  
055156,001246: 04,3626           02675                                    GEOMSGN                               
055157,001247: 04,3627           77616                           RVQ                                            #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055158,001248: 

Page 1263

055160,001250: 12,2772                                           BANK     12                                    
055161,001251: 12,2000                                           SETLOC   CONICS                                
055162,001252: 12,2000                                           BANK                                           
055163,001253: 
055164,001254: 12,2772                                           COUNT    12/CONIC                              
055165,001255: 
055166,001256: 12,2772           66374        GETX               AXT,2    SSP                                   #  ASSUMES P (+4) IN MPAC
055167,001257: 12,2773           00003                                    3                                     
055168,001258: 12,2774           00052                                    S2                                    
055169,001259: 12,2775           00001                                    1                                     
055170,001260: 12,2776           77614                           CLEAR                                          
055171,001261: 12,2777           04276                                    360SW                                 
055172,001262: 12,3000           65366                           SQRT     PDDL                                  #  0D=SQRT(P)                    PL AT 2
055173,001263: 12,3001           02734                                    CSTH                                  
055174,001264: 12,3002           44342                           SR1      BDSU                                  
055175,001265: 12,3003           11502                                    D1/4                                  
055176,001266: 12,3004           54325                           PDDL     SRR                                   #                                PL AT 4D
055177,001267: 12,3005           02732                                    SNTH                                  
055178,001268: 12,3006           21607                                    6                                     
055179,001269: 12,3007           77671                           DDV                                            #                                PL AT 2
055180,001270: 12,3010           77600                           BOV                                            
055181,001271: 12,3011           25125                                    360CHECK                              
055182,001272: 12,3012           41225                           DSU      DMP                                   
055183,001273: 12,3013           03775                                    COGA                                  #                                PL AT 0
055184,001274: 12,3014           40132                           SL2R     BOV                                   
055185,001275: 12,3015           25125                                    360CHECK                              
055186,001276: 12,3016           63406        WLOOP              PUSH     DSQ                                   #  0D=W (+5)                     PL AT 2
055187,001277: 12,3017           65351                           TLOAD    PDDL                                  #  2D=WSQ (+10)                  PL AT 5
055188,001278: 12,3020           00155                                    MPAC                                  
055189,001279: 12,3021           02744                                    R1A                                   
055190,001280: 12,3022           76202                           SR4      TAD                                   #                                PL AT 2
055191,001281: 12,3023           75440                           BMN      SQRT                                  
055192,001282: 12,3024           25210                                    INFINITY                              
055193,001283: 12,3025           43306                           ROUND    DAD                                   #                                PL AT 0D
055194,001284: 12,3026           61000                           BOV      TIX,2                                 
055195,001285: 12,3027           25123                                    RESETX2                               
055196,001286: 12,3030           25016                                    WLOOP                                 
055197,001287: 
055198,001288: 12,3031           40065                           BDDV     BOV                                   
055199,001289: 12,3032           11476                                    D1/128                                
055200,001290: 12,3033           25210                                    INFINITY                              
055201,001291: 12,3034           41440        POLYCOEF           BMN      PUSH                                  #  0D=1/W (+2) OR 16/W (+6)      PL AT 2
055202,001292: 12,3035           25210                                    INFINITY                              
055203,001293: 12,3036           77716                           DSQ                                            
055204,001294: 12,3037           41301                           NORM     DMP                                   
055205,001295: 12,3040           00047                                    X1                                    
055206,001296: 12,3041           02744                                    R1A                                   
055207,001297: 12,3042           77457                           SRR*     EXIT                                  
055208,001298: 12,3043           21567                                    0          -10D,1                     

Page 1264

055210,001300: 12,3044           07171                           TC       POLY                                  
055211,001301: 12,3045           00005                           DEC      5          B-14                       
055212,001302: 12,3046           20000 00000                     2DEC     .5                                    
055213,001303: 12,3050           72525 52471                     2DEC     -.166666770                            
055214,001304: 12,3052           03146 15003                     2DEC     .100000392                            
055215,001305: 12,3054           75556 45210                     2DEC     -.071401086                            
055216,001306: 12,3056           01615 13553                     2DEC     .055503292                            
055217,001307: 12,3060           76371 63777                     2DEC     -.047264098                            
055218,001308: 12,3062           01232 27367                     2DEC     .040694204                            
055219,001309: 
055220,001310: 12,3064           06006                           TC       INTPRET                               
055221,001311: 12,3065           76405                           DMP      SL1R                                  #                                PL AT 0D
055222,001312: 12,3066           43006                           PUSH     BON                                   
055223,001313: 12,3067           04316                                    360SW                                 
055224,001314: 12,3070           25175                                    TRUE360X                              
055225,001315: 12,3071           60316        XCOMMON            DSQ      NORM                                  
055226,001316: 12,3072           00047                                    X1                                    
055227,001317: 12,3073           53605                           DMP      SRR*                                  
055228,001318: 12,3074           02744                                    R1A                                   
055229,001319: 12,3075           21565                                    0          -12D,1                     
055230,001320: 12,3076           14031                           STODL    XI                                    #  XI (+6)
055231,001321: 12,3077           00041                                    R1                                    
055232,001322: 12,3100           75542                           SR1      SQRT                                  
055233,001323: 12,3101           41306                           ROUND    DMP                                   
055234,001324: 12,3102           77632                           SL4R                                           #                                PL AT 0
055235,001325: 12,3103           00025                           STORE    X                                     #  X (+17 OR +16)
055236,001326: 
055237,001327: 12,3104           60316                           DSQ      NORM                                  
055238,001328: 12,3105           00047                                    X1                                    
055239,001329: 12,3106           41325                           PDDL     DMP                                   #  0D=XSQ (+34 OR +32 -N1)       PL AT 2
055240,001330: 12,3107           02742                                    P                                     
055241,001331: 12,3110           00041                                    R1                                    
055242,001332: 12,3111           75452                           SL3      SQRT                                  
055243,001333: 12,3112           56405                           DMP      SL3R                                  
055244,001334: 12,3113           03775                                    COGA                                  
055245,001335: 12,3114           14043                           STODL    KEPC1                                 
055246,001336: 12,3115           02744                                    R1A                                   
055247,001337: 12,3116           43021                           BDSU     CLEAR                                 
055248,001338: 12,3117           11500                                    D1/64                                 
055249,001339: 12,3120           04270                                    INFINFLG                              
055250,001340: 12,3121           00045                           STORE    KEPC2                                 

Page 1265

055252,001342: 12,3122           77616                           RVQ                                            
055253,001343: 
055254,001344: 12,3123           77774        RESETX2            AXT,2                                          
055255,001345: 12,3124           00003                                    3                                     
055256,001346: 
055257,001347: 12,3125           51001        360CHECK           SETPD    BPL                                   
055258,001348: 12,3126           00001                                    0D                                    
055259,001349: 12,3127           25132                                    INVRSEQN                              
055260,001350: 12,3130           77614                           SET                                            
055261,001351: 12,3131           04076                                    360SW                                 
055262,001352: 
055263,001353: 12,3132           75545        INVRSEQN           DLOAD    SQRT                                  
055264,001354: 12,3133           02742                                    P                                     
055265,001355: 12,3134           41325                           PDDL     DMP                                   #  0D=SQRT(P) (+2)               PL AT 2
055266,001356: 12,3135           02732                                    SNTH                                  
055267,001357: 12,3136           03775                                    COGA                                  
055268,001358: 12,3137           65352                           SL1      PDDL                                  #  2D=SNTH COGA (+5)             PL AT 4
055269,001359: 12,3140           02734                                    CSTH                                  
055270,001360: 12,3141           43202                           SR4      DAD                                   
055271,001361: 12,3142           11506                                    D1/32                                 
055272,001362: 12,3143           41225                           DSU      DMP                                   #                                PL AT 2,0
055273,001363: 12,3144           55301                           NORM     BDDV                                  
055274,001364: 12,3145           00047                                    X1                                    
055275,001365: 12,3146           02732                                    SNTH                                  
055276,001366: 12,3147           51457                           SLR*     ABS                                   #  NOTE: NEAR 360 CASE TREATED DIFFERENTLY
055277,001367: 12,3150           21174                                    0          -5,1                       
055278,001368: 12,3151           63406                           PUSH     DSQ                                   #  0D=1/W (-1)                   PL AT 2
055279,001369: 12,3152           14043                           STODL    34D                                   
055280,001370: 12,3153           11504                                    D1/16                                 
055281,001371: 12,3154           63406        1/WLOOP            PUSH     DSQ                                   #  2D=G (+4)                     PL AT 4
055282,001372: 12,3155           65234                           RTB      PDDL                                  #                                PL AT 7
055283,001373: 12,3156           45562                                    TPMODE                                
055284,001374: 12,3157           02744                                    R1A                                   
055285,001375: 12,3160           40405                           DMP      SR4                                   
055286,001376: 12,3161           00043                                    34D                                   
055287,001377: 12,3162           77771                           TAD                                            
055288,001378: 12,3163           75440                           BMN      SQRT                                  #                                PL AT 4
055289,001379: 12,3164           25210                                    INFINITY                              
055290,001380: 12,3165           77615                           DAD                                            #                                PL AT 2
055291,001381: 12,3166           60304                           TIX,2    NORM                                  
055292,001382: 12,3167           25154                                    1/WLOOP                               
055293,001383: 12,3170           00047                                    X1                                    
055294,001384: 12,3171           77665                           BDDV                                           
055295,001385: 12,3172           52057                           SLR*     GOTO                                  #                                PL AT 0
055296,001386: 12,3173           21172                                    0          -7,1                       
055297,001387: 12,3174           25034                                    POLYCOEF                              
055298,001388: 

Page 1266

055300,001390: 12,3175           50145        TRUE360X           DLOAD    BMN                                   
055301,001391: 12,3176           02744                                    R1A                                   
055302,001392: 12,3177           25210                                    INFINITY                              
055303,001393: 12,3200           60366                           SQRT     NORM                                  
055304,001394: 12,3201           00047                                    X1                                    
055305,001395: 12,3202           53665                           BDDV     SL*                                   
055306,001396: 12,3203           11520                                    2PISC                                 
055307,001397: 12,3204           20176                                    0          -3,1                       
055308,001398: 12,3205           41425                           DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X           PL AT 0,2
055309,001399: 12,3206           77650                           GOTO                                           
055310,001400: 12,3207           25071                                    XCOMMON                               
055311,001401: 12,3210           40001        INFINITY           SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
055312,001402: 12,3211           00001                                    0                                     #  INFINITY IS REQUIRED
055313,001403: 12,3212           25213                                    OVFLCLR                               
055314,001404: 12,3213           43414        OVFLCLR            SET      RVQ                                   
055315,001405: 12,3214           04070                                    INFINFLG                              
055316,001406: 

Page 1267

055318,001408: 12,3215           40220        LAMBERT            STQ      SETPD                                 
055319,001409: 12,3216           02712                                    RTNLAMB                               
055320,001410: 12,3217           00001                                    0D                                    
055321,001411: 12,3220           76731                           SSP      VLOAD*                                
055322,001412: 12,3221           00027                                    ITERCTR                               
055323,001413: 12,3222           00024                                    20D                                   
055324,001414: 12,3223           11631                                    MUTABLE,1                             
055325,001415: 12,3224           14017                           STODL    1/MU                                  
055326,001416: 12,3225           02673                                    TDESIRED                              
055327,001417: 12,3226           77675                           DMPR                                           
055328,001418: 12,3227           11505                                    BEE19                                 
055329,001419: 12,3230           03777                           STORE    EPSILONL                              
055330,001420: 12,3231           77214                           SET      VLOAD                                 
055331,001421: 12,3232           00474                                    SLOPESW                               
055332,001422: 12,3233           02657                                    R1VEC                                 
055333,001423: 12,3234           45115                           PDVL     CALL                                  #  0D=R1VEC (+29 OR +27)         PL AT 6
055334,001424: 12,3235           02665                                    R2VEC                                 #  MPAC=R2VEC (+29 OR +27)
055335,001425: 12,3236           11573                                    GEOM                                  
055336,001426: 12,3237           16732                           STODL    SNTH                                  #  0D=CSTH (+1)                  PL AT 2
055337,001427: 12,3240           02722                                    MAGVEC2                               
055338,001428: 12,3241           65301                           NORM     PDDL                                  #                                PL AT 4
055339,001429: 12,3242           00047                                    X1                                    
055340,001430: 12,3243           00041                                    R1                                    
055341,001431: 12,3244           56342                           SR1      DDV                                   #                                PL AT 2
055342,001432: 12,3245           65257                           SL*      PDDL                                  #  DXCH WITH 0D, 0D=R1/R2 (+7)   PL AT 0,2
055343,001433: 12,3246           20173                                    0          -6,1                       
055344,001434: 12,3247           77626                           STADR                                          
055345,001435: 12,3250           75043                           STORE    CSTH                                  #  CSTH (+1)
055346,001436: 12,3251           44342                           SR1      BDSU                                  
055347,001437: 12,3252           11502                                    D1/4                                  
055348,001438: 12,3253           02736                           STORE    1-CSTH                                #  1-CSTH (+2)
055349,001439: 
055350,001440: 12,3254           53106                           ROUND    BZE                                   
055351,001441: 12,3255           25465                                    360LAMB                               
055352,001442: 12,3256           65301                           NORM     PDDL                                  #                                PL AT 4
055353,001443: 12,3257           00047                                    X1                                    
055354,001444: 12,3260           00001                                    0D                                    
055355,001445: 12,3261           56342                           SR1      DDV                                   #                                PL AT 2
055356,001446: 12,3262           75457                           SL*      SQRT                                  
055357,001447: 12,3263           20176                                    0          -3,1                       
055358,001448: 12,3264           54325                           PDDL     SR                                    #  2D=SQRT(2R1/R2(1-CSTH)) (+5)  PL AT 4
055359,001449: 12,3265           02732                                    SNTH                                  
055360,001450: 12,3266           20607                                    6                                     
055361,001451: 12,3267           43271                           DDV      DAD                                   #                                PL AT 2
055362,001452: 12,3270           02736                                    1-CSTH                                
055363,001453: 12,3271           77626                           STADR                                          
055364,001454: 12,3272           77760                           STORE    COGAMAX                               
055365,001455: 12,3273           50000                           BOV      BMN                                   #  IF OVFL, COGAMAX=COGUPLIM
055366,001456: 12,3274           25301                                    UPLIM                                 #  IF NEG, USE EVEN IF LT COGLOLIM, SINCE
055367,001457: 12,3275           25304                                    MAXCOGA                               #        THIS WOULD BE RESET IN LAMBLOOP

Page 1268

055369,001459: 12,3276           50025                           DSU      BMN                                   #  IF COGAMAX GT COGUPLIM, COGAMAX=COGUPLIM
055370,001460: 12,3277           11524                                    COGUPLIM                              
055371,001461: 12,3300           25304                                    MAXCOGA                               #  OTHERWISE OK, SO GO TO MAXCOGA
055372,001462: 12,3301           77745        UPLIM              DLOAD                                          
055373,001463: 12,3302           11524                                    COGUPLIM                              #  COGUPLIM=.999511597 = MAX VALUE OF COGA
055374,001464: 12,3303           00017                           STORE    COGAMAX                               #        NOT CAUSING OVFL IN R1A CALCULATION
055375,001465: 12,3304           77745        MAXCOGA            DLOAD                                          
055376,001466: 12,3305           02734                                    CSTH                                  
055377,001467: 12,3306           45261                           SR       DSU                                   #                                        PL AT 0
055378,001468: 12,3307           20607                                    6                                     
055379,001469: 12,3310           77626                           STADR                                          
055380,001470: 12,3311           61037                           STODL    CSTH-RHO                              
055381,001471: 12,3312           02675                                    GEOMSGN                               
055382,001472: 12,3313           71240                           BMN      DLOAD                                 
055383,001473: 12,3314           25505                                    LOLIM                                 
055384,001474: 12,3315           02740                                    CSTH-RHO                              
055385,001475: 12,3316           56352                           SL1      DDV                                   
055386,001476: 12,3317           02732                                    SNTH                                  
055387,001477: 12,3320           77600                           BOV                                            
055388,001478: 12,3321           25505                                    LOLIM                                 
055389,001479: 12,3322           00011        MINCOGA            STORE    COGAMIN                               #  COGAMIN (+5)
055390,001480: 12,3323           66214                           BON      SSP                                   
055391,001481: 12,3324           00715                                    GUESSW                                
055392,001482: 12,3325           25471                                    NOGUESS                               
055393,001483: 12,3326           00051                                    TWEEKIT                               
055394,001484: 12,3327           00001                                    00001                                 
055395,001485: 12,3330           77745                           DLOAD                                          
055396,001486: 12,3331           03775                                    COGA                                  
055397,001487: 
055398,001488: 12,3332           77605        LAMBLOOP           DMP                                            
055399,001489: 12,3333           02732                                    SNTH                                  
055400,001490: 12,3334           45342                           SR1      DSU                                   
055401,001491: 12,3335           02740                                    CSTH-RHO                              
055402,001492: 12,3336           65301                           NORM     PDDL                                  #  0D=SNTH COGA-(CSTH-RHO) (+7+C(X1))    PL=2
055403,001493: 12,3337           00047                                    X1                                    
055404,001494: 12,3340           02736                                    1-CSTH                                
055405,001495: 12,3341           56257                           SL*      DDV                                   #  1-CSTH (+2)                           PL AT 0
055406,001496: 12,3342           20170                                    0          -9D,1                      
055407,001497: 12,3343           53040                           BMN      BZE                                   
055408,001498: 12,3344           25421                                    NEGP                                  
055409,001499: 12,3345           25421                                    NEGP                                  
055410,001500: 12,3346           16742                           STODL    P                                     #  P=(1-CSTH)/(SNTH COGA-(CSTH-RHO)) (+4)
055411,001501: 12,3347           03775                                    COGA                                  
055412,001502: 12,3350           43316                           DSQ      DAD                                   
055413,001503: 12,3351           11510                                    D1/1024                               
055414,001504: 12,3352           41301                           NORM     DMP                                   
055415,001505: 12,3353           00047                                    X1                                    
055416,001506: 12,3354           02742                                    P                                     
055417,001507: 12,3355           44257                           SR*      BDSU                                  

Page 1269

055419,001509: 12,3356           20571                                    0          -8D,1                      
055420,001510: 12,3357           11506                                    D1/32                                 
055421,001511: 12,3360           16744                           STODL    R1A                                   #  R1A=2-P(1+COGA COGA) (+6)
055422,001512: 12,3361           02742                                    P                                     
055423,001513: 12,3362           45000                           BOV      CALL                                  
055424,001514: 12,3363           25424                                    HIENERGY                              
055425,001515: 12,3364           24772                                    GETX                                  
055426,001516: 12,3365           77745                           DLOAD                                          
055427,001517: 12,3366           00037                                    T                                     
055428,001518: 12,3367           16764                           STODL    TPREV                                 
055429,001519: 12,3370           00031                                    XI                                    
055430,001520: 12,3371           45014                           BON      CALL                                  
055431,001521: 12,3372           04310                                    INFINFLG                              
055432,001522: 12,3373           25421                                    NEGP                                  #  HAVE EXCEEDED THEORETICAL BOUNDS
055433,001523: 12,3374           24426                                    DELTIME                               
055434,001524: 12,3375           44200                           BOV      BDSU                                  
055435,001525: 12,3376           25441                                    BIGTIME                               
055436,001526: 12,3377           02673                                    TDESIRED                              
055437,001527: 12,3400           02762                           STORE    TERRLAMB                              
055438,001528: 12,3401           44246                           ABS      BDSU                                  
055439,001529: 12,3402           03777                                    EPSILONL                              
055440,001530: 12,3403           47044                           BPL      RTB                                   
055441,001531: 12,3404           25510                                    INITV                                 
055442,001532: 12,3405           24651                                    CHECKCTR                              
055443,001533: 12,3406           45030                           BHIZ     CALL                                  
055444,001534: 12,3407           25452                                    SUFFCHEK                              
055445,001535: 12,3410           24543                                    ITERATOR                              
055446,001536: 12,3411           53145                           DLOAD    BZE                                   
055447,001537: 12,3412           00155                                    MPAC                                  
055448,001538: 12,3413           25452                                    SUFFCHEK                              
055449,001539: 12,3414           77615                           DAD                                            
055450,001540: 12,3415           03775                                    COGA                                  
055451,001541: 12,3416           03775                           STORE    COGA                                  
055452,001542: 12,3417           77650                           GOTO                                           
055453,001543: 12,3420           25332                                    LAMBLOOP                              
055454,001544: 
055455,001545: 12,3421           51145        NEGP               DLOAD    BPL                                   #  IMPOSSIBLE TRAJECTORY DUE TO INACCURATE
055456,001546: 12,3422           00015                                    DCOGA                                 #  BOUND CALCULATION.  TRY NEW COGA.
055457,001547: 12,3423           25444                                    LOENERGY                              
055458,001548: 
055459,001549: 12,3424           71201        HIENERGY           SETPD    DLOAD                                 #  HIGH ENERGY TRAJECTORY RESULTED
055460,001550: 12,3425           00001                                    0                                     
055461,001551: 12,3426           03775                                    COGA                                  #  IN OVFL OF P OR R1A, OR XI EXCEEDING 50.
055462,001552: 12,3427           00011                           STORE    COGAMIN                               #  THIS IS THE NEW BOUND.
055463,001553: 12,3430           70545        COMMONLM           DLOAD    SR1                                   
055464,001554: 12,3431           00015                                    DCOGA                                 
055465,001555: 12,3432           00015                           STORE    DCOGA                                 #  USE DCOGA/2 AS DECREMENT

Page 1270

055467,001557: 12,3433           44254                           BZE      BDSU                                  
055468,001558: 12,3434           25452                                    SUFFCHEK                              
055469,001559: 12,3435           03775                                    COGA                                  
055470,001560: 12,3436           03775                           STORE    COGA                                  
055471,001561: 12,3437           77650                           GOTO                                           #  RESTART THIS LOOP
055472,001562: 12,3440           25332                                    LAMBLOOP                              
055473,001563: 
055474,001564: 12,3441           77745        BIGTIME            DLOAD                                          
055475,001565: 12,3442           02764                                    TPREV                                 
055476,001566: 12,3443           00037                           STORE    T                                     
055477,001567: 
055478,001568: 12,3444           71201        LOENERGY           SETPD    DLOAD                                 #  LOW ENERGY TRAJECTORY RESULTED
055479,001569: 12,3445           00001                                    0                                     
055480,001570: 12,3446           03775                                    COGA                                  #  IN OVERFLOW OF TIME.
055481,001571: 12,3447           00017                           STORE    COGAMAX                               #  THIS IS THE NEW BOUND.
055482,001572: 12,3450           77650                           GOTO                                           
055483,001573: 12,3451           25430                                    COMMONLM                              
055484,001574: 
055485,001575: 12,3452           51545        SUFFCHEK           DLOAD    ABS                                   
055486,001576: 12,3453           02762                                    TERRLAMB                              
055487,001577: 12,3454           41325                           PDDL     DMP                                   
055488,001578: 12,3455           02673                                    TDESIRED                              #                                PL AT 2D
055489,001579: 12,3456           11502                                    D1/4                                  
055490,001580: 12,3457           45215                           DAD      DSU                                   #                                PL AT 0D
055491,001581: 12,3460           11522                                    ONEBIT                                
055492,001582: 12,3461           43044                           BPL      SETGO                                 
055493,001583: 12,3462           25510                                    INITV                                 
055494,001584: 12,3463           02434                                    SOLNSW                                
055495,001585: 12,3464           02712                                    RTNLAMB                               
055496,001586: 12,3465           43001        360LAMB            SETPD    SETGO                                 #  LAMBERT CANNOT HANDLE CSTH=1
055497,001587: 12,3466           00001                                    0                                     
055498,001588: 12,3467           02434                                    SOLNSW                                
055499,001589: 12,3470           02712                                    RTNLAMB                               
055500,001590: 
055501,001591: 12,3471           71331        NOGUESS            SSP      DLOAD                                 
055502,001592: 12,3472           00051                                    TWEEKIT                               
055503,001593: 12,3473           10000                                    20000                                 
055504,001594: 12,3474           00011                                    COGAMIN                               
055505,001595: 12,3475           65342                           SR1      PDDL                                  #                                PL AT 2
055506,001596: 12,3476           00017                                    COGAMAX                               
055507,001597: 12,3477           43342                           SR1      DAD                                   
055508,001598: 12,3500           77626                           STADR                                          #                                PL AT 0
055509,001599: 12,3501           74002                           STORE    COGA                                  
055510,001600: 12,3502           00015                           STORE    DCOGA                                 

Page 1271

055512,001602: 12,3503           77650                           GOTO                                           
055513,001603: 12,3504           25332                                    LAMBLOOP                              

There is a handwritten note on the Colossus 249 scan here, which unfortunately is not completely legible. It is something like "Dca's from MAXCOGA" — RSB 2004

055517,001607: 12,3505           52145        LOLIM              DLOAD    GOTO                                  
055518,001608: 12,3506           11526                                    COGLOLIM                              #  COGLOLIM=-.999511597
055519,001609: 12,3507           25322                                    MINCOGA                               
055520,001610: 12,3510           60345        INITV              DLOAD    NORM                                  
055521,001611: 12,3511           00041                                    R1                                    
055522,001612: 12,3512           00047                                    X1                                    
055523,001613: 12,3513           70525                           PDDL     SR1                                   #                                PL AT 2
055524,001614: 12,3514           02742                                    P                                     
055525,001615: 12,3515           77671                           DDV                                            #                                PL AT 0
055526,001616: 12,3516           75457                           SL*      SQRT                                  
055527,001617: 12,3517           20175                                    0          -4,1                       
055528,001618: 12,3520           72405                           DMP      SL1                                   
055529,001619: 12,3521           00021                                    ROOTMU                                
055530,001620: 12,3522           41206                           PUSH     DMP                                   #  0D=VTAN (+7)                  PL AT 2
055531,001621: 12,3523           03775                                    COGA                                  
055532,001622: 12,3524           74261                           SL       VXSC                                  
055533,001623: 12,3525           20206                                    5                                     
055534,001624: 12,3526           02724                                    UR1                                   
055535,001625: 12,3527           77725                           PDDL                                           #  XCH WITH 0D                   PL AT 0,6
055536,001626: 12,3530           76561                           VXSC     VSL1                                  
055537,001627: 12,3531           02676                                    UN                                    
055538,001628: 12,3532           53235                           VXV      VAD                                   
055539,001629: 12,3533           02724                                    UR1                                   #                                PL AT 0
055540,001630: 12,3534           43172                           VSL1     CLEAR                                 
055541,001631: 12,3535           02674                                    SOLNSW                                
055542,001632: 12,3536           02746                           STORE    VVEC                                  
055543,001633: 12,3537           53135                           SLOAD    BZE                                   
055544,001634: 12,3540           02704                                    VTARGTAG                              
055545,001635: 12,3541           25544                                    TARGETV                               
055546,001636: 12,3542           77650                           GOTO                                           
055547,001637: 12,3543           02712                                    RTNLAMB                               
055548,001638: 
055549,001639: 12,3544           45145        TARGETV            DLOAD    CALL                                  
055550,001640: 12,3545           02722                                    MAGVEC2                               
055551,001641: 12,3546           24706                                    LAMENTER                              
055552,001642: 12,3547           02705                           STORE    VTARGET                               
055553,001643: 12,3550           77650                           GOTO                                           
055554,001644: 12,3551           02712                                    RTNLAMB                               
055555,001645: 

Page 1272

055557,001647: 12,3552           40220        TIMERAD            STQ      SETPD                                 #                                PL AT 0
055558,001648: 12,3553           02712                                    RTNTR                                 
055559,001649: 12,3554           00001                                    0                                     
055560,001650: 12,3555           63375                           VLOAD    PDVL                                  #                                PL AT 6
055561,001651: 12,3556           02657                                    RVEC                                  
055562,001652: 12,3557           02746                                    VVEC                                  
055563,001653: 12,3560           77624                           CALL                                           
055564,001654: 12,3561           11527                                    PARAM                                 
055565,001655: 12,3562           71200                           BOV      DLOAD                                 
055566,001656: 12,3563           24767                                    COGAOVFL                              #                                PL AT 0
055567,001657: 12,3564           11506                                    D1/32                                 
055568,001658: 12,3565           41225                           DSU      DMP                                   
055569,001659: 12,3566           02744                                    R1A                                   
055570,001660: 12,3567           02742                                    P                                     
055571,001661: 12,3570           41366                           SQRT     DMP                                   
055572,001662: 12,3571           03775                                    COGA                                  
055573,001663: 12,3572           74212                           SL4      VXSC                                  
055574,001664: 12,3573           02714                                    U2                                    
055575,001665: 12,3574           45325                           PDDL     DSU                                   #                                PL AT 6
055576,001666: 12,3575           11500                                    D1/64                                 
055577,001667: 12,3576           02744                                    R1A                                   
055578,001668: 12,3577           52361                           VXSC     VSU                                   #                                PL AT 0
055579,001669: 12,3600           02724                                    UR1                                   
055580,001670: 12,3601           53512                           VSL4     UNIT                                  
055581,001671: 12,3602           77600                           BOV                                            
055582,001672: 12,3603           25465                                    360LAMB                               #  NO SOLUTION SINCE CONIC IS A CIRCLE
055583,001673: 12,3604           60325                           PDDL     NORM                                  #  0D=UNIT(ECC) (+3)             PL AT 6
055584,001674: 12,3605           02760                                    RDESIRED                              #  36D=ECC (+3)
055585,001675: 12,3606           00047                                    X1                                    
055586,001676: 12,3607           41325                           PDDL     DMP                                   #                                PL AT 8
055587,001677: 12,3610           00041                                    R1                                    
055588,001678: 12,3611           02742                                    P                                     
055589,001679: 12,3612           56257                           SL*      DDV                                   #                                PL AT 6
055590,001680: 12,3613           20201                                    0,1                                   
055591,001681: 12,3614           56225                           DSU      DDV                                   
055592,001682: 12,3615           11504                                    D1/16                                 
055593,001683: 12,3616           00045                                    36D                                   #  36D=ECC (+3)
055594,001684: 12,3617           00031                           STORE    COSF                                  
055595,001685: 12,3620           63400                           BOV      DSQ                                   
055596,001686: 12,3621           25661                                    BADR2                                 
055597,001687: 12,3622           50021                           BDSU     BMN                                   
055598,001688: 12,3623           11502                                    D1/4                                  
055599,001689: 12,3624           25661                                    BADR2                                 
055600,001690: 12,3625           75366                           SQRT     SIGN                                  
055601,001691: 12,3626           02757                                    SGNRDOT                               
055602,001692: 12,3627           77614                           CLEAR                                          
055603,001693: 12,3630           04272                                    APSESW                                
055604,001694: 
055605,001695: 12,3631           76561        TERMNVEC           VXSC     VSL1                                  
055606,001696: 12,3632           02676                                    UN                                    

Page 1273

055608,001698: 12,3633           63235                           VXV      PDVL                                  #  VXCH WITH 0D          PL AT 0,6
055609,001699: 12,3634           00001                                    0D                                    
055610,001700: 12,3635           53361                           VXSC     VAD                                   #                        PL AT 0
055611,001701: 12,3636           00031                                    COSF                                  
055612,001702: 12,3637           41572                           VSL1     PUSH                                  #  0D=U2                 PL AT 6
055613,001703: 
055614,001704: 12,3640           56241                           DOT      DDV                                   #  LIMITS RESULT TO POSMAX OR NEGMAX
055615,001705: 12,3641           02724                                    UR1                                   
055616,001706: 12,3642           23701                                    DP1/4                                 
055617,001707: 12,3643           40142                           SR1      BOV                                   #  SCALE BACK DOWN TO NORMAL
055618,001708: 12,3644           25645                                    +1                                    #  CLEAR OVFIND IF SET
055619,001709: 12,3645           26734                           STOVL    CSTH                                  #  CSTH (+1)
055620,001710: 12,3646           02724                                    UR1                                   
055621,001711: 12,3647           76435                           VXV      VSL1                                  
055622,001712: 12,3650           72441                           DOT      SL1                                   
055623,001713: 12,3651           02676                                    UN                                    
055624,001714: 12,3652           16732                           STODL    SNTH                                  #  SNTH (+1)
055625,001715: 12,3653           02742                                    P                                     
055626,001716: 12,3654           77624                           CALL                                           
055627,001717: 12,3655           24772                                    GETX                                  
055628,001718: 12,3656           77614                           CLRGO                                          
055629,001719: 12,3657           02634                                    SOLNSW                                
055630,001720: 12,3660           24752                                    COMMNOUT                              
055631,001721: 
055632,001722: 12,3661           75345        BADR2              DLOAD    SIGN                                  
055633,001723: 12,3662           11454                                    LODPHALF                              
055634,001724: 12,3663           00031                                    COSF                                  
055635,001725: 12,3664           14031                           STODL    COSF                                  
055636,001726: 12,3665           11456                                    KEPZERO                               
055637,001727: 12,3666           77614                           SETGO                                          
055638,001728: 12,3667           04032                                    APSESW                                
055639,001729: 12,3670           25631                                    TERMNVEC                              
055640,001730: 
055641,001731: 12,3671           40220        APSIDES            STQ      SETPD                                 #                        PL AT 0
055642,001732: 12,3672           02712                                    RTNAPSE                               
055643,001733: 12,3673           00001                                    0D                                    
055644,001734: 12,3674           63375                           VLOAD    PDVL                                  #                        PL AT 6
055645,001735: 12,3675           02657                                    RVEC                                  
055646,001736: 12,3676           02746                                    VVEC                                  
055647,001737: 12,3677           77624                           CALL                                           
055648,001738: 12,3700           11527                                    PARAM                                 
055649,001739: 12,3701           77600                           BOV                                            #                        PL AT 0
055650,001740: 12,3702           25703                                    GETECC                                
055651,001741: 12,3703           42405        GETECC             DMP      SL4                                   
055652,001742: 12,3704           02744                                    R1A                                   
055653,001743: 12,3705           75421                           BDSU     SQRT                                  
055654,001744: 12,3706           11500                                    D1/64                                 
055655,001745: 12,3707           02754                           STORE    ECC                                   
055656,001746: 12,3710           65215                           DAD      PDDL                                  #                        PL AT 2
055657,001747: 12,3711           11474                                    D1/8                                  

Page 1274

055659,001749: 12,3712           00041                                    R1                                    
055660,001750: 12,3713           72405                           DMP      SL1                                   
055661,001751: 12,3714           02742                                    P                                     
055662,001752: 12,3715           77671                           DDV                                            #                        PL AT 0
055663,001753: 12,3716           60325                           PDDL     NORM                                  #  0D=RP (+29 OR +27)    PL AT 2
055664,001754: 12,3717           02744                                    R1A                                   
055665,001755: 12,3720           00047                                    X1                                    
055666,001756: 12,3721           53725                           PDDL     SL*                                   #                        PL AT 4
055667,001757: 12,3722           00041                                    R1                                    
055668,001758: 12,3723           20174                                    0          -5,1                       
055669,001759: 12,3724           45271                           DDV      DSU                                   #                        PL AT 2,0
055670,001760: 12,3725           50000                           BOV      BMN                                   
055671,001761: 12,3726           25732                                    INFINAPO                              
055672,001762: 12,3727           25732                                    INFINAPO                              
055673,001763: 12,3730           77650                           GOTO                                           
055674,001764: 12,3731           02712                                    RTNAPSE                               
055675,001765: 12,3732           52145        INFINAPO           DLOAD    GOTO                                  #  RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
055676,001766: 12,3733           11467                                    LDPOSMAX                              
055677,001767: 12,3734           02712                                    RTNAPSE                               #  THAT PL IS AT 0.
055678,001768: 

Page 1275

055680,001770: 04,2000                                           SETLOC   CONICS1                               
055681,001771: 04,2000                                           BANK                                           
055682,001772: 
055683,001773: 04,3630                                           COUNT    04/CONIC                              
055684,001774: 
055685,001775: 04,3630           22437 16067  MUTABLE            2DEC*    3.986032   E10        B-36*           #  MUE
055686,001776: 04,3632           15625 21042                     2DEC*    .25087606  E-10       B+34*           #  1/MUE
055687,001777: 04,3634           30276 04773                     2DEC*    1.99650495 E5         B-18*           #  SQRT(MUE)
055688,001778: 04,3636           25004 06702                     2DEC*    .50087529  E-5        B+17*           #  1/SQRT(MUE)
055689,001779: 
055690,001780: 04,3640           16471 01352                     2DEC     4.902778   E8         B-30            #  MUM
055691,001781: 04,3642           21412 20500                     2DEC     .203966    E-8        B+28            #  1/MUM
055692,001782: 04,3644           25477 03367                     2DEC*    2.21422176 E4         B-15*           #  SQRT(MUM)
055693,001783: 04,3646           27533 07571                     2DEC*    .45162595  E-4        B+14*           #  1/SQRT(MUM)
055694,001784: 
055695,001785: 04,3650  04,3466               LDPOSMAX           EQUALS   LODPMAX                               #  DPPOSMAX IN LOW MEMORY.
055696,001786: 
055697,001787:                                                                                                  #  ERASABLE ASSIGNMENTS
055698,001788:                                                                                                  #  KEPLER SUBROUTINE
055699,001789: 
055700,001790:                                                                                                  #  INPUT -
055701,001791:                                                                                                  #  RRECT         ERASE   +5
055702,001792:                                                                                                  #  VRECT         ERASE   +5
055703,001793:                                                                                                  #  TAU.          ERASE   +1
055704,001794:                                                                                                  #  XKEP          ERASE   +1
055705,001795:                                                                                                  #  TC            ERASE   +1
055706,001796:                                                                                                  #  XPREV         ERASE   +1
055707,001797: 04,3650                        1/MU               EQUALS   14D                                   
055708,001798: 04,3650                        ROOTMU             EQUALS   16D                                   
055709,001799: 04,3650                        1/ROOTMU           EQUALS   18D                                   
055710,001800: 
055711,001801:                                                                                                  #  OUTPUT -
055712,001802:                                                                                                  #  RCV           ERASE   +5
055713,001803:                                                                                                  #  VCV           ERASE   +5
055714,001804:                                                                                                  #  RC            ERASE   +1
055715,001805:                                                                                                  #  XPREV         ERASE   +1
055716,001806: 
055717,001807:                                                                                                  #  DEBRIS -
055718,001808: 04,3650                        ALPHA              EQUALS   8D                                    
055719,001809: 04,3650                        XMAX               EQUALS   10D                                   

Page 1276

055721,001811: 04,3650                        XMIN               EQUALS   12D                                   
055722,001812: 04,3650                        X                  EQUALS   20D                                   
055723,001813: 04,3650                        XI                 EQUALS   24D                                   
055724,001814: 04,3650                        S(XI)              EQUALS   26D                                   
055725,001815: 04,3650                        XSQC(XI)           EQUALS   28D                                   
055726,001816: 04,3650                        T                  EQUALS   30D                                   
055727,001817: 04,3650                        R1                 EQUALS   32D                                   
055728,001818: 04,3650                        KEPC1              EQUALS   34D                                   
055729,001819: 04,3650                        KEPC2              EQUALS   36D                                   
055730,001820: 
055731,001821:                                                                                                  #  DELX          ERASE   +1
055732,001822:                                                                                                  #  DELT          ERASE   +1
055733,001823:                                                                                                  #  URRECT        ERASE   +5
055734,001824:                                                                                                  #  RCNORM        ERASE   +1
055735,001825:                                                                                                  #  XPREV         EQUALS  XKEP
055736,001826: 
055737,001827: 
055738,001828:                                                                                                  #  LAMBERT SUBROUTINE
055739,001829: 
055740,001830:                                                                                                  #  INPUT -
055741,001831:                                                                                                  #  R1VEC         ERASE   +5
055742,001832:                                                                                                  #  R2VEC         ERASE   +5
055743,001833:                                                                                                  #  TDESIRED      ERASE   +1
055744,001834:                                                                                                  #  GEOMSGN       ERASE   +0
055745,001835:                                                                                                  #  GUESSW                        0 IF COGA GUESS AVAILABLE, 1 IF NOT
055746,001836:                                                                                                  #  COGA          ERASE   +1      INPUT ONLY IF GUESSW IS ZERO.
055747,001837:                                                                                                  #  NORMSW                        0 IF UN TO BE COMPUTED, 1 IF UN INPUT
055748,001838:                                                                                                  #  UN            ERASE   +5      ONLY USED IF NORMSW IS 1
055749,001839:                                                                                                  #  VTARGTAG      ERASE   +0
055750,001840:                                                                                                  #  TWEEKIT       EQUALS  40D     ONLY USED IF GUESSW IS 0
055751,001841: 
055752,001842:                                                                                                  #  OUTPUT -
055753,001843:                                                                                                  #  VTARGET       ERASE   +5      AVAILABLE ONLY IF VTARGTAG IS ZERO.
055754,001844:                                                                                                  #  V1VEC         EQUALS  MPAC
055755,001845: 
055756,001846:                                                                                                  #  DEBRIS -
055757,001847:                                                                                                  #  RTNLAMB       ERASE   +0
055758,001848:                                                                                                  #  U2            ERASE   +5
055759,001849:                                                                                                  #  MAGVEC2       ERASE   +1
055760,001850:                                                                                                  #  UR1           ERASE   +5
055761,001851:                                                                                                  #  R1            EQUALS  31D
055762,001852:                                                                                                  #  UN            ERASE   +5
055763,001853:                                                                                                  #  SNTH          ERASE   +1
055764,001854:                                                                                                  #  CSTH          ERASE   +1
055765,001855:                                                                                                  #  1-CSTH        ERASE   +1
055766,001856:                                                                                                  #  CSTH-RHO      ERASE   +1
055767,001857: 
055768,001858: 04,3650                        COGAMAX            EQUALS   14D                                   #  CLOBBERS 1/MU
055769,001859: 04,3650                        COGAMIN            EQUALS   8D                                    
055770,001860: 04,3650                        DCOGA              EQUALS   12D                                   
055771,001861: 
055772,001862:                                                                                                  #  TWEEKIT       EQUALS  40D
055773,001863:                                                                                                  #  P             ERASE   +1

Page 1277

055775,001865:                                                                                                  #  COGA          ERASE   +1
055776,001866:                                                                                                  #  R1A           ERASE   +1
055777,001867:                                                                                                  #  X             EQUALS  20D
055778,001868:                                                                                                  #  XSQ           EQUALS  22D
055779,001869:                                                                                                  #  XI            EQUALS  24D
055780,001870:                                                                                                  #  S(XI)         EQUALS  26D
055781,001871:                                                                                                  #  XSQC(XI)      EQUALS  28D
055782,001872:                                                                                                  #  T             EQUALS  30D
055783,001873:                                                                                                  #  KEPC1         EQUALS  34D
055784,001874:                                                                                                  #  KEPC2         EQUALS  36D
055785,001875:                                                                                                  #  SLOPESW
055786,001876:                                                                                                  #  SOLNSW
055787,001877: 
055788,001878:                                                                                                  #  OTHERS -
055789,001879:                                                                                                  #  RVEC          EQUALS  R1VEC
055790,001880:                                                                                                  #  VVEC          ERASE   +5
055791,001881:                                                                                                  #  COGAFLAG
055792,001882:                                                                                                  #  RVSW
055793,001883:                                                                                                  #  INFINFLG
055794,001884:                                                                                                  #  APSESW
055795,001885:                                                                                                  #  360SW
055796,001886:                                                                                                  #  RTNTT         EQUALS  RTNLAMB
055797,001887:                                                                                                  #  ECC           ERASE   +1
055798,001888:                                                                                                  #  RTNTR         EQUALS  RTNLAMB
055799,001889:                                                                                                  #  RTNAPSE       EQUALS  RTNLAMB
055800,001890:                                                                                                  #  R2            EQUALS  MAGVEC2
055801,001891: 
055802,001892: 04,3650                        COSF               EQUALS   24D                                   
055803,001893: 
055804,001894:                                                                                                  #  RTNPRM        ERASE   +0
055805,001895:                                                                                                  #  SGNRDOT       ERASE   +0
055806,001896:                                                                                                  #  RDESIRED      ERASE   +1
055807,001897: 
055808,001898: 
055809,001899:                                                                                                  #  ITERATOR SUBROUTINE
055810,001900:                                                                                                  #  ORDERSW
055811,001901: 04,3650                        MAX                EQUALS   14D                                   #  CLOBBERS 1/MU
055812,001902: 04,3650                        MIN                EQUALS   8D                                    
055813,001903: 
055814,001904:                                                                                                  #  INDEP         ERASE   +1
055815,001905: 
055816,001906: 04,3650                        DELINDEP           EQUALS   12D                                   
055817,001907: 04,3650                        ITERCTR            EQUALS   22D                                   
055818,001908: 04,3650                        DEP                EQUALS   30D                                   
055819,001909: 
055820,001910:                                                                                                  #  DELDEP        ERASE   +1
055821,001911:                                                                                                  #  DEPREV        ERASE   +1
055822,001912: 
055823,001913: 04,3650                        TWEEKIT            EQUALS   40D                                   
055824,001914: 
055825,001915: 
055826,001916:                                                                                                  #  MORE KEPLER
055827,001917:                                                                                                  #  EPSILONT      ERASE   +1
055828,001918: 

Page 1278

055830,001920:                                                                                                  #  MORE LAMBERT
055831,001921:                                                                                                  #  TERRLAMB      EQUALS  DELDEP
055832,001922:                                                                                                  #  TPREV         EQUALS  DEPREV
055833,001923:                                                                                                  #  EPSILONL      EQUALS  EPSILONT +2     DOUBLE PRECISION WORD
055834,001924: 
055835,001925: 

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