Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

028895,000002:                                                                                                  ## Copyright:   Public domain.
028896,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
028897,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
028898,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
028899,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
028900,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
028901,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
028902,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
028903,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
028904,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
028905,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
028906,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
028907,000014:                                                                                                  ##              the original YUL assembler.
028908,000015:                                                                                                  ##
028909,000016:                                                                                                  ## Assembler:   yaYUL
028910,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028911,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
028912,000019:                                                                                                  ## Pages:       658-702
028913,000020:                                                                                                  ## Mod history: 2009-05-19 RSB  Adapted from the corresponding 
028914,000021:                                                                                                  ##                              Luminary131 file, using page 
028915,000022:                                                                                                  ##                              images from Luminary 1A.
028916,000023:                                                                                                  ##              2009-06-05 RSB  Corrected a typo.
028917,000024:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
028918,000025:                                                                                                  ##              2011-01-06 JL   Added missing comment characters.
028919,000026:                                                                                                  ##              2011-05-07 JL   Removed workaround.
028920,000027:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
028921,000028:                                                                                                  ##              2016-12-14 RSB  VNP00H -> VNPOOH.
028922,000029:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
028923,000030:                                                                                                  ##                              and corrected the errors found.
028924,000031:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
028925,000032:                                                                                                  ##                              proofing Luminary 69.
028926,000033:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116. 
028927,000034:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
028928,000035:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
028929,000036:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
028930,000037: 
028931,000038:                                                                                                  ## This source code has been transcribed or otherwise adapted from
028932,000039:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
028933,000040:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
028934,000041:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
028935,000042:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
028936,000043:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
028937,000044:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
028938,000045:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
028939,000046:                                                                                                  ## actually created.
028940,000047:                                                                                                  ##
028941,000048:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
028942,000049:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
028943,000050:                                                                                                  ## the listing from which it was transcribed. It has been verified to
028944,000051:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
028945,000052:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
028946,000053:                                                                                                  ##
028947,000054:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
028948,000055:                                                                                                  ##
028949,000056:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
028950,000057: 

Page 658

028952,000059:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028953,000060: 
028954,000061:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028955,000062:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
028956,000063: 
028957,000064:                                                                                                  #  PURPOSE
028958,000065: 
028959,000066:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028960,000067:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028961,000068:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
028962,000069: 
028963,000070:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028964,000071:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028965,000072: 
028966,000073:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028967,000074:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
028968,000075: 
028969,000076:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028970,000077: 
028971,000078:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028972,000079:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028973,000080: 
028974,000081:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028975,000082:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028976,000083:                                                                                                  #                ASTRONAUT/GROUND.
028977,000084: 
028978,000085:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028979,000086:                                                                                                  #                THRUSTING PROGRAM.
028980,000087: 
028981,000088:                                                                                                  #  ASSUMPTIONS
028982,000089: 
028983,000090:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028984,000091:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028985,000092:                                                                                                  #                THEREFORE -
028986,000093: 
028987,000094:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028988,000095:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028989,000096:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028990,000097:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028991,000098: 
028992,000099:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028993,000100:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
028994,000101: 
028995,000102:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028996,000103:                                                                                                  #                        ORBITS WAS MINIMIZED.
028997,000104: 
028998,000105:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028999,000106:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 659

029001,000108:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
029002,000109: 
029003,000110:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029004,000111:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
029005,000112:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029006,000113:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
029007,000114: 
029008,000115:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
029009,000116:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
029010,000117: 
029011,000118:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
029012,000119:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
029013,000120:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
029014,000121:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
029015,000122:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
029016,000123:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
029017,000124: 
029018,000125:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029019,000126:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029020,000127:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029021,000128:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029022,000129:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029023,000130:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029024,000131:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029025,000132:                                                                                                  #                THRUSTING MANEUVER.
029026,000133: 
029027,000134:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029028,000135: 
029029,000136:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029030,000137: 
029031,000138:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029032,000139:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029033,000140:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029034,000141:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029035,000142: 
029036,000143:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029037,000144:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029038,000145: 
029039,000146:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029040,000147:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029041,000148:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029042,000149: 
029043,000150:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
029044,000151:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029045,000152:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029046,000153:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029047,000154:                                                                                                  #                THROUGH THE USE OF V06N52.
029048,000155: 
029049,000156:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029050,000157:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 660

029052,000159:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029053,000160:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029054,000161:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
029055,000162: 
029056,000163:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029057,000164: 
029058,000165:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
029059,000166: 
029060,000167:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
029061,000168: 
029062,000169:                                                                                                  #  INPUT
029063,000170: 
029064,000171:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
029065,000172:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
029066,000173:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029067,000174:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
029068,000175: 
029069,000176:                                                                                                  #  OUTPUT
029070,000177: 
029071,000178:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029072,000179:                                                                                                  #        (2)     TTOGO           TIME TO GO
029073,000180:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029074,000181:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
029075,000182:                                                                                                  #                 OR
029076,000183:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
029077,000184:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
029078,000185:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
029079,000186:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
029080,000187:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
029081,000188:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
029082,000189: 
029083,000190:                                                                                                  #  DOWNLINK
029084,000191: 
029085,000192:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
029086,000193:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
029087,000194:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
029088,000195:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029089,000196:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
029090,000197:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
029091,000198:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
029092,000199: 
029093,000200:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029094,000201: 
029095,000202:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
029096,000203:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
029097,000204:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
029098,000205:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029099,000206: 
029100,000207:                                                                                                  #  SUBROUTINES USED
029101,000208: 
029102,000209:                                                                                                  #        AVFLAGA

Page 661

029104,000211:                                                                                                  #        AVFLAGP
029105,000212:                                                                                                  #        VNPOOH
029106,000213:                                                                                                  #        DISPLAYE
029107,000214:                                                                                                  #        SELECTMU
029108,000215:                                                                                                  #        PRECSET
029109,000216:                                                                                                  #        S33/34.1
029110,000217:                                                                                                  #        ALARM
029111,000218:                                                                                                  #        BANKCALL
029112,000219:                                                                                                  #        GOFLASH
029113,000220:                                                                                                  #        GOTOPOOH
029114,000221:                                                                                                  #        TIMETHET
029115,000222:                                                                                                  #        S34/35.2
029116,000223:                                                                                                  #        PERIAPO1
029117,000224:                                                                                                  #        SHIFTR1
029118,000225:                                                                                                  #        S34/35.5
029119,000226:                                                                                                  #        VN1645
029120,000227: 
029121,000228: 35,2000                                           SETLOC   CSI/CDH                               
029122,000229: 35,2000                                           BANK                                           
029123,000230: 35,2545  E7,1470                                  EBANK=   SUBEXIT                               
029124,000231: 35,2545                                           COUNT*   $$/P3474                              
029125,000232: 35,2545           02347        P34                TC       AVFLAGA                               
029126,000233: 35,2546           02550                           TC       P34/P74A                              
029127,000234: 35,2547           02354        P74                TC       AVFLAGP                               
029128,000235: 35,2550           02361        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029129,000236: 35,2551           33723                           CAF      V06N37                                #  TTPI
029130,000237: 35,2552           03712                           TC       VNPOOH                                
029131,000238: 35,2553           00006                           EXTEND                                         
029132,000239: 35,2554           33746                           DCA      130DEG                                
029133,000240: 35,2555           53621                           DXCH     CENTANG                               
029134,000241: 35,2556           32417                           CAF      P30ZERO                               
029135,000242: 35,2557           55466                           TS       NN                                    
029136,000243: 35,2560           03674                           TC       DISPLAYE                              #  ELEV AND CENTANG
029137,000244: 35,2561           06037                           TC       INTPRET                               
029138,000245: 35,2562           71214                           CLEAR    DLOAD                                 
029139,000246: 35,2563           01270                                    ETPIFLAG                              
029140,000247: 35,2564           03636                                    TTPI                                  
029141,000248: 35,2565           17442                           STODL    TIG                                   
029142,000249: 35,2566           02257                                    ELEV                                  
029143,000250: 35,2567           43054                           BZE      SET                                   
029144,000251: 35,2570           72572                                    P34/P74B                              
029145,000252: 35,2571           01070                                    ETPIFLAG                              
029146,000253: 35,2572           77624        P34/P74B           CALL                                           
029147,000254: 35,2573           20000                                    SELECTMU                              
029148,000255: 35,2574                        DELELO             EQUALS   26D                                   
029149,000256: 35,2574           43145        P34/P74C           DLOAD    SET                                   
029150,000257: 35,2575           06522                                    ZEROVECS                              
029151,000258: 35,2576           03460                                    ITSWICH                               
029152,000259: 35,2577           43014                           BON      CLEAR                                 
029153,000260: 35,2600           01310                                    ETPIFLAG                              

Page 662

029155,000262: 35,2601           72603                                    SWCHSET                               
029156,000263: 35,2602           03660                                    ITSWICH                               
029157,000264: 35,2603           02317        SWCHSET            STORE    NOMTPI                                
029158,000265: 35,2604           43345        INTLOOP            DLOAD    DAD                                   
029159,000266: 35,2605           03636                                    TTPI                                  
029160,000267: 35,2606           02317                                    NOMTPI                                
029161,000268: 35,2607           34041                           STCALL   TDEC1                                 
029162,000269: 35,2610           46360                                    PRECSET                               
029163,000270: 35,2611           77624                           CALL                                           
029164,000271: 35,2612           72764                                    S33/34.1                              
029165,000272: 35,2613           77454                           BZE      EXIT                                  
029166,000273: 35,2614           72625                                    SWCHCLR                               
029167,000274: 35,2615           05567                           TC       ALARM                                 
029168,000275: 35,2616           00611                           OCT      611                                   
029169,000276: 35,2617           35006                           CAF      V05N09                                
029170,000277: 35,2620           04616                           TC       BANKCALL                              
029171,000278: 35,2621           20476                           CADR     GOFLASH                               
029172,000279: 35,2622           06001                           TC       GOTOPOOH                              
029173,000280: 35,2623           02550                           TC       P34/P74A                              #  PROCEED
029174,000281: 35,2624           02615                           TC       -7                                    #  V32
029175,000282: 
029176,000283: 35,2625           43014        SWCHCLR            BONCLR   BON                                   
029177,000284: 35,2626           03600                                    ITSWICH                               
029178,000285: 35,2627           72604                                    INTLOOP                               
029179,000286: 35,2630           01310                                    ETPIFLAG                              
029180,000287: 35,2631           72635                                    P34/P74D                              #  DISPLAY TTPI
029181,000288: 35,2632           77776                           EXIT                                           
029182,000289: 35,2633           03674                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
029183,000290: 35,2634           02640                           TC       P34/P74E                              
029184,000291: 35,2635           77776        P34/P74D           EXIT                                           
029185,000292: 35,2636           33723                           CAF      V06N37                                #  TTPI
029186,000293: 35,2637           03712                           TC       VNPOOH                                
029187,000294: 35,2640           06037        P34/P74E           TC       INTPRET                               
029188,000295: 35,2641           71201                           SETPD    DLOAD                                 
029189,000296: 35,2642           00001                                    0D                                    
029190,000297: 35,2643           02777                                    RTX1                                  
029191,000298: 35,2644           14047                           STODL    X1                                    
029192,000299: 35,2645           03621                                    CENTANG                               
029193,000300: 35,2646           71406                           PUSH     COS                                   
029194,000301: 35,2647           16732                           STODL    CSTH                                  
029195,000302: 35,2650           77756                           SIN                                            
029196,000303: 35,2651           26730                           STOVL    SNTH                                  
029197,000304: 35,2652           03552                                    RPASS3                                
029198,000305: 35,2653           77657                           VSR*                                           
029199,000306: 35,2654           57176                                    0,2                                   
029200,000307: 35,2655           26655                           STOVL    RVEC                                  
029201,000308: 35,2656           03560                                    VPASS3                                
029202,000309: 35,2657           43057                           VSR*     SET                                   
029203,000310: 35,2660           57176                                    0,2                                   
029204,000311: 35,2661           03466                                    RVSW                                  

Page 663

029206,000313: 35,2662           36744                           STCALL   VVEC                                  
029207,000314: 35,2663           24732                                    TIMETHET                              
029208,000315: 35,2664           77745                           DLOAD                                          
029209,000316: 35,2665           03636                                    TTPI                                  
029210,000317: 35,2666           03610                           STORE    INTIME                                #  FOR INITVEL
029211,000318: 35,2667           77615                           DAD                                            
029212,000319: 35,2670           00037                                    T                                     #  RENDEZVOUS TIME
029213,000320: 35,2671           37631                           STCALL   TPASS4                                #  FOR INITVEL
029214,000321: 35,2672           73306                                    S34/35.2                              
029215,000322: 35,2673           51575                           VLOAD    ABVAL                                 
029216,000323: 35,2674           02366                                    DELVEET3                              
029217,000324: 35,2675           27576                           STOVL    DELVTPI                               
029218,000325: 35,2676           03506                                    VPASS4                                
029219,000326: 35,2677           51451                           VSU      ABVAL                                 
029220,000327: 35,2700           03566                                    VTPRIME                               
029221,000328: 35,2701           26350                           STOVL    DELVTPF                               
029222,000329: 35,2702           03536                                    RACT3                                 
029223,000330: 35,2703           45115                           PDVL     CALL                                  
029224,000331: 35,2704           02337                                    VIPRIME                               
029225,000332: 35,2705           46316                                    PERIAPO1                              
029226,000333: 35,2706           77624                           CALL                                           
029227,000334: 35,2707           46426                                    SHIFTR1                               
029228,000335: 35,2710           17606                           STODL    POSTTPI                               
029229,000336: 35,2711           03636                                    TTPI                                  
029230,000337: 35,2712           03442                           STORE    TIG                                   
029231,000338: 35,2713           77776                           EXIT                                           
029232,000339: 35,2714           33725                           CAF      V06N58                                
029233,000340: 35,2715           03712                           TC       VNPOOH                                
029234,000341: 35,2716           06037                           TC       INTPRET                               
029235,000342: 35,2717           77624                           CALL                                           
029236,000343: 35,2720           73522                                    S34/35.5                              
029237,000344: 35,2721           77624                           CALL                                           
029238,000345: 35,2722           73606                                    VN1645                                
029239,000346: 35,2723           77650                           GOTO                                           
029240,000347: 35,2724           72574                                    P34/P74C                              

Page 664

029242,000349:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
029243,000350: 
029244,000351:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
029245,000352:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
029246,000353: 
029247,000354:                                                                                                  #  PURPOSE
029248,000355: 
029249,000356:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029250,000357:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
029251,000358:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
029252,000359:                                                                                                  #                VEHICLE RENDEZVOUS.
029253,000360: 
029254,000361:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029255,000362:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029256,000363:                                                                                                  #                ASTRONAUT/GROUND.
029257,000364: 
029258,000365:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
029259,000366:                                                                                                  #                THRUSTING PROGRAM.
029260,000367: 
029261,000368:                                                                                                  #  ASSUMPTIONS
029262,000369: 
029263,000370:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029264,000371: 
029265,000372:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029266,000373:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
029267,000374: 
029268,000375:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
029269,000376:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
029270,000377:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
029271,000378:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
029272,000379:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
029273,000380:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
029274,000381: 
029275,000382:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029276,000383: 
029277,000384:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029278,000385:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029279,000386:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029280,000387:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029281,000388: 
029282,000389:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029283,000390:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029284,000391: 
029285,000392:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029286,000393:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029287,000394:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029288,000395: 
029289,000396:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
029290,000397:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
029291,000398:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
029292,000399: 

Page 665

029294,000401:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
029295,000402:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029296,000403:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029297,000404:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029298,000405:                                                                                                  #                THROUGH THE USE OF V06N52.
029299,000406: 
029300,000407:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029301,000408:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029302,000409:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029303,000410:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029304,000411:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
029305,000412: 
029306,000413:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029307,000414: 
029308,000415:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
029309,000416: 
029310,000417:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
029311,000418: 
029312,000419:                                                                                                  #  INPUT
029313,000420: 
029314,000421:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
029315,000422: 
029316,000423:                                                                                                  #  OUTPUT
029317,000424: 
029318,000425:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029319,000426:                                                                                                  #        (2)     TTOGO           TIME TO GO
029320,000427:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029321,000428:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
029322,000429:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
029323,000430: 
029324,000431:                                                                                                  #  DOWNLINK
029325,000432: 
029326,000433:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
029327,000434:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
029328,000435:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
029329,000436: 
029330,000437:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029331,000438: 
029332,000439:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
029333,000440:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
029334,000441:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
029335,000442:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029336,000443: 
029337,000444:                                                                                                  #  SUBROUTINES USED
029338,000445: 
029339,000446:                                                                                                  #        AVFLAGA
029340,000447:                                                                                                  #        AVFLAGP
029341,000448:                                                                                                  #        LOADTIME
029342,000449:                                                                                                  #        SELECTMU
029343,000450:                                                                                                  #        PRECSET
029344,000451:                                                                                                  #        S34/35.1
029345,000452:                                                                                                  #        S34/35.2

Page 666

029347,000454:                                                                                                  #        S34/35.5
029348,000455:                                                                                                  #        VN1645
029349,000456: 
029350,000457: 35,2725                                           COUNT*   $$/P3575                              
029351,000458: 35,2725  E7,1575                                  EBANK=   KT                                    
029352,000459: 
029353,000460: 35,2725           02347        P35                TC       AVFLAGA                               
029354,000461: 35,2726           00006                           EXTEND                                         
029355,000462: 35,2727           31401                           DCA      ATIGINC                               
029356,000463: 35,2730           02734                           TC       P35/P75A                              
029357,000464: 35,2731           02354        P75                TC       AVFLAGP                               
029358,000465: 35,2732           00006                           EXTEND                                         
029359,000466: 35,2733           31403                           DCA      PTIGINC                               
029360,000467: 35,2734           53576        P35/P75A           DXCH     KT                                    
029361,000468: 35,2735           02361                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029362,000469: 35,2736           06037                           TC       INTPRET                               
029363,000470: 35,2737           77624                           CALL                                           
029364,000471: 35,2740           20000                                    SELECTMU                              
029365,000472: 35,2741           77634        P35/P75B           RTB                                            
029366,000473: 35,2742           21573                                    LOADTIME                              
029367,000474: 35,2743           03612                           STORE    TSTRT                                 
029368,000475: 35,2744           77615                           DAD                                            
029369,000476: 35,2745           03576                                    KT                                    
029370,000477: 35,2746           03442                           STORE    TIG                                   
029371,000478: 35,2747           03610                           STORE    INTIME                                #  FOR INITVEL
029372,000479: 35,2750           34041                           STCALL   TDEC1                                 
029373,000480: 35,2751           46360                                    PRECSET                               #  ADVANCE BOTH VEHICLES
029374,000481: 35,2752           77624                           CALL                                           
029375,000482: 35,2753           73274                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
029376,000483: 35,2754           77624                           CALL                                           
029377,000484: 35,2755           73306                                    S34/35.2                              #  GET DELTA V(LV)
029378,000485: 35,2756           77624                           CALL                                           
029379,000486: 35,2757           73522                                    S34/35.5                              
029380,000487: 35,2760           77624                           CALL                                           
029381,000488: 35,2761           73606                                    VN1645                                
029382,000489: 35,2762           77650                           GOTO                                           
029383,000490: 35,2763           72741                                    P35/P75B                              

Page 667

029385,000492:                                                                                                  #  ..... S33/34.1 .....
029386,000493: 
029387,000494: 35,2764           66220        S33/34.1           STQ      SSP                                   
029388,000495: 35,2765           03463                                    NORMEX                                
029389,000496: 35,2766           03614                                    TITER                                 
029390,000497: 35,2767           40000                           OCT      40000                                 
029391,000498: 35,2770           40345                           DLOAD    SETPD                                 
029392,000499: 35,2771           33734                                    MAX250                                
029393,000500: 35,2772           00001                                    0D                                    
029394,000501: 35,2773           27574                           STOVL    SECMAX                                
029395,000502: 35,2774           03536                                    RACT3                                 
029396,000503: 35,2775           27500                           STOVL    RAPREC                                
029397,000504: 35,2776           03544                                    VACT3                                 
029398,000505: 35,2777           27506                           STOVL    VAPREC                                
029399,000506: 35,3000           03552                                    RPASS3                                
029400,000507: 35,3001           27522                           STOVL    RPPREC                                
029401,000508: 35,3002           03560                                    VPASS3                                
029402,000509: 35,3003           03530                           STORE    VPPREC                                
029403,000510: 35,3004           77624        ELCALC             CALL                                           
029404,000511: 35,3005           73274                                    S34/35.1                              #  NORMAL AND LOS
029405,000512: 35,3006           63235                           VXV      PDVL                                  
029406,000513: 35,3007           03536                                    RACT3                                 #  (RA*VA)*RA 0D
029407,000514: 35,3010           53515                           PDVL     UNIT                                  #  ULOS AT 6D
029408,000515: 35,3011           03536                                    RACT3                                 
029409,000516: 35,3012           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
029410,000517: 35,3013           51352                           VSL2     BVSU                                  
029411,000518: 35,3014           02311                                    ULOS                                  
029412,000519: 35,3015           63256                           UNIT     PDVL                                  #  UP AT 0D
029413,000520: 35,3016           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
029414,000521: 35,3017           00001                                    0D                                    #  UP IN MPAC
029415,000522: 35,3020           75241                           DOT      SIGN                                  
029416,000523: 35,3021           02311                                    ULOS                                  
029417,000524: 35,3022           65552                           SL1      ACOS                                  
029418,000525: 35,3023           50315                           PDVL     DOT                                   #  EA AT 0D
029419,000526: 35,3024           02311                                    ULOS                                  
029420,000527: 35,3025           03536                                    RACT3                                 
029421,000528: 35,3026           71244                           BPL      DLOAD                                 
029422,000529: 35,3027           73032                                    TESTY                                 
029423,000530: 35,3030           06530                                    DPPOSMAX                              
029424,000531: 35,3031           41425                           DSU      PUSH                                  
029425,000532: 35,3032           71214        TESTY              BOFF     DLOAD                                 
029426,000533: 35,3033           03740                                    ITSWICH                               
029427,000534: 35,3034           73261                                    ELEX                                  
029428,000535: 35,3035           03576                                    DELEL                                 
029429,000536: 35,3036           14033                           STODL    DELELO                                
029430,000537: 35,3037           77625                           DSU                                            
029431,000538: 35,3040           02257                                    ELEV                                  
029432,000539: 35,3041           03576                           STORE    DELEL                                 
029433,000540: 35,3042           45246                           ABS      DSU                                   
029434,000541: 35,3043           33740                                    ELEPS                                 

Page 668

029436,000543: 35,3044           77640                           BMN                                            
029437,000544: 35,3045           73271                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
029438,000545: 35,3046           70535        FIGTIME            SLOAD    SR1                                   
029439,000546: 35,3047           03614                                    TITER                                 
029440,000547: 35,3050           72030                           BHIZ     LXA,1                                 
029441,000548: 35,3051           03463                                    NORMEX                                #  TOO MANY ITERATIONS
029442,000549: 35,3052           00154                                    MPAC                                  
029443,000550: 35,3053           77330                           SXA,1    VLOAD                                 
029444,000551: 35,3054           03613                                    TITER                                 
029445,000552: 35,3055           03552                                    RPASS3                                
029446,000553: 35,3056           65256                           UNIT     PDDL                                  
029447,000554: 35,3057           00045                                    36D                                   
029448,000555: 35,3060           53515                           PDVL     UNIT                                  
029449,000556: 35,3061           03536                                    RACT3                                 
029450,000557: 35,3062           77725                           PDDL                                           
029451,000558: 35,3063           41525                           PDDL     PUSH                                  
029452,000559: 35,3064           00045                                    36D                                   
029453,000560: 35,3065           77621                           BDSU                                           
029454,000561: 35,3066           00015                                    12D                                   
029455,000562: 35,3067           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
029456,000563: 35,3070           06520                                    DPHALF                                
029457,000564: 35,3071           41425                           DSU      PUSH                                  
029458,000565: 35,3072           02257                                    ELEV                                  
029459,000566: 35,3073           50165                           SIGN     BMN                                   
029460,000567: 35,3074           00037                                    30D                                   
029461,000568: 35,3075           03463                                    NORMEX                                
029462,000569: 35,3076           71545                           DLOAD    COS                                   
029463,000570: 35,3077           56205                           DMP      DDV                                   
029464,000571: 35,3100           00017                                    14D                                   
029465,000572: 35,3101           00015                                    12D                                   
029466,000573: 35,3102           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
029467,000574: 35,3103           00035                           STORE    28D                                   
029468,000575: 35,3104           44246                           ABS      BDSU                                  
029469,000576: 35,3105           06520                                    DPHALF                                
029470,000577: 35,3106           77240                           BMN      VLOAD                                 
029471,000578: 35,3107           03463                                    NORMEX                                
029472,000579: 35,3110           02261                                    UNRM                                  
029473,000580: 35,3111           53435                           VXV      UNIT                                  
029474,000581: 35,3112           00007                                    6D                                    #  UN*RA
029475,000582: 35,3113           41241                           DOT      DMP                                   
029476,000583: 35,3114           03544                                    VACT3                                 
029477,000584: 35,3115           00015                                    12D                                   
029478,000585: 35,3116           47315                           PDVL     VXV                                   
029479,000586: 35,3117           00001                                    0D                                    
029480,000587: 35,3120           03560                                    VPASS3                                
029481,000588: 35,3121           53435                           VXV      UNIT                                  
029482,000589: 35,3122           00001                                    0D                                    #  (RP*VP)*RP
029483,000590: 35,3123           41241                           DOT      DMP                                   
029484,000591: 35,3124           03560                                    VPASS3                                
029485,000592: 35,3125           00017                                    14D                                   

Page 669

029487,000594: 35,3126           77621                           BDSU                                           
029488,000595: 35,3127           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
029489,000596: 35,3130           00047                                    X1                                    
029490,000597: 35,3131           00007                                    6D                                    
029491,000598: 35,3132           50235                           VXV      DOT                                   
029492,000599: 35,3133           00001                                    0D                                    
029493,000600: 35,3134           02261                                    UNRM                                  #  RA*RP.UN 14D
029494,000601: 35,3135           50315                           PDVL     DOT                                   
029495,000602: 35,3136           00001                                    0D                                    
029496,000603: 35,3137           00007                                    6D                                    
029497,000604: 35,3140           65552                           SL1      ACOS                                  
029498,000605: 35,3141           77765                           SIGN                                           
029499,000606: 35,3142           43225                           DSU      DAD                                   #  ALPHA PI
029500,000607: 35,3143           06520                                    DPHALF                                
029501,000608: 35,3144           02257                                    ELEV                                  
029502,000609: 35,3145           65525                           PDDL     ACOS                                  
029503,000610: 35,3146           00035                                    28D                                   
029504,000611: 35,3147           75221                           BDSU     SIGN                                  
029505,000612: 35,3150           06520                                    DPHALF                                
029506,000613: 35,3151           00037                                    30D                                   #  CONTAINS RP-RA
029507,000614: 35,3152           77615                           DAD                                            
029508,000615: 35,3153           56205                           DMP      DDV                                   
029509,000616: 35,3154           33732                                    TWOPI                                 
029510,000617: 35,3155           77605                           DMP                                            
029511,000618: 35,3156           41257                           SL*      DMP                                   
029512,000619: 35,3157           20176                                    0          -3,1                       
029513,000620: 35,3160           51406                           PUSH     ABS                                   
029514,000621: 35,3161           50025                           DSU      BMN                                   
029515,000622: 35,3162           03574                                    SECMAX                                
029516,000623: 35,3163           73167                                    OKMAX                                 
029517,000624: 35,3164           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
029518,000625: 35,3165           03574                                    SECMAX                                
029519,000626: 35,3166           77606                           PUSH                                           
029520,000627: 35,3167           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
029521,000628: 35,3170           03614                                    TITER                                 
029522,000629: 35,3171           73177                                    REPETE                                
029523,000630: 35,3172           71331                           SSP      DLOAD                                 
029524,000631: 35,3173           03614                                    TITER                                 
029525,000632: 35,3174           37777                           OCT      37777                                 
029526,000633: 35,3175           77650                           GOTO                                           
029527,000634: 35,3176           73235                                    STORDELT                              
029528,000635: 35,3177           41345        REPETE             DLOAD    DMP                                   
029529,000636: 35,3200           03576                                    DELEL                                 
029530,000637: 35,3201           00033                                    DELELO                                
029531,000638: 35,3202           71244                           BPL      DLOAD                                 
029532,000639: 35,3203           73213                                    NEXTES                                
029533,000640: 35,3204           03574                                    SECMAX                                
029534,000641: 35,3205           77605                           DMP                                            
029535,000642: 35,3206           33736                                    THIRD                                 
029536,000643: 35,3207           17574                           STODL    SECMAX                                

Page 670

029538,000645: 35,3210           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
029539,000646: 35,3211           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
029540,000647: 35,3212           73223                                    RESIGN                                
029541,000648: 35,3213           51545        NEXTES             DLOAD    ABS                                   
029542,000649: 35,3214           03576                                    DELEL                                 
029543,000650: 35,3215           51525                           PDDL     ABS                                   
029544,000651: 35,3216           00033                                    DELELO                                
029545,000652: 35,3217           77625                           DSU                                            
029546,000653: 35,3220           71240                           BMN      DLOAD                                 
029547,000654: 35,3221           73226                                    REVERS                                #  WRONG DIRECTION
029548,000655: 35,3222           77646                           ABS                                            
029549,000656: 35,3223           52165        RESIGN             SIGN     GOTO                                  
029550,000657: 35,3224           03606                                    DELTEEO                               
029551,000658: 35,3225           73235                                    STORDELT                              
029552,000659: 35,3226           57545        REVERS             DLOAD    DCOMP                                 
029553,000660: 35,3227           03606                                    DELTEEO                               
029554,000661: 35,3230           70406                           PUSH     SR1                                   
029555,000662: 35,3231           03606                           STORE    DELTEEO                               
029556,000663: 35,3232           77615                           DAD                                            
029557,000664: 35,3233           77650                           GOTO                                           
029558,000665: 35,3234           73236                                    ADTIME                                
029559,000666: 35,3235           03606        STORDELT           STORE    DELTEEO                               
029560,000667: 35,3236           77615        ADTIME             DAD                                            
029561,000668: 35,3237           02317                                    NOMTPI                                #  SUM OF DELTA T:S
029562,000669: 35,3240           02317                           STORE    NOMTPI                                
029563,000670: 35,3241           63375                           VLOAD    PDVL                                  
029564,000671: 35,3242           03506                                    VAPREC                                
029565,000672: 35,3243           03500                                    RAPREC                                
029566,000673: 35,3244           77624                           CALL                                           
029567,000674: 35,3245           73462                                    GOINT                                 
029568,000675: 35,3246           77624                           CALL                                           
029569,000676: 35,3247           46402                                    ACTIVE                                #  STORE NEW RACT3 VACT3
029570,000677: 35,3250           63375                           VLOAD    PDVL                                  
029571,000678: 35,3251           03530                                    VPPREC                                
029572,000679: 35,3252           03522                                    RPPREC                                
029573,000680: 35,3253           77624                           CALL                                           
029574,000681: 35,3254           73462                                    GOINT                                 
029575,000682: 35,3255           77624                           CALL                                           
029576,000683: 35,3256           46412                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
029577,000684: 35,3257           77650                           GOTO                                           
029578,000685: 35,3260           73004                                    ELCALC                                
029579,000686: 35,3261           43345        ELEX               DLOAD    DAD                                   
029580,000687: 35,3262           03636                                    TTPI                                  
029581,000688: 35,3263           02317                                    NOMTPI                                
029582,000689: 35,3264           17636                           STODL    TTPI                                  
029583,000690: 35,3265           77614                           BON                                            
029584,000691: 35,3266           01310                                    ETPIFLAG                              
029585,000692: 35,3267           73271                                    TIMEX                                 
029586,000693: 35,3270           02257                           STORE    ELEV                                  
029587,000694: 35,3271           52145        TIMEX              DLOAD    GOTO                                  

Page 671

029589,000696: 35,3272           06522                                    ZEROVECS                              
029590,000697: 35,3273           03463                                    NORMEX                                
029591,000698: 

Page 672

029593,000700:                                                                                                  #  ..... S34/35.1 .....
029594,000701: 
029595,000702:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029596,000703:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
029597,000704: 
029598,000705: 35,3274           52375        S34/35.1           VLOAD    VSU                                   
029599,000706: 35,3275           03552                                    RPASS3                                
029600,000707: 35,3276           03536                                    RACT3                                 
029601,000708: 35,3277           41456                           UNIT     PUSH                                  
029602,000709: 35,3300           26311                           STOVL    ULOS                                  
029603,000710: 35,3301           03536                                    RACT3                                 
029604,000711: 35,3302           53435                           VXV      UNIT                                  
029605,000712: 35,3303           03544                                    VACT3                                 
029606,000713: 35,3304           02261                           STORE    UNRM                                  
029607,000714: 35,3305           77616                           RVQ                                            
029608,000715: 

Page 673

029610,000717:                                                                                                  #  ..... S34/35.2 .....
029611,000718: 
029612,000719:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029613,000720: 
029614,000721: 35,3306           77220        S34/35.2           STQ      VLOAD                                 
029615,000722: 35,3307           03470                                    SUBEXIT                               
029616,000723: 35,3310           03560                                    VPASS3                                
029617,000724: 35,3311           65315                           PDVL     PDDL                                  
029618,000725: 35,3312           03552                                    RPASS3                                
029619,000726: 35,3313           03610                                    INTIME                                
029620,000727: 35,3314           65325                           PDDL     PDDL                                  
029621,000728: 35,3315           03631                                    TPASS4                                
029622,000729: 35,3316           33732                                    TWOPI                                 #  CONIC
029623,000730: 35,3317           46125                           PDDL     BHIZ                                  
029624,000731: 35,3320           03467                                    NN                                    
029625,000732: 35,3321           73325                                    S3435.23                              
029626,000733: 35,3322           77745                           DLOAD                                          
029627,000734: 35,3323           41545                           DLOAD    PUSH                                  
029628,000735: 35,3324           06522                                    ZEROVECS                              #  PRECISION
029629,000736: 35,3325           77624        S3435.23           CALL                                           
029630,000737: 35,3326           73466                                    INTINT                                #  GET TARGET VECTOR
029631,000738: 35,3327           27444        S3435.25           STOVL    RTARG                                 
029632,000739: 35,3330           00007                                    VATT                                  
029633,000740: 35,3331           27506                           STOVL    VPASS4                                
029634,000741: 35,3332           03444                                    RTARG                                 
029635,000742:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
029636,000743: 35,3333           63256                           UNIT     PDVL                                  #  UNIT RP
029637,000744: 35,3334           03536                                    RACT3                                 
029638,000745: 35,3335           41456                           UNIT     PUSH                                  #  UNIT RA
029639,000746: 35,3336           50235                           VXV      DOT                                   
029640,000747: 35,3337           00001                                    0D                                    
029641,000748: 35,3340           02261                                    UNRM                                  #  RA*RP.U
029642,000749: 35,3341           77715                           PDVL                                           
029643,000750: 35,3342           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
029644,000751: 35,3343           00001                                    0D                                    
029645,000752: 35,3344           75326                           ACOS     SIGN                                  
029646,000753: 35,3345           43244                           BPL      DAD                                   
029647,000754: 35,3346           73350                                    NOPIE                                 
029648,000755: 35,3347           06530                                    DPPOSMAX                              #  REASONABLE TWO PI
029649,000756: 35,3350           15756        NOPIE              STODL    ACTCENT                               
029650,000757: 35,3351           03631                                    TPASS4                                
029651,000758: 35,3352           77625                           DSU                                            
029652,000759: 35,3353           03610                                    INTIME                                
029653,000760: 35,3354           03452                           STORE    DELLT4                                
029654,000761: 35,3355           40335                           SLOAD    SETPD                                 
029655,000762: 35,3356           03467                                    NN                                    #  NUMBER OF OFFSETS
029656,000763: 35,3357           00001                                    0D                                    
029657,000764: 35,3360           63325                           PDDL     PDVL                                  
029658,000765: 35,3361           33744                                    EPSFOUR                               
029659,000766: 35,3362           03536                                    RACT3                                 
029660,000767: 35,3363           26323                           STOVL    RINIT                                 

Page 674

029662,000769: 35,3364           03544                                    VACT3                                 
029663,000770: 35,3365           36331                           STCALL   VINIT                                 
029664,000771: 35,3366           22000                                    INITVEL                               
029665,000772: 35,3367           77624                           CALL                                           
029666,000773: 35,3370           73447                                    LOMAT                                 
029667,000774: 35,3371           64375                           VLOAD    MXV                                   
029668,000775: 35,3372           02366                                    DELVEET3                              
029669,000776: 35,3373           00001                                    0D                                    
029670,000777: 35,3374           77772                           VSL1                                           
029671,000778: 35,3375           37434                           STCALL   DELVLVC                               
029672,000779: 35,3376           03470                                    SUBEXIT                               
029673,000780: 

Page 675

029675,000782:                                                                                                  #  ..... S34/35.3 .....
029676,000783: 
029677,000784: 35,3377           45020        S34/35.3           STQ      CALL                                  
029678,000785: 35,3400           03463                                    NORMEX                                
029679,000786: 35,3401           73447                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
029680,000787: 35,3402           61375                           VLOAD    VXM                                   
029681,000788: 35,3403           03434                                    DELVLVC                               #  NEW DEL V TPI
029682,000789: 35,3404           00001                                    0D                                    
029683,000790: 35,3405           77772                           VSL1                                           
029684,000791: 35,3406           02366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
029685,000792: 35,3407           63255                           VAD      PDVL                                  
029686,000793: 35,3410           03544                                    VACT3                                 #  NEW V REQ
029687,000794: 35,3411           03536                                    RACT3                                 
029688,000795: 35,3412           65325                           PDDL     PDDL                                  
029689,000796: 35,3413           03442                                    TIG                                   
029690,000797: 35,3414           03631                                    TPASS4                                
029691,000798: 35,3415           41525                           PDDL     PUSH                                  
029692,000799: 35,3416           06530                                    DPPOSMAX                              
029693,000800: 35,3417           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
029694,000801: 35,3420           73466                                    INTINT                                
029695,000802: 35,3421           77775                           VLOAD                                          
029696,000803: 35,3422           00001                                    RATT                                  
029697,000804: 35,3423           03444                           STORE    RTARG                                 
029698,000805: 35,3424           41575        NOVRWRT            VLOAD    PUSH                                  
029699,000806: 35,3425           02311                                    ULOS                                  
029700,000807: 35,3426           57435                           VXV      VCOMP                                 
029701,000808: 35,3427           02261                                    UNRM                                  
029702,000809: 35,3430           41456                           UNIT     PUSH                                  
029703,000810: 35,3431           76435                           VXV      VSL1                                  
029704,000811: 35,3432           02311                                    ULOS                                  
029705,000812: 35,3433           77715                           PDVL                                           
029706,000813: 35,3434           64315                           PDVL     MXV                                   
029707,000814: 35,3435           02366                                    DELVEET3                              
029708,000815: 35,3436           00001                                    0D                                    
029709,000816: 35,3437           77772                           VSL1                                           
029710,000817: 35,3440           36303                           STCALL   DVLOS                                 
029711,000818: 35,3441           03463                                    NORMEX                                
029712,000819: 

Page 676

029714,000821:                                                                                                  #  ..... S34/35.4 .....
029715,000822: 
029716,000823: 35,3442           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029717,000824: 35,3443           03463                                    NORMEX                                
029718,000825: 35,3444           00001                                    0D                                    
029719,000826: 35,3445           77650                           GOTO                                           
029720,000827: 35,3446           73424                                    NOVRWRT                               
029721,000828: 

Page 677

029723,000830:                                                                                                  #  ..... LOMAT .....
029724,000831: 
029725,000832: 35,3447           57575        LOMAT              VLOAD    VCOMP                                 
029726,000833: 35,3450           02261                                    UNRM                                  
029727,000834: 35,3451           24007                           STOVL    6D                                    #  Y
029728,000835: 35,3452           03536                                    RACT3                                 
029729,000836: 35,3453           57456                           UNIT     VCOMP                                 
029730,000837: 35,3454           00015                           STORE    12D                                   
029731,000838: 35,3455           76435                           VXV      VSL1                                  
029732,000839: 35,3456           02261                                    UNRM                                  #  Z*-Y
029733,000840: 35,3457           00001                           STORE    0D                                    
029734,000841: 35,3460           43401                           SETPD    RVQ                                   
029735,000842: 35,3461           00023                                    18D                                   
029736,000843: 35,3462           65325        GOINT              PDDL     PDDL                                  #  DO
029737,000844: 35,3463           06522                                    ZEROVECS                              #        NOT
029738,000845: 35,3464           02317                                    NOMTPI                                
029739,000846: 35,3465           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
029740,000847: 35,3466           45020        INTINT             STQ      CALL                                  
029741,000848: 35,3467           03465                                    RTRN                                  
029742,000849: 35,3470           27414                                    INTSTALL                              
029743,000850: 35,3471           71214                           CLEAR    DLOAD                                 
029744,000851: 35,3472           01673                                    INTYPFLG                              
029745,000852: 35,3473           43054                           BZE      SET                                   
029746,000853: 35,3474           73476                                    +2                                    
029747,000854: 35,3475           01473                                    INTYPFLG                              
029748,000855: 35,3476           45545                           DLOAD    STADR                                 
029749,000856: 35,3477           63736                           STODL    TDEC1                                 
029750,000857: 35,3500           73014                           SET      LXA,2                                 
029751,000858: 35,3501           00063                                    MOONFLAG                              
029752,000859: 35,3502           02777                                    RTX2                                  
029753,000860: 35,3503           43014                           BON      CLEAR                                 
029754,000861: 35,3504           04303                                    CMOONFLG                              
029755,000862: 35,3505           73507                                    ALLSET                                
029756,000863: 35,3506           00263                                    MOONFLAG                              
029757,000864: 35,3507           25517        ALLSET             STOVL    TET                                   
029758,000865: 35,3510           77657                           VSR*                                           
029759,000866: 35,3511           57176                                    0,2                                   
029760,000867: 35,3512           25535                           STOVL    RCV                                   
029761,000868: 35,3513           77657                           VSR*                                           
029762,000869: 35,3514           57176                                    0,2                                   
029763,000870: 35,3515           35543                           STCALL   VCV                                   
029764,000871: 35,3516           27107                                    INTEGRVS                              
029765,000872: 35,3517           52175                           VLOAD    GOTO                                  
029766,000873: 35,3520           00001                                    RATT                                  
029767,000874: 35,3521           03465                                    RTRN                                  
029768,000875: 

Page 678

029770,000877:                                                                                                  #  ..... S34/35.5 .....
029771,000878:                                                                                                  #  SUBROUTINES USED
029772,000879:                                                                                                  #        BANKCALL
029773,000880:                                                                                                  #        GOFLASH
029774,000881:                                                                                                  #        GOTOPOOH
029775,000882:                                                                                                  #        S34/35.3
029776,000883:                                                                                                  #        S34/35.4
029777,000884:                                                                                                  #        VNPOOH
029778,000885: 
029779,000886: 35,3522           43020        S34/35.5           STQ      BON                                   
029780,000887: 35,3523           03470                                    SUBEXIT                               
029781,000888: 35,3524           01311                                    FINALFLG                              
029782,000889: 35,3525           73531                                    FLAGON                                
029783,000890: 35,3526           52014                           SET      GOTO                                  
029784,000891: 35,3527           00470                                    UPDATFLG                              
029785,000892: 35,3530           73576                                    FLAGOFF                               
029786,000893: 35,3531           77214        FLAGON             CLEAR    VLOAD                                 
029787,000894: 35,3532           03274                                    NTARGFLG                              
029788,000895: 35,3533           03434                                    DELVLVC                               
029789,000896: 35,3534           01237                           STORE    GDT/2                                 
029790,000897: 35,3535           77776                           EXIT                                           
029791,000898: 35,3536           33727                 +5        CAF      V06N81                                
029792,000899: 35,3537           04616                           TC       BANKCALL                              
029793,000900: 35,3540           20476                           CADR     GOFLASH                               
029794,000901: 35,3541           06001                           TC       GOTOPOOH                              
029795,000902: 35,3542           03544                           TC       +2                                    #  PRO
029796,000903: 35,3543           03536                           TC       FLAGON     +5                         #  LOAD
029797,000904: 35,3544           35016                 +2        CA       EBANK7                                
029798,000905: 35,3545           54003                           TS       EBANK                                 #  TO BE SURE
029799,000906: 
029800,000907: 35,3546           22007                           ZL                                             
029801,000908: 35,3547           34756                           CA       FIVE                                  
029802,000909: 35,3550           54002        NTARGCHK           TS       Q                                     
029803,000910: 35,3551           50002                           INDEX    Q                                     
029804,000911: 35,3552           41433                           CS       DELVLVC                               
029805,000912: 35,3553           50002                           INDEX    Q                                     
029806,000913: 35,3554           61236                           AD       GDT/2                                 
029807,000914: 35,3555           26001                           ADS      L                                     
029808,000915: 35,3556           10002                           CCS      Q                                     
029809,000916: 35,3557           13550                           TCF      NTARGCHK                              
029810,000917: 35,3560           22000                           LXCH     A                                     
029811,000918: 35,3561           00006                           EXTEND                                         
029812,000919: 35,3562           13565                           BZF      +3                                    
029813,000920: 35,3563           05504                           TC       UPFLAG                                
029814,000921: 35,3564           00146                           ADRES    NTARGFLG                              
029815,000922: 
029816,000923: 35,3565           06037                           TC       INTPRET                               
029817,000924: 35,3566           45014                           BOFF     CALL                                  
029818,000925: 35,3567           03354                                    NTARGFLG                              

Page 679

029820,000927: 35,3570           73572                                    NOCHG                                 
029821,000928: 35,3571           73377                                    S34/35.3                              
029822,000929: 35,3572           77214        NOCHG              CLEAR    VLOAD                                 
029823,000930: 35,3573           01267                                    XDELVFLG                              
029824,000931: 35,3574           02366                                    DELVEET3                              
029825,000932: 35,3575           03656                           STORE    DELVSIN                               
029826,000933: 35,3576           77624        FLAGOFF            CALL                                           
029827,000934: 35,3577           73442                                    S34/35.4                              
029828,000935: 35,3600           77776                           EXIT                                           
029829,000936: 35,3601           33726                           CAF      V06N59                                
029830,000937: 35,3602           03712                           TC       VNPOOH                                
029831,000938: 35,3603           06037                           TC       INTPRET                               
029832,000939: 35,3604           77650                           GOTO                                           
029833,000940: 35,3605           03470                                    SUBEXIT                               
029834,000941: 

Page 680

029836,000943:                                                                                                  #  ..... VN1645 .....
029837,000944: 
029838,000945:                                                                                                  #  SUBROUTINES USED
029839,000946:                                                                                                  #        P3XORP7X
029840,000947:                                                                                                  #        GET+MGA
029841,000948:                                                                                                  #        BANKCALL
029842,000949:                                                                                                  #        DELAYJOB
029843,000950:                                                                                                  #        COMPTGO
029844,000951:                                                                                                  #        GOFLASHR
029845,000952:                                                                                                  #        GOTOPOOH
029846,000953:                                                                                                  #        FLAGUP
029847,000954: 
029848,000955: 35,3606           71220        VN1645             STQ      DLOAD                                 
029849,000956: 35,3607           03470                                    SUBEXIT                               
029850,000957: 35,3610           33742                                    DP-.01                                
029851,000958: 35,3611           02253                           STORE    +MGA                                  #  MGA = -.01
029852,000959: 35,3612           71214                           BOFF     DLOAD                                 
029853,000960: 35,3613           01351                                    FINALFLG                              
029854,000961: 35,3614           73634                                    GET45                                 
029855,000962: 35,3615           33742                                    DP-.01                                
029856,000963: 35,3616           77615                           DAD                                            
029857,000964: 35,3617           33742                                    DP-.01                                
029858,000965: 35,3620           02253                           STORE    +MGA                                  #  MGA = -.02
029859,000966: 35,3621           77414                           BOFF     EXIT                                  
029860,000967: 35,3622           01742                                    REFSMFLG                              
029861,000968: 35,3623           73634                                    GET45                                 
029862,000969: 35,3624           03704                           TC       P3XORP7X                              
029863,000970: 35,3625           03627                           TC       +2                                    #  P3X
029864,000971: 35,3626           03635                           TC       GET45      +1                         #  P7X
029865,000972: 35,3627           06037                           TC       INTPRET                               
029866,000973: 35,3630           41575                           VLOAD    PUSH                                  
029867,000974: 35,3631           03656                                    DELVSIN                               
029868,000975: 35,3632           77624                           CALL                                           #  COMPUTE MGA
029869,000976: 35,3633           15717                                    GET+MGA                               
029870,000977: 35,3634           77776        GET45              EXIT                                           
029871,000978: 35,3635           02432                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
029872,000979: 35,3636           31470                           CA       SUBEXIT                               
029873,000980: 35,3637           55464                           TS       QSAVED                                
029874,000981: 35,3640           34777                           CAF      1SEC                                  
029875,000982: 35,3641           04616                           TC       BANKCALL                              
029876,000983: 35,3642           01735                           CADR     DELAYJOB                              
029877,000984: 35,3643           33730                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
029878,000985: 35,3644           04616                           TC       BANKCALL                              
029879,000986: 35,3645           20476                           CADR     GOFLASH                               
029880,000987: 35,3646           03651                           TC       KILCLOCK                              #  TERMINATE
029881,000988: 35,3647           03654                           TC       N45PROC                               #  PROCEED
029882,000989: 35,3650           03664                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
029883,000990: 35,3651           30005        KILCLOCK           CA       Z                                     
029884,000991: 35,3652           55163                           TS       DISPDEX                               

Page 681

029886,000993: 35,3653           06001                           TC       GOTOPOOH                              
029887,000994: 35,3654           40076        N45PROC            CS       FLAGWRD2                              
029888,000995: 35,3655           74746                           MASK     BIT6                                  
029889,000996: 35,3656           00006                           EXTEND                                         
029890,000997: 35,3657           13651                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
029891,000998: 35,3660           05353                           TC       PHASCHNG                              
029892,000999: 35,3661           04024                           OCT      04024                                 
029893,001000: 35,3662           05504                           TC       UPFLAG                                #  SET
029894,001001: 35,3663           00047                           ADRES    FINALFLG                              #  FINALFLG
029895,001002: 35,3664           30005        CLUPDATE           CA       Z                                     
029896,001003: 35,3665           55163                           TS       DISPDEX                               
029897,001004: 35,3666           05353                           TC       PHASCHNG                              
029898,001005: 35,3667           04024                           OCT      04024                                 
029899,001006: 35,3670           06037                           TC       INTPRET                               
029900,001007: 35,3671           52014                           CLEAR    GOTO                                  
029901,001008: 35,3672           00670                                    UPDATFLG                              
029902,001009: 35,3673           03464                                    QSAVED                                
029903,001010: 

Page 682

029905,001012:                                                                                                  #  ..... DISPLAYE .....
029906,001013: 
029907,001014:                                                                                                  #  SUBROUTINES USED
029908,001015:                                                                                                  #        BANKCALL
029909,001016:                                                                                                  #        GOFLASHR
029910,001017:                                                                                                  #        GOTOPOOH
029911,001018:                                                                                                  #        BLANKET
029912,001019:                                                                                                  #        ENDOFJOB
029913,001020: 
029914,001021: 35,3674           00006        DISPLAYE           EXTEND                                         
029915,001022: 35,3675           23463                           QXCH     NORMEX                                
029916,001023: 35,3676           33724                           CAF      V06N55                                
029917,001024: 35,3677           04616                           TCR      BANKCALL                              
029918,001025: 35,3700           20476                           CADR     GOFLASH                               
029919,001026: 35,3701           16001                           TCF      GOTOPOOH                              
029920,001027: 35,3702           01463                           TC       NORMEX                                
029921,001028: 35,3703           13676                           TCF      -5                                    
029922,001029: 

Page 683

029924,001031:                                                                                                  #  ..... P3XORP7X .....
029925,001032: 
029926,001033: 35,3704           37744        P3XORP7X           CAF      HIGH9                                 
029927,001034: 35,3705           71011                           MASK     MODREG                                
029928,001035: 35,3706           00006                           EXTEND                                         
029929,001036: 35,3707           13711                           BZF      +2                                    
029930,001037: 35,3710           24002                           INCR     Q                                     
029931,001038: 35,3711           00002                           RETURN                                         
029932,001039: 
029933,001040:                                                                                                  #  ..... VNPOOH .....
029934,001041: 
029935,001042:                                                                                                  #  SUBROUTINES USED
029936,001043:                                                                                                  #        BANKCALL
029937,001044:                                                                                                  #        GOFLASH
029938,001045:                                                                                                  #        GOTOPOOH
029939,001046: 
029940,001047: 35,3712           00006        VNPOOH             EXTEND                                         
029941,001048: 35,3713           23465                           QXCH     RTRN                                  
029942,001049: 35,3714           55615                           TS       VERBNOUN                              
029943,001050: 35,3715           31615                           CA       VERBNOUN                              
029944,001051: 35,3716           04616                           TCR      BANKCALL                              
029945,001052: 35,3717           20476                           CADR     GOFLASH                               
029946,001053: 35,3720           16001                           TCF      GOTOPOOH                              
029947,001054: 35,3721           01465                           TC       RTRN                                  
029948,001055: 35,3722           13715                           TCF      -5                                    
029949,001056: 

Page 684

029951,001058:                                                                                                  #  ..... CONSTANTS .....
029952,001059: 
029953,001060: 35,3723           01445        V06N37             VN       0637                                  
029954,001061: 35,3724           01467        V06N55             VN       0655                                  
029955,001062: 35,3725           01472        V06N58             VN       0658                                  
029956,001063: 35,3726           01473        V06N59             VN       0659                                  
029957,001064: 35,3727           01521        V06N81             VN       0681                                  
029958,001065: 35,3730           04055        V16N45             VN       1645                                  
029959,001066: 35,3731           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
029960,001067: 
029961,001068: 35,3733           00001 20650  MAX250             2DEC     25         E3                         
029962,001069: 
029963,001070: 35,3735           12525 12525  THIRD              2DEC     .333333333                            
029964,001071: 
029965,001072: 35,3737           00004 21505  ELEPS              2DEC     .27777777  E-3                        
029966,001073: 
029967,001074: 35,3741           77777        DP-.01             OCT      77777                                 #  CONSTANTS
029968,001075: 35,3742           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
029969,001076: 35,3743           01252 25253  EPSFOUR            2DEC     .0416666666                            
029970,001077: 
029971,001078: 35,3745           13434 16162  130DEG             2DEC     .3611111111                            
029972,001079: 

Page 685

029974,001081:                                                                                                  #  ..... INITVEL .....
029975,001082: 
029976,001083:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029977,001084:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
029978,001085: 
029979,001086:                                                                                                  #  FUNCTIONAL DESCRIPTION
029980,001087: 
029981,001088:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029982,001089:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029983,001090:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
029984,001091:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029985,001092:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
029986,001093:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029987,001094:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
029988,001095:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029989,001096:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029990,001097:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029991,001098: 
029992,001099:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029993,001100:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029994,001101:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029995,001102:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029996,001103:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029997,001104:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029998,001105:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029999,001106:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
030000,001107: 
030001,001108:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
030002,001109:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
030003,001110:                                                                                                  #        TRAJECTORY COMPUTATIONS.
030004,001111: 
030005,001112:                                                                                                  #  CALLING SEQUENCE
030006,001113: 
030007,001114:                                                                                                  #        L       CALL
030008,001115:                                                                                                  #        L+1             INITVEL
030009,001116:                                                                                                  #        L+2     (RETURN - ALWAYS)
030010,001117: 
030011,001118:                                                                                                  #  INPUT
030012,001119: 
030013,001120:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
030014,001121:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
030015,001122:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
030016,001123:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
030017,001124:                                                                                                  #        (5)     INTIME          TIME OF RINIT
030018,001125:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
030019,001126:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
030020,001127:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
030021,001128:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
030022,001129:                                                                                                  #        PUSHLOC SET AT 4D
030023,001130: 

Page 686

030025,001132:                                                                                                  #  OUTPUT
030026,001133: 
030027,001134:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
030028,001135:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
030029,001136:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
030030,001137:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
030031,001138: 
030032,001139:                                                                                                  #  SUBROUTINES USED
030033,001140: 
030034,001141:                                                                                                  #        LAMBERT
030035,001142:                                                                                                  #        INTSTALL
030036,001143:                                                                                                  #        INTEGRVS
030037,001144: 
030038,001145: 11,2000                                           SETLOC   INTVEL                                
030039,001146: 11,2000                                           BANK                                           
030040,001147: 
030041,001148: 11,2000                                           COUNT*   $$/INITV                              
030042,001149: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
030043,001150: 11,2001           00475                                    GUESSW                                
030044,001151: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
030045,001152: 11,2003           03444                                    RTARG                                 
030046,001153: 11,2004           03463                                    NORMEX                                
030047,001154: 11,2005           03472                           STORE    RTARG1                                
030048,001155: 11,2006           77646                           ABVAL                                          
030049,001156: 11,2007           03723                           STORE    RTMAG                                 
030050,001157: 11,2010           46135                           SLOAD    BHIZ                                  
030051,001158: 11,2011           03000                                    RTX2                                  
030052,001159: 11,2012           22026                                    INITVEL1                              
030053,001160: 11,2013           72575                           VLOAD    VSL2                                  
030054,001161: 11,2014           02323                                    RINIT                                 #  B29
030055,001162: 11,2015           26323                           STOVL    RINIT                                 #  B27
030056,001163: 11,2016           02331                                    VINIT                                 #  B7
030057,001164: 11,2017           77752                           VSL2                                           
030058,001165: 11,2020           26331                           STOVL    VINIT                                 #  B5
030059,001166: 11,2021           03472                                    RTARG1                                
030060,001167: 11,2022           77752                           VSL2                                           
030061,001168: 11,2023           03472                           STORE    RTARG1                                
030062,001169: 11,2024           77646                           ABVAL                                          
030063,001170: 11,2025           03723                           STORE    RTMAG                                 
030064,001171: 
030065,001172:                                                                                                  #  INITIALIZATION
030066,001173: 
030067,001174: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
030068,001175: 11,2027           03617                                    ITCTR                                 
030069,001176: 11,2030           77776                                    0          -1                         
030070,001177: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
030071,001178: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)          (PL 0D)
030072,001179: 11,2033           67154                           LXA,2    SXA,2                                 
030073,001180: 11,2034           00154                                    MPAC                                  
030074,001181: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
030075,001182: 11,2036           77775                           VLOAD                                          

Page 687

030077,001184: 11,2037           02323                                    RINIT                                 
030078,001185: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
030079,001186: 11,2041           03472                                    RTARG1                                
030080,001187: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
030081,001188: 11,2043           03452                                    DELLT4                                
030082,001189: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
030083,001190: 11,2045           77201                           SETPD    VLOAD                                 
030084,001191: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
030085,001192: 11,2047           02323                                    RINIT                                 #  MPAC EQ RINIT (+29)
030086,001193: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)                     (PL 6D)
030087,001194: 11,2051           53435                           VXV      UNIT                                  
030088,001195: 11,2052           02331                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
030089,001196: 11,2053           26674                           STOVL    UN                                    
030090,001197: 11,2054           03472                                    RTARG1                                
030091,001198: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                 (PL 0D)
030092,001199: 11,2056           43015                           DAD      CLEAR                                 
030093,001200: 11,2057           03667                                    COZY4                                 
030094,001201: 11,2060           03665                                    NORMSW                                
030095,001202: 11,2061           03667                           STORE    COZY4                                 
030096,001203: 11,2062           43044        INITVEL2           BPL      SET                                   
030097,001204: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
030098,001205: 11,2064           03465                                    NORMSW                                
030099,001206: 
030100,001207:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
030101,001208: 
030102,001209: 11,2065           41575                           VLOAD    PUSH                                  #                                    (PL 6D)
030103,001210: 11,2066           02663                                    R2VEC                                 #  RC TO 6D (+29)
030104,001211: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
030105,001212: 11,2070           46206                           PUSH     VPROJ                                 #                                    (PL 8D)
030106,001213: 11,2071           02674                                    UN                                    
030107,001214: 11,2072           51352                           VSL2     BVSU                                  
030108,001215: 11,2073           74256                           UNIT     VXSC                                  #                                    (PL 0D)
030109,001216: 11,2074           77772                           VSL1                                           
030110,001217: 11,2075           02663                           STORE    R2VEC                                 
030111,001218: 11,2076           67351                           TLOAD    SLOAD                                 
030112,001219: 11,2077           24007                                    ZEROVEC                               
030113,001220: 11,2100           03617                                    ITCTR                                 
030114,001221: 11,2101           77244                           BPL      VLOAD                                 
030115,001222: 11,2102           22105                                    INITVEL3                              
030116,001223: 11,2103           02663                                    R2VEC                                 
030117,001224: 11,2104           03472                           STORE    RTARG1                                
030118,001225: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                    (PL 2D)
030119,001226: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
030120,001227: 11,2107           02663                                    R2VEC                                 
030121,001228: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                  (PL 8D)
030122,001229: 11,2111           02655                                    R1VEC                                 
030123,001230: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL 14D)
030124,001231: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
030125,001232: 11,2114           00003                                    2D                                    
030126,001233: 11,2115           77606                           PUSH                                           #                                   (PL 20D)
030127,001234: 11,2116           71350                           LXA,1    DLOAD                                 

Page 688

030129,001236: 11,2117           02776                                    RTX1                                  
030130,001237: 11,2120           00023                                    18D                                   
030131,001238: 11,2121           62040                           BMN      INCR,1                                
030132,001239: 11,2122           22124                                    +2                                    
030133,001240: 11,2123           77767                           DEC      -8         B-14                       
030134,001241: 11,2124           67310                           INCR,1   SLOAD                                 
030135,001242: 11,2125           00012                                    10D                                   
030136,001243: 11,2126           00047                                    X1                                    
030137,001244: 11,2127           77230                           BHIZ     VLOAD                                 #                                   (PL 14D)
030138,001245: 11,2130           22132                                    +2                                    
030139,001246: 11,2131           41476                           VCOMP    PUSH                                  #                                   (PL 20D)
030140,001247: 11,2132           77775                           VLOAD                                          #                                   (PL 14D)
030141,001248: 11,2133           50235                           VXV      DOT                                   #                                    (PL 2D)
030142,001249: 11,2134           71244                           BPL      DLOAD                                 #                                    (PL 0D)
030143,001250: 11,2135           22137                                    INITVEL4                              
030144,001251: 11,2136           41476                           DCOMP    PUSH                                  #                                    (PL 2D)
030145,001252: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
030146,001253: 11,2140           00000                                    0D                                    
030147,001254: 11,2141           02672                                    GEOMSGN                               
030148,001255: 
030149,001256:                                                                                                  #  SET INPUTS UP FOR LAMBERT
030150,001257: 
030151,001258: 11,2142           45150                           LXA,1    CALL                                  
030152,001259: 11,2143           02776                                    RTX1                                  
030153,001260: 
030154,001261:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
030155,001262: 
030156,001263: 11,2144           23765                                    SETITCTR                              #  GO TO END OF BANK TO SET ITERCTR BEFORE
030157,001264:                                                                                                  #  CALLING LAMBERT (FOR REMANUFACTURE ONLY)
030158,001265: 
030159,001266:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
030160,001267: 
030161,001268: 11,2145           77214                           CLEAR    VLOAD                                 
030162,001269: 11,2146           00675                                    GUESSW                                
030163,001270: 11,2147           02744                                    VVEC                                  
030164,001271: 
030165,001272:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
030166,001273: 
030167,001274: 11,2150           16337                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
030168,001275: 
030169,001276:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
030170,001277:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
030171,001278: 
030172,001279: 11,2151           02702                                    VTARGTAG                              
030173,001280: 11,2152           45030                           BHIZ     CALL                                  
030174,001281: 11,2153           22230                                    INITVEL7                              
030175,001282: 11,2154           27414                                    INTSTALL                              
030176,001283: 11,2155           43135                           SLOAD    CLEAR                                 
030177,001284: 11,2156           03000                                    RTX2                                  
030178,001285: 11,2157           00263                                    MOONFLAG                              
030179,001286: 11,2160           43030                           BHIZ     SET                                   
030180,001287: 11,2161           22163                                    INITVEL5                              

Page 689

030182,001289: 11,2162           00063                                    MOONFLAG                              
030183,001290: 11,2163           77775        INITVEL5           VLOAD                                          
030184,001291: 11,2164           02323                                    RINIT                                 
030185,001292: 11,2165           02655                           STORE    R1VEC                                 
030186,001293: 11,2166           25535                           STOVL    RCV                                   
030187,001294: 11,2167           02337                                    VIPRIME                               
030188,001295: 11,2170           15543                           STODL    VCV                                   
030189,001296: 11,2171           03610                                    INTIME                                
030190,001297: 11,2172           01517                           STORE    TET                                   
030191,001298: 11,2173           43015                           DAD      CLEAR                                 
030192,001299: 11,2174           03452                                    DELLT4                                
030193,001300: 11,2175           01673                                    INTYPFLG                              
030194,001301: 11,2176           34041                           STCALL   TDEC1                                 
030195,001302: 11,2177           27107                                    INTEGRVS                              
030196,001303: 11,2200           77775                           VLOAD                                          
030197,001304: 11,2201           00025                                    VATT1                                 
030198,001305: 11,2202           02703                           STORE    VTARGET                               
030199,001306: 
030200,001307:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
030201,001308:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
030202,001309: 
030203,001310: 11,2203           63154                           LXA,2    INCR,2                                
030204,001311: 11,2204           03616                                    ITCTR                                 
030205,001312: 11,2205           00001                                    1D                                    #  INCREMENT ITCTR
030206,001313: 11,2206           55134                           SXA,2    XSU,2                                 
030207,001314: 11,2207           03616                                    ITCTR                                 
030208,001315: 11,2210           02701                                    VTARGTAG                              
030209,001316: 11,2211           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
030210,001317: 11,2212           00050                                    X2                                    
030211,001318: 11,2213           22225                                    INITVEL6                              
030212,001319: 
030213,001320:                                                                                                  #  OFFSET CONIC TARGET VECTOR
030214,001321: 
030215,001322: 11,2214           52375                           VLOAD    VSU                                   
030216,001323: 11,2215           03472                                    RTARG1                                
030217,001324: 11,2216           00017                                    RATT1                                 
030218,001325: 11,2217           77655                           VAD                                            
030219,001326: 11,2220           02663                                    R2VEC                                 
030220,001327: 11,2221           16663                           STODL    R2VEC                                 
030221,001328: 11,2222           03667                                    COZY4                                 
030222,001329: 11,2223           77650                           GOTO                                           
030223,001330: 11,2224           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
030224,001331: 
030225,001332:                                                                                                  #  COMPUTE THE DELTA VELOCITY
030226,001333: 
030227,001334: 11,2225           77775        INITVEL6           VLOAD                                          
030228,001335: 11,2226           02663                                    R2VEC                                 
030229,001336: 11,2227           03472                           STORE    RTARG1                                
030230,001337: 11,2230           52375        INITVEL7           VLOAD    VSU                                   
030231,001338: 11,2231           02337                                    VIPRIME                               
030232,001339: 11,2232           02331                                    VINIT                                 
030233,001340: 11,2233           26366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)

Page 690

030235,001342: 11,2234           02703                                    VTARGET                               
030236,001343: 11,2235           03566                           STORE    VTPRIME                               
030237,001344: 11,2236           46135                           SLOAD    BHIZ                                  
030238,001345: 11,2237           03000                                    RTX2                                  
030239,001346: 11,2240           22255                                    INITVELX                              
030240,001347: 11,2241           70575                           VLOAD    VSR2                                  
030241,001348: 11,2242           03566                                    VTPRIME                               
030242,001349: 11,2243           27566                           STOVL    VTPRIME                               
030243,001350: 11,2244           02337                                    VIPRIME                               
030244,001351: 11,2245           77742                           VSR2                                           
030245,001352: 11,2246           26337                           STOVL    VIPRIME                               
030246,001353: 11,2247           03472                                    RTARG1                                
030247,001354: 11,2250           77742                           VSR2                                           
030248,001355: 11,2251           27472                           STOVL    RTARG1                                
030249,001356: 11,2252           02366                                    DELVEET3                              
030250,001357: 11,2253           77742                           VSR2                                           
030251,001358: 11,2254           02366                           STORE    DELVEET3                              
030252,001359: 11,2255           70750        INITVELX           LXA,1    DLOAD*                                
030253,001360: 11,2256           02776                                    RTX1                                  
030254,001361: 11,2257           10003                                    MUTABLE    -2,1                       
030255,001362: 11,2260           41206                           PUSH     DMP                                   
030256,001363: 11,2261           02742                                    R1A                                   
030257,001364: 11,2262           56342                           SR1      DDV                                   
030258,001365: 11,2263           00041                                    R1                                    
030259,001366: 11,2264           17721                           STODL    MU/A                                  
030260,001367: 11,2265           77661                           SR                                             
030261,001368: 11,2266           20607                                    6                                     
030262,001369: 11,2267           03717                           STORE    MUASTEER                              
030263,001370: 11,2270           77201                           SETPD    VLOAD                                 
030264,001371: 11,2271           00001                                    0D                                    
030265,001372: 11,2272           03472                                    RTARG1                                
030266,001373: 11,2273           37444                           STCALL   RTARG                                 
030267,001374: 11,2274           03463                                    NORMEX                                
030268,001375: 
030269,001376:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
030270,001377: 

Page 691

030272,001379:                                                                                                  #  ..... MIDGIM .....
030273,001380: 
030274,001381:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
030275,001382:                                                                                                  #  REVISION 03, 17 FEB 67
030276,001383: 
030277,001384:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
030278,001385:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
030279,001386:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
030280,001387:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
030281,001388:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
030282,001389: 
030283,001390:                                                                                                  #  .. INPUTS ..
030284,001391: 
030285,001392:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
030286,001393: 
030287,001394:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE                     BIT
030288,001395:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
030289,001396:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
030290,001397:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
030291,001398: 
030292,001399:                                                                                                  #  .. OUTPUTS ..
030293,001400: 
030294,001401:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
030295,001402: 
030296,001403:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
030297,001404:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
030298,001405:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.       -       BIT
030299,001406: 
030300,001407:                                                                                                  #  .. CALLING SEQUENCE ..
030301,001408: 
030302,001409:                                                                                                  #        L       CALL
030303,001410:                                                                                                  #        L+1             MIDGIM
030304,001411:                                                                                                  #        L+2     (RETURN - ALWAYS)
030305,001412: 
030306,001413:                                                                                                  #  .. NO SUBROUTINES CALLED ..
030307,001414: 
030308,001415:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
030309,001416: 
030310,001417:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
030311,001418: 
030312,001419:                                                                                                  #  .. ALARMS - NONE ..
030313,001420: 

Page 692

030315,001422:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
030316,001423: 
030317,001424: 06,2000                                           SETLOC   MIDDGIM                               
030318,001425: 06,2000                                           BANK                                           
030319,001426: 
030320,001427: 06,3715                                           COUNT*   $$/MIDG                               
030321,001428: 
030322,001429: 06,3715           20000 00000  HALFREV            2DEC     1          B-1                        
030323,001430: 
030324,001431: 06,3717           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
030325,001432: 06,3720           77656                           UNIT                                           
030326,001433: 06,3721           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
030327,001434: 06,3722           01742                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
030328,001435: 06,3723           51136                           ARCSIN   BPL                                   
030329,001436: 06,3724           15730                                    SETMGA                                
030330,001437: 06,3725           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
030331,001438: 06,3726           15716                                    HALFREV                               #  ADDING ONE REVOLUTION
030332,001439: 06,3727           15716                                    HALFREV                               
030333,001440: 06,3730           02253        SETMGA             STORE    +MGA                                  
030334,001441: 06,3731           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
030335,001442: 06,3732           02675                                    MGLVFLAG                              #  AND EXIT
030336,001443: 06,3733           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
030337,001444: 06,3734           02323                                    RINIT                                 
030338,001445: 06,3735           77676                           VCOMP                                          #  U(-R)
030339,001446: 06,3736           00023                           STORE    18D                                   #  U(-R) TO 18D
030340,001447: 06,3737           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
030341,001448: 06,3740           02331                                    VINIT                                 
030342,001449: 06,3741           00015                           STORE    12D                                   #  U(V*R) TO 12D
030343,001450: 06,3742           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
030344,001451: 06,3743           00023                                    18D                                   
030345,001452: 06,3744           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
030346,001453: 06,3745           00001                                    0D                                    #  DELTA V (+7) IN 0D
030347,001454: 06,3746           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
030348,001455: 06,3747           00007                                    6D                                    #  AND SCALE +7 IN MPAC
030349,001456: 06,3750           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
030350,001457: 06,3751           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
030351,001458: 06,3752           02475                                    MGLVFLAG                              #  AND EXIT
030352,001459: 
030353,001460:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
030354,001461: 

Page 693

030356,001463: 10,2000                                           BANK     10                                    
030357,001464: 10,2000                                           SETLOC   SLCTMU                                
030358,001465: 10,2000                                           BANK                                           
030359,001466: 10,2000                                           COUNT*   $$/MIDG                               
030360,001467: 
030361,001468: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
030362,001469: 10,2001           00002                                    2D                                    
030363,001470: 10,2002           00000                                    0D                                    
030364,001471: 10,2003           77614                           BOFF                                           
030365,001472: 10,2004           04343                                    CMOONFLG                              
030366,001473: 10,2005           20011                                    SETMUER                               
030367,001474: 10,2006           77160                           AXC,1    AXT,2                                 
030368,001475: 10,2007           00012                                    10D                                   
030369,001476: 10,2010           00002                                    2D                                    
030370,001477: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
030371,001478: 10,2012           10011                                    MUTABLE    +4,1                       
030372,001479: 10,2013           02776                                    RTX1                                  
030373,001480: 10,2014           22317                           STODL*   RTSR1/MU                              
030374,001481: 10,2015           10003                                    MUTABLE    -2,1                       
030375,001482: 10,2016           54214                           BOFF     SR                                    
030376,001483: 10,2017           04343                                    CMOONFLG                              
030377,001484: 10,2020           20022                                    RTRNMU                                
030378,001485: 10,2021           20607                                    6D                                    
030379,001486: 10,2022           02321        RTRNMU             STORE    RTMU                                  
030380,001487: 10,2023           43134                           SXA,2    CLEAR                                 
030381,001488: 10,2024           02777                                    RTX2                                  
030382,001489: 10,2025           01271                                    FINALFLG                              
030383,001490: 10,2026           77650                           GOTO                                           
030384,001491: 10,2027           73606                                    VN1645                                
030385,001492: 

Page 694

030387,001494:                                                                                                  #  ..... PERIAPO .....
030388,001495: 
030389,001496:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
030390,001497:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
030391,001498: 
030392,001499:                                                                                                  #  FUNCTIONAL DESCRIPTION
030393,001500: 
030394,001501:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
030395,001502:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
030396,001503:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
030397,001504: 
030398,001505:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
030399,001506: 
030400,001507:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
030401,001508:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
030402,001509: 
030403,001510:                                                                                                  #  CALLING SEQUENCE
030404,001511: 
030405,001512:                                                                                                  #        L       CALL
030406,001513:                                                                                                  #        L+1             PERIAPO
030407,001514:                                                                                                  #        L+2     (RETURN - ALWAYS)
030408,001515: 
030409,001516:                                                                                                  #  INPUT
030410,001517: 
030411,001518:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
030412,001519:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030413,001520:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
030414,001521:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
030415,001522:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
030416,001523:                                                                                                  #                        EARTH -2, MOON -10
030417,001524: 
030418,001525:                                                                                                  #  OUTPUT
030419,001526: 
030420,001527:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
030421,001528:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030422,001529:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
030423,001530:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
030424,001531:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
030425,001532:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030426,001533:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
030427,001534:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030428,001535:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
030429,001536:                                                                                                  #                        SCALE FACTOR - +3
030430,001537:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
030431,001538:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030432,001539:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
030433,001540: 
030434,001541:                                                                                                  #  SUBROUTINES USED
030435,001542: 
030436,001543:                                                                                                  #        SETRAD

Page 695

030438,001545:                                                                                                  #        APSIDES
030439,001546: 
030440,001547: 23,2000                                           SETLOC   APOPERI                               
030441,001548: 23,2000                                           BANK                                           
030442,001549: 
030443,001550: 23,2314                                           COUNT*   $$/PERAP                              
030444,001551: 
030445,001552: 23,2314           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
030446,001553:                                                                                                  #  = 20 909 901.57 FT
030447,001554: 
030448,001555: 23,2316           53754        PERIAPO1           LXA,2    VSR*                                  
030449,001556: 23,2317           02777                                    RTX2                                  
030450,001557: 23,2320           57176                                    0,2                                   
030451,001558: 23,2321           26744                           STOVL    VVEC                                  
030452,001559: 23,2322           53750                           LXA,1    VSR*                                  
030453,001560: 23,2323           02776                                    RTX1                                  
030454,001561: 23,2324           57176                                    0,2                                   
030455,001562: 23,2325           02655                           STORE    RVEC                                  
030456,001563: 23,2326           45020        PERIAPO            STQ      CALL                                  
030457,001564: 23,2327           03463                                    NORMEX                                
030458,001565: 23,2330           46344                                    SETRAD                                
030459,001566: 23,2331           37671                           STCALL   XXXALT                                
030460,001567: 23,2332           25674                                    APSIDES                               
030461,001568: 23,2333           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
030462,001569: 23,2334           00003                                    2D                                    
030463,001570: 23,2335           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
030464,001571: 23,2336           03671                                    XXXALT                                
030465,001572: 23,2337           00001                                    0D                                    
030466,001573: 23,2340           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
030467,001574: 23,2341           03671                                    XXXALT                                
030468,001575: 23,2342           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
030469,001576: 23,2343           03463                                    NORMEX                                
030470,001577: 

Page 696

030472,001579:                                                                                                  #  SETRAD
030473,001580: 
030474,001581: 23,2344           41545        SETRAD             DLOAD    PUSH                                  
030475,001582: 23,2345           06315                                    RPAD                                  
030476,001583: 23,2346           63130                           SXA,1    INCR,2                                
030477,001584: 23,2347           00047                                    X2                                    
030478,001585: 23,2350           00002                                    2D                                    
030479,001586: 23,2351           46135                           SLOAD    BHIZ                                  
030480,001587: 23,2352           00050                                    X2                                    
030481,001588: 23,2353           46357                                    SETRADX                               
030482,001589: 23,2354           51575                           VLOAD    ABVAL                                 
030483,001590: 23,2355           02023                                    RLS                                   
030484,001591: 23,2356           77725                           PDDL                                           
030485,001592: 23,2357           43545        SETRADX            DLOAD    RVQ                                   
030486,001593: 

Page 697

030488,001595:                                                                                                  #  PRECSET
030489,001596: 
030490,001597: 23,2360           77620        PRECSET            STQ                                            
030491,001598: 23,2361           03463                                    NORMEX                                
030492,001599: 23,2362           37574                           STCALL   TDEC2                                 
030493,001600: 23,2363           27057                                    LEMPREC                               
030494,001601: 23,2364           77624                           CALL                                           
030495,001602: 23,2365           46376                                    LEMSTORE                              
030496,001603: 23,2366           77745                           DLOAD                                          
030497,001604: 23,2367           03574                                    TDEC2                                 
030498,001605: 23,2370           34041                           STCALL   TDEC1                                 
030499,001606: 23,2371           27043                                    CSMPREC                               
030500,001607: 23,2372           77624                           CALL                                           
030501,001608: 23,2373           46406                                    CSMSTORE                              
030502,001609: 23,2374           77650                           GOTO                                           
030503,001610: 23,2375           03463                                    NORMEX                                
030504,001611: 23,2376           43175        LEMSTORE           VLOAD    BOFF                                  
030505,001612: 23,2377           00001                                    RATT                                  
030506,001613: 23,2400           01352                                    AVFLAG                                
030507,001614: 23,2401           46412                                    PASSIVE                               
030508,001615: 23,2402           27536        ACTIVE             STOVL    RACT3                                 
030509,001616: 23,2403           00007                                    VATT                                  
030510,001617: 23,2404           03544                           STORE    VACT3                                 
030511,001618: 23,2405           77616                           RVQ                                            
030512,001619: 23,2406           43175        CSMSTORE           VLOAD    BOFF                                  
030513,001620: 23,2407           00001                                    RATT                                  
030514,001621: 23,2410           01352                                    AVFLAG                                
030515,001622: 23,2411           46402                                    ACTIVE                                
030516,001623: 23,2412           27552        PASSIVE            STOVL    RPASS3                                
030517,001624: 23,2413           00007                                    VATT                                  
030518,001625: 23,2414           03560                           STORE    VPASS3                                
030519,001626: 23,2415           77616                           RVQ                                            
030520,001627: 

Page 698

030522,001629:                                                                                                  #  VECSHIFT
030523,001630: 
030524,001631: 23,2416           53754        VECSHIFT           LXA,2    VSR*                                  
030525,001632: 23,2417           02777                                    RTX2                                  
030526,001633: 23,2420           57176                                    0,2                                   
030527,001634: 23,2421           63350                           LXA,1    PDVL                                  
030528,001635: 23,2422           02776                                    RTX1                                  
030529,001636: 23,2423           63257                           VSR*     PDVL                                  
030530,001637: 23,2424           57176                                    0,2                                   
030531,001638: 23,2425           77616                           RVQ                                            
030532,001639: 

Page 699

030534,001641:                                                                                                  #  SHIFTR1 
030535,001642: 
030536,001643: 23,2426           53754        SHIFTR1            LXA,2    SL*                                   
030537,001644: 23,2427           02777                                    RTX2                                  
030538,001645: 23,2430           57576                                    0,2                                   
030539,001646: 23,2431           77616                           RVQ                                            
030540,001647: 

Page 700

030542,001649:                                                                                                  #  PROGRAM DESCRIPTION
030543,001650:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
030544,001651:                                                                                                  #  MOD NO. 0             DATE    22 DECEMBER 67
030545,001652:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
030546,001653:                                                                                                  #  FUNCTIONAL DESCRIPTION
030547,001654: 
030548,001655:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030549,001656:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
030550,001657: 
030551,001658:                                                                                                  #  CALLING SEQUENCE
030552,001659: 
030553,001660:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
030554,001661: 
030555,001662:                                                                                                  #  SUBROUTINES CALLED
030556,001663: 
030557,001664:                                                                                                  #        EXDSPRET
030558,001665:                                                                                                  #        GOMARKF
030559,001666:                                                                                                  #        CSMPREC
030560,001667:                                                                                                  #        LEMPREC
030561,001668:                                                                                                  #        SGNAGREE
030562,001669:                                                                                                  #        LOADTIME
030563,001670: 
030564,001671:                                                                                                  #  NORMAL EXIT MODES
030565,001672: 
030566,001673:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030567,001674: 
030568,001675:                                                                                                  #  ALARM OR ABORT EXIT MODES
030569,001676: 
030570,001677:                                                                                                  #        NONE
030571,001678: 
030572,001679:                                                                                                  #  OUTPUT
030573,001680: 
030574,001681:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
030575,001682: 
030576,001683:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
030577,001684:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
030578,001685: 
030579,001686:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030580,001687: 
030581,001688:                                                                                                  #        CSM AND LEM STATE VECTORS
030582,001689: 
030583,001690:                                                                                                  #  DEBRIS
030584,001691: 
030585,001692:                                                                                                  #        CENTRALS A,Q,L
030586,001693:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030587,001694: 
030588,001695: 20,2115                                           BANK     20                                    
030589,001696: 04,2000                                           SETLOC   R36LM                                 
030590,001697: 04,2000                                           BANK                                           

Page 701

030592,001699: 04,2656  E4,1606                                  EBANK=   RPASS36                               
030593,001700: 
030594,001701: 04,2656                                           COUNT*   $$/R36                                
030595,001702: 
030596,001703: 04,2656           22007        R36                ZL                                             
030597,001704: 04,2657           34755                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
030598,001705: 04,2660           53052                           DXCH     DSPTEMX                               #  DISPLAY
030599,001706: 04,2661           33011                           CAF      V06N16N                               
030600,001707: 04,2662           04616                           TC       BANKCALL                              
030601,001708: 04,2663           20334                           CADR     GOMARKF                               
030602,001709: 04,2664           15472                           TCF      ENDEXT                                #  TERMINATE
030603,001710: 04,2665           12667                           TCF      +2                                    #  PROCEED
030604,001711: 04,2666           12661                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
030605,001712: 04,2667           53052                           DXCH     DSPTEMX                               
030606,001713: 04,2670           00006                           EXTEND                                         
030607,001714: 04,2671           13000                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
030608,001715: 04,2672           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
030609,001716: 04,2673           06037                           TC       INTPRET                               
030610,001717: 04,2674           77634                           RTB                                            
030611,001718: 04,2675           21716                                    DPMODE                                
030612,001719: 04,2676           34041        R36INT             STCALL   TDEC1                                 
030613,001720: 04,2677           27043                                    OTHPREC                               
030614,001721: 04,2700           63375                           VLOAD    PDVL                                  
030615,001722: 04,2701           00007                                    VATT                                  
030616,001723: 04,2702           00001                                    RATT                                  #  -
030617,001724: 04,2703           02207                           STORE    RPASS36                               #  R
030618,001725: 04,2704           63256                           UNIT     PDVL                                  #   P
030619,001726: 04,2705           53435                           VXV      UNIT                                  
030620,001727: 04,2706           77626                           STADR                                          #  -
030621,001728: 04,2707           61562                           STODL    UNP36                                 #  U
030622,001729: 04,2710           00015                                    TAT                                   
030623,001730: 04,2711           34041                           STCALL   TDEC1                                 
030624,001731: 04,2712           27057                                    THISPREC                              
030625,001732: 04,2713           63375                           VLOAD    PDVL                                  #                  -
030626,001733: 04,2714           00007                                    VATT                                  #  VELOCITY VECTOR V             00D
030627,001734: 04,2715           00001                                    RATT                                  #                   A
030628,001735: 04,2716           77725                           PDDL                                           
030629,001736: 04,2717           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
030630,001737: 04,2720           24037                           STOVL    30D                                   #                  -
030631,001738: 04,2721           41406                           PUSH     PUSH                                  #  POSITION VECTOR R  IN 06D AND 12D
030632,001739: 04,2722           63245                           BVSU     PDVL                                  #                   A   -   -
030633,001740: 04,2723           02207                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R    12D
030634,001741: 04,2724           72441                           DOT      SL1                                   #                        P   A
030635,001742: 04,2725           02215                                    UNP36                                 #      -   -
030636,001743: 04,2726           26201                           STOVL    RANGE                                 #  Y = U . R
030637,001744: 04,2727           00001                                    00D                                   #           A
030638,001745: 04,2730           72441                           DOT      SL1                                   
030639,001746: 04,2731           02215                                    UNP36                                 #  .   -   -
030640,001747: 04,2732           26203                           STOVL    RRATE                                 #  Y = U . V
030641,001748: 04,2733           00007                                    06D                                   #  -        A  -

Page 702

030643,001750: 04,2734           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
030644,001751: 04,2735           47235                           VXV      VXV                                   #   RA          A
030645,001752: 04,2736           00001                                    00D                                   #   -    -     -     -
030646,001753: 04,2737           00023                                    18D                                   #  (U  X V ) X U   = U
030647,001754: 04,2740           53552                           VSL2     UNIT                                  #    RA   A     RA    A
030648,001755: 04,2741           77656                           UNIT                                           
030649,001756: 04,2742           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
030650,001757: 04,2743           00023                                    18D                                   
030651,001758: 04,2744           74241                           DOT      VXSC                                  #  -
030652,001759: 04,2745           00015                                    12D                                   #  U
030653,001760: 04,2746           77752                           VSL2                                           #   L
030654,001761: 04,2747           53445                           BVSU     UNIT                                  
030655,001762: 04,2750           77656                           UNIT                                           
030656,001763: 04,2751           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
030657,001764: 04,2752           00001                                    00D                                   #  PLANE
030658,001765: 04,2753           65552                           SL1      ARCCOS                                #               -   -
030659,001766: 04,2754           26205                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
030660,001767: 04,2755           50235                           VXV      DOT                                   #                A   L
030661,001768: 04,2756           00001                                    00D                                   
030662,001769: 04,2757           71244                           BPL      DLOAD                                 
030663,001770: 04,2760           10765                                    R36TAG2                               
030664,001771: 04,2761           24020                                    LODPMAX                               
030665,001772: 04,2762           77625                           DSU                                            
030666,001773: 04,2763           02205                                    RTHETA                                
030667,001774: 04,2764           02205                           STORE    RTHETA                                
030668,001775: 04,2765           47145        R36TAG2            DLOAD    RTB                                   
030669,001776: 04,2766           00037                                    30D                                   
030670,001777: 04,2767           21612                                    SGNAGREE                              
030671,001778: 04,2770           01052                           STORE    DSPTEMX                               
030672,001779: 04,2771           77776                           EXIT                                           
030673,001780: 04,2772           33012                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
030674,001781: 04,2773           04616                           TC       BANKCALL                              
030675,001782: 04,2774           20334                           CADR     GOMARKF                               
030676,001783: 04,2775           15472                           TCF      ENDEXT                                #  TERMINATE
030677,001784: 04,2776           15472                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
030678,001785: 04,2777           12661                           TCF      R36        +3                         #  REDISPLAY OUTPUT
030679,001786: 04,3000           56001        LREGCHK            XCH      L                                     
030680,001787: 04,3001           00006                           EXTEND                                         
030681,001788: 04,3002           13005                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
030682,001789: 04,3003           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
030683,001790: 04,3004           12672                           TCF      ASTROTIM                              
030684,001791: 04,3005           06037        ENTTIM2            TC       INTPRET                               
030685,001792: 04,3006           52034                           RTB      GOTO                                  
030686,001793: 04,3007           21573                                    LOADTIME                              
030687,001794: 04,3010           10676                                    R36INT                                
030688,001795: 04,3011           01420        V06N16N            VN       00616                                 
030689,001796: 04,3012           01532        V06N90N            VN       00690                                 

End of include-file P34-P35,_P74-P75.agc.  Parent file is MAIN.agc