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.

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

Page 1232

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

Page 1233

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

Page 1234

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

Page 1235

054088,000160:                                                                                                  #          * SCALE FACTOR *
054089,000161:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054090,000162:                                                                                                  #  --------*--------------*                         -----------------------
054091,000163:                                                                                                  #  URRECT  * +1           *DP UNIT VECTOR OF INITIAL POSITION
054092,000164:                                                                                                  #  R1      * +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION IN METERS
054093,000165:                                                                                                  #          * +27 FOR MOON *
054094,000166:                                                                                                  #  ALPHA   * -22 FOR EARTH*DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS
054095,000167:                                                                                                  #          * -20 FOR MOON *
054096,000168:                                                                                                  #  TMODULO * +28          *DP INTEGRAL NUMBER OF PERIODS IN  CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A
054097,000169:                                                                                                  #          *              *TAU. OF LESS THAN ONE PERIOD.
054098,000170: 
054099,000171:                                                                                                  #  PARAMETERS OF NO USE -
054100,000172:                                                                                                  #        DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D.
054101,000173: 

Page 1236

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

Page 1237

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

Page 1238

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

Page 1239

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

Page 1240

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

Page 1241

054303,000375:                                                                                                  #  0D - 5D * +29 FOR EARTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 6D)
054304,000376:                                                                                                  #          * +27 FOR MOON *
054305,000377: 
054306,000378:                                                                                                  #        FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
054307,000379: 
054308,000380:                                                                                                  #  DEBRIS -
054309,000381:                                                                                                  #        PARAMETERS WHICH MAY BE OF USE -
054310,000382: 
054311,000383:                                                                                                  #          * SCALE FACTOR *
054312,000384:                                                                                                  #  VARIABLE*IN POWERS OF 2*                         DESCRIPTION AND REMARKS
054313,000385:                                                                                                  #  --------*--------------*                         -----------------------
054314,000386:                                                                                                  #  R1 (32D)* +29 FOR EARTH*DP MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS
054315,000387:                                                                                                  #          * +27 FOR MOON *
054316,000388:                                                                                                  #  R1A     * +6           *DP RATIO OF R1 TO SEMIMAJOR AXIS (NEG. FOR HYPERBOLIC TRAJECTORIES)
054317,000389:                                                                                                  #  P       * +4           *DP RATIO OF SEMILATUS RECTUM TO R1
054318,000390:                                                                                                  #  COGA    * +5           *DP COTAN OF ANGLE BETWEEN RVEC AND VVEC
054319,000391:                                                                                                  #  UR1     * +1           *DP UNIT VECTOR OF RVEC
054320,000392:                                                                                                  #  U2      * +1           *DP UNIT VECTOR OF VVEC
054321,000393:                                                                                                  #  UN      * +1           *DP UNIT VECTOR OF UR1*U2
054322,000394: 
054323,000395:                                                                                                  #  PARAMETERS OF NO USE -
054324,000396:                                                                                                  #        SP PARAMETERS - RTNTT, GEOMSGN, RTNPRM, MAGVEC2=R2 (DP), PLUS PUSHLIST LOCATIONS 0-11D, 14D-21D, 24D-39D, 41D
054325,000397:                                                                                                  #        ADDITIONAL INTERPRETIVE SWITCHES USED - NORMSW, 360SW
054326,000398: 

Page 1242

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

Page 1243

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

Page 1244

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

Page 1245

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

Page 1246

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

Page 1247

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

Page 1248

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

Page 1249

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

Page 1250

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

Page 1251

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

Page 1252

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

Page 1253

054833,000905: 12,2420           00025                                    X                                     
054834,000906: 12,2421           77615                           DAD                                            
054835,000907: 12,2422           01344                                    XMODULO                               
054836,000908: 12,2423           01553                           STORE    XPREV                                 
054837,000909: 12,2424           77650                           GOTO                                           
054838,000910: 12,2425           02270                                    KEPRTN                                
054839,000911: 

Page 1254

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

Page 1255

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

Page 1256

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

Page 1257

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

Page 1258

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

Page 1259

055039,001111: 04,2000                                           SETLOC   CONICS1                               
055040,001112: 04,2000                                           BANK                                           
055041,001113: 
055042,001114: 04,3472                                           COUNT    04/CONIC                              
055043,001115:                                                                                                  #  DO NOT DISTURB THE ORDER OF THESE CDS, OVERLAYS HAVE BEEN MADE.
055044,001116: 04,3472           00000        BEE17              DEC      0          B-14                       #  KEEP WITH D1/8 2DEC 1.0B-17 (0000004000)
055045,001117: 04,3473           04000 00000  D1/8               2DEC     1.0        B-3                        
055046,001118: 04,3475           00200 00000  D1/128             2DEC     1.0        B-7                        
055047,001119: 04,3477           00400 00000  D1/64              2DEC     1.0        B-6                        
055048,001120: 04,3501           10000 00000  D1/4               2DEC     1.0        B-2                        
055049,001121: 04,3503           02000 00000  D1/16              2DEC     1.0        B-4                        
055050,001122: 04,3505           01000 00000  D1/32              2DEC     1.0        B-5                        
055051,001123: 04,3507           00020 00000  D1/1024            2DEC     1.0        B-10                       
055052,001124: 04,3511           00100 00000  D1/256             2DEC     1.0        B-8                        
055053,001125: 04,3513           34631 23146  DP9/10             2DEC     .9                                    
055054,001126: 04,3515  04,3455               KEPZERO            EQUALS   LO6ZEROS                              
055055,001127: 04,3515           77467 77777  -50SC              2DEC     -50.0      B-12                       
055056,001128: 04,3517           03110 17665  2PISC              2DEC     6.28318530 B-6                        
055057,001129: 04,3521  04,3504               BEE19              EQUALS   D1/32      -1                         #  2DEC 1.0 B-19 (00000 01000)
055058,001130: 04,3521  04,3510               BEE22              EQUALS   D1/256     -1                         #  2DEC 1.0 B-22 (00000 00100)
055059,001131: 04,3521           00000 00001  ONEBIT             2DEC     1.0        B-28                       
055060,001132: 04,3523           37767 37737  COGUPLIM           2DEC     .999511597                            
055061,001133: 04,3525           40010 40040  COGLOLIM           2DEC     -.999511597                            
055062,001134: 

Page 1260

055064,001136: 12,2000                                           SETLOC   CONICS                                
055065,001137: 12,2000                                           BANK                                           
055066,001138: 
055067,001139: 12,2737                                           COUNT    12/CONIC                              
055068,001140: 
055069,001141: 12,2737           40220        TIMETHET           STQ      SETPD                                 #                                PL AT 0
055070,001142: 12,2740           02712                                    RTNTT                                 
055071,001143: 12,2741           00001                                    0                                     
055072,001144: 12,2742           63375                           VLOAD    PDVL                                  #  SETUP FOR PARAM CALL          PL AT 6
055073,001145: 12,2743           02657                                    RVEC                                  
055074,001146: 12,2744           02746                                    VVEC                                  
055075,001147: 12,2745           77624                           CALL                                           
055076,001148: 12,2746           11527                                    PARAM                                 
055077,001149: 12,2747           45000                           BOV      CALL                                  
055078,001150: 12,2750           24767                                    COGAOVFL                              #                                PL AT 0
055079,001151: 12,2751           24772                                    GETX                                  
055080,001152: 12,2752           43145        COMMNOUT           DLOAD    BON                                   
055081,001153: 12,2753           00031                                    XI                                    
055082,001154: 12,2754           04310                                    INFINFLG                              
055083,001155: 12,2755           02712                                    RTNTT                                 
055084,001156: 12,2756           45014                           CLEAR    CALL                                  
055085,001157: 12,2757           04273                                    COGAFLAG                              
055086,001158: 12,2760           24426                                    DELTIME                               
055087,001159: 12,2761           45014                           BON      CALL                                  
055088,001160: 12,2762           03706                                    RVSW                                  
055089,001161: 12,2763           02712                                    RTNTT                                 
055090,001162: 12,2764           24660                                    NEWSTATE                              
055091,001163: 12,2765           77650                           GOTO                                           
055092,001164: 12,2766           02712                                    RTNTT                                 
055093,001165: 
055094,001166: 12,2767           77614        COGAOVFL           SETGO                                          
055095,001167: 12,2770           04033                                    COGAFLAG                              
055096,001168: 12,2771           02712                                    RTNTT                                 

Page 1261

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

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

055143,001215: 04,3573           77656        GEOM               UNIT                                           #  MPAC=V2VEC, 0D=R1VEC          PL AT 6
055144,001216: 04,3574           16714                           STODL    U2                                    #  U2 (+1)
055145,001217: 04,3575           00045                                    36D                                   
055146,001218: 04,3576           26722                           STOVL    MAGVEC2                               #                                PL AT 0
055147,001219: 04,3577           77656                           UNIT                                           
055148,001220: 04,3600           02724                           STORE    UR1                                   #  UR1 (+1)
055149,001221: 04,3601           72441                           DOT      SL1                                   
055150,001222: 04,3602           02714                                    U2                                    
055151,001223: 04,3603           77725                           PDDL                                           #  OD=CSTH (+1)                  PL AT 2
055152,001224: 04,3604           00045                                    36D                                   

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

055155,001227: 04,3605           24041                           STOVL    R1                                    #  R1 (+29 OR +27)
055156,001228: 04,3606           02724                                    UR1                                   
055157,001229: 04,3607           76435                           VXV      VSL1                                  
055158,001230: 04,3610           02714                                    U2                                    
055159,001231: 04,3611           75214                           BON      SIGN                                  
055160,001232: 04,3612           03705                                    NORMSW                                
055161,001233: 04,3613           11625                                    HAVENORM                              
055162,001234: 04,3614           02675                                    GEOMSGN                               
055163,001235: 04,3615           40056                           UNIT     BOV                                   
055164,001236: 04,3616           11623                                    COLINEAR                              
055165,001237: 04,3617           16676        UNITNORM           STODL    UN                                    #  UN (+1)
055166,001238: 04,3620           00045                                    36D                                   
055167,001239: 04,3621           43565                           SIGN     RVQ                                   #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055168,001240: 04,3622           02675                                    GEOMSGN                               
055169,001241: 
055170,001242: 04,3623           52162        COLINEAR           VSR1     GOTO                                  
055171,001243: 04,3624           11617                                    UNITNORM                              
055172,001244: 
055173,001245: 04,3625           75246        HAVENORM           ABVAL    SIGN                                  
055174,001246: 04,3626           02675                                    GEOMSGN                               
055175,001247: 04,3627           77616                           RVQ                                            #  MPAC=SNTH (+1), 34D=SNTH.SNTH (+2)
055176,001248: 

Page 1263

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

Page 1264

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

Page 1265

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

Page 1266

055318,001390: 12,3175           50145        TRUE360X           DLOAD    BMN                                   
055319,001391: 12,3176           02744                                    R1A                                   
055320,001392: 12,3177           25210                                    INFINITY                              
055321,001393: 12,3200           60366                           SQRT     NORM                                  
055322,001394: 12,3201           00047                                    X1                                    
055323,001395: 12,3202           53665                           BDDV     SL*                                   
055324,001396: 12,3203           11520                                    2PISC                                 
055325,001397: 12,3204           20176                                    0          -3,1                       
055326,001398: 12,3205           41425                           DSU      PUSH                                  #  0D=2PI/SQRT(R1A) -X           PL AT 0,2
055327,001399: 12,3206           77650                           GOTO                                           
055328,001400: 12,3207           25071                                    XCOMMON                               
055329,001401: 12,3210           40001        INFINITY           SETPD    BOV                                   #  NO SOLUTION EXISTS SINCE CLOSURE THROUGH
055330,001402: 12,3211           00001                                    0                                     #  INFINITY IS REQUIRED
055331,001403: 12,3212           25213                                    OVFLCLR                               
055332,001404: 12,3213           43414        OVFLCLR            SET      RVQ                                   
055333,001405: 12,3214           04070                                    INFINFLG                              
055334,001406: 

Page 1267

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

Page 1268

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

Page 1269

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

Page 1270

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

Page 1271

055530,001602: 12,3503           77650                           GOTO                                           
055531,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

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

Page 1272

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

Page 1273

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

Page 1274

055677,001749: 12,3712           00041                                    R1                                    
055678,001750: 12,3713           72405                           DMP      SL1                                   
055679,001751: 12,3714           02742                                    P                                     
055680,001752: 12,3715           77671                           DDV                                            #                        PL AT 0
055681,001753: 12,3716           60325                           PDDL     NORM                                  #  0D=RP (+29 OR +27)    PL AT 2
055682,001754: 12,3717           02744                                    R1A                                   
055683,001755: 12,3720           00047                                    X1                                    
055684,001756: 12,3721           53725                           PDDL     SL*                                   #                        PL AT 4
055685,001757: 12,3722           00041                                    R1                                    
055686,001758: 12,3723           20174                                    0          -5,1                       
055687,001759: 12,3724           45271                           DDV      DSU                                   #                        PL AT 2,0
055688,001760: 12,3725           50000                           BOV      BMN                                   
055689,001761: 12,3726           25732                                    INFINAPO                              
055690,001762: 12,3727           25732                                    INFINAPO                              
055691,001763: 12,3730           77650                           GOTO                                           
055692,001764: 12,3731           02712                                    RTNAPSE                               
055693,001765: 12,3732           52145        INFINAPO           DLOAD    GOTO                                  #  RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
055694,001766: 12,3733           11467                                    LDPOSMAX                              
055695,001767: 12,3734           02712                                    RTNAPSE                               #  THAT PL IS AT 0.
055696,001768: 

Page 1275

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

Page 1276

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

Page 1277

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

Page 1278

055848,001920:                                                                                                  #  MORE LAMBERT
055849,001921:                                                                                                  #  TERRLAMB      EQUALS  DELDEP
055850,001922:                                                                                                  #  TPREV         EQUALS  DEPREV
055851,001923:                                                                                                  #  EPSILONL      EQUALS  EPSILONT +2     DOUBLE PRECISION WORD
055852,001924: 
055853,001925: 

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